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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI071 19779 printed Dec 13, 2024@01:42:54 Page 2
IBDEI071 ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQR(358.3)
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,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,17065,1,3,0)
+2 ;;=3^Acute Interstitial Pneumonitis
+3 ;;^UTILITY(U,$J,358.3,17065,1,4,0)
+4 ;;=4^J84.114
+5 ;;^UTILITY(U,$J,358.3,17065,2)
+6 ;;=^340536
+7 ;;^UTILITY(U,$J,358.3,17066,0)
+8 ;;=J84.89^^56^680^6
+9 ;;^UTILITY(U,$J,358.3,17066,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,17066,1,3,0)
+12 ;;=3^Interstitial Pulmonary Diseases,Oth Spec
+13 ;;^UTILITY(U,$J,358.3,17066,1,4,0)
+14 ;;=4^J84.89
+15 ;;^UTILITY(U,$J,358.3,17066,2)
+16 ;;=^5008303
+17 ;;^UTILITY(U,$J,358.3,17067,0)
+18 ;;=J82.81^^56^680^5
+19 ;;^UTILITY(U,$J,358.3,17067,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,17067,1,3,0)
+22 ;;=3^Eosinophilic Pneumonia,Chronic
+23 ;;^UTILITY(U,$J,358.3,17067,1,4,0)
+24 ;;=4^J82.81
+25 ;;^UTILITY(U,$J,358.3,17067,2)
+26 ;;=^24374
+27 ;;^UTILITY(U,$J,358.3,17068,0)
+28 ;;=J82.82^^56^680^4
+29 ;;^UTILITY(U,$J,358.3,17068,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,17068,1,3,0)
+32 ;;=3^Eosinophilic Pneumonia,Acute
+33 ;;^UTILITY(U,$J,358.3,17068,1,4,0)
+34 ;;=4^J82.82
+35 ;;^UTILITY(U,$J,358.3,17068,2)
+36 ;;=^5159205
+37 ;;^UTILITY(U,$J,358.3,17069,0)
+38 ;;=J82.83^^56^680^3
+39 ;;^UTILITY(U,$J,358.3,17069,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,17069,1,3,0)
+42 ;;=3^Eosinophilic Asthma
+43 ;;^UTILITY(U,$J,358.3,17069,1,4,0)
+44 ;;=4^J82.83
+45 ;;^UTILITY(U,$J,358.3,17069,2)
+46 ;;=^5159206
+47 ;;^UTILITY(U,$J,358.3,17070,0)
+48 ;;=J82.89^^56^680^8
+49 ;;^UTILITY(U,$J,358.3,17070,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,17070,1,3,0)
+52 ;;=3^Pulmonary Eosinophilia,Other,NEC
+53 ;;^UTILITY(U,$J,358.3,17070,1,4,0)
+54 ;;=4^J82.89
+55 ;;^UTILITY(U,$J,358.3,17070,2)
+56 ;;=^5159207
+57 ;;^UTILITY(U,$J,358.3,17071,0)
+58 ;;=99211^^57^681^1
+59 ;;^UTILITY(U,$J,358.3,17071,1,0)
+60 ;;=^358.31IA^2^2
+61 ;;^UTILITY(U,$J,358.3,17071,1,1,0)
+62 ;;=1^Nursing Visit ONLY (Do NOT add w/ Oth Procedures)
+63 ;;^UTILITY(U,$J,358.3,17071,1,2,0)
+64 ;;=2^99211
+65 ;;^UTILITY(U,$J,358.3,17072,0)
+66 ;;=J3420^^58^682^15^^^^1
+67 ;;^UTILITY(U,$J,358.3,17072,1,0)
+68 ;;=^358.31IA^3^2
+69 ;;^UTILITY(U,$J,358.3,17072,1,2,0)
+70 ;;=2^J3420
+71 ;;^UTILITY(U,$J,358.3,17072,1,3,0)
+72 ;;=3^B12 UP TO 1,000MCG
+73 ;;^UTILITY(U,$J,358.3,17073,0)
+74 ;;=J0800^^58^682^28^^^^1
+75 ;;^UTILITY(U,$J,358.3,17073,1,0)
+76 ;;=^358.31IA^3^2
+77 ;;^UTILITY(U,$J,358.3,17073,1,2,0)
+78 ;;=2^J0800
+79 ;;^UTILITY(U,$J,358.3,17073,1,3,0)
+80 ;;=3^CORTISON UP TO 40U
+81 ;;^UTILITY(U,$J,358.3,17074,0)
+82 ;;=J1631^^58^682^48^^^^1
+83 ;;^UTILITY(U,$J,358.3,17074,1,0)
+84 ;;=^358.31IA^3^2
+85 ;;^UTILITY(U,$J,358.3,17074,1,2,0)
+86 ;;=2^J1631
+87 ;;^UTILITY(U,$J,358.3,17074,1,3,0)
+88 ;;=3^HALDOL 50MG
+89 ;;^UTILITY(U,$J,358.3,17075,0)
+90 ;;=J2680^^58^682^92^^^^1
+91 ;;^UTILITY(U,$J,358.3,17075,1,0)
+92 ;;=^358.31IA^3^2
+93 ;;^UTILITY(U,$J,358.3,17075,1,2,0)
+94 ;;=2^J2680
+95 ;;^UTILITY(U,$J,358.3,17075,1,3,0)
+96 ;;=3^PROLIXIN UP TO 25MG
+97 ;;^UTILITY(U,$J,358.3,17076,0)
+98 ;;=J1630^^58^682^49^^^^1
+99 ;;^UTILITY(U,$J,358.3,17076,1,0)
+100 ;;=^358.31IA^3^2
+101 ;;^UTILITY(U,$J,358.3,17076,1,2,0)
+102 ;;=2^J1630
+103 ;;^UTILITY(U,$J,358.3,17076,1,3,0)
+104 ;;=3^HALDOL 5MG
+105 ;;^UTILITY(U,$J,358.3,17077,0)
+106 ;;=J9202^^58^682^111^^^^1
+107 ;;^UTILITY(U,$J,358.3,17077,1,0)
+108 ;;=^358.31IA^3^2
+109 ;;^UTILITY(U,$J,358.3,17077,1,2,0)
+110 ;;=2^J9202
+111 ;;^UTILITY(U,$J,358.3,17077,1,3,0)
+112 ;;=3^ZOLADEX 3.6MG
+113 ;;^UTILITY(U,$J,358.3,17078,0)
+114 ;;=J0885^^58^682^34^^^^1
+115 ;;^UTILITY(U,$J,358.3,17078,1,0)
+116 ;;=^358.31IA^3^2
+117 ;;^UTILITY(U,$J,358.3,17078,1,2,0)
+118 ;;=2^J0885
+119 ;;^UTILITY(U,$J,358.3,17078,1,3,0)
+120 ;;=3^EPOGEN, NON-ESRD 1000 UNITS
+121 ;;^UTILITY(U,$J,358.3,17079,0)
+122 ;;=J0881^^58^682^11^^^^1
+123 ;;^UTILITY(U,$J,358.3,17079,1,0)
+124 ;;=^358.31IA^3^2
+125 ;;^UTILITY(U,$J,358.3,17079,1,2,0)
+126 ;;=2^J0881
+127 ;;^UTILITY(U,$J,358.3,17079,1,3,0)
+128 ;;=3^ARANESP (NON-ESRD) 1MCG
+129 ;;^UTILITY(U,$J,358.3,17080,0)
+130 ;;=J0882^^58^682^10^^^^1
+131 ;;^UTILITY(U,$J,358.3,17080,1,0)
+132 ;;=^358.31IA^3^2
+133 ;;^UTILITY(U,$J,358.3,17080,1,2,0)
+134 ;;=2^J0882
+135 ;;^UTILITY(U,$J,358.3,17080,1,3,0)
+136 ;;=3^ARANESP (ESRD) 1MCG
+137 ;;^UTILITY(U,$J,358.3,17081,0)
+138 ;;=J1826^^58^682^56^^^^1
+139 ;;^UTILITY(U,$J,358.3,17081,1,0)
+140 ;;=^358.31IA^3^2
+141 ;;^UTILITY(U,$J,358.3,17081,1,2,0)
+142 ;;=2^J1826
+143 ;;^UTILITY(U,$J,358.3,17081,1,3,0)
+144 ;;=3^INTERFERON BETA-1A 30mcg
+145 ;;^UTILITY(U,$J,358.3,17082,0)
+146 ;;=J9217^^58^682^66^^^^1
+147 ;;^UTILITY(U,$J,358.3,17082,1,0)
+148 ;;=^358.31IA^3^2
+149 ;;^UTILITY(U,$J,358.3,17082,1,2,0)
+150 ;;=2^J9217
+151 ;;^UTILITY(U,$J,358.3,17082,1,3,0)
+152 ;;=3^LEUPROLIDE 7.5MG
+153 ;;^UTILITY(U,$J,358.3,17083,0)
+154 ;;=J9218^^58^682^64^^^^1
+155 ;;^UTILITY(U,$J,358.3,17083,1,0)
+156 ;;=^358.31IA^3^2
+157 ;;^UTILITY(U,$J,358.3,17083,1,2,0)
+158 ;;=2^J9218
+159 ;;^UTILITY(U,$J,358.3,17083,1,3,0)
+160 ;;=3^LEUPROLIDE 1MG
+161 ;;^UTILITY(U,$J,358.3,17084,0)
+162 ;;=J1950^^58^682^65^^^^1
+163 ;;^UTILITY(U,$J,358.3,17084,1,0)
+164 ;;=^358.31IA^3^2
+165 ;;^UTILITY(U,$J,358.3,17084,1,2,0)
+166 ;;=2^J1950
+167 ;;^UTILITY(U,$J,358.3,17084,1,3,0)
+168 ;;=3^LEUPROLIDE 3.75MG
+169 ;;^UTILITY(U,$J,358.3,17085,0)
+170 ;;=J9219^^58^682^67^^^^1
+171 ;;^UTILITY(U,$J,358.3,17085,1,0)
+172 ;;=^358.31IA^3^2
+173 ;;^UTILITY(U,$J,358.3,17085,1,2,0)
+174 ;;=2^J9219
+175 ;;^UTILITY(U,$J,358.3,17085,1,3,0)
+176 ;;=3^LEUPROLIDE IMPLANT 65MG
+177 ;;^UTILITY(U,$J,358.3,17086,0)
+178 ;;=J0696^^58^682^99^^^^4
+179 ;;^UTILITY(U,$J,358.3,17086,1,0)
+180 ;;=^358.31IA^3^2
+181 ;;^UTILITY(U,$J,358.3,17086,1,2,0)
+182 ;;=2^J0696
+183 ;;^UTILITY(U,$J,358.3,17086,1,3,0)
+184 ;;=3^ROCEPHIN 250MG
+185 ;;^UTILITY(U,$J,358.3,17087,0)
+186 ;;=J1030^^58^682^72^^^^1
+187 ;;^UTILITY(U,$J,358.3,17087,1,0)
+188 ;;=^358.31IA^3^2
+189 ;;^UTILITY(U,$J,358.3,17087,1,2,0)
+190 ;;=2^J1030
+191 ;;^UTILITY(U,$J,358.3,17087,1,3,0)
+192 ;;=3^METHYLPREDNISOLONE 40MG
+193 ;;^UTILITY(U,$J,358.3,17088,0)
+194 ;;=J1020^^58^682^71^^^^1
+195 ;;^UTILITY(U,$J,358.3,17088,1,0)
+196 ;;=^358.31IA^3^2
+197 ;;^UTILITY(U,$J,358.3,17088,1,2,0)
+198 ;;=2^J1020
+199 ;;^UTILITY(U,$J,358.3,17088,1,3,0)
+200 ;;=3^METHYLPREDNISOLONE 20MG
+201 ;;^UTILITY(U,$J,358.3,17089,0)
+202 ;;=J1040^^58^682^73^^^^1
+203 ;;^UTILITY(U,$J,358.3,17089,1,0)
+204 ;;=^358.31IA^3^2
+205 ;;^UTILITY(U,$J,358.3,17089,1,2,0)
+206 ;;=2^J1040
+207 ;;^UTILITY(U,$J,358.3,17089,1,3,0)
+208 ;;=3^METHYLPREDNISOLONE 80MG
+209 ;;^UTILITY(U,$J,358.3,17090,0)
+210 ;;=J2920^^58^682^75^^^^1
+211 ;;^UTILITY(U,$J,358.3,17090,1,0)
+212 ;;=^358.31IA^3^2
+213 ;;^UTILITY(U,$J,358.3,17090,1,2,0)
+214 ;;=2^J2920
+215 ;;^UTILITY(U,$J,358.3,17090,1,3,0)
+216 ;;=3^METHYLPREDNISOLONE SOD IV 40MG
+217 ;;^UTILITY(U,$J,358.3,17091,0)
+218 ;;=J2930^^58^682^74^^^^1
+219 ;;^UTILITY(U,$J,358.3,17091,1,0)
+220 ;;=^358.31IA^3^2
+221 ;;^UTILITY(U,$J,358.3,17091,1,2,0)
+222 ;;=2^J2930
+223 ;;^UTILITY(U,$J,358.3,17091,1,3,0)
+224 ;;=3^METHYLPREDNISOLONE SOD IV 125MG
+225 ;;^UTILITY(U,$J,358.3,17092,0)
+226 ;;=J1756^^58^682^59^^^^1
+227 ;;^UTILITY(U,$J,358.3,17092,1,0)
+228 ;;=^358.31IA^3^2
+229 ;;^UTILITY(U,$J,358.3,17092,1,2,0)
+230 ;;=2^J1756
+231 ;;^UTILITY(U,$J,358.3,17092,1,3,0)
+232 ;;=3^IRON SUCROSE 1MG
+233 ;;^UTILITY(U,$J,358.3,17093,0)
+234 ;;=J1745^^58^682^96^^^^1
+235 ;;^UTILITY(U,$J,358.3,17093,1,0)
+236 ;;=^358.31IA^3^2
+237 ;;^UTILITY(U,$J,358.3,17093,1,2,0)
+238 ;;=2^J1745
+239 ;;^UTILITY(U,$J,358.3,17093,1,3,0)
+240 ;;=3^REMICADE 10MG
+241 ;;^UTILITY(U,$J,358.3,17094,0)
+242 ;;=J2916^^58^682^38^^^^1
+243 ;;^UTILITY(U,$J,358.3,17094,1,0)
+244 ;;=^358.31IA^3^2
+245 ;;^UTILITY(U,$J,358.3,17094,1,2,0)
+246 ;;=2^J2916
+247 ;;^UTILITY(U,$J,358.3,17094,1,3,0)
+248 ;;=3^FERRIC GLUCOMATE 12.5MG
+249 ;;^UTILITY(U,$J,358.3,17095,0)
+250 ;;=J0129^^58^682^2^^^^1
+251 ;;^UTILITY(U,$J,358.3,17095,1,0)
+252 ;;=^358.31IA^3^2
+253 ;;^UTILITY(U,$J,358.3,17095,1,2,0)
+254 ;;=2^J0129
+255 ;;^UTILITY(U,$J,358.3,17095,1,3,0)
+256 ;;=3^ABATACEPT 10MG
+257 ;;^UTILITY(U,$J,358.3,17096,0)
+258 ;;=J1460^^58^682^43^^^^1
+259 ;;^UTILITY(U,$J,358.3,17096,1,0)
+260 ;;=^358.31IA^3^2
+261 ;;^UTILITY(U,$J,358.3,17096,1,2,0)
+262 ;;=2^J1460
+263 ;;^UTILITY(U,$J,358.3,17096,1,3,0)
+264 ;;=3^GAMMA GLOBULIN 1CC
+265 ;;^UTILITY(U,$J,358.3,17097,0)
+266 ;;=J1560^^58^682^44^^^^1
+267 ;;^UTILITY(U,$J,358.3,17097,1,0)
+268 ;;=^358.31IA^3^2
+269 ;;^UTILITY(U,$J,358.3,17097,1,2,0)
+270 ;;=2^J1560
+271 ;;^UTILITY(U,$J,358.3,17097,1,3,0)
+272 ;;=3^GAMMA GLOBULIN > 10CC
+273 ;;^UTILITY(U,$J,358.3,17098,0)
+274 ;;=J1561^^58^682^46^^^^1
+275 ;;^UTILITY(U,$J,358.3,17098,1,0)
+276 ;;=^358.31IA^3^2
+277 ;;^UTILITY(U,$J,358.3,17098,1,2,0)
+278 ;;=2^J1561
+279 ;;^UTILITY(U,$J,358.3,17098,1,3,0)
+280 ;;=3^GAMUNEX 500MG
+281 ;;^UTILITY(U,$J,358.3,17099,0)
+282 ;;=J2353^^58^682^82^^^^1
+283 ;;^UTILITY(U,$J,358.3,17099,1,0)
+284 ;;=^358.31IA^3^2
+285 ;;^UTILITY(U,$J,358.3,17099,1,2,0)
+286 ;;=2^J2353
+287 ;;^UTILITY(U,$J,358.3,17099,1,3,0)
+288 ;;=3^OCTREOTIDE 1MG
+289 ;;^UTILITY(U,$J,358.3,17100,0)
+290 ;;=J1930^^58^682^63^^^^1
+291 ;;^UTILITY(U,$J,358.3,17100,1,0)
+292 ;;=^358.31IA^3^2
+293 ;;^UTILITY(U,$J,358.3,17100,1,2,0)
+294 ;;=2^J1930
+295 ;;^UTILITY(U,$J,358.3,17100,1,3,0)
+296 ;;=3^LANREOTIDE 1MG
+297 ;;^UTILITY(U,$J,358.3,17101,0)
+298 ;;=J0561^^58^682^87^^^^1
+299 ;;^UTILITY(U,$J,358.3,17101,1,0)
+300 ;;=^358.31IA^3^2
+301 ;;^UTILITY(U,$J,358.3,17101,1,2,0)
+302 ;;=2^J0561
+303 ;;^UTILITY(U,$J,358.3,17101,1,3,0)
+304 ;;=3^PEN G BENZATHINE 100,000 UNITS
+305 ;;^UTILITY(U,$J,358.3,17102,0)
+306 ;;=J0558^^58^682^88^^^^1
+307 ;;^UTILITY(U,$J,358.3,17102,1,0)
+308 ;;=^358.31IA^3^2
+309 ;;^UTILITY(U,$J,358.3,17102,1,2,0)
+310 ;;=2^J0558
+311 ;;^UTILITY(U,$J,358.3,17102,1,3,0)
+312 ;;=3^PEN G BENZATHINE/PROCAINE 100,000 UNITS
+313 ;;^UTILITY(U,$J,358.3,17103,0)
+314 ;;=J2540^^58^682^89^^^^1
+315 ;;^UTILITY(U,$J,358.3,17103,1,0)
+316 ;;=^358.31IA^3^2
+317 ;;^UTILITY(U,$J,358.3,17103,1,2,0)
+318 ;;=2^J2540
+319 ;;^UTILITY(U,$J,358.3,17103,1,3,0)
+320 ;;=3^PEN G POTASSIUM 600,000 UNITS
+321 ;;^UTILITY(U,$J,358.3,17104,0)
+322 ;;=J2510^^58^682^90^^^^1
+323 ;;^UTILITY(U,$J,358.3,17104,1,0)
+324 ;;=^358.31IA^3^2
+325 ;;^UTILITY(U,$J,358.3,17104,1,2,0)
+326 ;;=2^J2510
+327 ;;^UTILITY(U,$J,358.3,17104,1,3,0)
+328 ;;=3^PEN G PROCAINE UP TO 600,000 UNITS
+329 ;;^UTILITY(U,$J,358.3,17105,0)
+330 ;;=J3370^^58^682^108^^^^1
+331 ;;^UTILITY(U,$J,358.3,17105,1,0)
+332 ;;=^358.31IA^3^2
+333 ;;^UTILITY(U,$J,358.3,17105,1,2,0)
+334 ;;=2^J3370
+335 ;;^UTILITY(U,$J,358.3,17105,1,3,0)
+336 ;;=3^VANCOMYCIN HCI 500MG
+337 ;;^UTILITY(U,$J,358.3,17106,0)
+338 ;;=J0696^^58^682^26^^^^1
+339 ;;^UTILITY(U,$J,358.3,17106,1,0)
+340 ;;=^358.31IA^3^2
+341 ;;^UTILITY(U,$J,358.3,17106,1,2,0)
+342 ;;=2^J0696
+343 ;;^UTILITY(U,$J,358.3,17106,1,3,0)
+344 ;;=3^CEFTRIAXONE SODIUM 250MG
+345 ;;^UTILITY(U,$J,358.3,17107,0)
+346 ;;=J0692^^58^682^23^^^^1
+347 ;;^UTILITY(U,$J,358.3,17107,1,0)
+348 ;;=^358.31IA^3^2
+349 ;;^UTILITY(U,$J,358.3,17107,1,2,0)
+350 ;;=2^J0692
+351 ;;^UTILITY(U,$J,358.3,17107,1,3,0)
+352 ;;=3^CEFEPIME HCL 500MG
+353 ;;^UTILITY(U,$J,358.3,17108,0)
+354 ;;=J2185^^58^682^70^^^^1
+355 ;;^UTILITY(U,$J,358.3,17108,1,0)
+356 ;;=^358.31IA^3^2
+357 ;;^UTILITY(U,$J,358.3,17108,1,2,0)
+358 ;;=2^J2185
+359 ;;^UTILITY(U,$J,358.3,17108,1,3,0)
+360 ;;=3^MEROPENEM 100MG
+361 ;;^UTILITY(U,$J,358.3,17109,0)
+362 ;;=J1200^^58^682^33^^^^1
+363 ;;^UTILITY(U,$J,358.3,17109,1,0)
+364 ;;=^358.31IA^3^2
+365 ;;^UTILITY(U,$J,358.3,17109,1,2,0)
+366 ;;=2^J1200
+367 ;;^UTILITY(U,$J,358.3,17109,1,3,0)
+368 ;;=3^DIPHENHYDRAMINE HCL 50MG
+369 ;;^UTILITY(U,$J,358.3,17110,0)
+370 ;;=J2780^^58^682^94^^^^1
+371 ;;^UTILITY(U,$J,358.3,17110,1,0)
+372 ;;=^358.31IA^3^2
+373 ;;^UTILITY(U,$J,358.3,17110,1,2,0)
+374 ;;=2^J2780
+375 ;;^UTILITY(U,$J,358.3,17110,1,3,0)
+376 ;;=3^RANITIDINE HCL 25MG
+377 ;;^UTILITY(U,$J,358.3,17111,0)
+378 ;;=J2997^^58^682^9^^^^1
+379 ;;^UTILITY(U,$J,358.3,17111,1,0)
+380 ;;=^358.31IA^3^2
+381 ;;^UTILITY(U,$J,358.3,17111,1,2,0)
+382 ;;=2^J2997
+383 ;;^UTILITY(U,$J,358.3,17111,1,3,0)
+384 ;;=3^ALTEPLASE RECOMBINANT 1MG
+385 ;;^UTILITY(U,$J,358.3,17112,0)
+386 ;;=J1094^^58^682^31^^^^1
+387 ;;^UTILITY(U,$J,358.3,17112,1,0)
+388 ;;=^358.31IA^3^2
+389 ;;^UTILITY(U,$J,358.3,17112,1,2,0)
+390 ;;=2^J1094
+391 ;;^UTILITY(U,$J,358.3,17112,1,3,0)
+392 ;;=3^DEXAMETHASONE ACETATE 1MG
+393 ;;^UTILITY(U,$J,358.3,17113,0)
+394 ;;=J1100^^58^682^32^^^^1
+395 ;;^UTILITY(U,$J,358.3,17113,1,0)
+396 ;;=^358.31IA^3^2
+397 ;;^UTILITY(U,$J,358.3,17113,1,2,0)
+398 ;;=2^J1100
+399 ;;^UTILITY(U,$J,358.3,17113,1,3,0)
+400 ;;=3^DEXAMETHASONE SODIUM PHOS 1MG
+401 ;;^UTILITY(U,$J,358.3,17114,0)
+402 ;;=J9395^^58^682^42^^^^1
+403 ;;^UTILITY(U,$J,358.3,17114,1,0)
+404 ;;=^358.31IA^3^2
+405 ;;^UTILITY(U,$J,358.3,17114,1,2,0)
+406 ;;=2^J9395
+407 ;;^UTILITY(U,$J,358.3,17114,1,3,0)
+408 ;;=3^FULVESTRANT 25MG
+409 ;;^UTILITY(U,$J,358.3,17115,0)
+410 ;;=96402^^58^682^112^^^^1
+411 ;;^UTILITY(U,$J,358.3,17115,1,0)
+412 ;;=^358.31IA^3^2
+413 ;;^UTILITY(U,$J,358.3,17115,1,2,0)
+414 ;;=2^96402
+415 ;;^UTILITY(U,$J,358.3,17115,1,3,0)
+416 ;;=3^ZOLADEX IMPLANT
+417 ;;^UTILITY(U,$J,358.3,17116,0)
+418 ;;=J2794^^58^682^97^^^^1
+419 ;;^UTILITY(U,$J,358.3,17116,1,0)
+420 ;;=^358.31IA^3^2
+421 ;;^UTILITY(U,$J,358.3,17116,1,2,0)
+422 ;;=2^J2794
+423 ;;^UTILITY(U,$J,358.3,17116,1,3,0)
+424 ;;=3^RISPERIDONE 0.5MG
+425 ;;^UTILITY(U,$J,358.3,17117,0)
+426 ;;=J2323^^58^682^77^^^^1
+427 ;;^UTILITY(U,$J,358.3,17117,1,0)
+428 ;;=^358.31IA^3^2
+429 ;;^UTILITY(U,$J,358.3,17117,1,2,0)
+430 ;;=2^J2323
+431 ;;^UTILITY(U,$J,358.3,17117,1,3,0)
+432 ;;=3^NATALIZUMAB 1MG
+433 ;;^UTILITY(U,$J,358.3,17118,0)
+434 ;;=J2426^^58^682^84^^^^1
+435 ;;^UTILITY(U,$J,358.3,17118,1,0)
+436 ;;=^358.31IA^3^2
+437 ;;^UTILITY(U,$J,358.3,17118,1,2,0)
+438 ;;=2^J2426
+439 ;;^UTILITY(U,$J,358.3,17118,1,3,0)
+440 ;;=3^PALIPERIDONE PALMITATE 1MG
+441 ;;^UTILITY(U,$J,358.3,17119,0)
+442 ;;=J2315^^58^682^76^^^^1
+443 ;;^UTILITY(U,$J,358.3,17119,1,0)
+444 ;;=^358.31IA^3^2
+445 ;;^UTILITY(U,$J,358.3,17119,1,2,0)
+446 ;;=2^J2315
+447 ;;^UTILITY(U,$J,358.3,17119,1,3,0)
+448 ;;=3^NALTREXONE DEPOT FORM 1MG
+449 ;;^UTILITY(U,$J,358.3,17120,0)
+450 ;;=J1442^^58^682^40^^^^1
+451 ;;^UTILITY(U,$J,358.3,17120,1,0)
+452 ;;=^358.31IA^3^2
+453 ;;^UTILITY(U,$J,358.3,17120,1,2,0)
+454 ;;=2^J1442
+455 ;;^UTILITY(U,$J,358.3,17120,1,3,0)
+456 ;;=3^FILGRASTIM G-CSF,EXC BIOSIMILARS,1MCG
+457 ;;^UTILITY(U,$J,358.3,17121,0)
+458 ;;=J3489^^58^682^95^^^^1
+459 ;;^UTILITY(U,$J,358.3,17121,1,0)
+460 ;;=^358.31IA^3^2
+461 ;;^UTILITY(U,$J,358.3,17121,1,2,0)
+462 ;;=2^J3489
+463 ;;^UTILITY(U,$J,358.3,17121,1,3,0)
+464 ;;=3^RECLAST 1MG
+465 ;;^UTILITY(U,$J,358.3,17122,0)
+466 ;;=Q3027^^58^682^54^^^^1
+467 ;;^UTILITY(U,$J,358.3,17122,1,0)
+468 ;;=^358.31IA^3^2
+469 ;;^UTILITY(U,$J,358.3,17122,1,2,0)
+470 ;;=2^Q3027
+471 ;;^UTILITY(U,$J,358.3,17122,1,3,0)
+472 ;;=3^INTERFERON BETA IM 1MCG
+473 ;;^UTILITY(U,$J,358.3,17123,0)
+474 ;;=Q3028^^58^682^55^^^^1
+475 ;;^UTILITY(U,$J,358.3,17123,1,0)
+476 ;;=^358.31IA^3^2
+477 ;;^UTILITY(U,$J,358.3,17123,1,2,0)
+478 ;;=2^Q3028
+479 ;;^UTILITY(U,$J,358.3,17123,1,3,0)
+480 ;;=3^INTERFERON BETA SQ 1MCG
+481 ;;^UTILITY(U,$J,358.3,17124,0)
+482 ;;=J1050^^58^682^68^^^^1
+483 ;;^UTILITY(U,$J,358.3,17124,1,0)
+484 ;;=^358.31IA^3^2
+485 ;;^UTILITY(U,$J,358.3,17124,1,2,0)
+486 ;;=2^J1050
+487 ;;^UTILITY(U,$J,358.3,17124,1,3,0)
+488 ;;=3^MEDROXYPROGESTERONE ACETATE 1 MG
+489 ;;^UTILITY(U,$J,358.3,17125,0)
+490 ;;=J1885^^58^682^62^^^^1
+491 ;;^UTILITY(U,$J,358.3,17125,1,0)
+492 ;;=^358.31IA^3^2
+493 ;;^UTILITY(U,$J,358.3,17125,1,2,0)
+494 ;;=2^J1885
+495 ;;^UTILITY(U,$J,358.3,17125,1,3,0)
+496 ;;=3^KETOROLAC TROMETHAMINE 15MG
+497 ;;^UTILITY(U,$J,358.3,17126,0)
+498 ;;=J1750^^58^682^57^^^^1
+499 ;;^UTILITY(U,$J,358.3,17126,1,0)
+500 ;;=^358.31IA^3^2
+501 ;;^UTILITY(U,$J,358.3,17126,1,2,0)
+502 ;;=2^J1750
+503 ;;^UTILITY(U,$J,358.3,17126,1,3,0)
+504 ;;=3^IRON DEXTRAN 50MG
+505 ;;^UTILITY(U,$J,358.3,17127,0)
+506 ;;=J1200^^58^682^20^^^^1
+507 ;;^UTILITY(U,$J,358.3,17127,1,0)
+508 ;;=^358.31IA^3^2
+509 ;;^UTILITY(U,$J,358.3,17127,1,2,0)
+510 ;;=2^J1200
+511 ;;^UTILITY(U,$J,358.3,17127,1,3,0)
+512 ;;=3^BENADRYL UP TO 50MG
+513 ;;^UTILITY(U,$J,358.3,17128,0)
+514 ;;=90283^^58^682^50^^^^1
+515 ;;^UTILITY(U,$J,358.3,17128,1,0)
+516 ;;=^358.31IA^3^2
+517 ;;^UTILITY(U,$J,358.3,17128,1,2,0)
+518 ;;=2^90283
+519 ;;^UTILITY(U,$J,358.3,17128,1,3,0)
+520 ;;=3^HUMAN IG IV
+521 ;;^UTILITY(U,$J,358.3,17129,0)
+522 ;;=J2430^^58^682^85^^^^1
+523 ;;^UTILITY(U,$J,358.3,17129,1,0)
+524 ;;=^358.31IA^3^2
+525 ;;^UTILITY(U,$J,358.3,17129,1,2,0)
+526 ;;=2^J2430
+527 ;;^UTILITY(U,$J,358.3,17129,1,3,0)
+528 ;;=3^PAMIDRONATE DISODIUM 30MG
+529 ;;^UTILITY(U,$J,358.3,17130,0)
+530 ;;=J1071^^58^682^103^^^^1
+531 ;;^UTILITY(U,$J,358.3,17130,1,0)
+532 ;;=^358.31IA^3^2
+533 ;;^UTILITY(U,$J,358.3,17130,1,2,0)
+534 ;;=2^J1071
+535 ;;^UTILITY(U,$J,358.3,17130,1,3,0)
+536 ;;=3^TESTOSTERONE CYPIONATE 1MG
+537 ;;^UTILITY(U,$J,358.3,17131,0)
+538 ;;=J3121^^58^682^104^^^^1
+539 ;;^UTILITY(U,$J,358.3,17131,1,0)
+540 ;;=^358.31IA^3^2
+541 ;;^UTILITY(U,$J,358.3,17131,1,2,0)
+542 ;;=2^J3121
+543 ;;^UTILITY(U,$J,358.3,17131,1,3,0)
+544 ;;=3^TESTOSTERONE ENANTHATE 1MG
+545 ;;^UTILITY(U,$J,358.3,17132,0)
+546 ;;=J2357^^58^682^110^^^^1
+547 ;;^UTILITY(U,$J,358.3,17132,1,0)
+548 ;;=^358.31IA^3^2
+549 ;;^UTILITY(U,$J,358.3,17132,1,2,0)
+550 ;;=2^J2357
+551 ;;^UTILITY(U,$J,358.3,17132,1,3,0)
+552 ;;=3^XOLAIR 5MG
+553 ;;^UTILITY(U,$J,358.3,17133,0)
+554 ;;=J0202^^58^682^8^^^^1
+555 ;;^UTILITY(U,$J,358.3,17133,1,0)
+556 ;;=^358.31IA^3^2
+557 ;;^UTILITY(U,$J,358.3,17133,1,2,0)
+558 ;;=2^J0202
+559 ;;^UTILITY(U,$J,358.3,17133,1,3,0)
+560 ;;=3^ALEMTUZUMAB 1MG
+561 ;;^UTILITY(U,$J,358.3,17134,0)
+562 ;;=J0596^^58^682^22^^^^1
+563 ;;^UTILITY(U,$J,358.3,17134,1,0)
+564 ;;=^358.31IA^3^2
+565 ;;^UTILITY(U,$J,358.3,17134,1,2,0)
+566 ;;=2^J0596
+567 ;;^UTILITY(U,$J,358.3,17134,1,3,0)
+568 ;;=3^C1 ESTERASE INHIBITOR 10U
+569 ;;^UTILITY(U,$J,358.3,17135,0)
+570 ;;=J0695^^58^682^25^^^^1
+571 ;;^UTILITY(U,$J,358.3,17135,1,0)
+572 ;;=^358.31IA^3^2
+573 ;;^UTILITY(U,$J,358.3,17135,1,2,0)
+574 ;;=2^J0695
+575 ;;^UTILITY(U,$J,358.3,17135,1,3,0)
+576 ;;=3^CEFTOLOZANE 50MG AND TAZOBACTAM 25MG
+577 ;;^UTILITY(U,$J,358.3,17136,0)
+578 ;;=J0714^^58^682^24^^^^1
+579 ;;^UTILITY(U,$J,358.3,17136,1,0)
+580 ;;=^358.31IA^3^2
+581 ;;^UTILITY(U,$J,358.3,17136,1,2,0)
+582 ;;=2^J0714
+583 ;;^UTILITY(U,$J,358.3,17136,1,3,0)
+584 ;;=3^CEFTAZIDIME AND AVIBACTAM 0.5G/0.125G
+585 ;;^UTILITY(U,$J,358.3,17137,0)
+586 ;;=J0875^^58^682^29^^^^1
+587 ;;^UTILITY(U,$J,358.3,17137,1,0)
+588 ;;=^358.31IA^3^2
+589 ;;^UTILITY(U,$J,358.3,17137,1,2,0)
+590 ;;=2^J0875
+591 ;;^UTILITY(U,$J,358.3,17137,1,3,0)
+592 ;;=3^DALBAVANCIN 5MG
+593 ;;^UTILITY(U,$J,358.3,17138,0)
+594 ;;=J1443^^58^682^39^^^^1
+595 ;;^UTILITY(U,$J,358.3,17138,1,0)
+596 ;;=^358.31IA^3^2
+597 ;;^UTILITY(U,$J,358.3,17138,1,2,0)
+598 ;;=2^J1443
+599 ;;^UTILITY(U,$J,358.3,17138,1,3,0)
+600 ;;=3^FERRIC PYROPHOSPHATE CITRIC SOL .01MG
+601 ;;^UTILITY(U,$J,358.3,17139,0)
+602 ;;=J1447^^58^682^101^^^^1
+603 ;;^UTILITY(U,$J,358.3,17139,1,0)
+604 ;;=^358.31IA^3^2
+605 ;;^UTILITY(U,$J,358.3,17139,1,2,0)
+606 ;;=2^J1447
+607 ;;^UTILITY(U,$J,358.3,17139,1,3,0)
+608 ;;=3^TBO-FILGRASTIM 1MCG
+609 ;;^UTILITY(U,$J,358.3,17140,0)
+610 ;;=J1575^^58^682^52^^^^1
+611 ;;^UTILITY(U,$J,358.3,17140,1,0)
+612 ;;=^358.31IA^3^2
+613 ;;^UTILITY(U,$J,358.3,17140,1,2,0)
+614 ;;=2^J1575
+615 ;;^UTILITY(U,$J,358.3,17140,1,3,0)
+616 ;;=3^IMMUNEGLOBULIN/HYALURONIDASE 100MG
+617 ;;^UTILITY(U,$J,358.3,17141,0)
+618 ;;=J1833^^58^682^60^^^^1
+619 ;;^UTILITY(U,$J,358.3,17141,1,0)
+620 ;;=^358.31IA^3^2
+621 ;;^UTILITY(U,$J,358.3,17141,1,2,0)
+622 ;;=2^J1833
+623 ;;^UTILITY(U,$J,358.3,17141,1,3,0)
+624 ;;=3^ISAVUCONAZONIUM 1MG
+625 ;;^UTILITY(U,$J,358.3,17142,0)
+626 ;;=J2407^^58^682^83^^^^1
+627 ;;^UTILITY(U,$J,358.3,17142,1,0)
+628 ;;=^358.31IA^3^2
+629 ;;^UTILITY(U,$J,358.3,17142,1,2,0)
+630 ;;=2^J2407
+631 ;;^UTILITY(U,$J,358.3,17142,1,3,0)
+632 ;;=3^ORITAVANCIN 10MG
+633 ;;^UTILITY(U,$J,358.3,17143,0)
+634 ;;=J2502^^58^682^86^^^^1
+635 ;;^UTILITY(U,$J,358.3,17143,1,0)
+636 ;;=^358.31IA^3^2
+637 ;;^UTILITY(U,$J,358.3,17143,1,2,0)
+638 ;;=2^J2502
+639 ;;^UTILITY(U,$J,358.3,17143,1,3,0)
+640 ;;=3^PASIREOTIDE LONG ACTING 1MG
+641 ;;^UTILITY(U,$J,358.3,17144,0)
+642 ;;=J2547^^58^682^91^^^^1
+643 ;;^UTILITY(U,$J,358.3,17144,1,0)
+644 ;;=^358.31IA^3^2
+645 ;;^UTILITY(U,$J,358.3,17144,1,2,0)
+646 ;;=2^J2547
+647 ;;^UTILITY(U,$J,358.3,17144,1,3,0)
+648 ;;=3^PERAMIVIR 1MG
+649 ;;^UTILITY(U,$J,358.3,17145,0)
+650 ;;=J2860^^58^682^100^^^^1
+651 ;;^UTILITY(U,$J,358.3,17145,1,0)
+652 ;;=^358.31IA^3^2
+653 ;;^UTILITY(U,$J,358.3,17145,1,2,0)
+654 ;;=2^J2860
+655 ;;^UTILITY(U,$J,358.3,17145,1,3,0)
+656 ;;=3^SILTUXIMAB 10MG
+657 ;;^UTILITY(U,$J,358.3,17146,0)
+658 ;;=J7121^^58^682^1^^^^1
+659 ;;^UTILITY(U,$J,358.3,17146,1,0)
+660 ;;=^358.31IA^3^2
+661 ;;^UTILITY(U,$J,358.3,17146,1,2,0)
+662 ;;=2^J7121
+663 ;;^UTILITY(U,$J,358.3,17146,1,3,0)
+664 ;;=3^5% DEXTROSE IN LAC RINGERS UP TO 1000CC
+665 ;;^UTILITY(U,$J,358.3,17147,0)
+666 ;;=J7188^^58^682^37^^^^1
+667 ;;^UTILITY(U,$J,358.3,17147,1,0)
+668 ;;=^358.31IA^3^2
+669 ;;^UTILITY(U,$J,358.3,17147,1,2,0)
+670 ;;=2^J7188
+671 ;;^UTILITY(U,$J,358.3,17147,1,3,0)
+672 ;;=3^FACTOR VIII PER IU
+673 ;;^UTILITY(U,$J,358.3,17148,0)
+674 ;;=J7205^^58^682^36^^^^1
+675 ;;^UTILITY(U,$J,358.3,17148,1,0)
+676 ;;=^358.31IA^3^2
+677 ;;^UTILITY(U,$J,358.3,17148,1,2,0)
+678 ;;=2^J7205