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

IBDEI073.m

Go to the documentation of this file.
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