FHINI0EU ; ; 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,9197,2)
;;=1.87^^^^^^^^17.391^^^^434.783
;;^UTILITY(U,$J,112,9197,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9198,0)
;;=TURKEY PASTRAMI,LOUIS RICH^BC-02471^slice^28
;;^UTILITY(U,$J,112,9198,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,9198,2)
;;=^^^^^^^^64.286^1.429^1.429^1.429
;;^UTILITY(U,$J,112,9198,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9199,0)
;;=TURKEY PASTRAMI,OSCAR MAYER^BC-02472^slice^28
;;^UTILITY(U,$J,112,9199,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,9199,2)
;;=.286^5.357^^.286^^2.036^^^60.714
;;^UTILITY(U,$J,112,9199,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9200,0)
;;=TURKEY,SMOKED,LOUIS RICH^BC-02473^slice^28
;;^UTILITY(U,$J,112,9200,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,9200,2)
;;=^^^^^^^^42.857^1.429^1.786^1.071
;;^UTILITY(U,$J,112,9200,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9201,0)
;;=TURKEY SUMMER SAUSAGE,LOUIS RICH^BC-02474^slice^28
;;^UTILITY(U,$J,112,9201,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,9201,2)
;;=^^^^^^^^78.571^4.286^5^3.571
;;^UTILITY(U,$J,112,9201,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9202,0)
;;=TURKEY SUMMER SAUSAGE,OSCAR MAYER^BC-02475^slice^28
;;^UTILITY(U,$J,112,9202,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,9202,2)
;;=.429^5^^.25^^4.107^^^82.143
;;^UTILITY(U,$J,112,9202,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9203,0)
;;=VIENNA SAUSAGE,CND W/ BBQ SCE,ARMOUR STAR^BC-02476^2.5-oz.^71
;;^UTILITY(U,$J,112,9203,1)
;;=8.451^25.352^5.634^281.69^^^^^^^^^873.239
;;^UTILITY(U,$J,112,9203,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9204,0)
;;=VIENNA SAUSAGE,CND W/ BEEF STOCK,ARMOUR STAR^BC-02477^2-oz.^57
;;^UTILITY(U,$J,112,9204,1)
;;=8.772^29.825^1.754^315.789^^^^^^^^^736.842
;;^UTILITY(U,$J,112,9204,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9205,0)
;;=COW MILK,CALCIMILK^BC-02478^8-floz.^244
;;^UTILITY(U,$J,112,9205,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,9205,2)
;;=.168^.082^.324^.045^4.918^.369^^^4.098^.656^.328^.041^59.426^^^^0
;;^UTILITY(U,$J,112,9205,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9206,0)
;;=COW MILK,EVAPORATED,LOWFAT,CND,CARNATION^BC-02479^4-floz.^127
;;^UTILITY(U,$J,112,9206,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,9206,2)
;;=.268^.157^^.047^7.874^.213
;;^UTILITY(U,$J,112,9206,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9207,0)
;;=COW MILK,LACTAID,LOWFAT 1%^BC-02480^8-floz.^244
;;^UTILITY(U,$J,112,9207,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,9207,2)
;;=.168^.082^.324^.045^4.918^.369^^^4.098^.656^.328^.041^59.426^^^^0
;;^UTILITY(U,$J,112,9207,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9208,0)
;;=COW MILK,SKIM^BC-02481^8-floz.^245
;;^UTILITY(U,$J,112,9208,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,9208,2)
;;=.139^.082^.331^.041^5.306^.38^^^1.633^.122^.041^0^60.816^^^^0
;;^UTILITY(U,$J,112,9208,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9209,0)
;;=YOGURT (FROM COW MILK),CUSTARD STYLE FLAVORED,YOPLAIT^BC-02482^6-floz.^170
;;^UTILITY(U,$J,112,9209,1)
;;=4.118^2.353^18.059^107.647^^^^^^^^180.588^58.824
;;^UTILITY(U,$J,112,9209,2)
;;=^^^^^^^^11.765
;;^UTILITY(U,$J,112,9209,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9210,0)
;;=YOGURT (FROM COW MILK),LOWFAT,BREAKFAST,YOPLAIT^BC-02483^6-floz.^170
;;^UTILITY(U,$J,112,9210,1)
;;=4.588^1.882^23.176^122.353^^^^^^^^209.412^53.529
;;^UTILITY(U,$J,112,9210,2)
;;=^^^^^^^^5.882^.941^.588^.353^^^^^1.176
;;^UTILITY(U,$J,112,9210,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
FHINI0EU ; ; 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,9197,2)
+2 ;;=1.87^^^^^^^^17.391^^^^434.783
+3 ;;^UTILITY(U,$J,112,9197,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9198,0)
+6 ;;=TURKEY PASTRAMI,LOUIS RICH^BC-02471^slice^28
+7 ;;^UTILITY(U,$J,112,9198,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,9198,2)
+10 ;;=^^^^^^^^64.286^1.429^1.429^1.429
+11 ;;^UTILITY(U,$J,112,9198,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9199,0)
+14 ;;=TURKEY PASTRAMI,OSCAR MAYER^BC-02472^slice^28
+15 ;;^UTILITY(U,$J,112,9199,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,9199,2)
+18 ;;=.286^5.357^^.286^^2.036^^^60.714
+19 ;;^UTILITY(U,$J,112,9199,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9200,0)
+22 ;;=TURKEY,SMOKED,LOUIS RICH^BC-02473^slice^28
+23 ;;^UTILITY(U,$J,112,9200,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,9200,2)
+26 ;;=^^^^^^^^42.857^1.429^1.786^1.071
+27 ;;^UTILITY(U,$J,112,9200,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,9201,0)
+30 ;;=TURKEY SUMMER SAUSAGE,LOUIS RICH^BC-02474^slice^28
+31 ;;^UTILITY(U,$J,112,9201,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,9201,2)
+34 ;;=^^^^^^^^78.571^4.286^5^3.571
+35 ;;^UTILITY(U,$J,112,9201,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9202,0)
+38 ;;=TURKEY SUMMER SAUSAGE,OSCAR MAYER^BC-02475^slice^28
+39 ;;^UTILITY(U,$J,112,9202,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,9202,2)
+42 ;;=.429^5^^.25^^4.107^^^82.143
+43 ;;^UTILITY(U,$J,112,9202,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9203,0)
+46 ;;=VIENNA SAUSAGE,CND W/ BBQ SCE,ARMOUR STAR^BC-02476^2.5-oz.^71
+47 ;;^UTILITY(U,$J,112,9203,1)
+48 ;;=8.451^25.352^5.634^281.69^^^^^^^^^873.239
+49 ;;^UTILITY(U,$J,112,9203,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,9204,0)
+52 ;;=VIENNA SAUSAGE,CND W/ BEEF STOCK,ARMOUR STAR^BC-02477^2-oz.^57
+53 ;;^UTILITY(U,$J,112,9204,1)
+54 ;;=8.772^29.825^1.754^315.789^^^^^^^^^736.842
+55 ;;^UTILITY(U,$J,112,9204,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,9205,0)
+58 ;;=COW MILK,CALCIMILK^BC-02478^8-floz.^244
+59 ;;^UTILITY(U,$J,112,9205,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,9205,2)
+62 ;;=.168^.082^.324^.045^4.918^.369^^^4.098^.656^.328^.041^59.426^^^^0
+63 ;;^UTILITY(U,$J,112,9205,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,9206,0)
+66 ;;=COW MILK,EVAPORATED,LOWFAT,CND,CARNATION^BC-02479^4-floz.^127
+67 ;;^UTILITY(U,$J,112,9206,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,9206,2)
+70 ;;=.268^.157^^.047^7.874^.213
+71 ;;^UTILITY(U,$J,112,9206,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,9207,0)
+74 ;;=COW MILK,LACTAID,LOWFAT 1%^BC-02480^8-floz.^244
+75 ;;^UTILITY(U,$J,112,9207,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,9207,2)
+78 ;;=.168^.082^.324^.045^4.918^.369^^^4.098^.656^.328^.041^59.426^^^^0
+79 ;;^UTILITY(U,$J,112,9207,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,9208,0)
+82 ;;=COW MILK,SKIM^BC-02481^8-floz.^245
+83 ;;^UTILITY(U,$J,112,9208,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,9208,2)
+86 ;;=.139^.082^.331^.041^5.306^.38^^^1.633^.122^.041^0^60.816^^^^0
+87 ;;^UTILITY(U,$J,112,9208,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,9209,0)
+90 ;;=YOGURT (FROM COW MILK),CUSTARD STYLE FLAVORED,YOPLAIT^BC-02482^6-floz.^170
+91 ;;^UTILITY(U,$J,112,9209,1)
+92 ;;=4.118^2.353^18.059^107.647^^^^^^^^180.588^58.824
+93 ;;^UTILITY(U,$J,112,9209,2)
+94 ;;=^^^^^^^^11.765
+95 ;;^UTILITY(U,$J,112,9209,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,9210,0)
+98 ;;=YOGURT (FROM COW MILK),LOWFAT,BREAKFAST,YOPLAIT^BC-02483^6-floz.^170
+99 ;;^UTILITY(U,$J,112,9210,1)
+100 ;;=4.588^1.882^23.176^122.353^^^^^^^^209.412^53.529
+101 ;;^UTILITY(U,$J,112,9210,2)
+102 ;;=^^^^^^^^5.882^.941^.588^.353^^^^^1.176
+103 ;;^UTILITY(U,$J,112,9210,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
