FHINI0EW ; ; 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,9224,2)
;;=.254^2.366^1.183^.237^46.595^.717^^^14.337^^^^^^^^0
;;^UTILITY(U,$J,112,9224,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9225,0)
;;=MILK,LOWFAT,INSTANT BREAKFAST,CHOC,CARNATION^BC-02498^8-floz.^265
;;^UTILITY(U,$J,112,9225,1)
;;=5.283^2.264^8.302^71.698^^^^149.811^1.743^42.642^125.283^286.792^90.566^1.491^.189^^^849.057^10.943^.151
;;^UTILITY(U,$J,112,9225,2)
;;=.215^1.962^1.049^.189^42.264^.562^^^7.547^1.283^.604^.075^^^^^.075
;;^UTILITY(U,$J,112,9225,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9226,0)
;;=MILK,LOWFAT,INSTANT BREAKFAST,STRAWBERRY,CARNATION^BC-02499^8-floz.^264
;;^UTILITY(U,$J,112,9226,1)
;;=5.303^1.894^8.333^71.97^^^^169.318^1.75^42.803^125.758^253.788^90.909^1.496^.189^^^852.273^10.985^.152
;;^UTILITY(U,$J,112,9226,2)
;;=.216^1.97^1.053^.193^42.424^.564^^^7.955^1.174^.53^.076^^^^^.038
;;^UTILITY(U,$J,112,9226,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9227,0)
;;=MILK,LOWFAT,INSTANT BREAKFAST,VAN,CARNATION^BC-02500^8-floz.^264
;;^UTILITY(U,$J,112,9227,1)
;;=5.303^1.894^8.333^71.97^^^^169.318^1.75^42.803^125.758^253.788^90.909^1.496^.189^^^852.273^10.985^.152
;;^UTILITY(U,$J,112,9227,2)
;;=.216^1.97^1.053^.193^42.424^.564^^^7.955^1.136^.53^.076^^^^^.038
;;^UTILITY(U,$J,112,9227,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9228,0)
;;=MILK,INSTANT BREAKFAST VAN/STAWBERRY,LIQUID,DELMARK^BC-02501^8-floz.^279
;;^UTILITY(U,$J,112,9228,1)
;;=4.301^2.867^11.828^89.606^^^^107.527^1.613^21.505^107.527^172.043^68.1^1.326^.179^.358^^448.029^5.376^.133
;;^UTILITY(U,$J,112,9228,2)
;;=.151^1.792^.896^.179^35.842^.538^^^7.168
;;^UTILITY(U,$J,112,9228,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9229,0)
;;=MILK,LACTAID,CHOC,LOWFAT 1%^BC-02502^8-floz.^250
;;^UTILITY(U,$J,112,9229,1)
;;=3.24^1^10.44^63.2^84.52^^^114.8^.24^13.2^102.4^170.4^60.8^.408^^^^200^.8^.04
;;^UTILITY(U,$J,112,9229,2)
;;=.168^.12^.304^.04^4.8^.344^^^2.8^.6^.32^.04^59.2^^^^.08
;;^UTILITY(U,$J,112,9229,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9230,0)
;;=MILK,MIX,COCOA MIX,POWDER,ALBA^BC-02503^.68-oz.^19
;;^UTILITY(U,$J,112,9230,1)
;;=28.421^2.632^53.684^326.316^^^^1700^.368^^1252.632^2236.842^705.263^^^^^1489.474^5.263^.316
;;^UTILITY(U,$J,112,9230,2)
;;=1.526^1.053^^^^^^^21.053
;;^UTILITY(U,$J,112,9230,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9231,0)
;;=MILK,MIX,COCOA MIX,POWDER,CHOC FUDGE,CARNATION^BC-02504^pkt.^28
;;^UTILITY(U,$J,112,9231,1)
;;=5^4.643^86.071^378.571^1.786^^^157.143^2.25^71.429^235.714^914.286^478.571^.964^.85^.007^^17.857^0^.107
;;^UTILITY(U,$J,112,9231,2)
;;=.357^.357^1.179^0^10.714^.464^^^3.571^3.929^.714^0^^^^^1.071
;;^UTILITY(U,$J,112,9231,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9232,0)
;;=MILK,MIX,COCOA MIX,POWDER,DIET,SWISS MISS^BC-02505^.26-oz.^7
;;^UTILITY(U,$J,112,9232,1)
;;=28.571^0^42.857^285.714^^^^1142.857^5.714^^^2428.571^2571.429^^^^^^^.429
;;^UTILITY(U,$J,112,9232,2)
;;=1.429^^^^^^^^28.571^^^^^^^^0
;;^UTILITY(U,$J,112,9232,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9233,0)
;;=MILK,MIX,COCOA MIX,POWDER,DOUBLE RICH,SWISS MISS^BC-02506^oz.^28
;;^UTILITY(U,$J,112,9233,1)
;;=7.143^10.714^78.571^392.857^^^^142.857^2.5^^^446.429^642.857^^^^^^^.107
;;^UTILITY(U,$J,112,9233,2)
;;=.357^^^^^^^^7.143^5.357^^0^^^^^0
;;^UTILITY(U,$J,112,9233,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9234,0)
;;=MILK,MIX,COCOA MIX,POWDER,HERSHEY^BC-02507^.75-oz.^21
;;^UTILITY(U,$J,112,9234,1)
;;=4.762^1.905^80^361.905^^^^28.571^3.286^109.524^80.952^423.81^238.095^180.952^.8^.8^^19.048^^.048
;;^UTILITY(U,$J,112,9234,2)
;;=.048^.476
;;^UTILITY(U,$J,112,9234,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9235,0)
;;=MILK,MIX,COCOA MIX,POWDER,LITE,SWISS MISS^BC-02508^.75-oz.^21
;;^UTILITY(U,$J,112,9235,1)
;;=9.524^0^80.952^333.333^^^^285.714^1.905^^^952.381^857.143^^^^^^^.143
;;^UTILITY(U,$J,112,9235,2)
;;=.476^^^^^^^^4.762^^^^^^^^0
;;^UTILITY(U,$J,112,9235,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9236,0)
;;=MILK,MIX,COCOA MIX,POWDER,MILK CHOC,SWISS MISS^BC-02509^oz.^28
;;^UTILITY(U,$J,112,9236,1)
;;=3.571^10.714^71.429^392.857^^^^142.857^2.5^^^535.714^607.143
;;^UTILITY(U,$J,112,9236,2)
;;=.25^^^^^^^^7.143^4.643^^0^^^^^0
FHINI0EW ; ; 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,9224,2)
+2 ;;=.254^2.366^1.183^.237^46.595^.717^^^14.337^^^^^^^^0
+3 ;;^UTILITY(U,$J,112,9224,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9225,0)
+6 ;;=MILK,LOWFAT,INSTANT BREAKFAST,CHOC,CARNATION^BC-02498^8-floz.^265
+7 ;;^UTILITY(U,$J,112,9225,1)
+8 ;;=5.283^2.264^8.302^71.698^^^^149.811^1.743^42.642^125.283^286.792^90.566^1.491^.189^^^849.057^10.943^.151
+9 ;;^UTILITY(U,$J,112,9225,2)
+10 ;;=.215^1.962^1.049^.189^42.264^.562^^^7.547^1.283^.604^.075^^^^^.075
+11 ;;^UTILITY(U,$J,112,9225,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9226,0)
+14 ;;=MILK,LOWFAT,INSTANT BREAKFAST,STRAWBERRY,CARNATION^BC-02499^8-floz.^264
+15 ;;^UTILITY(U,$J,112,9226,1)
+16 ;;=5.303^1.894^8.333^71.97^^^^169.318^1.75^42.803^125.758^253.788^90.909^1.496^.189^^^852.273^10.985^.152
+17 ;;^UTILITY(U,$J,112,9226,2)
+18 ;;=.216^1.97^1.053^.193^42.424^.564^^^7.955^1.174^.53^.076^^^^^.038
+19 ;;^UTILITY(U,$J,112,9226,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9227,0)
+22 ;;=MILK,LOWFAT,INSTANT BREAKFAST,VAN,CARNATION^BC-02500^8-floz.^264
+23 ;;^UTILITY(U,$J,112,9227,1)
+24 ;;=5.303^1.894^8.333^71.97^^^^169.318^1.75^42.803^125.758^253.788^90.909^1.496^.189^^^852.273^10.985^.152
+25 ;;^UTILITY(U,$J,112,9227,2)
+26 ;;=.216^1.97^1.053^.193^42.424^.564^^^7.955^1.136^.53^.076^^^^^.038
+27 ;;^UTILITY(U,$J,112,9227,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,9228,0)
+30 ;;=MILK,INSTANT BREAKFAST VAN/STAWBERRY,LIQUID,DELMARK^BC-02501^8-floz.^279
+31 ;;^UTILITY(U,$J,112,9228,1)
+32 ;;=4.301^2.867^11.828^89.606^^^^107.527^1.613^21.505^107.527^172.043^68.1^1.326^.179^.358^^448.029^5.376^.133
+33 ;;^UTILITY(U,$J,112,9228,2)
+34 ;;=.151^1.792^.896^.179^35.842^.538^^^7.168
+35 ;;^UTILITY(U,$J,112,9228,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9229,0)
+38 ;;=MILK,LACTAID,CHOC,LOWFAT 1%^BC-02502^8-floz.^250
+39 ;;^UTILITY(U,$J,112,9229,1)
+40 ;;=3.24^1^10.44^63.2^84.52^^^114.8^.24^13.2^102.4^170.4^60.8^.408^^^^200^.8^.04
+41 ;;^UTILITY(U,$J,112,9229,2)
+42 ;;=.168^.12^.304^.04^4.8^.344^^^2.8^.6^.32^.04^59.2^^^^.08
+43 ;;^UTILITY(U,$J,112,9229,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9230,0)
+46 ;;=MILK,MIX,COCOA MIX,POWDER,ALBA^BC-02503^.68-oz.^19
+47 ;;^UTILITY(U,$J,112,9230,1)
+48 ;;=28.421^2.632^53.684^326.316^^^^1700^.368^^1252.632^2236.842^705.263^^^^^1489.474^5.263^.316
+49 ;;^UTILITY(U,$J,112,9230,2)
+50 ;;=1.526^1.053^^^^^^^21.053
+51 ;;^UTILITY(U,$J,112,9230,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,9231,0)
+54 ;;=MILK,MIX,COCOA MIX,POWDER,CHOC FUDGE,CARNATION^BC-02504^pkt.^28
+55 ;;^UTILITY(U,$J,112,9231,1)
+56 ;;=5^4.643^86.071^378.571^1.786^^^157.143^2.25^71.429^235.714^914.286^478.571^.964^.85^.007^^17.857^0^.107
+57 ;;^UTILITY(U,$J,112,9231,2)
+58 ;;=.357^.357^1.179^0^10.714^.464^^^3.571^3.929^.714^0^^^^^1.071
+59 ;;^UTILITY(U,$J,112,9231,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,9232,0)
+62 ;;=MILK,MIX,COCOA MIX,POWDER,DIET,SWISS MISS^BC-02505^.26-oz.^7
+63 ;;^UTILITY(U,$J,112,9232,1)
+64 ;;=28.571^0^42.857^285.714^^^^1142.857^5.714^^^2428.571^2571.429^^^^^^^.429
+65 ;;^UTILITY(U,$J,112,9232,2)
+66 ;;=1.429^^^^^^^^28.571^^^^^^^^0
+67 ;;^UTILITY(U,$J,112,9232,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,9233,0)
+70 ;;=MILK,MIX,COCOA MIX,POWDER,DOUBLE RICH,SWISS MISS^BC-02506^oz.^28
+71 ;;^UTILITY(U,$J,112,9233,1)
+72 ;;=7.143^10.714^78.571^392.857^^^^142.857^2.5^^^446.429^642.857^^^^^^^.107
+73 ;;^UTILITY(U,$J,112,9233,2)
+74 ;;=.357^^^^^^^^7.143^5.357^^0^^^^^0
+75 ;;^UTILITY(U,$J,112,9233,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,9234,0)
+78 ;;=MILK,MIX,COCOA MIX,POWDER,HERSHEY^BC-02507^.75-oz.^21
+79 ;;^UTILITY(U,$J,112,9234,1)
+80 ;;=4.762^1.905^80^361.905^^^^28.571^3.286^109.524^80.952^423.81^238.095^180.952^.8^.8^^19.048^^.048
+81 ;;^UTILITY(U,$J,112,9234,2)
+82 ;;=.048^.476
+83 ;;^UTILITY(U,$J,112,9234,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,9235,0)
+86 ;;=MILK,MIX,COCOA MIX,POWDER,LITE,SWISS MISS^BC-02508^.75-oz.^21
+87 ;;^UTILITY(U,$J,112,9235,1)
+88 ;;=9.524^0^80.952^333.333^^^^285.714^1.905^^^952.381^857.143^^^^^^^.143
+89 ;;^UTILITY(U,$J,112,9235,2)
+90 ;;=.476^^^^^^^^4.762^^^^^^^^0
+91 ;;^UTILITY(U,$J,112,9235,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,9236,0)
+94 ;;=MILK,MIX,COCOA MIX,POWDER,MILK CHOC,SWISS MISS^BC-02509^oz.^28
+95 ;;^UTILITY(U,$J,112,9236,1)
+96 ;;=3.571^10.714^71.429^392.857^^^^142.857^2.5^^^535.714^607.143
+97 ;;^UTILITY(U,$J,112,9236,2)
+98 ;;=.25^^^^^^^^7.143^4.643^^0^^^^^0
