FHINI09S ; ; 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,6707,0)
;;=SIMILAC 13 LIQUID 13 CAL/OZ^IF-021^floz.^30
;;^UTILITY(U,$J,112,6707,1)
;;=1.2^2.4^4.8^46^97.6^^^41.3^.1^3.2^32.1^60.5^15.6^.3^.04^.02^1.4^137.5^4.1^.05
;;^UTILITY(U,$J,112,6707,2)
;;=.07^.48^.21^.03^6.9^.1^.6^^.8^1.1^.4^.9
;;^UTILITY(U,$J,112,6707,3)
;;=.02^.05^.06^.12^.09^.03^.01^.06^^.07^^.03
;;^UTILITY(U,$J,112,6707,4)
;;=^^^^^^^^3.7
;;^UTILITY(U,$J,112,6707,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6708,0)
;;=SIMILAC 13 W/IRON LIQUID 13 CAL/OZ^IF-022^floz.^30
;;^UTILITY(U,$J,112,6708,1)
;;=1.2^2.4^4.8^46^97.6^^^41.3^.8^3.2^32.1^60.5^15.6^.3^.04^.02^1.4^137.5^4.1^.05
;;^UTILITY(U,$J,112,6708,2)
;;=.07^.48^.21^.03^6.9^.1^.6^^.8^1.1^.4^.9
;;^UTILITY(U,$J,112,6708,3)
;;=.02^.05^.06^.12^.09^.03^.01^.06^^.07^^.03
;;^UTILITY(U,$J,112,6708,4)
;;=^^^^^^^^3.7
;;^UTILITY(U,$J,112,6708,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6709,0)
;;=SIMILAC 20 LIQUID 20 CAL/OZ^IF-023^floz.^30
;;^UTILITY(U,$J,112,6709,1)
;;=1^3.8^7.6^71^93.9^^^53^.16^4.2^41^76.2^19.8^.5^.06^.04^2.1^211.8^6.4^.07
;;^UTILITY(U,$J,112,6709,2)
;;=.11^.74^.32^.04^10.6^.2^.9^^1.1^1.6^.6^1.3
;;^UTILITY(U,$J,112,6709,3)
;;=.02^.07^.08^.15^.11^.04^.01^.08^^.08^^.03
;;^UTILITY(U,$J,112,6709,4)
;;=^^^^^^^^5.6
;;^UTILITY(U,$J,112,6709,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6710,0)
;;=SIMILAC 20 W/IRON LIQUID 20 CAL/OZ^IF-024^floz.^30
;;^UTILITY(U,$J,112,6710,1)
;;=1^3.8^7.6^71^93.9^^^53^1.3^4.2^41^76.2^19.8^.5^.06^.04^2.1^211.8^6.4^.07
;;^UTILITY(U,$J,112,6710,2)
;;=.11^.74^.32^.04^10.6^.2^.9^^1.1^1.6^.6^1.3
;;^UTILITY(U,$J,112,6710,3)
;;=.02^.07^.08^.15^.11^.04^.01^.08^^.08^^.03
;;^UTILITY(U,$J,112,6710,4)
;;=^^^^^^^^5.6
;;^UTILITY(U,$J,112,6710,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6711,0)
;;=SIMILAC 24 LIQUID 24 CAL/OZ^IF-025^floz.^30
;;^UTILITY(U,$J,112,6711,1)
;;=2.3^4.4^8.8^85^91.6^^^75.6^.2^5.9^58.8^110.9^28.6^.6^.08^.04^2.5^252.1^7.6^.08
;;^UTILITY(U,$J,112,6711,2)
;;=.13^.88^.38^.05^12.6^.2^1.1^^1.5^1.9^.8^1.6
;;^UTILITY(U,$J,112,6711,3)
;;=.16^.1^.11^.21^.16^.06^.02^.11^^.12^^.05
;;^UTILITY(U,$J,112,6711,4)
;;=^^^^^^^^6.7
;;^UTILITY(U,$J,112,6711,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6712,0)
;;=SILMILAC 24 W/IRON LIQUID 24 CAL/OZ^IF-026^floz.^30
;;^UTILITY(U,$J,112,6712,1)
;;=2.3^4.4^8.8^85^91.6^^^75.6^1.5^5.9^58.8^110.9^28.6^.6^.08^.04^2.5^252.1^7.6^.08
;;^UTILITY(U,$J,112,6712,2)
;;=.13^.88^.38^.05^12.6^.2^1.1^^1.5^1.9^.8^1.6
;;^UTILITY(U,$J,112,6712,3)
;;=.16^.1^.11^.21^.16^.06^.02^.11^^.12^^.05
;;^UTILITY(U,$J,112,6712,4)
;;=^^^^^^^^6.7
;;^UTILITY(U,$J,112,6712,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6713,0)
;;=SIMILAC 24 LBW LIQUID 24 CAL/OZ^IF-027^floz.^30
;;^UTILITY(U,$J,112,6713,1)
;;=2.3^4.6^8.8^85^91.6^^^75.6^.3^8.4^58.8^126.1^33.6^.8^.08^.04^2.5^252.1^10.1^.11
;;^UTILITY(U,$J,112,6713,2)
;;=.13^.88^.38^.05^12.6^.2^.6^^1.4^3.1^.3^.8
;;^UTILITY(U,$J,112,6713,3)
;;=.03^.1^.11^.21^.16^.06^.02^.11^^.12^^.05
;;^UTILITY(U,$J,112,6713,4)
;;=^^^^^^^^6.7
;;^UTILITY(U,$J,112,6713,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6714,0)
;;=SIMILAC 27 LIQUID 27 CAL/OZ^IF-028^floz.^30
;;^UTILITY(U,$J,112,6714,1)
;;=2.6^5^10^95^90.6^^^85.9^.2^6.7^66.8^143.1^32.4^.7^.09^.05^2.9^286.2^8.6^.1
;;^UTILITY(U,$J,112,6714,2)
;;=.14^1^.43^.06^14.3^.2^1.2^^1.7^2.2^.9^1.8
;;^UTILITY(U,$J,112,6714,3)
;;=.03^.11^.13^.34^.18^.07^.02^.13^^.14^^.05
;;^UTILITY(U,$J,112,6714,4)
;;=^^^^^^^^7.6
;;^UTILITY(U,$J,112,6714,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6715,0)
;;=SIMILAC NATURAL CARE LIQUID 24 CAL/OZ^IF-029^floz.^30
;;^UTILITY(U,$J,112,6715,1)
;;=2.3^4.6^8.9^85^91.6^^^176.5^.3^10.1^88.3^108.4^36.1^.3^.21^.01^3.4^571.5^3.1^.2
;;^UTILITY(U,$J,112,6715,2)
;;=.52^4.2^1.6^.21^31.1^.5^.6^^2.6^2.6^.5^.8
;;^UTILITY(U,$J,112,6715,3)
;;=.03^.13^.12^.22^.18^.06^.04^.07^^.12^^.04
;;^UTILITY(U,$J,112,6715,4)
;;=^^^^^^^^10.1
;;^UTILITY(U,$J,112,6715,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6716,0)
;;=SIMILAC PM 60/40 LIQUID 20 CAL/OZ^IF-030^floz.^30
;;^UTILITY(U,$J,112,6716,1)
;;=1.7^3.9^7.2^71^94.6^^^39.5^.2^4.2^19.8^60.7^16.9^.5^.06^.004^2.1^211.8^6.4^.07
;;^UTILITY(U,$J,112,6716,2)
;;=.11^.74^.32^.04^10.6^.18^.92^^2.3^1.7^.6^1.4
;;^UTILITY(U,$J,112,6716,3)
;;=.02^.1^.1^.18^.14^.05^.03^.06^^.1^^.03
;;^UTILITY(U,$J,112,6716,4)
;;=^^^^^^^^5.6
;;^UTILITY(U,$J,112,6716,20)
;;=Ross Labs, 1988.
;;^UTILITY(U,$J,112,6717,0)
;;=SIMILAC SPECIAL CARE 20 LIQUID 20 CAL/OZ^IF-031^floz.^30
;;^UTILITY(U,$J,112,6717,1)
;;=1.9^3.8^7.5^71^93.9^^^127.1^.3^8.5^63.5^91.1^30.4^1.1^.18^.01^2.8^480^26.1^.18
FHINI09S ; ; 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,6707,0)
+2 ;;=SIMILAC 13 LIQUID 13 CAL/OZ^IF-021^floz.^30
+3 ;;^UTILITY(U,$J,112,6707,1)
+4 ;;=1.2^2.4^4.8^46^97.6^^^41.3^.1^3.2^32.1^60.5^15.6^.3^.04^.02^1.4^137.5^4.1^.05
+5 ;;^UTILITY(U,$J,112,6707,2)
+6 ;;=.07^.48^.21^.03^6.9^.1^.6^^.8^1.1^.4^.9
+7 ;;^UTILITY(U,$J,112,6707,3)
+8 ;;=.02^.05^.06^.12^.09^.03^.01^.06^^.07^^.03
+9 ;;^UTILITY(U,$J,112,6707,4)
+10 ;;=^^^^^^^^3.7
+11 ;;^UTILITY(U,$J,112,6707,20)
+12 ;;=Ross Labs, 1988.
+13 ;;^UTILITY(U,$J,112,6708,0)
+14 ;;=SIMILAC 13 W/IRON LIQUID 13 CAL/OZ^IF-022^floz.^30
+15 ;;^UTILITY(U,$J,112,6708,1)
+16 ;;=1.2^2.4^4.8^46^97.6^^^41.3^.8^3.2^32.1^60.5^15.6^.3^.04^.02^1.4^137.5^4.1^.05
+17 ;;^UTILITY(U,$J,112,6708,2)
+18 ;;=.07^.48^.21^.03^6.9^.1^.6^^.8^1.1^.4^.9
+19 ;;^UTILITY(U,$J,112,6708,3)
+20 ;;=.02^.05^.06^.12^.09^.03^.01^.06^^.07^^.03
+21 ;;^UTILITY(U,$J,112,6708,4)
+22 ;;=^^^^^^^^3.7
+23 ;;^UTILITY(U,$J,112,6708,20)
+24 ;;=Ross Labs, 1988.
+25 ;;^UTILITY(U,$J,112,6709,0)
+26 ;;=SIMILAC 20 LIQUID 20 CAL/OZ^IF-023^floz.^30
+27 ;;^UTILITY(U,$J,112,6709,1)
+28 ;;=1^3.8^7.6^71^93.9^^^53^.16^4.2^41^76.2^19.8^.5^.06^.04^2.1^211.8^6.4^.07
+29 ;;^UTILITY(U,$J,112,6709,2)
+30 ;;=.11^.74^.32^.04^10.6^.2^.9^^1.1^1.6^.6^1.3
+31 ;;^UTILITY(U,$J,112,6709,3)
+32 ;;=.02^.07^.08^.15^.11^.04^.01^.08^^.08^^.03
+33 ;;^UTILITY(U,$J,112,6709,4)
+34 ;;=^^^^^^^^5.6
+35 ;;^UTILITY(U,$J,112,6709,20)
+36 ;;=Ross Labs, 1988.
+37 ;;^UTILITY(U,$J,112,6710,0)
+38 ;;=SIMILAC 20 W/IRON LIQUID 20 CAL/OZ^IF-024^floz.^30
+39 ;;^UTILITY(U,$J,112,6710,1)
+40 ;;=1^3.8^7.6^71^93.9^^^53^1.3^4.2^41^76.2^19.8^.5^.06^.04^2.1^211.8^6.4^.07
+41 ;;^UTILITY(U,$J,112,6710,2)
+42 ;;=.11^.74^.32^.04^10.6^.2^.9^^1.1^1.6^.6^1.3
+43 ;;^UTILITY(U,$J,112,6710,3)
+44 ;;=.02^.07^.08^.15^.11^.04^.01^.08^^.08^^.03
+45 ;;^UTILITY(U,$J,112,6710,4)
+46 ;;=^^^^^^^^5.6
+47 ;;^UTILITY(U,$J,112,6710,20)
+48 ;;=Ross Labs, 1988.
+49 ;;^UTILITY(U,$J,112,6711,0)
+50 ;;=SIMILAC 24 LIQUID 24 CAL/OZ^IF-025^floz.^30
+51 ;;^UTILITY(U,$J,112,6711,1)
+52 ;;=2.3^4.4^8.8^85^91.6^^^75.6^.2^5.9^58.8^110.9^28.6^.6^.08^.04^2.5^252.1^7.6^.08
+53 ;;^UTILITY(U,$J,112,6711,2)
+54 ;;=.13^.88^.38^.05^12.6^.2^1.1^^1.5^1.9^.8^1.6
+55 ;;^UTILITY(U,$J,112,6711,3)
+56 ;;=.16^.1^.11^.21^.16^.06^.02^.11^^.12^^.05
+57 ;;^UTILITY(U,$J,112,6711,4)
+58 ;;=^^^^^^^^6.7
+59 ;;^UTILITY(U,$J,112,6711,20)
+60 ;;=Ross Labs, 1988.
+61 ;;^UTILITY(U,$J,112,6712,0)
+62 ;;=SILMILAC 24 W/IRON LIQUID 24 CAL/OZ^IF-026^floz.^30
+63 ;;^UTILITY(U,$J,112,6712,1)
+64 ;;=2.3^4.4^8.8^85^91.6^^^75.6^1.5^5.9^58.8^110.9^28.6^.6^.08^.04^2.5^252.1^7.6^.08
+65 ;;^UTILITY(U,$J,112,6712,2)
+66 ;;=.13^.88^.38^.05^12.6^.2^1.1^^1.5^1.9^.8^1.6
+67 ;;^UTILITY(U,$J,112,6712,3)
+68 ;;=.16^.1^.11^.21^.16^.06^.02^.11^^.12^^.05
+69 ;;^UTILITY(U,$J,112,6712,4)
+70 ;;=^^^^^^^^6.7
+71 ;;^UTILITY(U,$J,112,6712,20)
+72 ;;=Ross Labs, 1988.
+73 ;;^UTILITY(U,$J,112,6713,0)
+74 ;;=SIMILAC 24 LBW LIQUID 24 CAL/OZ^IF-027^floz.^30
+75 ;;^UTILITY(U,$J,112,6713,1)
+76 ;;=2.3^4.6^8.8^85^91.6^^^75.6^.3^8.4^58.8^126.1^33.6^.8^.08^.04^2.5^252.1^10.1^.11
+77 ;;^UTILITY(U,$J,112,6713,2)
+78 ;;=.13^.88^.38^.05^12.6^.2^.6^^1.4^3.1^.3^.8
+79 ;;^UTILITY(U,$J,112,6713,3)
+80 ;;=.03^.1^.11^.21^.16^.06^.02^.11^^.12^^.05
+81 ;;^UTILITY(U,$J,112,6713,4)
+82 ;;=^^^^^^^^6.7
+83 ;;^UTILITY(U,$J,112,6713,20)
+84 ;;=Ross Labs, 1988.
+85 ;;^UTILITY(U,$J,112,6714,0)
+86 ;;=SIMILAC 27 LIQUID 27 CAL/OZ^IF-028^floz.^30
+87 ;;^UTILITY(U,$J,112,6714,1)
+88 ;;=2.6^5^10^95^90.6^^^85.9^.2^6.7^66.8^143.1^32.4^.7^.09^.05^2.9^286.2^8.6^.1
+89 ;;^UTILITY(U,$J,112,6714,2)
+90 ;;=.14^1^.43^.06^14.3^.2^1.2^^1.7^2.2^.9^1.8
+91 ;;^UTILITY(U,$J,112,6714,3)
+92 ;;=.03^.11^.13^.34^.18^.07^.02^.13^^.14^^.05
+93 ;;^UTILITY(U,$J,112,6714,4)
+94 ;;=^^^^^^^^7.6
+95 ;;^UTILITY(U,$J,112,6714,20)
+96 ;;=Ross Labs, 1988.
+97 ;;^UTILITY(U,$J,112,6715,0)
+98 ;;=SIMILAC NATURAL CARE LIQUID 24 CAL/OZ^IF-029^floz.^30
+99 ;;^UTILITY(U,$J,112,6715,1)
+100 ;;=2.3^4.6^8.9^85^91.6^^^176.5^.3^10.1^88.3^108.4^36.1^.3^.21^.01^3.4^571.5^3.1^.2
+101 ;;^UTILITY(U,$J,112,6715,2)
+102 ;;=.52^4.2^1.6^.21^31.1^.5^.6^^2.6^2.6^.5^.8
+103 ;;^UTILITY(U,$J,112,6715,3)
+104 ;;=.03^.13^.12^.22^.18^.06^.04^.07^^.12^^.04
+105 ;;^UTILITY(U,$J,112,6715,4)
+106 ;;=^^^^^^^^10.1
+107 ;;^UTILITY(U,$J,112,6715,20)
+108 ;;=Ross Labs, 1988.
+109 ;;^UTILITY(U,$J,112,6716,0)
+110 ;;=SIMILAC PM 60/40 LIQUID 20 CAL/OZ^IF-030^floz.^30
+111 ;;^UTILITY(U,$J,112,6716,1)
+112 ;;=1.7^3.9^7.2^71^94.6^^^39.5^.2^4.2^19.8^60.7^16.9^.5^.06^.004^2.1^211.8^6.4^.07
+113 ;;^UTILITY(U,$J,112,6716,2)
+114 ;;=.11^.74^.32^.04^10.6^.18^.92^^2.3^1.7^.6^1.4
+115 ;;^UTILITY(U,$J,112,6716,3)
+116 ;;=.02^.1^.1^.18^.14^.05^.03^.06^^.1^^.03
+117 ;;^UTILITY(U,$J,112,6716,4)
+118 ;;=^^^^^^^^5.6
+119 ;;^UTILITY(U,$J,112,6716,20)
+120 ;;=Ross Labs, 1988.
+121 ;;^UTILITY(U,$J,112,6717,0)
+122 ;;=SIMILAC SPECIAL CARE 20 LIQUID 20 CAL/OZ^IF-031^floz.^30
+123 ;;^UTILITY(U,$J,112,6717,1)
+124 ;;=1.9^3.8^7.5^71^93.9^^^127.1^.3^8.5^63.5^91.1^30.4^1.1^.18^.01^2.8^480^26.1^.18
