FHINI09P ; ; 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,6673,4)
;;=^^^^^^^^16
;;^UTILITY(U,$J,112,6673,20)
;;=Clintec Nutrition Enteral Product Guide, March 1990.
;;^UTILITY(U,$J,112,6674,0)
;;=PEPTAMEN^DS-048^cc.^1
;;^UTILITY(U,$J,112,6674,1)
;;=4^3.9^12.7^100^84^^^80^1.2^40^70^125^50^1.4^.14^.28^2.8^500^14^.2
;;^UTILITY(U,$J,112,6674,2)
;;=.24^2.8^1.4^.4^54^.8^^^.48^^^^150.15
;;^UTILITY(U,$J,112,6674,3)
;;=.09^.31^.243^.443^.411^.094^.11^.14^.13^.22^.12^.074^.21^.45^.73^.08^.23^.24
;;^UTILITY(U,$J,112,6674,4)
;;=^^^^^^^^16^4
;;^UTILITY(U,$J,112,6674,20)
;;=Clintec Nutrition Co. Literature, Oct 1990.
;;^UTILITY(U,$J,112,6675,0)
;;=ENTRITION - HALF STRENGTH^DS-049^cc.^1
;;^UTILITY(U,$J,112,6675,1)
;;=1.75^1.75^6.8^50^^^^25^.45^10^25^60^35^.375^.05^.1^1.5^125^7.5^.075
;;^UTILITY(U,$J,112,6675,2)
;;=.085^1^.5^.1^20^.3^^^^^^^37.54
;;^UTILITY(U,$J,112,6675,4)
;;=^^^^^^^^5
;;^UTILITY(U,$J,112,6675,20)
;;=Clintec Nutrition Enteral Product Guide, March 1990.
;;^UTILITY(U,$J,112,6676,0)
;;=NUTREN 1.0^DS-050^cc.^1
;;^UTILITY(U,$J,112,6676,1)
;;=4^3.8^12.72^100^^^^70^1.2^34^70^125^50^1.4^.14^.27^2.8^500^14^.2
;;^UTILITY(U,$J,112,6676,2)
;;=.24^2.8^1.4^.4^54^.8^^^^^^^150.15
;;^UTILITY(U,$J,112,6676,4)
;;=^^^^^^^^16
;;^UTILITY(U,$J,112,6676,20)
;;=Clintec Nutrition Enteral Product Guide, March 1990.
;;^UTILITY(U,$J,112,6677,0)
;;=VIVONEX, TEN^DS-053^cc.^1
;;^UTILITY(U,$J,112,6677,1)
;;=3.82^.277^20.56^100^83.3^^^50^.9^20^50^78.2^46^1^.1^.094^1.5^250^6^.15
;;^UTILITY(U,$J,112,6677,2)
;;=.17^2^1^.2^40^.6^.217^^^^^^75.08
;;^UTILITY(U,$J,112,6677,4)
;;=^^^^^^^^2.23^5
;;^UTILITY(U,$J,112,6677,20)
;;=Norwich Eaton Package Insert, Oct 1990.
;;^UTILITY(U,$J,112,6678,0)
;;=TOLEREX^DS-054^cc.^1
;;^UTILITY(U,$J,112,6678,1)
;;=2.06^.145^22.63^100^85^^^55.6^1^22.2^55.6^117.2^46.8^.833^.111^.156^1.67^277.8^3.33^.083
;;^UTILITY(U,$J,112,6678,2)
;;=.094^1.11^.555^.111^22^.333^.116^^^^^^83.42
;;^UTILITY(U,$J,112,6678,4)
;;=^^^^^^^^3.72^8.33
;;^UTILITY(U,$J,112,6678,20)
;;=Norwich Eaton Package Brouchure, May 1989.
;;^UTILITY(U,$J,112,6679,0)
;;=ENSURE PUDDING^DS-055^5-oz.^142
;;^UTILITY(U,$J,112,6679,1)
;;=4.8^6.84^24^176.5^64.2^^^141.2^2.16^48^141.2^232.98^169.4^2.7^.24^.6^5.43^600^10.87^.183
;;^UTILITY(U,$J,112,6679,2)
;;=.2^2.4^1.2^.24^48^.77^5.46^3.9^7^1.62^^.56
;;^UTILITY(U,$J,112,6679,3)
;;=.72^2.112^2.4^4.75^3.74^1.296^.384^2.25^2.16^3.07^1.58^1.152^1.63^374.18^10.417^.912^4.51^2.592
;;^UTILITY(U,$J,112,6679,4)
;;=0^.129^.195^8.782^.065^.007^43.45^.261^8.47
;;^UTILITY(U,$J,112,6679,20)
;;=Ross Labs, Dec 1990.
;;^UTILITY(U,$J,112,6680,0)
;;=GLUCERNA^DS-056^8-oz.^227
;;^UTILITY(U,$J,112,6680,1)
;;=4.1^5.57^9.37^100^87.34^^^70.4^1.27^28.2^70.4^156.1^92.8^1.59^.15^.36^3.17^352^21.2^.16
;;^UTILITY(U,$J,112,6680,2)
;;=.18^2.12^1.06^.22^42.3^.64^^^^^^^^^^^75
;;^UTILITY(U,$J,112,6680,3)
;;=.046^.167^.213^.385^.314^.125^.017^.201^.23^.268^.15^.117^.125^.297^.823^.075^.435^.251
;;^UTILITY(U,$J,112,6680,4)
;;=^^^^^^^^5.1
;;^UTILITY(U,$J,112,6680,20)
;;=Ross Labs, Dec 1990.
;;^UTILITY(U,$J,112,6681,0)
;;=INTROLITE^DS-057^33.8-oz.^1000
;;^UTILITY(U,$J,112,6681,1)
;;=2.22^1.84^7.05^53^92^^^75.8^1.37^30.4^75.8^157^93^1.71^.152^.379^3.41^378.8^22.8^.171
;;^UTILITY(U,$J,112,6681,2)
;;=.194^2.28^1.14^.228^45.5^^^^1^.89^^.6
;;^UTILITY(U,$J,112,6681,3)
;;=.024^.087^.109^.202^.158^.06^.011^.104^.091^.135^.086^.06^.069^.169^.435^.047^.226^.113
;;^UTILITY(U,$J,112,6681,4)
;;=.453^.033^.014^.13^^.026^.26^0^5.46
;;^UTILITY(U,$J,112,6681,20)
;;=Ross Labs, Dec 1990.
;;^UTILITY(U,$J,112,6682,0)
;;=JEVITY^DS-058^8-oz.^236.5
;;^UTILITY(U,$J,112,6682,1)
;;=4.44^3.68^15.17^106^83.3^^^89.5^1.34^29.79^74.58^154.1^91.6^1.67^.15^.371^3.37^372.08^22.33^.17
;;^UTILITY(U,$J,112,6682,2)
;;=.192^2.23^1.116^.225^45^.7^1.171^.031^2^1.77^^1.2^^^^^75
;;^UTILITY(U,$J,112,6682,3)
;;=.049^.178^.226^.408^.333^.133^.018^.213^.213^.284^.16^.124^.133^.315^.875^.08^.462^.235
;;^UTILITY(U,$J,112,6682,4)
;;=.458^.066^.028^.259^^.052^.521^0^5.41
;;^UTILITY(U,$J,112,6682,20)
;;=Ross Labs, Dec 1990.
;;^UTILITY(U,$J,112,6683,0)
;;=PEDISURE^DS-059^8-oz.^227
;;^UTILITY(U,$J,112,6683,1)
;;=3^5^11^100^84.4^^^97^1.4^20^80^131^38^1.2^.1^.25^2.3^257^10^.27
;;^UTILITY(U,$J,112,6683,2)
;;=.21^1.17^1^.26^36.6^.6^1.14
;;^UTILITY(U,$J,112,6683,3)
;;=.039^.144^.144^.288^.228^.084^.027^.144^.147^.171^.096^.072^.102^.252^.657^.057^.303^.171
;;^UTILITY(U,$J,112,6683,4)
;;=^^^^^^^^3.33
;;^UTILITY(U,$J,112,6683,20)
;;=Ross Labs, Dec 1990.
;;^UTILITY(U,$J,112,6684,0)
;;=REPLENA^DS-062^8-oz.^227
FHINI09P ; ; 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,6673,4)
+2 ;;=^^^^^^^^16
+3 ;;^UTILITY(U,$J,112,6673,20)
+4 ;;=Clintec Nutrition Enteral Product Guide, March 1990.
+5 ;;^UTILITY(U,$J,112,6674,0)
+6 ;;=PEPTAMEN^DS-048^cc.^1
+7 ;;^UTILITY(U,$J,112,6674,1)
+8 ;;=4^3.9^12.7^100^84^^^80^1.2^40^70^125^50^1.4^.14^.28^2.8^500^14^.2
+9 ;;^UTILITY(U,$J,112,6674,2)
+10 ;;=.24^2.8^1.4^.4^54^.8^^^.48^^^^150.15
+11 ;;^UTILITY(U,$J,112,6674,3)
+12 ;;=.09^.31^.243^.443^.411^.094^.11^.14^.13^.22^.12^.074^.21^.45^.73^.08^.23^.24
+13 ;;^UTILITY(U,$J,112,6674,4)
+14 ;;=^^^^^^^^16^4
+15 ;;^UTILITY(U,$J,112,6674,20)
+16 ;;=Clintec Nutrition Co. Literature, Oct 1990.
+17 ;;^UTILITY(U,$J,112,6675,0)
+18 ;;=ENTRITION - HALF STRENGTH^DS-049^cc.^1
+19 ;;^UTILITY(U,$J,112,6675,1)
+20 ;;=1.75^1.75^6.8^50^^^^25^.45^10^25^60^35^.375^.05^.1^1.5^125^7.5^.075
+21 ;;^UTILITY(U,$J,112,6675,2)
+22 ;;=.085^1^.5^.1^20^.3^^^^^^^37.54
+23 ;;^UTILITY(U,$J,112,6675,4)
+24 ;;=^^^^^^^^5
+25 ;;^UTILITY(U,$J,112,6675,20)
+26 ;;=Clintec Nutrition Enteral Product Guide, March 1990.
+27 ;;^UTILITY(U,$J,112,6676,0)
+28 ;;=NUTREN 1.0^DS-050^cc.^1
+29 ;;^UTILITY(U,$J,112,6676,1)
+30 ;;=4^3.8^12.72^100^^^^70^1.2^34^70^125^50^1.4^.14^.27^2.8^500^14^.2
+31 ;;^UTILITY(U,$J,112,6676,2)
+32 ;;=.24^2.8^1.4^.4^54^.8^^^^^^^150.15
+33 ;;^UTILITY(U,$J,112,6676,4)
+34 ;;=^^^^^^^^16
+35 ;;^UTILITY(U,$J,112,6676,20)
+36 ;;=Clintec Nutrition Enteral Product Guide, March 1990.
+37 ;;^UTILITY(U,$J,112,6677,0)
+38 ;;=VIVONEX, TEN^DS-053^cc.^1
+39 ;;^UTILITY(U,$J,112,6677,1)
+40 ;;=3.82^.277^20.56^100^83.3^^^50^.9^20^50^78.2^46^1^.1^.094^1.5^250^6^.15
+41 ;;^UTILITY(U,$J,112,6677,2)
+42 ;;=.17^2^1^.2^40^.6^.217^^^^^^75.08
+43 ;;^UTILITY(U,$J,112,6677,4)
+44 ;;=^^^^^^^^2.23^5
+45 ;;^UTILITY(U,$J,112,6677,20)
+46 ;;=Norwich Eaton Package Insert, Oct 1990.
+47 ;;^UTILITY(U,$J,112,6678,0)
+48 ;;=TOLEREX^DS-054^cc.^1
+49 ;;^UTILITY(U,$J,112,6678,1)
+50 ;;=2.06^.145^22.63^100^85^^^55.6^1^22.2^55.6^117.2^46.8^.833^.111^.156^1.67^277.8^3.33^.083
+51 ;;^UTILITY(U,$J,112,6678,2)
+52 ;;=.094^1.11^.555^.111^22^.333^.116^^^^^^83.42
+53 ;;^UTILITY(U,$J,112,6678,4)
+54 ;;=^^^^^^^^3.72^8.33
+55 ;;^UTILITY(U,$J,112,6678,20)
+56 ;;=Norwich Eaton Package Brouchure, May 1989.
+57 ;;^UTILITY(U,$J,112,6679,0)
+58 ;;=ENSURE PUDDING^DS-055^5-oz.^142
+59 ;;^UTILITY(U,$J,112,6679,1)
+60 ;;=4.8^6.84^24^176.5^64.2^^^141.2^2.16^48^141.2^232.98^169.4^2.7^.24^.6^5.43^600^10.87^.183
+61 ;;^UTILITY(U,$J,112,6679,2)
+62 ;;=.2^2.4^1.2^.24^48^.77^5.46^3.9^7^1.62^^.56
+63 ;;^UTILITY(U,$J,112,6679,3)
+64 ;;=.72^2.112^2.4^4.75^3.74^1.296^.384^2.25^2.16^3.07^1.58^1.152^1.63^374.18^10.417^.912^4.51^2.592
+65 ;;^UTILITY(U,$J,112,6679,4)
+66 ;;=0^.129^.195^8.782^.065^.007^43.45^.261^8.47
+67 ;;^UTILITY(U,$J,112,6679,20)
+68 ;;=Ross Labs, Dec 1990.
+69 ;;^UTILITY(U,$J,112,6680,0)
+70 ;;=GLUCERNA^DS-056^8-oz.^227
+71 ;;^UTILITY(U,$J,112,6680,1)
+72 ;;=4.1^5.57^9.37^100^87.34^^^70.4^1.27^28.2^70.4^156.1^92.8^1.59^.15^.36^3.17^352^21.2^.16
+73 ;;^UTILITY(U,$J,112,6680,2)
+74 ;;=.18^2.12^1.06^.22^42.3^.64^^^^^^^^^^^75
+75 ;;^UTILITY(U,$J,112,6680,3)
+76 ;;=.046^.167^.213^.385^.314^.125^.017^.201^.23^.268^.15^.117^.125^.297^.823^.075^.435^.251
+77 ;;^UTILITY(U,$J,112,6680,4)
+78 ;;=^^^^^^^^5.1
+79 ;;^UTILITY(U,$J,112,6680,20)
+80 ;;=Ross Labs, Dec 1990.
+81 ;;^UTILITY(U,$J,112,6681,0)
+82 ;;=INTROLITE^DS-057^33.8-oz.^1000
+83 ;;^UTILITY(U,$J,112,6681,1)
+84 ;;=2.22^1.84^7.05^53^92^^^75.8^1.37^30.4^75.8^157^93^1.71^.152^.379^3.41^378.8^22.8^.171
+85 ;;^UTILITY(U,$J,112,6681,2)
+86 ;;=.194^2.28^1.14^.228^45.5^^^^1^.89^^.6
+87 ;;^UTILITY(U,$J,112,6681,3)
+88 ;;=.024^.087^.109^.202^.158^.06^.011^.104^.091^.135^.086^.06^.069^.169^.435^.047^.226^.113
+89 ;;^UTILITY(U,$J,112,6681,4)
+90 ;;=.453^.033^.014^.13^^.026^.26^0^5.46
+91 ;;^UTILITY(U,$J,112,6681,20)
+92 ;;=Ross Labs, Dec 1990.
+93 ;;^UTILITY(U,$J,112,6682,0)
+94 ;;=JEVITY^DS-058^8-oz.^236.5
+95 ;;^UTILITY(U,$J,112,6682,1)
+96 ;;=4.44^3.68^15.17^106^83.3^^^89.5^1.34^29.79^74.58^154.1^91.6^1.67^.15^.371^3.37^372.08^22.33^.17
+97 ;;^UTILITY(U,$J,112,6682,2)
+98 ;;=.192^2.23^1.116^.225^45^.7^1.171^.031^2^1.77^^1.2^^^^^75
+99 ;;^UTILITY(U,$J,112,6682,3)
+100 ;;=.049^.178^.226^.408^.333^.133^.018^.213^.213^.284^.16^.124^.133^.315^.875^.08^.462^.235
+101 ;;^UTILITY(U,$J,112,6682,4)
+102 ;;=.458^.066^.028^.259^^.052^.521^0^5.41
+103 ;;^UTILITY(U,$J,112,6682,20)
+104 ;;=Ross Labs, Dec 1990.
+105 ;;^UTILITY(U,$J,112,6683,0)
+106 ;;=PEDISURE^DS-059^8-oz.^227
+107 ;;^UTILITY(U,$J,112,6683,1)
+108 ;;=3^5^11^100^84.4^^^97^1.4^20^80^131^38^1.2^.1^.25^2.3^257^10^.27
+109 ;;^UTILITY(U,$J,112,6683,2)
+110 ;;=.21^1.17^1^.26^36.6^.6^1.14
+111 ;;^UTILITY(U,$J,112,6683,3)
+112 ;;=.039^.144^.144^.288^.228^.084^.027^.144^.147^.171^.096^.072^.102^.252^.657^.057^.303^.171
+113 ;;^UTILITY(U,$J,112,6683,4)
+114 ;;=^^^^^^^^3.33
+115 ;;^UTILITY(U,$J,112,6683,20)
+116 ;;=Ross Labs, Dec 1990.
+117 ;;^UTILITY(U,$J,112,6684,0)
+118 ;;=REPLENA^DS-062^8-oz.^227
