FHINI0EN ; ; 11-OCT-1995
;;5.0;Dietetics;;Oct 11, 1995
Q:'DIFQR(112) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^UTILITY(U,$J,112,9102,2)
;;=^^^^^^^^178.571^11.429^15.714^3.929
;;^UTILITY(U,$J,112,9102,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9103,0)
;;=CANADIAN STYLE BACON,OSCAR MAYER^BC-02376^slice^24
;;^UTILITY(U,$J,112,9103,1)
;;=17.917^3.333^1.25^104.167^74.167^^^4.167^.833^16.667^262.5^275^1187.5^1.333
;;^UTILITY(U,$J,112,9103,2)
;;=^^^^^^^^41.667^1.25^1.667^0
;;^UTILITY(U,$J,112,9103,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9104,0)
;;=CHICKEN BREAST,HICKORY SMOKED,LOUIS RICH^BC-02377^slice^28
;;^UTILITY(U,$J,112,9104,1)
;;=18.214^2.857^2.5^107.143^73.214^^^7.143^1.179^21.429^289.286^257.143^1271.429^.607
;;^UTILITY(U,$J,112,9104,2)
;;=^^^^^^^^46.429^1.071^1.429^.714
;;^UTILITY(U,$J,112,9104,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9105,0)
;;=CHICKEN BREAST,OVEN ROASTED,OSCAR MAYER^BC-02378^slice^28
;;^UTILITY(U,$J,112,9105,1)
;;=18.571^2.5^2.143^107.143^72.5^^^7.143^.821^17.857^317.857^285.714^1482.143^.464
;;^UTILITY(U,$J,112,9105,2)
;;=^^^^^^^^57.143^.714^1.071^.357
;;^UTILITY(U,$J,112,9105,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9106,0)
;;=CHICKEN BREAST,OVEN ROASTED,WEAVER^BC-02379^slice^18
;;^UTILITY(U,$J,112,9106,1)
;;=20.556^4.444^2.778^138.889^^^^^^^^^1027.778
;;^UTILITY(U,$J,112,9106,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9107,0)
;;=CHICKEN BREAST,OVEN ROASTED WHITE,LOUIS RICH^BC-02380^slice^28
;;^UTILITY(U,$J,112,9107,1)
;;=19.286^6.429^.714^135.714^71.429^^^35.714^.571^21.429^253.571^221.429^610.714^.607
;;^UTILITY(U,$J,112,9107,2)
;;=^^^^^^^^50^2.143^3.214^1.429
;;^UTILITY(U,$J,112,9107,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9108,0)
;;=CHICKEN BREAST,SMOKED,OSCAR MAYER^BC-02381^slice^28
;;^UTILITY(U,$J,112,9108,1)
;;=19.286^1.071^1.786^92.857^73.571^^^7.143^.643^17.857^285.714^282.143^1421.429^.429
;;^UTILITY(U,$J,112,9108,2)
;;=^^^^^^^^53.571^.357^.714^.357
;;^UTILITY(U,$J,112,9108,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9109,0)
;;=CHICKEN ROLL,WEAVER^BC-02382^slice^16
;;^UTILITY(U,$J,112,9109,1)
;;=20^8.75^3.125^162.5^^^^^^^^^956.25
;;^UTILITY(U,$J,112,9109,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9110,0)
;;=CORNED BEEF,OSCAR MAYER^BC-02383^slice^17
;;^UTILITY(U,$J,112,9110,1)
;;=20^1.765^.588^94.118^74.706^^^5.882^2.824^17.647^200^200^1188.235^3.059^.294
;;^UTILITY(U,$J,112,9110,2)
;;=^^^^^^^^41.176^1.176^1.176^0
;;^UTILITY(U,$J,112,9110,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9111,0)
;;=CORNED BEEF HASH,ARMOUR STAR^BC-02384^3-oz.^85
;;^UTILITY(U,$J,112,9111,1)
;;=8.471^12.706^8.471^183.529^^^^^^^^^672.941
;;^UTILITY(U,$J,112,9111,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9112,0)
;;=FRANKFURTER,BEEF & PORK,SMALL,OSCAR MAYER^BC-02385^frank^9
;;^UTILITY(U,$J,112,9112,1)
;;=11.111^28.889^2.222^311.111^54.444^^^11.111^1.111^11.111^88.889^166.667^1022.222^1.889^.111^^^^22.222^.222
;;^UTILITY(U,$J,112,9112,2)
;;=.111^2.222^.444^.111^0^1.222^^^55.556
;;^UTILITY(U,$J,112,9112,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9113,0)
;;=FRANKFURTER,BEEF,BUN-LENGTH,OSCAR MAYER^BC-02386^frank^57
;;^UTILITY(U,$J,112,9113,1)
;;=11.053^29.474^2.632^321.053^53.86^^^12.281^1.632^12.281^94.737^163.158^1000^2.702
;;^UTILITY(U,$J,112,9113,2)
;;=^^^^^^^^59.649^12.807^15.263^1.228
;;^UTILITY(U,$J,112,9113,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9114,0)
;;=FRANKFURTER,BEEF,OSCAR MAYER^BC-02387^frank^45
;;^UTILITY(U,$J,112,9114,1)
;;=11.111^29.333^2.444^317.778^54.222^^^13.333^1.356^11.111^86.667^155.556^1020^2.133
;;^UTILITY(U,$J,112,9114,2)
;;=^^^^^^^^66.667^12.444^14.667^1.556
;;^UTILITY(U,$J,112,9114,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9115,0)
;;=FRANKFURTER,BEEF W/CHEDDAR,OSCAR MAYER^BC-02388^frank^45
;;^UTILITY(U,$J,112,9115,1)
;;=12.667^26.222^2.667^297.778^55.111^^^75.556^1.311^13.333^353.333^164.444^1117.778^2.689
;;^UTILITY(U,$J,112,9115,2)
;;=^^^^^^^^60^11.333^12.222^.889
;;^UTILITY(U,$J,112,9115,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9116,0)
;;=FRANKFURTER,CHICKEN & CHEESE,WEAVER^BC-02389^frank^49
;;^UTILITY(U,$J,112,9116,1)
;;=14.286^22.449^2.041^295.918^^^^^^^^^1387.755
FHINI0EN ; ; 11-OCT-1995
+1 ;;5.0;Dietetics;;Oct 11, 1995
+2 IF 'DIFQR(112)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
IF X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
IF $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
IF $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,112,9102,2)
+2 ;;=^^^^^^^^178.571^11.429^15.714^3.929
+3 ;;^UTILITY(U,$J,112,9102,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9103,0)
+6 ;;=CANADIAN STYLE BACON,OSCAR MAYER^BC-02376^slice^24
+7 ;;^UTILITY(U,$J,112,9103,1)
+8 ;;=17.917^3.333^1.25^104.167^74.167^^^4.167^.833^16.667^262.5^275^1187.5^1.333
+9 ;;^UTILITY(U,$J,112,9103,2)
+10 ;;=^^^^^^^^41.667^1.25^1.667^0
+11 ;;^UTILITY(U,$J,112,9103,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9104,0)
+14 ;;=CHICKEN BREAST,HICKORY SMOKED,LOUIS RICH^BC-02377^slice^28
+15 ;;^UTILITY(U,$J,112,9104,1)
+16 ;;=18.214^2.857^2.5^107.143^73.214^^^7.143^1.179^21.429^289.286^257.143^1271.429^.607
+17 ;;^UTILITY(U,$J,112,9104,2)
+18 ;;=^^^^^^^^46.429^1.071^1.429^.714
+19 ;;^UTILITY(U,$J,112,9104,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9105,0)
+22 ;;=CHICKEN BREAST,OVEN ROASTED,OSCAR MAYER^BC-02378^slice^28
+23 ;;^UTILITY(U,$J,112,9105,1)
+24 ;;=18.571^2.5^2.143^107.143^72.5^^^7.143^.821^17.857^317.857^285.714^1482.143^.464
+25 ;;^UTILITY(U,$J,112,9105,2)
+26 ;;=^^^^^^^^57.143^.714^1.071^.357
+27 ;;^UTILITY(U,$J,112,9105,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,9106,0)
+30 ;;=CHICKEN BREAST,OVEN ROASTED,WEAVER^BC-02379^slice^18
+31 ;;^UTILITY(U,$J,112,9106,1)
+32 ;;=20.556^4.444^2.778^138.889^^^^^^^^^1027.778
+33 ;;^UTILITY(U,$J,112,9106,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,9107,0)
+36 ;;=CHICKEN BREAST,OVEN ROASTED WHITE,LOUIS RICH^BC-02380^slice^28
+37 ;;^UTILITY(U,$J,112,9107,1)
+38 ;;=19.286^6.429^.714^135.714^71.429^^^35.714^.571^21.429^253.571^221.429^610.714^.607
+39 ;;^UTILITY(U,$J,112,9107,2)
+40 ;;=^^^^^^^^50^2.143^3.214^1.429
+41 ;;^UTILITY(U,$J,112,9107,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,9108,0)
+44 ;;=CHICKEN BREAST,SMOKED,OSCAR MAYER^BC-02381^slice^28
+45 ;;^UTILITY(U,$J,112,9108,1)
+46 ;;=19.286^1.071^1.786^92.857^73.571^^^7.143^.643^17.857^285.714^282.143^1421.429^.429
+47 ;;^UTILITY(U,$J,112,9108,2)
+48 ;;=^^^^^^^^53.571^.357^.714^.357
+49 ;;^UTILITY(U,$J,112,9108,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,9109,0)
+52 ;;=CHICKEN ROLL,WEAVER^BC-02382^slice^16
+53 ;;^UTILITY(U,$J,112,9109,1)
+54 ;;=20^8.75^3.125^162.5^^^^^^^^^956.25
+55 ;;^UTILITY(U,$J,112,9109,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,9110,0)
+58 ;;=CORNED BEEF,OSCAR MAYER^BC-02383^slice^17
+59 ;;^UTILITY(U,$J,112,9110,1)
+60 ;;=20^1.765^.588^94.118^74.706^^^5.882^2.824^17.647^200^200^1188.235^3.059^.294
+61 ;;^UTILITY(U,$J,112,9110,2)
+62 ;;=^^^^^^^^41.176^1.176^1.176^0
+63 ;;^UTILITY(U,$J,112,9110,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,9111,0)
+66 ;;=CORNED BEEF HASH,ARMOUR STAR^BC-02384^3-oz.^85
+67 ;;^UTILITY(U,$J,112,9111,1)
+68 ;;=8.471^12.706^8.471^183.529^^^^^^^^^672.941
+69 ;;^UTILITY(U,$J,112,9111,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,9112,0)
+72 ;;=FRANKFURTER,BEEF & PORK,SMALL,OSCAR MAYER^BC-02385^frank^9
+73 ;;^UTILITY(U,$J,112,9112,1)
+74 ;;=11.111^28.889^2.222^311.111^54.444^^^11.111^1.111^11.111^88.889^166.667^1022.222^1.889^.111^^^^22.222^.222
+75 ;;^UTILITY(U,$J,112,9112,2)
+76 ;;=.111^2.222^.444^.111^0^1.222^^^55.556
+77 ;;^UTILITY(U,$J,112,9112,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,9113,0)
+80 ;;=FRANKFURTER,BEEF,BUN-LENGTH,OSCAR MAYER^BC-02386^frank^57
+81 ;;^UTILITY(U,$J,112,9113,1)
+82 ;;=11.053^29.474^2.632^321.053^53.86^^^12.281^1.632^12.281^94.737^163.158^1000^2.702
+83 ;;^UTILITY(U,$J,112,9113,2)
+84 ;;=^^^^^^^^59.649^12.807^15.263^1.228
+85 ;;^UTILITY(U,$J,112,9113,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,9114,0)
+88 ;;=FRANKFURTER,BEEF,OSCAR MAYER^BC-02387^frank^45
+89 ;;^UTILITY(U,$J,112,9114,1)
+90 ;;=11.111^29.333^2.444^317.778^54.222^^^13.333^1.356^11.111^86.667^155.556^1020^2.133
+91 ;;^UTILITY(U,$J,112,9114,2)
+92 ;;=^^^^^^^^66.667^12.444^14.667^1.556
+93 ;;^UTILITY(U,$J,112,9114,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,9115,0)
+96 ;;=FRANKFURTER,BEEF W/CHEDDAR,OSCAR MAYER^BC-02388^frank^45
+97 ;;^UTILITY(U,$J,112,9115,1)
+98 ;;=12.667^26.222^2.667^297.778^55.111^^^75.556^1.311^13.333^353.333^164.444^1117.778^2.689
+99 ;;^UTILITY(U,$J,112,9115,2)
+100 ;;=^^^^^^^^60^11.333^12.222^.889
+101 ;;^UTILITY(U,$J,112,9115,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,9116,0)
+104 ;;=FRANKFURTER,CHICKEN & CHEESE,WEAVER^BC-02389^frank^49
+105 ;;^UTILITY(U,$J,112,9116,1)
+106 ;;=14.286^22.449^2.041^295.918^^^^^^^^^1387.755
