IBDEI072 ; ; 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,17148,1,3,0)
;;=3^FACTOR VIII FC FUSION PROTEIN PER IU
;;^UTILITY(U,$J,358.3,17149,0)
;;=J8655^^58^682^78^^^^1
;;^UTILITY(U,$J,358.3,17149,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17149,1,2,0)
;;=2^J8655
;;^UTILITY(U,$J,358.3,17149,1,3,0)
;;=3^NETUPITANT 300MG AND PALONOSETRON 0.5MG
;;^UTILITY(U,$J,358.3,17150,0)
;;=J9032^^58^682^19^^^^1
;;^UTILITY(U,$J,358.3,17150,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17150,1,2,0)
;;=2^J9032
;;^UTILITY(U,$J,358.3,17150,1,3,0)
;;=3^BELINOSTAT 10MG
;;^UTILITY(U,$J,358.3,17151,0)
;;=J9039^^58^682^21^^^^1
;;^UTILITY(U,$J,358.3,17151,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17151,1,2,0)
;;=2^J9039
;;^UTILITY(U,$J,358.3,17151,1,3,0)
;;=3^BLINATUMOMAB 1MCG
;;^UTILITY(U,$J,358.3,17152,0)
;;=J9299^^58^682^79^^^^1
;;^UTILITY(U,$J,358.3,17152,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17152,1,2,0)
;;=2^J9299
;;^UTILITY(U,$J,358.3,17152,1,3,0)
;;=3^NIVOLUMAB 1MG
;;^UTILITY(U,$J,358.3,17153,0)
;;=J9308^^58^682^93^^^^1
;;^UTILITY(U,$J,358.3,17153,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17153,1,2,0)
;;=2^J9308
;;^UTILITY(U,$J,358.3,17153,1,3,0)
;;=3^RAMUCIRUMAB 5MG
;;^UTILITY(U,$J,358.3,17154,0)
;;=J3301^^58^682^61^^^^1
;;^UTILITY(U,$J,358.3,17154,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17154,1,2,0)
;;=2^J3301
;;^UTILITY(U,$J,358.3,17154,1,3,0)
;;=3^KENALOG 10MG
;;^UTILITY(U,$J,358.3,17155,0)
;;=J3380^^58^682^109^^^^1
;;^UTILITY(U,$J,358.3,17155,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17155,1,2,0)
;;=2^J3380
;;^UTILITY(U,$J,358.3,17155,1,3,0)
;;=3^VEDOLIZUMAB/ENTYVIO 1MG
;;^UTILITY(U,$J,358.3,17156,0)
;;=J7609^^58^682^5^^^^1
;;^UTILITY(U,$J,358.3,17156,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17156,1,2,0)
;;=2^J7609
;;^UTILITY(U,$J,358.3,17156,1,3,0)
;;=3^ALBUTEROL,COMPOUND,UNIT DOSE,1MG
;;^UTILITY(U,$J,358.3,17157,0)
;;=J7610^^58^682^4^^^^1
;;^UTILITY(U,$J,358.3,17157,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17157,1,2,0)
;;=2^J7610
;;^UTILITY(U,$J,358.3,17157,1,3,0)
;;=3^ALBUTEROL,COMPOUND,CONCENTRATE,1MG
;;^UTILITY(U,$J,358.3,17158,0)
;;=J0735^^58^682^27^^^^1
;;^UTILITY(U,$J,358.3,17158,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17158,1,2,0)
;;=2^J0735
;;^UTILITY(U,$J,358.3,17158,1,3,0)
;;=3^CLONIDINE HYDROCHLORIDE 1MG
;;^UTILITY(U,$J,358.3,17159,0)
;;=J1438^^58^682^35^^^^1
;;^UTILITY(U,$J,358.3,17159,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17159,1,2,0)
;;=2^J1438
;;^UTILITY(U,$J,358.3,17159,1,3,0)
;;=3^ETANERCEPT 25MG
;;^UTILITY(U,$J,358.3,17160,0)
;;=J7611^^58^682^6^^^^1
;;^UTILITY(U,$J,358.3,17160,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17160,1,2,0)
;;=2^J7611
;;^UTILITY(U,$J,358.3,17160,1,3,0)
;;=3^ALBUTEROL,NON-COMPOUND,CONCENTRATE,1MG
;;^UTILITY(U,$J,358.3,17161,0)
;;=J7613^^58^682^7^^^^1
;;^UTILITY(U,$J,358.3,17161,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17161,1,2,0)
;;=2^J7613
;;^UTILITY(U,$J,358.3,17161,1,3,0)
;;=3^ALBUTEROL,NON-COMPOUND,UNIT DOSE,1MG
;;^UTILITY(U,$J,358.3,17162,0)
;;=J2680^^58^682^41^^^^1
;;^UTILITY(U,$J,358.3,17162,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17162,1,2,0)
;;=2^J2680
;;^UTILITY(U,$J,358.3,17162,1,3,0)
;;=3^FLUPHENAZINE DECANOATE,UP TO 25MG
;;^UTILITY(U,$J,358.3,17163,0)
;;=J1580^^58^682^47^^^^1
;;^UTILITY(U,$J,358.3,17163,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17163,1,2,0)
;;=2^J1580
;;^UTILITY(U,$J,358.3,17163,1,3,0)
;;=3^GARAMYCIN,GENTAMICIN,UP TO 80MG
;;^UTILITY(U,$J,358.3,17164,0)
;;=J2350^^58^682^80^^^^1
;;^UTILITY(U,$J,358.3,17164,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17164,1,2,0)
;;=2^J2350
;;^UTILITY(U,$J,358.3,17164,1,3,0)
;;=3^OCRELIZUMAB 1MG
;;^UTILITY(U,$J,358.3,17165,0)
;;=J3590^^58^682^105^^^^1
;;^UTILITY(U,$J,358.3,17165,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17165,1,2,0)
;;=2^J3590
;;^UTILITY(U,$J,358.3,17165,1,3,0)
;;=3^UNCLASSIFIED BIOLOGICS
;;^UTILITY(U,$J,358.3,17166,0)
;;=J3490^^58^682^106^^^^1
;;^UTILITY(U,$J,358.3,17166,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17166,1,2,0)
;;=2^J3490
;;^UTILITY(U,$J,358.3,17166,1,3,0)
;;=3^UNCLASSIFIED DRUG
;;^UTILITY(U,$J,358.3,17167,0)
;;=J0135^^58^682^3^^^^1
;;^UTILITY(U,$J,358.3,17167,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17167,1,2,0)
;;=2^J0135
;;^UTILITY(U,$J,358.3,17167,1,3,0)
;;=3^ADALIMUMAB 20MG
;;^UTILITY(U,$J,358.3,17168,0)
;;=J1569^^58^682^45^^^^1
;;^UTILITY(U,$J,358.3,17168,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17168,1,2,0)
;;=2^J1569
;;^UTILITY(U,$J,358.3,17168,1,3,0)
;;=3^GAMMAGARD LIQUID 500MG
;;^UTILITY(U,$J,358.3,17169,0)
;;=J1566^^58^682^51^^^^1
;;^UTILITY(U,$J,358.3,17169,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17169,1,2,0)
;;=2^J1566
;;^UTILITY(U,$J,358.3,17169,1,3,0)
;;=3^IMMUNE GLOBULIN 500MG
;;^UTILITY(U,$J,358.3,17170,0)
;;=J2182^^58^682^69^^^^1
;;^UTILITY(U,$J,358.3,17170,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17170,1,2,0)
;;=2^J2182
;;^UTILITY(U,$J,358.3,17170,1,3,0)
;;=3^MEPOLIZUMAB 1MG
;;^UTILITY(U,$J,358.3,17171,0)
;;=J1568^^58^682^81^^^^1
;;^UTILITY(U,$J,358.3,17171,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17171,1,2,0)
;;=2^J1568
;;^UTILITY(U,$J,358.3,17171,1,3,0)
;;=3^OCTAGAM 500MG
;;^UTILITY(U,$J,358.3,17172,0)
;;=J3357^^58^682^107^^^^1
;;^UTILITY(U,$J,358.3,17172,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17172,1,2,0)
;;=2^J3357
;;^UTILITY(U,$J,358.3,17172,1,3,0)
;;=3^USTEKINUMAB 1MG
;;^UTILITY(U,$J,358.3,17173,0)
;;=J9030^^58^682^18^^^^1
;;^UTILITY(U,$J,358.3,17173,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17173,1,2,0)
;;=2^J9030
;;^UTILITY(U,$J,358.3,17173,1,3,0)
;;=3^BCG LIVE INTRAVESICAL INSTILLATION,1MG
;;^UTILITY(U,$J,358.3,17174,0)
;;=J0897^^58^682^30^^^^1
;;^UTILITY(U,$J,358.3,17174,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17174,1,2,0)
;;=2^J0897
;;^UTILITY(U,$J,358.3,17174,1,3,0)
;;=3^DENOSUMAB 1MG (Prolia)
;;^UTILITY(U,$J,358.3,17175,0)
;;=J0400^^58^682^12^^^^1
;;^UTILITY(U,$J,358.3,17175,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17175,1,2,0)
;;=2^J0400
;;^UTILITY(U,$J,358.3,17175,1,3,0)
;;=3^ARIPIPRAZOLE 0.25MG
;;^UTILITY(U,$J,358.3,17176,0)
;;=J0401^^58^682^14^^^^1
;;^UTILITY(U,$J,358.3,17176,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17176,1,2,0)
;;=2^J0401
;;^UTILITY(U,$J,358.3,17176,1,3,0)
;;=3^ARIPIPRAZOLE,EXT RELEASE,1MG
;;^UTILITY(U,$J,358.3,17177,0)
;;=J1944^^58^682^13^^^^1
;;^UTILITY(U,$J,358.3,17177,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17177,1,2,0)
;;=2^J1944
;;^UTILITY(U,$J,358.3,17177,1,3,0)
;;=3^ARIPIPRAZOLE LAUROXIL 1MG
;;^UTILITY(U,$J,358.3,17178,0)
;;=Q0245^^58^682^17^^^^1
;;^UTILITY(U,$J,358.3,17178,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17178,1,2,0)
;;=2^Q0245
;;^UTILITY(U,$J,358.3,17178,1,3,0)
;;=3^BAMLIANIVIMAB/ETESEVIMA 2100MG
;;^UTILITY(U,$J,358.3,17179,0)
;;=J0485^^58^682^16^^^^1
;;^UTILITY(U,$J,358.3,17179,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17179,1,2,0)
;;=2^J0485
;;^UTILITY(U,$J,358.3,17179,1,3,0)
;;=3^BALATACEPT 1MG
;;^UTILITY(U,$J,358.3,17180,0)
;;=Q5104^^58^682^53^^^^1
;;^UTILITY(U,$J,358.3,17180,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17180,1,2,0)
;;=2^Q5104
;;^UTILITY(U,$J,358.3,17180,1,3,0)
;;=3^INFLEXIMAB-ABDA RENIFLEXIS 100MG
;;^UTILITY(U,$J,358.3,17181,0)
;;=Q0139^^58^682^58^^^^1
;;^UTILITY(U,$J,358.3,17181,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17181,1,2,0)
;;=2^Q0139
;;^UTILITY(U,$J,358.3,17181,1,3,0)
;;=3^IRON FERUMOXYTOL 1MG
;;^UTILITY(U,$J,358.3,17182,0)
;;=J9312^^58^682^98^^^^1
;;^UTILITY(U,$J,358.3,17182,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17182,1,2,0)
;;=2^J9312
;;^UTILITY(U,$J,358.3,17182,1,3,0)
;;=3^RITUXIMAB 10MG
;;^UTILITY(U,$J,358.3,17183,0)
;;=J3241^^58^682^102^^^^1
;;^UTILITY(U,$J,358.3,17183,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17183,1,2,0)
;;=2^J3241
;;^UTILITY(U,$J,358.3,17183,1,3,0)
;;=3^TEPROTUMUMAB-TRBW 10MG
;;^UTILITY(U,$J,358.3,17184,0)
;;=86580^^58^683^12^^^^1
;;^UTILITY(U,$J,358.3,17184,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17184,1,2,0)
;;=2^86580
;;^UTILITY(U,$J,358.3,17184,1,3,0)
;;=3^TB INTRADERMAL TEST
;;^UTILITY(U,$J,358.3,17185,0)
;;=82948^^58^683^5^^^^1
;;^UTILITY(U,$J,358.3,17185,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17185,1,2,0)
;;=2^82948
;;^UTILITY(U,$J,358.3,17185,1,3,0)
;;=3^FINGERSTICK,GLUCOSE
;;^UTILITY(U,$J,358.3,17186,0)
;;=94760^^58^683^4^^^^1
;;^UTILITY(U,$J,358.3,17186,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17186,1,2,0)
;;=2^94760
;;^UTILITY(U,$J,358.3,17186,1,3,0)
;;=3^EAR/PULSE OXIMETRY,SINGLE DETERMINATION
;;^UTILITY(U,$J,358.3,17187,0)
;;=51798^^58^683^1^^^^1
;;^UTILITY(U,$J,358.3,17187,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17187,1,2,0)
;;=2^51798
;;^UTILITY(U,$J,358.3,17187,1,3,0)
;;=3^BLADDER SCAN POST-VOID RESIDUAL
;;^UTILITY(U,$J,358.3,17188,0)
;;=94640^^58^683^8^^^^1
;;^UTILITY(U,$J,358.3,17188,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17188,1,2,0)
;;=2^94640
;;^UTILITY(U,$J,358.3,17188,1,3,0)
;;=3^NEBULIZER-AIRWAY INHAL TREATMENT
;;^UTILITY(U,$J,358.3,17189,0)
;;=96523^^58^683^14^^^^1
;;^UTILITY(U,$J,358.3,17189,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17189,1,2,0)
;;=2^96523
;;^UTILITY(U,$J,358.3,17189,1,3,0)
;;=3^VAD FLUSH
;;^UTILITY(U,$J,358.3,17190,0)
;;=81002^^58^683^13^^^^1
;;^UTILITY(U,$J,358.3,17190,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17190,1,2,0)
;;=2^81002
;;^UTILITY(U,$J,358.3,17190,1,3,0)
;;=3^UA DIPSTICK
;;^UTILITY(U,$J,358.3,17191,0)
;;=36416^^58^683^3^^^^1
;;^UTILITY(U,$J,358.3,17191,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17191,1,2,0)
;;=2^36416
;;^UTILITY(U,$J,358.3,17191,1,3,0)
;;=3^CAPILLARY BLOOD DRAW
;;^UTILITY(U,$J,358.3,17192,0)
;;=82270^^58^683^6^^^^1
;;^UTILITY(U,$J,358.3,17192,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17192,1,2,0)
;;=2^82270
;;^UTILITY(U,$J,358.3,17192,1,3,0)
;;=3^FOBT SLIDE CARDS
;;^UTILITY(U,$J,358.3,17193,0)
;;=36415^^58^683^2^^^^1
;;^UTILITY(U,$J,358.3,17193,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17193,1,2,0)
;;=2^36415
;;^UTILITY(U,$J,358.3,17193,1,3,0)
;;=3^BLOOD DRAW
;;^UTILITY(U,$J,358.3,17194,0)
;;=99211^^58^683^11^^^^1
;;^UTILITY(U,$J,358.3,17194,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17194,1,2,0)
;;=2^99211
;;^UTILITY(U,$J,358.3,17194,1,3,0)
;;=3^SUTURE REMOVAL/DRESSING CHANGE
;;^UTILITY(U,$J,358.3,17195,0)
;;=99195^^58^683^9^^^^1
;;^UTILITY(U,$J,358.3,17195,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17195,1,2,0)
;;=2^99195
;;^UTILITY(U,$J,358.3,17195,1,3,0)
;;=3^PHLEBOTOMY,THERAPEUTIC
;;^UTILITY(U,$J,358.3,17196,0)
;;=69209^^58^683^7^^^^1
;;^UTILITY(U,$J,358.3,17196,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17196,1,2,0)
;;=2^69209
;;^UTILITY(U,$J,358.3,17196,1,3,0)
;;=3^IMPCT CERUMEN REM-IRRIGATION/LAVAGE,UNI
;;^UTILITY(U,$J,358.3,17197,0)
;;=97602^^58^683^10^^^^1
;;^UTILITY(U,$J,358.3,17197,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17197,1,2,0)
;;=2^97602
;;^UTILITY(U,$J,358.3,17197,1,3,0)
;;=3^RMVL DEVITAL TISS NON-SELCT W/O ANES,PER SESSION
;;^UTILITY(U,$J,358.3,17198,0)
;;=95115^^58^684^3^^^^1
;;^UTILITY(U,$J,358.3,17198,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17198,1,2,0)
;;=2^95115
;;^UTILITY(U,$J,358.3,17198,1,3,0)
;;=3^ALLERGY INJ, PTS OWN MED
;;^UTILITY(U,$J,358.3,17199,0)
;;=95117^^58^684^1^^^^1
;;^UTILITY(U,$J,358.3,17199,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17199,1,2,0)
;;=2^95117
;;^UTILITY(U,$J,358.3,17199,1,3,0)
;;=3^ALLERGY INJ 2+, PTS OWN MED
;;^UTILITY(U,$J,358.3,17200,0)
;;=95120^^58^684^4^^^^1
;;^UTILITY(U,$J,358.3,17200,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17200,1,2,0)
;;=2^95120
;;^UTILITY(U,$J,358.3,17200,1,3,0)
;;=3^ALLERGY INJ, WE PROVIDE MED
;;^UTILITY(U,$J,358.3,17201,0)
;;=95125^^58^684^2^^^^1
;;^UTILITY(U,$J,358.3,17201,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17201,1,2,0)
;;=2^95125
;;^UTILITY(U,$J,358.3,17201,1,3,0)
;;=3^ALLERGY INJ 2+, WE PROVIDE MED
;;^UTILITY(U,$J,358.3,17202,0)
;;=96372^^58^685^1^^^^1
;;^UTILITY(U,$J,358.3,17202,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17202,1,2,0)
;;=2^96372
;;^UTILITY(U,$J,358.3,17202,1,3,0)
;;=3^INJECTION ADMIN, SC/IM
;;^UTILITY(U,$J,358.3,17203,0)
;;=90471^^58^686^1^^^^1
;;^UTILITY(U,$J,358.3,17203,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17203,1,2,0)
;;=2^90471
;;^UTILITY(U,$J,358.3,17203,1,3,0)
;;=3^IMMUNIZATION ADMIN,1 INJECTION
;;^UTILITY(U,$J,358.3,17204,0)
;;=90472^^58^686^2^^^^1
;;^UTILITY(U,$J,358.3,17204,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17204,1,2,0)
;;=2^90472
;;^UTILITY(U,$J,358.3,17204,1,3,0)
;;=3^IMMUN ADMIN, EACH ADDITIONAL
;;^UTILITY(U,$J,358.3,17205,0)
;;=51702^^58^687^1^^^^1
;;^UTILITY(U,$J,358.3,17205,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17205,1,2,0)
;;=2^51702
;;^UTILITY(U,$J,358.3,17205,1,3,0)
;;=3^FOLEY CATHETER/SIMPLE
;;^UTILITY(U,$J,358.3,17206,0)
;;=51703^^58^687^2^^^^1
;;^UTILITY(U,$J,358.3,17206,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17206,1,2,0)
;;=2^51703
;;^UTILITY(U,$J,358.3,17206,1,3,0)
;;=3^FOLEY CATHETER/COMPLICATED
;;^UTILITY(U,$J,358.3,17207,0)
;;=51701^^58^687^3^^^^1
;;^UTILITY(U,$J,358.3,17207,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17207,1,2,0)
;;=2^51701
;;^UTILITY(U,$J,358.3,17207,1,3,0)
;;=3^INSERT STRAIGHT CATH
;;^UTILITY(U,$J,358.3,17208,0)
;;=99211^^58^687^4^^^^1
;;^UTILITY(U,$J,358.3,17208,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17208,1,2,0)
;;=2^99211
;;^UTILITY(U,$J,358.3,17208,1,3,0)
;;=3^SUBSEQUENT VISIT(S) FOR REMOVAL
;;^UTILITY(U,$J,358.3,17209,0)
;;=36593^^58^688^3^^^^1
;;^UTILITY(U,$J,358.3,17209,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17209,1,2,0)
;;=2^36593
;;^UTILITY(U,$J,358.3,17209,1,3,0)
;;=3^DECLOT VASCULAR DEVICE
;;^UTILITY(U,$J,358.3,17210,0)
;;=96523^^58^688^2^^^^1
;;^UTILITY(U,$J,358.3,17210,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17210,1,2,0)
;;=2^96523
;;^UTILITY(U,$J,358.3,17210,1,3,0)
;;=3^CATH FLUSH
;;^UTILITY(U,$J,358.3,17211,0)
;;=J1642^^58^688^5^^^^1
;;^UTILITY(U,$J,358.3,17211,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17211,1,2,0)
;;=2^J1642
;;^UTILITY(U,$J,358.3,17211,1,3,0)
;;=3^HEPARIN (FOR FLUSHING),PER 10 UNITS
;;^UTILITY(U,$J,358.3,17212,0)
;;=J7042^^58^688^1^^^^1
;;^UTILITY(U,$J,358.3,17212,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17212,1,2,0)
;;=2^J7042
;;^UTILITY(U,$J,358.3,17212,1,3,0)
;;=3^5% DEXTROSE/NORMAL SALINE
;;^UTILITY(U,$J,358.3,17213,0)
;;=94010^^58^689^1^^^^1
;;^UTILITY(U,$J,358.3,17213,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17213,1,2,0)
;;=2^94010
;;^UTILITY(U,$J,358.3,17213,1,3,0)
;;=3^PFT TEST
;;^UTILITY(U,$J,358.3,17214,0)
;;=93005^^58^690^1^^^^1
;;^UTILITY(U,$J,358.3,17214,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17214,1,2,0)
;;=2^93005
;;^UTILITY(U,$J,358.3,17214,1,3,0)
;;=3^EKG, TRACING ONLY
;;^UTILITY(U,$J,358.3,17215,0)
;;=93225^^58^690^2^^^^1
;;^UTILITY(U,$J,358.3,17215,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17215,1,2,0)
;;=2^93225
;;^UTILITY(U,$J,358.3,17215,1,3,0)
;;=3^HOLTER MONITOR PLACEMENT/REMVL
;;^UTILITY(U,$J,358.3,17216,0)
;;=90732^^58^691^32^^^^1
;;^UTILITY(U,$J,358.3,17216,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17216,1,2,0)
;;=2^90732
;;^UTILITY(U,$J,358.3,17216,1,3,0)
;;=3^PNEUMOVAX 23 (PNEUMOCOCCAL VACCINE)
;;^UTILITY(U,$J,358.3,17217,0)
;;=90658^^58^691^11^^^^1
;;^UTILITY(U,$J,358.3,17217,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17217,1,2,0)
;;=2^90658
;;^UTILITY(U,$J,358.3,17217,1,3,0)
;;=3^FLU VACCINE MULTI DOSE VIAL (AFLURIA IIV3)
;;^UTILITY(U,$J,358.3,17218,0)
;;=90585^^58^691^1^^^^1
;;^UTILITY(U,$J,358.3,17218,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17218,1,2,0)
;;=2^90585
;;^UTILITY(U,$J,358.3,17218,1,3,0)
;;=3^BCG VACCINE, PERCUT
;;^UTILITY(U,$J,358.3,17219,0)
;;=90632^^58^691^18^^^^1
;;^UTILITY(U,$J,358.3,17219,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17219,1,2,0)
;;=2^90632
;;^UTILITY(U,$J,358.3,17219,1,3,0)
;;=3^HEP A VACCINE, ADULT IM
;;^UTILITY(U,$J,358.3,17220,0)
;;=90636^^58^691^19^^^^1
;;^UTILITY(U,$J,358.3,17220,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17220,1,2,0)
;;=2^90636
;;^UTILITY(U,$J,358.3,17220,1,3,0)
;;=3^HEP A/HEP B VACC, ADULT IM
;;^UTILITY(U,$J,358.3,17221,0)
;;=90647^^58^691^22^^^^1
;;^UTILITY(U,$J,358.3,17221,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17221,1,2,0)
;;=2^90647
;;^UTILITY(U,$J,358.3,17221,1,3,0)
;;=3^HIB VACCINE, PRP-OMP, IM
;;^UTILITY(U,$J,358.3,17222,0)
;;=90648^^58^691^23^^^^1
;;^UTILITY(U,$J,358.3,17222,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17222,1,2,0)
;;=2^90648
;;^UTILITY(U,$J,358.3,17222,1,3,0)
;;=3^HIB VACCINE, PRP-T, IM
;;^UTILITY(U,$J,358.3,17223,0)
;;=90649^^58^691^17^^^^1
;;^UTILITY(U,$J,358.3,17223,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17223,1,2,0)
;;=2^90649
;;^UTILITY(U,$J,358.3,17223,1,3,0)
;;=3^H PAPILLOMA VACC 3 DOSE IM
;;^UTILITY(U,$J,358.3,17224,0)
;;=90675^^58^691^36^^^^1
;;^UTILITY(U,$J,358.3,17224,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17224,1,2,0)
;;=2^90675
;;^UTILITY(U,$J,358.3,17224,1,3,0)
;;=3^RABIES VACCINE, IM
;;^UTILITY(U,$J,358.3,17225,0)
;;=90676^^58^691^35^^^^1
;;^UTILITY(U,$J,358.3,17225,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17225,1,2,0)
;;=2^90676
;;^UTILITY(U,$J,358.3,17225,1,3,0)
;;=3^RABIES VACCINE, ID
;;^UTILITY(U,$J,358.3,17226,0)
;;=90680^^58^691^37^^^^1
;;^UTILITY(U,$J,358.3,17226,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17226,1,2,0)
;;=2^90680
;;^UTILITY(U,$J,358.3,17226,1,3,0)
;;=3^ROTOVIRUS VACC 3 DOSE, ORAL
;;^UTILITY(U,$J,358.3,17227,0)
;;=90698^^58^691^4^^^^1
;;^UTILITY(U,$J,358.3,17227,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17227,1,2,0)
;;=2^90698
;;^UTILITY(U,$J,358.3,17227,1,3,0)
;;=3^DTAP-HIB-IP VACCINE, IM
;;^UTILITY(U,$J,358.3,17228,0)
;;=90707^^58^691^28^^^^1
;;^UTILITY(U,$J,358.3,17228,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17228,1,2,0)
;;=2^90707
;;^UTILITY(U,$J,358.3,17228,1,3,0)
;;=3^MMR VACCINE, SC
;;^UTILITY(U,$J,358.3,17229,0)
;;=90710^^58^691^29^^^^1
;;^UTILITY(U,$J,358.3,17229,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17229,1,2,0)
;;=2^90710
;;^UTILITY(U,$J,358.3,17229,1,3,0)
;;=3^MMRV VACCINE, SC
;;^UTILITY(U,$J,358.3,17230,0)
;;=90713^^58^691^33^^^^1
;;^UTILITY(U,$J,358.3,17230,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17230,1,2,0)
;;=2^90713
;;^UTILITY(U,$J,358.3,17230,1,3,0)
;;=3^POLIOVIRUS, IPV, SC/IM
;;^UTILITY(U,$J,358.3,17231,0)
;;=90714^^58^691^38^^^^1
;;^UTILITY(U,$J,358.3,17231,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17231,1,2,0)
;;=2^90714
;;^UTILITY(U,$J,358.3,17231,1,3,0)
;;=3^TD VACCINE NO PRSRV IM
;;^UTILITY(U,$J,358.3,17232,0)
;;=90723^^58^691^3^^^^1
;;^UTILITY(U,$J,358.3,17232,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17232,1,2,0)
;;=2^90723
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI072 19774 printed Apr 09, 2024@21:16 Page 2
IBDEI072 ; ; 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,17148,1,3,0)
+2 ;;=3^FACTOR VIII FC FUSION PROTEIN PER IU
+3 ;;^UTILITY(U,$J,358.3,17149,0)
+4 ;;=J8655^^58^682^78^^^^1
+5 ;;^UTILITY(U,$J,358.3,17149,1,0)
+6 ;;=^358.31IA^3^2
+7 ;;^UTILITY(U,$J,358.3,17149,1,2,0)
+8 ;;=2^J8655
+9 ;;^UTILITY(U,$J,358.3,17149,1,3,0)
+10 ;;=3^NETUPITANT 300MG AND PALONOSETRON 0.5MG
+11 ;;^UTILITY(U,$J,358.3,17150,0)
+12 ;;=J9032^^58^682^19^^^^1
+13 ;;^UTILITY(U,$J,358.3,17150,1,0)
+14 ;;=^358.31IA^3^2
+15 ;;^UTILITY(U,$J,358.3,17150,1,2,0)
+16 ;;=2^J9032
+17 ;;^UTILITY(U,$J,358.3,17150,1,3,0)
+18 ;;=3^BELINOSTAT 10MG
+19 ;;^UTILITY(U,$J,358.3,17151,0)
+20 ;;=J9039^^58^682^21^^^^1
+21 ;;^UTILITY(U,$J,358.3,17151,1,0)
+22 ;;=^358.31IA^3^2
+23 ;;^UTILITY(U,$J,358.3,17151,1,2,0)
+24 ;;=2^J9039
+25 ;;^UTILITY(U,$J,358.3,17151,1,3,0)
+26 ;;=3^BLINATUMOMAB 1MCG
+27 ;;^UTILITY(U,$J,358.3,17152,0)
+28 ;;=J9299^^58^682^79^^^^1
+29 ;;^UTILITY(U,$J,358.3,17152,1,0)
+30 ;;=^358.31IA^3^2
+31 ;;^UTILITY(U,$J,358.3,17152,1,2,0)
+32 ;;=2^J9299
+33 ;;^UTILITY(U,$J,358.3,17152,1,3,0)
+34 ;;=3^NIVOLUMAB 1MG
+35 ;;^UTILITY(U,$J,358.3,17153,0)
+36 ;;=J9308^^58^682^93^^^^1
+37 ;;^UTILITY(U,$J,358.3,17153,1,0)
+38 ;;=^358.31IA^3^2
+39 ;;^UTILITY(U,$J,358.3,17153,1,2,0)
+40 ;;=2^J9308
+41 ;;^UTILITY(U,$J,358.3,17153,1,3,0)
+42 ;;=3^RAMUCIRUMAB 5MG
+43 ;;^UTILITY(U,$J,358.3,17154,0)
+44 ;;=J3301^^58^682^61^^^^1
+45 ;;^UTILITY(U,$J,358.3,17154,1,0)
+46 ;;=^358.31IA^3^2
+47 ;;^UTILITY(U,$J,358.3,17154,1,2,0)
+48 ;;=2^J3301
+49 ;;^UTILITY(U,$J,358.3,17154,1,3,0)
+50 ;;=3^KENALOG 10MG
+51 ;;^UTILITY(U,$J,358.3,17155,0)
+52 ;;=J3380^^58^682^109^^^^1
+53 ;;^UTILITY(U,$J,358.3,17155,1,0)
+54 ;;=^358.31IA^3^2
+55 ;;^UTILITY(U,$J,358.3,17155,1,2,0)
+56 ;;=2^J3380
+57 ;;^UTILITY(U,$J,358.3,17155,1,3,0)
+58 ;;=3^VEDOLIZUMAB/ENTYVIO 1MG
+59 ;;^UTILITY(U,$J,358.3,17156,0)
+60 ;;=J7609^^58^682^5^^^^1
+61 ;;^UTILITY(U,$J,358.3,17156,1,0)
+62 ;;=^358.31IA^3^2
+63 ;;^UTILITY(U,$J,358.3,17156,1,2,0)
+64 ;;=2^J7609
+65 ;;^UTILITY(U,$J,358.3,17156,1,3,0)
+66 ;;=3^ALBUTEROL,COMPOUND,UNIT DOSE,1MG
+67 ;;^UTILITY(U,$J,358.3,17157,0)
+68 ;;=J7610^^58^682^4^^^^1
+69 ;;^UTILITY(U,$J,358.3,17157,1,0)
+70 ;;=^358.31IA^3^2
+71 ;;^UTILITY(U,$J,358.3,17157,1,2,0)
+72 ;;=2^J7610
+73 ;;^UTILITY(U,$J,358.3,17157,1,3,0)
+74 ;;=3^ALBUTEROL,COMPOUND,CONCENTRATE,1MG
+75 ;;^UTILITY(U,$J,358.3,17158,0)
+76 ;;=J0735^^58^682^27^^^^1
+77 ;;^UTILITY(U,$J,358.3,17158,1,0)
+78 ;;=^358.31IA^3^2
+79 ;;^UTILITY(U,$J,358.3,17158,1,2,0)
+80 ;;=2^J0735
+81 ;;^UTILITY(U,$J,358.3,17158,1,3,0)
+82 ;;=3^CLONIDINE HYDROCHLORIDE 1MG
+83 ;;^UTILITY(U,$J,358.3,17159,0)
+84 ;;=J1438^^58^682^35^^^^1
+85 ;;^UTILITY(U,$J,358.3,17159,1,0)
+86 ;;=^358.31IA^3^2
+87 ;;^UTILITY(U,$J,358.3,17159,1,2,0)
+88 ;;=2^J1438
+89 ;;^UTILITY(U,$J,358.3,17159,1,3,0)
+90 ;;=3^ETANERCEPT 25MG
+91 ;;^UTILITY(U,$J,358.3,17160,0)
+92 ;;=J7611^^58^682^6^^^^1
+93 ;;^UTILITY(U,$J,358.3,17160,1,0)
+94 ;;=^358.31IA^3^2
+95 ;;^UTILITY(U,$J,358.3,17160,1,2,0)
+96 ;;=2^J7611
+97 ;;^UTILITY(U,$J,358.3,17160,1,3,0)
+98 ;;=3^ALBUTEROL,NON-COMPOUND,CONCENTRATE,1MG
+99 ;;^UTILITY(U,$J,358.3,17161,0)
+100 ;;=J7613^^58^682^7^^^^1
+101 ;;^UTILITY(U,$J,358.3,17161,1,0)
+102 ;;=^358.31IA^3^2
+103 ;;^UTILITY(U,$J,358.3,17161,1,2,0)
+104 ;;=2^J7613
+105 ;;^UTILITY(U,$J,358.3,17161,1,3,0)
+106 ;;=3^ALBUTEROL,NON-COMPOUND,UNIT DOSE,1MG
+107 ;;^UTILITY(U,$J,358.3,17162,0)
+108 ;;=J2680^^58^682^41^^^^1
+109 ;;^UTILITY(U,$J,358.3,17162,1,0)
+110 ;;=^358.31IA^3^2
+111 ;;^UTILITY(U,$J,358.3,17162,1,2,0)
+112 ;;=2^J2680
+113 ;;^UTILITY(U,$J,358.3,17162,1,3,0)
+114 ;;=3^FLUPHENAZINE DECANOATE,UP TO 25MG
+115 ;;^UTILITY(U,$J,358.3,17163,0)
+116 ;;=J1580^^58^682^47^^^^1
+117 ;;^UTILITY(U,$J,358.3,17163,1,0)
+118 ;;=^358.31IA^3^2
+119 ;;^UTILITY(U,$J,358.3,17163,1,2,0)
+120 ;;=2^J1580
+121 ;;^UTILITY(U,$J,358.3,17163,1,3,0)
+122 ;;=3^GARAMYCIN,GENTAMICIN,UP TO 80MG
+123 ;;^UTILITY(U,$J,358.3,17164,0)
+124 ;;=J2350^^58^682^80^^^^1
+125 ;;^UTILITY(U,$J,358.3,17164,1,0)
+126 ;;=^358.31IA^3^2
+127 ;;^UTILITY(U,$J,358.3,17164,1,2,0)
+128 ;;=2^J2350
+129 ;;^UTILITY(U,$J,358.3,17164,1,3,0)
+130 ;;=3^OCRELIZUMAB 1MG
+131 ;;^UTILITY(U,$J,358.3,17165,0)
+132 ;;=J3590^^58^682^105^^^^1
+133 ;;^UTILITY(U,$J,358.3,17165,1,0)
+134 ;;=^358.31IA^3^2
+135 ;;^UTILITY(U,$J,358.3,17165,1,2,0)
+136 ;;=2^J3590
+137 ;;^UTILITY(U,$J,358.3,17165,1,3,0)
+138 ;;=3^UNCLASSIFIED BIOLOGICS
+139 ;;^UTILITY(U,$J,358.3,17166,0)
+140 ;;=J3490^^58^682^106^^^^1
+141 ;;^UTILITY(U,$J,358.3,17166,1,0)
+142 ;;=^358.31IA^3^2
+143 ;;^UTILITY(U,$J,358.3,17166,1,2,0)
+144 ;;=2^J3490
+145 ;;^UTILITY(U,$J,358.3,17166,1,3,0)
+146 ;;=3^UNCLASSIFIED DRUG
+147 ;;^UTILITY(U,$J,358.3,17167,0)
+148 ;;=J0135^^58^682^3^^^^1
+149 ;;^UTILITY(U,$J,358.3,17167,1,0)
+150 ;;=^358.31IA^3^2
+151 ;;^UTILITY(U,$J,358.3,17167,1,2,0)
+152 ;;=2^J0135
+153 ;;^UTILITY(U,$J,358.3,17167,1,3,0)
+154 ;;=3^ADALIMUMAB 20MG
+155 ;;^UTILITY(U,$J,358.3,17168,0)
+156 ;;=J1569^^58^682^45^^^^1
+157 ;;^UTILITY(U,$J,358.3,17168,1,0)
+158 ;;=^358.31IA^3^2
+159 ;;^UTILITY(U,$J,358.3,17168,1,2,0)
+160 ;;=2^J1569
+161 ;;^UTILITY(U,$J,358.3,17168,1,3,0)
+162 ;;=3^GAMMAGARD LIQUID 500MG
+163 ;;^UTILITY(U,$J,358.3,17169,0)
+164 ;;=J1566^^58^682^51^^^^1
+165 ;;^UTILITY(U,$J,358.3,17169,1,0)
+166 ;;=^358.31IA^3^2
+167 ;;^UTILITY(U,$J,358.3,17169,1,2,0)
+168 ;;=2^J1566
+169 ;;^UTILITY(U,$J,358.3,17169,1,3,0)
+170 ;;=3^IMMUNE GLOBULIN 500MG
+171 ;;^UTILITY(U,$J,358.3,17170,0)
+172 ;;=J2182^^58^682^69^^^^1
+173 ;;^UTILITY(U,$J,358.3,17170,1,0)
+174 ;;=^358.31IA^3^2
+175 ;;^UTILITY(U,$J,358.3,17170,1,2,0)
+176 ;;=2^J2182
+177 ;;^UTILITY(U,$J,358.3,17170,1,3,0)
+178 ;;=3^MEPOLIZUMAB 1MG
+179 ;;^UTILITY(U,$J,358.3,17171,0)
+180 ;;=J1568^^58^682^81^^^^1
+181 ;;^UTILITY(U,$J,358.3,17171,1,0)
+182 ;;=^358.31IA^3^2
+183 ;;^UTILITY(U,$J,358.3,17171,1,2,0)
+184 ;;=2^J1568
+185 ;;^UTILITY(U,$J,358.3,17171,1,3,0)
+186 ;;=3^OCTAGAM 500MG
+187 ;;^UTILITY(U,$J,358.3,17172,0)
+188 ;;=J3357^^58^682^107^^^^1
+189 ;;^UTILITY(U,$J,358.3,17172,1,0)
+190 ;;=^358.31IA^3^2
+191 ;;^UTILITY(U,$J,358.3,17172,1,2,0)
+192 ;;=2^J3357
+193 ;;^UTILITY(U,$J,358.3,17172,1,3,0)
+194 ;;=3^USTEKINUMAB 1MG
+195 ;;^UTILITY(U,$J,358.3,17173,0)
+196 ;;=J9030^^58^682^18^^^^1
+197 ;;^UTILITY(U,$J,358.3,17173,1,0)
+198 ;;=^358.31IA^3^2
+199 ;;^UTILITY(U,$J,358.3,17173,1,2,0)
+200 ;;=2^J9030
+201 ;;^UTILITY(U,$J,358.3,17173,1,3,0)
+202 ;;=3^BCG LIVE INTRAVESICAL INSTILLATION,1MG
+203 ;;^UTILITY(U,$J,358.3,17174,0)
+204 ;;=J0897^^58^682^30^^^^1
+205 ;;^UTILITY(U,$J,358.3,17174,1,0)
+206 ;;=^358.31IA^3^2
+207 ;;^UTILITY(U,$J,358.3,17174,1,2,0)
+208 ;;=2^J0897
+209 ;;^UTILITY(U,$J,358.3,17174,1,3,0)
+210 ;;=3^DENOSUMAB 1MG (Prolia)
+211 ;;^UTILITY(U,$J,358.3,17175,0)
+212 ;;=J0400^^58^682^12^^^^1
+213 ;;^UTILITY(U,$J,358.3,17175,1,0)
+214 ;;=^358.31IA^3^2
+215 ;;^UTILITY(U,$J,358.3,17175,1,2,0)
+216 ;;=2^J0400
+217 ;;^UTILITY(U,$J,358.3,17175,1,3,0)
+218 ;;=3^ARIPIPRAZOLE 0.25MG
+219 ;;^UTILITY(U,$J,358.3,17176,0)
+220 ;;=J0401^^58^682^14^^^^1
+221 ;;^UTILITY(U,$J,358.3,17176,1,0)
+222 ;;=^358.31IA^3^2
+223 ;;^UTILITY(U,$J,358.3,17176,1,2,0)
+224 ;;=2^J0401
+225 ;;^UTILITY(U,$J,358.3,17176,1,3,0)
+226 ;;=3^ARIPIPRAZOLE,EXT RELEASE,1MG
+227 ;;^UTILITY(U,$J,358.3,17177,0)
+228 ;;=J1944^^58^682^13^^^^1
+229 ;;^UTILITY(U,$J,358.3,17177,1,0)
+230 ;;=^358.31IA^3^2
+231 ;;^UTILITY(U,$J,358.3,17177,1,2,0)
+232 ;;=2^J1944
+233 ;;^UTILITY(U,$J,358.3,17177,1,3,0)
+234 ;;=3^ARIPIPRAZOLE LAUROXIL 1MG
+235 ;;^UTILITY(U,$J,358.3,17178,0)
+236 ;;=Q0245^^58^682^17^^^^1
+237 ;;^UTILITY(U,$J,358.3,17178,1,0)
+238 ;;=^358.31IA^3^2
+239 ;;^UTILITY(U,$J,358.3,17178,1,2,0)
+240 ;;=2^Q0245
+241 ;;^UTILITY(U,$J,358.3,17178,1,3,0)
+242 ;;=3^BAMLIANIVIMAB/ETESEVIMA 2100MG
+243 ;;^UTILITY(U,$J,358.3,17179,0)
+244 ;;=J0485^^58^682^16^^^^1
+245 ;;^UTILITY(U,$J,358.3,17179,1,0)
+246 ;;=^358.31IA^3^2
+247 ;;^UTILITY(U,$J,358.3,17179,1,2,0)
+248 ;;=2^J0485
+249 ;;^UTILITY(U,$J,358.3,17179,1,3,0)
+250 ;;=3^BALATACEPT 1MG
+251 ;;^UTILITY(U,$J,358.3,17180,0)
+252 ;;=Q5104^^58^682^53^^^^1
+253 ;;^UTILITY(U,$J,358.3,17180,1,0)
+254 ;;=^358.31IA^3^2
+255 ;;^UTILITY(U,$J,358.3,17180,1,2,0)
+256 ;;=2^Q5104
+257 ;;^UTILITY(U,$J,358.3,17180,1,3,0)
+258 ;;=3^INFLEXIMAB-ABDA RENIFLEXIS 100MG
+259 ;;^UTILITY(U,$J,358.3,17181,0)
+260 ;;=Q0139^^58^682^58^^^^1
+261 ;;^UTILITY(U,$J,358.3,17181,1,0)
+262 ;;=^358.31IA^3^2
+263 ;;^UTILITY(U,$J,358.3,17181,1,2,0)
+264 ;;=2^Q0139
+265 ;;^UTILITY(U,$J,358.3,17181,1,3,0)
+266 ;;=3^IRON FERUMOXYTOL 1MG
+267 ;;^UTILITY(U,$J,358.3,17182,0)
+268 ;;=J9312^^58^682^98^^^^1
+269 ;;^UTILITY(U,$J,358.3,17182,1,0)
+270 ;;=^358.31IA^3^2
+271 ;;^UTILITY(U,$J,358.3,17182,1,2,0)
+272 ;;=2^J9312
+273 ;;^UTILITY(U,$J,358.3,17182,1,3,0)
+274 ;;=3^RITUXIMAB 10MG
+275 ;;^UTILITY(U,$J,358.3,17183,0)
+276 ;;=J3241^^58^682^102^^^^1
+277 ;;^UTILITY(U,$J,358.3,17183,1,0)
+278 ;;=^358.31IA^3^2
+279 ;;^UTILITY(U,$J,358.3,17183,1,2,0)
+280 ;;=2^J3241
+281 ;;^UTILITY(U,$J,358.3,17183,1,3,0)
+282 ;;=3^TEPROTUMUMAB-TRBW 10MG
+283 ;;^UTILITY(U,$J,358.3,17184,0)
+284 ;;=86580^^58^683^12^^^^1
+285 ;;^UTILITY(U,$J,358.3,17184,1,0)
+286 ;;=^358.31IA^3^2
+287 ;;^UTILITY(U,$J,358.3,17184,1,2,0)
+288 ;;=2^86580
+289 ;;^UTILITY(U,$J,358.3,17184,1,3,0)
+290 ;;=3^TB INTRADERMAL TEST
+291 ;;^UTILITY(U,$J,358.3,17185,0)
+292 ;;=82948^^58^683^5^^^^1
+293 ;;^UTILITY(U,$J,358.3,17185,1,0)
+294 ;;=^358.31IA^3^2
+295 ;;^UTILITY(U,$J,358.3,17185,1,2,0)
+296 ;;=2^82948
+297 ;;^UTILITY(U,$J,358.3,17185,1,3,0)
+298 ;;=3^FINGERSTICK,GLUCOSE
+299 ;;^UTILITY(U,$J,358.3,17186,0)
+300 ;;=94760^^58^683^4^^^^1
+301 ;;^UTILITY(U,$J,358.3,17186,1,0)
+302 ;;=^358.31IA^3^2
+303 ;;^UTILITY(U,$J,358.3,17186,1,2,0)
+304 ;;=2^94760
+305 ;;^UTILITY(U,$J,358.3,17186,1,3,0)
+306 ;;=3^EAR/PULSE OXIMETRY,SINGLE DETERMINATION
+307 ;;^UTILITY(U,$J,358.3,17187,0)
+308 ;;=51798^^58^683^1^^^^1
+309 ;;^UTILITY(U,$J,358.3,17187,1,0)
+310 ;;=^358.31IA^3^2
+311 ;;^UTILITY(U,$J,358.3,17187,1,2,0)
+312 ;;=2^51798
+313 ;;^UTILITY(U,$J,358.3,17187,1,3,0)
+314 ;;=3^BLADDER SCAN POST-VOID RESIDUAL
+315 ;;^UTILITY(U,$J,358.3,17188,0)
+316 ;;=94640^^58^683^8^^^^1
+317 ;;^UTILITY(U,$J,358.3,17188,1,0)
+318 ;;=^358.31IA^3^2
+319 ;;^UTILITY(U,$J,358.3,17188,1,2,0)
+320 ;;=2^94640
+321 ;;^UTILITY(U,$J,358.3,17188,1,3,0)
+322 ;;=3^NEBULIZER-AIRWAY INHAL TREATMENT
+323 ;;^UTILITY(U,$J,358.3,17189,0)
+324 ;;=96523^^58^683^14^^^^1
+325 ;;^UTILITY(U,$J,358.3,17189,1,0)
+326 ;;=^358.31IA^3^2
+327 ;;^UTILITY(U,$J,358.3,17189,1,2,0)
+328 ;;=2^96523
+329 ;;^UTILITY(U,$J,358.3,17189,1,3,0)
+330 ;;=3^VAD FLUSH
+331 ;;^UTILITY(U,$J,358.3,17190,0)
+332 ;;=81002^^58^683^13^^^^1
+333 ;;^UTILITY(U,$J,358.3,17190,1,0)
+334 ;;=^358.31IA^3^2
+335 ;;^UTILITY(U,$J,358.3,17190,1,2,0)
+336 ;;=2^81002
+337 ;;^UTILITY(U,$J,358.3,17190,1,3,0)
+338 ;;=3^UA DIPSTICK
+339 ;;^UTILITY(U,$J,358.3,17191,0)
+340 ;;=36416^^58^683^3^^^^1
+341 ;;^UTILITY(U,$J,358.3,17191,1,0)
+342 ;;=^358.31IA^3^2
+343 ;;^UTILITY(U,$J,358.3,17191,1,2,0)
+344 ;;=2^36416
+345 ;;^UTILITY(U,$J,358.3,17191,1,3,0)
+346 ;;=3^CAPILLARY BLOOD DRAW
+347 ;;^UTILITY(U,$J,358.3,17192,0)
+348 ;;=82270^^58^683^6^^^^1
+349 ;;^UTILITY(U,$J,358.3,17192,1,0)
+350 ;;=^358.31IA^3^2
+351 ;;^UTILITY(U,$J,358.3,17192,1,2,0)
+352 ;;=2^82270
+353 ;;^UTILITY(U,$J,358.3,17192,1,3,0)
+354 ;;=3^FOBT SLIDE CARDS
+355 ;;^UTILITY(U,$J,358.3,17193,0)
+356 ;;=36415^^58^683^2^^^^1
+357 ;;^UTILITY(U,$J,358.3,17193,1,0)
+358 ;;=^358.31IA^3^2
+359 ;;^UTILITY(U,$J,358.3,17193,1,2,0)
+360 ;;=2^36415
+361 ;;^UTILITY(U,$J,358.3,17193,1,3,0)
+362 ;;=3^BLOOD DRAW
+363 ;;^UTILITY(U,$J,358.3,17194,0)
+364 ;;=99211^^58^683^11^^^^1
+365 ;;^UTILITY(U,$J,358.3,17194,1,0)
+366 ;;=^358.31IA^3^2
+367 ;;^UTILITY(U,$J,358.3,17194,1,2,0)
+368 ;;=2^99211
+369 ;;^UTILITY(U,$J,358.3,17194,1,3,0)
+370 ;;=3^SUTURE REMOVAL/DRESSING CHANGE
+371 ;;^UTILITY(U,$J,358.3,17195,0)
+372 ;;=99195^^58^683^9^^^^1
+373 ;;^UTILITY(U,$J,358.3,17195,1,0)
+374 ;;=^358.31IA^3^2
+375 ;;^UTILITY(U,$J,358.3,17195,1,2,0)
+376 ;;=2^99195
+377 ;;^UTILITY(U,$J,358.3,17195,1,3,0)
+378 ;;=3^PHLEBOTOMY,THERAPEUTIC
+379 ;;^UTILITY(U,$J,358.3,17196,0)
+380 ;;=69209^^58^683^7^^^^1
+381 ;;^UTILITY(U,$J,358.3,17196,1,0)
+382 ;;=^358.31IA^3^2
+383 ;;^UTILITY(U,$J,358.3,17196,1,2,0)
+384 ;;=2^69209
+385 ;;^UTILITY(U,$J,358.3,17196,1,3,0)
+386 ;;=3^IMPCT CERUMEN REM-IRRIGATION/LAVAGE,UNI
+387 ;;^UTILITY(U,$J,358.3,17197,0)
+388 ;;=97602^^58^683^10^^^^1
+389 ;;^UTILITY(U,$J,358.3,17197,1,0)
+390 ;;=^358.31IA^3^2
+391 ;;^UTILITY(U,$J,358.3,17197,1,2,0)
+392 ;;=2^97602
+393 ;;^UTILITY(U,$J,358.3,17197,1,3,0)
+394 ;;=3^RMVL DEVITAL TISS NON-SELCT W/O ANES,PER SESSION
+395 ;;^UTILITY(U,$J,358.3,17198,0)
+396 ;;=95115^^58^684^3^^^^1
+397 ;;^UTILITY(U,$J,358.3,17198,1,0)
+398 ;;=^358.31IA^3^2
+399 ;;^UTILITY(U,$J,358.3,17198,1,2,0)
+400 ;;=2^95115
+401 ;;^UTILITY(U,$J,358.3,17198,1,3,0)
+402 ;;=3^ALLERGY INJ, PTS OWN MED
+403 ;;^UTILITY(U,$J,358.3,17199,0)
+404 ;;=95117^^58^684^1^^^^1
+405 ;;^UTILITY(U,$J,358.3,17199,1,0)
+406 ;;=^358.31IA^3^2
+407 ;;^UTILITY(U,$J,358.3,17199,1,2,0)
+408 ;;=2^95117
+409 ;;^UTILITY(U,$J,358.3,17199,1,3,0)
+410 ;;=3^ALLERGY INJ 2+, PTS OWN MED
+411 ;;^UTILITY(U,$J,358.3,17200,0)
+412 ;;=95120^^58^684^4^^^^1
+413 ;;^UTILITY(U,$J,358.3,17200,1,0)
+414 ;;=^358.31IA^3^2
+415 ;;^UTILITY(U,$J,358.3,17200,1,2,0)
+416 ;;=2^95120
+417 ;;^UTILITY(U,$J,358.3,17200,1,3,0)
+418 ;;=3^ALLERGY INJ, WE PROVIDE MED
+419 ;;^UTILITY(U,$J,358.3,17201,0)
+420 ;;=95125^^58^684^2^^^^1
+421 ;;^UTILITY(U,$J,358.3,17201,1,0)
+422 ;;=^358.31IA^3^2
+423 ;;^UTILITY(U,$J,358.3,17201,1,2,0)
+424 ;;=2^95125
+425 ;;^UTILITY(U,$J,358.3,17201,1,3,0)
+426 ;;=3^ALLERGY INJ 2+, WE PROVIDE MED
+427 ;;^UTILITY(U,$J,358.3,17202,0)
+428 ;;=96372^^58^685^1^^^^1
+429 ;;^UTILITY(U,$J,358.3,17202,1,0)
+430 ;;=^358.31IA^3^2
+431 ;;^UTILITY(U,$J,358.3,17202,1,2,0)
+432 ;;=2^96372
+433 ;;^UTILITY(U,$J,358.3,17202,1,3,0)
+434 ;;=3^INJECTION ADMIN, SC/IM
+435 ;;^UTILITY(U,$J,358.3,17203,0)
+436 ;;=90471^^58^686^1^^^^1
+437 ;;^UTILITY(U,$J,358.3,17203,1,0)
+438 ;;=^358.31IA^3^2
+439 ;;^UTILITY(U,$J,358.3,17203,1,2,0)
+440 ;;=2^90471
+441 ;;^UTILITY(U,$J,358.3,17203,1,3,0)
+442 ;;=3^IMMUNIZATION ADMIN,1 INJECTION
+443 ;;^UTILITY(U,$J,358.3,17204,0)
+444 ;;=90472^^58^686^2^^^^1
+445 ;;^UTILITY(U,$J,358.3,17204,1,0)
+446 ;;=^358.31IA^3^2
+447 ;;^UTILITY(U,$J,358.3,17204,1,2,0)
+448 ;;=2^90472
+449 ;;^UTILITY(U,$J,358.3,17204,1,3,0)
+450 ;;=3^IMMUN ADMIN, EACH ADDITIONAL
+451 ;;^UTILITY(U,$J,358.3,17205,0)
+452 ;;=51702^^58^687^1^^^^1
+453 ;;^UTILITY(U,$J,358.3,17205,1,0)
+454 ;;=^358.31IA^3^2
+455 ;;^UTILITY(U,$J,358.3,17205,1,2,0)
+456 ;;=2^51702
+457 ;;^UTILITY(U,$J,358.3,17205,1,3,0)
+458 ;;=3^FOLEY CATHETER/SIMPLE
+459 ;;^UTILITY(U,$J,358.3,17206,0)
+460 ;;=51703^^58^687^2^^^^1
+461 ;;^UTILITY(U,$J,358.3,17206,1,0)
+462 ;;=^358.31IA^3^2
+463 ;;^UTILITY(U,$J,358.3,17206,1,2,0)
+464 ;;=2^51703
+465 ;;^UTILITY(U,$J,358.3,17206,1,3,0)
+466 ;;=3^FOLEY CATHETER/COMPLICATED
+467 ;;^UTILITY(U,$J,358.3,17207,0)
+468 ;;=51701^^58^687^3^^^^1
+469 ;;^UTILITY(U,$J,358.3,17207,1,0)
+470 ;;=^358.31IA^3^2
+471 ;;^UTILITY(U,$J,358.3,17207,1,2,0)
+472 ;;=2^51701
+473 ;;^UTILITY(U,$J,358.3,17207,1,3,0)
+474 ;;=3^INSERT STRAIGHT CATH
+475 ;;^UTILITY(U,$J,358.3,17208,0)
+476 ;;=99211^^58^687^4^^^^1
+477 ;;^UTILITY(U,$J,358.3,17208,1,0)
+478 ;;=^358.31IA^3^2
+479 ;;^UTILITY(U,$J,358.3,17208,1,2,0)
+480 ;;=2^99211
+481 ;;^UTILITY(U,$J,358.3,17208,1,3,0)
+482 ;;=3^SUBSEQUENT VISIT(S) FOR REMOVAL
+483 ;;^UTILITY(U,$J,358.3,17209,0)
+484 ;;=36593^^58^688^3^^^^1
+485 ;;^UTILITY(U,$J,358.3,17209,1,0)
+486 ;;=^358.31IA^3^2
+487 ;;^UTILITY(U,$J,358.3,17209,1,2,0)
+488 ;;=2^36593
+489 ;;^UTILITY(U,$J,358.3,17209,1,3,0)
+490 ;;=3^DECLOT VASCULAR DEVICE
+491 ;;^UTILITY(U,$J,358.3,17210,0)
+492 ;;=96523^^58^688^2^^^^1
+493 ;;^UTILITY(U,$J,358.3,17210,1,0)
+494 ;;=^358.31IA^3^2
+495 ;;^UTILITY(U,$J,358.3,17210,1,2,0)
+496 ;;=2^96523
+497 ;;^UTILITY(U,$J,358.3,17210,1,3,0)
+498 ;;=3^CATH FLUSH
+499 ;;^UTILITY(U,$J,358.3,17211,0)
+500 ;;=J1642^^58^688^5^^^^1
+501 ;;^UTILITY(U,$J,358.3,17211,1,0)
+502 ;;=^358.31IA^3^2
+503 ;;^UTILITY(U,$J,358.3,17211,1,2,0)
+504 ;;=2^J1642
+505 ;;^UTILITY(U,$J,358.3,17211,1,3,0)
+506 ;;=3^HEPARIN (FOR FLUSHING),PER 10 UNITS
+507 ;;^UTILITY(U,$J,358.3,17212,0)
+508 ;;=J7042^^58^688^1^^^^1
+509 ;;^UTILITY(U,$J,358.3,17212,1,0)
+510 ;;=^358.31IA^3^2
+511 ;;^UTILITY(U,$J,358.3,17212,1,2,0)
+512 ;;=2^J7042
+513 ;;^UTILITY(U,$J,358.3,17212,1,3,0)
+514 ;;=3^5% DEXTROSE/NORMAL SALINE
+515 ;;^UTILITY(U,$J,358.3,17213,0)
+516 ;;=94010^^58^689^1^^^^1
+517 ;;^UTILITY(U,$J,358.3,17213,1,0)
+518 ;;=^358.31IA^3^2
+519 ;;^UTILITY(U,$J,358.3,17213,1,2,0)
+520 ;;=2^94010
+521 ;;^UTILITY(U,$J,358.3,17213,1,3,0)
+522 ;;=3^PFT TEST
+523 ;;^UTILITY(U,$J,358.3,17214,0)
+524 ;;=93005^^58^690^1^^^^1
+525 ;;^UTILITY(U,$J,358.3,17214,1,0)
+526 ;;=^358.31IA^3^2
+527 ;;^UTILITY(U,$J,358.3,17214,1,2,0)
+528 ;;=2^93005
+529 ;;^UTILITY(U,$J,358.3,17214,1,3,0)
+530 ;;=3^EKG, TRACING ONLY
+531 ;;^UTILITY(U,$J,358.3,17215,0)
+532 ;;=93225^^58^690^2^^^^1
+533 ;;^UTILITY(U,$J,358.3,17215,1,0)
+534 ;;=^358.31IA^3^2
+535 ;;^UTILITY(U,$J,358.3,17215,1,2,0)
+536 ;;=2^93225
+537 ;;^UTILITY(U,$J,358.3,17215,1,3,0)
+538 ;;=3^HOLTER MONITOR PLACEMENT/REMVL
+539 ;;^UTILITY(U,$J,358.3,17216,0)
+540 ;;=90732^^58^691^32^^^^1
+541 ;;^UTILITY(U,$J,358.3,17216,1,0)
+542 ;;=^358.31IA^3^2
+543 ;;^UTILITY(U,$J,358.3,17216,1,2,0)
+544 ;;=2^90732
+545 ;;^UTILITY(U,$J,358.3,17216,1,3,0)
+546 ;;=3^PNEUMOVAX 23 (PNEUMOCOCCAL VACCINE)
+547 ;;^UTILITY(U,$J,358.3,17217,0)
+548 ;;=90658^^58^691^11^^^^1
+549 ;;^UTILITY(U,$J,358.3,17217,1,0)
+550 ;;=^358.31IA^3^2
+551 ;;^UTILITY(U,$J,358.3,17217,1,2,0)
+552 ;;=2^90658
+553 ;;^UTILITY(U,$J,358.3,17217,1,3,0)
+554 ;;=3^FLU VACCINE MULTI DOSE VIAL (AFLURIA IIV3)
+555 ;;^UTILITY(U,$J,358.3,17218,0)
+556 ;;=90585^^58^691^1^^^^1
+557 ;;^UTILITY(U,$J,358.3,17218,1,0)
+558 ;;=^358.31IA^3^2
+559 ;;^UTILITY(U,$J,358.3,17218,1,2,0)
+560 ;;=2^90585
+561 ;;^UTILITY(U,$J,358.3,17218,1,3,0)
+562 ;;=3^BCG VACCINE, PERCUT
+563 ;;^UTILITY(U,$J,358.3,17219,0)
+564 ;;=90632^^58^691^18^^^^1
+565 ;;^UTILITY(U,$J,358.3,17219,1,0)
+566 ;;=^358.31IA^3^2
+567 ;;^UTILITY(U,$J,358.3,17219,1,2,0)
+568 ;;=2^90632
+569 ;;^UTILITY(U,$J,358.3,17219,1,3,0)
+570 ;;=3^HEP A VACCINE, ADULT IM
+571 ;;^UTILITY(U,$J,358.3,17220,0)
+572 ;;=90636^^58^691^19^^^^1
+573 ;;^UTILITY(U,$J,358.3,17220,1,0)
+574 ;;=^358.31IA^3^2
+575 ;;^UTILITY(U,$J,358.3,17220,1,2,0)
+576 ;;=2^90636
+577 ;;^UTILITY(U,$J,358.3,17220,1,3,0)
+578 ;;=3^HEP A/HEP B VACC, ADULT IM
+579 ;;^UTILITY(U,$J,358.3,17221,0)
+580 ;;=90647^^58^691^22^^^^1
+581 ;;^UTILITY(U,$J,358.3,17221,1,0)
+582 ;;=^358.31IA^3^2
+583 ;;^UTILITY(U,$J,358.3,17221,1,2,0)
+584 ;;=2^90647
+585 ;;^UTILITY(U,$J,358.3,17221,1,3,0)
+586 ;;=3^HIB VACCINE, PRP-OMP, IM
+587 ;;^UTILITY(U,$J,358.3,17222,0)
+588 ;;=90648^^58^691^23^^^^1
+589 ;;^UTILITY(U,$J,358.3,17222,1,0)
+590 ;;=^358.31IA^3^2
+591 ;;^UTILITY(U,$J,358.3,17222,1,2,0)
+592 ;;=2^90648
+593 ;;^UTILITY(U,$J,358.3,17222,1,3,0)
+594 ;;=3^HIB VACCINE, PRP-T, IM
+595 ;;^UTILITY(U,$J,358.3,17223,0)
+596 ;;=90649^^58^691^17^^^^1
+597 ;;^UTILITY(U,$J,358.3,17223,1,0)
+598 ;;=^358.31IA^3^2
+599 ;;^UTILITY(U,$J,358.3,17223,1,2,0)
+600 ;;=2^90649
+601 ;;^UTILITY(U,$J,358.3,17223,1,3,0)
+602 ;;=3^H PAPILLOMA VACC 3 DOSE IM
+603 ;;^UTILITY(U,$J,358.3,17224,0)
+604 ;;=90675^^58^691^36^^^^1
+605 ;;^UTILITY(U,$J,358.3,17224,1,0)
+606 ;;=^358.31IA^3^2
+607 ;;^UTILITY(U,$J,358.3,17224,1,2,0)
+608 ;;=2^90675
+609 ;;^UTILITY(U,$J,358.3,17224,1,3,0)
+610 ;;=3^RABIES VACCINE, IM
+611 ;;^UTILITY(U,$J,358.3,17225,0)
+612 ;;=90676^^58^691^35^^^^1
+613 ;;^UTILITY(U,$J,358.3,17225,1,0)
+614 ;;=^358.31IA^3^2
+615 ;;^UTILITY(U,$J,358.3,17225,1,2,0)
+616 ;;=2^90676
+617 ;;^UTILITY(U,$J,358.3,17225,1,3,0)
+618 ;;=3^RABIES VACCINE, ID
+619 ;;^UTILITY(U,$J,358.3,17226,0)
+620 ;;=90680^^58^691^37^^^^1
+621 ;;^UTILITY(U,$J,358.3,17226,1,0)
+622 ;;=^358.31IA^3^2
+623 ;;^UTILITY(U,$J,358.3,17226,1,2,0)
+624 ;;=2^90680
+625 ;;^UTILITY(U,$J,358.3,17226,1,3,0)
+626 ;;=3^ROTOVIRUS VACC 3 DOSE, ORAL
+627 ;;^UTILITY(U,$J,358.3,17227,0)
+628 ;;=90698^^58^691^4^^^^1
+629 ;;^UTILITY(U,$J,358.3,17227,1,0)
+630 ;;=^358.31IA^3^2
+631 ;;^UTILITY(U,$J,358.3,17227,1,2,0)
+632 ;;=2^90698
+633 ;;^UTILITY(U,$J,358.3,17227,1,3,0)
+634 ;;=3^DTAP-HIB-IP VACCINE, IM
+635 ;;^UTILITY(U,$J,358.3,17228,0)
+636 ;;=90707^^58^691^28^^^^1
+637 ;;^UTILITY(U,$J,358.3,17228,1,0)
+638 ;;=^358.31IA^3^2
+639 ;;^UTILITY(U,$J,358.3,17228,1,2,0)
+640 ;;=2^90707
+641 ;;^UTILITY(U,$J,358.3,17228,1,3,0)
+642 ;;=3^MMR VACCINE, SC
+643 ;;^UTILITY(U,$J,358.3,17229,0)
+644 ;;=90710^^58^691^29^^^^1
+645 ;;^UTILITY(U,$J,358.3,17229,1,0)
+646 ;;=^358.31IA^3^2
+647 ;;^UTILITY(U,$J,358.3,17229,1,2,0)
+648 ;;=2^90710
+649 ;;^UTILITY(U,$J,358.3,17229,1,3,0)
+650 ;;=3^MMRV VACCINE, SC
+651 ;;^UTILITY(U,$J,358.3,17230,0)
+652 ;;=90713^^58^691^33^^^^1
+653 ;;^UTILITY(U,$J,358.3,17230,1,0)
+654 ;;=^358.31IA^3^2
+655 ;;^UTILITY(U,$J,358.3,17230,1,2,0)
+656 ;;=2^90713
+657 ;;^UTILITY(U,$J,358.3,17230,1,3,0)
+658 ;;=3^POLIOVIRUS, IPV, SC/IM
+659 ;;^UTILITY(U,$J,358.3,17231,0)
+660 ;;=90714^^58^691^38^^^^1
+661 ;;^UTILITY(U,$J,358.3,17231,1,0)
+662 ;;=^358.31IA^3^2
+663 ;;^UTILITY(U,$J,358.3,17231,1,2,0)
+664 ;;=2^90714
+665 ;;^UTILITY(U,$J,358.3,17231,1,3,0)
+666 ;;=3^TD VACCINE NO PRSRV IM
+667 ;;^UTILITY(U,$J,358.3,17232,0)
+668 ;;=90723^^58^691^3^^^^1
+669 ;;^UTILITY(U,$J,358.3,17232,1,0)
+670 ;;=^358.31IA^3^2
+671 ;;^UTILITY(U,$J,358.3,17232,1,2,0)
+672 ;;=2^90723
