FHINI0EV ; ; 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,9211,0)
;;=YOGURT (FROM COW MILK),LOWFAT,DANNON^BC-02484^8-floz.^227
;;^UTILITY(U,$J,112,9211,1)
;;=4.846^1.762^6.608^61.674^^^^176.211^^^110.132^^55.066^^^^^^0
;;^UTILITY(U,$J,112,9211,2)
;;=.225^0^^^^.106^^^6.608
;;^UTILITY(U,$J,112,9211,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9212,0)
;;=YOGURT (FROM COW MILK),LOWFAT,FRUIT FLAVOR,YOPLAIT^BC-02485^6-floz.^170
;;^UTILITY(U,$J,112,9212,1)
;;=4.706^1.765^18.824^111.765^^^^^^^^205.882^64.706
;;^UTILITY(U,$J,112,9212,2)
;;=^^^^^^^^5.882
;;^UTILITY(U,$J,112,9212,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9213,0)
;;=YOGURT (FROM COW MILK),LOWFAT,VANILLA,YOPLAIT^BC-02486^6-floz.^170
;;^UTILITY(U,$J,112,9213,1)
;;=5.294^1.765^17.059^105.882^^^^^^^^217.647^70.588
;;^UTILITY(U,$J,112,9213,2)
;;=^^^^^^^^8.824
;;^UTILITY(U,$J,112,9213,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9214,0)
;;=YOGURT (FROM COW MILK),LOWFAT,YOPLAIT^BC-02487^6-floz.^170
;;^UTILITY(U,$J,112,9214,1)
;;=5.882^1.765^8.824^76.471^^^^^^^^217.647^82.353
;;^UTILITY(U,$J,112,9214,2)
;;=^^^^^^^^8.824
;;^UTILITY(U,$J,112,9214,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9215,0)
;;=YOGURT (FROM COW MILK),SKIM,FRUIT FLAVORS,YOPLAIT^BC-02488^6-floz.^170
;;^UTILITY(U,$J,112,9215,1)
;;=4.118^0^18.235^88.235^^^^^^^^229.412^55.882
;;^UTILITY(U,$J,112,9215,2)
;;=^^^^^^^^2.941
;;^UTILITY(U,$J,112,9215,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9216,0)
;;=YOGURT (FROM COW MILK),SKIM,VANILLA,YOPLAIT^BC-02489^6-floz.^170
;;^UTILITY(U,$J,112,9216,1)
;;=4.706^0^16.471^88.235^^^^^^^^223.529^64.706
;;^UTILITY(U,$J,112,9216,2)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,9216,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9217,0)
;;=YOGURT (FROM COW MILK),SKIM,YOPLAIT^BC-02490^8-floz.^227
;;^UTILITY(U,$J,112,9217,1)
;;=5.727^0^7.93^52.863^^^^^^^^259.912^70.485
;;^UTILITY(U,$J,112,9217,2)
;;=^^^^^^^^2.203
;;^UTILITY(U,$J,112,9217,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9218,0)
;;=MILK,ALBA CHOC FLAVOR NONFAT DRY MILK IN WATER^BC-02491^8-floz.^250
;;^UTILITY(U,$J,112,9218,1)
;;=2.4^.4^5.2^32^^^^124^.096^^67.6^^48^^^^^151.2^.4^.028
;;^UTILITY(U,$J,112,9218,2)
;;=.116^.08^^.024
;;^UTILITY(U,$J,112,9218,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9219,0)
;;=MILK,CHOC,LOWFAT W/NUTRASWEET,LAND O'LAKES^BC-02492^8-floz.^244
;;^UTILITY(U,$J,112,9219,1)
;;=3.279^1.23^5.738^45.082^^^^^^^^^81.967
;;^UTILITY(U,$J,112,9219,2)
;;=^^^^^^^^2.049^.82^.41^0
;;^UTILITY(U,$J,112,9219,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9220,0)
;;=MILK,WHOLE,INSTANT BREAKFAST,CHOC,CARNATION^BC-02493^8-floz.^280
;;^UTILITY(U,$J,112,9220,1)
;;=5^3.214^12.857^100^^^^157.5^1.65^40.357^135^278.571^92.857^1.404^.179^^^734.643^10.357^.139
;;^UTILITY(U,$J,112,9220,2)
;;=.204^1.857^.989^.179^40^.525^^^12.5^2^.929^.143^^^^^.071
;;^UTILITY(U,$J,112,9220,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9221,0)
;;=MILK,WHOLE,INSTANT BREAKFAST,CHOC,DELMARK^BC-02494^8-floz.^279
;;^UTILITY(U,$J,112,9221,1)
;;=5.376^3.226^13.262^103.943^^^^168.459^2.115^47.312^150.538^258.065^96.774^1.756^.237^.004^^591.398^7.168^.179
;;^UTILITY(U,$J,112,9221,2)
;;=.254^2.366^1.183^.237^46.595^.717^^^14.337^^^^^^^^0
;;^UTILITY(U,$J,112,9221,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9222,0)
;;=MILK,WHOLE,INSTANT BREAKFAST,STRAWBERRY,CARNATION^BC-02495^8-floz.^280
;;^UTILITY(U,$J,112,9222,1)
;;=5^2.857^12.857^100^^^^157.5^1.65^40.357^135^239.286^117.857^1.404^.179^^^734.643^10.357^.139
;;^UTILITY(U,$J,112,9222,2)
;;=.204^1.786^.989^.179^40^.525^^^12.857^1.857^.857^.107^^^^^.036
;;^UTILITY(U,$J,112,9222,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9223,0)
;;=MILK,WHOLE,INSTANT BREAKFAST,VAN,CARNATION^BC-02496^8-floz.^279
;;^UTILITY(U,$J,112,9223,1)
;;=5.018^2.867^12.903^100.358^^^^158.065^1.656^40.502^135.484^240.143^93.19^1.409^.179^^^737.276^10.394^.14
;;^UTILITY(U,$J,112,9223,2)
;;=.204^1.864^.993^.179^40.143^.527^^^12.903^1.864^.86^.108^^^^^.036
;;^UTILITY(U,$J,112,9223,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,9224,0)
;;=MILK,WHOLE,INSTANT BREAKFAST,VAN/STRAWBERRY,DELMARK^BC-02497^8-floz.^279
;;^UTILITY(U,$J,112,9224,1)
;;=5.376^3.226^13.262^103.943^^^^168.459^2.115^47.312^150.538^225.806^78.853^1.756^.237^.004^^591.398^7.168^.179
FHINI0EV ; ; 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,9211,0)
+2 ;;=YOGURT (FROM COW MILK),LOWFAT,DANNON^BC-02484^8-floz.^227
+3 ;;^UTILITY(U,$J,112,9211,1)
+4 ;;=4.846^1.762^6.608^61.674^^^^176.211^^^110.132^^55.066^^^^^^0
+5 ;;^UTILITY(U,$J,112,9211,2)
+6 ;;=.225^0^^^^.106^^^6.608
+7 ;;^UTILITY(U,$J,112,9211,20)
+8 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+9 ;;^UTILITY(U,$J,112,9212,0)
+10 ;;=YOGURT (FROM COW MILK),LOWFAT,FRUIT FLAVOR,YOPLAIT^BC-02485^6-floz.^170
+11 ;;^UTILITY(U,$J,112,9212,1)
+12 ;;=4.706^1.765^18.824^111.765^^^^^^^^205.882^64.706
+13 ;;^UTILITY(U,$J,112,9212,2)
+14 ;;=^^^^^^^^5.882
+15 ;;^UTILITY(U,$J,112,9212,20)
+16 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+17 ;;^UTILITY(U,$J,112,9213,0)
+18 ;;=YOGURT (FROM COW MILK),LOWFAT,VANILLA,YOPLAIT^BC-02486^6-floz.^170
+19 ;;^UTILITY(U,$J,112,9213,1)
+20 ;;=5.294^1.765^17.059^105.882^^^^^^^^217.647^70.588
+21 ;;^UTILITY(U,$J,112,9213,2)
+22 ;;=^^^^^^^^8.824
+23 ;;^UTILITY(U,$J,112,9213,20)
+24 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+25 ;;^UTILITY(U,$J,112,9214,0)
+26 ;;=YOGURT (FROM COW MILK),LOWFAT,YOPLAIT^BC-02487^6-floz.^170
+27 ;;^UTILITY(U,$J,112,9214,1)
+28 ;;=5.882^1.765^8.824^76.471^^^^^^^^217.647^82.353
+29 ;;^UTILITY(U,$J,112,9214,2)
+30 ;;=^^^^^^^^8.824
+31 ;;^UTILITY(U,$J,112,9214,20)
+32 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+33 ;;^UTILITY(U,$J,112,9215,0)
+34 ;;=YOGURT (FROM COW MILK),SKIM,FRUIT FLAVORS,YOPLAIT^BC-02488^6-floz.^170
+35 ;;^UTILITY(U,$J,112,9215,1)
+36 ;;=4.118^0^18.235^88.235^^^^^^^^229.412^55.882
+37 ;;^UTILITY(U,$J,112,9215,2)
+38 ;;=^^^^^^^^2.941
+39 ;;^UTILITY(U,$J,112,9215,20)
+40 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+41 ;;^UTILITY(U,$J,112,9216,0)
+42 ;;=YOGURT (FROM COW MILK),SKIM,VANILLA,YOPLAIT^BC-02489^6-floz.^170
+43 ;;^UTILITY(U,$J,112,9216,1)
+44 ;;=4.706^0^16.471^88.235^^^^^^^^223.529^64.706
+45 ;;^UTILITY(U,$J,112,9216,2)
+46 ;;=^^^^^^^^0
+47 ;;^UTILITY(U,$J,112,9216,20)
+48 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+49 ;;^UTILITY(U,$J,112,9217,0)
+50 ;;=YOGURT (FROM COW MILK),SKIM,YOPLAIT^BC-02490^8-floz.^227
+51 ;;^UTILITY(U,$J,112,9217,1)
+52 ;;=5.727^0^7.93^52.863^^^^^^^^259.912^70.485
+53 ;;^UTILITY(U,$J,112,9217,2)
+54 ;;=^^^^^^^^2.203
+55 ;;^UTILITY(U,$J,112,9217,20)
+56 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+57 ;;^UTILITY(U,$J,112,9218,0)
+58 ;;=MILK,ALBA CHOC FLAVOR NONFAT DRY MILK IN WATER^BC-02491^8-floz.^250
+59 ;;^UTILITY(U,$J,112,9218,1)
+60 ;;=2.4^.4^5.2^32^^^^124^.096^^67.6^^48^^^^^151.2^.4^.028
+61 ;;^UTILITY(U,$J,112,9218,2)
+62 ;;=.116^.08^^.024
+63 ;;^UTILITY(U,$J,112,9218,20)
+64 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+65 ;;^UTILITY(U,$J,112,9219,0)
+66 ;;=MILK,CHOC,LOWFAT W/NUTRASWEET,LAND O'LAKES^BC-02492^8-floz.^244
+67 ;;^UTILITY(U,$J,112,9219,1)
+68 ;;=3.279^1.23^5.738^45.082^^^^^^^^^81.967
+69 ;;^UTILITY(U,$J,112,9219,2)
+70 ;;=^^^^^^^^2.049^.82^.41^0
+71 ;;^UTILITY(U,$J,112,9219,20)
+72 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+73 ;;^UTILITY(U,$J,112,9220,0)
+74 ;;=MILK,WHOLE,INSTANT BREAKFAST,CHOC,CARNATION^BC-02493^8-floz.^280
+75 ;;^UTILITY(U,$J,112,9220,1)
+76 ;;=5^3.214^12.857^100^^^^157.5^1.65^40.357^135^278.571^92.857^1.404^.179^^^734.643^10.357^.139
+77 ;;^UTILITY(U,$J,112,9220,2)
+78 ;;=.204^1.857^.989^.179^40^.525^^^12.5^2^.929^.143^^^^^.071
+79 ;;^UTILITY(U,$J,112,9220,20)
+80 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+81 ;;^UTILITY(U,$J,112,9221,0)
+82 ;;=MILK,WHOLE,INSTANT BREAKFAST,CHOC,DELMARK^BC-02494^8-floz.^279
+83 ;;^UTILITY(U,$J,112,9221,1)
+84 ;;=5.376^3.226^13.262^103.943^^^^168.459^2.115^47.312^150.538^258.065^96.774^1.756^.237^.004^^591.398^7.168^.179
+85 ;;^UTILITY(U,$J,112,9221,2)
+86 ;;=.254^2.366^1.183^.237^46.595^.717^^^14.337^^^^^^^^0
+87 ;;^UTILITY(U,$J,112,9221,20)
+88 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+89 ;;^UTILITY(U,$J,112,9222,0)
+90 ;;=MILK,WHOLE,INSTANT BREAKFAST,STRAWBERRY,CARNATION^BC-02495^8-floz.^280
+91 ;;^UTILITY(U,$J,112,9222,1)
+92 ;;=5^2.857^12.857^100^^^^157.5^1.65^40.357^135^239.286^117.857^1.404^.179^^^734.643^10.357^.139
+93 ;;^UTILITY(U,$J,112,9222,2)
+94 ;;=.204^1.786^.989^.179^40^.525^^^12.857^1.857^.857^.107^^^^^.036
+95 ;;^UTILITY(U,$J,112,9222,20)
+96 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+97 ;;^UTILITY(U,$J,112,9223,0)
+98 ;;=MILK,WHOLE,INSTANT BREAKFAST,VAN,CARNATION^BC-02496^8-floz.^279
+99 ;;^UTILITY(U,$J,112,9223,1)
+100 ;;=5.018^2.867^12.903^100.358^^^^158.065^1.656^40.502^135.484^240.143^93.19^1.409^.179^^^737.276^10.394^.14
+101 ;;^UTILITY(U,$J,112,9223,2)
+102 ;;=.204^1.864^.993^.179^40.143^.527^^^12.903^1.864^.86^.108^^^^^.036
+103 ;;^UTILITY(U,$J,112,9223,20)
+104 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+105 ;;^UTILITY(U,$J,112,9224,0)
+106 ;;=MILK,WHOLE,INSTANT BREAKFAST,VAN/STRAWBERRY,DELMARK^BC-02497^8-floz.^279
+107 ;;^UTILITY(U,$J,112,9224,1)
+108 ;;=5.376^3.226^13.262^103.943^^^^168.459^2.115^47.312^150.538^225.806^78.853^1.756^.237^.004^^591.398^7.168^.179
