FHINI0EY ; ; 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,9249,2)
;;=.472^13.889^5.556^1.111^277.778^1.667^^^5.556^1.389^.833^.278^^^^^.556
;;^UTILITY(U,$J,112,9249,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9250,0)
;;=MILK,INSTANT BREAKFAST,CHOC,PILLSBURY^BC-02523^1.2-oz.^35
;;^UTILITY(U,$J,112,9250,1)
;;=16.286^1.429^73.429^371.429^2.571^^^260^16.114^^254.286^731.429^402.857^^^^^4802.857^65.714^1.314
;;^UTILITY(U,$J,112,9250,2)
;;=1^16.571
;;^UTILITY(U,$J,112,9250,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9251,0)
;;=MILK,INSTANT BREAKFAST,EGGNOG,CARNATION^BC-02524^1.20-oz.^34
;;^UTILITY(U,$J,112,9251,1)
;;=20.588^0^70.588^382.353^2.941^^^397.059^13.235^235.294^367.647^647.059^529.412^8.824^1.471^^^5147.059^79.412^.882
;;^UTILITY(U,$J,112,9251,2)
;;=.529^14.706^5.882^1.176^294.118^176.471
;;^UTILITY(U,$J,112,9251,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9252,0)
;;=MILK,INSTANT BREAKFAST,STRAWBERRY,CARNATION^BC-02525^1.26-oz.^36
;;^UTILITY(U,$J,112,9252,1)
;;=18.333^.556^71.667^361.111^3.333^^^416.667^12.5^222.222^416.667^841.667^577.778^8.333^1.389^.008^^4861.111^75^.833
;;^UTILITY(U,$J,112,9252,2)
;;=.472^13.889^5.556^1.111^1111.111^1.667^^^8.333^.278^0^0^^^^^.278
;;^UTILITY(U,$J,112,9252,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9253,0)
;;=MILK,INSTANT BREAKFAST,STRAWBERRY, PILLSBURY^BC-02526^1.2-oz.^35
;;^UTILITY(U,$J,112,9253,1)
;;=15.429^.571^75.429^371.429^2.571^^^260^15.429^^200^714.286^371.429^^^^^4802.857^65.714^1.257
;;^UTILITY(U,$J,112,9253,2)
;;=.914^16.571
;;^UTILITY(U,$J,112,9253,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9254,0)
;;=MILK,INSTANT BREAKFAST,VANILLA,CARNATION^BC-02527^1.25-oz.^35
;;^UTILITY(U,$J,112,9254,1)
;;=18.857^.571^73.429^371.429^2.857^^^428.571^12.857^228.571^428.571^860^382.857^8.571^1.429^.123^^5000^77.143^.857
;;^UTILITY(U,$J,112,9254,2)
;;=.486^14.286^5.714^1.143^285.714^1.714^^^8.571^.286^0^0^^^^^.286
;;^UTILITY(U,$J,112,9254,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9255,0)
;;=MILK,INSTANT BREAKFAST,VANILLA,PILLSBURY^BC-02528^1.2-oz.^35
;;^UTILITY(U,$J,112,9255,1)
;;=15.429^.571^78^380^2.286^^^225.714^14.571^^317.143^654.286^565.714^^^^^4817.143^65.714^.943
;;^UTILITY(U,$J,112,9255,2)
;;=.657^13.429
;;^UTILITY(U,$J,112,9255,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9256,0)
;;=MILK,INSTANT BREAKFAST,NO SUGAR ADDED,CHOC,CARNATION^BC-02529^.72-oz.^21
;;^UTILITY(U,$J,112,9256,1)
;;=31.429^4.762^49.524^333.333^4.286^^^476.19^21.429^380.952^476.19^1800^538.095^14.286^2.381^.148^^8333.333^128.571^1.429
;;^UTILITY(U,$J,112,9256,2)
;;=.81^23.81^9.524^1.905^476.19^2.857^^^9.524^2.381^1.429^0^^^^^.952
;;^UTILITY(U,$J,112,9256,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9257,0)
;;=MILK,INSTANT BREAKFAST,NO SUGAR ADDED,STRAWBERRY,CARNATION^BC-02530^.69-oz.^20
;;^UTILITY(U,$J,112,9257,1)
;;=33^1^51.5^350^4^^^750^22.5^400^500^1425^580^15^2.5^.02^^8750^135^1.5
;;^UTILITY(U,$J,112,9257,2)
;;=.85^25^10^2^500^3^^^15^1^.5^0^^^^^.5
;;^UTILITY(U,$J,112,9257,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9258,0)
;;=MILK,INSTANT BREAKFAST,NO SUGAR ADDED,VANILLA,CARNATION^BC-02531^.69-oz.^20
;;^UTILITY(U,$J,112,9258,1)
;;=33^1^52^350^4^^^750^22.5^400^500^1430^580^15^2.5^.02^^8750^135^1.5
;;^UTILITY(U,$J,112,9258,2)
;;=.85^25^10^2^500^3^^^15^.5^0^0^^^^^.5
;;^UTILITY(U,$J,112,9258,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9259,0)
;;=MILK,MALTED,POWDER,CARNATION^BC-02532^3/4-oz.^21
;;^UTILITY(U,$J,112,9259,1)
;;=13.333^8.571^72.381^409.524^1.905^^^266.667^.762^95.238^376.19^757.143^457.143^1^.2^^^323.81^0^.524
;;^UTILITY(U,$J,112,9259,2)
;;=.667^5.238^1.429^.381^47.619^.762^^^0^4.762^2.381^1.429
;;^UTILITY(U,$J,112,9259,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9260,0)
;;=ALMONDS,BARBEQUE,BLUE DIAMOND^BC-02533^oz.^28
;;^UTILITY(U,$J,112,9260,1)
;;=21.786^53.214^17.143^592.857^1.429^^^328.571^3.821^^^414.286^614.286^^^^^^^.107
;;^UTILITY(U,$J,112,9260,2)
;;=1.179^3.571
;;^UTILITY(U,$J,112,9260,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9261,0)
;;=ALMONDS,BLANCHED,BLUE DIAMOND^BC-02534^oz.^28
;;^UTILITY(U,$J,112,9261,1)
;;=21.429^51.429^18.571^621.429^5^^^260.714^3.893^307.143^535.714^617.857^3.571^3.357^1.107^^^^^.143
FHINI0EY ; ; 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,9249,2)
+2 ;;=.472^13.889^5.556^1.111^277.778^1.667^^^5.556^1.389^.833^.278^^^^^.556
+3 ;;^UTILITY(U,$J,112,9249,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9250,0)
+6 ;;=MILK,INSTANT BREAKFAST,CHOC,PILLSBURY^BC-02523^1.2-oz.^35
+7 ;;^UTILITY(U,$J,112,9250,1)
+8 ;;=16.286^1.429^73.429^371.429^2.571^^^260^16.114^^254.286^731.429^402.857^^^^^4802.857^65.714^1.314
+9 ;;^UTILITY(U,$J,112,9250,2)
+10 ;;=1^16.571
+11 ;;^UTILITY(U,$J,112,9250,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9251,0)
+14 ;;=MILK,INSTANT BREAKFAST,EGGNOG,CARNATION^BC-02524^1.20-oz.^34
+15 ;;^UTILITY(U,$J,112,9251,1)
+16 ;;=20.588^0^70.588^382.353^2.941^^^397.059^13.235^235.294^367.647^647.059^529.412^8.824^1.471^^^5147.059^79.412^.882
+17 ;;^UTILITY(U,$J,112,9251,2)
+18 ;;=.529^14.706^5.882^1.176^294.118^176.471
+19 ;;^UTILITY(U,$J,112,9251,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9252,0)
+22 ;;=MILK,INSTANT BREAKFAST,STRAWBERRY,CARNATION^BC-02525^1.26-oz.^36
+23 ;;^UTILITY(U,$J,112,9252,1)
+24 ;;=18.333^.556^71.667^361.111^3.333^^^416.667^12.5^222.222^416.667^841.667^577.778^8.333^1.389^.008^^4861.111^75^.833
+25 ;;^UTILITY(U,$J,112,9252,2)
+26 ;;=.472^13.889^5.556^1.111^1111.111^1.667^^^8.333^.278^0^0^^^^^.278
+27 ;;^UTILITY(U,$J,112,9252,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,9253,0)
+30 ;;=MILK,INSTANT BREAKFAST,STRAWBERRY, PILLSBURY^BC-02526^1.2-oz.^35
+31 ;;^UTILITY(U,$J,112,9253,1)
+32 ;;=15.429^.571^75.429^371.429^2.571^^^260^15.429^^200^714.286^371.429^^^^^4802.857^65.714^1.257
+33 ;;^UTILITY(U,$J,112,9253,2)
+34 ;;=.914^16.571
+35 ;;^UTILITY(U,$J,112,9253,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9254,0)
+38 ;;=MILK,INSTANT BREAKFAST,VANILLA,CARNATION^BC-02527^1.25-oz.^35
+39 ;;^UTILITY(U,$J,112,9254,1)
+40 ;;=18.857^.571^73.429^371.429^2.857^^^428.571^12.857^228.571^428.571^860^382.857^8.571^1.429^.123^^5000^77.143^.857
+41 ;;^UTILITY(U,$J,112,9254,2)
+42 ;;=.486^14.286^5.714^1.143^285.714^1.714^^^8.571^.286^0^0^^^^^.286
+43 ;;^UTILITY(U,$J,112,9254,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9255,0)
+46 ;;=MILK,INSTANT BREAKFAST,VANILLA,PILLSBURY^BC-02528^1.2-oz.^35
+47 ;;^UTILITY(U,$J,112,9255,1)
+48 ;;=15.429^.571^78^380^2.286^^^225.714^14.571^^317.143^654.286^565.714^^^^^4817.143^65.714^.943
+49 ;;^UTILITY(U,$J,112,9255,2)
+50 ;;=.657^13.429
+51 ;;^UTILITY(U,$J,112,9255,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,9256,0)
+54 ;;=MILK,INSTANT BREAKFAST,NO SUGAR ADDED,CHOC,CARNATION^BC-02529^.72-oz.^21
+55 ;;^UTILITY(U,$J,112,9256,1)
+56 ;;=31.429^4.762^49.524^333.333^4.286^^^476.19^21.429^380.952^476.19^1800^538.095^14.286^2.381^.148^^8333.333^128.571^1.429
+57 ;;^UTILITY(U,$J,112,9256,2)
+58 ;;=.81^23.81^9.524^1.905^476.19^2.857^^^9.524^2.381^1.429^0^^^^^.952
+59 ;;^UTILITY(U,$J,112,9256,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,9257,0)
+62 ;;=MILK,INSTANT BREAKFAST,NO SUGAR ADDED,STRAWBERRY,CARNATION^BC-02530^.69-oz.^20
+63 ;;^UTILITY(U,$J,112,9257,1)
+64 ;;=33^1^51.5^350^4^^^750^22.5^400^500^1425^580^15^2.5^.02^^8750^135^1.5
+65 ;;^UTILITY(U,$J,112,9257,2)
+66 ;;=.85^25^10^2^500^3^^^15^1^.5^0^^^^^.5
+67 ;;^UTILITY(U,$J,112,9257,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,9258,0)
+70 ;;=MILK,INSTANT BREAKFAST,NO SUGAR ADDED,VANILLA,CARNATION^BC-02531^.69-oz.^20
+71 ;;^UTILITY(U,$J,112,9258,1)
+72 ;;=33^1^52^350^4^^^750^22.5^400^500^1430^580^15^2.5^.02^^8750^135^1.5
+73 ;;^UTILITY(U,$J,112,9258,2)
+74 ;;=.85^25^10^2^500^3^^^15^.5^0^0^^^^^.5
+75 ;;^UTILITY(U,$J,112,9258,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,9259,0)
+78 ;;=MILK,MALTED,POWDER,CARNATION^BC-02532^3/4-oz.^21
+79 ;;^UTILITY(U,$J,112,9259,1)
+80 ;;=13.333^8.571^72.381^409.524^1.905^^^266.667^.762^95.238^376.19^757.143^457.143^1^.2^^^323.81^0^.524
+81 ;;^UTILITY(U,$J,112,9259,2)
+82 ;;=.667^5.238^1.429^.381^47.619^.762^^^0^4.762^2.381^1.429
+83 ;;^UTILITY(U,$J,112,9259,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,9260,0)
+86 ;;=ALMONDS,BARBEQUE,BLUE DIAMOND^BC-02533^oz.^28
+87 ;;^UTILITY(U,$J,112,9260,1)
+88 ;;=21.786^53.214^17.143^592.857^1.429^^^328.571^3.821^^^414.286^614.286^^^^^^^.107
+89 ;;^UTILITY(U,$J,112,9260,2)
+90 ;;=1.179^3.571
+91 ;;^UTILITY(U,$J,112,9260,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,9261,0)
+94 ;;=ALMONDS,BLANCHED,BLUE DIAMOND^BC-02534^oz.^28
+95 ;;^UTILITY(U,$J,112,9261,1)
+96 ;;=21.429^51.429^18.571^621.429^5^^^260.714^3.893^307.143^535.714^617.857^3.571^3.357^1.107^^^^^.143
