FHINI0DX ; ; 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,8752,1)
;;=1.327^.177^20.354^89.381^^^^39.823^.088^8.85^35.398^89.381^16.814^.204^.018^.451^^^12.389^.035
;;^UTILITY(U,$J,112,8752,2)
;;=.044^.177^^.035^^^^^^^^^.885
;;^UTILITY(U,$J,112,8752,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8753,0)
;;=BF,DESSERT,HAWAIIAN DELIGHT,GERBER^BC-02026^4-oz.^113
;;^UTILITY(U,$J,112,8753,1)
;;=1.327^.177^20.354^89.381^^^^39.823^.088^8.85^35.398^89.381^16.814^.204^.018^.451^^^12.389^.035
;;^UTILITY(U,$J,112,8753,2)
;;=.044^.177^^.035^^^^^^^^^.885
;;^UTILITY(U,$J,112,8753,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8754,0)
;;=BF,DESSERT,MANGO BANANA PASSION,GERBER SECOND FOOD^BC-02027^4-oz.^113
;;^UTILITY(U,$J,112,8754,1)
;;=.265^.177^17.699^73.451^^^^4.425^.088^5.31^6.195^86.726^8.85^.062^.027^.053^^^12.389^.009
;;^UTILITY(U,$J,112,8754,2)
;;=.009^.265^^.071^^^^^^^^^20.354
;;^UTILITY(U,$J,112,8754,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8755,0)
;;=BF,DESSERT,MANGO TROPICAL FRUIT,BEECH-NUT STAGE 2^BC-02028^4.5-oz.^128
;;^UTILITY(U,$J,112,8755,1)
;;=0^0^18.984^78.125^^^^^^^^^11.719^^^^^460.156^12.5^.008
;;^UTILITY(U,$J,112,8755,2)
;;=.023^.078
;;^UTILITY(U,$J,112,8755,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8756,0)
;;=BF,DESSERT,PAPAYA TROPICAL FRUIT,BEECH-NUT STAGE 2^BC-02029^4.5-oz.^128
;;^UTILITY(U,$J,112,8756,1)
;;=0^0^18.906^78.125^^^^^^^^^9.375^^^^^89.844^12.5^.008
;;^UTILITY(U,$J,112,8756,2)
;;=.031^.156
;;^UTILITY(U,$J,112,8756,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8757,0)
;;=BF,DESSERT,PEACH COBBLER,GERBER THIRD FOOD^BC-02030^6-oz.^170
;;^UTILITY(U,$J,112,8757,1)
;;=.471^.235^17.824^75.294^^^^2.941^.118^4.118^8.824^68.824^8.824^.053^.029^.029^^^9.412^.018
;;^UTILITY(U,$J,112,8757,2)
;;=.018^.235^^.006^^^^^^^^^13.529
;;^UTILITY(U,$J,112,8757,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8758,0)
;;=BF,DESSERT,PEACH COBBLER,GERBER SECOND FOOD^BC-02031^4-oz.^113
;;^UTILITY(U,$J,112,8758,1)
;;=.442^.177^17.965^75.221^^^^3.54^.177^4.425^8.85^67.257^7.965^.053^.027^.027^^^12.389^.009
;;^UTILITY(U,$J,112,8758,2)
;;=.018^.442^^.009^^^^^^^^^15.044
;;^UTILITY(U,$J,112,8758,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8759,0)
;;=BF,DESSERT,PEACHES & MANGO,GERBER^BC-02032^4-oz.^113
;;^UTILITY(U,$J,112,8759,1)
;;=.265^.177^16.991^69.912^^^^4.425^.088^3.54^6.195^57.522^7.08^.053^.018^.027^^^12.389^.009
;;^UTILITY(U,$J,112,8759,2)
;;=.009^.265^^.027^^^^^^^^^28.319
;;^UTILITY(U,$J,112,8759,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8760,0)
;;=BF,DESSERT,TUTTI FRUTTI,JR,HEINZ^BC-02033^jar^213
;;^UTILITY(U,$J,112,8760,1)
;;=.423^.423^16.103^69.953^^^^15.023^.3^^15.962^43.192^16.901^.188^.2^^^201.878^7.042^.028
;;^UTILITY(U,$J,112,8760,2)
;;=.019^.094^^.019
;;^UTILITY(U,$J,112,8760,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8761,0)
;;=BF,DESSERT,TUTTI FRUTTI,STR,HEINZ^BC-02034^jar^128
;;^UTILITY(U,$J,112,8761,1)
;;=.391^.313^16.094^68.75^^^^11.719^.203^^11.719^39.844^14.844^.078^.02^^^129.688^12.5^.023
;;^UTILITY(U,$J,112,8761,2)
;;=.023^.078^^.023
;;^UTILITY(U,$J,112,8761,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8762,0)
;;=BF,DESSERT,VAN CUSTARD PUDDING,BEECH-NUT STAGE 3^BC-02035^6-oz.^170
;;^UTILITY(U,$J,112,8762,1)
;;=2^2.706^17.118^101.176^^^^67.059^^^^^41.765^^^^^35.294^^.018
;;^UTILITY(U,$J,112,8762,2)
;;=.1
;;^UTILITY(U,$J,112,8762,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8763,0)
;;=BF,DESSERT,VAN CUSTARD PUDDING,GERBER THIRD FOOD^BC-02036^6-oz.^170
;;^UTILITY(U,$J,112,8763,1)
;;=1.706^.824^17.647^85.294^^^^52.941^.176^4.706^51.176^65.294^24.118^.247^.012^.006^^^.588^.018
;;^UTILITY(U,$J,112,8763,2)
;;=.065^.059^^.018^^^^^^^^^10.588
;;^UTILITY(U,$J,112,8763,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8764,0)
;;=BF,DESSERT,VAN CUSTARD PUDDING,BEECH-NUT STAGE 2^BC-02037^4.5-oz.^128
;;^UTILITY(U,$J,112,8764,1)
;;=2.109^2.734^16.797^100^^^^67.188^^^^^43.75^^^^^39.844^^.023
;;^UTILITY(U,$J,112,8764,2)
;;=.117^.078
;;^UTILITY(U,$J,112,8764,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8765,0)
;;=BF,DESSERT,VAN CUSTARD PUDDING,GERBER SECOND FOOD^BC-02038^4-oz.^113
;;^UTILITY(U,$J,112,8765,1)
;;=1.681^.885^17.522^84.956^^^^53.097^.177^5.31^51.327^66.372^24.779^.248^.009^.009^^^.885^.018
FHINI0DX ; ; 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,8752,1)
+2 ;;=1.327^.177^20.354^89.381^^^^39.823^.088^8.85^35.398^89.381^16.814^.204^.018^.451^^^12.389^.035
+3 ;;^UTILITY(U,$J,112,8752,2)
+4 ;;=.044^.177^^.035^^^^^^^^^.885
+5 ;;^UTILITY(U,$J,112,8752,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,8753,0)
+8 ;;=BF,DESSERT,HAWAIIAN DELIGHT,GERBER^BC-02026^4-oz.^113
+9 ;;^UTILITY(U,$J,112,8753,1)
+10 ;;=1.327^.177^20.354^89.381^^^^39.823^.088^8.85^35.398^89.381^16.814^.204^.018^.451^^^12.389^.035
+11 ;;^UTILITY(U,$J,112,8753,2)
+12 ;;=.044^.177^^.035^^^^^^^^^.885
+13 ;;^UTILITY(U,$J,112,8753,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,8754,0)
+16 ;;=BF,DESSERT,MANGO BANANA PASSION,GERBER SECOND FOOD^BC-02027^4-oz.^113
+17 ;;^UTILITY(U,$J,112,8754,1)
+18 ;;=.265^.177^17.699^73.451^^^^4.425^.088^5.31^6.195^86.726^8.85^.062^.027^.053^^^12.389^.009
+19 ;;^UTILITY(U,$J,112,8754,2)
+20 ;;=.009^.265^^.071^^^^^^^^^20.354
+21 ;;^UTILITY(U,$J,112,8754,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,8755,0)
+24 ;;=BF,DESSERT,MANGO TROPICAL FRUIT,BEECH-NUT STAGE 2^BC-02028^4.5-oz.^128
+25 ;;^UTILITY(U,$J,112,8755,1)
+26 ;;=0^0^18.984^78.125^^^^^^^^^11.719^^^^^460.156^12.5^.008
+27 ;;^UTILITY(U,$J,112,8755,2)
+28 ;;=.023^.078
+29 ;;^UTILITY(U,$J,112,8755,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,8756,0)
+32 ;;=BF,DESSERT,PAPAYA TROPICAL FRUIT,BEECH-NUT STAGE 2^BC-02029^4.5-oz.^128
+33 ;;^UTILITY(U,$J,112,8756,1)
+34 ;;=0^0^18.906^78.125^^^^^^^^^9.375^^^^^89.844^12.5^.008
+35 ;;^UTILITY(U,$J,112,8756,2)
+36 ;;=.031^.156
+37 ;;^UTILITY(U,$J,112,8756,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,8757,0)
+40 ;;=BF,DESSERT,PEACH COBBLER,GERBER THIRD FOOD^BC-02030^6-oz.^170
+41 ;;^UTILITY(U,$J,112,8757,1)
+42 ;;=.471^.235^17.824^75.294^^^^2.941^.118^4.118^8.824^68.824^8.824^.053^.029^.029^^^9.412^.018
+43 ;;^UTILITY(U,$J,112,8757,2)
+44 ;;=.018^.235^^.006^^^^^^^^^13.529
+45 ;;^UTILITY(U,$J,112,8757,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,8758,0)
+48 ;;=BF,DESSERT,PEACH COBBLER,GERBER SECOND FOOD^BC-02031^4-oz.^113
+49 ;;^UTILITY(U,$J,112,8758,1)
+50 ;;=.442^.177^17.965^75.221^^^^3.54^.177^4.425^8.85^67.257^7.965^.053^.027^.027^^^12.389^.009
+51 ;;^UTILITY(U,$J,112,8758,2)
+52 ;;=.018^.442^^.009^^^^^^^^^15.044
+53 ;;^UTILITY(U,$J,112,8758,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,8759,0)
+56 ;;=BF,DESSERT,PEACHES & MANGO,GERBER^BC-02032^4-oz.^113
+57 ;;^UTILITY(U,$J,112,8759,1)
+58 ;;=.265^.177^16.991^69.912^^^^4.425^.088^3.54^6.195^57.522^7.08^.053^.018^.027^^^12.389^.009
+59 ;;^UTILITY(U,$J,112,8759,2)
+60 ;;=.009^.265^^.027^^^^^^^^^28.319
+61 ;;^UTILITY(U,$J,112,8759,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,8760,0)
+64 ;;=BF,DESSERT,TUTTI FRUTTI,JR,HEINZ^BC-02033^jar^213
+65 ;;^UTILITY(U,$J,112,8760,1)
+66 ;;=.423^.423^16.103^69.953^^^^15.023^.3^^15.962^43.192^16.901^.188^.2^^^201.878^7.042^.028
+67 ;;^UTILITY(U,$J,112,8760,2)
+68 ;;=.019^.094^^.019
+69 ;;^UTILITY(U,$J,112,8760,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,8761,0)
+72 ;;=BF,DESSERT,TUTTI FRUTTI,STR,HEINZ^BC-02034^jar^128
+73 ;;^UTILITY(U,$J,112,8761,1)
+74 ;;=.391^.313^16.094^68.75^^^^11.719^.203^^11.719^39.844^14.844^.078^.02^^^129.688^12.5^.023
+75 ;;^UTILITY(U,$J,112,8761,2)
+76 ;;=.023^.078^^.023
+77 ;;^UTILITY(U,$J,112,8761,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,8762,0)
+80 ;;=BF,DESSERT,VAN CUSTARD PUDDING,BEECH-NUT STAGE 3^BC-02035^6-oz.^170
+81 ;;^UTILITY(U,$J,112,8762,1)
+82 ;;=2^2.706^17.118^101.176^^^^67.059^^^^^41.765^^^^^35.294^^.018
+83 ;;^UTILITY(U,$J,112,8762,2)
+84 ;;=.1
+85 ;;^UTILITY(U,$J,112,8762,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,8763,0)
+88 ;;=BF,DESSERT,VAN CUSTARD PUDDING,GERBER THIRD FOOD^BC-02036^6-oz.^170
+89 ;;^UTILITY(U,$J,112,8763,1)
+90 ;;=1.706^.824^17.647^85.294^^^^52.941^.176^4.706^51.176^65.294^24.118^.247^.012^.006^^^.588^.018
+91 ;;^UTILITY(U,$J,112,8763,2)
+92 ;;=.065^.059^^.018^^^^^^^^^10.588
+93 ;;^UTILITY(U,$J,112,8763,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,8764,0)
+96 ;;=BF,DESSERT,VAN CUSTARD PUDDING,BEECH-NUT STAGE 2^BC-02037^4.5-oz.^128
+97 ;;^UTILITY(U,$J,112,8764,1)
+98 ;;=2.109^2.734^16.797^100^^^^67.188^^^^^43.75^^^^^39.844^^.023
+99 ;;^UTILITY(U,$J,112,8764,2)
+100 ;;=.117^.078
+101 ;;^UTILITY(U,$J,112,8764,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,8765,0)
+104 ;;=BF,DESSERT,VAN CUSTARD PUDDING,GERBER SECOND FOOD^BC-02038^4-oz.^113
+105 ;;^UTILITY(U,$J,112,8765,1)
+106 ;;=1.681^.885^17.522^84.956^^^^53.097^.177^5.31^51.327^66.372^24.779^.248^.009^.009^^^.885^.018
