FHINI0D9 ; ; 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,8425,2)
;;=^^^^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,8425,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8426,0)
;;=FISH,WHITE PERCH,FRIED FILLET^BC-01699^2.3-oz.^65
;;^UTILITY(U,$J,112,8426,1)
;;=19.231^8.154^0^150.769^^^^13.846^1.077^^173.846^^^^^^^0^0^.062
;;^UTILITY(U,$J,112,8426,2)
;;=.077^4.154^^^^^^^^^^^^^^^0
;;^UTILITY(U,$J,112,8426,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8427,0)
;;=FISH,YELLOWTAIL W/LEMON BUTTER SCE,HEALTHY CHOICE^BC-01700^8.25-oz.^234
;;^UTILITY(U,$J,112,8427,1)
;;=6.838^1.709^14.103^98.291^^^^28.632^^^95.299^162.393^166.667^^^^^^0^.085
;;^UTILITY(U,$J,112,8427,2)
;;=.06^.855^^^^^^^19.231^.855^^.427
;;^UTILITY(U,$J,112,8427,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8428,0)
;;=JUICE,APPLE CRANBERRY,CND,MOTT'S^BC-01701^6-floz.^187
;;^UTILITY(U,$J,112,8428,1)
;;=0^0^12.834^44.385^88.984^^^12.834^.428^^^101.07^9.091
;;^UTILITY(U,$J,112,8428,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8429,0)
;;=JUICE,APPLE GRAPE,CND,MOTT'S^BC-01702^6-floz.^187
;;^UTILITY(U,$J,112,8429,1)
;;=0^0^12.299^45.989^88.021^^^14.973^.588^^^78.075^9.091
;;^UTILITY(U,$J,112,8429,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8430,0)
;;=JUICE,APPLE RASPBERRY,CND,MOTT'S^BC-01703^6-floz.^185
;;^UTILITY(U,$J,112,8430,1)
;;=0^0^11.892^44.865^89.027^^^15.135^.541^^^85.946^25.946
;;^UTILITY(U,$J,112,8430,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8431,0)
;;=JUICE,BEEFAMATO,CND,MOTT'S^BC-01704^6-floz.^185
;;^UTILITY(U,$J,112,8431,1)
;;=.541^0^10.27^43.243^91.027^^^9.189^.162^^^99.459^129.73^^^^^^1.081
;;^UTILITY(U,$J,112,8431,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8432,0)
;;=JUICE,CLAMATO,CND,MOTT'S^BC-01705^6-floz.^187
;;^UTILITY(U,$J,112,8432,1)
;;=.535^0^12.299^51.337^88.984^^^12.299^.16^^^57.754^435.829^^^^^^4.278
;;^UTILITY(U,$J,112,8432,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8433,0)
;;=JUICE,GRAPEFRUIT,CITRUS HILL PLUS CALCIUM^BC-01706^6-floz.^185
;;^UTILITY(U,$J,112,8433,1)
;;=0^0^10.27^37.838^^^^108.108^^^8.108^75.676^5.405^^^^^^32.432^.016
;;^UTILITY(U,$J,112,8433,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8434,0)
;;=JUICE,ORANGE,CITRUS HILL PLUS CALCIUM^BC-01707^6-floz.^185
;;^UTILITY(U,$J,112,8434,1)
;;=0^0^10.811^48.649^^^^108.108^^^13.514^189.189^5.405^^^^^^38.919^.065
;;^UTILITY(U,$J,112,8434,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8435,0)
;;=JUICE,ORANGE,PINEAPPLE,BANANA,LAND O'LAKES^BC-01708^6-floz.^186
;;^UTILITY(U,$J,112,8435,1)
;;=.538^0^12.903^53.763^^^^^^^^193.548^0
;;^UTILITY(U,$J,112,8435,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,8435,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8436,0)
;;=JUICE,PINEAPPLE,CND,DOLE^BC-01709^6-floz.^188
;;^UTILITY(U,$J,112,8436,1)
;;=.426^.106^13.511^54.787^^^^14.894^.319^^9.043^148.936^1.064^^^^^47.872^^.048
;;^UTILITY(U,$J,112,8436,2)
;;=.021^.213
;;^UTILITY(U,$J,112,8436,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8437,0)
;;=JUICE,TOMATO,FROM CONCENTRATION,CAMPBELL'S^BC-01710^6-floz.^182
;;^UTILITY(U,$J,112,8437,1)
;;=.879^0^4.396^21.429^^^^10.989^1.209^^^206.593^323.626^^^^^630.769^13.736^.033
;;^UTILITY(U,$J,112,8437,2)
;;=.027^.604
;;^UTILITY(U,$J,112,8437,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8438,0)
;;=JUICE,VEG COCKTAIL,CAMPBELL'S^BC-01711^6-floz.^182
;;^UTILITY(U,$J,112,8438,1)
;;=.714^.11^4.78^23.077^^^^12.088^.549^^^208.791^257.143^^^^^647.802^50.549^.011
;;^UTILITY(U,$J,112,8438,2)
;;=.016^.769^^^^^^^0^0^^0^^^^^0
;;^UTILITY(U,$J,112,8438,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8439,0)
;;=JUICE,V-8 VEG COCKTAIL,CAMPBELL'S^BC-01712^6-floz.^182
;;^UTILITY(U,$J,112,8439,1)
;;=.714^.055^4.231^20.33^^^^13.187^.604^^^210.989^303.846^^^^^1268.132^20.33^.022
;;^UTILITY(U,$J,112,8439,2)
;;=.022^.659^^^^^^^0^^^^^^^^.714
;;^UTILITY(U,$J,112,8439,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,8440,0)
;;=JUICE,V-8 VEG COCKTAIL,CAMPBELL'S,NO SALT ADDED^BC-01713^6-floz.^182
;;^UTILITY(U,$J,112,8440,1)
;;=.879^0^4.56^21.978^^^^17.033^.714^^^234.615^23.077^^^^^1624.176^21.429^.022
;;^UTILITY(U,$J,112,8440,2)
;;=.027^.659^^^^^^^0^^^^^^^^.714
FHINI0D9 ; ; 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,8425,2)
+2 ;;=^^^^^^^^^^^^^^^^0
+3 ;;^UTILITY(U,$J,112,8425,20)
+4 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+5 ;;^UTILITY(U,$J,112,8426,0)
+6 ;;=FISH,WHITE PERCH,FRIED FILLET^BC-01699^2.3-oz.^65
+7 ;;^UTILITY(U,$J,112,8426,1)
+8 ;;=19.231^8.154^0^150.769^^^^13.846^1.077^^173.846^^^^^^^0^0^.062
+9 ;;^UTILITY(U,$J,112,8426,2)
+10 ;;=.077^4.154^^^^^^^^^^^^^^^0
+11 ;;^UTILITY(U,$J,112,8426,20)
+12 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+13 ;;^UTILITY(U,$J,112,8427,0)
+14 ;;=FISH,YELLOWTAIL W/LEMON BUTTER SCE,HEALTHY CHOICE^BC-01700^8.25-oz.^234
+15 ;;^UTILITY(U,$J,112,8427,1)
+16 ;;=6.838^1.709^14.103^98.291^^^^28.632^^^95.299^162.393^166.667^^^^^^0^.085
+17 ;;^UTILITY(U,$J,112,8427,2)
+18 ;;=.06^.855^^^^^^^19.231^.855^^.427
+19 ;;^UTILITY(U,$J,112,8427,20)
+20 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+21 ;;^UTILITY(U,$J,112,8428,0)
+22 ;;=JUICE,APPLE CRANBERRY,CND,MOTT'S^BC-01701^6-floz.^187
+23 ;;^UTILITY(U,$J,112,8428,1)
+24 ;;=0^0^12.834^44.385^88.984^^^12.834^.428^^^101.07^9.091
+25 ;;^UTILITY(U,$J,112,8428,20)
+26 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+27 ;;^UTILITY(U,$J,112,8429,0)
+28 ;;=JUICE,APPLE GRAPE,CND,MOTT'S^BC-01702^6-floz.^187
+29 ;;^UTILITY(U,$J,112,8429,1)
+30 ;;=0^0^12.299^45.989^88.021^^^14.973^.588^^^78.075^9.091
+31 ;;^UTILITY(U,$J,112,8429,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,8430,0)
+34 ;;=JUICE,APPLE RASPBERRY,CND,MOTT'S^BC-01703^6-floz.^185
+35 ;;^UTILITY(U,$J,112,8430,1)
+36 ;;=0^0^11.892^44.865^89.027^^^15.135^.541^^^85.946^25.946
+37 ;;^UTILITY(U,$J,112,8430,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,8431,0)
+40 ;;=JUICE,BEEFAMATO,CND,MOTT'S^BC-01704^6-floz.^185
+41 ;;^UTILITY(U,$J,112,8431,1)
+42 ;;=.541^0^10.27^43.243^91.027^^^9.189^.162^^^99.459^129.73^^^^^^1.081
+43 ;;^UTILITY(U,$J,112,8431,20)
+44 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+45 ;;^UTILITY(U,$J,112,8432,0)
+46 ;;=JUICE,CLAMATO,CND,MOTT'S^BC-01705^6-floz.^187
+47 ;;^UTILITY(U,$J,112,8432,1)
+48 ;;=.535^0^12.299^51.337^88.984^^^12.299^.16^^^57.754^435.829^^^^^^4.278
+49 ;;^UTILITY(U,$J,112,8432,20)
+50 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+51 ;;^UTILITY(U,$J,112,8433,0)
+52 ;;=JUICE,GRAPEFRUIT,CITRUS HILL PLUS CALCIUM^BC-01706^6-floz.^185
+53 ;;^UTILITY(U,$J,112,8433,1)
+54 ;;=0^0^10.27^37.838^^^^108.108^^^8.108^75.676^5.405^^^^^^32.432^.016
+55 ;;^UTILITY(U,$J,112,8433,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,8434,0)
+58 ;;=JUICE,ORANGE,CITRUS HILL PLUS CALCIUM^BC-01707^6-floz.^185
+59 ;;^UTILITY(U,$J,112,8434,1)
+60 ;;=0^0^10.811^48.649^^^^108.108^^^13.514^189.189^5.405^^^^^^38.919^.065
+61 ;;^UTILITY(U,$J,112,8434,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,8435,0)
+64 ;;=JUICE,ORANGE,PINEAPPLE,BANANA,LAND O'LAKES^BC-01708^6-floz.^186
+65 ;;^UTILITY(U,$J,112,8435,1)
+66 ;;=.538^0^12.903^53.763^^^^^^^^193.548^0
+67 ;;^UTILITY(U,$J,112,8435,2)
+68 ;;=^^^^^^^^0^0^0^0
+69 ;;^UTILITY(U,$J,112,8435,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,8436,0)
+72 ;;=JUICE,PINEAPPLE,CND,DOLE^BC-01709^6-floz.^188
+73 ;;^UTILITY(U,$J,112,8436,1)
+74 ;;=.426^.106^13.511^54.787^^^^14.894^.319^^9.043^148.936^1.064^^^^^47.872^^.048
+75 ;;^UTILITY(U,$J,112,8436,2)
+76 ;;=.021^.213
+77 ;;^UTILITY(U,$J,112,8436,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,8437,0)
+80 ;;=JUICE,TOMATO,FROM CONCENTRATION,CAMPBELL'S^BC-01710^6-floz.^182
+81 ;;^UTILITY(U,$J,112,8437,1)
+82 ;;=.879^0^4.396^21.429^^^^10.989^1.209^^^206.593^323.626^^^^^630.769^13.736^.033
+83 ;;^UTILITY(U,$J,112,8437,2)
+84 ;;=.027^.604
+85 ;;^UTILITY(U,$J,112,8437,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,8438,0)
+88 ;;=JUICE,VEG COCKTAIL,CAMPBELL'S^BC-01711^6-floz.^182
+89 ;;^UTILITY(U,$J,112,8438,1)
+90 ;;=.714^.11^4.78^23.077^^^^12.088^.549^^^208.791^257.143^^^^^647.802^50.549^.011
+91 ;;^UTILITY(U,$J,112,8438,2)
+92 ;;=.016^.769^^^^^^^0^0^^0^^^^^0
+93 ;;^UTILITY(U,$J,112,8438,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,8439,0)
+96 ;;=JUICE,V-8 VEG COCKTAIL,CAMPBELL'S^BC-01712^6-floz.^182
+97 ;;^UTILITY(U,$J,112,8439,1)
+98 ;;=.714^.055^4.231^20.33^^^^13.187^.604^^^210.989^303.846^^^^^1268.132^20.33^.022
+99 ;;^UTILITY(U,$J,112,8439,2)
+100 ;;=.022^.659^^^^^^^0^^^^^^^^.714
+101 ;;^UTILITY(U,$J,112,8439,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,8440,0)
+104 ;;=JUICE,V-8 VEG COCKTAIL,CAMPBELL'S,NO SALT ADDED^BC-01713^6-floz.^182
+105 ;;^UTILITY(U,$J,112,8440,1)
+106 ;;=.879^0^4.56^21.978^^^^17.033^.714^^^234.615^23.077^^^^^1624.176^21.429^.022
+107 ;;^UTILITY(U,$J,112,8440,2)
+108 ;;=.027^.659^^^^^^^0^^^^^^^^.714
