FHINI09U ; ; 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,6731,1)
;;=.336^0^3.109^39.776^92.717^^^3.361^.003^5.322^41.176^31.092^3.361^.003^.003^.008^^^^0
;;^UTILITY(U,$J,112,6731,2)
;;=.031^.616^.059^.045^^0^^^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,6731,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6732,0)
;;=BEER,COORS PREMIUM^BC-00005^cans^360
;;^UTILITY(U,$J,112,6732,1)
;;=.278^^3.222^39.167^^^^3.333^^^^23.056^4.167^^^^^^^.011
;;^UTILITY(U,$J,112,6732,2)
;;=.025^.389
;;^UTILITY(U,$J,112,6732,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6733,0)
;;=BEER,HEILEMAN'S OLD STYLE^BC-00006^cans^360
;;^UTILITY(U,$J,112,6733,1)
;;=.306^0^3.194^40.556^^^^4.722^.006^^^22.5^2.778
;;^UTILITY(U,$J,112,6733,2)
;;=^^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,6733,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6734,0)
;;=BEER,MEISTER BRAU^BC-00007^cans^360
;;^UTILITY(U,$J,112,6734,1)
;;=.278^0^3.556^39.167^^^^^^^^^1.667
;;^UTILITY(U,$J,112,6734,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,6734,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6735,0)
;;=BEER,STROH'S AMERICAN LAGER^BC-00008^cans^355
;;^UTILITY(U,$J,112,6735,1)
;;=.535^0^3.775^40.845^90.986^^^6.197^0^7.042^13.521^18.028^7.042^.008^0^^^0^0^.003
;;^UTILITY(U,$J,112,6735,2)
;;=.02^.507^.048^.051^^^^^0^0^^0^0^^^^0
;;^UTILITY(U,$J,112,6735,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6736,0)
;;=BEER,BLATZ LIGHT^BC-00009^cans^360
;;^UTILITY(U,$J,112,6736,1)
;;=.25^0^.889^26.667^^^^4.722^.006^^^16.944^4.167
;;^UTILITY(U,$J,112,6736,2)
;;=^^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,6736,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6737,0)
;;=BEER,BUD LIGHT^BC-00010^cans^356
;;^UTILITY(U,$J,112,6737,1)
;;=.337^0^1.882^30.899^94.382^^^3.09^.003^4.775^39.045^25.281^3.371^.003^.003^.008^^^^0
;;^UTILITY(U,$J,112,6737,2)
;;=.02^.449^.051^.045^^0^^^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,6737,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6738,0)
;;=BEER,COORS LIGHT^BC-00011^cans^360
;;^UTILITY(U,$J,112,6738,1)
;;=.194^^1.361^28.611^^^^3.611^^^^18.611^5^^^^^^^.011
;;^UTILITY(U,$J,112,6738,2)
;;=.025^.028
;;^UTILITY(U,$J,112,6738,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6739,0)
;;=BEER,HEILEMAN'S OLD STYLE LIGHT^BC-00012^cans^360
;;^UTILITY(U,$J,112,6739,1)
;;=.25^0^1.778^27.5^^^^4.722^.006^^^15^1.944
;;^UTILITY(U,$J,112,6739,2)
;;=^^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,6739,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6740,0)
;;=BEER,MEISTER BRAU LIGHT^BC-00013^cans^360
;;^UTILITY(U,$J,112,6740,1)
;;=.222^0^.972^27.222^^^^^^^^^1.667
;;^UTILITY(U,$J,112,6740,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,6740,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6741,0)
;;=BEER,MILLER LITE^BC-00014^cans^360
;;^UTILITY(U,$J,112,6741,1)
;;=.25^0^.778^26.667^^^^^^^^^1.667
;;^UTILITY(U,$J,112,6741,2)
;;=^^^^^^^^0^0^0^0
;;^UTILITY(U,$J,112,6741,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6742,0)
;;=BEER,BLATZ (LOW ALCOHOL)^BC-00015^cans^360
;;^UTILITY(U,$J,112,6742,1)
;;=.25^0^1.944^20.278^^^^4.444^.006^^^12.5^2.222
;;^UTILITY(U,$J,112,6742,2)
;;=^^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,6742,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6743,0)
;;=BEER,HEILEMAN'S OLD STYLE (LOW ALCOHOL)^BC-00016^cans^360
;;^UTILITY(U,$J,112,6743,1)
;;=.194^0^1.944^20.278^^^^4.444^.006^^^12.5^2.222
;;^UTILITY(U,$J,112,6743,2)
;;=^^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,6743,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6744,0)
;;=MALT LIQUOR,COLT 45^BC-00017^cans^360
;;^UTILITY(U,$J,112,6744,1)
;;=.333^0^3.056^43.333^^^^4.722^.006^^^25.833^3.889
;;^UTILITY(U,$J,112,6744,2)
;;=^^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,6744,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6745,0)
;;=WINE BEV.,SPARKLING COOLER,CITRUS,LA CROIX^BC-00018^cans^360
;;^UTILITY(U,$J,112,6745,1)
;;=.139^0^8.333^59.722^^^^^.019^^^^2.778
;;^UTILITY(U,$J,112,6745,2)
;;=^^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,6745,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6746,0)
;;=WINE BEV.,SPARKLING COOLER,STRAWBERRY,LA CROIX^BC-00019^cans^360
;;^UTILITY(U,$J,112,6746,1)
;;=.139^0^8.333^59.722^^^^^.019^^^^2.778
;;^UTILITY(U,$J,112,6746,2)
;;=^^^^^^^^0^0^^0
FHINI09U ; ; 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,6731,1)
+2 ;;=.336^0^3.109^39.776^92.717^^^3.361^.003^5.322^41.176^31.092^3.361^.003^.003^.008^^^^0
+3 ;;^UTILITY(U,$J,112,6731,2)
+4 ;;=.031^.616^.059^.045^^0^^^0^0^0^0^^^^^0
+5 ;;^UTILITY(U,$J,112,6731,20)
+6 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+7 ;;^UTILITY(U,$J,112,6732,0)
+8 ;;=BEER,COORS PREMIUM^BC-00005^cans^360
+9 ;;^UTILITY(U,$J,112,6732,1)
+10 ;;=.278^^3.222^39.167^^^^3.333^^^^23.056^4.167^^^^^^^.011
+11 ;;^UTILITY(U,$J,112,6732,2)
+12 ;;=.025^.389
+13 ;;^UTILITY(U,$J,112,6732,20)
+14 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+15 ;;^UTILITY(U,$J,112,6733,0)
+16 ;;=BEER,HEILEMAN'S OLD STYLE^BC-00006^cans^360
+17 ;;^UTILITY(U,$J,112,6733,1)
+18 ;;=.306^0^3.194^40.556^^^^4.722^.006^^^22.5^2.778
+19 ;;^UTILITY(U,$J,112,6733,2)
+20 ;;=^^^^^^^^0^0^^0
+21 ;;^UTILITY(U,$J,112,6733,20)
+22 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+23 ;;^UTILITY(U,$J,112,6734,0)
+24 ;;=BEER,MEISTER BRAU^BC-00007^cans^360
+25 ;;^UTILITY(U,$J,112,6734,1)
+26 ;;=.278^0^3.556^39.167^^^^^^^^^1.667
+27 ;;^UTILITY(U,$J,112,6734,2)
+28 ;;=^^^^^^^^0^0^0^0
+29 ;;^UTILITY(U,$J,112,6734,20)
+30 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+31 ;;^UTILITY(U,$J,112,6735,0)
+32 ;;=BEER,STROH'S AMERICAN LAGER^BC-00008^cans^355
+33 ;;^UTILITY(U,$J,112,6735,1)
+34 ;;=.535^0^3.775^40.845^90.986^^^6.197^0^7.042^13.521^18.028^7.042^.008^0^^^0^0^.003
+35 ;;^UTILITY(U,$J,112,6735,2)
+36 ;;=.02^.507^.048^.051^^^^^0^0^^0^0^^^^0
+37 ;;^UTILITY(U,$J,112,6735,20)
+38 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+39 ;;^UTILITY(U,$J,112,6736,0)
+40 ;;=BEER,BLATZ LIGHT^BC-00009^cans^360
+41 ;;^UTILITY(U,$J,112,6736,1)
+42 ;;=.25^0^.889^26.667^^^^4.722^.006^^^16.944^4.167
+43 ;;^UTILITY(U,$J,112,6736,2)
+44 ;;=^^^^^^^^0^0^^0
+45 ;;^UTILITY(U,$J,112,6736,20)
+46 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+47 ;;^UTILITY(U,$J,112,6737,0)
+48 ;;=BEER,BUD LIGHT^BC-00010^cans^356
+49 ;;^UTILITY(U,$J,112,6737,1)
+50 ;;=.337^0^1.882^30.899^94.382^^^3.09^.003^4.775^39.045^25.281^3.371^.003^.003^.008^^^^0
+51 ;;^UTILITY(U,$J,112,6737,2)
+52 ;;=.02^.449^.051^.045^^0^^^0^0^0^0^^^^^0
+53 ;;^UTILITY(U,$J,112,6737,20)
+54 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+55 ;;^UTILITY(U,$J,112,6738,0)
+56 ;;=BEER,COORS LIGHT^BC-00011^cans^360
+57 ;;^UTILITY(U,$J,112,6738,1)
+58 ;;=.194^^1.361^28.611^^^^3.611^^^^18.611^5^^^^^^^.011
+59 ;;^UTILITY(U,$J,112,6738,2)
+60 ;;=.025^.028
+61 ;;^UTILITY(U,$J,112,6738,20)
+62 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+63 ;;^UTILITY(U,$J,112,6739,0)
+64 ;;=BEER,HEILEMAN'S OLD STYLE LIGHT^BC-00012^cans^360
+65 ;;^UTILITY(U,$J,112,6739,1)
+66 ;;=.25^0^1.778^27.5^^^^4.722^.006^^^15^1.944
+67 ;;^UTILITY(U,$J,112,6739,2)
+68 ;;=^^^^^^^^0^0^^0
+69 ;;^UTILITY(U,$J,112,6739,20)
+70 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+71 ;;^UTILITY(U,$J,112,6740,0)
+72 ;;=BEER,MEISTER BRAU LIGHT^BC-00013^cans^360
+73 ;;^UTILITY(U,$J,112,6740,1)
+74 ;;=.222^0^.972^27.222^^^^^^^^^1.667
+75 ;;^UTILITY(U,$J,112,6740,2)
+76 ;;=^^^^^^^^0^0^0^0
+77 ;;^UTILITY(U,$J,112,6740,20)
+78 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+79 ;;^UTILITY(U,$J,112,6741,0)
+80 ;;=BEER,MILLER LITE^BC-00014^cans^360
+81 ;;^UTILITY(U,$J,112,6741,1)
+82 ;;=.25^0^.778^26.667^^^^^^^^^1.667
+83 ;;^UTILITY(U,$J,112,6741,2)
+84 ;;=^^^^^^^^0^0^0^0
+85 ;;^UTILITY(U,$J,112,6741,20)
+86 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+87 ;;^UTILITY(U,$J,112,6742,0)
+88 ;;=BEER,BLATZ (LOW ALCOHOL)^BC-00015^cans^360
+89 ;;^UTILITY(U,$J,112,6742,1)
+90 ;;=.25^0^1.944^20.278^^^^4.444^.006^^^12.5^2.222
+91 ;;^UTILITY(U,$J,112,6742,2)
+92 ;;=^^^^^^^^0^0^^0
+93 ;;^UTILITY(U,$J,112,6742,20)
+94 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+95 ;;^UTILITY(U,$J,112,6743,0)
+96 ;;=BEER,HEILEMAN'S OLD STYLE (LOW ALCOHOL)^BC-00016^cans^360
+97 ;;^UTILITY(U,$J,112,6743,1)
+98 ;;=.194^0^1.944^20.278^^^^4.444^.006^^^12.5^2.222
+99 ;;^UTILITY(U,$J,112,6743,2)
+100 ;;=^^^^^^^^0^0^^0
+101 ;;^UTILITY(U,$J,112,6743,20)
+102 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+103 ;;^UTILITY(U,$J,112,6744,0)
+104 ;;=MALT LIQUOR,COLT 45^BC-00017^cans^360
+105 ;;^UTILITY(U,$J,112,6744,1)
+106 ;;=.333^0^3.056^43.333^^^^4.722^.006^^^25.833^3.889
+107 ;;^UTILITY(U,$J,112,6744,2)
+108 ;;=^^^^^^^^0^0^^0
+109 ;;^UTILITY(U,$J,112,6744,20)
+110 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+111 ;;^UTILITY(U,$J,112,6745,0)
+112 ;;=WINE BEV.,SPARKLING COOLER,CITRUS,LA CROIX^BC-00018^cans^360
+113 ;;^UTILITY(U,$J,112,6745,1)
+114 ;;=.139^0^8.333^59.722^^^^^.019^^^^2.778
+115 ;;^UTILITY(U,$J,112,6745,2)
+116 ;;=^^^^^^^^0^0^^0
+117 ;;^UTILITY(U,$J,112,6745,20)
+118 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+119 ;;^UTILITY(U,$J,112,6746,0)
+120 ;;=WINE BEV.,SPARKLING COOLER,STRAWBERRY,LA CROIX^BC-00019^cans^360
+121 ;;^UTILITY(U,$J,112,6746,1)
+122 ;;=.139^0^8.333^59.722^^^^^.019^^^^2.778
+123 ;;^UTILITY(U,$J,112,6746,2)
+124 ;;=^^^^^^^^0^0^^0
