FHINI0E4 ; ; 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,8845,1)
;;=.16^.16^11.6^48^^^^7.2^.32^5.6^8^110.4^3.2^.032^.016^.08^^^32^.008
;;^UTILITY(U,$J,112,8845,2)
;;=.016^.08^^.024^^^^^^^^^.8
;;^UTILITY(U,$J,112,8845,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8846,0)
;;=BF,JUICE,APPLE CRANBERRY,BEECH-NUT STAGE 2^BC-02119^4.2-floz.^128
;;^UTILITY(U,$J,112,8846,1)
;;=0^0^10.391^42.969^^^^^.5^^^^6.25^^^^^^32.813
;;^UTILITY(U,$J,112,8846,2)
;;=.008
;;^UTILITY(U,$J,112,8846,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8847,0)
;;=BF,JUICE,APPLE GRAPE,BEECH-NUT STAGE 2^BC-02120^4.2-floz.^128
;;^UTILITY(U,$J,112,8847,1)
;;=0^0^11.875^50^^^^^.5^^^^7.031^^^^^^32.813
;;^UTILITY(U,$J,112,8847,2)
;;=.023
;;^UTILITY(U,$J,112,8847,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8848,0)
;;=BF,JUICE,APPLE GRAPE,GERBER SECOND FOOD^BC-02121^4.42-floz.^125
;;^UTILITY(U,$J,112,8848,1)
;;=.16^.16^11.76^48.8^^^^7.2^.24^5.6^7.2^99.2^4.8^.032^.008^.088^^^33.6^.008
;;^UTILITY(U,$J,112,8848,2)
;;=.024^.08^^.032^^^^^^^^^0
;;^UTILITY(U,$J,112,8848,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8849,0)
;;=BF,JUICE,APPLE GRAPE,TODDLER,GERBER^BC-02122^4.42-floz.^128
;;^UTILITY(U,$J,112,8849,1)
;;=.156^.156^11.641^48.438^^^^7.031^.078^4.688^7.031^91.406^3.906^.031^.008^.102^^^31.25^.008
;;^UTILITY(U,$J,112,8849,2)
;;=.023^.078^^.023^^^^^^^^^.781
;;^UTILITY(U,$J,112,8849,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8850,0)
;;=BF,JUICE,APPLE-N-BERRY,TODDLER,GERBER^BC-02123^4.42-floz.^125
;;^UTILITY(U,$J,112,8850,1)
;;=.08^.008^11.2^46.4^^^^10.4^.304^6.4^8^106.4^6.4^.04^.008^.16^^^32^.008
;;^UTILITY(U,$J,112,8850,2)
;;=.024^.08^^.024^^^^^^^^^^^^^.08
;;^UTILITY(U,$J,112,8850,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8851,0)
;;=BF,JUICE,APPLE PEACH,GERBER SECOND FOOD^BC-02124^4.42-floz.^125
;;^UTILITY(U,$J,112,8851,1)
;;=.16^.16^11.12^46.4^^^^5.6^.24^4.8^7.2^108.8^4^.032^.016^.08^^^33.6^.008
;;^UTILITY(U,$J,112,8851,2)
;;=.016^.24^^.024^^^^^^^^^8
;;^UTILITY(U,$J,112,8851,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8852,0)
;;=BF,JUICE,APPLE PINEAPPLE,GERBER SECOND FOOD^BC-02125^4.6-floz.^130
;;^UTILITY(U,$J,112,8852,1)
;;=.231^.231^11.308^47.692^^^^7.692^.1^6.923^6.154^105.385^2.308^.038^.015^.446^^^32.308^.031
;;^UTILITY(U,$J,112,8852,2)
;;=.008^.077^^.038^^^^^^^^^.769^^^^.077
;;^UTILITY(U,$J,112,8852,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8853,0)
;;=BF,JUICE,APPLE PINEAPPLE,STR,HEINZ^BC-02126^jar^130
;;^UTILITY(U,$J,112,8853,1)
;;=.231^.231^11.231^46.923^^^^12.308^.3^^7.692^83.077^5.385^.054^.02^^^16.154^32.308^.023
;;^UTILITY(U,$J,112,8853,2)
;;=.008^.077^^.046
;;^UTILITY(U,$J,112,8853,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8854,0)
;;=BF,JUICE,APPLE PLUM,GERBER SECOND FOOD^BC-02127^4.42-floz.^125
;;^UTILITY(U,$J,112,8854,1)
;;=.24^.16^11.84^49.6^^^^7.2^.24^5.6^7.2^118.4^7.2^.04^.016^.08^^^33.6^.008
;;^UTILITY(U,$J,112,8854,2)
;;=.024^.16^^.032^^^^^^^^^.8
;;^UTILITY(U,$J,112,8854,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8855,0)
;;=BF,JUICE,APPLE PRUNE,GERBER SECOND FOOD^BC-02128^4.42-floz.^125
;;^UTILITY(U,$J,112,8855,1)
;;=.24^.16^12.72^52.8^^^^8.8^.32^8^10.4^129.6^4.8^.056^.016^.088^^^33.6^.008
;;^UTILITY(U,$J,112,8855,2)
;;=.088^.24^^.04^^^^^^^^^.8
;;^UTILITY(U,$J,112,8855,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8856,0)
;;=BF,JUICE,APPLE W/ LOWFAT YOGURT,GERBER^BC-02129^4.4-floz.^124
;;^UTILITY(U,$J,112,8856,1)
;;=2.258^.645^15.161^75.806^^^^79.032^.161^^60.484^132.258^35.484^^^^^^33.871^.024
;;^UTILITY(U,$J,112,8856,2)
;;=.113^.161^^.032^^^^^^^^^1.613
;;^UTILITY(U,$J,112,8856,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8857,0)
;;=BF,JUICE,BANANA MEDLEY W/LOWFAT YOGURT,GERBER^BC-02130^4.4-floz.^124
;;^UTILITY(U,$J,112,8857,1)
;;=2.5^.073^18.065^88.71^^^^79.032^.161^^65.323^161.29^37.097^^^^^^33.871^.024
;;^UTILITY(U,$J,112,8857,2)
;;=.097^.242^^.121^^^^^^^^^3.226
;;^UTILITY(U,$J,112,8857,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8858,0)
;;=BF,JUICE,FRUIT-A-PLENTY,TODDLER,GERBER^BC-02131^4.42-floz.^125
;;^UTILITY(U,$J,112,8858,1)
;;=.16^.16^11.52^48^^^^8.8^.24^5.6^7.2^108^7.2^.04^.008^.136^^^32^.008
;;^UTILITY(U,$J,112,8858,2)
;;=.016^.16^^.024^^^^^^^^^.8
FHINI0E4 ; ; 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,8845,1)
+2 ;;=.16^.16^11.6^48^^^^7.2^.32^5.6^8^110.4^3.2^.032^.016^.08^^^32^.008
+3 ;;^UTILITY(U,$J,112,8845,2)
+4 ;;=.016^.08^^.024^^^^^^^^^.8
+5 ;;^UTILITY(U,$J,112,8845,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,8846,0)
+8 ;;=BF,JUICE,APPLE CRANBERRY,BEECH-NUT STAGE 2^BC-02119^4.2-floz.^128
+9 ;;^UTILITY(U,$J,112,8846,1)
+10 ;;=0^0^10.391^42.969^^^^^.5^^^^6.25^^^^^^32.813
+11 ;;^UTILITY(U,$J,112,8846,2)
+12 ;;=.008
+13 ;;^UTILITY(U,$J,112,8846,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,8847,0)
+16 ;;=BF,JUICE,APPLE GRAPE,BEECH-NUT STAGE 2^BC-02120^4.2-floz.^128
+17 ;;^UTILITY(U,$J,112,8847,1)
+18 ;;=0^0^11.875^50^^^^^.5^^^^7.031^^^^^^32.813
+19 ;;^UTILITY(U,$J,112,8847,2)
+20 ;;=.023
+21 ;;^UTILITY(U,$J,112,8847,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,8848,0)
+24 ;;=BF,JUICE,APPLE GRAPE,GERBER SECOND FOOD^BC-02121^4.42-floz.^125
+25 ;;^UTILITY(U,$J,112,8848,1)
+26 ;;=.16^.16^11.76^48.8^^^^7.2^.24^5.6^7.2^99.2^4.8^.032^.008^.088^^^33.6^.008
+27 ;;^UTILITY(U,$J,112,8848,2)
+28 ;;=.024^.08^^.032^^^^^^^^^0
+29 ;;^UTILITY(U,$J,112,8848,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,8849,0)
+32 ;;=BF,JUICE,APPLE GRAPE,TODDLER,GERBER^BC-02122^4.42-floz.^128
+33 ;;^UTILITY(U,$J,112,8849,1)
+34 ;;=.156^.156^11.641^48.438^^^^7.031^.078^4.688^7.031^91.406^3.906^.031^.008^.102^^^31.25^.008
+35 ;;^UTILITY(U,$J,112,8849,2)
+36 ;;=.023^.078^^.023^^^^^^^^^.781
+37 ;;^UTILITY(U,$J,112,8849,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,8850,0)
+40 ;;=BF,JUICE,APPLE-N-BERRY,TODDLER,GERBER^BC-02123^4.42-floz.^125
+41 ;;^UTILITY(U,$J,112,8850,1)
+42 ;;=.08^.008^11.2^46.4^^^^10.4^.304^6.4^8^106.4^6.4^.04^.008^.16^^^32^.008
+43 ;;^UTILITY(U,$J,112,8850,2)
+44 ;;=.024^.08^^.024^^^^^^^^^^^^^.08
+45 ;;^UTILITY(U,$J,112,8850,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,8851,0)
+48 ;;=BF,JUICE,APPLE PEACH,GERBER SECOND FOOD^BC-02124^4.42-floz.^125
+49 ;;^UTILITY(U,$J,112,8851,1)
+50 ;;=.16^.16^11.12^46.4^^^^5.6^.24^4.8^7.2^108.8^4^.032^.016^.08^^^33.6^.008
+51 ;;^UTILITY(U,$J,112,8851,2)
+52 ;;=.016^.24^^.024^^^^^^^^^8
+53 ;;^UTILITY(U,$J,112,8851,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,8852,0)
+56 ;;=BF,JUICE,APPLE PINEAPPLE,GERBER SECOND FOOD^BC-02125^4.6-floz.^130
+57 ;;^UTILITY(U,$J,112,8852,1)
+58 ;;=.231^.231^11.308^47.692^^^^7.692^.1^6.923^6.154^105.385^2.308^.038^.015^.446^^^32.308^.031
+59 ;;^UTILITY(U,$J,112,8852,2)
+60 ;;=.008^.077^^.038^^^^^^^^^.769^^^^.077
+61 ;;^UTILITY(U,$J,112,8852,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,8853,0)
+64 ;;=BF,JUICE,APPLE PINEAPPLE,STR,HEINZ^BC-02126^jar^130
+65 ;;^UTILITY(U,$J,112,8853,1)
+66 ;;=.231^.231^11.231^46.923^^^^12.308^.3^^7.692^83.077^5.385^.054^.02^^^16.154^32.308^.023
+67 ;;^UTILITY(U,$J,112,8853,2)
+68 ;;=.008^.077^^.046
+69 ;;^UTILITY(U,$J,112,8853,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,8854,0)
+72 ;;=BF,JUICE,APPLE PLUM,GERBER SECOND FOOD^BC-02127^4.42-floz.^125
+73 ;;^UTILITY(U,$J,112,8854,1)
+74 ;;=.24^.16^11.84^49.6^^^^7.2^.24^5.6^7.2^118.4^7.2^.04^.016^.08^^^33.6^.008
+75 ;;^UTILITY(U,$J,112,8854,2)
+76 ;;=.024^.16^^.032^^^^^^^^^.8
+77 ;;^UTILITY(U,$J,112,8854,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,8855,0)
+80 ;;=BF,JUICE,APPLE PRUNE,GERBER SECOND FOOD^BC-02128^4.42-floz.^125
+81 ;;^UTILITY(U,$J,112,8855,1)
+82 ;;=.24^.16^12.72^52.8^^^^8.8^.32^8^10.4^129.6^4.8^.056^.016^.088^^^33.6^.008
+83 ;;^UTILITY(U,$J,112,8855,2)
+84 ;;=.088^.24^^.04^^^^^^^^^.8
+85 ;;^UTILITY(U,$J,112,8855,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,8856,0)
+88 ;;=BF,JUICE,APPLE W/ LOWFAT YOGURT,GERBER^BC-02129^4.4-floz.^124
+89 ;;^UTILITY(U,$J,112,8856,1)
+90 ;;=2.258^.645^15.161^75.806^^^^79.032^.161^^60.484^132.258^35.484^^^^^^33.871^.024
+91 ;;^UTILITY(U,$J,112,8856,2)
+92 ;;=.113^.161^^.032^^^^^^^^^1.613
+93 ;;^UTILITY(U,$J,112,8856,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,8857,0)
+96 ;;=BF,JUICE,BANANA MEDLEY W/LOWFAT YOGURT,GERBER^BC-02130^4.4-floz.^124
+97 ;;^UTILITY(U,$J,112,8857,1)
+98 ;;=2.5^.073^18.065^88.71^^^^79.032^.161^^65.323^161.29^37.097^^^^^^33.871^.024
+99 ;;^UTILITY(U,$J,112,8857,2)
+100 ;;=.097^.242^^.121^^^^^^^^^3.226
+101 ;;^UTILITY(U,$J,112,8857,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,8858,0)
+104 ;;=BF,JUICE,FRUIT-A-PLENTY,TODDLER,GERBER^BC-02131^4.42-floz.^125
+105 ;;^UTILITY(U,$J,112,8858,1)
+106 ;;=.16^.16^11.52^48^^^^8.8^.24^5.6^7.2^108^7.2^.04^.008^.136^^^32^.008
+107 ;;^UTILITY(U,$J,112,8858,2)
+108 ;;=.016^.16^^.024^^^^^^^^^.8
