FHINI09Q ; ; 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,6684,1)
;;=2.99^9.59^25.62^200^71.4^^^128.5^1.907^42.36^73^112.04^78.71^2.369^.211^.528^4.77^105.62^10.6^.25
;;^UTILITY(U,$J,112,6684,2)
;;=.287^3.37^1.686^.86^^1.024
;;^UTILITY(U,$J,112,6684,20)
;;=Ross Labs, Dec 1990.
;;^UTILITY(U,$J,112,6685,0)
;;=PROMOD^DS-072^scoop^6.6
;;^UTILITY(U,$J,112,6685,1)
;;=75.75^9.09^10.15^424.2^9.09
;;^UTILITY(U,$J,112,6685,2)
;;=^^^^55.5^.83
;;^UTILITY(U,$J,112,6685,3)
;;=1439.25^5529.7^4696.5^8181^7044.7^1666.5^1969.5^2727^2575.5^4545^1969.5^1439.2^4014.7^8484^13786.5^1590.7^4923.7^4242
;;^UTILITY(U,$J,112,6685,20)
;;=Ross Labs Handbbok, 1989.
;;^UTILITY(U,$J,112,6686,0)
;;=SLD^DS-073^6-oz.^38.3
;;^UTILITY(U,$J,112,6686,1)
;;=3.75^.05^13.65^70^82^^^92.7^1.66^37.2^92.7^100^92.7^2.11^.18^.55^.55^463.3^8.3^.21
;;^UTILITY(U,$J,112,6686,2)
;;=.238^2.77^1.388^.277
;;^UTILITY(U,$J,112,6686,3)
;;=41.25^191.25^206.2^345^281.25^123.75^93.75^266.25^168.75^285^262.5^101.25^255^431.25^573.75^150^150^288.75
;;^UTILITY(U,$J,112,6686,4)
;;=^^^^^^^^3.33
;;^UTILITY(U,$J,112,6686,20)
;;=Ross Labs Handbook, 1989.
;;^UTILITY(U,$J,112,6687,0)
;;=ENFAMIL LIQUID 20 CAL/OZ^IF-001^floz.^30
;;^UTILITY(U,$J,112,6687,1)
;;=1.6^3.9^7.3^71^94.6^^^48.7^.1^5.5^33.2^76.2^19.1^.6^.07^.01^2.2^218.9^5.7^.06
;;^UTILITY(U,$J,112,6687,2)
;;=.11^.88^.33^.04^11^.2^.8
;;^UTILITY(U,$J,112,6687,3)
;;=.02^.08^.09^.16^.11^.03^.02^.06^.07^.1^^.03
;;^UTILITY(U,$J,112,6687,4)
;;=^^^^^^^^6.1
;;^UTILITY(U,$J,112,6687,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6688,0)
;;=ENFAMIL LIQUID W/IRON 20 CAL/OZ^IF-002^floz.^30
;;^UTILITY(U,$J,112,6688,1)
;;=1.6^3.9^7.3^71^94.6^^^48.7^1.3^5.5^33.2^76.2^19.1^.6^.07^.01^2.2^218.9^5.7^.06
;;^UTILITY(U,$J,112,6688,2)
;;=.11^.88^.33^.04^11^.2^.8
;;^UTILITY(U,$J,112,6688,3)
;;=.02^.08^.09^.16^.11^.03^.02^.06^.07^.1^^.03
;;^UTILITY(U,$J,112,6688,4)
;;=^^^^^^^^6.1
;;^UTILITY(U,$J,112,6688,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6689,0)
;;=ENFAMIL PREMATURE LIQUID 20 CAL/OZ^IF-003^floz.^30
;;^UTILITY(U,$J,112,6689,1)
;;=2.1^3.6^7.8^71^93.9^^^82.6^.2^3.5^41.7^78.4^27.5^.7^.11^.09^3.3^847.2^24.7^.18
;;^UTILITY(U,$J,112,6689,2)
;;=.25^2.8^.85^.18^24.7^.2^.7
;;^UTILITY(U,$J,112,6689,3)
;;=.12^.03^.12^.21^.16^.05^.02^.08^.1^.13^^.04
;;^UTILITY(U,$J,112,6689,4)
;;=^^^^^^^^9.2
;;^UTILITY(U,$J,112,6689,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6690,0)
;;=ENFAMIL PREMATURE LIQUID 24 CAL/OZ^IF004^floz.^30
;;^UTILITY(U,$J,112,6690,1)
;;=2.5^4.3^9.3^85^90.8^^^98.3^.2^4.1^49.6^93.3^32.8^.8^.13^.01^3.9^1008.6^29.4^.21
;;^UTILITY(U,$J,112,6690,2)
;;=.29^3.4^1^.21^29.4^.3^.8
;;^UTILITY(U,$J,112,6690,3)
;;=.12^.03^.12^.21^.16^.05^.02^.08^.1^.13^^.04
;;^UTILITY(U,$J,112,6690,4)
;;=^^^^^^^^10.9
;;^UTILITY(U,$J,112,6690,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6691,0)
;;=PROSOBEE LIQUID^IF-005^floz.^30
;;^UTILITY(U,$J,112,6691,1)
;;=2.1^3.7^7^71^94.6^^^66.4^1.3^7.7^52.2^86.1^25.4^.6^.07^.02^2.2^218.9^5.7^.06
;;^UTILITY(U,$J,112,6691,2)
;;=.07^.88^.33^.04^11^.2^.7
;;^UTILITY(U,$J,112,6691,3)
;;=.03^.07^.1^.16^.13^.04^.02^.1^.07^.1^^.05
;;^UTILITY(U,$J,112,6691,4)
;;=^^^^^^^^11
;;^UTILITY(U,$J,112,6691,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6692,0)
;;=NUTRAMIGEN LIQUID^IF-006^floz.^30
;;^UTILITY(U,$J,112,6692,1)
;;=2^2.8^9.5^71^95^^^66.4^1.3^7.7^43.8^77^33.2^.6^.07^.02^2.2^218.9^5.7^.06
;;^UTILITY(U,$J,112,6692,2)
;;=.07^.88^.33^.04^11^.2^1.4
;;^UTILITY(U,$J,112,6692,3)
;;=.03^.1^.12^.21^.17^.06^.03^.09^.03^.15^^.06
;;^UTILITY(U,$J,112,6692,4)
;;=^^^^^^^^11
;;^UTILITY(U,$J,112,6692,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6693,0)
;;=PREGESTIMIL PREPARED LIQUID 20 CAL/OZ^IF-007^floz.^30
;;^UTILITY(U,$J,112,6693,1)
;;=2^2.9^9.5^71^89.7^^^66.4^1.3^7.7^43.8^77^33.2^.4^.07^.02^1.6^218.9^5.7^.06
;;^UTILITY(U,$J,112,6693,2)
;;=.07^.88^.33^.04^11^.2^1
;;^UTILITY(U,$J,112,6693,3)
;;=.03^.1^.12^.21^.17^.06^.03^.09^.05^.15^^.06
;;^UTILITY(U,$J,112,6693,4)
;;=^^^^^^^^11
;;^UTILITY(U,$J,112,6693,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6694,0)
;;=PORTAGEN PREPARED LIQUID 20 CAL/OZ^IF-008^floz.^30
;;^UTILITY(U,$J,112,6694,1)
;;=2.5^3.4^8.1^71^94.6^^^66.4^1.3^14.1^49.4^88.3^38.8^.7^.11^.09^2.2^550.7^5.7^.11
;;^UTILITY(U,$J,112,6694,2)
;;=.13^1.5^.74^.15^11^.4^.25
;;^UTILITY(U,$J,112,6694,3)
;;=.03^.1^.14^.21^.21^.07^.01^.14^.14^.18^^.08
;;^UTILITY(U,$J,112,6694,4)
;;=^^^^^^^^11
;;^UTILITY(U,$J,112,6694,20)
;;=Mead Johnson, 1988.
;;^UTILITY(U,$J,112,6695,0)
;;=LOFENALAC PREPARED LIQUID 20 CAL/OZ^IF-009^floz.^30
;;^UTILITY(U,$J,112,6695,1)
;;=2.3^2.8^9.2^71^94.6^^^66.4^1.3^7.7^49.4^72^33.2^.6^.07^.02^2.2^218.9^5.7^.06
FHINI09Q ; ; 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,6684,1)
+2 ;;=2.99^9.59^25.62^200^71.4^^^128.5^1.907^42.36^73^112.04^78.71^2.369^.211^.528^4.77^105.62^10.6^.25
+3 ;;^UTILITY(U,$J,112,6684,2)
+4 ;;=.287^3.37^1.686^.86^^1.024
+5 ;;^UTILITY(U,$J,112,6684,20)
+6 ;;=Ross Labs, Dec 1990.
+7 ;;^UTILITY(U,$J,112,6685,0)
+8 ;;=PROMOD^DS-072^scoop^6.6
+9 ;;^UTILITY(U,$J,112,6685,1)
+10 ;;=75.75^9.09^10.15^424.2^9.09
+11 ;;^UTILITY(U,$J,112,6685,2)
+12 ;;=^^^^55.5^.83
+13 ;;^UTILITY(U,$J,112,6685,3)
+14 ;;=1439.25^5529.7^4696.5^8181^7044.7^1666.5^1969.5^2727^2575.5^4545^1969.5^1439.2^4014.7^8484^13786.5^1590.7^4923.7^4242
+15 ;;^UTILITY(U,$J,112,6685,20)
+16 ;;=Ross Labs Handbbok, 1989.
+17 ;;^UTILITY(U,$J,112,6686,0)
+18 ;;=SLD^DS-073^6-oz.^38.3
+19 ;;^UTILITY(U,$J,112,6686,1)
+20 ;;=3.75^.05^13.65^70^82^^^92.7^1.66^37.2^92.7^100^92.7^2.11^.18^.55^.55^463.3^8.3^.21
+21 ;;^UTILITY(U,$J,112,6686,2)
+22 ;;=.238^2.77^1.388^.277
+23 ;;^UTILITY(U,$J,112,6686,3)
+24 ;;=41.25^191.25^206.2^345^281.25^123.75^93.75^266.25^168.75^285^262.5^101.25^255^431.25^573.75^150^150^288.75
+25 ;;^UTILITY(U,$J,112,6686,4)
+26 ;;=^^^^^^^^3.33
+27 ;;^UTILITY(U,$J,112,6686,20)
+28 ;;=Ross Labs Handbook, 1989.
+29 ;;^UTILITY(U,$J,112,6687,0)
+30 ;;=ENFAMIL LIQUID 20 CAL/OZ^IF-001^floz.^30
+31 ;;^UTILITY(U,$J,112,6687,1)
+32 ;;=1.6^3.9^7.3^71^94.6^^^48.7^.1^5.5^33.2^76.2^19.1^.6^.07^.01^2.2^218.9^5.7^.06
+33 ;;^UTILITY(U,$J,112,6687,2)
+34 ;;=.11^.88^.33^.04^11^.2^.8
+35 ;;^UTILITY(U,$J,112,6687,3)
+36 ;;=.02^.08^.09^.16^.11^.03^.02^.06^.07^.1^^.03
+37 ;;^UTILITY(U,$J,112,6687,4)
+38 ;;=^^^^^^^^6.1
+39 ;;^UTILITY(U,$J,112,6687,20)
+40 ;;=Mead Johnson, 1988.
+41 ;;^UTILITY(U,$J,112,6688,0)
+42 ;;=ENFAMIL LIQUID W/IRON 20 CAL/OZ^IF-002^floz.^30
+43 ;;^UTILITY(U,$J,112,6688,1)
+44 ;;=1.6^3.9^7.3^71^94.6^^^48.7^1.3^5.5^33.2^76.2^19.1^.6^.07^.01^2.2^218.9^5.7^.06
+45 ;;^UTILITY(U,$J,112,6688,2)
+46 ;;=.11^.88^.33^.04^11^.2^.8
+47 ;;^UTILITY(U,$J,112,6688,3)
+48 ;;=.02^.08^.09^.16^.11^.03^.02^.06^.07^.1^^.03
+49 ;;^UTILITY(U,$J,112,6688,4)
+50 ;;=^^^^^^^^6.1
+51 ;;^UTILITY(U,$J,112,6688,20)
+52 ;;=Mead Johnson, 1988.
+53 ;;^UTILITY(U,$J,112,6689,0)
+54 ;;=ENFAMIL PREMATURE LIQUID 20 CAL/OZ^IF-003^floz.^30
+55 ;;^UTILITY(U,$J,112,6689,1)
+56 ;;=2.1^3.6^7.8^71^93.9^^^82.6^.2^3.5^41.7^78.4^27.5^.7^.11^.09^3.3^847.2^24.7^.18
+57 ;;^UTILITY(U,$J,112,6689,2)
+58 ;;=.25^2.8^.85^.18^24.7^.2^.7
+59 ;;^UTILITY(U,$J,112,6689,3)
+60 ;;=.12^.03^.12^.21^.16^.05^.02^.08^.1^.13^^.04
+61 ;;^UTILITY(U,$J,112,6689,4)
+62 ;;=^^^^^^^^9.2
+63 ;;^UTILITY(U,$J,112,6689,20)
+64 ;;=Mead Johnson, 1988.
+65 ;;^UTILITY(U,$J,112,6690,0)
+66 ;;=ENFAMIL PREMATURE LIQUID 24 CAL/OZ^IF004^floz.^30
+67 ;;^UTILITY(U,$J,112,6690,1)
+68 ;;=2.5^4.3^9.3^85^90.8^^^98.3^.2^4.1^49.6^93.3^32.8^.8^.13^.01^3.9^1008.6^29.4^.21
+69 ;;^UTILITY(U,$J,112,6690,2)
+70 ;;=.29^3.4^1^.21^29.4^.3^.8
+71 ;;^UTILITY(U,$J,112,6690,3)
+72 ;;=.12^.03^.12^.21^.16^.05^.02^.08^.1^.13^^.04
+73 ;;^UTILITY(U,$J,112,6690,4)
+74 ;;=^^^^^^^^10.9
+75 ;;^UTILITY(U,$J,112,6690,20)
+76 ;;=Mead Johnson, 1988.
+77 ;;^UTILITY(U,$J,112,6691,0)
+78 ;;=PROSOBEE LIQUID^IF-005^floz.^30
+79 ;;^UTILITY(U,$J,112,6691,1)
+80 ;;=2.1^3.7^7^71^94.6^^^66.4^1.3^7.7^52.2^86.1^25.4^.6^.07^.02^2.2^218.9^5.7^.06
+81 ;;^UTILITY(U,$J,112,6691,2)
+82 ;;=.07^.88^.33^.04^11^.2^.7
+83 ;;^UTILITY(U,$J,112,6691,3)
+84 ;;=.03^.07^.1^.16^.13^.04^.02^.1^.07^.1^^.05
+85 ;;^UTILITY(U,$J,112,6691,4)
+86 ;;=^^^^^^^^11
+87 ;;^UTILITY(U,$J,112,6691,20)
+88 ;;=Mead Johnson, 1988.
+89 ;;^UTILITY(U,$J,112,6692,0)
+90 ;;=NUTRAMIGEN LIQUID^IF-006^floz.^30
+91 ;;^UTILITY(U,$J,112,6692,1)
+92 ;;=2^2.8^9.5^71^95^^^66.4^1.3^7.7^43.8^77^33.2^.6^.07^.02^2.2^218.9^5.7^.06
+93 ;;^UTILITY(U,$J,112,6692,2)
+94 ;;=.07^.88^.33^.04^11^.2^1.4
+95 ;;^UTILITY(U,$J,112,6692,3)
+96 ;;=.03^.1^.12^.21^.17^.06^.03^.09^.03^.15^^.06
+97 ;;^UTILITY(U,$J,112,6692,4)
+98 ;;=^^^^^^^^11
+99 ;;^UTILITY(U,$J,112,6692,20)
+100 ;;=Mead Johnson, 1988.
+101 ;;^UTILITY(U,$J,112,6693,0)
+102 ;;=PREGESTIMIL PREPARED LIQUID 20 CAL/OZ^IF-007^floz.^30
+103 ;;^UTILITY(U,$J,112,6693,1)
+104 ;;=2^2.9^9.5^71^89.7^^^66.4^1.3^7.7^43.8^77^33.2^.4^.07^.02^1.6^218.9^5.7^.06
+105 ;;^UTILITY(U,$J,112,6693,2)
+106 ;;=.07^.88^.33^.04^11^.2^1
+107 ;;^UTILITY(U,$J,112,6693,3)
+108 ;;=.03^.1^.12^.21^.17^.06^.03^.09^.05^.15^^.06
+109 ;;^UTILITY(U,$J,112,6693,4)
+110 ;;=^^^^^^^^11
+111 ;;^UTILITY(U,$J,112,6693,20)
+112 ;;=Mead Johnson, 1988.
+113 ;;^UTILITY(U,$J,112,6694,0)
+114 ;;=PORTAGEN PREPARED LIQUID 20 CAL/OZ^IF-008^floz.^30
+115 ;;^UTILITY(U,$J,112,6694,1)
+116 ;;=2.5^3.4^8.1^71^94.6^^^66.4^1.3^14.1^49.4^88.3^38.8^.7^.11^.09^2.2^550.7^5.7^.11
+117 ;;^UTILITY(U,$J,112,6694,2)
+118 ;;=.13^1.5^.74^.15^11^.4^.25
+119 ;;^UTILITY(U,$J,112,6694,3)
+120 ;;=.03^.1^.14^.21^.21^.07^.01^.14^.14^.18^^.08
+121 ;;^UTILITY(U,$J,112,6694,4)
+122 ;;=^^^^^^^^11
+123 ;;^UTILITY(U,$J,112,6694,20)
+124 ;;=Mead Johnson, 1988.
+125 ;;^UTILITY(U,$J,112,6695,0)
+126 ;;=LOFENALAC PREPARED LIQUID 20 CAL/OZ^IF-009^floz.^30
+127 ;;^UTILITY(U,$J,112,6695,1)
+128 ;;=2.3^2.8^9.2^71^94.6^^^66.4^1.3^7.7^49.4^72^33.2^.6^.07^.02^2.2^218.9^5.7^.06
