Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBDEI071

IBDEI071.m

Go to the documentation of this file.
IBDEI071 ; ; 01-AUG-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
 Q:'DIFQR(358.3)  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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,358.3,17065,1,3,0)
 ;;=3^Acute Interstitial Pneumonitis
 ;;^UTILITY(U,$J,358.3,17065,1,4,0)
 ;;=4^J84.114
 ;;^UTILITY(U,$J,358.3,17065,2)
 ;;=^340536
 ;;^UTILITY(U,$J,358.3,17066,0)
 ;;=J84.89^^56^680^6
 ;;^UTILITY(U,$J,358.3,17066,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17066,1,3,0)
 ;;=3^Interstitial Pulmonary Diseases,Oth Spec
 ;;^UTILITY(U,$J,358.3,17066,1,4,0)
 ;;=4^J84.89
 ;;^UTILITY(U,$J,358.3,17066,2)
 ;;=^5008303
 ;;^UTILITY(U,$J,358.3,17067,0)
 ;;=J82.81^^56^680^5
 ;;^UTILITY(U,$J,358.3,17067,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17067,1,3,0)
 ;;=3^Eosinophilic Pneumonia,Chronic
 ;;^UTILITY(U,$J,358.3,17067,1,4,0)
 ;;=4^J82.81
 ;;^UTILITY(U,$J,358.3,17067,2)
 ;;=^24374
 ;;^UTILITY(U,$J,358.3,17068,0)
 ;;=J82.82^^56^680^4
 ;;^UTILITY(U,$J,358.3,17068,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17068,1,3,0)
 ;;=3^Eosinophilic Pneumonia,Acute
 ;;^UTILITY(U,$J,358.3,17068,1,4,0)
 ;;=4^J82.82
 ;;^UTILITY(U,$J,358.3,17068,2)
 ;;=^5159205
 ;;^UTILITY(U,$J,358.3,17069,0)
 ;;=J82.83^^56^680^3
 ;;^UTILITY(U,$J,358.3,17069,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17069,1,3,0)
 ;;=3^Eosinophilic Asthma
 ;;^UTILITY(U,$J,358.3,17069,1,4,0)
 ;;=4^J82.83
 ;;^UTILITY(U,$J,358.3,17069,2)
 ;;=^5159206
 ;;^UTILITY(U,$J,358.3,17070,0)
 ;;=J82.89^^56^680^8
 ;;^UTILITY(U,$J,358.3,17070,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17070,1,3,0)
 ;;=3^Pulmonary Eosinophilia,Other,NEC
 ;;^UTILITY(U,$J,358.3,17070,1,4,0)
 ;;=4^J82.89
 ;;^UTILITY(U,$J,358.3,17070,2)
 ;;=^5159207
 ;;^UTILITY(U,$J,358.3,17071,0)
 ;;=99211^^57^681^1
 ;;^UTILITY(U,$J,358.3,17071,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,17071,1,1,0)
 ;;=1^Nursing Visit ONLY (Do NOT add w/ Oth Procedures)
 ;;^UTILITY(U,$J,358.3,17071,1,2,0)
 ;;=2^99211
 ;;^UTILITY(U,$J,358.3,17072,0)
 ;;=J3420^^58^682^15^^^^1
 ;;^UTILITY(U,$J,358.3,17072,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17072,1,2,0)
 ;;=2^J3420
 ;;^UTILITY(U,$J,358.3,17072,1,3,0)
 ;;=3^B12 UP TO 1,000MCG
 ;;^UTILITY(U,$J,358.3,17073,0)
 ;;=J0800^^58^682^28^^^^1
 ;;^UTILITY(U,$J,358.3,17073,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17073,1,2,0)
 ;;=2^J0800
 ;;^UTILITY(U,$J,358.3,17073,1,3,0)
 ;;=3^CORTISON UP TO 40U
 ;;^UTILITY(U,$J,358.3,17074,0)
 ;;=J1631^^58^682^48^^^^1
 ;;^UTILITY(U,$J,358.3,17074,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17074,1,2,0)
 ;;=2^J1631
 ;;^UTILITY(U,$J,358.3,17074,1,3,0)
 ;;=3^HALDOL 50MG
 ;;^UTILITY(U,$J,358.3,17075,0)
 ;;=J2680^^58^682^92^^^^1
 ;;^UTILITY(U,$J,358.3,17075,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17075,1,2,0)
 ;;=2^J2680
 ;;^UTILITY(U,$J,358.3,17075,1,3,0)
 ;;=3^PROLIXIN UP TO 25MG
 ;;^UTILITY(U,$J,358.3,17076,0)
 ;;=J1630^^58^682^49^^^^1
 ;;^UTILITY(U,$J,358.3,17076,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17076,1,2,0)
 ;;=2^J1630
 ;;^UTILITY(U,$J,358.3,17076,1,3,0)
 ;;=3^HALDOL 5MG
 ;;^UTILITY(U,$J,358.3,17077,0)
 ;;=J9202^^58^682^111^^^^1
 ;;^UTILITY(U,$J,358.3,17077,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17077,1,2,0)
 ;;=2^J9202
 ;;^UTILITY(U,$J,358.3,17077,1,3,0)
 ;;=3^ZOLADEX 3.6MG
 ;;^UTILITY(U,$J,358.3,17078,0)
 ;;=J0885^^58^682^34^^^^1
 ;;^UTILITY(U,$J,358.3,17078,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17078,1,2,0)
 ;;=2^J0885
 ;;^UTILITY(U,$J,358.3,17078,1,3,0)
 ;;=3^EPOGEN, NON-ESRD 1000 UNITS
 ;;^UTILITY(U,$J,358.3,17079,0)
 ;;=J0881^^58^682^11^^^^1
 ;;^UTILITY(U,$J,358.3,17079,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17079,1,2,0)
 ;;=2^J0881
 ;;^UTILITY(U,$J,358.3,17079,1,3,0)
 ;;=3^ARANESP (NON-ESRD) 1MCG
 ;;^UTILITY(U,$J,358.3,17080,0)
 ;;=J0882^^58^682^10^^^^1
 ;;^UTILITY(U,$J,358.3,17080,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17080,1,2,0)
 ;;=2^J0882
 ;;^UTILITY(U,$J,358.3,17080,1,3,0)
 ;;=3^ARANESP (ESRD) 1MCG
 ;;^UTILITY(U,$J,358.3,17081,0)
 ;;=J1826^^58^682^56^^^^1
 ;;^UTILITY(U,$J,358.3,17081,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17081,1,2,0)
 ;;=2^J1826
 ;;^UTILITY(U,$J,358.3,17081,1,3,0)
 ;;=3^INTERFERON BETA-1A 30mcg
 ;;^UTILITY(U,$J,358.3,17082,0)
 ;;=J9217^^58^682^66^^^^1
 ;;^UTILITY(U,$J,358.3,17082,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17082,1,2,0)
 ;;=2^J9217
 ;;^UTILITY(U,$J,358.3,17082,1,3,0)
 ;;=3^LEUPROLIDE 7.5MG
 ;;^UTILITY(U,$J,358.3,17083,0)
 ;;=J9218^^58^682^64^^^^1
 ;;^UTILITY(U,$J,358.3,17083,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17083,1,2,0)
 ;;=2^J9218
 ;;^UTILITY(U,$J,358.3,17083,1,3,0)
 ;;=3^LEUPROLIDE 1MG
 ;;^UTILITY(U,$J,358.3,17084,0)
 ;;=J1950^^58^682^65^^^^1
 ;;^UTILITY(U,$J,358.3,17084,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17084,1,2,0)
 ;;=2^J1950
 ;;^UTILITY(U,$J,358.3,17084,1,3,0)
 ;;=3^LEUPROLIDE 3.75MG
 ;;^UTILITY(U,$J,358.3,17085,0)
 ;;=J9219^^58^682^67^^^^1
 ;;^UTILITY(U,$J,358.3,17085,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17085,1,2,0)
 ;;=2^J9219
 ;;^UTILITY(U,$J,358.3,17085,1,3,0)
 ;;=3^LEUPROLIDE IMPLANT 65MG
 ;;^UTILITY(U,$J,358.3,17086,0)
 ;;=J0696^^58^682^99^^^^4
 ;;^UTILITY(U,$J,358.3,17086,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17086,1,2,0)
 ;;=2^J0696
 ;;^UTILITY(U,$J,358.3,17086,1,3,0)
 ;;=3^ROCEPHIN 250MG
 ;;^UTILITY(U,$J,358.3,17087,0)
 ;;=J1030^^58^682^72^^^^1
 ;;^UTILITY(U,$J,358.3,17087,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17087,1,2,0)
 ;;=2^J1030
 ;;^UTILITY(U,$J,358.3,17087,1,3,0)
 ;;=3^METHYLPREDNISOLONE 40MG
 ;;^UTILITY(U,$J,358.3,17088,0)
 ;;=J1020^^58^682^71^^^^1
 ;;^UTILITY(U,$J,358.3,17088,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17088,1,2,0)
 ;;=2^J1020
 ;;^UTILITY(U,$J,358.3,17088,1,3,0)
 ;;=3^METHYLPREDNISOLONE 20MG
 ;;^UTILITY(U,$J,358.3,17089,0)
 ;;=J1040^^58^682^73^^^^1
 ;;^UTILITY(U,$J,358.3,17089,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17089,1,2,0)
 ;;=2^J1040
 ;;^UTILITY(U,$J,358.3,17089,1,3,0)
 ;;=3^METHYLPREDNISOLONE 80MG
 ;;^UTILITY(U,$J,358.3,17090,0)
 ;;=J2920^^58^682^75^^^^1
 ;;^UTILITY(U,$J,358.3,17090,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17090,1,2,0)
 ;;=2^J2920
 ;;^UTILITY(U,$J,358.3,17090,1,3,0)
 ;;=3^METHYLPREDNISOLONE SOD IV 40MG
 ;;^UTILITY(U,$J,358.3,17091,0)
 ;;=J2930^^58^682^74^^^^1
 ;;^UTILITY(U,$J,358.3,17091,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17091,1,2,0)
 ;;=2^J2930
 ;;^UTILITY(U,$J,358.3,17091,1,3,0)
 ;;=3^METHYLPREDNISOLONE SOD IV 125MG
 ;;^UTILITY(U,$J,358.3,17092,0)
 ;;=J1756^^58^682^59^^^^1
 ;;^UTILITY(U,$J,358.3,17092,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17092,1,2,0)
 ;;=2^J1756
 ;;^UTILITY(U,$J,358.3,17092,1,3,0)
 ;;=3^IRON SUCROSE 1MG
 ;;^UTILITY(U,$J,358.3,17093,0)
 ;;=J1745^^58^682^96^^^^1
 ;;^UTILITY(U,$J,358.3,17093,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17093,1,2,0)
 ;;=2^J1745
 ;;^UTILITY(U,$J,358.3,17093,1,3,0)
 ;;=3^REMICADE 10MG
 ;;^UTILITY(U,$J,358.3,17094,0)
 ;;=J2916^^58^682^38^^^^1
 ;;^UTILITY(U,$J,358.3,17094,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17094,1,2,0)
 ;;=2^J2916
 ;;^UTILITY(U,$J,358.3,17094,1,3,0)
 ;;=3^FERRIC GLUCOMATE 12.5MG
 ;;^UTILITY(U,$J,358.3,17095,0)
 ;;=J0129^^58^682^2^^^^1
 ;;^UTILITY(U,$J,358.3,17095,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17095,1,2,0)
 ;;=2^J0129
 ;;^UTILITY(U,$J,358.3,17095,1,3,0)
 ;;=3^ABATACEPT 10MG
 ;;^UTILITY(U,$J,358.3,17096,0)
 ;;=J1460^^58^682^43^^^^1
 ;;^UTILITY(U,$J,358.3,17096,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17096,1,2,0)
 ;;=2^J1460
 ;;^UTILITY(U,$J,358.3,17096,1,3,0)
 ;;=3^GAMMA GLOBULIN 1CC
 ;;^UTILITY(U,$J,358.3,17097,0)
 ;;=J1560^^58^682^44^^^^1
 ;;^UTILITY(U,$J,358.3,17097,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17097,1,2,0)
 ;;=2^J1560
 ;;^UTILITY(U,$J,358.3,17097,1,3,0)
 ;;=3^GAMMA GLOBULIN > 10CC
 ;;^UTILITY(U,$J,358.3,17098,0)
 ;;=J1561^^58^682^46^^^^1
 ;;^UTILITY(U,$J,358.3,17098,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17098,1,2,0)
 ;;=2^J1561
 ;;^UTILITY(U,$J,358.3,17098,1,3,0)
 ;;=3^GAMUNEX 500MG
 ;;^UTILITY(U,$J,358.3,17099,0)
 ;;=J2353^^58^682^82^^^^1
 ;;^UTILITY(U,$J,358.3,17099,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17099,1,2,0)
 ;;=2^J2353
 ;;^UTILITY(U,$J,358.3,17099,1,3,0)
 ;;=3^OCTREOTIDE 1MG
 ;;^UTILITY(U,$J,358.3,17100,0)
 ;;=J1930^^58^682^63^^^^1
 ;;^UTILITY(U,$J,358.3,17100,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17100,1,2,0)
 ;;=2^J1930
 ;;^UTILITY(U,$J,358.3,17100,1,3,0)
 ;;=3^LANREOTIDE 1MG
 ;;^UTILITY(U,$J,358.3,17101,0)
 ;;=J0561^^58^682^87^^^^1
 ;;^UTILITY(U,$J,358.3,17101,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17101,1,2,0)
 ;;=2^J0561
 ;;^UTILITY(U,$J,358.3,17101,1,3,0)
 ;;=3^PEN G BENZATHINE 100,000 UNITS
 ;;^UTILITY(U,$J,358.3,17102,0)
 ;;=J0558^^58^682^88^^^^1
 ;;^UTILITY(U,$J,358.3,17102,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17102,1,2,0)
 ;;=2^J0558
 ;;^UTILITY(U,$J,358.3,17102,1,3,0)
 ;;=3^PEN G BENZATHINE/PROCAINE 100,000 UNITS
 ;;^UTILITY(U,$J,358.3,17103,0)
 ;;=J2540^^58^682^89^^^^1
 ;;^UTILITY(U,$J,358.3,17103,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17103,1,2,0)
 ;;=2^J2540
 ;;^UTILITY(U,$J,358.3,17103,1,3,0)
 ;;=3^PEN G POTASSIUM 600,000 UNITS
 ;;^UTILITY(U,$J,358.3,17104,0)
 ;;=J2510^^58^682^90^^^^1
 ;;^UTILITY(U,$J,358.3,17104,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17104,1,2,0)
 ;;=2^J2510
 ;;^UTILITY(U,$J,358.3,17104,1,3,0)
 ;;=3^PEN G PROCAINE UP TO 600,000 UNITS
 ;;^UTILITY(U,$J,358.3,17105,0)
 ;;=J3370^^58^682^108^^^^1
 ;;^UTILITY(U,$J,358.3,17105,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17105,1,2,0)
 ;;=2^J3370
 ;;^UTILITY(U,$J,358.3,17105,1,3,0)
 ;;=3^VANCOMYCIN HCI 500MG
 ;;^UTILITY(U,$J,358.3,17106,0)
 ;;=J0696^^58^682^26^^^^1
 ;;^UTILITY(U,$J,358.3,17106,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17106,1,2,0)
 ;;=2^J0696
 ;;^UTILITY(U,$J,358.3,17106,1,3,0)
 ;;=3^CEFTRIAXONE SODIUM 250MG
 ;;^UTILITY(U,$J,358.3,17107,0)
 ;;=J0692^^58^682^23^^^^1
 ;;^UTILITY(U,$J,358.3,17107,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17107,1,2,0)
 ;;=2^J0692
 ;;^UTILITY(U,$J,358.3,17107,1,3,0)
 ;;=3^CEFEPIME HCL 500MG
 ;;^UTILITY(U,$J,358.3,17108,0)
 ;;=J2185^^58^682^70^^^^1
 ;;^UTILITY(U,$J,358.3,17108,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17108,1,2,0)
 ;;=2^J2185
 ;;^UTILITY(U,$J,358.3,17108,1,3,0)
 ;;=3^MEROPENEM 100MG
 ;;^UTILITY(U,$J,358.3,17109,0)
 ;;=J1200^^58^682^33^^^^1
 ;;^UTILITY(U,$J,358.3,17109,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17109,1,2,0)
 ;;=2^J1200
 ;;^UTILITY(U,$J,358.3,17109,1,3,0)
 ;;=3^DIPHENHYDRAMINE HCL 50MG
 ;;^UTILITY(U,$J,358.3,17110,0)
 ;;=J2780^^58^682^94^^^^1
 ;;^UTILITY(U,$J,358.3,17110,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17110,1,2,0)
 ;;=2^J2780
 ;;^UTILITY(U,$J,358.3,17110,1,3,0)
 ;;=3^RANITIDINE HCL 25MG
 ;;^UTILITY(U,$J,358.3,17111,0)
 ;;=J2997^^58^682^9^^^^1
 ;;^UTILITY(U,$J,358.3,17111,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17111,1,2,0)
 ;;=2^J2997
 ;;^UTILITY(U,$J,358.3,17111,1,3,0)
 ;;=3^ALTEPLASE RECOMBINANT 1MG
 ;;^UTILITY(U,$J,358.3,17112,0)
 ;;=J1094^^58^682^31^^^^1
 ;;^UTILITY(U,$J,358.3,17112,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17112,1,2,0)
 ;;=2^J1094
 ;;^UTILITY(U,$J,358.3,17112,1,3,0)
 ;;=3^DEXAMETHASONE ACETATE 1MG
 ;;^UTILITY(U,$J,358.3,17113,0)
 ;;=J1100^^58^682^32^^^^1
 ;;^UTILITY(U,$J,358.3,17113,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17113,1,2,0)
 ;;=2^J1100
 ;;^UTILITY(U,$J,358.3,17113,1,3,0)
 ;;=3^DEXAMETHASONE SODIUM PHOS 1MG
 ;;^UTILITY(U,$J,358.3,17114,0)
 ;;=J9395^^58^682^42^^^^1
 ;;^UTILITY(U,$J,358.3,17114,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17114,1,2,0)
 ;;=2^J9395
 ;;^UTILITY(U,$J,358.3,17114,1,3,0)
 ;;=3^FULVESTRANT 25MG
 ;;^UTILITY(U,$J,358.3,17115,0)
 ;;=96402^^58^682^112^^^^1
 ;;^UTILITY(U,$J,358.3,17115,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17115,1,2,0)
 ;;=2^96402
 ;;^UTILITY(U,$J,358.3,17115,1,3,0)
 ;;=3^ZOLADEX IMPLANT
 ;;^UTILITY(U,$J,358.3,17116,0)
 ;;=J2794^^58^682^97^^^^1
 ;;^UTILITY(U,$J,358.3,17116,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17116,1,2,0)
 ;;=2^J2794
 ;;^UTILITY(U,$J,358.3,17116,1,3,0)
 ;;=3^RISPERIDONE 0.5MG
 ;;^UTILITY(U,$J,358.3,17117,0)
 ;;=J2323^^58^682^77^^^^1
 ;;^UTILITY(U,$J,358.3,17117,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17117,1,2,0)
 ;;=2^J2323
 ;;^UTILITY(U,$J,358.3,17117,1,3,0)
 ;;=3^NATALIZUMAB 1MG
 ;;^UTILITY(U,$J,358.3,17118,0)
 ;;=J2426^^58^682^84^^^^1
 ;;^UTILITY(U,$J,358.3,17118,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17118,1,2,0)
 ;;=2^J2426
 ;;^UTILITY(U,$J,358.3,17118,1,3,0)
 ;;=3^PALIPERIDONE PALMITATE 1MG
 ;;^UTILITY(U,$J,358.3,17119,0)
 ;;=J2315^^58^682^76^^^^1
 ;;^UTILITY(U,$J,358.3,17119,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17119,1,2,0)
 ;;=2^J2315
 ;;^UTILITY(U,$J,358.3,17119,1,3,0)
 ;;=3^NALTREXONE DEPOT FORM 1MG
 ;;^UTILITY(U,$J,358.3,17120,0)
 ;;=J1442^^58^682^40^^^^1
 ;;^UTILITY(U,$J,358.3,17120,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17120,1,2,0)
 ;;=2^J1442
 ;;^UTILITY(U,$J,358.3,17120,1,3,0)
 ;;=3^FILGRASTIM G-CSF,EXC BIOSIMILARS,1MCG
 ;;^UTILITY(U,$J,358.3,17121,0)
 ;;=J3489^^58^682^95^^^^1
 ;;^UTILITY(U,$J,358.3,17121,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17121,1,2,0)
 ;;=2^J3489
 ;;^UTILITY(U,$J,358.3,17121,1,3,0)
 ;;=3^RECLAST 1MG
 ;;^UTILITY(U,$J,358.3,17122,0)
 ;;=Q3027^^58^682^54^^^^1
 ;;^UTILITY(U,$J,358.3,17122,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17122,1,2,0)
 ;;=2^Q3027
 ;;^UTILITY(U,$J,358.3,17122,1,3,0)
 ;;=3^INTERFERON BETA IM 1MCG
 ;;^UTILITY(U,$J,358.3,17123,0)
 ;;=Q3028^^58^682^55^^^^1
 ;;^UTILITY(U,$J,358.3,17123,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17123,1,2,0)
 ;;=2^Q3028
 ;;^UTILITY(U,$J,358.3,17123,1,3,0)
 ;;=3^INTERFERON BETA SQ 1MCG
 ;;^UTILITY(U,$J,358.3,17124,0)
 ;;=J1050^^58^682^68^^^^1
 ;;^UTILITY(U,$J,358.3,17124,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17124,1,2,0)
 ;;=2^J1050
 ;;^UTILITY(U,$J,358.3,17124,1,3,0)
 ;;=3^MEDROXYPROGESTERONE ACETATE 1 MG
 ;;^UTILITY(U,$J,358.3,17125,0)
 ;;=J1885^^58^682^62^^^^1
 ;;^UTILITY(U,$J,358.3,17125,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17125,1,2,0)
 ;;=2^J1885
 ;;^UTILITY(U,$J,358.3,17125,1,3,0)
 ;;=3^KETOROLAC TROMETHAMINE 15MG
 ;;^UTILITY(U,$J,358.3,17126,0)
 ;;=J1750^^58^682^57^^^^1
 ;;^UTILITY(U,$J,358.3,17126,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17126,1,2,0)
 ;;=2^J1750
 ;;^UTILITY(U,$J,358.3,17126,1,3,0)
 ;;=3^IRON DEXTRAN 50MG
 ;;^UTILITY(U,$J,358.3,17127,0)
 ;;=J1200^^58^682^20^^^^1
 ;;^UTILITY(U,$J,358.3,17127,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17127,1,2,0)
 ;;=2^J1200
 ;;^UTILITY(U,$J,358.3,17127,1,3,0)
 ;;=3^BENADRYL UP TO 50MG
 ;;^UTILITY(U,$J,358.3,17128,0)
 ;;=90283^^58^682^50^^^^1
 ;;^UTILITY(U,$J,358.3,17128,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17128,1,2,0)
 ;;=2^90283
 ;;^UTILITY(U,$J,358.3,17128,1,3,0)
 ;;=3^HUMAN IG IV
 ;;^UTILITY(U,$J,358.3,17129,0)
 ;;=J2430^^58^682^85^^^^1
 ;;^UTILITY(U,$J,358.3,17129,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17129,1,2,0)
 ;;=2^J2430
 ;;^UTILITY(U,$J,358.3,17129,1,3,0)
 ;;=3^PAMIDRONATE DISODIUM 30MG
 ;;^UTILITY(U,$J,358.3,17130,0)
 ;;=J1071^^58^682^103^^^^1
 ;;^UTILITY(U,$J,358.3,17130,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17130,1,2,0)
 ;;=2^J1071
 ;;^UTILITY(U,$J,358.3,17130,1,3,0)
 ;;=3^TESTOSTERONE CYPIONATE 1MG
 ;;^UTILITY(U,$J,358.3,17131,0)
 ;;=J3121^^58^682^104^^^^1
 ;;^UTILITY(U,$J,358.3,17131,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17131,1,2,0)
 ;;=2^J3121
 ;;^UTILITY(U,$J,358.3,17131,1,3,0)
 ;;=3^TESTOSTERONE ENANTHATE 1MG
 ;;^UTILITY(U,$J,358.3,17132,0)
 ;;=J2357^^58^682^110^^^^1
 ;;^UTILITY(U,$J,358.3,17132,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17132,1,2,0)
 ;;=2^J2357
 ;;^UTILITY(U,$J,358.3,17132,1,3,0)
 ;;=3^XOLAIR 5MG
 ;;^UTILITY(U,$J,358.3,17133,0)
 ;;=J0202^^58^682^8^^^^1
 ;;^UTILITY(U,$J,358.3,17133,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17133,1,2,0)
 ;;=2^J0202
 ;;^UTILITY(U,$J,358.3,17133,1,3,0)
 ;;=3^ALEMTUZUMAB 1MG
 ;;^UTILITY(U,$J,358.3,17134,0)
 ;;=J0596^^58^682^22^^^^1
 ;;^UTILITY(U,$J,358.3,17134,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17134,1,2,0)
 ;;=2^J0596
 ;;^UTILITY(U,$J,358.3,17134,1,3,0)
 ;;=3^C1 ESTERASE INHIBITOR 10U
 ;;^UTILITY(U,$J,358.3,17135,0)
 ;;=J0695^^58^682^25^^^^1
 ;;^UTILITY(U,$J,358.3,17135,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17135,1,2,0)
 ;;=2^J0695
 ;;^UTILITY(U,$J,358.3,17135,1,3,0)
 ;;=3^CEFTOLOZANE 50MG AND TAZOBACTAM 25MG
 ;;^UTILITY(U,$J,358.3,17136,0)
 ;;=J0714^^58^682^24^^^^1
 ;;^UTILITY(U,$J,358.3,17136,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17136,1,2,0)
 ;;=2^J0714
 ;;^UTILITY(U,$J,358.3,17136,1,3,0)
 ;;=3^CEFTAZIDIME AND AVIBACTAM 0.5G/0.125G
 ;;^UTILITY(U,$J,358.3,17137,0)
 ;;=J0875^^58^682^29^^^^1
 ;;^UTILITY(U,$J,358.3,17137,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17137,1,2,0)
 ;;=2^J0875
 ;;^UTILITY(U,$J,358.3,17137,1,3,0)
 ;;=3^DALBAVANCIN 5MG
 ;;^UTILITY(U,$J,358.3,17138,0)
 ;;=J1443^^58^682^39^^^^1
 ;;^UTILITY(U,$J,358.3,17138,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17138,1,2,0)
 ;;=2^J1443
 ;;^UTILITY(U,$J,358.3,17138,1,3,0)
 ;;=3^FERRIC PYROPHOSPHATE CITRIC SOL .01MG
 ;;^UTILITY(U,$J,358.3,17139,0)
 ;;=J1447^^58^682^101^^^^1
 ;;^UTILITY(U,$J,358.3,17139,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17139,1,2,0)
 ;;=2^J1447
 ;;^UTILITY(U,$J,358.3,17139,1,3,0)
 ;;=3^TBO-FILGRASTIM 1MCG
 ;;^UTILITY(U,$J,358.3,17140,0)
 ;;=J1575^^58^682^52^^^^1
 ;;^UTILITY(U,$J,358.3,17140,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17140,1,2,0)
 ;;=2^J1575
 ;;^UTILITY(U,$J,358.3,17140,1,3,0)
 ;;=3^IMMUNEGLOBULIN/HYALURONIDASE 100MG
 ;;^UTILITY(U,$J,358.3,17141,0)
 ;;=J1833^^58^682^60^^^^1
 ;;^UTILITY(U,$J,358.3,17141,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17141,1,2,0)
 ;;=2^J1833
 ;;^UTILITY(U,$J,358.3,17141,1,3,0)
 ;;=3^ISAVUCONAZONIUM 1MG
 ;;^UTILITY(U,$J,358.3,17142,0)
 ;;=J2407^^58^682^83^^^^1
 ;;^UTILITY(U,$J,358.3,17142,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17142,1,2,0)
 ;;=2^J2407
 ;;^UTILITY(U,$J,358.3,17142,1,3,0)
 ;;=3^ORITAVANCIN 10MG
 ;;^UTILITY(U,$J,358.3,17143,0)
 ;;=J2502^^58^682^86^^^^1
 ;;^UTILITY(U,$J,358.3,17143,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17143,1,2,0)
 ;;=2^J2502
 ;;^UTILITY(U,$J,358.3,17143,1,3,0)
 ;;=3^PASIREOTIDE LONG ACTING 1MG
 ;;^UTILITY(U,$J,358.3,17144,0)
 ;;=J2547^^58^682^91^^^^1
 ;;^UTILITY(U,$J,358.3,17144,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17144,1,2,0)
 ;;=2^J2547
 ;;^UTILITY(U,$J,358.3,17144,1,3,0)
 ;;=3^PERAMIVIR 1MG
 ;;^UTILITY(U,$J,358.3,17145,0)
 ;;=J2860^^58^682^100^^^^1
 ;;^UTILITY(U,$J,358.3,17145,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17145,1,2,0)
 ;;=2^J2860
 ;;^UTILITY(U,$J,358.3,17145,1,3,0)
 ;;=3^SILTUXIMAB 10MG
 ;;^UTILITY(U,$J,358.3,17146,0)
 ;;=J7121^^58^682^1^^^^1
 ;;^UTILITY(U,$J,358.3,17146,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17146,1,2,0)
 ;;=2^J7121
 ;;^UTILITY(U,$J,358.3,17146,1,3,0)
 ;;=3^5% DEXTROSE IN LAC RINGERS UP TO 1000CC
 ;;^UTILITY(U,$J,358.3,17147,0)
 ;;=J7188^^58^682^37^^^^1
 ;;^UTILITY(U,$J,358.3,17147,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17147,1,2,0)
 ;;=2^J7188
 ;;^UTILITY(U,$J,358.3,17147,1,3,0)
 ;;=3^FACTOR VIII PER IU
 ;;^UTILITY(U,$J,358.3,17148,0)
 ;;=J7205^^58^682^36^^^^1
 ;;^UTILITY(U,$J,358.3,17148,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,17148,1,2,0)
 ;;=2^J7205