FHINI0E3 ; ; 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,8831,2)
;;=.044^1.327^^.071^^^^^^^^^138.053
;;^UTILITY(U,$J,112,8831,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8832,0)
;;=BF,DINNER,CHICKEN W/VEG,GERBER SECOND FOOD^BC-02105^4-oz.^113
;;^UTILITY(U,$J,112,8832,1)
;;=5.752^1.77^6.46^64.602^^^^28.319^.531^^^119.469^24.779^^^^^^1.77^.027
;;^UTILITY(U,$J,112,8832,2)
;;=.062^1.504^^.062^^^^^^^^^125.664
;;^UTILITY(U,$J,112,8832,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8833,0)
;;=BF,DINNER,HAM W/VEG,GERBER THIRD FOOD^BC-02106^4-oz.^113
;;^UTILITY(U,$J,112,8833,1)
;;=6.372^2.478^8.319^81.416^^^^6.195^.708^^^138.053^20.354^^^^^^2.655^.097
;;^UTILITY(U,$J,112,8833,2)
;;=.053^1.416^^.106^^^^^^^^^40.708
;;^UTILITY(U,$J,112,8833,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8834,0)
;;=BF,DINNER,HAM W/VEG,GERBER SECOND FOOD^BC-02107^4-oz.^113
;;^UTILITY(U,$J,112,8834,1)
;;=5.929^2.92^7.434^79.646^^^^6.195^.708^^^130.088^19.469^^^^^^2.655^.097
;;^UTILITY(U,$J,112,8834,2)
;;=.062^1.327^^.097^^^^^^^^^34.513
;;^UTILITY(U,$J,112,8834,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8835,0)
;;=BF,DINNER,TURKEY W/VEG,GERBER THIRD FOOD^BC-02108^4-oz.^113
;;^UTILITY(U,$J,112,8835,1)
;;=5.31^3.009^7.965^79.646^^^^7.965^.442^^^120.354^23.894^^^^^^2.655^.027
;;^UTILITY(U,$J,112,8835,2)
;;=.044^1.416^^.08^^^^^^^^^82.301
;;^UTILITY(U,$J,112,8835,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8836,0)
;;=BF,DINNER,TURKEY W/VEG,GERBER SECOND FOOD^BC-02109^4-oz.^113
;;^UTILITY(U,$J,112,8836,1)
;;=5.575^2.478^7.08^73.451^^^^10.619^.442^^^115.044^23.894^^^^^^2.655^.018
;;^UTILITY(U,$J,112,8836,2)
;;=.08^1.327^^.08^^^^^^^^^50.442
;;^UTILITY(U,$J,112,8836,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8837,0)
;;=BF,JUICE,APPLE,BEECH-NUT STAGE 1^BC-02110^4.2-floz.^128
;;^UTILITY(U,$J,112,8837,1)
;;=0^0^10.078^42.188^^^^^.5^^^^7.031^^^^^^33.594
;;^UTILITY(U,$J,112,8837,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8838,0)
;;=BF,JUICE,APPLE,GERBER SECOND FOOD^BC-02111^4.42-floz.^125
;;^UTILITY(U,$J,112,8838,1)
;;=.08^.16^11.52^48^^^^3.2^.16^4^6.4^92.8^1.6^.024^.016^.184^^^33.6^.016
;;^UTILITY(U,$J,112,8838,2)
;;=.016^.08^^.032^^^^^^^^^.8
;;^UTILITY(U,$J,112,8838,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8839,0)
;;=BF,JUICE,APPLE,TODDLER,GERBER^BC-02112^4.42-floz.^125
;;^UTILITY(U,$J,112,8839,1)
;;=.16^.16^11.6^48^^^^3.2^.16^4^6.4^91.2^1.6^.024^.016^.192^^^32^.008
;;^UTILITY(U,$J,112,8839,2)
;;=.008^.08^^.032^^^^^^^^^.8
;;^UTILITY(U,$J,112,8839,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8840,0)
;;=BF,JUICE,APPLE APRICOT,GERBER SECOND FOOD^BC-02113^4.6-floz.^130
;;^UTILITY(U,$J,112,8840,1)
;;=.231^.077^11.692^49.231^^^^6.154^.2^5.385^7.692^113.077^3.077^.038^.015^.069^^^32.308^.008
;;^UTILITY(U,$J,112,8840,2)
;;=.023^.154^^.023^^^^^^^^^45.385^^^^.231
;;^UTILITY(U,$J,112,8840,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8841,0)
;;=BF,JUICE,APPLE APRICOT,STR HEINZ^BC-02114^jar^130
;;^UTILITY(U,$J,112,8841,1)
;;=.077^.231^11.308^46.923^^^^10.769^.5^^10.769^113.846^6.154^.069^.03^^^425.385^32.308^.023
;;^UTILITY(U,$J,112,8841,2)
;;=.008^.154^^.031
;;^UTILITY(U,$J,112,8841,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8842,0)
;;=BF,JUICE,APPLE BANANA,GERBER SECOND FOOD^BC-02115^4.42-floz.^125
;;^UTILITY(U,$J,112,8842,1)
;;=.24^.16^12.08^51.2^^^^4.8^.16^6.4^7.2^118.4^1.6^.04^.016^.256^^^33.6^.008
;;^UTILITY(U,$J,112,8842,2)
;;=.016^.16^^.056^^^^^^^^^1.6
;;^UTILITY(U,$J,112,8842,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8843,0)
;;=BF,JUICE,APPLE CHERRY,BEECH-NUT STAGE 2^BC-02116^4.2-floz.^128
;;^UTILITY(U,$J,112,8843,1)
;;=0^0^10.625^43.75^^^^^.703^^^^4.688^^^^^^32.813
;;^UTILITY(U,$J,112,8843,2)
;;=.008
;;^UTILITY(U,$J,112,8843,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8844,0)
;;=BF,JUICE,APPLE CHERRY, GERBER SECOND FOOD^BC-02117^4.42-floz.^125
;;^UTILITY(U,$J,112,8844,1)
;;=.16^.08^11.52^48^^^^7.2^.4^5.6^8^108.8^4^.032^.016^.072^^^33.6^.008
;;^UTILITY(U,$J,112,8844,2)
;;=.024^.08^^.032^^^^^^^^^0
;;^UTILITY(U,$J,112,8844,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8845,0)
;;=BF,JUICE,APPLE CHERRY,TODDLER,GERBER^BC-02118^4.42-floz.^125
FHINI0E3 ; ; 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,8831,2)
+2 ;;=.044^1.327^^.071^^^^^^^^^138.053
+3 ;;^UTILITY(U,$J,112,8831,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,8832,0)
+6 ;;=BF,DINNER,CHICKEN W/VEG,GERBER SECOND FOOD^BC-02105^4-oz.^113
+7 ;;^UTILITY(U,$J,112,8832,1)
+8 ;;=5.752^1.77^6.46^64.602^^^^28.319^.531^^^119.469^24.779^^^^^^1.77^.027
+9 ;;^UTILITY(U,$J,112,8832,2)
+10 ;;=.062^1.504^^.062^^^^^^^^^125.664
+11 ;;^UTILITY(U,$J,112,8832,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,8833,0)
+14 ;;=BF,DINNER,HAM W/VEG,GERBER THIRD FOOD^BC-02106^4-oz.^113
+15 ;;^UTILITY(U,$J,112,8833,1)
+16 ;;=6.372^2.478^8.319^81.416^^^^6.195^.708^^^138.053^20.354^^^^^^2.655^.097
+17 ;;^UTILITY(U,$J,112,8833,2)
+18 ;;=.053^1.416^^.106^^^^^^^^^40.708
+19 ;;^UTILITY(U,$J,112,8833,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,8834,0)
+22 ;;=BF,DINNER,HAM W/VEG,GERBER SECOND FOOD^BC-02107^4-oz.^113
+23 ;;^UTILITY(U,$J,112,8834,1)
+24 ;;=5.929^2.92^7.434^79.646^^^^6.195^.708^^^130.088^19.469^^^^^^2.655^.097
+25 ;;^UTILITY(U,$J,112,8834,2)
+26 ;;=.062^1.327^^.097^^^^^^^^^34.513
+27 ;;^UTILITY(U,$J,112,8834,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,8835,0)
+30 ;;=BF,DINNER,TURKEY W/VEG,GERBER THIRD FOOD^BC-02108^4-oz.^113
+31 ;;^UTILITY(U,$J,112,8835,1)
+32 ;;=5.31^3.009^7.965^79.646^^^^7.965^.442^^^120.354^23.894^^^^^^2.655^.027
+33 ;;^UTILITY(U,$J,112,8835,2)
+34 ;;=.044^1.416^^.08^^^^^^^^^82.301
+35 ;;^UTILITY(U,$J,112,8835,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,8836,0)
+38 ;;=BF,DINNER,TURKEY W/VEG,GERBER SECOND FOOD^BC-02109^4-oz.^113
+39 ;;^UTILITY(U,$J,112,8836,1)
+40 ;;=5.575^2.478^7.08^73.451^^^^10.619^.442^^^115.044^23.894^^^^^^2.655^.018
+41 ;;^UTILITY(U,$J,112,8836,2)
+42 ;;=.08^1.327^^.08^^^^^^^^^50.442
+43 ;;^UTILITY(U,$J,112,8836,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,8837,0)
+46 ;;=BF,JUICE,APPLE,BEECH-NUT STAGE 1^BC-02110^4.2-floz.^128
+47 ;;^UTILITY(U,$J,112,8837,1)
+48 ;;=0^0^10.078^42.188^^^^^.5^^^^7.031^^^^^^33.594
+49 ;;^UTILITY(U,$J,112,8837,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,8838,0)
+52 ;;=BF,JUICE,APPLE,GERBER SECOND FOOD^BC-02111^4.42-floz.^125
+53 ;;^UTILITY(U,$J,112,8838,1)
+54 ;;=.08^.16^11.52^48^^^^3.2^.16^4^6.4^92.8^1.6^.024^.016^.184^^^33.6^.016
+55 ;;^UTILITY(U,$J,112,8838,2)
+56 ;;=.016^.08^^.032^^^^^^^^^.8
+57 ;;^UTILITY(U,$J,112,8838,20)
+58 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+59 ;;^UTILITY(U,$J,112,8839,0)
+60 ;;=BF,JUICE,APPLE,TODDLER,GERBER^BC-02112^4.42-floz.^125
+61 ;;^UTILITY(U,$J,112,8839,1)
+62 ;;=.16^.16^11.6^48^^^^3.2^.16^4^6.4^91.2^1.6^.024^.016^.192^^^32^.008
+63 ;;^UTILITY(U,$J,112,8839,2)
+64 ;;=.008^.08^^.032^^^^^^^^^.8
+65 ;;^UTILITY(U,$J,112,8839,20)
+66 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+67 ;;^UTILITY(U,$J,112,8840,0)
+68 ;;=BF,JUICE,APPLE APRICOT,GERBER SECOND FOOD^BC-02113^4.6-floz.^130
+69 ;;^UTILITY(U,$J,112,8840,1)
+70 ;;=.231^.077^11.692^49.231^^^^6.154^.2^5.385^7.692^113.077^3.077^.038^.015^.069^^^32.308^.008
+71 ;;^UTILITY(U,$J,112,8840,2)
+72 ;;=.023^.154^^.023^^^^^^^^^45.385^^^^.231
+73 ;;^UTILITY(U,$J,112,8840,20)
+74 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+75 ;;^UTILITY(U,$J,112,8841,0)
+76 ;;=BF,JUICE,APPLE APRICOT,STR HEINZ^BC-02114^jar^130
+77 ;;^UTILITY(U,$J,112,8841,1)
+78 ;;=.077^.231^11.308^46.923^^^^10.769^.5^^10.769^113.846^6.154^.069^.03^^^425.385^32.308^.023
+79 ;;^UTILITY(U,$J,112,8841,2)
+80 ;;=.008^.154^^.031
+81 ;;^UTILITY(U,$J,112,8841,20)
+82 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+83 ;;^UTILITY(U,$J,112,8842,0)
+84 ;;=BF,JUICE,APPLE BANANA,GERBER SECOND FOOD^BC-02115^4.42-floz.^125
+85 ;;^UTILITY(U,$J,112,8842,1)
+86 ;;=.24^.16^12.08^51.2^^^^4.8^.16^6.4^7.2^118.4^1.6^.04^.016^.256^^^33.6^.008
+87 ;;^UTILITY(U,$J,112,8842,2)
+88 ;;=.016^.16^^.056^^^^^^^^^1.6
+89 ;;^UTILITY(U,$J,112,8842,20)
+90 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+91 ;;^UTILITY(U,$J,112,8843,0)
+92 ;;=BF,JUICE,APPLE CHERRY,BEECH-NUT STAGE 2^BC-02116^4.2-floz.^128
+93 ;;^UTILITY(U,$J,112,8843,1)
+94 ;;=0^0^10.625^43.75^^^^^.703^^^^4.688^^^^^^32.813
+95 ;;^UTILITY(U,$J,112,8843,2)
+96 ;;=.008
+97 ;;^UTILITY(U,$J,112,8843,20)
+98 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+99 ;;^UTILITY(U,$J,112,8844,0)
+100 ;;=BF,JUICE,APPLE CHERRY, GERBER SECOND FOOD^BC-02117^4.42-floz.^125
+101 ;;^UTILITY(U,$J,112,8844,1)
+102 ;;=.16^.08^11.52^48^^^^7.2^.4^5.6^8^108.8^4^.032^.016^.072^^^33.6^.008
+103 ;;^UTILITY(U,$J,112,8844,2)
+104 ;;=.024^.08^^.032^^^^^^^^^0
+105 ;;^UTILITY(U,$J,112,8844,20)
+106 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+107 ;;^UTILITY(U,$J,112,8845,0)
+108 ;;=BF,JUICE,APPLE CHERRY,TODDLER,GERBER^BC-02118^4.42-floz.^125
