FHINI0DZ ; ; 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,8779,0)
;;=BF,DINNER,CHICKEN SOUP,CRM OF,GERBER SECOND FOOD^BC-02052^4-oz.^126
;;^UTILITY(U,$J,112,8779,1)
;;=2.46^1.19^7.698^51.587^^^^27.778^.238^7.937^42.063^80.952^11.905^.278^.016^.119^^^1.587^.016
;;^UTILITY(U,$J,112,8779,2)
;;=.04^.635^^.048^^^^^^^^^57.143
;;^UTILITY(U,$J,112,8779,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8780,0)
;;=BF,DINNER,CHICKEN SOUP W/STARS,BEECH-NUT TABLE-TIME^BC-02053^6-oz.^170
;;^UTILITY(U,$J,112,8780,1)
;;=2.882^3.412^10.882^88.235^^^^28.824^.5^^^^168.824^^^^^1840^^.018
;;^UTILITY(U,$J,112,8780,2)
;;=.059^.647
;;^UTILITY(U,$J,112,8780,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8781,0)
;;=BF,DINNER,MACARONIALPHABETS W/BEEF TOMATO,TODDLER,GERBER^BC-02054^6.25-oz.^177
;;^UTILITY(U,$J,112,8781,1)
;;=3.785^2.147^11.186^79.661^^^^9.04^.621^12.429^46.893^138.983^199.435^.689^.051^.136^^^2.26^.056
;;^UTILITY(U,$J,112,8781,2)
;;=.073^1.073^^.062^^^^^^^^^15.254
;;^UTILITY(U,$J,112,8781,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8782,0)
;;=BF,DINNER,MACARONIALPHABETS W/ TOMATO SCE,TODDLER,GERBER^BC-02055^6.25-oz.^177
;;^UTILITY(U,$J,112,8782,1)
;;=2.147^1.017^12.712^68.362^^^^29.379^.395^^45.763^141.243^311.864^^^^^^2.825^.051
;;^UTILITY(U,$J,112,8782,2)
;;=.068^.847^^.056^^^^^^^^^98.87
;;^UTILITY(U,$J,112,8782,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8783,0)
;;=BF,DINNER,MACARONI & BEEF,BEECH-NUT STAGE 3^BC-02056^6-oz.^170
;;^UTILITY(U,$J,112,8783,1)
;;=2.412^2.882^8.706^70^^^^22.941^.5^^^^31.765^^^^^3270^^.029
;;^UTILITY(U,$J,112,8783,2)
;;=.071^.647
;;^UTILITY(U,$J,112,8783,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8784,0)
;;=BF,DINNER,MACARONI & BEEF,BEECH-NUT STAGE 2^BC-02057^4.5-oz.^128
;;^UTILITY(U,$J,112,8784,1)
;;=2.5^2.969^8.828^72.656^^^^25^.5^^^^31.25^^^^^2939.844^.781^.031
;;^UTILITY(U,$J,112,8784,2)
;;=.063^.703
;;^UTILITY(U,$J,112,8784,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8785,0)
;;=BF,DINNER,MACARONI & CHEESE,GERBER SECOND FOOD^BC-02058^4-oz.^113
;;^UTILITY(U,$J,112,8785,1)
;;=3.009^2.035^8.938^66.372^^^^60.177^.354^7.965^82.301^53.097^71.681^.398^.035^.106^^^.885^.044
;;^UTILITY(U,$J,112,8785,2)
;;=.062^.531^^.027^^^^^^^^^11.504
;;^UTILITY(U,$J,112,8785,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8786,0)
;;=BF,DINNER,MACARONI,TOMATO & BEEF,GERBER THIRD FOOD^BC-02059^6-oz.^170
;;^UTILITY(U,$J,112,8786,1)
;;=2.588^1.118^10.412^62.353^^^^7.059^.412^^^128.235^14.706^^^^^^1.176^.018
;;^UTILITY(U,$J,112,8786,2)
;;=.053^.706^^.059^^^^^^^^^122.353
;;^UTILITY(U,$J,112,8786,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8787,0)
;;=BF,DINNER,MACARONI,TOMATO & BEEF,GERBER SECOND FOOD^BC-02060^4-oz.^113
;;^UTILITY(U,$J,112,8787,1)
;;=2.566^1.062^9.558^57.522^^^^18.584^.442^^34.513^123.009^33.628^^^^^^.885^.035
;;^UTILITY(U,$J,112,8787,2)
;;=.044^.619^^.08^^^^^^^^^97.345
;;^UTILITY(U,$J,112,8787,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8788,0)
;;=BF,DINNER,NOODLES & BEEF,HOME STYLE,TODDLER,GERBER^BC-02061^6-oz.^170
;;^UTILITY(U,$J,112,8788,1)
;;=3.941^3.765^9.824^88.824^^^^29.412^.529^10.588^55.882^98.824^215.882^.741^.029^.118^^^1.765^.041
;;^UTILITY(U,$J,112,8788,2)
;;=.071^.824^^.047^^^^^^^^^115.882
;;^UTILITY(U,$J,112,8788,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8789,0)
;;=BF,DINNER,NOODLES & CHICKEN,TODDLER,GERBER^BC-02062^6-oz.^170
;;^UTILITY(U,$J,112,8789,1)
;;=3.471^1.824^8.235^62.941^^^^11.765^.412^10.588^42.353^95.294^207.059^.359^.041^.135^^^2.941^.029
;;^UTILITY(U,$J,112,8789,2)
;;=.035^1.176^^.065^^^^^^^^^188.235
;;^UTILITY(U,$J,112,8789,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8790,0)
;;=BF,DINNER,RICE,SAUCY W/CHICKEN,TODDLER,GERBER^BC-02063^6-oz.^170
;;^UTILITY(U,$J,112,8790,1)
;;=3^1.647^9.647^65.294^^^^18.235^.235^8.235^50^98.235^222.353^.282^.024^.188^^^2.941^.024
;;^UTILITY(U,$J,112,8790,2)
;;=.047^.882^^.065^^^^^^^^^324.118
;;^UTILITY(U,$J,112,8790,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8791,0)
;;=BF,DINNER,RICE W/BEEF & TOMATO SCE,TODDLER,GERBER^BC-02064^6.25-oz.^177
;;^UTILITY(U,$J,112,8791,1)
;;=3.333^1.808^10.734^72.316^^^^12.994^.452^10.734^41.808^155.932^202.26^.638^.051^.141^^^3.955^.028
FHINI0DZ ; ; 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,8779,0)
+2 ;;=BF,DINNER,CHICKEN SOUP,CRM OF,GERBER SECOND FOOD^BC-02052^4-oz.^126
+3 ;;^UTILITY(U,$J,112,8779,1)
+4 ;;=2.46^1.19^7.698^51.587^^^^27.778^.238^7.937^42.063^80.952^11.905^.278^.016^.119^^^1.587^.016
+5 ;;^UTILITY(U,$J,112,8779,2)
+6 ;;=.04^.635^^.048^^^^^^^^^57.143
+7 ;;^UTILITY(U,$J,112,8779,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,8780,0)
+10 ;;=BF,DINNER,CHICKEN SOUP W/STARS,BEECH-NUT TABLE-TIME^BC-02053^6-oz.^170
+11 ;;^UTILITY(U,$J,112,8780,1)
+12 ;;=2.882^3.412^10.882^88.235^^^^28.824^.5^^^^168.824^^^^^1840^^.018
+13 ;;^UTILITY(U,$J,112,8780,2)
+14 ;;=.059^.647
+15 ;;^UTILITY(U,$J,112,8780,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,8781,0)
+18 ;;=BF,DINNER,MACARONIALPHABETS W/BEEF TOMATO,TODDLER,GERBER^BC-02054^6.25-oz.^177
+19 ;;^UTILITY(U,$J,112,8781,1)
+20 ;;=3.785^2.147^11.186^79.661^^^^9.04^.621^12.429^46.893^138.983^199.435^.689^.051^.136^^^2.26^.056
+21 ;;^UTILITY(U,$J,112,8781,2)
+22 ;;=.073^1.073^^.062^^^^^^^^^15.254
+23 ;;^UTILITY(U,$J,112,8781,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,8782,0)
+26 ;;=BF,DINNER,MACARONIALPHABETS W/ TOMATO SCE,TODDLER,GERBER^BC-02055^6.25-oz.^177
+27 ;;^UTILITY(U,$J,112,8782,1)
+28 ;;=2.147^1.017^12.712^68.362^^^^29.379^.395^^45.763^141.243^311.864^^^^^^2.825^.051
+29 ;;^UTILITY(U,$J,112,8782,2)
+30 ;;=.068^.847^^.056^^^^^^^^^98.87
+31 ;;^UTILITY(U,$J,112,8782,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,8783,0)
+34 ;;=BF,DINNER,MACARONI & BEEF,BEECH-NUT STAGE 3^BC-02056^6-oz.^170
+35 ;;^UTILITY(U,$J,112,8783,1)
+36 ;;=2.412^2.882^8.706^70^^^^22.941^.5^^^^31.765^^^^^3270^^.029
+37 ;;^UTILITY(U,$J,112,8783,2)
+38 ;;=.071^.647
+39 ;;^UTILITY(U,$J,112,8783,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,8784,0)
+42 ;;=BF,DINNER,MACARONI & BEEF,BEECH-NUT STAGE 2^BC-02057^4.5-oz.^128
+43 ;;^UTILITY(U,$J,112,8784,1)
+44 ;;=2.5^2.969^8.828^72.656^^^^25^.5^^^^31.25^^^^^2939.844^.781^.031
+45 ;;^UTILITY(U,$J,112,8784,2)
+46 ;;=.063^.703
+47 ;;^UTILITY(U,$J,112,8784,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,8785,0)
+50 ;;=BF,DINNER,MACARONI & CHEESE,GERBER SECOND FOOD^BC-02058^4-oz.^113
+51 ;;^UTILITY(U,$J,112,8785,1)
+52 ;;=3.009^2.035^8.938^66.372^^^^60.177^.354^7.965^82.301^53.097^71.681^.398^.035^.106^^^.885^.044
+53 ;;^UTILITY(U,$J,112,8785,2)
+54 ;;=.062^.531^^.027^^^^^^^^^11.504
+55 ;;^UTILITY(U,$J,112,8785,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,8786,0)
+58 ;;=BF,DINNER,MACARONI,TOMATO & BEEF,GERBER THIRD FOOD^BC-02059^6-oz.^170
+59 ;;^UTILITY(U,$J,112,8786,1)
+60 ;;=2.588^1.118^10.412^62.353^^^^7.059^.412^^^128.235^14.706^^^^^^1.176^.018
+61 ;;^UTILITY(U,$J,112,8786,2)
+62 ;;=.053^.706^^.059^^^^^^^^^122.353
+63 ;;^UTILITY(U,$J,112,8786,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,8787,0)
+66 ;;=BF,DINNER,MACARONI,TOMATO & BEEF,GERBER SECOND FOOD^BC-02060^4-oz.^113
+67 ;;^UTILITY(U,$J,112,8787,1)
+68 ;;=2.566^1.062^9.558^57.522^^^^18.584^.442^^34.513^123.009^33.628^^^^^^.885^.035
+69 ;;^UTILITY(U,$J,112,8787,2)
+70 ;;=.044^.619^^.08^^^^^^^^^97.345
+71 ;;^UTILITY(U,$J,112,8787,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,8788,0)
+74 ;;=BF,DINNER,NOODLES & BEEF,HOME STYLE,TODDLER,GERBER^BC-02061^6-oz.^170
+75 ;;^UTILITY(U,$J,112,8788,1)
+76 ;;=3.941^3.765^9.824^88.824^^^^29.412^.529^10.588^55.882^98.824^215.882^.741^.029^.118^^^1.765^.041
+77 ;;^UTILITY(U,$J,112,8788,2)
+78 ;;=.071^.824^^.047^^^^^^^^^115.882
+79 ;;^UTILITY(U,$J,112,8788,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,8789,0)
+82 ;;=BF,DINNER,NOODLES & CHICKEN,TODDLER,GERBER^BC-02062^6-oz.^170
+83 ;;^UTILITY(U,$J,112,8789,1)
+84 ;;=3.471^1.824^8.235^62.941^^^^11.765^.412^10.588^42.353^95.294^207.059^.359^.041^.135^^^2.941^.029
+85 ;;^UTILITY(U,$J,112,8789,2)
+86 ;;=.035^1.176^^.065^^^^^^^^^188.235
+87 ;;^UTILITY(U,$J,112,8789,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,8790,0)
+90 ;;=BF,DINNER,RICE,SAUCY W/CHICKEN,TODDLER,GERBER^BC-02063^6-oz.^170
+91 ;;^UTILITY(U,$J,112,8790,1)
+92 ;;=3^1.647^9.647^65.294^^^^18.235^.235^8.235^50^98.235^222.353^.282^.024^.188^^^2.941^.024
+93 ;;^UTILITY(U,$J,112,8790,2)
+94 ;;=.047^.882^^.065^^^^^^^^^324.118
+95 ;;^UTILITY(U,$J,112,8790,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,8791,0)
+98 ;;=BF,DINNER,RICE W/BEEF & TOMATO SCE,TODDLER,GERBER^BC-02064^6.25-oz.^177
+99 ;;^UTILITY(U,$J,112,8791,1)
+100 ;;=3.333^1.808^10.734^72.316^^^^12.994^.452^10.734^41.808^155.932^202.26^.638^.051^.141^^^3.955^.028
