FHINI0G5 ; ; 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,9853,1)
;;=5.238^6.984^24.127^165.079^^^^41.27^.476^20.635^106.349^920.635^915.873^.317^.159^.317^^2847.619^17.46^.159
;;^UTILITY(U,$J,112,9853,2)
;;=.159^2.54^^^^^^^^1.746^3.333^.635
;;^UTILITY(U,$J,112,9853,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9854,0)
;;=SOUPS,FRZN,CONDENSED,MUSHROOM,CRM,KETTLE READY^BC-03127^6-floz.^33
;;^UTILITY(U,$J,112,9854,1)
;;=1.818^19.394^18.788^257.576^^^^39.394^1.212^33.333^100^800^1124.242^.606^.303^0^^884.848^0^0
;;^UTILITY(U,$J,112,9854,2)
;;=0^2.121^^^^^^^^7.273^7.576^1.818
;;^UTILITY(U,$J,112,9854,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9855,0)
;;=SOUPS,FRZN,CONDENSED,PEA,SPLIT W/HAM,KETTLE READY^BC-03128^6-floz.^87
;;^UTILITY(U,$J,112,9855,1)
;;=12.759^5.057^29.08^178.161^^^^28.736^2.184^49.425^182.759^674.713^555.172^1.264^.345^^^540.23^12.644^.345
;;^UTILITY(U,$J,112,9855,2)
;;=.115^1.609^^^^^^^0^1.494^2.299^.92
;;^UTILITY(U,$J,112,9855,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9856,0)
;;=SOUPS,FRZN,CONDENSED,TOMATO W/TORTELLINI,KETTLE READY^BC-03129^6-floz.^39
;;^UTILITY(U,$J,112,9856,1)
;;=8.974^13.846^38.205^312.821^^^^56.41^7.179^30.769^125.641^794.872^1146.154^.769^.256^^^607.692^5.128^.256
;;^UTILITY(U,$J,112,9856,2)
;;=1.538^18.974^^^^^^^^3.333^6.41^2.308
;;^UTILITY(U,$J,112,9856,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9857,0)
;;=SOUPS,FRZN,CONDENSED,VEG,GARDEN,KETTLE READY^BC-03130^6-floz.^63
;;^UTILITY(U,$J,112,9857,1)
;;=4.127^4.444^19.524^134.921^^^^34.921^.952^31.746^84.127^706.349^469.841^.476^.159^.317^^2612.698^14.286^.159
;;^UTILITY(U,$J,112,9857,2)
;;=.159^1.27^^^^^^^^.794^2.063^.794
;;^UTILITY(U,$J,112,9857,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9858,0)
;;=BREAKFAST BAR,CARNATION,CHOC CHIP^BC-03131^1.44-oz.^41
;;^UTILITY(U,$J,112,9858,1)
;;=15.854^25.854^50.244^482.927^4.634^^^48.78^10.976^146.341^146.341^239.024^431.707^7.317^1.22^.132^^4268.293^68.293^.732
;;^UTILITY(U,$J,112,9858,2)
;;=.073^12.195^4.878^.976^243.902^1.537^^^0^10.244^12.927^2.683^^^^^3.415
;;^UTILITY(U,$J,112,9858,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9859,0)
;;=BREAKFAST BAR,CARNATION,PEANUT BUTTER CRUNCH^BC-03132^1.35-oz.^38
;;^UTILITY(U,$J,112,9859,1)
;;=18.684^27.368^47.105^497.368^3.947^^^52.632^11.842^157.895^157.895^281.579^465.789^7.895^1.316^.55^^4605.263^73.684^.789
;;^UTILITY(U,$J,112,9859,2)
;;=.079^13.158^5.263^1.053^263.158^1.658^^^0^7.368^13.947^6.053^^^^^2.632
;;^UTILITY(U,$J,112,9859,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9860,0)
;;=BREAKFAST BAR,CARNATION,PEANUT BUTTER W/ CHOC CHIPS^BC-03133^1.39-oz.^40
;;^UTILITY(U,$J,112,9860,1)
;;=17.5^26.25^48.5^490^3.5^^^50^11.25^150^150^275^417.5^7.5^1.25^2.025^^4375^70^.75
;;^UTILITY(U,$J,112,9860,2)
;;=.075^12.5^5^1^250^1.575^^^0^7.5^13.5^5.5^^^^^3.5
;;^UTILITY(U,$J,112,9860,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9861,0)
;;=FIGURINE DIET BAR,PILSBURY,CHOC^BC-03134^2-bars^43
;;^UTILITY(U,$J,112,9861,1)
;;=10.465^24.884^51.86^465.116^3.488^^^262.791^11.302^172.093^281.395^497.674^216.279^7.047^1.221^^^2779.07^46.512^1.116
;;^UTILITY(U,$J,112,9861,2)
;;=.628^12.558^^1.163^300^2.209
;;^UTILITY(U,$J,112,9861,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9862,0)
;;=FIGURINE DIET BAR,PILSBURY,CHOC PEANUT BUTTER^BC-03135^2-bars^43
;;^UTILITY(U,$J,112,9862,1)
;;=13.488^26.512^46.512^465.116^3.488^^^269.767^11^172.093^283.721^486.047^216.279^7.047^1.221^^^2779.07^46.512^1.14
;;^UTILITY(U,$J,112,9862,2)
;;=.628^14.419^^1.163^300^2.209
;;^UTILITY(U,$J,112,9862,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9863,0)
;;=FIGURINE DIET BAR,PILSBURY,VANILLA^BC-03136^2-bars^43
;;^UTILITY(U,$J,112,9863,1)
;;=10^24.651^53.023^472.093^3.256^^^274.419^10.744^172.093^260.465^409.302^220.93^7.047^1.221^^^2779.07^46.512^.86
;;^UTILITY(U,$J,112,9863,2)
;;=.372^12.326^^1.163^300^2.209
;;^UTILITY(U,$J,112,9863,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9864,0)
;;=FORTIFIED PUDDING,MIX,DELMARK,CHOC^BC-03137^1/2-cup^164
;;^UTILITY(U,$J,112,9864,1)
;;=5.488^4.878^21.341^152.439^^^^164.634^1.951^43.902^164.634^460.366^85.366^1.646^.22^.006^^548.78^6.707^.165
;;^UTILITY(U,$J,112,9864,2)
;;=.226^2.195^1.098^.22^42.683^.671^^^12.195
FHINI0G5 ; ; 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,9853,1)
+2 ;;=5.238^6.984^24.127^165.079^^^^41.27^.476^20.635^106.349^920.635^915.873^.317^.159^.317^^2847.619^17.46^.159
+3 ;;^UTILITY(U,$J,112,9853,2)
+4 ;;=.159^2.54^^^^^^^^1.746^3.333^.635
+5 ;;^UTILITY(U,$J,112,9853,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,9854,0)
+8 ;;=SOUPS,FRZN,CONDENSED,MUSHROOM,CRM,KETTLE READY^BC-03127^6-floz.^33
+9 ;;^UTILITY(U,$J,112,9854,1)
+10 ;;=1.818^19.394^18.788^257.576^^^^39.394^1.212^33.333^100^800^1124.242^.606^.303^0^^884.848^0^0
+11 ;;^UTILITY(U,$J,112,9854,2)
+12 ;;=0^2.121^^^^^^^^7.273^7.576^1.818
+13 ;;^UTILITY(U,$J,112,9854,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,9855,0)
+16 ;;=SOUPS,FRZN,CONDENSED,PEA,SPLIT W/HAM,KETTLE READY^BC-03128^6-floz.^87
+17 ;;^UTILITY(U,$J,112,9855,1)
+18 ;;=12.759^5.057^29.08^178.161^^^^28.736^2.184^49.425^182.759^674.713^555.172^1.264^.345^^^540.23^12.644^.345
+19 ;;^UTILITY(U,$J,112,9855,2)
+20 ;;=.115^1.609^^^^^^^0^1.494^2.299^.92
+21 ;;^UTILITY(U,$J,112,9855,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,9856,0)
+24 ;;=SOUPS,FRZN,CONDENSED,TOMATO W/TORTELLINI,KETTLE READY^BC-03129^6-floz.^39
+25 ;;^UTILITY(U,$J,112,9856,1)
+26 ;;=8.974^13.846^38.205^312.821^^^^56.41^7.179^30.769^125.641^794.872^1146.154^.769^.256^^^607.692^5.128^.256
+27 ;;^UTILITY(U,$J,112,9856,2)
+28 ;;=1.538^18.974^^^^^^^^3.333^6.41^2.308
+29 ;;^UTILITY(U,$J,112,9856,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,9857,0)
+32 ;;=SOUPS,FRZN,CONDENSED,VEG,GARDEN,KETTLE READY^BC-03130^6-floz.^63
+33 ;;^UTILITY(U,$J,112,9857,1)
+34 ;;=4.127^4.444^19.524^134.921^^^^34.921^.952^31.746^84.127^706.349^469.841^.476^.159^.317^^2612.698^14.286^.159
+35 ;;^UTILITY(U,$J,112,9857,2)
+36 ;;=.159^1.27^^^^^^^^.794^2.063^.794
+37 ;;^UTILITY(U,$J,112,9857,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,9858,0)
+40 ;;=BREAKFAST BAR,CARNATION,CHOC CHIP^BC-03131^1.44-oz.^41
+41 ;;^UTILITY(U,$J,112,9858,1)
+42 ;;=15.854^25.854^50.244^482.927^4.634^^^48.78^10.976^146.341^146.341^239.024^431.707^7.317^1.22^.132^^4268.293^68.293^.732
+43 ;;^UTILITY(U,$J,112,9858,2)
+44 ;;=.073^12.195^4.878^.976^243.902^1.537^^^0^10.244^12.927^2.683^^^^^3.415
+45 ;;^UTILITY(U,$J,112,9858,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,9859,0)
+48 ;;=BREAKFAST BAR,CARNATION,PEANUT BUTTER CRUNCH^BC-03132^1.35-oz.^38
+49 ;;^UTILITY(U,$J,112,9859,1)
+50 ;;=18.684^27.368^47.105^497.368^3.947^^^52.632^11.842^157.895^157.895^281.579^465.789^7.895^1.316^.55^^4605.263^73.684^.789
+51 ;;^UTILITY(U,$J,112,9859,2)
+52 ;;=.079^13.158^5.263^1.053^263.158^1.658^^^0^7.368^13.947^6.053^^^^^2.632
+53 ;;^UTILITY(U,$J,112,9859,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,9860,0)
+56 ;;=BREAKFAST BAR,CARNATION,PEANUT BUTTER W/ CHOC CHIPS^BC-03133^1.39-oz.^40
+57 ;;^UTILITY(U,$J,112,9860,1)
+58 ;;=17.5^26.25^48.5^490^3.5^^^50^11.25^150^150^275^417.5^7.5^1.25^2.025^^4375^70^.75
+59 ;;^UTILITY(U,$J,112,9860,2)
+60 ;;=.075^12.5^5^1^250^1.575^^^0^7.5^13.5^5.5^^^^^3.5
+61 ;;^UTILITY(U,$J,112,9860,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,9861,0)
+64 ;;=FIGURINE DIET BAR,PILSBURY,CHOC^BC-03134^2-bars^43
+65 ;;^UTILITY(U,$J,112,9861,1)
+66 ;;=10.465^24.884^51.86^465.116^3.488^^^262.791^11.302^172.093^281.395^497.674^216.279^7.047^1.221^^^2779.07^46.512^1.116
+67 ;;^UTILITY(U,$J,112,9861,2)
+68 ;;=.628^12.558^^1.163^300^2.209
+69 ;;^UTILITY(U,$J,112,9861,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,9862,0)
+72 ;;=FIGURINE DIET BAR,PILSBURY,CHOC PEANUT BUTTER^BC-03135^2-bars^43
+73 ;;^UTILITY(U,$J,112,9862,1)
+74 ;;=13.488^26.512^46.512^465.116^3.488^^^269.767^11^172.093^283.721^486.047^216.279^7.047^1.221^^^2779.07^46.512^1.14
+75 ;;^UTILITY(U,$J,112,9862,2)
+76 ;;=.628^14.419^^1.163^300^2.209
+77 ;;^UTILITY(U,$J,112,9862,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,9863,0)
+80 ;;=FIGURINE DIET BAR,PILSBURY,VANILLA^BC-03136^2-bars^43
+81 ;;^UTILITY(U,$J,112,9863,1)
+82 ;;=10^24.651^53.023^472.093^3.256^^^274.419^10.744^172.093^260.465^409.302^220.93^7.047^1.221^^^2779.07^46.512^.86
+83 ;;^UTILITY(U,$J,112,9863,2)
+84 ;;=.372^12.326^^1.163^300^2.209
+85 ;;^UTILITY(U,$J,112,9863,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,9864,0)
+88 ;;=FORTIFIED PUDDING,MIX,DELMARK,CHOC^BC-03137^1/2-cup^164
+89 ;;^UTILITY(U,$J,112,9864,1)
+90 ;;=5.488^4.878^21.341^152.439^^^^164.634^1.951^43.902^164.634^460.366^85.366^1.646^.22^.006^^548.78^6.707^.165
+91 ;;^UTILITY(U,$J,112,9864,2)
+92 ;;=.226^2.195^1.098^.22^42.683^.671^^^12.195
