FHINI0AM ; ; 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,7121,0)
;;=ICE CREAM,MACADAMIA NUT,HAAGEN-DAZS^BC-00394^1/2-cup^118
;;^UTILITY(U,$J,112,7121,1)
;;=4.576^22.119^22.203^305.932^50^^^100^.347^^110.169^157.627^73.729^^^^^500^^.051
;;^UTILITY(U,$J,112,7121,2)
;;=.203^1.102
;;^UTILITY(U,$J,112,7121,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7122,0)
;;=ICE CREAM,STRAWBERRY,HAAGEN-DAZS^BC-00395^1/2-cup^116
;;^UTILITY(U,$J,112,7122,1)
;;=4.138^14.31^21.983^232.759^58.966^^^98.276^.069^^98.276^149.138^37.069^^^^^480.172^^.026
;;^UTILITY(U,$J,112,7122,2)
;;=.19^.69
;;^UTILITY(U,$J,112,7122,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7123,0)
;;=ICE CREAM,VANILLA,HAAGEN-DAZS^BC-00396^1/2-cup^90
;;^UTILITY(U,$J,112,7123,1)
;;=4.444^15.556^21.556^244.444^57.444^^^97.778^.089^^101.111^135.556^50^^^^^493.333^^.033
;;^UTILITY(U,$J,112,7123,2)
;;=.211^.778
;;^UTILITY(U,$J,112,7123,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7124,0)
;;=ICE CREAM BAR,CHOC W/DARK CHOC COAT,HAAGEN-DAZS^BC-00397^bars^103
;;^UTILITY(U,$J,112,7124,1)
;;=4.757^23.981^28.544^350.485^41.359^^^73.786^.903^^124.272^239.806^52.427^^^^^50.485^0^.019
;;^UTILITY(U,$J,112,7124,2)
;;=.204^.583
;;^UTILITY(U,$J,112,7124,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7125,0)
;;=ICE CREAM BAR,GOOD HUMOR LIGHT^BC-00398^bars^62
;;^UTILITY(U,$J,112,7125,1)
;;=3.71^16.129^29.516^277.419^^^^40.323^1.129^33.871^90.323^212.903^195.161^.645^.161^^^0^0^0
;;^UTILITY(U,$J,112,7125,2)
;;=.161^.161
;;^UTILITY(U,$J,112,7125,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7126,0)
;;=ICE CREAM BAR,VAN W/DARK CHOC COAT,HAAGEN-DAZS^BC-00399^bars^95
;;^UTILITY(U,$J,112,7126,1)
;;=4.737^23.789^28.842^349.474^41.474^^^81.053^3.505^^125.263^202.105^56.842^^^^^58.947^0^.032
;;^UTILITY(U,$J,112,7126,2)
;;=.137^.842
;;^UTILITY(U,$J,112,7126,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7127,0)
;;=PUDDING POPS DELUXE,JELL-O (CHOC/CHOC COAT)^BC-00400^bars^77
;;^UTILITY(U,$J,112,7127,1)
;;=3.896^12.987^35.065^261.039^^^^142.857^.909^33.766^127.273^206.494^157.143^^.208^^^107.792^^.039
;;^UTILITY(U,$J,112,7127,2)
;;=.182^.26^.312^.026^2.597^.13^^^2.597
;;^UTILITY(U,$J,112,7127,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7128,0)
;;=PUDDING POPS DELUXE,JELL-O (PEANUT&CHOC)^BC-00401^bars^77
;;^UTILITY(U,$J,112,7128,1)
;;=5.195^11.688^31.169^246.753^^^^151.948^.649^27.273^124.675^197.403^168.831^^.13^^^114.286^^.039
;;^UTILITY(U,$J,112,7128,2)
;;=.182^.39^.351^.026^5.195^.13^^^2.597
;;^UTILITY(U,$J,112,7128,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7129,0)
;;=PUDDING POPS,JELL-O (CHOC)^BC-00402^pops^47
;;^UTILITY(U,$J,112,7129,1)
;;=4.255^4.043^27.021^168.085^63.617^^^155.319^.596^21.277^117.021^187.234^174.468^.383^.079^^^110.638^0^.043
;;^UTILITY(U,$J,112,7129,2)
;;=.191^.213^.34^.021^4.255^.234^^^2.128^3.83^^0
;;^UTILITY(U,$J,112,7129,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7130,0)
;;=PUDDING POPS,JELL-O (CHOC-CARAMEL SWIRL)^BC-00403^pops^47
;;^UTILITY(U,$J,112,7130,1)
;;=4.043^4.043^26.17^157.447^64.681^^^136.17^.34^14.894^106.383^157.447^134.043^.298^.04^^^142.553^0^.043
;;^UTILITY(U,$J,112,7130,2)
;;=.191^.213^.362^.021^2.128^.362^^^2.128^3.83^^0
;;^UTILITY(U,$J,112,7130,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7131,0)
;;=PUDDING POPS,JELL-O (CHOC-VAN SWIRL)^BC-00404^pops^47
;;^UTILITY(U,$J,112,7131,1)
;;=4.043^4.043^27.66^165.957^64.681^^^151.064^.34^14.894^108.511^148.936^140.426^.298^.045^^^142.553^0^.043
;;^UTILITY(U,$J,112,7131,2)
;;=.191^.213^.362^.021^4.255^.213^^^2.128^3.83^^0
;;^UTILITY(U,$J,112,7131,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7132,0)
;;=PUDDING POPS,JELL-O (MILK CHOC)^BC-00405^pops^47
;;^UTILITY(U,$J,112,7132,1)
;;=4.043^4.468^27.66^170.213^65.745^^^155.319^.426^19.149^114.894^134.043^176.596^.319^.064^^^112.766^0^.043
;;^UTILITY(U,$J,112,7132,2)
;;=.191^.213^.34^.021^4.255^.213^^^2.128^4.255^^0
;;^UTILITY(U,$J,112,7132,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,7133,0)
;;=PUDDING POPS,JELL-O (VANILLA)^BC-00406^pops^47
;;^UTILITY(U,$J,112,7133,1)
;;=3.617^4.255^27.66^163.83^65.957^^^148.936^.213^10.638^100^110.638^106.383^.213^.009^^^174.468^0^.043
;;^UTILITY(U,$J,112,7133,2)
;;=.191^0^.404^.043^4.255^.468^^^2.128^4.043^^0
FHINI0AM ; ; 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,7121,0)
+2 ;;=ICE CREAM,MACADAMIA NUT,HAAGEN-DAZS^BC-00394^1/2-cup^118
+3 ;;^UTILITY(U,$J,112,7121,1)
+4 ;;=4.576^22.119^22.203^305.932^50^^^100^.347^^110.169^157.627^73.729^^^^^500^^.051
+5 ;;^UTILITY(U,$J,112,7121,2)
+6 ;;=.203^1.102
+7 ;;^UTILITY(U,$J,112,7121,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,7122,0)
+10 ;;=ICE CREAM,STRAWBERRY,HAAGEN-DAZS^BC-00395^1/2-cup^116
+11 ;;^UTILITY(U,$J,112,7122,1)
+12 ;;=4.138^14.31^21.983^232.759^58.966^^^98.276^.069^^98.276^149.138^37.069^^^^^480.172^^.026
+13 ;;^UTILITY(U,$J,112,7122,2)
+14 ;;=.19^.69
+15 ;;^UTILITY(U,$J,112,7122,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,7123,0)
+18 ;;=ICE CREAM,VANILLA,HAAGEN-DAZS^BC-00396^1/2-cup^90
+19 ;;^UTILITY(U,$J,112,7123,1)
+20 ;;=4.444^15.556^21.556^244.444^57.444^^^97.778^.089^^101.111^135.556^50^^^^^493.333^^.033
+21 ;;^UTILITY(U,$J,112,7123,2)
+22 ;;=.211^.778
+23 ;;^UTILITY(U,$J,112,7123,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,7124,0)
+26 ;;=ICE CREAM BAR,CHOC W/DARK CHOC COAT,HAAGEN-DAZS^BC-00397^bars^103
+27 ;;^UTILITY(U,$J,112,7124,1)
+28 ;;=4.757^23.981^28.544^350.485^41.359^^^73.786^.903^^124.272^239.806^52.427^^^^^50.485^0^.019
+29 ;;^UTILITY(U,$J,112,7124,2)
+30 ;;=.204^.583
+31 ;;^UTILITY(U,$J,112,7124,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,7125,0)
+34 ;;=ICE CREAM BAR,GOOD HUMOR LIGHT^BC-00398^bars^62
+35 ;;^UTILITY(U,$J,112,7125,1)
+36 ;;=3.71^16.129^29.516^277.419^^^^40.323^1.129^33.871^90.323^212.903^195.161^.645^.161^^^0^0^0
+37 ;;^UTILITY(U,$J,112,7125,2)
+38 ;;=.161^.161
+39 ;;^UTILITY(U,$J,112,7125,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,7126,0)
+42 ;;=ICE CREAM BAR,VAN W/DARK CHOC COAT,HAAGEN-DAZS^BC-00399^bars^95
+43 ;;^UTILITY(U,$J,112,7126,1)
+44 ;;=4.737^23.789^28.842^349.474^41.474^^^81.053^3.505^^125.263^202.105^56.842^^^^^58.947^0^.032
+45 ;;^UTILITY(U,$J,112,7126,2)
+46 ;;=.137^.842
+47 ;;^UTILITY(U,$J,112,7126,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,7127,0)
+50 ;;=PUDDING POPS DELUXE,JELL-O (CHOC/CHOC COAT)^BC-00400^bars^77
+51 ;;^UTILITY(U,$J,112,7127,1)
+52 ;;=3.896^12.987^35.065^261.039^^^^142.857^.909^33.766^127.273^206.494^157.143^^.208^^^107.792^^.039
+53 ;;^UTILITY(U,$J,112,7127,2)
+54 ;;=.182^.26^.312^.026^2.597^.13^^^2.597
+55 ;;^UTILITY(U,$J,112,7127,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,7128,0)
+58 ;;=PUDDING POPS DELUXE,JELL-O (PEANUT&CHOC)^BC-00401^bars^77
+59 ;;^UTILITY(U,$J,112,7128,1)
+60 ;;=5.195^11.688^31.169^246.753^^^^151.948^.649^27.273^124.675^197.403^168.831^^.13^^^114.286^^.039
+61 ;;^UTILITY(U,$J,112,7128,2)
+62 ;;=.182^.39^.351^.026^5.195^.13^^^2.597
+63 ;;^UTILITY(U,$J,112,7128,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,7129,0)
+66 ;;=PUDDING POPS,JELL-O (CHOC)^BC-00402^pops^47
+67 ;;^UTILITY(U,$J,112,7129,1)
+68 ;;=4.255^4.043^27.021^168.085^63.617^^^155.319^.596^21.277^117.021^187.234^174.468^.383^.079^^^110.638^0^.043
+69 ;;^UTILITY(U,$J,112,7129,2)
+70 ;;=.191^.213^.34^.021^4.255^.234^^^2.128^3.83^^0
+71 ;;^UTILITY(U,$J,112,7129,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,7130,0)
+74 ;;=PUDDING POPS,JELL-O (CHOC-CARAMEL SWIRL)^BC-00403^pops^47
+75 ;;^UTILITY(U,$J,112,7130,1)
+76 ;;=4.043^4.043^26.17^157.447^64.681^^^136.17^.34^14.894^106.383^157.447^134.043^.298^.04^^^142.553^0^.043
+77 ;;^UTILITY(U,$J,112,7130,2)
+78 ;;=.191^.213^.362^.021^2.128^.362^^^2.128^3.83^^0
+79 ;;^UTILITY(U,$J,112,7130,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,7131,0)
+82 ;;=PUDDING POPS,JELL-O (CHOC-VAN SWIRL)^BC-00404^pops^47
+83 ;;^UTILITY(U,$J,112,7131,1)
+84 ;;=4.043^4.043^27.66^165.957^64.681^^^151.064^.34^14.894^108.511^148.936^140.426^.298^.045^^^142.553^0^.043
+85 ;;^UTILITY(U,$J,112,7131,2)
+86 ;;=.191^.213^.362^.021^4.255^.213^^^2.128^3.83^^0
+87 ;;^UTILITY(U,$J,112,7131,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,7132,0)
+90 ;;=PUDDING POPS,JELL-O (MILK CHOC)^BC-00405^pops^47
+91 ;;^UTILITY(U,$J,112,7132,1)
+92 ;;=4.043^4.468^27.66^170.213^65.745^^^155.319^.426^19.149^114.894^134.043^176.596^.319^.064^^^112.766^0^.043
+93 ;;^UTILITY(U,$J,112,7132,2)
+94 ;;=.191^.213^.34^.021^4.255^.213^^^2.128^4.255^^0
+95 ;;^UTILITY(U,$J,112,7132,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,7133,0)
+98 ;;=PUDDING POPS,JELL-O (VANILLA)^BC-00406^pops^47
+99 ;;^UTILITY(U,$J,112,7133,1)
+100 ;;=3.617^4.255^27.66^163.83^65.957^^^148.936^.213^10.638^100^110.638^106.383^.213^.009^^^174.468^0^.043
+101 ;;^UTILITY(U,$J,112,7133,2)
+102 ;;=.191^0^.404^.043^4.255^.468^^^2.128^4.043^^0