FHINI0EX ; ; 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,9236,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9237,0)
;;=MILK,MIX,COCOA MIX,POWDER,SUGAR-FREE,MOCHA,CARNATION^BC-02510^.5-oz.^15
;;^UTILITY(U,$J,112,9237,1)
;;=22.667^2^60.667^326.667^3.333^^^700^3.2^146.667^646.667^1966.667^940^1.933^.733^.02^^26.667^6.667^.267
;;^UTILITY(U,$J,112,9237,2)
;;=1.067^2^2.333^.2^33.333^2.133^^^13.333^1.333^.667^0^^^^^.667
;;^UTILITY(U,$J,112,9237,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9238,0)
;;=MILK,MIX,COCOA MIX,POWDER,SUGAR-FREE,RICH CHOC,CARNATION^BC-02511^.5-oz.^15
;;^UTILITY(U,$J,112,9238,1)
;;=29.333^2.667^55.333^333.333^3.333^^^933.333^3.133^173.333^826.667^2186.667^1046.667^2.667^.1^^^40^6.667^.333
;;^UTILITY(U,$J,112,9238,2)
;;=1.333^.667^3.267^.2^40^2.933^^^20^1.333^.667^0^^^^^.667
;;^UTILITY(U,$J,112,9238,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9239,0)
;;=MILK,MIX,COCOA MIX,POWDER,SUGAR-FREE,SWISS MISS^BC-02512^.53-oz.^15
;;^UTILITY(U,$J,112,9239,1)
;;=26.667^0^60^333.333^^^^800^2.667^^^1133.333^1266.667^^^^^^^.4
;;^UTILITY(U,$J,112,9239,2)
;;=1.8^^^^^^^^13.333^^^^^^^^0
;;^UTILITY(U,$J,112,9239,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9240,0)
;;=MILK,MIX,COCOA,POWDER,SUGAR-FREE W/MARSHMALLOWS,SWISS MISS^BC-02513^.53-oz.^15
;;^UTILITY(U,$J,112,9240,1)
;;=20^0^66.667^333.333^^^^666.667^4.667^^^1333.333^1200^^^^^^^.2
;;^UTILITY(U,$J,112,9240,2)
;;=1.733^^^^^^^^13.333^^^^^^^^0
;;^UTILITY(U,$J,112,9240,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9241,0)
;;=MILK,MIX,COCOA MIX,POWDER W/ CHOC MARSHMALLOWS,CARNATION^BC-02514^pkt.^28
;;^UTILITY(U,$J,112,9241,1)
;;=5^4.286^86.429^385.714^1.786^^^178.571^1.464^60.714^253.571^892.857^428.571^.679^.554^.039^^21.429^0^.107
;;^UTILITY(U,$J,112,9241,2)
;;=.5^.357^1.357^0^14.286^.571^^^7.143^3.929^.714^0^^^^^.714
;;^UTILITY(U,$J,112,9241,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9242,0)
;;=MILK,MIX,COCOA MIX,POWDER W/ MARSHMALLOWS,CARNATION^BC-02515^pkt.^28
;;^UTILITY(U,$J,112,9242,1)
;;=5^3.571^86.786^382.143^2.857^^^203.571^1.607^67.857^285.714^789.286^414.286^1^.521^0^^10.714^0^.107
;;^UTILITY(U,$J,112,9242,2)
;;=.5^.357^1.321^.143^3.571^.571^^^3.571^3.214^.357^0^^^^^.714
;;^UTILITY(U,$J,112,9242,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9243,0)
;;=MILK,MIX,COCOA MIX,POWDER W/ MINI MARSHMALLOWS,SWISS MISS^BC-02516^oz.^28
;;^UTILITY(U,$J,112,9243,1)
;;=7.143^3.929^82.143^392.857^^^^142.857^1.429^^^714.286^607.143^^^^^^^.107
;;^UTILITY(U,$J,112,9243,2)
;;=.357^^^^^^^^7.143^^^0^^^^^0
;;^UTILITY(U,$J,112,9243,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9244,0)
;;=FIT'N FROSTY,ALBA,CHOC^BC-02517^21.26-g^21
;;^UTILITY(U,$J,112,9244,1)
;;=28.571^4.762^52.381^333.333^^^^1476.19^2.048^^838.095^^1000^^^^^1447.619^4.762^.333
;;^UTILITY(U,$J,112,9244,2)
;;=1.429^1.905
;;^UTILITY(U,$J,112,9244,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9245,0)
;;=FIT'N FROSTY,ALBA,CHOC MARSHMALLOW^BC-02518^21.26-g^21
;;^UTILITY(U,$J,112,9245,1)
;;=28.571^4.762^52.381^333.333^^^^1476.19^1.857^^842.857^^1190.476^^^^^1452.381^4.762^.333
;;^UTILITY(U,$J,112,9245,2)
;;=1.381^2.381
;;^UTILITY(U,$J,112,9245,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9246,0)
;;=FIT'N FROSTY,ALBA,DOUBLE FUDGE^BC-02519^21.26-g^21
;;^UTILITY(U,$J,112,9246,1)
;;=28.571^4.762^52.381^333.333^^^^1476.19^2^^823.81^^809.524^^^^^1447.619^4.762^.333
;;^UTILITY(U,$J,112,9246,2)
;;=1.333^1.905
;;^UTILITY(U,$J,112,9246,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9247,0)
;;=FIT'N FROSTY,ALBA,STRAWBERRY^BC-02520^21.26-g^21
;;^UTILITY(U,$J,112,9247,1)
;;=23.81^0^57.143^333.333^^^^1476.19^.476^^890.476^^714.286^^^^^1261.905^4.762^.429
;;^UTILITY(U,$J,112,9247,2)
;;=1.714^2.857
;;^UTILITY(U,$J,112,9247,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9248,0)
;;=FIT'N FROSTY,ALBA,VANILLA^BC-02521^21.26-g^21
;;^UTILITY(U,$J,112,9248,1)
;;=23.81^0^57.143^333.333^^^^1476.19^.476^^866.667^^714.286^^^^^1038.095^4.762^.381
;;^UTILITY(U,$J,112,9248,2)
;;=1.429^9.048
;;^UTILITY(U,$J,112,9248,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9249,0)
;;=MILK,INSTANT BREAKFAST,CHOC,CARNATION^BC-02522^1.28-oz.^36
;;^UTILITY(U,$J,112,9249,1)
;;=18.333^2.5^71.389^361.111^2.778^^^416.667^12.5^222.222^444.444^1141.667^377.778^8.333^1.389^.008^^4861.111^75^.833
FHINI0EX ; ; 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,9236,20)
+2 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+3 ;;^UTILITY(U,$J,112,9237,0)
+4 ;;=MILK,MIX,COCOA MIX,POWDER,SUGAR-FREE,MOCHA,CARNATION^BC-02510^.5-oz.^15
+5 ;;^UTILITY(U,$J,112,9237,1)
+6 ;;=22.667^2^60.667^326.667^3.333^^^700^3.2^146.667^646.667^1966.667^940^1.933^.733^.02^^26.667^6.667^.267
+7 ;;^UTILITY(U,$J,112,9237,2)
+8 ;;=1.067^2^2.333^.2^33.333^2.133^^^13.333^1.333^.667^0^^^^^.667
+9 ;;^UTILITY(U,$J,112,9237,20)
+10 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+11 ;;^UTILITY(U,$J,112,9238,0)
+12 ;;=MILK,MIX,COCOA MIX,POWDER,SUGAR-FREE,RICH CHOC,CARNATION^BC-02511^.5-oz.^15
+13 ;;^UTILITY(U,$J,112,9238,1)
+14 ;;=29.333^2.667^55.333^333.333^3.333^^^933.333^3.133^173.333^826.667^2186.667^1046.667^2.667^.1^^^40^6.667^.333
+15 ;;^UTILITY(U,$J,112,9238,2)
+16 ;;=1.333^.667^3.267^.2^40^2.933^^^20^1.333^.667^0^^^^^.667
+17 ;;^UTILITY(U,$J,112,9238,20)
+18 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+19 ;;^UTILITY(U,$J,112,9239,0)
+20 ;;=MILK,MIX,COCOA MIX,POWDER,SUGAR-FREE,SWISS MISS^BC-02512^.53-oz.^15
+21 ;;^UTILITY(U,$J,112,9239,1)
+22 ;;=26.667^0^60^333.333^^^^800^2.667^^^1133.333^1266.667^^^^^^^.4
+23 ;;^UTILITY(U,$J,112,9239,2)
+24 ;;=1.8^^^^^^^^13.333^^^^^^^^0
+25 ;;^UTILITY(U,$J,112,9239,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,9240,0)
+28 ;;=MILK,MIX,COCOA,POWDER,SUGAR-FREE W/MARSHMALLOWS,SWISS MISS^BC-02513^.53-oz.^15
+29 ;;^UTILITY(U,$J,112,9240,1)
+30 ;;=20^0^66.667^333.333^^^^666.667^4.667^^^1333.333^1200^^^^^^^.2
+31 ;;^UTILITY(U,$J,112,9240,2)
+32 ;;=1.733^^^^^^^^13.333^^^^^^^^0
+33 ;;^UTILITY(U,$J,112,9240,20)
+34 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+35 ;;^UTILITY(U,$J,112,9241,0)
+36 ;;=MILK,MIX,COCOA MIX,POWDER W/ CHOC MARSHMALLOWS,CARNATION^BC-02514^pkt.^28
+37 ;;^UTILITY(U,$J,112,9241,1)
+38 ;;=5^4.286^86.429^385.714^1.786^^^178.571^1.464^60.714^253.571^892.857^428.571^.679^.554^.039^^21.429^0^.107
+39 ;;^UTILITY(U,$J,112,9241,2)
+40 ;;=.5^.357^1.357^0^14.286^.571^^^7.143^3.929^.714^0^^^^^.714
+41 ;;^UTILITY(U,$J,112,9241,20)
+42 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+43 ;;^UTILITY(U,$J,112,9242,0)
+44 ;;=MILK,MIX,COCOA MIX,POWDER W/ MARSHMALLOWS,CARNATION^BC-02515^pkt.^28
+45 ;;^UTILITY(U,$J,112,9242,1)
+46 ;;=5^3.571^86.786^382.143^2.857^^^203.571^1.607^67.857^285.714^789.286^414.286^1^.521^0^^10.714^0^.107
+47 ;;^UTILITY(U,$J,112,9242,2)
+48 ;;=.5^.357^1.321^.143^3.571^.571^^^3.571^3.214^.357^0^^^^^.714
+49 ;;^UTILITY(U,$J,112,9242,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,9243,0)
+52 ;;=MILK,MIX,COCOA MIX,POWDER W/ MINI MARSHMALLOWS,SWISS MISS^BC-02516^oz.^28
+53 ;;^UTILITY(U,$J,112,9243,1)
+54 ;;=7.143^3.929^82.143^392.857^^^^142.857^1.429^^^714.286^607.143^^^^^^^.107
+55 ;;^UTILITY(U,$J,112,9243,2)
+56 ;;=.357^^^^^^^^7.143^^^0^^^^^0
+57 ;;^UTILITY(U,$J,112,9243,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,9244,0)
+60 ;;=FIT'N FROSTY,ALBA,CHOC^BC-02517^21.26-g^21
+61 ;;^UTILITY(U,$J,112,9244,1)
+62 ;;=28.571^4.762^52.381^333.333^^^^1476.19^2.048^^838.095^^1000^^^^^1447.619^4.762^.333
+63 ;;^UTILITY(U,$J,112,9244,2)
+64 ;;=1.429^1.905
+65 ;;^UTILITY(U,$J,112,9244,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,9245,0)
+68 ;;=FIT'N FROSTY,ALBA,CHOC MARSHMALLOW^BC-02518^21.26-g^21
+69 ;;^UTILITY(U,$J,112,9245,1)
+70 ;;=28.571^4.762^52.381^333.333^^^^1476.19^1.857^^842.857^^1190.476^^^^^1452.381^4.762^.333
+71 ;;^UTILITY(U,$J,112,9245,2)
+72 ;;=1.381^2.381
+73 ;;^UTILITY(U,$J,112,9245,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,9246,0)
+76 ;;=FIT'N FROSTY,ALBA,DOUBLE FUDGE^BC-02519^21.26-g^21
+77 ;;^UTILITY(U,$J,112,9246,1)
+78 ;;=28.571^4.762^52.381^333.333^^^^1476.19^2^^823.81^^809.524^^^^^1447.619^4.762^.333
+79 ;;^UTILITY(U,$J,112,9246,2)
+80 ;;=1.333^1.905
+81 ;;^UTILITY(U,$J,112,9246,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,9247,0)
+84 ;;=FIT'N FROSTY,ALBA,STRAWBERRY^BC-02520^21.26-g^21
+85 ;;^UTILITY(U,$J,112,9247,1)
+86 ;;=23.81^0^57.143^333.333^^^^1476.19^.476^^890.476^^714.286^^^^^1261.905^4.762^.429
+87 ;;^UTILITY(U,$J,112,9247,2)
+88 ;;=1.714^2.857
+89 ;;^UTILITY(U,$J,112,9247,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,9248,0)
+92 ;;=FIT'N FROSTY,ALBA,VANILLA^BC-02521^21.26-g^21
+93 ;;^UTILITY(U,$J,112,9248,1)
+94 ;;=23.81^0^57.143^333.333^^^^1476.19^.476^^866.667^^714.286^^^^^1038.095^4.762^.381
+95 ;;^UTILITY(U,$J,112,9248,2)
+96 ;;=1.429^9.048
+97 ;;^UTILITY(U,$J,112,9248,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,9249,0)
+100 ;;=MILK,INSTANT BREAKFAST,CHOC,CARNATION^BC-02522^1.28-oz.^36
+101 ;;^UTILITY(U,$J,112,9249,1)
+102 ;;=18.333^2.5^71.389^361.111^2.778^^^416.667^12.5^222.222^444.444^1141.667^377.778^8.333^1.389^.008^^4861.111^75^.833
