FHINI0G4 ; ; 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,9841,2)
;;=.208^.208^^^^^^^^10.833^7.917^1.875
;;^UTILITY(U,$J,112,9841,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9842,0)
;;=SOUPS,FRZN,CONDENSED,CHEDDAR CHEESE,CRM,KETTLE READY^BC-03115^6-floz.^41
;;^UTILITY(U,$J,112,9842,1)
;;=10^30.488^17.805^385.366^^^^282.927^.488^14.634^353.659^521.951^1502.439^1.463^0^0^^612.195^0^0
;;^UTILITY(U,$J,112,9842,2)
;;=.244^.488^^^^^^^^14.878^11.463^2.439
;;^UTILITY(U,$J,112,9842,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9843,0)
;;=SOUPS,FRZN,CONDENSED,CHICKEN,CRM,KETTLE READY^BC-03116^6-floz.^34
;;^UTILITY(U,$J,112,9843,1)
;;=16.765^18.235^14.706^288.235^^^^23.529^.294^17.647^129.412^908.824^1964.706^.588^0^0^^932.353^2.941^0
;;^UTILITY(U,$J,112,9843,2)
;;=0^5.882^^^^^^^^6.765^7.353^2.059
;;^UTILITY(U,$J,112,9843,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9844,0)
;;=SOUPS,FRZN,CONDENSED,CHICKEN GUMBO,KETTLE READY^BC-03117^6-floz.^57
;;^UTILITY(U,$J,112,9844,1)
;;=6.14^6.14^21.228^164.912^^^^49.123^.877^19.298^84.211^533.333^829.825^.351^0^.351^^328.07^17.544^.175
;;^UTILITY(U,$J,112,9844,2)
;;=.175^2.807^^^^^^^^1.228^3.158^1.053
;;^UTILITY(U,$J,112,9844,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9845,0)
;;=SOUPS,FRZN,CONDENSED,CHICKEN NOODLE,KETTLE READY^BC-03118^6-floz.^41
;;^UTILITY(U,$J,112,9845,1)
;;=11.951^7.073^29.268^229.268^^^^43.902^1.22^24.39^148.78^948.78^1387.805^.732^.244^.244^^2002.439^2.439^.488
;;^UTILITY(U,$J,112,9845,2)
;;=.244^5.61^^^^^^^^1.463^3.415^.976
;;^UTILITY(U,$J,112,9845,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9846,0)
;;=SOUPS,FRZN,CONDENSED,CHILI,JALAPENO,KETTLE READY^BC-03119^6-floz.^99
;;^UTILITY(U,$J,112,9846,1)
;;=11.212^7.879^14.848^174.747^^^^29.293^1.515^22.222^96.97^510.101^536.364^1.818^.202^^^552.525^8.081^.101
;;^UTILITY(U,$J,112,9846,2)
;;=.101^1.313^^^^^^^^2.121^3.838^1.111
;;^UTILITY(U,$J,112,9846,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9847,0)
;;=SOUPS,FRZN,CONDENSED,CHILI,KETTLE READY^BC-03120^6-floz.^98
;;^UTILITY(U,$J,112,9847,1)
;;=11.939^6.633^14.082^164.286^^^^26.531^.714^21.429^97.959^447.959^463.265^1.633^.102^^^477.551^3.061^.102
;;^UTILITY(U,$J,112,9847,2)
;;=.102^1.224^^^^^^^^1.837^3.265^.918
;;^UTILITY(U,$J,112,9847,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9848,0)
;;=SOUPS,FRZN,CONDENSED,CLAM CHOWDER,BOSTON,KETTLE READY^BC-03121^6-floz.^58
;;^UTILITY(U,$J,112,9848,1)
;;=6.034^12.586^22.069^225.862^^^^32.759^.69^25.862^87.931^525.862^718.966^.517^.172^.172^^518.966^5.172^.172
;;^UTILITY(U,$J,112,9848,2)
;;=0^1.207^^^^^^^0^2.586^6.207^1.897
;;^UTILITY(U,$J,112,9848,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9849,0)
;;=SOUPS,FRZN,COND,CLAM CHOWDER,MANHATTAN STYLE,KETTLE READY^BC-03122^6-floz.^62
;;^UTILITY(U,$J,112,9849,1)
;;=5.806^4.194^12.742^111.29^^^^30.645^.806^17.742^77.419^661.29^885.484^3.71^0^.161^^1970.968^24.194^0
;;^UTILITY(U,$J,112,9849,2)
;;=0^.968^^^^^^^^.806^2.097^.806
;;^UTILITY(U,$J,112,9849,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9850,0)
;;=SOUPS,FRZN,COND,CLAM CHOWDER,NEW ENGLAND STYLE,KETTLE READY^BC-03123^6-floz.^46
;;^UTILITY(U,$J,112,9850,1)
;;=6.522^14.13^24.783^252.174^^^^30.435^.87^28.261^95.652^665.217^810.87^.652^0^.217^^1239.13^6.522^.217
;;^UTILITY(U,$J,112,9850,2)
;;=0^1.522^^^^^^^^5.217^5.435^1.522
;;^UTILITY(U,$J,112,9850,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9851,0)
;;=SOUPS,FRZN,CONDENSED,CORN & BROCCOLI CHOWDER,KETTLE READY^BC-03124^6-floz.^57
;;^UTILITY(U,$J,112,9851,1)
;;=2.456^8.772^22.456^178.947^^^^14.035^.351^15.789^61.404^587.719^566.667^.351^0^.175^^566.667^21.053^0
;;^UTILITY(U,$J,112,9851,2)
;;=0^1.228^^^^^^^^3.158^3.333^1.053
;;^UTILITY(U,$J,112,9851,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9852,0)
;;=SOUPS,FRZN,CONDENSED,FRENCH ONION,KETTLE READY^BC-03125^6-floz.^46
;;^UTILITY(U,$J,112,9852,1)
;;=1.522^4.783^10.652^91.304^^^^23.913^.217^8.696^54.348^682.609^1221.739^.217^0^.217^^178.261^4.348^0
;;^UTILITY(U,$J,112,9852,2)
;;=0^.652^^^^^^^^.87^2.609^.87
;;^UTILITY(U,$J,112,9852,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9853,0)
;;=SOUPS,FRZN,CONDENSED,MINESTRONE,KETTLE READY HEARTY^BC-03126^6-floz.^63
FHINI0G4 ; ; 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,9841,2)
+2 ;;=.208^.208^^^^^^^^10.833^7.917^1.875
+3 ;;^UTILITY(U,$J,112,9841,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,9842,0)
+6 ;;=SOUPS,FRZN,CONDENSED,CHEDDAR CHEESE,CRM,KETTLE READY^BC-03115^6-floz.^41
+7 ;;^UTILITY(U,$J,112,9842,1)
+8 ;;=10^30.488^17.805^385.366^^^^282.927^.488^14.634^353.659^521.951^1502.439^1.463^0^0^^612.195^0^0
+9 ;;^UTILITY(U,$J,112,9842,2)
+10 ;;=.244^.488^^^^^^^^14.878^11.463^2.439
+11 ;;^UTILITY(U,$J,112,9842,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,9843,0)
+14 ;;=SOUPS,FRZN,CONDENSED,CHICKEN,CRM,KETTLE READY^BC-03116^6-floz.^34
+15 ;;^UTILITY(U,$J,112,9843,1)
+16 ;;=16.765^18.235^14.706^288.235^^^^23.529^.294^17.647^129.412^908.824^1964.706^.588^0^0^^932.353^2.941^0
+17 ;;^UTILITY(U,$J,112,9843,2)
+18 ;;=0^5.882^^^^^^^^6.765^7.353^2.059
+19 ;;^UTILITY(U,$J,112,9843,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,9844,0)
+22 ;;=SOUPS,FRZN,CONDENSED,CHICKEN GUMBO,KETTLE READY^BC-03117^6-floz.^57
+23 ;;^UTILITY(U,$J,112,9844,1)
+24 ;;=6.14^6.14^21.228^164.912^^^^49.123^.877^19.298^84.211^533.333^829.825^.351^0^.351^^328.07^17.544^.175
+25 ;;^UTILITY(U,$J,112,9844,2)
+26 ;;=.175^2.807^^^^^^^^1.228^3.158^1.053
+27 ;;^UTILITY(U,$J,112,9844,20)
+28 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+29 ;;^UTILITY(U,$J,112,9845,0)
+30 ;;=SOUPS,FRZN,CONDENSED,CHICKEN NOODLE,KETTLE READY^BC-03118^6-floz.^41
+31 ;;^UTILITY(U,$J,112,9845,1)
+32 ;;=11.951^7.073^29.268^229.268^^^^43.902^1.22^24.39^148.78^948.78^1387.805^.732^.244^.244^^2002.439^2.439^.488
+33 ;;^UTILITY(U,$J,112,9845,2)
+34 ;;=.244^5.61^^^^^^^^1.463^3.415^.976
+35 ;;^UTILITY(U,$J,112,9845,20)
+36 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+37 ;;^UTILITY(U,$J,112,9846,0)
+38 ;;=SOUPS,FRZN,CONDENSED,CHILI,JALAPENO,KETTLE READY^BC-03119^6-floz.^99
+39 ;;^UTILITY(U,$J,112,9846,1)
+40 ;;=11.212^7.879^14.848^174.747^^^^29.293^1.515^22.222^96.97^510.101^536.364^1.818^.202^^^552.525^8.081^.101
+41 ;;^UTILITY(U,$J,112,9846,2)
+42 ;;=.101^1.313^^^^^^^^2.121^3.838^1.111
+43 ;;^UTILITY(U,$J,112,9846,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,9847,0)
+46 ;;=SOUPS,FRZN,CONDENSED,CHILI,KETTLE READY^BC-03120^6-floz.^98
+47 ;;^UTILITY(U,$J,112,9847,1)
+48 ;;=11.939^6.633^14.082^164.286^^^^26.531^.714^21.429^97.959^447.959^463.265^1.633^.102^^^477.551^3.061^.102
+49 ;;^UTILITY(U,$J,112,9847,2)
+50 ;;=.102^1.224^^^^^^^^1.837^3.265^.918
+51 ;;^UTILITY(U,$J,112,9847,20)
+52 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+53 ;;^UTILITY(U,$J,112,9848,0)
+54 ;;=SOUPS,FRZN,CONDENSED,CLAM CHOWDER,BOSTON,KETTLE READY^BC-03121^6-floz.^58
+55 ;;^UTILITY(U,$J,112,9848,1)
+56 ;;=6.034^12.586^22.069^225.862^^^^32.759^.69^25.862^87.931^525.862^718.966^.517^.172^.172^^518.966^5.172^.172
+57 ;;^UTILITY(U,$J,112,9848,2)
+58 ;;=0^1.207^^^^^^^0^2.586^6.207^1.897
+59 ;;^UTILITY(U,$J,112,9848,20)
+60 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+61 ;;^UTILITY(U,$J,112,9849,0)
+62 ;;=SOUPS,FRZN,COND,CLAM CHOWDER,MANHATTAN STYLE,KETTLE READY^BC-03122^6-floz.^62
+63 ;;^UTILITY(U,$J,112,9849,1)
+64 ;;=5.806^4.194^12.742^111.29^^^^30.645^.806^17.742^77.419^661.29^885.484^3.71^0^.161^^1970.968^24.194^0
+65 ;;^UTILITY(U,$J,112,9849,2)
+66 ;;=0^.968^^^^^^^^.806^2.097^.806
+67 ;;^UTILITY(U,$J,112,9849,20)
+68 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+69 ;;^UTILITY(U,$J,112,9850,0)
+70 ;;=SOUPS,FRZN,COND,CLAM CHOWDER,NEW ENGLAND STYLE,KETTLE READY^BC-03123^6-floz.^46
+71 ;;^UTILITY(U,$J,112,9850,1)
+72 ;;=6.522^14.13^24.783^252.174^^^^30.435^.87^28.261^95.652^665.217^810.87^.652^0^.217^^1239.13^6.522^.217
+73 ;;^UTILITY(U,$J,112,9850,2)
+74 ;;=0^1.522^^^^^^^^5.217^5.435^1.522
+75 ;;^UTILITY(U,$J,112,9850,20)
+76 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+77 ;;^UTILITY(U,$J,112,9851,0)
+78 ;;=SOUPS,FRZN,CONDENSED,CORN & BROCCOLI CHOWDER,KETTLE READY^BC-03124^6-floz.^57
+79 ;;^UTILITY(U,$J,112,9851,1)
+80 ;;=2.456^8.772^22.456^178.947^^^^14.035^.351^15.789^61.404^587.719^566.667^.351^0^.175^^566.667^21.053^0
+81 ;;^UTILITY(U,$J,112,9851,2)
+82 ;;=0^1.228^^^^^^^^3.158^3.333^1.053
+83 ;;^UTILITY(U,$J,112,9851,20)
+84 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+85 ;;^UTILITY(U,$J,112,9852,0)
+86 ;;=SOUPS,FRZN,CONDENSED,FRENCH ONION,KETTLE READY^BC-03125^6-floz.^46
+87 ;;^UTILITY(U,$J,112,9852,1)
+88 ;;=1.522^4.783^10.652^91.304^^^^23.913^.217^8.696^54.348^682.609^1221.739^.217^0^.217^^178.261^4.348^0
+89 ;;^UTILITY(U,$J,112,9852,2)
+90 ;;=0^.652^^^^^^^^.87^2.609^.87
+91 ;;^UTILITY(U,$J,112,9852,20)
+92 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+93 ;;^UTILITY(U,$J,112,9853,0)
+94 ;;=SOUPS,FRZN,CONDENSED,MINESTRONE,KETTLE READY HEARTY^BC-03126^6-floz.^63
