IBDEI073 ; ; 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,17232,1,3,0)
;;=3^DTAP-HEP B-IPV VACCINE, IM
;;^UTILITY(U,$J,358.3,17233,0)
;;=90734^^58^691^24^^^^1
;;^UTILITY(U,$J,358.3,17233,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17233,1,2,0)
;;=2^90734
;;^UTILITY(U,$J,358.3,17233,1,3,0)
;;=3^MENINGOCOCCAL VACCINE, IM
;;^UTILITY(U,$J,358.3,17234,0)
;;=90733^^58^691^25^^^^1
;;^UTILITY(U,$J,358.3,17234,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17234,1,2,0)
;;=2^90733
;;^UTILITY(U,$J,358.3,17234,1,3,0)
;;=3^MENINGOCOCCAL VACCINE, SC
;;^UTILITY(U,$J,358.3,17235,0)
;;=90736^^58^691^43^^^^1
;;^UTILITY(U,$J,358.3,17235,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17235,1,2,0)
;;=2^90736
;;^UTILITY(U,$J,358.3,17235,1,3,0)
;;=3^ZOSTER (SHINGLES) VACCINE-SQ
;;^UTILITY(U,$J,358.3,17236,0)
;;=90746^^58^691^20^^^^1
;;^UTILITY(U,$J,358.3,17236,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17236,1,2,0)
;;=2^90746
;;^UTILITY(U,$J,358.3,17236,1,3,0)
;;=3^HEP B VACCINE, ADULT, IM
;;^UTILITY(U,$J,358.3,17237,0)
;;=90748^^58^691^21^^^^1
;;^UTILITY(U,$J,358.3,17237,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17237,1,2,0)
;;=2^90748
;;^UTILITY(U,$J,358.3,17237,1,3,0)
;;=3^HEP B/HIB VACCINE, IM
;;^UTILITY(U,$J,358.3,17238,0)
;;=90715^^58^691^39^^^^1
;;^UTILITY(U,$J,358.3,17238,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17238,1,2,0)
;;=2^90715
;;^UTILITY(U,$J,358.3,17238,1,3,0)
;;=3^TDAP VACCINE
;;^UTILITY(U,$J,358.3,17239,0)
;;=90716^^58^691^41^^^^1
;;^UTILITY(U,$J,358.3,17239,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17239,1,2,0)
;;=2^90716
;;^UTILITY(U,$J,358.3,17239,1,3,0)
;;=3^VARIVAX (CHICKEN POX) VACCINE
;;^UTILITY(U,$J,358.3,17240,0)
;;=90664^^58^691^8^^^^1
;;^UTILITY(U,$J,358.3,17240,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17240,1,2,0)
;;=2^90664
;;^UTILITY(U,$J,358.3,17240,1,3,0)
;;=3^FLU VACCINE INTRANASAL,PANDEMIC,LIVE
;;^UTILITY(U,$J,358.3,17241,0)
;;=90749^^58^691^6^^^^1
;;^UTILITY(U,$J,358.3,17241,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17241,1,2,0)
;;=2^90749
;;^UTILITY(U,$J,358.3,17241,1,3,0)
;;=3^DTP VACCINE, IM
;;^UTILITY(U,$J,358.3,17242,0)
;;=90656^^58^691^15^^^^1
;;^UTILITY(U,$J,358.3,17242,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17242,1,2,0)
;;=2^90656
;;^UTILITY(U,$J,358.3,17242,1,3,0)
;;=3^FLU VACCINE SINGLE DOSE SYR (AFLURIA IIV3)
;;^UTILITY(U,$J,358.3,17243,0)
;;=90691^^58^691^40^^^^1
;;^UTILITY(U,$J,358.3,17243,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17243,1,2,0)
;;=2^90691
;;^UTILITY(U,$J,358.3,17243,1,3,0)
;;=3^TYPHOID VACCINE IM
;;^UTILITY(U,$J,358.3,17244,0)
;;=90670^^58^691^34^^^^1
;;^UTILITY(U,$J,358.3,17244,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17244,1,2,0)
;;=2^90670
;;^UTILITY(U,$J,358.3,17244,1,3,0)
;;=3^PREVNAR 13 (PNEUMOCOCCAL VACCINE)
;;^UTILITY(U,$J,358.3,17245,0)
;;=90662^^58^691^7^^^^1
;;^UTILITY(U,$J,358.3,17245,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17245,1,2,0)
;;=2^90662
;;^UTILITY(U,$J,358.3,17245,1,3,0)
;;=3^FLU VACCINE HIGH DOSE SYRINGE (FLUZONE)
;;^UTILITY(U,$J,358.3,17246,0)
;;=90697^^58^691^5^^^^1
;;^UTILITY(U,$J,358.3,17246,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17246,1,2,0)
;;=2^90697
;;^UTILITY(U,$J,358.3,17246,1,3,0)
;;=3^DTAP-IPV-HIB-HEPB VACCINE IM
;;^UTILITY(U,$J,358.3,17247,0)
;;=90625^^58^691^2^^^^1
;;^UTILITY(U,$J,358.3,17247,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17247,1,2,0)
;;=2^90625
;;^UTILITY(U,$J,358.3,17247,1,3,0)
;;=3^CHOLERA VACCINE,ORAL
;;^UTILITY(U,$J,358.3,17248,0)
;;=90620^^58^691^27^^^^1
;;^UTILITY(U,$J,358.3,17248,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17248,1,2,0)
;;=2^90620
;;^UTILITY(U,$J,358.3,17248,1,3,0)
;;=3^MENINGOCOCCAL VACCINE,PROTEIN/OUT MEM IM
;;^UTILITY(U,$J,358.3,17249,0)
;;=90621^^58^691^26^^^^1
;;^UTILITY(U,$J,358.3,17249,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17249,1,2,0)
;;=2^90621
;;^UTILITY(U,$J,358.3,17249,1,3,0)
;;=3^MENINGOCOCCAL VACCINE,LIPOPROTEIN IM
;;^UTILITY(U,$J,358.3,17250,0)
;;=90686^^58^691^16^^^^1
;;^UTILITY(U,$J,358.3,17250,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17250,1,2,0)
;;=2^90686
;;^UTILITY(U,$J,358.3,17250,1,3,0)
;;=3^FLU VACCINE SINGLE DOSE SYR (FLUARIX QUADRIVALENT)
;;^UTILITY(U,$J,358.3,17251,0)
;;=90674^^58^691^10^^^^1
;;^UTILITY(U,$J,358.3,17251,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17251,1,2,0)
;;=2^90674
;;^UTILITY(U,$J,358.3,17251,1,3,0)
;;=3^FLU VACCINE LOW DOSE SYR (FLUCELVAX ccIIV4)
;;^UTILITY(U,$J,358.3,17252,0)
;;=90672^^58^691^9^^^^1
;;^UTILITY(U,$J,358.3,17252,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17252,1,2,0)
;;=2^90672
;;^UTILITY(U,$J,358.3,17252,1,3,0)
;;=3^FLU VACCINE INTRANASAL,QUADRIVALENT,LIVE
;;^UTILITY(U,$J,358.3,17253,0)
;;=90688^^58^691^12^^^^1
;;^UTILITY(U,$J,358.3,17253,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17253,1,2,0)
;;=2^90688
;;^UTILITY(U,$J,358.3,17253,1,3,0)
;;=3^FLU VACCINE MULTI DOSE VL (FLULAVA QUADRIVALENT)
;;^UTILITY(U,$J,358.3,17254,0)
;;=90682^^58^691^14^^^^1
;;^UTILITY(U,$J,358.3,17254,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17254,1,2,0)
;;=2^90682
;;^UTILITY(U,$J,358.3,17254,1,3,0)
;;=3^FLU VACCINE SINGLE DOSE FLUBLOK (RIV4)
;;^UTILITY(U,$J,358.3,17255,0)
;;=90750^^58^691^42^^^^1
;;^UTILITY(U,$J,358.3,17255,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17255,1,2,0)
;;=2^90750
;;^UTILITY(U,$J,358.3,17255,1,3,0)
;;=3^ZOSTER (SHINGLES) VACCINE-IM
;;^UTILITY(U,$J,358.3,17256,0)
;;=90653^^58^691^13^^^^1
;;^UTILITY(U,$J,358.3,17256,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17256,1,2,0)
;;=2^90653
;;^UTILITY(U,$J,358.3,17256,1,3,0)
;;=3^FLU VACCINE SINGLE DOSE (FLUAD SEQIRUS)
;;^UTILITY(U,$J,358.3,17257,0)
;;=90671^^58^691^30^^^^1
;;^UTILITY(U,$J,358.3,17257,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17257,1,2,0)
;;=2^90671
;;^UTILITY(U,$J,358.3,17257,1,3,0)
;;=3^PNEUMOCOCCAL CONJUGATE VACCINE;PCV15
;;^UTILITY(U,$J,358.3,17258,0)
;;=90677^^58^691^31^^^^1
;;^UTILITY(U,$J,358.3,17258,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17258,1,2,0)
;;=2^90677
;;^UTILITY(U,$J,358.3,17258,1,3,0)
;;=3^PNEUMOCOCCAL CONJUGATE VACCINE;PCV20
;;^UTILITY(U,$J,358.3,17259,0)
;;=96365^^58^692^6^^^^1
;;^UTILITY(U,$J,358.3,17259,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17259,1,2,0)
;;=2^96365
;;^UTILITY(U,$J,358.3,17259,1,3,0)
;;=3^THER/PROPH/DIAG IV INF,1ST HR
;;^UTILITY(U,$J,358.3,17260,0)
;;=96366^^58^692^7^^^^1
;;^UTILITY(U,$J,358.3,17260,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17260,1,2,0)
;;=2^96366
;;^UTILITY(U,$J,358.3,17260,1,3,0)
;;=3^THER/PROPH/DIAG IV INF,EA ADD HR
;;^UTILITY(U,$J,358.3,17261,0)
;;=96367^^58^692^8^^^^1
;;^UTILITY(U,$J,358.3,17261,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17261,1,2,0)
;;=2^96367
;;^UTILITY(U,$J,358.3,17261,1,3,0)
;;=3^TX/PROPH/DX IV INF,ADDL SEQ
;;^UTILITY(U,$J,358.3,17262,0)
;;=96374^^58^692^3^^^^1
;;^UTILITY(U,$J,358.3,17262,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17262,1,2,0)
;;=2^96374
;;^UTILITY(U,$J,358.3,17262,1,3,0)
;;=3^IV PUSH,SINGLE/1ST SUBST/DRUG
;;^UTILITY(U,$J,358.3,17263,0)
;;=96375^^58^692^4^^^^1
;;^UTILITY(U,$J,358.3,17263,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17263,1,2,0)
;;=2^96375
;;^UTILITY(U,$J,358.3,17263,1,3,0)
;;=3^IV PUSH,SUBSQ,NEW DRUG
;;^UTILITY(U,$J,358.3,17264,0)
;;=96360^^58^692^1^^^^1
;;^UTILITY(U,$J,358.3,17264,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17264,1,2,0)
;;=2^96360
;;^UTILITY(U,$J,358.3,17264,1,3,0)
;;=3^HYDRATION IV,1ST HR
;;^UTILITY(U,$J,358.3,17265,0)
;;=96361^^58^692^2^^^^1
;;^UTILITY(U,$J,358.3,17265,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17265,1,2,0)
;;=2^96361
;;^UTILITY(U,$J,358.3,17265,1,3,0)
;;=3^HYDRATION IV,EA ADDL HR
;;^UTILITY(U,$J,358.3,17266,0)
;;=96368^^58^692^9^^^^1
;;^UTILITY(U,$J,358.3,17266,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17266,1,2,0)
;;=2^96368
;;^UTILITY(U,$J,358.3,17266,1,3,0)
;;=3^TX/PROPH/DX IV INF,CONCURRENT
;;^UTILITY(U,$J,358.3,17267,0)
;;=96376^^58^692^5^^^^1
;;^UTILITY(U,$J,358.3,17267,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17267,1,2,0)
;;=2^96376
;;^UTILITY(U,$J,358.3,17267,1,3,0)
;;=3^IV PUSH,EA ADDL SUBST/DRUG
;;^UTILITY(U,$J,358.3,17268,0)
;;=36591^^58^693^2^^^^1
;;^UTILITY(U,$J,358.3,17268,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17268,1,2,0)
;;=2^36591
;;^UTILITY(U,$J,358.3,17268,1,3,0)
;;=3^DRAW BLOOD OFF VENOUS DEVICE
;;^UTILITY(U,$J,358.3,17269,0)
;;=36592^^58^693^1^^^^1
;;^UTILITY(U,$J,358.3,17269,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17269,1,2,0)
;;=2^36592
;;^UTILITY(U,$J,358.3,17269,1,3,0)
;;=3^COLLECT BLOOD FROM PICC
;;^UTILITY(U,$J,358.3,17270,0)
;;=36569^^58^693^3^^^^1
;;^UTILITY(U,$J,358.3,17270,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17270,1,2,0)
;;=2^36569
;;^UTILITY(U,$J,358.3,17270,1,3,0)
;;=3^PICC INSERTION W/O SUBCU PORT/PUMP
;;^UTILITY(U,$J,358.3,17271,0)
;;=96401^^58^694^5^^^^1
;;^UTILITY(U,$J,358.3,17271,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17271,1,2,0)
;;=2^96401
;;^UTILITY(U,$J,358.3,17271,1,3,0)
;;=3^CHEMO NON-HORMONAL ANTI-NEOPL SQ/IM
;;^UTILITY(U,$J,358.3,17272,0)
;;=96409^^58^694^4^^^^1
;;^UTILITY(U,$J,358.3,17272,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17272,1,2,0)
;;=2^96409
;;^UTILITY(U,$J,358.3,17272,1,3,0)
;;=3^CHEMO IV PUSH SNGL DRUG
;;^UTILITY(U,$J,358.3,17273,0)
;;=96411^^58^694^3^^^^1
;;^UTILITY(U,$J,358.3,17273,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17273,1,2,0)
;;=2^96411
;;^UTILITY(U,$J,358.3,17273,1,3,0)
;;=3^CHEMO IV PUSH ADDL DRUG
;;^UTILITY(U,$J,358.3,17274,0)
;;=96402^^58^694^2^^^^1
;;^UTILITY(U,$J,358.3,17274,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17274,1,2,0)
;;=2^96402
;;^UTILITY(U,$J,358.3,17274,1,3,0)
;;=3^CHEMO HORMONAL ANTI-NEOPL SQ/IM
;;^UTILITY(U,$J,358.3,17275,0)
;;=51720^^58^694^1^^^^1
;;^UTILITY(U,$J,358.3,17275,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17275,1,2,0)
;;=2^51720
;;^UTILITY(U,$J,358.3,17275,1,3,0)
;;=3^BLADDER INSTILLATION ANTICARCINOGENIC AGENT
;;^UTILITY(U,$J,358.3,17276,0)
;;=36430^^58^695^1^^^^1
;;^UTILITY(U,$J,358.3,17276,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17276,1,2,0)
;;=2^36430
;;^UTILITY(U,$J,358.3,17276,1,3,0)
;;=3^BLOOD/BLOOD COMPONENTS TRANSFUSION
;;^UTILITY(U,$J,358.3,17277,0)
;;=P9010^^58^695^8^^^^1
;;^UTILITY(U,$J,358.3,17277,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17277,1,2,0)
;;=2^P9010
;;^UTILITY(U,$J,358.3,17277,1,3,0)
;;=3^WHOLE BLOOD FOR TRANSFUSION,EA UNIT
;;^UTILITY(U,$J,358.3,17278,0)
;;=P9016^^58^695^4^^^^1
;;^UTILITY(U,$J,358.3,17278,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17278,1,2,0)
;;=2^P9016
;;^UTILITY(U,$J,358.3,17278,1,3,0)
;;=3^RBC LEUKOCYTES REDUCED,EA UNIT
;;^UTILITY(U,$J,358.3,17279,0)
;;=P9021^^58^695^6^^^^1
;;^UTILITY(U,$J,358.3,17279,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17279,1,2,0)
;;=2^P9021
;;^UTILITY(U,$J,358.3,17279,1,3,0)
;;=3^RED BLOOD CELLS,EA UNIT
;;^UTILITY(U,$J,358.3,17280,0)
;;=P9022^^58^695^7^^^^1
;;^UTILITY(U,$J,358.3,17280,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17280,1,2,0)
;;=2^P9022
;;^UTILITY(U,$J,358.3,17280,1,3,0)
;;=3^WASHED RED BLOOD CELLS,EA UNIT
;;^UTILITY(U,$J,358.3,17281,0)
;;=P9038^^58^695^3^^^^1
;;^UTILITY(U,$J,358.3,17281,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17281,1,2,0)
;;=2^P9038
;;^UTILITY(U,$J,358.3,17281,1,3,0)
;;=3^RBC IRRADIATED,EA UNIT
;;^UTILITY(U,$J,358.3,17282,0)
;;=P9039^^58^695^2^^^^1
;;^UTILITY(U,$J,358.3,17282,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17282,1,2,0)
;;=2^P9039
;;^UTILITY(U,$J,358.3,17282,1,3,0)
;;=3^RBC DEGLYCEROLIZED,EA UNIT
;;^UTILITY(U,$J,358.3,17283,0)
;;=P9040^^58^695^5^^^^1
;;^UTILITY(U,$J,358.3,17283,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17283,1,2,0)
;;=2^P9040
;;^UTILITY(U,$J,358.3,17283,1,3,0)
;;=3^RBC LEUKOREDUCED IRRADIATED,EA UNIT
;;^UTILITY(U,$J,358.3,17284,0)
;;=P9051^^58^695^9^^^^1
;;^UTILITY(U,$J,358.3,17284,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17284,1,2,0)
;;=2^P9051
;;^UTILITY(U,$J,358.3,17284,1,3,0)
;;=3^WHOLE BLOOD/RBC,L/R CMV-NEG,EA UNIT
;;^UTILITY(U,$J,358.3,17285,0)
;;=S9445^^58^696^5^^^^1
;;^UTILITY(U,$J,358.3,17285,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17285,1,2,0)
;;=2^S9445
;;^UTILITY(U,$J,358.3,17285,1,3,0)
;;=3^PT EDUCATION,INDIV,PER ENCOUNTER
;;^UTILITY(U,$J,358.3,17286,0)
;;=98960^^58^696^6^^^^1
;;^UTILITY(U,$J,358.3,17286,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17286,1,2,0)
;;=2^98960
;;^UTILITY(U,$J,358.3,17286,1,3,0)
;;=3^SELF-MGMT EDUC & TRAIN 1 PT,EA 30 MIN
;;^UTILITY(U,$J,358.3,17287,0)
;;=98961^^58^696^7^^^^1
;;^UTILITY(U,$J,358.3,17287,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17287,1,2,0)
;;=2^98961
;;^UTILITY(U,$J,358.3,17287,1,3,0)
;;=3^SELF-MGMT EDUC & TRAIN 2-4 PT
;;^UTILITY(U,$J,358.3,17288,0)
;;=98962^^58^696^8^^^^1
;;^UTILITY(U,$J,358.3,17288,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17288,1,2,0)
;;=2^98962
;;^UTILITY(U,$J,358.3,17288,1,3,0)
;;=3^SELF-MGMT EDUC & TRAIN 5-8 PT
;;^UTILITY(U,$J,358.3,17289,0)
;;=S9460^^58^696^4^^^^1
;;^UTILITY(U,$J,358.3,17289,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17289,1,2,0)
;;=2^S9460
;;^UTILITY(U,$J,358.3,17289,1,3,0)
;;=3^DIABETIC MGMT PROGRAM,NURSE VISIT
;;^UTILITY(U,$J,358.3,17290,0)
;;=G0108^^58^696^3^^^^1
;;^UTILITY(U,$J,358.3,17290,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17290,1,2,0)
;;=2^G0108
;;^UTILITY(U,$J,358.3,17290,1,3,0)
;;=3^DIAB OUTPT SELF-MGMT TRNG-IND,PER 30 MIN
;;^UTILITY(U,$J,358.3,17291,0)
;;=G0109^^58^696^2^^^^1
;;^UTILITY(U,$J,358.3,17291,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17291,1,2,0)
;;=2^G0109
;;^UTILITY(U,$J,358.3,17291,1,3,0)
;;=3^DIAB OUTPT SELF-MGMT TRNG-GRP,PER 30 MIN
;;^UTILITY(U,$J,358.3,17292,0)
;;=T1016^^58^696^1^^^^1
;;^UTILITY(U,$J,358.3,17292,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17292,1,2,0)
;;=2^T1016
;;^UTILITY(U,$J,358.3,17292,1,3,0)
;;=3^CASE MANAGEMENT,EA 15 MIN
;;^UTILITY(U,$J,358.3,17293,0)
;;=L89.010^^59^697^78
;;^UTILITY(U,$J,358.3,17293,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17293,1,3,0)
;;=3^Pressure Ulcer Right Elbow,Unstageable
;;^UTILITY(U,$J,358.3,17293,1,4,0)
;;=4^L89.010
;;^UTILITY(U,$J,358.3,17293,2)
;;=^5009337
;;^UTILITY(U,$J,358.3,17294,0)
;;=L89.011^^59^697^73
;;^UTILITY(U,$J,358.3,17294,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17294,1,3,0)
;;=3^Pressure Ulcer Right Elbow,Stage 1
;;^UTILITY(U,$J,358.3,17294,1,4,0)
;;=4^L89.011
;;^UTILITY(U,$J,358.3,17294,2)
;;=^5009338
;;^UTILITY(U,$J,358.3,17295,0)
;;=L89.012^^59^697^74
;;^UTILITY(U,$J,358.3,17295,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17295,1,3,0)
;;=3^Pressure Ulcer Right Elbow,Stage 2
;;^UTILITY(U,$J,358.3,17295,1,4,0)
;;=4^L89.012
;;^UTILITY(U,$J,358.3,17295,2)
;;=^5009339
;;^UTILITY(U,$J,358.3,17296,0)
;;=L89.013^^59^697^75
;;^UTILITY(U,$J,358.3,17296,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17296,1,3,0)
;;=3^Pressure Ulcer Right Elbow,Stage 3
;;^UTILITY(U,$J,358.3,17296,1,4,0)
;;=4^L89.013
;;^UTILITY(U,$J,358.3,17296,2)
;;=^5009340
;;^UTILITY(U,$J,358.3,17297,0)
;;=L89.014^^59^697^76
;;^UTILITY(U,$J,358.3,17297,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17297,1,3,0)
;;=3^Pressure Ulcer Right Elbow,Stage 4
;;^UTILITY(U,$J,358.3,17297,1,4,0)
;;=4^L89.014
;;^UTILITY(U,$J,358.3,17297,2)
;;=^5009341
;;^UTILITY(U,$J,358.3,17298,0)
;;=L89.019^^59^697^77
;;^UTILITY(U,$J,358.3,17298,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17298,1,3,0)
;;=3^Pressure Ulcer Right Elbow,Unspec Stage
;;^UTILITY(U,$J,358.3,17298,1,4,0)
;;=4^L89.019
;;^UTILITY(U,$J,358.3,17298,2)
;;=^5133648
;;^UTILITY(U,$J,358.3,17299,0)
;;=L89.029^^59^697^29
;;^UTILITY(U,$J,358.3,17299,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17299,1,3,0)
;;=3^Pressure Ulcer Left Elbow,Unspec Stage
;;^UTILITY(U,$J,358.3,17299,1,4,0)
;;=4^L89.029
;;^UTILITY(U,$J,358.3,17299,2)
;;=^5133649
;;^UTILITY(U,$J,358.3,17300,0)
;;=L89.020^^59^697^30
;;^UTILITY(U,$J,358.3,17300,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17300,1,3,0)
;;=3^Pressure Ulcer Left Elbow,Unstageable
;;^UTILITY(U,$J,358.3,17300,1,4,0)
;;=4^L89.020
;;^UTILITY(U,$J,358.3,17300,2)
;;=^5009342
;;^UTILITY(U,$J,358.3,17301,0)
;;=L89.021^^59^697^25
;;^UTILITY(U,$J,358.3,17301,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17301,1,3,0)
;;=3^Pressure Ulcer Left Elbow,Stage 1
;;^UTILITY(U,$J,358.3,17301,1,4,0)
;;=4^L89.021
;;^UTILITY(U,$J,358.3,17301,2)
;;=^5009343
;;^UTILITY(U,$J,358.3,17302,0)
;;=L89.022^^59^697^26
;;^UTILITY(U,$J,358.3,17302,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17302,1,3,0)
;;=3^Pressure Ulcer Left Elbow,Stage 2
;;^UTILITY(U,$J,358.3,17302,1,4,0)
;;=4^L89.022
;;^UTILITY(U,$J,358.3,17302,2)
;;=^5009344
;;^UTILITY(U,$J,358.3,17303,0)
;;=L89.023^^59^697^27
;;^UTILITY(U,$J,358.3,17303,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17303,1,3,0)
;;=3^Pressure Ulcer Left Elbow,Stage 3
;;^UTILITY(U,$J,358.3,17303,1,4,0)
;;=4^L89.023
;;^UTILITY(U,$J,358.3,17303,2)
;;=^5009345
;;^UTILITY(U,$J,358.3,17304,0)
;;=L89.024^^59^697^28
;;^UTILITY(U,$J,358.3,17304,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17304,1,3,0)
;;=3^Pressure Ulcer Left Elbow,Stage 4
;;^UTILITY(U,$J,358.3,17304,1,4,0)
;;=4^L89.024
;;^UTILITY(U,$J,358.3,17304,2)
;;=^5009346
;;^UTILITY(U,$J,358.3,17305,0)
;;=L89.110^^59^697^102
;;^UTILITY(U,$J,358.3,17305,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17305,1,3,0)
;;=3^Pressure Ulcer Right Upper Back,Unstageable
;;^UTILITY(U,$J,358.3,17305,1,4,0)
;;=4^L89.110
;;^UTILITY(U,$J,358.3,17305,2)
;;=^5009352
;;^UTILITY(U,$J,358.3,17306,0)
;;=L89.111^^59^697^97
;;^UTILITY(U,$J,358.3,17306,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17306,1,3,0)
;;=3^Pressure Ulcer Right Upper Back,Stage 1
;;^UTILITY(U,$J,358.3,17306,1,4,0)
;;=4^L89.111
;;^UTILITY(U,$J,358.3,17306,2)
;;=^5009353
;;^UTILITY(U,$J,358.3,17307,0)
;;=L89.112^^59^697^98
;;^UTILITY(U,$J,358.3,17307,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17307,1,3,0)
;;=3^Pressure Ulcer Right Upper Back,Stage 2
;;^UTILITY(U,$J,358.3,17307,1,4,0)
;;=4^L89.112
;;^UTILITY(U,$J,358.3,17307,2)
;;=^5009354
;;^UTILITY(U,$J,358.3,17308,0)
;;=L89.113^^59^697^99
;;^UTILITY(U,$J,358.3,17308,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17308,1,3,0)
;;=3^Pressure Ulcer Right Upper Back,Stage 3
;;^UTILITY(U,$J,358.3,17308,1,4,0)
;;=4^L89.113
;;^UTILITY(U,$J,358.3,17308,2)
;;=^5009355
;;^UTILITY(U,$J,358.3,17309,0)
;;=L89.114^^59^697^100
;;^UTILITY(U,$J,358.3,17309,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17309,1,3,0)
;;=3^Pressure Ulcer Right Upper Back,Stage 4
;;^UTILITY(U,$J,358.3,17309,1,4,0)
;;=4^L89.114
;;^UTILITY(U,$J,358.3,17309,2)
;;=^5009356
;;^UTILITY(U,$J,358.3,17310,0)
;;=L89.119^^59^697^101
;;^UTILITY(U,$J,358.3,17310,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17310,1,3,0)
;;=3^Pressure Ulcer Right Upper Back,Stage Unspec
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI073 19824 printed Sep 23, 2025@19:18:55 Page 2
IBDEI073 ; ; 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,17232,1,3,0)
+2 ;;=3^DTAP-HEP B-IPV VACCINE, IM
+3 ;;^UTILITY(U,$J,358.3,17233,0)
+4 ;;=90734^^58^691^24^^^^1
+5 ;;^UTILITY(U,$J,358.3,17233,1,0)
+6 ;;=^358.31IA^3^2
+7 ;;^UTILITY(U,$J,358.3,17233,1,2,0)
+8 ;;=2^90734
+9 ;;^UTILITY(U,$J,358.3,17233,1,3,0)
+10 ;;=3^MENINGOCOCCAL VACCINE, IM
+11 ;;^UTILITY(U,$J,358.3,17234,0)
+12 ;;=90733^^58^691^25^^^^1
+13 ;;^UTILITY(U,$J,358.3,17234,1,0)
+14 ;;=^358.31IA^3^2
+15 ;;^UTILITY(U,$J,358.3,17234,1,2,0)
+16 ;;=2^90733
+17 ;;^UTILITY(U,$J,358.3,17234,1,3,0)
+18 ;;=3^MENINGOCOCCAL VACCINE, SC
+19 ;;^UTILITY(U,$J,358.3,17235,0)
+20 ;;=90736^^58^691^43^^^^1
+21 ;;^UTILITY(U,$J,358.3,17235,1,0)
+22 ;;=^358.31IA^3^2
+23 ;;^UTILITY(U,$J,358.3,17235,1,2,0)
+24 ;;=2^90736
+25 ;;^UTILITY(U,$J,358.3,17235,1,3,0)
+26 ;;=3^ZOSTER (SHINGLES) VACCINE-SQ
+27 ;;^UTILITY(U,$J,358.3,17236,0)
+28 ;;=90746^^58^691^20^^^^1
+29 ;;^UTILITY(U,$J,358.3,17236,1,0)
+30 ;;=^358.31IA^3^2
+31 ;;^UTILITY(U,$J,358.3,17236,1,2,0)
+32 ;;=2^90746
+33 ;;^UTILITY(U,$J,358.3,17236,1,3,0)
+34 ;;=3^HEP B VACCINE, ADULT, IM
+35 ;;^UTILITY(U,$J,358.3,17237,0)
+36 ;;=90748^^58^691^21^^^^1
+37 ;;^UTILITY(U,$J,358.3,17237,1,0)
+38 ;;=^358.31IA^3^2
+39 ;;^UTILITY(U,$J,358.3,17237,1,2,0)
+40 ;;=2^90748
+41 ;;^UTILITY(U,$J,358.3,17237,1,3,0)
+42 ;;=3^HEP B/HIB VACCINE, IM
+43 ;;^UTILITY(U,$J,358.3,17238,0)
+44 ;;=90715^^58^691^39^^^^1
+45 ;;^UTILITY(U,$J,358.3,17238,1,0)
+46 ;;=^358.31IA^3^2
+47 ;;^UTILITY(U,$J,358.3,17238,1,2,0)
+48 ;;=2^90715
+49 ;;^UTILITY(U,$J,358.3,17238,1,3,0)
+50 ;;=3^TDAP VACCINE
+51 ;;^UTILITY(U,$J,358.3,17239,0)
+52 ;;=90716^^58^691^41^^^^1
+53 ;;^UTILITY(U,$J,358.3,17239,1,0)
+54 ;;=^358.31IA^3^2
+55 ;;^UTILITY(U,$J,358.3,17239,1,2,0)
+56 ;;=2^90716
+57 ;;^UTILITY(U,$J,358.3,17239,1,3,0)
+58 ;;=3^VARIVAX (CHICKEN POX) VACCINE
+59 ;;^UTILITY(U,$J,358.3,17240,0)
+60 ;;=90664^^58^691^8^^^^1
+61 ;;^UTILITY(U,$J,358.3,17240,1,0)
+62 ;;=^358.31IA^3^2
+63 ;;^UTILITY(U,$J,358.3,17240,1,2,0)
+64 ;;=2^90664
+65 ;;^UTILITY(U,$J,358.3,17240,1,3,0)
+66 ;;=3^FLU VACCINE INTRANASAL,PANDEMIC,LIVE
+67 ;;^UTILITY(U,$J,358.3,17241,0)
+68 ;;=90749^^58^691^6^^^^1
+69 ;;^UTILITY(U,$J,358.3,17241,1,0)
+70 ;;=^358.31IA^3^2
+71 ;;^UTILITY(U,$J,358.3,17241,1,2,0)
+72 ;;=2^90749
+73 ;;^UTILITY(U,$J,358.3,17241,1,3,0)
+74 ;;=3^DTP VACCINE, IM
+75 ;;^UTILITY(U,$J,358.3,17242,0)
+76 ;;=90656^^58^691^15^^^^1
+77 ;;^UTILITY(U,$J,358.3,17242,1,0)
+78 ;;=^358.31IA^3^2
+79 ;;^UTILITY(U,$J,358.3,17242,1,2,0)
+80 ;;=2^90656
+81 ;;^UTILITY(U,$J,358.3,17242,1,3,0)
+82 ;;=3^FLU VACCINE SINGLE DOSE SYR (AFLURIA IIV3)
+83 ;;^UTILITY(U,$J,358.3,17243,0)
+84 ;;=90691^^58^691^40^^^^1
+85 ;;^UTILITY(U,$J,358.3,17243,1,0)
+86 ;;=^358.31IA^3^2
+87 ;;^UTILITY(U,$J,358.3,17243,1,2,0)
+88 ;;=2^90691
+89 ;;^UTILITY(U,$J,358.3,17243,1,3,0)
+90 ;;=3^TYPHOID VACCINE IM
+91 ;;^UTILITY(U,$J,358.3,17244,0)
+92 ;;=90670^^58^691^34^^^^1
+93 ;;^UTILITY(U,$J,358.3,17244,1,0)
+94 ;;=^358.31IA^3^2
+95 ;;^UTILITY(U,$J,358.3,17244,1,2,0)
+96 ;;=2^90670
+97 ;;^UTILITY(U,$J,358.3,17244,1,3,0)
+98 ;;=3^PREVNAR 13 (PNEUMOCOCCAL VACCINE)
+99 ;;^UTILITY(U,$J,358.3,17245,0)
+100 ;;=90662^^58^691^7^^^^1
+101 ;;^UTILITY(U,$J,358.3,17245,1,0)
+102 ;;=^358.31IA^3^2
+103 ;;^UTILITY(U,$J,358.3,17245,1,2,0)
+104 ;;=2^90662
+105 ;;^UTILITY(U,$J,358.3,17245,1,3,0)
+106 ;;=3^FLU VACCINE HIGH DOSE SYRINGE (FLUZONE)
+107 ;;^UTILITY(U,$J,358.3,17246,0)
+108 ;;=90697^^58^691^5^^^^1
+109 ;;^UTILITY(U,$J,358.3,17246,1,0)
+110 ;;=^358.31IA^3^2
+111 ;;^UTILITY(U,$J,358.3,17246,1,2,0)
+112 ;;=2^90697
+113 ;;^UTILITY(U,$J,358.3,17246,1,3,0)
+114 ;;=3^DTAP-IPV-HIB-HEPB VACCINE IM
+115 ;;^UTILITY(U,$J,358.3,17247,0)
+116 ;;=90625^^58^691^2^^^^1
+117 ;;^UTILITY(U,$J,358.3,17247,1,0)
+118 ;;=^358.31IA^3^2
+119 ;;^UTILITY(U,$J,358.3,17247,1,2,0)
+120 ;;=2^90625
+121 ;;^UTILITY(U,$J,358.3,17247,1,3,0)
+122 ;;=3^CHOLERA VACCINE,ORAL
+123 ;;^UTILITY(U,$J,358.3,17248,0)
+124 ;;=90620^^58^691^27^^^^1
+125 ;;^UTILITY(U,$J,358.3,17248,1,0)
+126 ;;=^358.31IA^3^2
+127 ;;^UTILITY(U,$J,358.3,17248,1,2,0)
+128 ;;=2^90620
+129 ;;^UTILITY(U,$J,358.3,17248,1,3,0)
+130 ;;=3^MENINGOCOCCAL VACCINE,PROTEIN/OUT MEM IM
+131 ;;^UTILITY(U,$J,358.3,17249,0)
+132 ;;=90621^^58^691^26^^^^1
+133 ;;^UTILITY(U,$J,358.3,17249,1,0)
+134 ;;=^358.31IA^3^2
+135 ;;^UTILITY(U,$J,358.3,17249,1,2,0)
+136 ;;=2^90621
+137 ;;^UTILITY(U,$J,358.3,17249,1,3,0)
+138 ;;=3^MENINGOCOCCAL VACCINE,LIPOPROTEIN IM
+139 ;;^UTILITY(U,$J,358.3,17250,0)
+140 ;;=90686^^58^691^16^^^^1
+141 ;;^UTILITY(U,$J,358.3,17250,1,0)
+142 ;;=^358.31IA^3^2
+143 ;;^UTILITY(U,$J,358.3,17250,1,2,0)
+144 ;;=2^90686
+145 ;;^UTILITY(U,$J,358.3,17250,1,3,0)
+146 ;;=3^FLU VACCINE SINGLE DOSE SYR (FLUARIX QUADRIVALENT)
+147 ;;^UTILITY(U,$J,358.3,17251,0)
+148 ;;=90674^^58^691^10^^^^1
+149 ;;^UTILITY(U,$J,358.3,17251,1,0)
+150 ;;=^358.31IA^3^2
+151 ;;^UTILITY(U,$J,358.3,17251,1,2,0)
+152 ;;=2^90674
+153 ;;^UTILITY(U,$J,358.3,17251,1,3,0)
+154 ;;=3^FLU VACCINE LOW DOSE SYR (FLUCELVAX ccIIV4)
+155 ;;^UTILITY(U,$J,358.3,17252,0)
+156 ;;=90672^^58^691^9^^^^1
+157 ;;^UTILITY(U,$J,358.3,17252,1,0)
+158 ;;=^358.31IA^3^2
+159 ;;^UTILITY(U,$J,358.3,17252,1,2,0)
+160 ;;=2^90672
+161 ;;^UTILITY(U,$J,358.3,17252,1,3,0)
+162 ;;=3^FLU VACCINE INTRANASAL,QUADRIVALENT,LIVE
+163 ;;^UTILITY(U,$J,358.3,17253,0)
+164 ;;=90688^^58^691^12^^^^1
+165 ;;^UTILITY(U,$J,358.3,17253,1,0)
+166 ;;=^358.31IA^3^2
+167 ;;^UTILITY(U,$J,358.3,17253,1,2,0)
+168 ;;=2^90688
+169 ;;^UTILITY(U,$J,358.3,17253,1,3,0)
+170 ;;=3^FLU VACCINE MULTI DOSE VL (FLULAVA QUADRIVALENT)
+171 ;;^UTILITY(U,$J,358.3,17254,0)
+172 ;;=90682^^58^691^14^^^^1
+173 ;;^UTILITY(U,$J,358.3,17254,1,0)
+174 ;;=^358.31IA^3^2
+175 ;;^UTILITY(U,$J,358.3,17254,1,2,0)
+176 ;;=2^90682
+177 ;;^UTILITY(U,$J,358.3,17254,1,3,0)
+178 ;;=3^FLU VACCINE SINGLE DOSE FLUBLOK (RIV4)
+179 ;;^UTILITY(U,$J,358.3,17255,0)
+180 ;;=90750^^58^691^42^^^^1
+181 ;;^UTILITY(U,$J,358.3,17255,1,0)
+182 ;;=^358.31IA^3^2
+183 ;;^UTILITY(U,$J,358.3,17255,1,2,0)
+184 ;;=2^90750
+185 ;;^UTILITY(U,$J,358.3,17255,1,3,0)
+186 ;;=3^ZOSTER (SHINGLES) VACCINE-IM
+187 ;;^UTILITY(U,$J,358.3,17256,0)
+188 ;;=90653^^58^691^13^^^^1
+189 ;;^UTILITY(U,$J,358.3,17256,1,0)
+190 ;;=^358.31IA^3^2
+191 ;;^UTILITY(U,$J,358.3,17256,1,2,0)
+192 ;;=2^90653
+193 ;;^UTILITY(U,$J,358.3,17256,1,3,0)
+194 ;;=3^FLU VACCINE SINGLE DOSE (FLUAD SEQIRUS)
+195 ;;^UTILITY(U,$J,358.3,17257,0)
+196 ;;=90671^^58^691^30^^^^1
+197 ;;^UTILITY(U,$J,358.3,17257,1,0)
+198 ;;=^358.31IA^3^2
+199 ;;^UTILITY(U,$J,358.3,17257,1,2,0)
+200 ;;=2^90671
+201 ;;^UTILITY(U,$J,358.3,17257,1,3,0)
+202 ;;=3^PNEUMOCOCCAL CONJUGATE VACCINE;PCV15
+203 ;;^UTILITY(U,$J,358.3,17258,0)
+204 ;;=90677^^58^691^31^^^^1
+205 ;;^UTILITY(U,$J,358.3,17258,1,0)
+206 ;;=^358.31IA^3^2
+207 ;;^UTILITY(U,$J,358.3,17258,1,2,0)
+208 ;;=2^90677
+209 ;;^UTILITY(U,$J,358.3,17258,1,3,0)
+210 ;;=3^PNEUMOCOCCAL CONJUGATE VACCINE;PCV20
+211 ;;^UTILITY(U,$J,358.3,17259,0)
+212 ;;=96365^^58^692^6^^^^1
+213 ;;^UTILITY(U,$J,358.3,17259,1,0)
+214 ;;=^358.31IA^3^2
+215 ;;^UTILITY(U,$J,358.3,17259,1,2,0)
+216 ;;=2^96365
+217 ;;^UTILITY(U,$J,358.3,17259,1,3,0)
+218 ;;=3^THER/PROPH/DIAG IV INF,1ST HR
+219 ;;^UTILITY(U,$J,358.3,17260,0)
+220 ;;=96366^^58^692^7^^^^1
+221 ;;^UTILITY(U,$J,358.3,17260,1,0)
+222 ;;=^358.31IA^3^2
+223 ;;^UTILITY(U,$J,358.3,17260,1,2,0)
+224 ;;=2^96366
+225 ;;^UTILITY(U,$J,358.3,17260,1,3,0)
+226 ;;=3^THER/PROPH/DIAG IV INF,EA ADD HR
+227 ;;^UTILITY(U,$J,358.3,17261,0)
+228 ;;=96367^^58^692^8^^^^1
+229 ;;^UTILITY(U,$J,358.3,17261,1,0)
+230 ;;=^358.31IA^3^2
+231 ;;^UTILITY(U,$J,358.3,17261,1,2,0)
+232 ;;=2^96367
+233 ;;^UTILITY(U,$J,358.3,17261,1,3,0)
+234 ;;=3^TX/PROPH/DX IV INF,ADDL SEQ
+235 ;;^UTILITY(U,$J,358.3,17262,0)
+236 ;;=96374^^58^692^3^^^^1
+237 ;;^UTILITY(U,$J,358.3,17262,1,0)
+238 ;;=^358.31IA^3^2
+239 ;;^UTILITY(U,$J,358.3,17262,1,2,0)
+240 ;;=2^96374
+241 ;;^UTILITY(U,$J,358.3,17262,1,3,0)
+242 ;;=3^IV PUSH,SINGLE/1ST SUBST/DRUG
+243 ;;^UTILITY(U,$J,358.3,17263,0)
+244 ;;=96375^^58^692^4^^^^1
+245 ;;^UTILITY(U,$J,358.3,17263,1,0)
+246 ;;=^358.31IA^3^2
+247 ;;^UTILITY(U,$J,358.3,17263,1,2,0)
+248 ;;=2^96375
+249 ;;^UTILITY(U,$J,358.3,17263,1,3,0)
+250 ;;=3^IV PUSH,SUBSQ,NEW DRUG
+251 ;;^UTILITY(U,$J,358.3,17264,0)
+252 ;;=96360^^58^692^1^^^^1
+253 ;;^UTILITY(U,$J,358.3,17264,1,0)
+254 ;;=^358.31IA^3^2
+255 ;;^UTILITY(U,$J,358.3,17264,1,2,0)
+256 ;;=2^96360
+257 ;;^UTILITY(U,$J,358.3,17264,1,3,0)
+258 ;;=3^HYDRATION IV,1ST HR
+259 ;;^UTILITY(U,$J,358.3,17265,0)
+260 ;;=96361^^58^692^2^^^^1
+261 ;;^UTILITY(U,$J,358.3,17265,1,0)
+262 ;;=^358.31IA^3^2
+263 ;;^UTILITY(U,$J,358.3,17265,1,2,0)
+264 ;;=2^96361
+265 ;;^UTILITY(U,$J,358.3,17265,1,3,0)
+266 ;;=3^HYDRATION IV,EA ADDL HR
+267 ;;^UTILITY(U,$J,358.3,17266,0)
+268 ;;=96368^^58^692^9^^^^1
+269 ;;^UTILITY(U,$J,358.3,17266,1,0)
+270 ;;=^358.31IA^3^2
+271 ;;^UTILITY(U,$J,358.3,17266,1,2,0)
+272 ;;=2^96368
+273 ;;^UTILITY(U,$J,358.3,17266,1,3,0)
+274 ;;=3^TX/PROPH/DX IV INF,CONCURRENT
+275 ;;^UTILITY(U,$J,358.3,17267,0)
+276 ;;=96376^^58^692^5^^^^1
+277 ;;^UTILITY(U,$J,358.3,17267,1,0)
+278 ;;=^358.31IA^3^2
+279 ;;^UTILITY(U,$J,358.3,17267,1,2,0)
+280 ;;=2^96376
+281 ;;^UTILITY(U,$J,358.3,17267,1,3,0)
+282 ;;=3^IV PUSH,EA ADDL SUBST/DRUG
+283 ;;^UTILITY(U,$J,358.3,17268,0)
+284 ;;=36591^^58^693^2^^^^1
+285 ;;^UTILITY(U,$J,358.3,17268,1,0)
+286 ;;=^358.31IA^3^2
+287 ;;^UTILITY(U,$J,358.3,17268,1,2,0)
+288 ;;=2^36591
+289 ;;^UTILITY(U,$J,358.3,17268,1,3,0)
+290 ;;=3^DRAW BLOOD OFF VENOUS DEVICE
+291 ;;^UTILITY(U,$J,358.3,17269,0)
+292 ;;=36592^^58^693^1^^^^1
+293 ;;^UTILITY(U,$J,358.3,17269,1,0)
+294 ;;=^358.31IA^3^2
+295 ;;^UTILITY(U,$J,358.3,17269,1,2,0)
+296 ;;=2^36592
+297 ;;^UTILITY(U,$J,358.3,17269,1,3,0)
+298 ;;=3^COLLECT BLOOD FROM PICC
+299 ;;^UTILITY(U,$J,358.3,17270,0)
+300 ;;=36569^^58^693^3^^^^1
+301 ;;^UTILITY(U,$J,358.3,17270,1,0)
+302 ;;=^358.31IA^3^2
+303 ;;^UTILITY(U,$J,358.3,17270,1,2,0)
+304 ;;=2^36569
+305 ;;^UTILITY(U,$J,358.3,17270,1,3,0)
+306 ;;=3^PICC INSERTION W/O SUBCU PORT/PUMP
+307 ;;^UTILITY(U,$J,358.3,17271,0)
+308 ;;=96401^^58^694^5^^^^1
+309 ;;^UTILITY(U,$J,358.3,17271,1,0)
+310 ;;=^358.31IA^3^2
+311 ;;^UTILITY(U,$J,358.3,17271,1,2,0)
+312 ;;=2^96401
+313 ;;^UTILITY(U,$J,358.3,17271,1,3,0)
+314 ;;=3^CHEMO NON-HORMONAL ANTI-NEOPL SQ/IM
+315 ;;^UTILITY(U,$J,358.3,17272,0)
+316 ;;=96409^^58^694^4^^^^1
+317 ;;^UTILITY(U,$J,358.3,17272,1,0)
+318 ;;=^358.31IA^3^2
+319 ;;^UTILITY(U,$J,358.3,17272,1,2,0)
+320 ;;=2^96409
+321 ;;^UTILITY(U,$J,358.3,17272,1,3,0)
+322 ;;=3^CHEMO IV PUSH SNGL DRUG
+323 ;;^UTILITY(U,$J,358.3,17273,0)
+324 ;;=96411^^58^694^3^^^^1
+325 ;;^UTILITY(U,$J,358.3,17273,1,0)
+326 ;;=^358.31IA^3^2
+327 ;;^UTILITY(U,$J,358.3,17273,1,2,0)
+328 ;;=2^96411
+329 ;;^UTILITY(U,$J,358.3,17273,1,3,0)
+330 ;;=3^CHEMO IV PUSH ADDL DRUG
+331 ;;^UTILITY(U,$J,358.3,17274,0)
+332 ;;=96402^^58^694^2^^^^1
+333 ;;^UTILITY(U,$J,358.3,17274,1,0)
+334 ;;=^358.31IA^3^2
+335 ;;^UTILITY(U,$J,358.3,17274,1,2,0)
+336 ;;=2^96402
+337 ;;^UTILITY(U,$J,358.3,17274,1,3,0)
+338 ;;=3^CHEMO HORMONAL ANTI-NEOPL SQ/IM
+339 ;;^UTILITY(U,$J,358.3,17275,0)
+340 ;;=51720^^58^694^1^^^^1
+341 ;;^UTILITY(U,$J,358.3,17275,1,0)
+342 ;;=^358.31IA^3^2
+343 ;;^UTILITY(U,$J,358.3,17275,1,2,0)
+344 ;;=2^51720
+345 ;;^UTILITY(U,$J,358.3,17275,1,3,0)
+346 ;;=3^BLADDER INSTILLATION ANTICARCINOGENIC AGENT
+347 ;;^UTILITY(U,$J,358.3,17276,0)
+348 ;;=36430^^58^695^1^^^^1
+349 ;;^UTILITY(U,$J,358.3,17276,1,0)
+350 ;;=^358.31IA^3^2
+351 ;;^UTILITY(U,$J,358.3,17276,1,2,0)
+352 ;;=2^36430
+353 ;;^UTILITY(U,$J,358.3,17276,1,3,0)
+354 ;;=3^BLOOD/BLOOD COMPONENTS TRANSFUSION
+355 ;;^UTILITY(U,$J,358.3,17277,0)
+356 ;;=P9010^^58^695^8^^^^1
+357 ;;^UTILITY(U,$J,358.3,17277,1,0)
+358 ;;=^358.31IA^3^2
+359 ;;^UTILITY(U,$J,358.3,17277,1,2,0)
+360 ;;=2^P9010
+361 ;;^UTILITY(U,$J,358.3,17277,1,3,0)
+362 ;;=3^WHOLE BLOOD FOR TRANSFUSION,EA UNIT
+363 ;;^UTILITY(U,$J,358.3,17278,0)
+364 ;;=P9016^^58^695^4^^^^1
+365 ;;^UTILITY(U,$J,358.3,17278,1,0)
+366 ;;=^358.31IA^3^2
+367 ;;^UTILITY(U,$J,358.3,17278,1,2,0)
+368 ;;=2^P9016
+369 ;;^UTILITY(U,$J,358.3,17278,1,3,0)
+370 ;;=3^RBC LEUKOCYTES REDUCED,EA UNIT
+371 ;;^UTILITY(U,$J,358.3,17279,0)
+372 ;;=P9021^^58^695^6^^^^1
+373 ;;^UTILITY(U,$J,358.3,17279,1,0)
+374 ;;=^358.31IA^3^2
+375 ;;^UTILITY(U,$J,358.3,17279,1,2,0)
+376 ;;=2^P9021
+377 ;;^UTILITY(U,$J,358.3,17279,1,3,0)
+378 ;;=3^RED BLOOD CELLS,EA UNIT
+379 ;;^UTILITY(U,$J,358.3,17280,0)
+380 ;;=P9022^^58^695^7^^^^1
+381 ;;^UTILITY(U,$J,358.3,17280,1,0)
+382 ;;=^358.31IA^3^2
+383 ;;^UTILITY(U,$J,358.3,17280,1,2,0)
+384 ;;=2^P9022
+385 ;;^UTILITY(U,$J,358.3,17280,1,3,0)
+386 ;;=3^WASHED RED BLOOD CELLS,EA UNIT
+387 ;;^UTILITY(U,$J,358.3,17281,0)
+388 ;;=P9038^^58^695^3^^^^1
+389 ;;^UTILITY(U,$J,358.3,17281,1,0)
+390 ;;=^358.31IA^3^2
+391 ;;^UTILITY(U,$J,358.3,17281,1,2,0)
+392 ;;=2^P9038
+393 ;;^UTILITY(U,$J,358.3,17281,1,3,0)
+394 ;;=3^RBC IRRADIATED,EA UNIT
+395 ;;^UTILITY(U,$J,358.3,17282,0)
+396 ;;=P9039^^58^695^2^^^^1
+397 ;;^UTILITY(U,$J,358.3,17282,1,0)
+398 ;;=^358.31IA^3^2
+399 ;;^UTILITY(U,$J,358.3,17282,1,2,0)
+400 ;;=2^P9039
+401 ;;^UTILITY(U,$J,358.3,17282,1,3,0)
+402 ;;=3^RBC DEGLYCEROLIZED,EA UNIT
+403 ;;^UTILITY(U,$J,358.3,17283,0)
+404 ;;=P9040^^58^695^5^^^^1
+405 ;;^UTILITY(U,$J,358.3,17283,1,0)
+406 ;;=^358.31IA^3^2
+407 ;;^UTILITY(U,$J,358.3,17283,1,2,0)
+408 ;;=2^P9040
+409 ;;^UTILITY(U,$J,358.3,17283,1,3,0)
+410 ;;=3^RBC LEUKOREDUCED IRRADIATED,EA UNIT
+411 ;;^UTILITY(U,$J,358.3,17284,0)
+412 ;;=P9051^^58^695^9^^^^1
+413 ;;^UTILITY(U,$J,358.3,17284,1,0)
+414 ;;=^358.31IA^3^2
+415 ;;^UTILITY(U,$J,358.3,17284,1,2,0)
+416 ;;=2^P9051
+417 ;;^UTILITY(U,$J,358.3,17284,1,3,0)
+418 ;;=3^WHOLE BLOOD/RBC,L/R CMV-NEG,EA UNIT
+419 ;;^UTILITY(U,$J,358.3,17285,0)
+420 ;;=S9445^^58^696^5^^^^1
+421 ;;^UTILITY(U,$J,358.3,17285,1,0)
+422 ;;=^358.31IA^3^2
+423 ;;^UTILITY(U,$J,358.3,17285,1,2,0)
+424 ;;=2^S9445
+425 ;;^UTILITY(U,$J,358.3,17285,1,3,0)
+426 ;;=3^PT EDUCATION,INDIV,PER ENCOUNTER
+427 ;;^UTILITY(U,$J,358.3,17286,0)
+428 ;;=98960^^58^696^6^^^^1
+429 ;;^UTILITY(U,$J,358.3,17286,1,0)
+430 ;;=^358.31IA^3^2
+431 ;;^UTILITY(U,$J,358.3,17286,1,2,0)
+432 ;;=2^98960
+433 ;;^UTILITY(U,$J,358.3,17286,1,3,0)
+434 ;;=3^SELF-MGMT EDUC & TRAIN 1 PT,EA 30 MIN
+435 ;;^UTILITY(U,$J,358.3,17287,0)
+436 ;;=98961^^58^696^7^^^^1
+437 ;;^UTILITY(U,$J,358.3,17287,1,0)
+438 ;;=^358.31IA^3^2
+439 ;;^UTILITY(U,$J,358.3,17287,1,2,0)
+440 ;;=2^98961
+441 ;;^UTILITY(U,$J,358.3,17287,1,3,0)
+442 ;;=3^SELF-MGMT EDUC & TRAIN 2-4 PT
+443 ;;^UTILITY(U,$J,358.3,17288,0)
+444 ;;=98962^^58^696^8^^^^1
+445 ;;^UTILITY(U,$J,358.3,17288,1,0)
+446 ;;=^358.31IA^3^2
+447 ;;^UTILITY(U,$J,358.3,17288,1,2,0)
+448 ;;=2^98962
+449 ;;^UTILITY(U,$J,358.3,17288,1,3,0)
+450 ;;=3^SELF-MGMT EDUC & TRAIN 5-8 PT
+451 ;;^UTILITY(U,$J,358.3,17289,0)
+452 ;;=S9460^^58^696^4^^^^1
+453 ;;^UTILITY(U,$J,358.3,17289,1,0)
+454 ;;=^358.31IA^3^2
+455 ;;^UTILITY(U,$J,358.3,17289,1,2,0)
+456 ;;=2^S9460
+457 ;;^UTILITY(U,$J,358.3,17289,1,3,0)
+458 ;;=3^DIABETIC MGMT PROGRAM,NURSE VISIT
+459 ;;^UTILITY(U,$J,358.3,17290,0)
+460 ;;=G0108^^58^696^3^^^^1
+461 ;;^UTILITY(U,$J,358.3,17290,1,0)
+462 ;;=^358.31IA^3^2
+463 ;;^UTILITY(U,$J,358.3,17290,1,2,0)
+464 ;;=2^G0108
+465 ;;^UTILITY(U,$J,358.3,17290,1,3,0)
+466 ;;=3^DIAB OUTPT SELF-MGMT TRNG-IND,PER 30 MIN
+467 ;;^UTILITY(U,$J,358.3,17291,0)
+468 ;;=G0109^^58^696^2^^^^1
+469 ;;^UTILITY(U,$J,358.3,17291,1,0)
+470 ;;=^358.31IA^3^2
+471 ;;^UTILITY(U,$J,358.3,17291,1,2,0)
+472 ;;=2^G0109
+473 ;;^UTILITY(U,$J,358.3,17291,1,3,0)
+474 ;;=3^DIAB OUTPT SELF-MGMT TRNG-GRP,PER 30 MIN
+475 ;;^UTILITY(U,$J,358.3,17292,0)
+476 ;;=T1016^^58^696^1^^^^1
+477 ;;^UTILITY(U,$J,358.3,17292,1,0)
+478 ;;=^358.31IA^3^2
+479 ;;^UTILITY(U,$J,358.3,17292,1,2,0)
+480 ;;=2^T1016
+481 ;;^UTILITY(U,$J,358.3,17292,1,3,0)
+482 ;;=3^CASE MANAGEMENT,EA 15 MIN
+483 ;;^UTILITY(U,$J,358.3,17293,0)
+484 ;;=L89.010^^59^697^78
+485 ;;^UTILITY(U,$J,358.3,17293,1,0)
+486 ;;=^358.31IA^4^2
+487 ;;^UTILITY(U,$J,358.3,17293,1,3,0)
+488 ;;=3^Pressure Ulcer Right Elbow,Unstageable
+489 ;;^UTILITY(U,$J,358.3,17293,1,4,0)
+490 ;;=4^L89.010
+491 ;;^UTILITY(U,$J,358.3,17293,2)
+492 ;;=^5009337
+493 ;;^UTILITY(U,$J,358.3,17294,0)
+494 ;;=L89.011^^59^697^73
+495 ;;^UTILITY(U,$J,358.3,17294,1,0)
+496 ;;=^358.31IA^4^2
+497 ;;^UTILITY(U,$J,358.3,17294,1,3,0)
+498 ;;=3^Pressure Ulcer Right Elbow,Stage 1
+499 ;;^UTILITY(U,$J,358.3,17294,1,4,0)
+500 ;;=4^L89.011
+501 ;;^UTILITY(U,$J,358.3,17294,2)
+502 ;;=^5009338
+503 ;;^UTILITY(U,$J,358.3,17295,0)
+504 ;;=L89.012^^59^697^74
+505 ;;^UTILITY(U,$J,358.3,17295,1,0)
+506 ;;=^358.31IA^4^2
+507 ;;^UTILITY(U,$J,358.3,17295,1,3,0)
+508 ;;=3^Pressure Ulcer Right Elbow,Stage 2
+509 ;;^UTILITY(U,$J,358.3,17295,1,4,0)
+510 ;;=4^L89.012
+511 ;;^UTILITY(U,$J,358.3,17295,2)
+512 ;;=^5009339
+513 ;;^UTILITY(U,$J,358.3,17296,0)
+514 ;;=L89.013^^59^697^75
+515 ;;^UTILITY(U,$J,358.3,17296,1,0)
+516 ;;=^358.31IA^4^2
+517 ;;^UTILITY(U,$J,358.3,17296,1,3,0)
+518 ;;=3^Pressure Ulcer Right Elbow,Stage 3
+519 ;;^UTILITY(U,$J,358.3,17296,1,4,0)
+520 ;;=4^L89.013
+521 ;;^UTILITY(U,$J,358.3,17296,2)
+522 ;;=^5009340
+523 ;;^UTILITY(U,$J,358.3,17297,0)
+524 ;;=L89.014^^59^697^76
+525 ;;^UTILITY(U,$J,358.3,17297,1,0)
+526 ;;=^358.31IA^4^2
+527 ;;^UTILITY(U,$J,358.3,17297,1,3,0)
+528 ;;=3^Pressure Ulcer Right Elbow,Stage 4
+529 ;;^UTILITY(U,$J,358.3,17297,1,4,0)
+530 ;;=4^L89.014
+531 ;;^UTILITY(U,$J,358.3,17297,2)
+532 ;;=^5009341
+533 ;;^UTILITY(U,$J,358.3,17298,0)
+534 ;;=L89.019^^59^697^77
+535 ;;^UTILITY(U,$J,358.3,17298,1,0)
+536 ;;=^358.31IA^4^2
+537 ;;^UTILITY(U,$J,358.3,17298,1,3,0)
+538 ;;=3^Pressure Ulcer Right Elbow,Unspec Stage
+539 ;;^UTILITY(U,$J,358.3,17298,1,4,0)
+540 ;;=4^L89.019
+541 ;;^UTILITY(U,$J,358.3,17298,2)
+542 ;;=^5133648
+543 ;;^UTILITY(U,$J,358.3,17299,0)
+544 ;;=L89.029^^59^697^29
+545 ;;^UTILITY(U,$J,358.3,17299,1,0)
+546 ;;=^358.31IA^4^2
+547 ;;^UTILITY(U,$J,358.3,17299,1,3,0)
+548 ;;=3^Pressure Ulcer Left Elbow,Unspec Stage
+549 ;;^UTILITY(U,$J,358.3,17299,1,4,0)
+550 ;;=4^L89.029
+551 ;;^UTILITY(U,$J,358.3,17299,2)
+552 ;;=^5133649
+553 ;;^UTILITY(U,$J,358.3,17300,0)
+554 ;;=L89.020^^59^697^30
+555 ;;^UTILITY(U,$J,358.3,17300,1,0)
+556 ;;=^358.31IA^4^2
+557 ;;^UTILITY(U,$J,358.3,17300,1,3,0)
+558 ;;=3^Pressure Ulcer Left Elbow,Unstageable
+559 ;;^UTILITY(U,$J,358.3,17300,1,4,0)
+560 ;;=4^L89.020
+561 ;;^UTILITY(U,$J,358.3,17300,2)
+562 ;;=^5009342
+563 ;;^UTILITY(U,$J,358.3,17301,0)
+564 ;;=L89.021^^59^697^25
+565 ;;^UTILITY(U,$J,358.3,17301,1,0)
+566 ;;=^358.31IA^4^2
+567 ;;^UTILITY(U,$J,358.3,17301,1,3,0)
+568 ;;=3^Pressure Ulcer Left Elbow,Stage 1
+569 ;;^UTILITY(U,$J,358.3,17301,1,4,0)
+570 ;;=4^L89.021
+571 ;;^UTILITY(U,$J,358.3,17301,2)
+572 ;;=^5009343
+573 ;;^UTILITY(U,$J,358.3,17302,0)
+574 ;;=L89.022^^59^697^26
+575 ;;^UTILITY(U,$J,358.3,17302,1,0)
+576 ;;=^358.31IA^4^2
+577 ;;^UTILITY(U,$J,358.3,17302,1,3,0)
+578 ;;=3^Pressure Ulcer Left Elbow,Stage 2
+579 ;;^UTILITY(U,$J,358.3,17302,1,4,0)
+580 ;;=4^L89.022
+581 ;;^UTILITY(U,$J,358.3,17302,2)
+582 ;;=^5009344
+583 ;;^UTILITY(U,$J,358.3,17303,0)
+584 ;;=L89.023^^59^697^27
+585 ;;^UTILITY(U,$J,358.3,17303,1,0)
+586 ;;=^358.31IA^4^2
+587 ;;^UTILITY(U,$J,358.3,17303,1,3,0)
+588 ;;=3^Pressure Ulcer Left Elbow,Stage 3
+589 ;;^UTILITY(U,$J,358.3,17303,1,4,0)
+590 ;;=4^L89.023
+591 ;;^UTILITY(U,$J,358.3,17303,2)
+592 ;;=^5009345
+593 ;;^UTILITY(U,$J,358.3,17304,0)
+594 ;;=L89.024^^59^697^28
+595 ;;^UTILITY(U,$J,358.3,17304,1,0)
+596 ;;=^358.31IA^4^2
+597 ;;^UTILITY(U,$J,358.3,17304,1,3,0)
+598 ;;=3^Pressure Ulcer Left Elbow,Stage 4
+599 ;;^UTILITY(U,$J,358.3,17304,1,4,0)
+600 ;;=4^L89.024
+601 ;;^UTILITY(U,$J,358.3,17304,2)
+602 ;;=^5009346
+603 ;;^UTILITY(U,$J,358.3,17305,0)
+604 ;;=L89.110^^59^697^102
+605 ;;^UTILITY(U,$J,358.3,17305,1,0)
+606 ;;=^358.31IA^4^2
+607 ;;^UTILITY(U,$J,358.3,17305,1,3,0)
+608 ;;=3^Pressure Ulcer Right Upper Back,Unstageable
+609 ;;^UTILITY(U,$J,358.3,17305,1,4,0)
+610 ;;=4^L89.110
+611 ;;^UTILITY(U,$J,358.3,17305,2)
+612 ;;=^5009352
+613 ;;^UTILITY(U,$J,358.3,17306,0)
+614 ;;=L89.111^^59^697^97
+615 ;;^UTILITY(U,$J,358.3,17306,1,0)
+616 ;;=^358.31IA^4^2
+617 ;;^UTILITY(U,$J,358.3,17306,1,3,0)
+618 ;;=3^Pressure Ulcer Right Upper Back,Stage 1
+619 ;;^UTILITY(U,$J,358.3,17306,1,4,0)
+620 ;;=4^L89.111
+621 ;;^UTILITY(U,$J,358.3,17306,2)
+622 ;;=^5009353
+623 ;;^UTILITY(U,$J,358.3,17307,0)
+624 ;;=L89.112^^59^697^98
+625 ;;^UTILITY(U,$J,358.3,17307,1,0)
+626 ;;=^358.31IA^4^2
+627 ;;^UTILITY(U,$J,358.3,17307,1,3,0)
+628 ;;=3^Pressure Ulcer Right Upper Back,Stage 2
+629 ;;^UTILITY(U,$J,358.3,17307,1,4,0)
+630 ;;=4^L89.112
+631 ;;^UTILITY(U,$J,358.3,17307,2)
+632 ;;=^5009354
+633 ;;^UTILITY(U,$J,358.3,17308,0)
+634 ;;=L89.113^^59^697^99
+635 ;;^UTILITY(U,$J,358.3,17308,1,0)
+636 ;;=^358.31IA^4^2
+637 ;;^UTILITY(U,$J,358.3,17308,1,3,0)
+638 ;;=3^Pressure Ulcer Right Upper Back,Stage 3
+639 ;;^UTILITY(U,$J,358.3,17308,1,4,0)
+640 ;;=4^L89.113
+641 ;;^UTILITY(U,$J,358.3,17308,2)
+642 ;;=^5009355
+643 ;;^UTILITY(U,$J,358.3,17309,0)
+644 ;;=L89.114^^59^697^100
+645 ;;^UTILITY(U,$J,358.3,17309,1,0)
+646 ;;=^358.31IA^4^2
+647 ;;^UTILITY(U,$J,358.3,17309,1,3,0)
+648 ;;=3^Pressure Ulcer Right Upper Back,Stage 4
+649 ;;^UTILITY(U,$J,358.3,17309,1,4,0)
+650 ;;=4^L89.114
+651 ;;^UTILITY(U,$J,358.3,17309,2)
+652 ;;=^5009356
+653 ;;^UTILITY(U,$J,358.3,17310,0)
+654 ;;=L89.119^^59^697^101
+655 ;;^UTILITY(U,$J,358.3,17310,1,0)
+656 ;;=^358.31IA^4^2
+657 ;;^UTILITY(U,$J,358.3,17310,1,3,0)
+658 ;;=3^Pressure Ulcer Right Upper Back,Stage Unspec
