FHINI09T ; ; 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,6717,2)
;;=.44^3.5^1.3^.18^26.1^.39^.5^^2.2^2.2^.4^.7
;;^UTILITY(U,$J,112,6717,3)
;;=.02^.11^.1^.19^.15^.05^.03^.06^^.1^^.04
;;^UTILITY(U,$J,112,6717,4)
;;=^^^^^^^^8.5
;;^UTILITY(U,$J,112,6717,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6718,0)
;;=SIMILAC SPECIAL CARE 24 LIQUID 24 CAL/OZ^IF-032^floz.^30
;;^UTILITY(U,$J,112,6718,1)
;;=2.3^4.6^8.9^85^91.6^^^151.3^.3^10.1^75.6^108.4^36.1^1.3^.21^.01^3.4^571.5^31.1^.21
;;^UTILITY(U,$J,112,6718,2)
;;=.52^4.2^1.6^.21^31.1^.46^.6^^2.6^2.6^.5^.8
;;^UTILITY(U,$J,112,6718,3)
;;=.03^.13^.12^.22^.18^.06^.04^.07^^.12^^.04
;;^UTILITY(U,$J,112,6718,4)
;;=^^^^^^^^10.1
;;^UTILITY(U,$J,112,6718,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6719,0)
;;=SIMILAC SPECIAL CARE 24 W/IRON LIQUID 24 CAL/OZ^IF-033^floz.^30
;;^UTILITY(U,$J,112,6719,1)
;;=2.3^4.6^8.9^85^91.6^^^151.3^1.5^10.1^75.6^108.4^36.1^1.3^.21^.01^3.4^571.5^31.1^.21
;;^UTILITY(U,$J,112,6719,2)
;;=.52^4.2^1.6^.21^31.1^.46^.6^^2.6^2.6^.5^.8
;;^UTILITY(U,$J,112,6719,3)
;;=.03^.13^.12^.22^.18^.06^.04^.07^^.12^^.04
;;^UTILITY(U,$J,112,6719,4)
;;=^^^^^^^^10.1
;;^UTILITY(U,$J,112,6719,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6720,0)
;;=MAXAMAID XP POWDER 100 GM^IF-034^100-gm.^100
;;^UTILITY(U,$J,112,6720,1)
;;=25^1^62^350^3^^^810^12^200^810^840^580^13^2^1.3^6.5^1000^67^1.1
;;^UTILITY(U,$J,112,6720,2)
;;=1.2^12^3.7^1^150^4
;;^UTILITY(U,$J,112,6720,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6721,0)
;;=MAXAMAID MSUD POWDER 100 GM^IF-035^100-gm.^100
;;^UTILITY(U,$J,112,6721,1)
;;=25^1^62^350^3^^^810^12^200^810^840^580^13^2^1.3^6.5^1000^67^1.1
;;^UTILITY(U,$J,112,6721,2)
;;=1.2^12^3.7^1^150^4
;;^UTILITY(U,$J,112,6721,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6722,0)
;;=MAXAMAID XPHEN TYR POWDER 100 GM^IF-036^100-gm.^100
;;^UTILITY(U,$J,112,6722,1)
;;=25^1^62^350^3^^^810^12^200^810^840^580^13^2^1.3^6.5^1000^135^1.1
;;^UTILITY(U,$J,112,6722,2)
;;=1.2^12^3.7^1^150^4
;;^UTILITY(U,$J,112,6722,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6723,0)
;;=MAXAMAID XMET POWDER 100 GM^IF-037^100-gm.^100
;;^UTILITY(U,$J,112,6723,1)
;;=25^1^62^350^3^^^810^12^200^810^840^580^13^2^1.3^6.5^1000^135^1.1
;;^UTILITY(U,$J,112,6723,2)
;;=1.2^12^3.7^1^150^4
;;^UTILITY(U,$J,112,6723,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6724,0)
;;=MAXAMAID XMET THRE, VAL, ISOLEU POWDER 100 GM^IF-038^100-gm.^100
;;^UTILITY(U,$J,112,6724,1)
;;=25^1^62^350^3^^^810^12^200^810^840^580^13^2^1.3^6.5^1000^135^1.1
;;^UTILITY(U,$J,112,6724,2)
;;=1.2^12^3.7^1^150^4
;;^UTILITY(U,$J,112,6724,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6725,0)
;;=MAXAMUM MSUD POWDER 100 GM^IF-039^100-gm.^100
;;^UTILITY(U,$J,112,6725,1)
;;=39^1^45^340^3^^^670^23.5^285^670^700^560^13.6^1.4^1.7^7.8^2350^90^1.4
;;^UTILITY(U,$J,112,6725,2)
;;=1.4^13.6^5^2.1^500^4
;;^UTILITY(U,$J,112,6725,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6726,0)
;;=MAXAMUM XP POWDER 100 GM^IF-040^100-gm.^100
;;^UTILITY(U,$J,112,6726,1)
;;=39^1^45^340^3^^^670^23.5^285^670^700^560^13.6^1.4^1.7^7.8^2350^45^1.4
;;^UTILITY(U,$J,112,6726,2)
;;=1.4^13.6^5^2.1^500^4
;;^UTILITY(U,$J,112,6726,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6727,0)
;;=RCF CONCENTRATED LIQUID 23.8 CAL/OZ^IF-041^floz.^30
;;^UTILITY(U,$J,112,6727,1)
;;=4.2^7.5^.008^84^92.5^^^145.4^.3^10.4^104.2^151.3^61.4^1^.1^.04^4.2^420.2^11.4^.08
;;^UTILITY(U,$J,112,6727,2)
;;=.13^1.9^1^.08^21^.6^1.8^^0^3.2^1.3^2.7
;;^UTILITY(U,$J,112,6727,3)
;;=.04^.15^.18^.33^.25^.09^.04^.21^^.18^^.1
;;^UTILITY(U,$J,112,6727,4)
;;=^^^^^^^^21
;;^UTILITY(U,$J,112,6727,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6728,0)
;;=BEER,ANHEUSER-BUSCH^BC-00001^cans^355
;;^UTILITY(U,$J,112,6728,1)
;;=.423^0^3.718^43.099^92.113^^^4.507^.003^6.197^16.056^40^2.535^.003^.004^.011^^^0^.003
;;^UTILITY(U,$J,112,6728,2)
;;=.039^.394^.115^.045^^^^^0^0^^0^^^^^0
;;^UTILITY(U,$J,112,6728,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6729,0)
;;=BEER,BLATZ^BC-00002^cans^360
;;^UTILITY(U,$J,112,6729,1)
;;=.306^0^3.278^39.444^^^^4.444^.006^^^22.778^3.889
;;^UTILITY(U,$J,112,6729,2)
;;=^^^^^^^^0^0^^0
;;^UTILITY(U,$J,112,6729,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6730,0)
;;=BEER,BUD DRY^BC-00003^cans^356
;;^UTILITY(U,$J,112,6730,1)
;;=.309^0^2.135^36.517^92.978^^^3.09^.003^4.775^42.416^28.652^3.371^.003^.003^.008^^^^0
;;^UTILITY(U,$J,112,6730,2)
;;=.02^.59^.039^.048^^0^^^0^0^0^0^^^^^0
;;^UTILITY(U,$J,112,6730,20)
;;=Bowes & Church's Food Values, Sixteenth Edition.
;;^UTILITY(U,$J,112,6731,0)
;;=BEER,BUDWEISER^BC-00004^cans^357
FHINI09T ; ; 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,6717,2)
+2 ;;=.44^3.5^1.3^.18^26.1^.39^.5^^2.2^2.2^.4^.7
+3 ;;^UTILITY(U,$J,112,6717,3)
+4 ;;=.02^.11^.1^.19^.15^.05^.03^.06^^.1^^.04
+5 ;;^UTILITY(U,$J,112,6717,4)
+6 ;;=^^^^^^^^8.5
+7 ;;^UTILITY(U,$J,112,6717,20)
+8 ;;=Ross Labs, 1988.
+9 ;;^UTILITY(U,$J,112,6718,0)
+10 ;;=SIMILAC SPECIAL CARE 24 LIQUID 24 CAL/OZ^IF-032^floz.^30
+11 ;;^UTILITY(U,$J,112,6718,1)
+12 ;;=2.3^4.6^8.9^85^91.6^^^151.3^.3^10.1^75.6^108.4^36.1^1.3^.21^.01^3.4^571.5^31.1^.21
+13 ;;^UTILITY(U,$J,112,6718,2)
+14 ;;=.52^4.2^1.6^.21^31.1^.46^.6^^2.6^2.6^.5^.8
+15 ;;^UTILITY(U,$J,112,6718,3)
+16 ;;=.03^.13^.12^.22^.18^.06^.04^.07^^.12^^.04
+17 ;;^UTILITY(U,$J,112,6718,4)
+18 ;;=^^^^^^^^10.1
+19 ;;^UTILITY(U,$J,112,6718,20)
+20 ;;=Ross Labs, 1988.
+21 ;;^UTILITY(U,$J,112,6719,0)
+22 ;;=SIMILAC SPECIAL CARE 24 W/IRON LIQUID 24 CAL/OZ^IF-033^floz.^30
+23 ;;^UTILITY(U,$J,112,6719,1)
+24 ;;=2.3^4.6^8.9^85^91.6^^^151.3^1.5^10.1^75.6^108.4^36.1^1.3^.21^.01^3.4^571.5^31.1^.21
+25 ;;^UTILITY(U,$J,112,6719,2)
+26 ;;=.52^4.2^1.6^.21^31.1^.46^.6^^2.6^2.6^.5^.8
+27 ;;^UTILITY(U,$J,112,6719,3)
+28 ;;=.03^.13^.12^.22^.18^.06^.04^.07^^.12^^.04
+29 ;;^UTILITY(U,$J,112,6719,4)
+30 ;;=^^^^^^^^10.1
+31 ;;^UTILITY(U,$J,112,6719,20)
+32 ;;=Ross Labs, 1988.
+33 ;;^UTILITY(U,$J,112,6720,0)
+34 ;;=MAXAMAID XP POWDER 100 GM^IF-034^100-gm.^100
+35 ;;^UTILITY(U,$J,112,6720,1)
+36 ;;=25^1^62^350^3^^^810^12^200^810^840^580^13^2^1.3^6.5^1000^67^1.1
+37 ;;^UTILITY(U,$J,112,6720,2)
+38 ;;=1.2^12^3.7^1^150^4
+39 ;;^UTILITY(U,$J,112,6720,20)
+40 ;;=Ross Labs, 1988.
+41 ;;^UTILITY(U,$J,112,6721,0)
+42 ;;=MAXAMAID MSUD POWDER 100 GM^IF-035^100-gm.^100
+43 ;;^UTILITY(U,$J,112,6721,1)
+44 ;;=25^1^62^350^3^^^810^12^200^810^840^580^13^2^1.3^6.5^1000^67^1.1
+45 ;;^UTILITY(U,$J,112,6721,2)
+46 ;;=1.2^12^3.7^1^150^4
+47 ;;^UTILITY(U,$J,112,6721,20)
+48 ;;=Ross Labs, 1988.
+49 ;;^UTILITY(U,$J,112,6722,0)
+50 ;;=MAXAMAID XPHEN TYR POWDER 100 GM^IF-036^100-gm.^100
+51 ;;^UTILITY(U,$J,112,6722,1)
+52 ;;=25^1^62^350^3^^^810^12^200^810^840^580^13^2^1.3^6.5^1000^135^1.1
+53 ;;^UTILITY(U,$J,112,6722,2)
+54 ;;=1.2^12^3.7^1^150^4
+55 ;;^UTILITY(U,$J,112,6722,20)
+56 ;;=Ross Labs, 1988.
+57 ;;^UTILITY(U,$J,112,6723,0)
+58 ;;=MAXAMAID XMET POWDER 100 GM^IF-037^100-gm.^100
+59 ;;^UTILITY(U,$J,112,6723,1)
+60 ;;=25^1^62^350^3^^^810^12^200^810^840^580^13^2^1.3^6.5^1000^135^1.1
+61 ;;^UTILITY(U,$J,112,6723,2)
+62 ;;=1.2^12^3.7^1^150^4
+63 ;;^UTILITY(U,$J,112,6723,20)
+64 ;;=Ross Labs, 1988.
+65 ;;^UTILITY(U,$J,112,6724,0)
+66 ;;=MAXAMAID XMET THRE, VAL, ISOLEU POWDER 100 GM^IF-038^100-gm.^100
+67 ;;^UTILITY(U,$J,112,6724,1)
+68 ;;=25^1^62^350^3^^^810^12^200^810^840^580^13^2^1.3^6.5^1000^135^1.1
+69 ;;^UTILITY(U,$J,112,6724,2)
+70 ;;=1.2^12^3.7^1^150^4
+71 ;;^UTILITY(U,$J,112,6724,20)
+72 ;;=Ross Labs, 1988.
+73 ;;^UTILITY(U,$J,112,6725,0)
+74 ;;=MAXAMUM MSUD POWDER 100 GM^IF-039^100-gm.^100
+75 ;;^UTILITY(U,$J,112,6725,1)
+76 ;;=39^1^45^340^3^^^670^23.5^285^670^700^560^13.6^1.4^1.7^7.8^2350^90^1.4
+77 ;;^UTILITY(U,$J,112,6725,2)
+78 ;;=1.4^13.6^5^2.1^500^4
+79 ;;^UTILITY(U,$J,112,6725,20)
+80 ;;=Ross Labs, 1988.
+81 ;;^UTILITY(U,$J,112,6726,0)
+82 ;;=MAXAMUM XP POWDER 100 GM^IF-040^100-gm.^100
+83 ;;^UTILITY(U,$J,112,6726,1)
+84 ;;=39^1^45^340^3^^^670^23.5^285^670^700^560^13.6^1.4^1.7^7.8^2350^45^1.4
+85 ;;^UTILITY(U,$J,112,6726,2)
+86 ;;=1.4^13.6^5^2.1^500^4
+87 ;;^UTILITY(U,$J,112,6726,20)
+88 ;;=Ross Labs, 1988.
+89 ;;^UTILITY(U,$J,112,6727,0)
+90 ;;=RCF CONCENTRATED LIQUID 23.8 CAL/OZ^IF-041^floz.^30
+91 ;;^UTILITY(U,$J,112,6727,1)
+92 ;;=4.2^7.5^.008^84^92.5^^^145.4^.3^10.4^104.2^151.3^61.4^1^.1^.04^4.2^420.2^11.4^.08
+93 ;;^UTILITY(U,$J,112,6727,2)
+94 ;;=.13^1.9^1^.08^21^.6^1.8^^0^3.2^1.3^2.7
+95 ;;^UTILITY(U,$J,112,6727,3)
+96 ;;=.04^.15^.18^.33^.25^.09^.04^.21^^.18^^.1
+97 ;;^UTILITY(U,$J,112,6727,4)
+98 ;;=^^^^^^^^21
+99 ;;^UTILITY(U,$J,112,6727,20)
+100 ;;=Ross Labs, 1988.
+101 ;;^UTILITY(U,$J,112,6728,0)
+102 ;;=BEER,ANHEUSER-BUSCH^BC-00001^cans^355
+103 ;;^UTILITY(U,$J,112,6728,1)
+104 ;;=.423^0^3.718^43.099^92.113^^^4.507^.003^6.197^16.056^40^2.535^.003^.004^.011^^^0^.003
+105 ;;^UTILITY(U,$J,112,6728,2)
+106 ;;=.039^.394^.115^.045^^^^^0^0^^0^^^^^0
+107 ;;^UTILITY(U,$J,112,6728,20)
+108 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+109 ;;^UTILITY(U,$J,112,6729,0)
+110 ;;=BEER,BLATZ^BC-00002^cans^360
+111 ;;^UTILITY(U,$J,112,6729,1)
+112 ;;=.306^0^3.278^39.444^^^^4.444^.006^^^22.778^3.889
+113 ;;^UTILITY(U,$J,112,6729,2)
+114 ;;=^^^^^^^^0^0^^0
+115 ;;^UTILITY(U,$J,112,6729,20)
+116 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+117 ;;^UTILITY(U,$J,112,6730,0)
+118 ;;=BEER,BUD DRY^BC-00003^cans^356
+119 ;;^UTILITY(U,$J,112,6730,1)
+120 ;;=.309^0^2.135^36.517^92.978^^^3.09^.003^4.775^42.416^28.652^3.371^.003^.003^.008^^^^0
+121 ;;^UTILITY(U,$J,112,6730,2)
+122 ;;=.02^.59^.039^.048^^0^^^0^0^0^0^^^^^0
+123 ;;^UTILITY(U,$J,112,6730,20)
+124 ;;=Bowes & Church's Food Values, Sixteenth Edition.
+125 ;;^UTILITY(U,$J,112,6731,0)
+126 ;;=BEER,BUDWEISER^BC-00004^cans^357
