FHINI09N ; ; 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,6643,1)
;;=6^6^18^150^77.8^^^93.8^1.7^37.5^93.8^172.5^102^2.25^.225^.375^^468.8^9^.17
;;^UTILITY(U,$J,112,6643,2)
;;=.19^2.25^1.125^.225^45^.68^^^^^^^^.85^^^^4.5
;;^UTILITY(U,$J,112,6643,4)
;;=^^^^^^^^5.25
;;^UTILITY(U,$J,112,6643,20)
;;=Chesebrough-Pond's, Inc., 1986.
;;^UTILITY(U,$J,112,6644,0)
;;=PRE-FORTISON^DS-007^ml.^1
;;^UTILITY(U,$J,112,6644,1)
;;=2^2^6^50^93^^^31.25^1.125^25^31.25^57.5^34^1.5^.15^.25^^312.5^6^.113
;;^UTILITY(U,$J,112,6644,2)
;;=.128^1.5^.75^.15^30^.45^^^^^^^^.29^^^^3
;;^UTILITY(U,$J,112,6644,4)
;;=^^^^^^^^3.5
;;^UTILITY(U,$J,112,6644,20)
;;=Chesebrough-Pond's, Inc., 1986.
;;^UTILITY(U,$J,112,6645,0)
;;=FORTISON^DS-008^ml.^1
;;^UTILITY(U,$J,112,6645,1)
;;=4^4^12^100^85.5^^^62.5^1.125^25^62.5^115^68^1.5^.15^.25^^312.5^6^.113
;;^UTILITY(U,$J,112,6645,2)
;;=.128^1.5^.75^.15^30^.45^^^^^^^^.56^^^^3
;;^UTILITY(U,$J,112,6645,4)
;;=^^^^^^^^3.5
;;^UTILITY(U,$J,112,6645,20)
;;=Chesebrough-Pond's, Inc., 1986.
;;^UTILITY(U,$J,112,6646,0)
;;=FORTISON L.S.^DS-009^ml.^1
;;^UTILITY(U,$J,112,6646,1)
;;=4^4^12^100^85.5^^^62.5^1.125^25^62.5^115^20^1.5^.15^.25^^312.5^6^.113
;;^UTILITY(U,$J,112,6646,2)
;;=.128^1.5^.75^.15^30^.45^^^^^^^^.44^^^^3
;;^UTILITY(U,$J,112,6646,4)
;;=^^^^^^^^3.5
;;^UTILITY(U,$J,112,6646,20)
;;=Chesebrough-Pond's, Inc., 1986.
;;^UTILITY(U,$J,112,6647,0)
;;=SUSTAGEN (100 G POWDER)^DS-013^8-floz.^260
;;^UTILITY(U,$J,112,6647,1)
;;=24^3.5^66^390^^^^710^4^88^530^710^220^4.4^.44^1.1^^1100^66^.84
;;^UTILITY(U,$J,112,6647,2)
;;=.95^11^5.5^1.1^88^3.3^^^14^^^^^^^^^9.9
;;^UTILITY(U,$J,112,6647,3)
;;=3.9^8.97^12.09^21.84^17.16^6.747^1.17^10.53^11.7^14.82^7.215^5.85^6.981^16.77^49.14^4.251^23.79^10.92
;;^UTILITY(U,$J,112,6647,4)
;;=.105^.13^.42^1.085^^.427^.98^^55
;;^UTILITY(U,$J,112,6647,20)
;;=Mead Johnson Jan 91.
;;^UTILITY(U,$J,112,6648,0)
;;=RESOURCE INSTANT CRYSTALS (RECONSTITUTED)^DS-020^ml.^1
;;^UTILITY(U,$J,112,6648,1)
;;=3.7^3.7^14.5^105^82^^^53^.9^21^53^156^84^1.6^.1^.21^2.4^264^16^.16
;;^UTILITY(U,$J,112,6648,2)
;;=.18^2.1^.53^.2^21^.63^^^1.3^^^^79
;;^UTILITY(U,$J,112,6648,20)
;;=Sandoz Nutrition, 1990.
;;^UTILITY(U,$J,112,6649,0)
;;=RESOURCE LIQUID^DS-021^ml.^1
;;^UTILITY(U,$J,112,6649,1)
;;=3.7^3.7^14.5^105^^^^53^.95^21^53^160^89^1.6^.1^.21^2.4^264^15.8^.16
;;^UTILITY(U,$J,112,6649,2)
;;=.18^2.1^.53^.21^21^.63^^^1.3^^^^79
;;^UTILITY(U,$J,112,6649,20)
;;=Sandoz Nutrition, 1990.
;;^UTILITY(U,$J,112,6650,0)
;;=RESOURCE PLUS LIQUID^DS-022^ml.^1
;;^UTILITY(U,$J,112,6650,1)
;;=5.5^5.3^20^150^70^^^62^1.4^32^62^207^114^2.4^.16^.21^3.3^375^11^.27
;;^UTILITY(U,$J,112,6650,2)
;;=.27^3.16^.84^.32^32^.95^^^1.7^^^^113
;;^UTILITY(U,$J,112,6650,20)
;;=Sandoz Nutrition, 1990.
;;^UTILITY(U,$J,112,6651,0)
;;=FIBERSOURCE^DS-023^ml.^1
;;^UTILITY(U,$J,112,6651,1)
;;=4.3^4.2^16.9^120^79.6^^^66.8^1.2^26.7^66.8^180^86.8^1.67^.13^.33^3^333^20^.2
;;^UTILITY(U,$J,112,6651,2)
;;=.23^2.67^1.33^.27^26.68^.8^^^1.6^^^^100^^^^1
;;^UTILITY(U,$J,112,6651,20)
;;=Sandoz Nutrition, 1990.
;;^UTILITY(U,$J,112,6652,0)
;;=FIBERSOURCE HN^DS-024^ml.^1
;;^UTILITY(U,$J,112,6652,1)
;;=5.3^4.2^15.9^120^80^^^66.8^1.2^26.68^66.8^180^86.8^1.67^.13^.33^3^333^20^.2
;;^UTILITY(U,$J,112,6652,2)
;;=.23^2.67^1.33^.27^26.68^.8^^^2^^^^100^^^^.68
;;^UTILITY(U,$J,112,6652,20)
;;=Sandoz Nutrition, 1990.
;;^UTILITY(U,$J,112,6653,0)
;;=IMPACT^DS-025^ml.^1
;;^UTILITY(U,$J,112,6653,1)
;;=5.6^2.8^13.2^100^78^^^80^1.2^26.8^80^128^108^1.5^.17^.2^6^667^8^.2
;;^UTILITY(U,$J,112,6653,2)
;;=.17^2^.66^.15^40^.8^^^5.6^^^^200
;;^UTILITY(U,$J,112,6653,20)
;;=Sandoz Nutrition, 1990.
;;^UTILITY(U,$J,112,6654,0)
;;=ISOSOURCE^DS-026^ml.^1
;;^UTILITY(U,$J,112,6654,1)
;;=4.3^4.2^16.7^120^80.4^^^66.8^1.2^26.7^66.8^166.8^73.2^1.67^.13^.33^3^333^20^.2
;;^UTILITY(U,$J,112,6654,2)
;;=.23^2.67^1.33^.27^26.7^.8^^^1.6^^^^100
;;^UTILITY(U,$J,112,6654,20)
;;=Sandoz Nutrition, 1990.
;;^UTILITY(U,$J,112,6655,0)
;;=ISOSOURCE HN^DS-027^ml.^1
;;^UTILITY(U,$J,112,6655,1)
;;=5.3^4.2^15.7^120^80.4^^^66.8^1.2^26.7^66.8^166.8^73.2^1.67^.13^.33^3^333^20^.2
;;^UTILITY(U,$J,112,6655,2)
;;=.23^2.67^1.33^.27^26.7^.8^^^1.6^^^^100
;;^UTILITY(U,$J,112,6655,20)
;;=Sandoz Nutrition, 1990.
;;^UTILITY(U,$J,112,6656,0)
;;=REABLIN^DS-028^12.68-oz.^375
;;^UTILITY(U,$J,112,6656,1)
;;=3.15^3.9^13.15^100^85.1^^^49.9^1^.2^49.9^124.8^69.9^1^.16^.2^.5^2424^10^.15
;;^UTILITY(U,$J,112,6656,2)
;;=.15^2^.5^.2^25^.2^1.25^.077
;;^UTILITY(U,$J,112,6656,4)
;;=^^^^^^^^0
;;^UTILITY(U,$J,112,6656,20)
;;=Elan Pharma Gainsville GA 30510, 1990.
FHINI09N ; ; 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,6643,1)
+2 ;;=6^6^18^150^77.8^^^93.8^1.7^37.5^93.8^172.5^102^2.25^.225^.375^^468.8^9^.17
+3 ;;^UTILITY(U,$J,112,6643,2)
+4 ;;=.19^2.25^1.125^.225^45^.68^^^^^^^^.85^^^^4.5
+5 ;;^UTILITY(U,$J,112,6643,4)
+6 ;;=^^^^^^^^5.25
+7 ;;^UTILITY(U,$J,112,6643,20)
+8 ;;=Chesebrough-Pond's, Inc., 1986.
+9 ;;^UTILITY(U,$J,112,6644,0)
+10 ;;=PRE-FORTISON^DS-007^ml.^1
+11 ;;^UTILITY(U,$J,112,6644,1)
+12 ;;=2^2^6^50^93^^^31.25^1.125^25^31.25^57.5^34^1.5^.15^.25^^312.5^6^.113
+13 ;;^UTILITY(U,$J,112,6644,2)
+14 ;;=.128^1.5^.75^.15^30^.45^^^^^^^^.29^^^^3
+15 ;;^UTILITY(U,$J,112,6644,4)
+16 ;;=^^^^^^^^3.5
+17 ;;^UTILITY(U,$J,112,6644,20)
+18 ;;=Chesebrough-Pond's, Inc., 1986.
+19 ;;^UTILITY(U,$J,112,6645,0)
+20 ;;=FORTISON^DS-008^ml.^1
+21 ;;^UTILITY(U,$J,112,6645,1)
+22 ;;=4^4^12^100^85.5^^^62.5^1.125^25^62.5^115^68^1.5^.15^.25^^312.5^6^.113
+23 ;;^UTILITY(U,$J,112,6645,2)
+24 ;;=.128^1.5^.75^.15^30^.45^^^^^^^^.56^^^^3
+25 ;;^UTILITY(U,$J,112,6645,4)
+26 ;;=^^^^^^^^3.5
+27 ;;^UTILITY(U,$J,112,6645,20)
+28 ;;=Chesebrough-Pond's, Inc., 1986.
+29 ;;^UTILITY(U,$J,112,6646,0)
+30 ;;=FORTISON L.S.^DS-009^ml.^1
+31 ;;^UTILITY(U,$J,112,6646,1)
+32 ;;=4^4^12^100^85.5^^^62.5^1.125^25^62.5^115^20^1.5^.15^.25^^312.5^6^.113
+33 ;;^UTILITY(U,$J,112,6646,2)
+34 ;;=.128^1.5^.75^.15^30^.45^^^^^^^^.44^^^^3
+35 ;;^UTILITY(U,$J,112,6646,4)
+36 ;;=^^^^^^^^3.5
+37 ;;^UTILITY(U,$J,112,6646,20)
+38 ;;=Chesebrough-Pond's, Inc., 1986.
+39 ;;^UTILITY(U,$J,112,6647,0)
+40 ;;=SUSTAGEN (100 G POWDER)^DS-013^8-floz.^260
+41 ;;^UTILITY(U,$J,112,6647,1)
+42 ;;=24^3.5^66^390^^^^710^4^88^530^710^220^4.4^.44^1.1^^1100^66^.84
+43 ;;^UTILITY(U,$J,112,6647,2)
+44 ;;=.95^11^5.5^1.1^88^3.3^^^14^^^^^^^^^9.9
+45 ;;^UTILITY(U,$J,112,6647,3)
+46 ;;=3.9^8.97^12.09^21.84^17.16^6.747^1.17^10.53^11.7^14.82^7.215^5.85^6.981^16.77^49.14^4.251^23.79^10.92
+47 ;;^UTILITY(U,$J,112,6647,4)
+48 ;;=.105^.13^.42^1.085^^.427^.98^^55
+49 ;;^UTILITY(U,$J,112,6647,20)
+50 ;;=Mead Johnson Jan 91.
+51 ;;^UTILITY(U,$J,112,6648,0)
+52 ;;=RESOURCE INSTANT CRYSTALS (RECONSTITUTED)^DS-020^ml.^1
+53 ;;^UTILITY(U,$J,112,6648,1)
+54 ;;=3.7^3.7^14.5^105^82^^^53^.9^21^53^156^84^1.6^.1^.21^2.4^264^16^.16
+55 ;;^UTILITY(U,$J,112,6648,2)
+56 ;;=.18^2.1^.53^.2^21^.63^^^1.3^^^^79
+57 ;;^UTILITY(U,$J,112,6648,20)
+58 ;;=Sandoz Nutrition, 1990.
+59 ;;^UTILITY(U,$J,112,6649,0)
+60 ;;=RESOURCE LIQUID^DS-021^ml.^1
+61 ;;^UTILITY(U,$J,112,6649,1)
+62 ;;=3.7^3.7^14.5^105^^^^53^.95^21^53^160^89^1.6^.1^.21^2.4^264^15.8^.16
+63 ;;^UTILITY(U,$J,112,6649,2)
+64 ;;=.18^2.1^.53^.21^21^.63^^^1.3^^^^79
+65 ;;^UTILITY(U,$J,112,6649,20)
+66 ;;=Sandoz Nutrition, 1990.
+67 ;;^UTILITY(U,$J,112,6650,0)
+68 ;;=RESOURCE PLUS LIQUID^DS-022^ml.^1
+69 ;;^UTILITY(U,$J,112,6650,1)
+70 ;;=5.5^5.3^20^150^70^^^62^1.4^32^62^207^114^2.4^.16^.21^3.3^375^11^.27
+71 ;;^UTILITY(U,$J,112,6650,2)
+72 ;;=.27^3.16^.84^.32^32^.95^^^1.7^^^^113
+73 ;;^UTILITY(U,$J,112,6650,20)
+74 ;;=Sandoz Nutrition, 1990.
+75 ;;^UTILITY(U,$J,112,6651,0)
+76 ;;=FIBERSOURCE^DS-023^ml.^1
+77 ;;^UTILITY(U,$J,112,6651,1)
+78 ;;=4.3^4.2^16.9^120^79.6^^^66.8^1.2^26.7^66.8^180^86.8^1.67^.13^.33^3^333^20^.2
+79 ;;^UTILITY(U,$J,112,6651,2)
+80 ;;=.23^2.67^1.33^.27^26.68^.8^^^1.6^^^^100^^^^1
+81 ;;^UTILITY(U,$J,112,6651,20)
+82 ;;=Sandoz Nutrition, 1990.
+83 ;;^UTILITY(U,$J,112,6652,0)
+84 ;;=FIBERSOURCE HN^DS-024^ml.^1
+85 ;;^UTILITY(U,$J,112,6652,1)
+86 ;;=5.3^4.2^15.9^120^80^^^66.8^1.2^26.68^66.8^180^86.8^1.67^.13^.33^3^333^20^.2
+87 ;;^UTILITY(U,$J,112,6652,2)
+88 ;;=.23^2.67^1.33^.27^26.68^.8^^^2^^^^100^^^^.68
+89 ;;^UTILITY(U,$J,112,6652,20)
+90 ;;=Sandoz Nutrition, 1990.
+91 ;;^UTILITY(U,$J,112,6653,0)
+92 ;;=IMPACT^DS-025^ml.^1
+93 ;;^UTILITY(U,$J,112,6653,1)
+94 ;;=5.6^2.8^13.2^100^78^^^80^1.2^26.8^80^128^108^1.5^.17^.2^6^667^8^.2
+95 ;;^UTILITY(U,$J,112,6653,2)
+96 ;;=.17^2^.66^.15^40^.8^^^5.6^^^^200
+97 ;;^UTILITY(U,$J,112,6653,20)
+98 ;;=Sandoz Nutrition, 1990.
+99 ;;^UTILITY(U,$J,112,6654,0)
+100 ;;=ISOSOURCE^DS-026^ml.^1
+101 ;;^UTILITY(U,$J,112,6654,1)
+102 ;;=4.3^4.2^16.7^120^80.4^^^66.8^1.2^26.7^66.8^166.8^73.2^1.67^.13^.33^3^333^20^.2
+103 ;;^UTILITY(U,$J,112,6654,2)
+104 ;;=.23^2.67^1.33^.27^26.7^.8^^^1.6^^^^100
+105 ;;^UTILITY(U,$J,112,6654,20)
+106 ;;=Sandoz Nutrition, 1990.
+107 ;;^UTILITY(U,$J,112,6655,0)
+108 ;;=ISOSOURCE HN^DS-027^ml.^1
+109 ;;^UTILITY(U,$J,112,6655,1)
+110 ;;=5.3^4.2^15.7^120^80.4^^^66.8^1.2^26.7^66.8^166.8^73.2^1.67^.13^.33^3^333^20^.2
+111 ;;^UTILITY(U,$J,112,6655,2)
+112 ;;=.23^2.67^1.33^.27^26.7^.8^^^1.6^^^^100
+113 ;;^UTILITY(U,$J,112,6655,20)
+114 ;;=Sandoz Nutrition, 1990.
+115 ;;^UTILITY(U,$J,112,6656,0)
+116 ;;=REABLIN^DS-028^12.68-oz.^375
+117 ;;^UTILITY(U,$J,112,6656,1)
+118 ;;=3.15^3.9^13.15^100^85.1^^^49.9^1^.2^49.9^124.8^69.9^1^.16^.2^.5^2424^10^.15
+119 ;;^UTILITY(U,$J,112,6656,2)
+120 ;;=.15^2^.5^.2^25^.2^1.25^.077
+121 ;;^UTILITY(U,$J,112,6656,4)
+122 ;;=^^^^^^^^0
+123 ;;^UTILITY(U,$J,112,6656,20)
+124 ;;=Elan Pharma Gainsville GA 30510, 1990.
