FHINI09O ; ; 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,6657,0)
;;=REABLIN HN^DS-029^12.68-oz.^375
;;^UTILITY(U,$J,112,6657,1)
;;=5.8^5.19^15.77^133^79.8^^^45^1.85^.266^49.9^165^99.7^1.875^.128^.266^1.7^32.12^13.3^.2
;;^UTILITY(U,$J,112,6657,2)
;;=.2^2.66^.665^.26^33.25^.3^1.54^.1
;;^UTILITY(U,$J,112,6657,4)
;;=^^^^^^^^165
;;^UTILITY(U,$J,112,6657,20)
;;=Elan Pharma Gainsville GA 30510, 1990.
;;^UTILITY(U,$J,112,6658,0)
;;=INSTANT BREAKFAST, CHOCOLATE (NO ADDED SUGAR)^DS-030^env.^19.56
;;^UTILITY(U,$J,112,6658,1)
;;=35.77^5.11^40.88^357.7^^^^511^23^408.8^511^1737.4^766.5^15.33^2.56^^38.33^8942.5^141.55^1.53
;;^UTILITY(U,$J,112,6658,2)
;;=1.3^25.55^10.22^2.04^511^30.66^^^^^^^2685.44
;;^UTILITY(U,$J,112,6658,3)
;;=.6^1.8^2.44^3.64^2.73^1.34^.77^2.47^1.73^2.88^^.98
;;^UTILITY(U,$J,112,6658,20)
;;=Clintec Nutrition Co., April 1988.
;;^UTILITY(U,$J,112,6664,0)
;;=INSTANT BREAKFAST, CHOC. MALT (NO SUGAR ADDED)^DS-036^env.^20.13
;;^UTILITY(U,$J,112,6664,1)
;;=34.79^4.97^44.73^347.9^^^^298.2^22.4^397.6^397.6^1143.1^745.5^14.91^2.49^^37.28^8697.5^135.2^1.49
;;^UTILITY(U,$J,112,6664,2)
;;=.84^24.85^9.94^1.99^497^2.98^^^^^^^2611.86
;;^UTILITY(U,$J,112,6664,3)
;;=.6^1.75^2.44^3.6^2.58^1.41^.81^2.54^1.78^2.89^^1
;;^UTILITY(U,$J,112,6664,20)
;;=Clintec Nutrition Co. Brouchure, April 1988.
;;^UTILITY(U,$J,112,6665,0)
;;=INSTANT BREAKFAST, VANILLA (NO SUGAR ADDED)^DS-038^env.^18.99
;;^UTILITY(U,$J,112,6665,1)
;;=36.89^0^47.43^368.9^^^^790.5^23.72^421.6^527^1528.3^685.1^15.81^2.64^^39.53^9222.5^145.98^1.58
;;^UTILITY(U,$J,112,6665,2)
;;=1.34^26.35^10.54^2.11^527^3.16^^^^^^^2769.52
;;^UTILITY(U,$J,112,6665,3)
;;=.66^2.02^2.72^4.11^3.1^1.47^.82^2.69^1.96^3.19^^1.1
;;^UTILITY(U,$J,112,6665,20)
;;=Clintec nutrition Co. Brouchure, April 1988.
;;^UTILITY(U,$J,112,6666,0)
;;=INSTANT BREAKFAST, STRAWBERRY (NO SUGAR ADDED)^DS-039^env.^19.28
;;^UTILITY(U,$J,112,6666,1)
;;=36.33^0^46.71^363.3^^^^778.5^23.36^415.2^519^1505.1^648.75^15.57^2.6^^38.93^9082.5^143.76^1.56
;;^UTILITY(U,$J,112,6666,2)
;;=1.32^25.95^10.38^2.08^519^3.11^^^^^^^2727.48
;;^UTILITY(U,$J,112,6666,3)
;;=.66^1.99^2.69^4.05^3.07^1.45^.81^2.66^1.93^3.16^^1.09
;;^UTILITY(U,$J,112,6666,20)
;;=Clintec Nutrition Co. Brouchure, April 1988.
;;^UTILITY(U,$J,112,6667,0)
;;=NUTREN 1.5^DS-040^cc.^1
;;^UTILITY(U,$J,112,6667,1)
;;=6^6.75^17^150^^^^105^1.8^51^105^187.5^75^2.1^.21^.4^4.2^750^21^.3
;;^UTILITY(U,$J,112,6667,2)
;;=.36^4.2^2.1^.6^81^1.2^^^^^^^225.23
;;^UTILITY(U,$J,112,6667,4)
;;=^^^^^^^^24
;;^UTILITY(U,$J,112,6667,20)
;;=Clintec Nutrition Enteral Product Guide, March 1990.
;;^UTILITY(U,$J,112,6668,0)
;;=NUTREN WITH FIBER 1.0^DS-041^cc.^1
;;^UTILITY(U,$J,112,6668,1)
;;=4^3.8^12.7^100^^^^70^1.2^34^70^125^50^1.4^.14^.27^2.8^500^14^.2
;;^UTILITY(U,$J,112,6668,2)
;;=.24^2.8^1.4^.4^54^.8^^^^^^^150.15^^^^1.4
;;^UTILITY(U,$J,112,6668,4)
;;=^^^^^^^^16^4
;;^UTILITY(U,$J,112,6668,20)
;;=Clintec Nutrition Co. Literature, Dec 1990.
;;^UTILITY(U,$J,112,6669,0)
;;=NUTREN 2.0^DS-042^cc.^1
;;^UTILITY(U,$J,112,6669,1)
;;=8^10.6^19.6^200^^^^140^2.4^68^140^250^100^2.8^.28^.54^5.6^1000^28^.4
;;^UTILITY(U,$J,112,6669,2)
;;=.48^5.6^2.8^.8^108^1.6^^^^^^^300.3
;;^UTILITY(U,$J,112,6669,4)
;;=^^^^^^^^32
;;^UTILITY(U,$J,112,6669,20)
;;=Clintec Nutrition Enteral Product Guide, March 1990.
;;^UTILITY(U,$J,112,6670,0)
;;=ENTRITION^DS-044^cc.^1
;;^UTILITY(U,$J,112,6670,1)
;;=3.5^3.5^13.6^100^^^^50^.9^20^50^120^70^.75^.1^.2^3^250^15^.15
;;^UTILITY(U,$J,112,6670,2)
;;=.17^2^1^.2^40^.6^^^^^^^75.08
;;^UTILITY(U,$J,112,6670,4)
;;=^^^^^^^^10
;;^UTILITY(U,$J,112,6670,20)
;;=Clintec Nutrition Enteral Product Guide, March 1990.
;;^UTILITY(U,$J,112,6671,0)
;;=ENTRITION HN^DS-045^cc.^1
;;^UTILITY(U,$J,112,6671,1)
;;=4.4^4.1^11.4^100^^^^77^1.39^30.8^77^157.9^92^1.16^.15^.15^2.3^384.6^11.6^.17
;;^UTILITY(U,$J,112,6671,2)
;;=.2^2.31^1.15^.23^46^.69^^^^^^^115.5
;;^UTILITY(U,$J,112,6671,4)
;;=^^^^^^^^5.4
;;^UTILITY(U,$J,112,6671,20)
;;=Clintec Nutrition Enteral Product Guide, March 1990.
;;^UTILITY(U,$J,112,6672,0)
;;=ENTRITION RDA^DS-046^cc.^1
;;^UTILITY(U,$J,112,6672,1)
;;=3.6^35^13.5^100^^^^66.7^1.2^26.7^66.7^133.3^80^1.13^.13^.2^3^333.3^10^.15
;;^UTILITY(U,$J,112,6672,2)
;;=.17^2^1^.2^30^.6^^^^^^^100.1
;;^UTILITY(U,$J,112,6672,4)
;;=^^^^^^^^6.7^10
;;^UTILITY(U,$J,112,6672,20)
;;=Clintec Nutrition Enteral Product Guide, March 1990.
;;^UTILITY(U,$J,112,6673,0)
;;=REPLETE^DS-047^brick pack^250
;;^UTILITY(U,$J,112,6673,1)
;;=6.25^3.3^11.28^100^^^^80^1.2^40^72^155^50^1.4^.14^.27^2.8^500^14^.2
;;^UTILITY(U,$J,112,6673,2)
;;=.24^2.8^1.4^.4^540^.8^^^^^^^150.15
FHINI09O ; ; 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,6657,0)
+2 ;;=REABLIN HN^DS-029^12.68-oz.^375
+3 ;;^UTILITY(U,$J,112,6657,1)
+4 ;;=5.8^5.19^15.77^133^79.8^^^45^1.85^.266^49.9^165^99.7^1.875^.128^.266^1.7^32.12^13.3^.2
+5 ;;^UTILITY(U,$J,112,6657,2)
+6 ;;=.2^2.66^.665^.26^33.25^.3^1.54^.1
+7 ;;^UTILITY(U,$J,112,6657,4)
+8 ;;=^^^^^^^^165
+9 ;;^UTILITY(U,$J,112,6657,20)
+10 ;;=Elan Pharma Gainsville GA 30510, 1990.
+11 ;;^UTILITY(U,$J,112,6658,0)
+12 ;;=INSTANT BREAKFAST, CHOCOLATE (NO ADDED SUGAR)^DS-030^env.^19.56
+13 ;;^UTILITY(U,$J,112,6658,1)
+14 ;;=35.77^5.11^40.88^357.7^^^^511^23^408.8^511^1737.4^766.5^15.33^2.56^^38.33^8942.5^141.55^1.53
+15 ;;^UTILITY(U,$J,112,6658,2)
+16 ;;=1.3^25.55^10.22^2.04^511^30.66^^^^^^^2685.44
+17 ;;^UTILITY(U,$J,112,6658,3)
+18 ;;=.6^1.8^2.44^3.64^2.73^1.34^.77^2.47^1.73^2.88^^.98
+19 ;;^UTILITY(U,$J,112,6658,20)
+20 ;;=Clintec Nutrition Co., April 1988.
+21 ;;^UTILITY(U,$J,112,6664,0)
+22 ;;=INSTANT BREAKFAST, CHOC. MALT (NO SUGAR ADDED)^DS-036^env.^20.13
+23 ;;^UTILITY(U,$J,112,6664,1)
+24 ;;=34.79^4.97^44.73^347.9^^^^298.2^22.4^397.6^397.6^1143.1^745.5^14.91^2.49^^37.28^8697.5^135.2^1.49
+25 ;;^UTILITY(U,$J,112,6664,2)
+26 ;;=.84^24.85^9.94^1.99^497^2.98^^^^^^^2611.86
+27 ;;^UTILITY(U,$J,112,6664,3)
+28 ;;=.6^1.75^2.44^3.6^2.58^1.41^.81^2.54^1.78^2.89^^1
+29 ;;^UTILITY(U,$J,112,6664,20)
+30 ;;=Clintec Nutrition Co. Brouchure, April 1988.
+31 ;;^UTILITY(U,$J,112,6665,0)
+32 ;;=INSTANT BREAKFAST, VANILLA (NO SUGAR ADDED)^DS-038^env.^18.99
+33 ;;^UTILITY(U,$J,112,6665,1)
+34 ;;=36.89^0^47.43^368.9^^^^790.5^23.72^421.6^527^1528.3^685.1^15.81^2.64^^39.53^9222.5^145.98^1.58
+35 ;;^UTILITY(U,$J,112,6665,2)
+36 ;;=1.34^26.35^10.54^2.11^527^3.16^^^^^^^2769.52
+37 ;;^UTILITY(U,$J,112,6665,3)
+38 ;;=.66^2.02^2.72^4.11^3.1^1.47^.82^2.69^1.96^3.19^^1.1
+39 ;;^UTILITY(U,$J,112,6665,20)
+40 ;;=Clintec nutrition Co. Brouchure, April 1988.
+41 ;;^UTILITY(U,$J,112,6666,0)
+42 ;;=INSTANT BREAKFAST, STRAWBERRY (NO SUGAR ADDED)^DS-039^env.^19.28
+43 ;;^UTILITY(U,$J,112,6666,1)
+44 ;;=36.33^0^46.71^363.3^^^^778.5^23.36^415.2^519^1505.1^648.75^15.57^2.6^^38.93^9082.5^143.76^1.56
+45 ;;^UTILITY(U,$J,112,6666,2)
+46 ;;=1.32^25.95^10.38^2.08^519^3.11^^^^^^^2727.48
+47 ;;^UTILITY(U,$J,112,6666,3)
+48 ;;=.66^1.99^2.69^4.05^3.07^1.45^.81^2.66^1.93^3.16^^1.09
+49 ;;^UTILITY(U,$J,112,6666,20)
+50 ;;=Clintec Nutrition Co. Brouchure, April 1988.
+51 ;;^UTILITY(U,$J,112,6667,0)
+52 ;;=NUTREN 1.5^DS-040^cc.^1
+53 ;;^UTILITY(U,$J,112,6667,1)
+54 ;;=6^6.75^17^150^^^^105^1.8^51^105^187.5^75^2.1^.21^.4^4.2^750^21^.3
+55 ;;^UTILITY(U,$J,112,6667,2)
+56 ;;=.36^4.2^2.1^.6^81^1.2^^^^^^^225.23
+57 ;;^UTILITY(U,$J,112,6667,4)
+58 ;;=^^^^^^^^24
+59 ;;^UTILITY(U,$J,112,6667,20)
+60 ;;=Clintec Nutrition Enteral Product Guide, March 1990.
+61 ;;^UTILITY(U,$J,112,6668,0)
+62 ;;=NUTREN WITH FIBER 1.0^DS-041^cc.^1
+63 ;;^UTILITY(U,$J,112,6668,1)
+64 ;;=4^3.8^12.7^100^^^^70^1.2^34^70^125^50^1.4^.14^.27^2.8^500^14^.2
+65 ;;^UTILITY(U,$J,112,6668,2)
+66 ;;=.24^2.8^1.4^.4^54^.8^^^^^^^150.15^^^^1.4
+67 ;;^UTILITY(U,$J,112,6668,4)
+68 ;;=^^^^^^^^16^4
+69 ;;^UTILITY(U,$J,112,6668,20)
+70 ;;=Clintec Nutrition Co. Literature, Dec 1990.
+71 ;;^UTILITY(U,$J,112,6669,0)
+72 ;;=NUTREN 2.0^DS-042^cc.^1
+73 ;;^UTILITY(U,$J,112,6669,1)
+74 ;;=8^10.6^19.6^200^^^^140^2.4^68^140^250^100^2.8^.28^.54^5.6^1000^28^.4
+75 ;;^UTILITY(U,$J,112,6669,2)
+76 ;;=.48^5.6^2.8^.8^108^1.6^^^^^^^300.3
+77 ;;^UTILITY(U,$J,112,6669,4)
+78 ;;=^^^^^^^^32
+79 ;;^UTILITY(U,$J,112,6669,20)
+80 ;;=Clintec Nutrition Enteral Product Guide, March 1990.
+81 ;;^UTILITY(U,$J,112,6670,0)
+82 ;;=ENTRITION^DS-044^cc.^1
+83 ;;^UTILITY(U,$J,112,6670,1)
+84 ;;=3.5^3.5^13.6^100^^^^50^.9^20^50^120^70^.75^.1^.2^3^250^15^.15
+85 ;;^UTILITY(U,$J,112,6670,2)
+86 ;;=.17^2^1^.2^40^.6^^^^^^^75.08
+87 ;;^UTILITY(U,$J,112,6670,4)
+88 ;;=^^^^^^^^10
+89 ;;^UTILITY(U,$J,112,6670,20)
+90 ;;=Clintec Nutrition Enteral Product Guide, March 1990.
+91 ;;^UTILITY(U,$J,112,6671,0)
+92 ;;=ENTRITION HN^DS-045^cc.^1
+93 ;;^UTILITY(U,$J,112,6671,1)
+94 ;;=4.4^4.1^11.4^100^^^^77^1.39^30.8^77^157.9^92^1.16^.15^.15^2.3^384.6^11.6^.17
+95 ;;^UTILITY(U,$J,112,6671,2)
+96 ;;=.2^2.31^1.15^.23^46^.69^^^^^^^115.5
+97 ;;^UTILITY(U,$J,112,6671,4)
+98 ;;=^^^^^^^^5.4
+99 ;;^UTILITY(U,$J,112,6671,20)
+100 ;;=Clintec Nutrition Enteral Product Guide, March 1990.
+101 ;;^UTILITY(U,$J,112,6672,0)
+102 ;;=ENTRITION RDA^DS-046^cc.^1
+103 ;;^UTILITY(U,$J,112,6672,1)
+104 ;;=3.6^35^13.5^100^^^^66.7^1.2^26.7^66.7^133.3^80^1.13^.13^.2^3^333.3^10^.15
+105 ;;^UTILITY(U,$J,112,6672,2)
+106 ;;=.17^2^1^.2^30^.6^^^^^^^100.1
+107 ;;^UTILITY(U,$J,112,6672,4)
+108 ;;=^^^^^^^^6.7^10
+109 ;;^UTILITY(U,$J,112,6672,20)
+110 ;;=Clintec Nutrition Enteral Product Guide, March 1990.
+111 ;;^UTILITY(U,$J,112,6673,0)
+112 ;;=REPLETE^DS-047^brick pack^250
+113 ;;^UTILITY(U,$J,112,6673,1)
+114 ;;=6.25^3.3^11.28^100^^^^80^1.2^40^72^155^50^1.4^.14^.27^2.8^500^14^.2
+115 ;;^UTILITY(U,$J,112,6673,2)
+116 ;;=.24^2.8^1.4^.4^540^.8^^^^^^^150.15
