FHINI09R ; ; 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,6695,2)
;;=.07^.88^.33^.04^11^.2^1.4
;;^UTILITY(U,$J,112,6695,3)
;;=.03^.12^.13^.26^.25^.08^.01^.12^.12^.21^^.07
;;^UTILITY(U,$J,112,6695,4)
;;=^^^^^^^^11
;;^UTILITY(U,$J,112,6695,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6696,0)
;;=PHENYL-FREE PREPARED LIQUID 25 CAL/OZ^IF-010^floz.^30
;;^UTILITY(U,$J,112,6696,1)
;;=4.4^1.5^14.3^88^^^^110.3^2.6^33.1^110.3^297.8^88.3^1.5^.13^.22^2.2^264.8^11.5^.13
;;^UTILITY(U,$J,112,6696,2)
;;=.22^1.8^.66^.19^27.5^.5
;;^UTILITY(U,$J,112,6696,3)
;;=.06^.2^.24^.37^.46^.14^.08^.004^.2^.27^^.1
;;^UTILITY(U,$J,112,6696,4)
;;=^^^^^^^^22.1
;;^UTILITY(U,$J,112,6696,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6697,0)
;;=MSUD DIET PREPARED LIQUID 20 CAL/OZ^IF-011^5-floz.^150
;;^UTILITY(U,$J,112,6697,1)
;;=1.5^3^9.5^71^94.6^^^72.7^1.3^7.7^39.5^72.7^27.5^.6^.07^.02^2.2^218.9^5.7^.06
;;^UTILITY(U,$J,112,6697,2)
;;=.07^.88^.33^.04^11^.2^1.6
;;^UTILITY(U,$J,112,6697,3)
;;=.03^.08^^^.07^.04^.04^.08^.09^^^.04
;;^UTILITY(U,$J,112,6697,4)
;;=^^^^^^^^11
;;^UTILITY(U,$J,112,6697,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6698,0)
;;=LOW PHE/TYR DIET PREPARED LIQUID 20 CAL/OZ^IF-012^5-floz.^150
;;^UTILITY(U,$J,112,6698,1)
;;=2.3^2.8^9.2^71^95^^^72.7^1.3^7.7^49.4^72^33.2^.6^.07^.02^2.2^218.9^5.7^.06
;;^UTILITY(U,$J,112,6698,2)
;;=.07^.88^.33^.04^11^.2^1.4
;;^UTILITY(U,$J,112,6698,3)
;;=.03^.12^.13^.26^.25^.08^.01^.01^.01^.21^^.07
;;^UTILITY(U,$J,112,6698,4)
;;=^^^^^^^^11
;;^UTILITY(U,$J,112,6698,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6699,0)
;;=LOW METHIONINE PREPARED LIQUID 20 CAL/OZ^IF-013^floz.^30
;;^UTILITY(U,$J,112,6699,1)
;;=2.1^3.7^7.1^71^94.6^^^72.7^1.3^7.7^49.4^86.1^25.4^.6^.07^.02^2.2^218.9^5.7^.06
;;^UTILITY(U,$J,112,6699,2)
;;=.07^.88^.33^.04^11^.2^.85
;;^UTILITY(U,$J,112,6699,3)
;;=.03^.07^.1^.16^.13^.02^.02^.1^.07^.09^^.05
;;^UTILITY(U,$J,112,6699,4)
;;=^^^^^^^^11
;;^UTILITY(U,$J,112,6699,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6700,0)
;;=PROTEIN FREE POWDER^IF-014^100-gm.^100
;;^UTILITY(U,$J,112,6700,1)
;;=0^22^72^486^3^^^540^10.8^63^300^340^72^4.5^.54^.18^18^1800^47^.45
;;^UTILITY(U,$J,112,6700,2)
;;=.54^7.2^2.7^.36^90^1.8^11.5
;;^UTILITY(U,$J,112,6700,4)
;;=^^^^^^^^90
;;^UTILITY(U,$J,112,6700,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6701,0)
;;=PROTEIN FREE PREPARED LIQUID 20 CAL/OZ^IF-015^floz.^30
;;^UTILITY(U,$J,112,6701,1)
;;=2.2^3.3^8.8^71^94.6^^^66.4^1.3^7.7^36.7^74.8^19.8^.6^.07^.02^2.2^218.9^5.7^.06
;;^UTILITY(U,$J,112,6701,2)
;;=.07^.88^.33^.04^11^.2^1.4
;;^UTILITY(U,$J,112,6701,4)
;;=^^^^^^^^11
;;^UTILITY(U,$J,112,6701,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6702,0)
;;=MONO AND DISACCHARIDE FREE PREPARED LIQUID 20 CAL/OZ^IF-016^5-floz.^150
;;^UTILITY(U,$J,112,6702,1)
;;=2^3^94.6^71^89.7^^^66.4^1.3^7.7^43.8^77^30.4^.4^.07^.02^2.7^268.3^8.3^.06
;;^UTILITY(U,$J,112,6702,2)
;;=.07^.82^.33^.04^11^.2^.24
;;^UTILITY(U,$J,112,6702,3)
;;=.05^.16^.18^.32^.27^.1^.05^.15^.07^.23^^.09
;;^UTILITY(U,$J,112,6702,4)
;;=^^^^^^^^13.3
;;^UTILITY(U,$J,112,6702,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6703,0)
;;=ADVANCE LIQUID 16 CAL/OZ^IF-017^floz.^30
;;^UTILITY(U,$J,112,6703,1)
;;=2.1^2.8^5.7^56^95.3^^^52.7^1^4.3^40.3^81.8^19.6^.5^.06^.03^2.1^207.3^5.6^.07
;;^UTILITY(U,$J,112,6703,2)
;;=.1^.73^.31^.04^10.6^.2^1.3^^.7^.5^.7^1.6
;;^UTILITY(U,$J,112,6703,3)
;;=.02^.08^.1^.18^.14^.04^.02^.09^^.11^^.05
;;^UTILITY(U,$J,112,6703,4)
;;=^^^^^^^^5.6
;;^UTILITY(U,$J,112,6703,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6704,0)
;;=ISOMIL LIQUID 20 CAL/OZ^IF-018^floz.^30
;;^UTILITY(U,$J,112,6704,1)
;;=1.9^3.9^7.1^71^93.9^^^74.1^1.3^5.3^53^76.2^31.1^.5^.05^.02^2.1^211.8^6.4^.04
;;^UTILITY(U,$J,112,6704,2)
;;=.06^1^.5^.04^10.6^.3^.9^^0^1.6^.6^1.4
;;^UTILITY(U,$J,112,6704,3)
;;=.02^.07^.08^.15^.1^.04^.02^.09^^.08^^.04
;;^UTILITY(U,$J,112,6704,4)
;;=^^^^^^^^10.6
;;^UTILITY(U,$J,112,6704,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6705,0)
;;=ISOMIL SF LIQUID 20 CAL/OZ^IF-019^floz.^30
;;^UTILITY(U,$J,112,6705,1)
;;=1.9^3.9^7.1^71^93.9^^^74.1^1.3^5.3^53^76.2^31.1^.5^.05^.02^2.1^211.8^6.4^.04
;;^UTILITY(U,$J,112,6705,2)
;;=.06^1^.5^.04^10.6^.3^.9^^0^1.6^.6^1.4
;;^UTILITY(U,$J,112,6705,3)
;;=.02^.07^.08^.15^.1^.04^.02^.09^^.08^^.04
;;^UTILITY(U,$J,112,6705,4)
;;=^^^^^^^^10.6
;;^UTILITY(U,$J,112,6705,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6706,0)
;;=PEDIALYTE LIQUID 3 CAL/OZ^IF-020^floz.^30
;;^UTILITY(U,$J,112,6706,1)
;;=^^2.6^10^^^^^^^^81.1^107.6
;;^UTILITY(U,$J,112,6706,20)
;;=Ross Labs, 1988.
FHINI09R ; ; 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,6695,2)
+2 ;;=.07^.88^.33^.04^11^.2^1.4
+3 ;;^UTILITY(U,$J,112,6695,3)
+4 ;;=.03^.12^.13^.26^.25^.08^.01^.12^.12^.21^^.07
+5 ;;^UTILITY(U,$J,112,6695,4)
+6 ;;=^^^^^^^^11
+7 ;;^UTILITY(U,$J,112,6695,20)
+8 ;;=Mead Johnson, 1988.
+9 ;;^UTILITY(U,$J,112,6696,0)
+10 ;;=PHENYL-FREE PREPARED LIQUID 25 CAL/OZ^IF-010^floz.^30
+11 ;;^UTILITY(U,$J,112,6696,1)
+12 ;;=4.4^1.5^14.3^88^^^^110.3^2.6^33.1^110.3^297.8^88.3^1.5^.13^.22^2.2^264.8^11.5^.13
+13 ;;^UTILITY(U,$J,112,6696,2)
+14 ;;=.22^1.8^.66^.19^27.5^.5
+15 ;;^UTILITY(U,$J,112,6696,3)
+16 ;;=.06^.2^.24^.37^.46^.14^.08^.004^.2^.27^^.1
+17 ;;^UTILITY(U,$J,112,6696,4)
+18 ;;=^^^^^^^^22.1
+19 ;;^UTILITY(U,$J,112,6696,20)
+20 ;;=Mead Johnson, 1988.
+21 ;;^UTILITY(U,$J,112,6697,0)
+22 ;;=MSUD DIET PREPARED LIQUID 20 CAL/OZ^IF-011^5-floz.^150
+23 ;;^UTILITY(U,$J,112,6697,1)
+24 ;;=1.5^3^9.5^71^94.6^^^72.7^1.3^7.7^39.5^72.7^27.5^.6^.07^.02^2.2^218.9^5.7^.06
+25 ;;^UTILITY(U,$J,112,6697,2)
+26 ;;=.07^.88^.33^.04^11^.2^1.6
+27 ;;^UTILITY(U,$J,112,6697,3)
+28 ;;=.03^.08^^^.07^.04^.04^.08^.09^^^.04
+29 ;;^UTILITY(U,$J,112,6697,4)
+30 ;;=^^^^^^^^11
+31 ;;^UTILITY(U,$J,112,6697,20)
+32 ;;=Mead Johnson, 1988.
+33 ;;^UTILITY(U,$J,112,6698,0)
+34 ;;=LOW PHE/TYR DIET PREPARED LIQUID 20 CAL/OZ^IF-012^5-floz.^150
+35 ;;^UTILITY(U,$J,112,6698,1)
+36 ;;=2.3^2.8^9.2^71^95^^^72.7^1.3^7.7^49.4^72^33.2^.6^.07^.02^2.2^218.9^5.7^.06
+37 ;;^UTILITY(U,$J,112,6698,2)
+38 ;;=.07^.88^.33^.04^11^.2^1.4
+39 ;;^UTILITY(U,$J,112,6698,3)
+40 ;;=.03^.12^.13^.26^.25^.08^.01^.01^.01^.21^^.07
+41 ;;^UTILITY(U,$J,112,6698,4)
+42 ;;=^^^^^^^^11
+43 ;;^UTILITY(U,$J,112,6698,20)
+44 ;;=Mead Johnson, 1988.
+45 ;;^UTILITY(U,$J,112,6699,0)
+46 ;;=LOW METHIONINE PREPARED LIQUID 20 CAL/OZ^IF-013^floz.^30
+47 ;;^UTILITY(U,$J,112,6699,1)
+48 ;;=2.1^3.7^7.1^71^94.6^^^72.7^1.3^7.7^49.4^86.1^25.4^.6^.07^.02^2.2^218.9^5.7^.06
+49 ;;^UTILITY(U,$J,112,6699,2)
+50 ;;=.07^.88^.33^.04^11^.2^.85
+51 ;;^UTILITY(U,$J,112,6699,3)
+52 ;;=.03^.07^.1^.16^.13^.02^.02^.1^.07^.09^^.05
+53 ;;^UTILITY(U,$J,112,6699,4)
+54 ;;=^^^^^^^^11
+55 ;;^UTILITY(U,$J,112,6699,20)
+56 ;;=Mead Johnson, 1988.
+57 ;;^UTILITY(U,$J,112,6700,0)
+58 ;;=PROTEIN FREE POWDER^IF-014^100-gm.^100
+59 ;;^UTILITY(U,$J,112,6700,1)
+60 ;;=0^22^72^486^3^^^540^10.8^63^300^340^72^4.5^.54^.18^18^1800^47^.45
+61 ;;^UTILITY(U,$J,112,6700,2)
+62 ;;=.54^7.2^2.7^.36^90^1.8^11.5
+63 ;;^UTILITY(U,$J,112,6700,4)
+64 ;;=^^^^^^^^90
+65 ;;^UTILITY(U,$J,112,6700,20)
+66 ;;=Mead Johnson, 1988.
+67 ;;^UTILITY(U,$J,112,6701,0)
+68 ;;=PROTEIN FREE PREPARED LIQUID 20 CAL/OZ^IF-015^floz.^30
+69 ;;^UTILITY(U,$J,112,6701,1)
+70 ;;=2.2^3.3^8.8^71^94.6^^^66.4^1.3^7.7^36.7^74.8^19.8^.6^.07^.02^2.2^218.9^5.7^.06
+71 ;;^UTILITY(U,$J,112,6701,2)
+72 ;;=.07^.88^.33^.04^11^.2^1.4
+73 ;;^UTILITY(U,$J,112,6701,4)
+74 ;;=^^^^^^^^11
+75 ;;^UTILITY(U,$J,112,6701,20)
+76 ;;=Mead Johnson, 1988.
+77 ;;^UTILITY(U,$J,112,6702,0)
+78 ;;=MONO AND DISACCHARIDE FREE PREPARED LIQUID 20 CAL/OZ^IF-016^5-floz.^150
+79 ;;^UTILITY(U,$J,112,6702,1)
+80 ;;=2^3^94.6^71^89.7^^^66.4^1.3^7.7^43.8^77^30.4^.4^.07^.02^2.7^268.3^8.3^.06
+81 ;;^UTILITY(U,$J,112,6702,2)
+82 ;;=.07^.82^.33^.04^11^.2^.24
+83 ;;^UTILITY(U,$J,112,6702,3)
+84 ;;=.05^.16^.18^.32^.27^.1^.05^.15^.07^.23^^.09
+85 ;;^UTILITY(U,$J,112,6702,4)
+86 ;;=^^^^^^^^13.3
+87 ;;^UTILITY(U,$J,112,6702,20)
+88 ;;=Mead Johnson, 1988.
+89 ;;^UTILITY(U,$J,112,6703,0)
+90 ;;=ADVANCE LIQUID 16 CAL/OZ^IF-017^floz.^30
+91 ;;^UTILITY(U,$J,112,6703,1)
+92 ;;=2.1^2.8^5.7^56^95.3^^^52.7^1^4.3^40.3^81.8^19.6^.5^.06^.03^2.1^207.3^5.6^.07
+93 ;;^UTILITY(U,$J,112,6703,2)
+94 ;;=.1^.73^.31^.04^10.6^.2^1.3^^.7^.5^.7^1.6
+95 ;;^UTILITY(U,$J,112,6703,3)
+96 ;;=.02^.08^.1^.18^.14^.04^.02^.09^^.11^^.05
+97 ;;^UTILITY(U,$J,112,6703,4)
+98 ;;=^^^^^^^^5.6
+99 ;;^UTILITY(U,$J,112,6703,20)
+100 ;;=Ross Labs, 1988.
+101 ;;^UTILITY(U,$J,112,6704,0)
+102 ;;=ISOMIL LIQUID 20 CAL/OZ^IF-018^floz.^30
+103 ;;^UTILITY(U,$J,112,6704,1)
+104 ;;=1.9^3.9^7.1^71^93.9^^^74.1^1.3^5.3^53^76.2^31.1^.5^.05^.02^2.1^211.8^6.4^.04
+105 ;;^UTILITY(U,$J,112,6704,2)
+106 ;;=.06^1^.5^.04^10.6^.3^.9^^0^1.6^.6^1.4
+107 ;;^UTILITY(U,$J,112,6704,3)
+108 ;;=.02^.07^.08^.15^.1^.04^.02^.09^^.08^^.04
+109 ;;^UTILITY(U,$J,112,6704,4)
+110 ;;=^^^^^^^^10.6
+111 ;;^UTILITY(U,$J,112,6704,20)
+112 ;;=Ross Labs, 1988.
+113 ;;^UTILITY(U,$J,112,6705,0)
+114 ;;=ISOMIL SF LIQUID 20 CAL/OZ^IF-019^floz.^30
+115 ;;^UTILITY(U,$J,112,6705,1)
+116 ;;=1.9^3.9^7.1^71^93.9^^^74.1^1.3^5.3^53^76.2^31.1^.5^.05^.02^2.1^211.8^6.4^.04
+117 ;;^UTILITY(U,$J,112,6705,2)
+118 ;;=.06^1^.5^.04^10.6^.3^.9^^0^1.6^.6^1.4
+119 ;;^UTILITY(U,$J,112,6705,3)
+120 ;;=.02^.07^.08^.15^.1^.04^.02^.09^^.08^^.04
+121 ;;^UTILITY(U,$J,112,6705,4)
+122 ;;=^^^^^^^^10.6
+123 ;;^UTILITY(U,$J,112,6705,20)
+124 ;;=Ross Labs, 1988.
+125 ;;^UTILITY(U,$J,112,6706,0)
+126 ;;=PEDIALYTE LIQUID 3 CAL/OZ^IF-020^floz.^30
+127 ;;^UTILITY(U,$J,112,6706,1)
+128 ;;=^^2.6^10^^^^^^^^81.1^107.6
+129 ;;^UTILITY(U,$J,112,6706,20)
+130 ;;=Ross Labs, 1988.
