FHINI0ET ; ; 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,9184,2)
;;=.107^5.714^^.25^^.679^^^50
;;^UTILITY(U,$J,112,9184,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9185,0)
;;=TURKEY PASTRAMI,LOUIS RICH^BC-02471^slice^28
;;^UTILITY(U,$J,112,9185,1)
;;=18.929^3.929^1.071^114.286^72.5^^^7.143^1.429^21.429^296.429^282.143^1032.143^2.607
;;^UTILITY(U,$J,112,9185,2)
;;=^^^^^^^^64.286^1.429^1.429^1.429
;;^UTILITY(U,$J,112,9185,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9186,0)
;;=TURKEY PASTRAMI,OSCAR MAYER^BC-02472^slice^28
;;^UTILITY(U,$J,112,9186,1)
;;=19.286^4.286^.357^117.857^72.5^^^7.143^1.429^21.429^303.571^271.429^982.143^2.929^.143^.061^^^0^.107
;;^UTILITY(U,$J,112,9186,2)
;;=.286^5.357^^.286^^2.036^^^60.714
;;^UTILITY(U,$J,112,9186,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9187,0)
;;=TURKEY,SMOKED,LOUIS RICH^BC-02473^slice^28
;;^UTILITY(U,$J,112,9187,1)
;;=19.643^3.571^1.429^114.286^72.5^^^7.143^.536^21.429^260.714^282.143^1028.571^1.786
;;^UTILITY(U,$J,112,9187,2)
;;=^^^^^^^^42.857^1.429^1.786^1.071
;;^UTILITY(U,$J,112,9187,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9188,0)
;;=TURKEY SUMMER SAUSAGE,LOUIS RICH^BC-02474^slice^28
;;^UTILITY(U,$J,112,9188,1)
;;=16.786^13.929^1.429^196.429^65.357^^^14.286^2.107^17.857^260.714^250^1157.143^2.25
;;^UTILITY(U,$J,112,9188,2)
;;=^^^^^^^^78.571^4.286^5^3.571
;;^UTILITY(U,$J,112,9188,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9189,0)
;;=TURKEY SUMMER SAUSAGE,OSCAR MAYER^BC-02475^slice^28
;;^UTILITY(U,$J,112,9189,1)
;;=16.786^12.5^1.429^185.714^65.357^^^14.286^2^17.857^253.571^246.429^1114.286^2.429^.143^.125^^^0^.107
;;^UTILITY(U,$J,112,9189,2)
;;=.429^5^^.25^^4.107^^^82.143
;;^UTILITY(U,$J,112,9189,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9190,0)
;;=VIENNA SAUSAGE,CND W/ BBQ SCE,ARMOUR STAR^BC-02476^2.5-oz.^71
;;^UTILITY(U,$J,112,9190,1)
;;=8.451^25.352^5.634^281.69^^^^^^^^^873.239
;;^UTILITY(U,$J,112,9190,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9191,0)
;;=VIENNA SAUSAGE,CND W/ BEEF STOCK,ARMOUR STAR^BC-02477^2-oz.^57
;;^UTILITY(U,$J,112,9191,1)
;;=8.772^29.825^1.754^315.789^^^^^^^^^736.842
;;^UTILITY(U,$J,112,9191,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9192,0)
;;=COW MILK,CALCIMILK^BC-02478^8-floz.^244
;;^UTILITY(U,$J,112,9192,1)
;;=3.279^1.066^4.795^41.803^90.082^^^204.098^.049^13.934^96.311^156.148^50.41^.389^^^^204.918^.82^.041
;;^UTILITY(U,$J,112,9192,2)
;;=.168^.082^.324^.045^4.918^.369^^^4.098^.656^.328^.041^59.426^^^^0
;;^UTILITY(U,$J,112,9192,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9193,0)
;;=COW MILK,EVAPORATED,LOWFAT,CND,CARNATION^BC-02479^4-floz.^127
;;^UTILITY(U,$J,112,9193,1)
;;=7.087^2.362^9.449^86.614^76.614^^^250.394^.228^25.197^210.236^327.559^108.661^^^^^496.063^.787^.031
;;^UTILITY(U,$J,112,9193,2)
;;=.268^.157^^.047^7.874^.213
;;^UTILITY(U,$J,112,9193,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9194,0)
;;=COW MILK,LACTAID,LOWFAT 1%^BC-02480^8-floz.^244
;;^UTILITY(U,$J,112,9194,1)
;;=3.279^1.066^4.795^41.803^90.082^^^122.951^.049^13.934^96.311^156.148^50.41^.389^^^^204.918^.82^.041
;;^UTILITY(U,$J,112,9194,2)
;;=.168^.082^.324^.045^4.918^.369^^^4.098^.656^.328^.041^59.426^^^^0
;;^UTILITY(U,$J,112,9194,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9195,0)
;;=COW MILK,SKIM^BC-02481^8-floz.^245
;;^UTILITY(U,$J,112,9195,1)
;;=3.429^.163^4.857^35.102^90.816^^^123.265^.041^11.429^100.816^165.714^51.429^.4^^^^204.082^.816^.037
;;^UTILITY(U,$J,112,9195,2)
;;=.139^.082^.331^.041^5.306^.38^^^1.633^.122^.041^0^60.816^^^^0
;;^UTILITY(U,$J,112,9195,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9196,0)
;;=COW MILK,SKIM,DRY,INST,CARNATION^BC-02469^5-tbsp.^23
;;^UTILITY(U,$J,112,9196,1)
;;=34.783^.87^51.304^352.174^3.913^^^1213.043^.304^117.391^973.913^1682.609^543.478^4.348^.304^.017^^2173.913^4.348^.391
;;^UTILITY(U,$J,112,9196,2)
;;=1.696^.87^3.174^.348^43.478^.391^^^21.739^.435^0^0^^^^^0
;;^UTILITY(U,$J,112,9196,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9197,0)
;;=COW MILK,SKIM,DRY,INST,SANALAC^BC-02470^1/4-pouch^23
;;^UTILITY(U,$J,112,9197,1)
;;=34.783^0^52.174^347.826^^^^1304.348^^^^1652.174^543.478^^^^^^4.348^.391
FHINI0ET ; ; 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,9184,2)
+2 ;;=.107^5.714^^.25^^.679^^^50
+3 ;;^UTILITY(U,$J,112,9184,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9185,0)
+6 ;;=TURKEY PASTRAMI,LOUIS RICH^BC-02471^slice^28
+7 ;;^UTILITY(U,$J,112,9185,1)
+8 ;;=18.929^3.929^1.071^114.286^72.5^^^7.143^1.429^21.429^296.429^282.143^1032.143^2.607
+9 ;;^UTILITY(U,$J,112,9185,2)
+10 ;;=^^^^^^^^64.286^1.429^1.429^1.429
+11 ;;^UTILITY(U,$J,112,9185,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9186,0)
+14 ;;=TURKEY PASTRAMI,OSCAR MAYER^BC-02472^slice^28
+15 ;;^UTILITY(U,$J,112,9186,1)
+16 ;;=19.286^4.286^.357^117.857^72.5^^^7.143^1.429^21.429^303.571^271.429^982.143^2.929^.143^.061^^^0^.107
+17 ;;^UTILITY(U,$J,112,9186,2)
+18 ;;=.286^5.357^^.286^^2.036^^^60.714
+19 ;;^UTILITY(U,$J,112,9186,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9187,0)
+22 ;;=TURKEY,SMOKED,LOUIS RICH^BC-02473^slice^28
+23 ;;^UTILITY(U,$J,112,9187,1)
+24 ;;=19.643^3.571^1.429^114.286^72.5^^^7.143^.536^21.429^260.714^282.143^1028.571^1.786
+25 ;;^UTILITY(U,$J,112,9187,2)
+26 ;;=^^^^^^^^42.857^1.429^1.786^1.071
+27 ;;^UTILITY(U,$J,112,9187,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,9188,0)
+30 ;;=TURKEY SUMMER SAUSAGE,LOUIS RICH^BC-02474^slice^28
+31 ;;^UTILITY(U,$J,112,9188,1)
+32 ;;=16.786^13.929^1.429^196.429^65.357^^^14.286^2.107^17.857^260.714^250^1157.143^2.25
+33 ;;^UTILITY(U,$J,112,9188,2)
+34 ;;=^^^^^^^^78.571^4.286^5^3.571
+35 ;;^UTILITY(U,$J,112,9188,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9189,0)
+38 ;;=TURKEY SUMMER SAUSAGE,OSCAR MAYER^BC-02475^slice^28
+39 ;;^UTILITY(U,$J,112,9189,1)
+40 ;;=16.786^12.5^1.429^185.714^65.357^^^14.286^2^17.857^253.571^246.429^1114.286^2.429^.143^.125^^^0^.107
+41 ;;^UTILITY(U,$J,112,9189,2)
+42 ;;=.429^5^^.25^^4.107^^^82.143
+43 ;;^UTILITY(U,$J,112,9189,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9190,0)
+46 ;;=VIENNA SAUSAGE,CND W/ BBQ SCE,ARMOUR STAR^BC-02476^2.5-oz.^71
+47 ;;^UTILITY(U,$J,112,9190,1)
+48 ;;=8.451^25.352^5.634^281.69^^^^^^^^^873.239
+49 ;;^UTILITY(U,$J,112,9190,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,9191,0)
+52 ;;=VIENNA SAUSAGE,CND W/ BEEF STOCK,ARMOUR STAR^BC-02477^2-oz.^57
+53 ;;^UTILITY(U,$J,112,9191,1)
+54 ;;=8.772^29.825^1.754^315.789^^^^^^^^^736.842
+55 ;;^UTILITY(U,$J,112,9191,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,9192,0)
+58 ;;=COW MILK,CALCIMILK^BC-02478^8-floz.^244
+59 ;;^UTILITY(U,$J,112,9192,1)
+60 ;;=3.279^1.066^4.795^41.803^90.082^^^204.098^.049^13.934^96.311^156.148^50.41^.389^^^^204.918^.82^.041
+61 ;;^UTILITY(U,$J,112,9192,2)
+62 ;;=.168^.082^.324^.045^4.918^.369^^^4.098^.656^.328^.041^59.426^^^^0
+63 ;;^UTILITY(U,$J,112,9192,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,9193,0)
+66 ;;=COW MILK,EVAPORATED,LOWFAT,CND,CARNATION^BC-02479^4-floz.^127
+67 ;;^UTILITY(U,$J,112,9193,1)
+68 ;;=7.087^2.362^9.449^86.614^76.614^^^250.394^.228^25.197^210.236^327.559^108.661^^^^^496.063^.787^.031
+69 ;;^UTILITY(U,$J,112,9193,2)
+70 ;;=.268^.157^^.047^7.874^.213
+71 ;;^UTILITY(U,$J,112,9193,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,9194,0)
+74 ;;=COW MILK,LACTAID,LOWFAT 1%^BC-02480^8-floz.^244
+75 ;;^UTILITY(U,$J,112,9194,1)
+76 ;;=3.279^1.066^4.795^41.803^90.082^^^122.951^.049^13.934^96.311^156.148^50.41^.389^^^^204.918^.82^.041
+77 ;;^UTILITY(U,$J,112,9194,2)
+78 ;;=.168^.082^.324^.045^4.918^.369^^^4.098^.656^.328^.041^59.426^^^^0
+79 ;;^UTILITY(U,$J,112,9194,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,9195,0)
+82 ;;=COW MILK,SKIM^BC-02481^8-floz.^245
+83 ;;^UTILITY(U,$J,112,9195,1)
+84 ;;=3.429^.163^4.857^35.102^90.816^^^123.265^.041^11.429^100.816^165.714^51.429^.4^^^^204.082^.816^.037
+85 ;;^UTILITY(U,$J,112,9195,2)
+86 ;;=.139^.082^.331^.041^5.306^.38^^^1.633^.122^.041^0^60.816^^^^0
+87 ;;^UTILITY(U,$J,112,9195,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,9196,0)
+90 ;;=COW MILK,SKIM,DRY,INST,CARNATION^BC-02469^5-tbsp.^23
+91 ;;^UTILITY(U,$J,112,9196,1)
+92 ;;=34.783^.87^51.304^352.174^3.913^^^1213.043^.304^117.391^973.913^1682.609^543.478^4.348^.304^.017^^2173.913^4.348^.391
+93 ;;^UTILITY(U,$J,112,9196,2)
+94 ;;=1.696^.87^3.174^.348^43.478^.391^^^21.739^.435^0^0^^^^^0
+95 ;;^UTILITY(U,$J,112,9196,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,9197,0)
+98 ;;=COW MILK,SKIM,DRY,INST,SANALAC^BC-02470^1/4-pouch^23
+99 ;;^UTILITY(U,$J,112,9197,1)
+100 ;;=34.783^0^52.174^347.826^^^^1304.348^^^^1652.174^543.478^^^^^^4.348^.391
