FHINI0G3 ; ; 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,9829,1)
;;=8.929^3.214^75.714^367.857^^^^296.429^1.429^85.714^425^1578.571^1871.429^.714^.357^0^^1667.857^17.857^.357
;;^UTILITY(U,$J,112,9829,2)
;;=1.071^3.571
;;^UTILITY(U,$J,112,9829,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9830,0)
;;=SOUPS,VEG,COUNTRY STYLE HARVEST,LIPTON CUP-A-SOUP^BC-03103^6-floz.^26
;;^UTILITY(U,$J,112,9830,1)
;;=6.538^4.615^72.308^350^^^^100^1.923^57.692^184.615^1076.923^1765.385^.769^.385^.769^^6096.154^11.538^.385
;;^UTILITY(U,$J,112,9830,2)
;;=.385^4.615
;;^UTILITY(U,$J,112,9830,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9831,0)
;;=SOUPS,VEG GARDEN,LIPTON CUP-A-SOUP^BC-03104^7-floz.^33
;;^UTILITY(U,$J,112,9831,1)
;;=13.03^4.545^70^372.727^^^^60.606^4.545^60.606^239.394^396.97^2181.818^1.212^.303^0^^5609.091^3.03^.909
;;^UTILITY(U,$J,112,9831,2)
;;=.303^9.394
;;^UTILITY(U,$J,112,9831,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9832,0)
;;=SOUPS,VEG,LIPTON^BC-03105^8-floz.^12
;;^UTILITY(U,$J,112,9832,1)
;;=13.333^4.167^57.5^325^^^^358.333^4.167^100^291.667^1116.667^5333.333^1.667^.833^.833^^18591.667^16.667^0
;;^UTILITY(U,$J,112,9832,2)
;;=0^5
;;^UTILITY(U,$J,112,9832,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9833,0)
;;=SOUPS,RAMEN NOODLE,BEEF,LACHOY^BC-03106^cup^240
;;^UTILITY(U,$J,112,9833,1)
;;=2.5^3.333^13.75^93.75^^^^2.917^.833^^^16.667^360.417^^^^^^^.096
;;^UTILITY(U,$J,112,9833,2)
;;=.071^.958^^^^^^^0^.458^^1.167^^^^^1.667
;;^UTILITY(U,$J,112,9833,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9834,0)
;;=SOUPS,RAMEN NOODLE,CHICKEN,LACHOY^BC-03107^cup^240
;;^UTILITY(U,$J,112,9834,1)
;;=2.5^2.917^12.083^83.333^^^^2.917^.833^^^16.667^308.333^^^^^^^.096
;;^UTILITY(U,$J,112,9834,2)
;;=.071^.958^^^^^^^0^.458^^1.167^^^^^1.667
;;^UTILITY(U,$J,112,9834,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9835,0)
;;=SOUPS,FRZN,CONDENSED,ASPARAGUS,CRM,KETTLE READY^BC-03108^6-floz.^31
;;^UTILITY(U,$J,112,9835,1)
;;=2.581^13.871^16.452^200^^^^29.032^.323^12.903^61.29^754.839^1309.677^.323^0^^^916.129^6.452^0
;;^UTILITY(U,$J,112,9835,2)
;;=0^.968^^^^^^^^4.839^5.806^1.613
;;^UTILITY(U,$J,112,9835,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9836,0)
;;=SOUPS,FRZN,CONDENSED,BEAN W/HAM SAVORY,KETTLE READY^BC-03109^6-floz.^58
;;^UTILITY(U,$J,112,9836,1)
;;=11.724^6.207^34.828^194.828^^^^131.034^3.448^86.207^281.034^932.759^791.379^1.552^.517^^^381.034^18.966^.345
;;^UTILITY(U,$J,112,9836,2)
;;=.172^0^^^^^^^^1.724^2.759^1.379
;;^UTILITY(U,$J,112,9836,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9837,0)
;;=SOUPS,FRZN,CONDENSED,BEEF VEG,KETTLE READY HEARTY^BC-03110^6-floz.^61
;;^UTILITY(U,$J,112,9837,1)
;;=6.885^4.59^17.541^139.344^^^^31.148^.656^26.23^104.918^608.197^734.426^1.311^.164^^^1986.885^13.115^.164
;;^UTILITY(U,$J,112,9837,2)
;;=.164^1.803^^^^^^^^.984^2.131^.82
;;^UTILITY(U,$J,112,9837,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9838,0)
;;=SOUPS,FRZN,CONDENSED,BLACK BEAN W/HAM,KETTLE READY^BC-03111^6-floz.^61
;;^UTILITY(U,$J,112,9838,1)
;;=13.279^10.164^37.705^252.459^^^^91.803^3.443^72.131^273.77^1144.262^1004.918^1.639^.492^^^622.951^14.754^.164
;;^UTILITY(U,$J,112,9838,2)
;;=.164^1.967^^^^^^^^2.131^3.77^1.803
;;^UTILITY(U,$J,112,9838,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9839,0)
;;=SOUPS,FRZN,CONDENSED,BROCCOLI,CRM,KETTLE READY^BC-03112^6-floz.^39
;;^UTILITY(U,$J,112,9839,1)
;;=2.308^18.462^16.41^241.026^^^^30.769^.513^12.821^48.718^717.949^1069.231^.256^0^.256^^1497.436^38.462^0
;;^UTILITY(U,$J,112,9839,2)
;;=0^.513^^^^^^^^6.667^6.923^1.795
;;^UTILITY(U,$J,112,9839,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9840,0)
;;=SOUPS,FRZN,CONDENSED,CAULIFLOWER,CRM,KETTLE READY^BC-03113^6-floz.^46
;;^UTILITY(U,$J,112,9840,1)
;;=5^15^11.957^202.174^^^^121.739^.435^13.043^189.13^486.957^967.391^.652^0^^^1369.565^17.391^0
;;^UTILITY(U,$J,112,9840,2)
;;=.217^.217^^^^^^^^6.739^5.217^1.304
;;^UTILITY(U,$J,112,9840,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9841,0)
;;=SOUPS,FRZN,CONDENSED,CHEDDAR BROCCOLI,CRM,KETTLE READY^BC-03114^6-floz.^48
;;^UTILITY(U,$J,112,9841,1)
;;=8.333^23.542^9.792^285.417^^^^206.25^.417^16.667^316.667^487.5^1110.417^1.042^0^^^1475^31.25^0
FHINI0G3 ; ; 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,9829,1)
+2 ;;=8.929^3.214^75.714^367.857^^^^296.429^1.429^85.714^425^1578.571^1871.429^.714^.357^0^^1667.857^17.857^.357
+3 ;;^UTILITY(U,$J,112,9829,2)
+4 ;;=1.071^3.571
+5 ;;^UTILITY(U,$J,112,9829,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,9830,0)
+8 ;;=SOUPS,VEG,COUNTRY STYLE HARVEST,LIPTON CUP-A-SOUP^BC-03103^6-floz.^26
+9 ;;^UTILITY(U,$J,112,9830,1)
+10 ;;=6.538^4.615^72.308^350^^^^100^1.923^57.692^184.615^1076.923^1765.385^.769^.385^.769^^6096.154^11.538^.385
+11 ;;^UTILITY(U,$J,112,9830,2)
+12 ;;=.385^4.615
+13 ;;^UTILITY(U,$J,112,9830,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,9831,0)
+16 ;;=SOUPS,VEG GARDEN,LIPTON CUP-A-SOUP^BC-03104^7-floz.^33
+17 ;;^UTILITY(U,$J,112,9831,1)
+18 ;;=13.03^4.545^70^372.727^^^^60.606^4.545^60.606^239.394^396.97^2181.818^1.212^.303^0^^5609.091^3.03^.909
+19 ;;^UTILITY(U,$J,112,9831,2)
+20 ;;=.303^9.394
+21 ;;^UTILITY(U,$J,112,9831,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,9832,0)
+24 ;;=SOUPS,VEG,LIPTON^BC-03105^8-floz.^12
+25 ;;^UTILITY(U,$J,112,9832,1)
+26 ;;=13.333^4.167^57.5^325^^^^358.333^4.167^100^291.667^1116.667^5333.333^1.667^.833^.833^^18591.667^16.667^0
+27 ;;^UTILITY(U,$J,112,9832,2)
+28 ;;=0^5
+29 ;;^UTILITY(U,$J,112,9832,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,9833,0)
+32 ;;=SOUPS,RAMEN NOODLE,BEEF,LACHOY^BC-03106^cup^240
+33 ;;^UTILITY(U,$J,112,9833,1)
+34 ;;=2.5^3.333^13.75^93.75^^^^2.917^.833^^^16.667^360.417^^^^^^^.096
+35 ;;^UTILITY(U,$J,112,9833,2)
+36 ;;=.071^.958^^^^^^^0^.458^^1.167^^^^^1.667
+37 ;;^UTILITY(U,$J,112,9833,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,9834,0)
+40 ;;=SOUPS,RAMEN NOODLE,CHICKEN,LACHOY^BC-03107^cup^240
+41 ;;^UTILITY(U,$J,112,9834,1)
+42 ;;=2.5^2.917^12.083^83.333^^^^2.917^.833^^^16.667^308.333^^^^^^^.096
+43 ;;^UTILITY(U,$J,112,9834,2)
+44 ;;=.071^.958^^^^^^^0^.458^^1.167^^^^^1.667
+45 ;;^UTILITY(U,$J,112,9834,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,9835,0)
+48 ;;=SOUPS,FRZN,CONDENSED,ASPARAGUS,CRM,KETTLE READY^BC-03108^6-floz.^31
+49 ;;^UTILITY(U,$J,112,9835,1)
+50 ;;=2.581^13.871^16.452^200^^^^29.032^.323^12.903^61.29^754.839^1309.677^.323^0^^^916.129^6.452^0
+51 ;;^UTILITY(U,$J,112,9835,2)
+52 ;;=0^.968^^^^^^^^4.839^5.806^1.613
+53 ;;^UTILITY(U,$J,112,9835,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,9836,0)
+56 ;;=SOUPS,FRZN,CONDENSED,BEAN W/HAM SAVORY,KETTLE READY^BC-03109^6-floz.^58
+57 ;;^UTILITY(U,$J,112,9836,1)
+58 ;;=11.724^6.207^34.828^194.828^^^^131.034^3.448^86.207^281.034^932.759^791.379^1.552^.517^^^381.034^18.966^.345
+59 ;;^UTILITY(U,$J,112,9836,2)
+60 ;;=.172^0^^^^^^^^1.724^2.759^1.379
+61 ;;^UTILITY(U,$J,112,9836,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,9837,0)
+64 ;;=SOUPS,FRZN,CONDENSED,BEEF VEG,KETTLE READY HEARTY^BC-03110^6-floz.^61
+65 ;;^UTILITY(U,$J,112,9837,1)
+66 ;;=6.885^4.59^17.541^139.344^^^^31.148^.656^26.23^104.918^608.197^734.426^1.311^.164^^^1986.885^13.115^.164
+67 ;;^UTILITY(U,$J,112,9837,2)
+68 ;;=.164^1.803^^^^^^^^.984^2.131^.82
+69 ;;^UTILITY(U,$J,112,9837,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,9838,0)
+72 ;;=SOUPS,FRZN,CONDENSED,BLACK BEAN W/HAM,KETTLE READY^BC-03111^6-floz.^61
+73 ;;^UTILITY(U,$J,112,9838,1)
+74 ;;=13.279^10.164^37.705^252.459^^^^91.803^3.443^72.131^273.77^1144.262^1004.918^1.639^.492^^^622.951^14.754^.164
+75 ;;^UTILITY(U,$J,112,9838,2)
+76 ;;=.164^1.967^^^^^^^^2.131^3.77^1.803
+77 ;;^UTILITY(U,$J,112,9838,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,9839,0)
+80 ;;=SOUPS,FRZN,CONDENSED,BROCCOLI,CRM,KETTLE READY^BC-03112^6-floz.^39
+81 ;;^UTILITY(U,$J,112,9839,1)
+82 ;;=2.308^18.462^16.41^241.026^^^^30.769^.513^12.821^48.718^717.949^1069.231^.256^0^.256^^1497.436^38.462^0
+83 ;;^UTILITY(U,$J,112,9839,2)
+84 ;;=0^.513^^^^^^^^6.667^6.923^1.795
+85 ;;^UTILITY(U,$J,112,9839,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,9840,0)
+88 ;;=SOUPS,FRZN,CONDENSED,CAULIFLOWER,CRM,KETTLE READY^BC-03113^6-floz.^46
+89 ;;^UTILITY(U,$J,112,9840,1)
+90 ;;=5^15^11.957^202.174^^^^121.739^.435^13.043^189.13^486.957^967.391^.652^0^^^1369.565^17.391^0
+91 ;;^UTILITY(U,$J,112,9840,2)
+92 ;;=.217^.217^^^^^^^^6.739^5.217^1.304
+93 ;;^UTILITY(U,$J,112,9840,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,9841,0)
+96 ;;=SOUPS,FRZN,CONDENSED,CHEDDAR BROCCOLI,CRM,KETTLE READY^BC-03114^6-floz.^48
+97 ;;^UTILITY(U,$J,112,9841,1)
+98 ;;=8.333^23.542^9.792^285.417^^^^206.25^.417^16.667^316.667^487.5^1110.417^1.042^0^^^1475^31.25^0
