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

IBDEI04I.m

Go to the documentation of this file.
IBDEI04I ; ; 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,10886,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10886,1,1,0)
 ;;=1^96372
 ;;^UTILITY(U,$J,358.3,10886,1,2,0)
 ;;=2^Ther/Proph/Diag Inj,SC/IM
 ;;^UTILITY(U,$J,358.3,10887,0)
 ;;=99506^^47^492^1^^^^1
 ;;^UTILITY(U,$J,358.3,10887,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10887,1,1,0)
 ;;=1^99506
 ;;^UTILITY(U,$J,358.3,10887,1,2,0)
 ;;=2^Home Visit-IM Injection
 ;;^UTILITY(U,$J,358.3,10888,0)
 ;;=90658^^47^493^4^^^^1
 ;;^UTILITY(U,$J,358.3,10888,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10888,1,1,0)
 ;;=1^90658
 ;;^UTILITY(U,$J,358.3,10888,1,2,0)
 ;;=2^Flu Vacc Multi Dose Vials (AFLURIA)
 ;;^UTILITY(U,$J,358.3,10889,0)
 ;;=90732^^47^493^14^^^^1
 ;;^UTILITY(U,$J,358.3,10889,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10889,1,1,0)
 ;;=1^90732
 ;;^UTILITY(U,$J,358.3,10889,1,2,0)
 ;;=2^Pneumovax 23 (Pneumococcal Vaccine)
 ;;^UTILITY(U,$J,358.3,10890,0)
 ;;=90656^^47^493^6^^^^1
 ;;^UTILITY(U,$J,358.3,10890,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10890,1,1,0)
 ;;=1^90656
 ;;^UTILITY(U,$J,358.3,10890,1,2,0)
 ;;=2^Flu Vacc Sgle Dose Syr (Afluria)
 ;;^UTILITY(U,$J,358.3,10891,0)
 ;;=90662^^47^493^3^^^^1
 ;;^UTILITY(U,$J,358.3,10891,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10891,1,1,0)
 ;;=1^90662
 ;;^UTILITY(U,$J,358.3,10891,1,2,0)
 ;;=2^Flu Vacc High Dose Syr (Fluzone)
 ;;^UTILITY(U,$J,358.3,10892,0)
 ;;=90670^^47^493^15^^^^1
 ;;^UTILITY(U,$J,358.3,10892,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10892,1,1,0)
 ;;=1^90670
 ;;^UTILITY(U,$J,358.3,10892,1,2,0)
 ;;=2^Prevnar 13 (Pneumococcal Vaccine)
 ;;^UTILITY(U,$J,358.3,10893,0)
 ;;=90625^^47^493^1^^^^1
 ;;^UTILITY(U,$J,358.3,10893,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10893,1,1,0)
 ;;=1^90625
 ;;^UTILITY(U,$J,358.3,10893,1,2,0)
 ;;=2^Cholera Vacc,Oral
 ;;^UTILITY(U,$J,358.3,10894,0)
 ;;=90620^^47^493^11^^^^1
 ;;^UTILITY(U,$J,358.3,10894,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10894,1,1,0)
 ;;=1^90620
 ;;^UTILITY(U,$J,358.3,10894,1,2,0)
 ;;=2^Meningococcal Vacc,Protein/Out Mem IM
 ;;^UTILITY(U,$J,358.3,10895,0)
 ;;=90621^^47^493^10^^^^1
 ;;^UTILITY(U,$J,358.3,10895,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10895,1,1,0)
 ;;=1^90621
 ;;^UTILITY(U,$J,358.3,10895,1,2,0)
 ;;=2^Meningococcal Vacc,Lipoprotein IM
 ;;^UTILITY(U,$J,358.3,10896,0)
 ;;=90697^^47^493^2^^^^1
 ;;^UTILITY(U,$J,358.3,10896,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10896,1,1,0)
 ;;=1^90697
 ;;^UTILITY(U,$J,358.3,10896,1,2,0)
 ;;=2^DTAP-IPV-Hib-HebB Vacc IM
 ;;^UTILITY(U,$J,358.3,10897,0)
 ;;=90686^^47^493^7^^^^1
 ;;^UTILITY(U,$J,358.3,10897,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10897,1,1,0)
 ;;=1^90686
 ;;^UTILITY(U,$J,358.3,10897,1,2,0)
 ;;=2^Flu Vacc Sgle Dose Syr (FLUARIX)
 ;;^UTILITY(U,$J,358.3,10898,0)
 ;;=90674^^47^493^9^^^^1
 ;;^UTILITY(U,$J,358.3,10898,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10898,1,1,0)
 ;;=1^90674
 ;;^UTILITY(U,$J,358.3,10898,1,2,0)
 ;;=2^Flu Vaccine Lo Dose Syr (Flucelvax)
 ;;^UTILITY(U,$J,358.3,10899,0)
 ;;=90682^^47^493^5^^^^1
 ;;^UTILITY(U,$J,358.3,10899,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10899,1,1,0)
 ;;=1^90682
 ;;^UTILITY(U,$J,358.3,10899,1,2,0)
 ;;=2^Flu Vacc Sgle Dose (Flublok RIV4)
 ;;^UTILITY(U,$J,358.3,10900,0)
 ;;=90750^^47^493^16^^^^1
 ;;^UTILITY(U,$J,358.3,10900,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10900,1,1,0)
 ;;=1^90750
 ;;^UTILITY(U,$J,358.3,10900,1,2,0)
 ;;=2^Zoster (Shingles) Vaccine-IM
 ;;^UTILITY(U,$J,358.3,10901,0)
 ;;=90736^^47^493^17^^^^1
 ;;^UTILITY(U,$J,358.3,10901,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10901,1,1,0)
 ;;=1^90736
 ;;^UTILITY(U,$J,358.3,10901,1,2,0)
 ;;=2^Zoster (Shingles) Vaccine-SQ
 ;;^UTILITY(U,$J,358.3,10902,0)
 ;;=90653^^47^493^8^^^^1
 ;;^UTILITY(U,$J,358.3,10902,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10902,1,1,0)
 ;;=1^90653
 ;;^UTILITY(U,$J,358.3,10902,1,2,0)
 ;;=2^Flu Vacc Sgle Dose Syr (Fluad allV3)
 ;;^UTILITY(U,$J,358.3,10903,0)
 ;;=90671^^47^493^12^^^^1
 ;;^UTILITY(U,$J,358.3,10903,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10903,1,1,0)
 ;;=1^90671
 ;;^UTILITY(U,$J,358.3,10903,1,2,0)
 ;;=2^Pneumococcal Vaccine 15 Val,IM
 ;;^UTILITY(U,$J,358.3,10904,0)
 ;;=90677^^47^493^13^^^^1
 ;;^UTILITY(U,$J,358.3,10904,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10904,1,1,0)
 ;;=1^90677
 ;;^UTILITY(U,$J,358.3,10904,1,2,0)
 ;;=2^Pneumococcal Vaccine 20 Val,IM
 ;;^UTILITY(U,$J,358.3,10905,0)
 ;;=90471^^47^494^1^^^^1
 ;;^UTILITY(U,$J,358.3,10905,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10905,1,1,0)
 ;;=1^90471
 ;;^UTILITY(U,$J,358.3,10905,1,2,0)
 ;;=2^Admin of 1 Immunization
 ;;^UTILITY(U,$J,358.3,10906,0)
 ;;=90472^^47^494^2^^^^1
 ;;^UTILITY(U,$J,358.3,10906,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10906,1,1,0)
 ;;=1^90472
 ;;^UTILITY(U,$J,358.3,10906,1,2,0)
 ;;=2^Admin of Ea Addl Immunization
 ;;^UTILITY(U,$J,358.3,10907,0)
 ;;=94664^^47^495^1^^^^1
 ;;^UTILITY(U,$J,358.3,10907,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10907,1,1,0)
 ;;=1^94664
 ;;^UTILITY(U,$J,358.3,10907,1,2,0)
 ;;=2^Evaluate Pt Use of Inhaler
 ;;^UTILITY(U,$J,358.3,10908,0)
 ;;=36415^^47^496^2^^^^1
 ;;^UTILITY(U,$J,358.3,10908,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10908,1,1,0)
 ;;=1^36415
 ;;^UTILITY(U,$J,358.3,10908,1,2,0)
 ;;=2^Routine Venipuncture
 ;;^UTILITY(U,$J,358.3,10909,0)
 ;;=36416^^47^496^1^^^^1
 ;;^UTILITY(U,$J,358.3,10909,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10909,1,1,0)
 ;;=1^36416
 ;;^UTILITY(U,$J,358.3,10909,1,2,0)
 ;;=2^Finger/Heel/Ear Stick
 ;;^UTILITY(U,$J,358.3,10910,0)
 ;;=90887^^47^497^1^^^^1
 ;;^UTILITY(U,$J,358.3,10910,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10910,1,1,0)
 ;;=1^90887
 ;;^UTILITY(U,$J,358.3,10910,1,2,0)
 ;;=2^Consultation w/ Family
 ;;^UTILITY(U,$J,358.3,10911,0)
 ;;=99510^^47^497^2^^^^1
 ;;^UTILITY(U,$J,358.3,10911,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10911,1,1,0)
 ;;=1^99510
 ;;^UTILITY(U,$J,358.3,10911,1,2,0)
 ;;=2^Home Visit-Ind/Fam/Marriage Couns
 ;;^UTILITY(U,$J,358.3,10912,0)
 ;;=97602^^47^498^1^^^^1
 ;;^UTILITY(U,$J,358.3,10912,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10912,1,1,0)
 ;;=1^97602
 ;;^UTILITY(U,$J,358.3,10912,1,2,0)
 ;;=2^Wound(S) Care And Instruction
 ;;^UTILITY(U,$J,358.3,10913,0)
 ;;=51701^^47^499^1^^^^1
 ;;^UTILITY(U,$J,358.3,10913,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10913,1,1,0)
 ;;=1^51701
 ;;^UTILITY(U,$J,358.3,10913,1,2,0)
 ;;=2^Insert Bladder Catheter
 ;;^UTILITY(U,$J,358.3,10914,0)
 ;;=51702^^47^499^2^^^^1
 ;;^UTILITY(U,$J,358.3,10914,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10914,1,1,0)
 ;;=1^51702
 ;;^UTILITY(U,$J,358.3,10914,1,2,0)
 ;;=2^Insert Foley Catheter
 ;;^UTILITY(U,$J,358.3,10915,0)
 ;;=86580^^47^500^1^^^^1
 ;;^UTILITY(U,$J,358.3,10915,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10915,1,1,0)
 ;;=1^86580
 ;;^UTILITY(U,$J,358.3,10915,1,2,0)
 ;;=2^TB Intradermal Test
 ;;^UTILITY(U,$J,358.3,10916,0)
 ;;=99001^^47^501^1^^^^1
 ;;^UTILITY(U,$J,358.3,10916,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10916,1,1,0)
 ;;=1^99001
 ;;^UTILITY(U,$J,358.3,10916,1,2,0)
 ;;=2^Specimen Handling
 ;;^UTILITY(U,$J,358.3,10917,0)
 ;;=99366^^47^502^1^^^^1
 ;;^UTILITY(U,$J,358.3,10917,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10917,1,1,0)
 ;;=1^99366
 ;;^UTILITY(U,$J,358.3,10917,1,2,0)
 ;;=2^Team Conf w/ Pt By HC Pro,30+ Min
 ;;^UTILITY(U,$J,358.3,10918,0)
 ;;=99368^^47^502^2^^^^1
 ;;^UTILITY(U,$J,358.3,10918,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10918,1,1,0)
 ;;=1^99368
 ;;^UTILITY(U,$J,358.3,10918,1,2,0)
 ;;=2^Team Conf w/o Pt by Nonphys,30+ Min
 ;;^UTILITY(U,$J,358.3,10919,0)
 ;;=99503^^47^503^5^^^^1
 ;;^UTILITY(U,$J,358.3,10919,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10919,1,1,0)
 ;;=1^99503
 ;;^UTILITY(U,$J,358.3,10919,1,2,0)
 ;;=2^Home Visit-Respiratory Tx Care
 ;;^UTILITY(U,$J,358.3,10920,0)
 ;;=99504^^47^503^4^^^^1
 ;;^UTILITY(U,$J,358.3,10920,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10920,1,1,0)
 ;;=1^99504
 ;;^UTILITY(U,$J,358.3,10920,1,2,0)
 ;;=2^Home Visit-Mech Ventilator Care
 ;;^UTILITY(U,$J,358.3,10921,0)
 ;;=99507^^47^503^1^^^^1
 ;;^UTILITY(U,$J,358.3,10921,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10921,1,1,0)
 ;;=1^99507
 ;;^UTILITY(U,$J,358.3,10921,1,2,0)
 ;;=2^Home Visit-Cath Maintenance
 ;;^UTILITY(U,$J,358.3,10922,0)
 ;;=99511^^47^503^2^^^^1
 ;;^UTILITY(U,$J,358.3,10922,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10922,1,1,0)
 ;;=1^99511
 ;;^UTILITY(U,$J,358.3,10922,1,2,0)
 ;;=2^Home Visit-Fecal/Enema Mgmt
 ;;^UTILITY(U,$J,358.3,10923,0)
 ;;=99505^^47^503^6^^^^1
 ;;^UTILITY(U,$J,358.3,10923,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10923,1,1,0)
 ;;=1^99505
 ;;^UTILITY(U,$J,358.3,10923,1,2,0)
 ;;=2^Home Visit-Stoma Care
 ;;^UTILITY(U,$J,358.3,10924,0)
 ;;=99512^^47^503^3^^^^1
 ;;^UTILITY(U,$J,358.3,10924,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10924,1,1,0)
 ;;=1^99512
 ;;^UTILITY(U,$J,358.3,10924,1,2,0)
 ;;=2^Home Visit-Hemodialysis
 ;;^UTILITY(U,$J,358.3,10925,0)
 ;;=99601^^47^504^1^^^^1
 ;;^UTILITY(U,$J,358.3,10925,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10925,1,1,0)
 ;;=1^99601
 ;;^UTILITY(U,$J,358.3,10925,1,2,0)
 ;;=2^Home Infsn,Up to 2 hrs
 ;;^UTILITY(U,$J,358.3,10926,0)
 ;;=99602^^47^504^2^^^^1
 ;;^UTILITY(U,$J,358.3,10926,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10926,1,1,0)
 ;;=1^99602
 ;;^UTILITY(U,$J,358.3,10926,1,2,0)
 ;;=2^Home Infsn,Ea Addl Hr
 ;;^UTILITY(U,$J,358.3,10927,0)
 ;;=G0496^^47^505^1^^^^1
 ;;^UTILITY(U,$J,358.3,10927,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10927,1,1,0)
 ;;=1^G0496
 ;;^UTILITY(U,$J,358.3,10927,1,2,0)
 ;;=2^HHC ED/TRAIN BY LPN,EA 15 min
 ;;^UTILITY(U,$J,358.3,10928,0)
 ;;=G0495^^47^505^2^^^^1
 ;;^UTILITY(U,$J,358.3,10928,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10928,1,1,0)
 ;;=1^G0495
 ;;^UTILITY(U,$J,358.3,10928,1,2,0)
 ;;=2^HHC ED/TRAIN BY RN,EA 15 min
 ;;^UTILITY(U,$J,358.3,10929,0)
 ;;=G0494^^47^505^3^^^^1
 ;;^UTILITY(U,$J,358.3,10929,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10929,1,1,0)
 ;;=1^G0494
 ;;^UTILITY(U,$J,358.3,10929,1,2,0)
 ;;=2^HHC LPN OBS/ASSSESS EA 15 min
 ;;^UTILITY(U,$J,358.3,10930,0)
 ;;=G0162^^47^505^4^^^^1
 ;;^UTILITY(U,$J,358.3,10930,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10930,1,1,0)
 ;;=1^G0162
 ;;^UTILITY(U,$J,358.3,10930,1,2,0)
 ;;=2^HHC RN E&M PLAN SVS, 15 min
 ;;^UTILITY(U,$J,358.3,10931,0)
 ;;=G0493^^47^505^5^^^^1
 ;;^UTILITY(U,$J,358.3,10931,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10931,1,1,0)
 ;;=1^G0493
 ;;^UTILITY(U,$J,358.3,10931,1,2,0)
 ;;=2^HHC RN OBS/ASSESS EA 15 min
 ;;^UTILITY(U,$J,358.3,10932,0)
 ;;=G0300^^47^505^6^^^^1
 ;;^UTILITY(U,$J,358.3,10932,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10932,1,1,0)
 ;;=1^G0300
 ;;^UTILITY(U,$J,358.3,10932,1,2,0)
 ;;=2^HHC Svc LPN,Direct Skilled Svc,Ea 15 min
 ;;^UTILITY(U,$J,358.3,10933,0)
 ;;=G0299^^47^505^7^^^^1
 ;;^UTILITY(U,$J,358.3,10933,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,10933,1,1,0)
 ;;=1^G0299
 ;;^UTILITY(U,$J,358.3,10933,1,2,0)
 ;;=2^HHC Svc RN,Direct Skilled Svc,Ea 15 min
 ;;^UTILITY(U,$J,358.3,10934,0)
 ;;=L89.010^^48^506^78
 ;;^UTILITY(U,$J,358.3,10934,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10934,1,3,0)
 ;;=3^Pressure Ulcer Right Elbow,Unstageable
 ;;^UTILITY(U,$J,358.3,10934,1,4,0)
 ;;=4^L89.010
 ;;^UTILITY(U,$J,358.3,10934,2)
 ;;=^5009337
 ;;^UTILITY(U,$J,358.3,10935,0)
 ;;=L89.011^^48^506^73
 ;;^UTILITY(U,$J,358.3,10935,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10935,1,3,0)
 ;;=3^Pressure Ulcer Right Elbow,Stage 1
 ;;^UTILITY(U,$J,358.3,10935,1,4,0)
 ;;=4^L89.011
 ;;^UTILITY(U,$J,358.3,10935,2)
 ;;=^5009338
 ;;^UTILITY(U,$J,358.3,10936,0)
 ;;=L89.012^^48^506^74
 ;;^UTILITY(U,$J,358.3,10936,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10936,1,3,0)
 ;;=3^Pressure Ulcer Right Elbow,Stage 2
 ;;^UTILITY(U,$J,358.3,10936,1,4,0)
 ;;=4^L89.012
 ;;^UTILITY(U,$J,358.3,10936,2)
 ;;=^5009339
 ;;^UTILITY(U,$J,358.3,10937,0)
 ;;=L89.013^^48^506^75
 ;;^UTILITY(U,$J,358.3,10937,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10937,1,3,0)
 ;;=3^Pressure Ulcer Right Elbow,Stage 3
 ;;^UTILITY(U,$J,358.3,10937,1,4,0)
 ;;=4^L89.013
 ;;^UTILITY(U,$J,358.3,10937,2)
 ;;=^5009340
 ;;^UTILITY(U,$J,358.3,10938,0)
 ;;=L89.014^^48^506^76
 ;;^UTILITY(U,$J,358.3,10938,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10938,1,3,0)
 ;;=3^Pressure Ulcer Right Elbow,Stage 4
 ;;^UTILITY(U,$J,358.3,10938,1,4,0)
 ;;=4^L89.014
 ;;^UTILITY(U,$J,358.3,10938,2)
 ;;=^5009341
 ;;^UTILITY(U,$J,358.3,10939,0)
 ;;=L89.019^^48^506^77
 ;;^UTILITY(U,$J,358.3,10939,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10939,1,3,0)
 ;;=3^Pressure Ulcer Right Elbow,Unspec Stage
 ;;^UTILITY(U,$J,358.3,10939,1,4,0)
 ;;=4^L89.019
 ;;^UTILITY(U,$J,358.3,10939,2)
 ;;=^5133648
 ;;^UTILITY(U,$J,358.3,10940,0)
 ;;=L89.029^^48^506^29
 ;;^UTILITY(U,$J,358.3,10940,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10940,1,3,0)
 ;;=3^Pressure Ulcer Left Elbow,Unspec Stage
 ;;^UTILITY(U,$J,358.3,10940,1,4,0)
 ;;=4^L89.029
 ;;^UTILITY(U,$J,358.3,10940,2)
 ;;=^5133649
 ;;^UTILITY(U,$J,358.3,10941,0)
 ;;=L89.020^^48^506^30
 ;;^UTILITY(U,$J,358.3,10941,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10941,1,3,0)
 ;;=3^Pressure Ulcer Left Elbow,Unstageable
 ;;^UTILITY(U,$J,358.3,10941,1,4,0)
 ;;=4^L89.020
 ;;^UTILITY(U,$J,358.3,10941,2)
 ;;=^5009342
 ;;^UTILITY(U,$J,358.3,10942,0)
 ;;=L89.021^^48^506^25
 ;;^UTILITY(U,$J,358.3,10942,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10942,1,3,0)
 ;;=3^Pressure Ulcer Left Elbow,Stage 1
 ;;^UTILITY(U,$J,358.3,10942,1,4,0)
 ;;=4^L89.021
 ;;^UTILITY(U,$J,358.3,10942,2)
 ;;=^5009343
 ;;^UTILITY(U,$J,358.3,10943,0)
 ;;=L89.022^^48^506^26
 ;;^UTILITY(U,$J,358.3,10943,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10943,1,3,0)
 ;;=3^Pressure Ulcer Left Elbow,Stage 2
 ;;^UTILITY(U,$J,358.3,10943,1,4,0)
 ;;=4^L89.022
 ;;^UTILITY(U,$J,358.3,10943,2)
 ;;=^5009344
 ;;^UTILITY(U,$J,358.3,10944,0)
 ;;=L89.023^^48^506^27
 ;;^UTILITY(U,$J,358.3,10944,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10944,1,3,0)
 ;;=3^Pressure Ulcer Left Elbow,Stage 3
 ;;^UTILITY(U,$J,358.3,10944,1,4,0)
 ;;=4^L89.023
 ;;^UTILITY(U,$J,358.3,10944,2)
 ;;=^5009345
 ;;^UTILITY(U,$J,358.3,10945,0)
 ;;=L89.024^^48^506^28
 ;;^UTILITY(U,$J,358.3,10945,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10945,1,3,0)
 ;;=3^Pressure Ulcer Left Elbow,Stage 4
 ;;^UTILITY(U,$J,358.3,10945,1,4,0)
 ;;=4^L89.024
 ;;^UTILITY(U,$J,358.3,10945,2)
 ;;=^5009346
 ;;^UTILITY(U,$J,358.3,10946,0)
 ;;=L89.110^^48^506^102
 ;;^UTILITY(U,$J,358.3,10946,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10946,1,3,0)
 ;;=3^Pressure Ulcer Right Upper Back,Unstageable
 ;;^UTILITY(U,$J,358.3,10946,1,4,0)
 ;;=4^L89.110
 ;;^UTILITY(U,$J,358.3,10946,2)
 ;;=^5009352
 ;;^UTILITY(U,$J,358.3,10947,0)
 ;;=L89.111^^48^506^97
 ;;^UTILITY(U,$J,358.3,10947,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10947,1,3,0)
 ;;=3^Pressure Ulcer Right Upper Back,Stage 1
 ;;^UTILITY(U,$J,358.3,10947,1,4,0)
 ;;=4^L89.111
 ;;^UTILITY(U,$J,358.3,10947,2)
 ;;=^5009353
 ;;^UTILITY(U,$J,358.3,10948,0)
 ;;=L89.112^^48^506^98
 ;;^UTILITY(U,$J,358.3,10948,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10948,1,3,0)
 ;;=3^Pressure Ulcer Right Upper Back,Stage 2
 ;;^UTILITY(U,$J,358.3,10948,1,4,0)
 ;;=4^L89.112
 ;;^UTILITY(U,$J,358.3,10948,2)
 ;;=^5009354
 ;;^UTILITY(U,$J,358.3,10949,0)
 ;;=L89.113^^48^506^99
 ;;^UTILITY(U,$J,358.3,10949,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10949,1,3,0)
 ;;=3^Pressure Ulcer Right Upper Back,Stage 3
 ;;^UTILITY(U,$J,358.3,10949,1,4,0)
 ;;=4^L89.113
 ;;^UTILITY(U,$J,358.3,10949,2)
 ;;=^5009355
 ;;^UTILITY(U,$J,358.3,10950,0)
 ;;=L89.114^^48^506^100
 ;;^UTILITY(U,$J,358.3,10950,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10950,1,3,0)
 ;;=3^Pressure Ulcer Right Upper Back,Stage 4
 ;;^UTILITY(U,$J,358.3,10950,1,4,0)
 ;;=4^L89.114
 ;;^UTILITY(U,$J,358.3,10950,2)
 ;;=^5009356
 ;;^UTILITY(U,$J,358.3,10951,0)
 ;;=L89.119^^48^506^101
 ;;^UTILITY(U,$J,358.3,10951,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10951,1,3,0)
 ;;=3^Pressure Ulcer Right Upper Back,Stage Unspec
 ;;^UTILITY(U,$J,358.3,10951,1,4,0)
 ;;=4^L89.119
 ;;^UTILITY(U,$J,358.3,10951,2)
 ;;=^5009357
 ;;^UTILITY(U,$J,358.3,10952,0)
 ;;=L89.120^^48^506^54
 ;;^UTILITY(U,$J,358.3,10952,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10952,1,3,0)
 ;;=3^Pressure Ulcer Left Upper Back,Unstageable
 ;;^UTILITY(U,$J,358.3,10952,1,4,0)
 ;;=4^L89.120
 ;;^UTILITY(U,$J,358.3,10952,2)
 ;;=^5009358
 ;;^UTILITY(U,$J,358.3,10953,0)
 ;;=L89.121^^48^506^49
 ;;^UTILITY(U,$J,358.3,10953,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10953,1,3,0)
 ;;=3^Pressure Ulcer Left Upper Back,Stage 1
 ;;^UTILITY(U,$J,358.3,10953,1,4,0)
 ;;=4^L89.121
 ;;^UTILITY(U,$J,358.3,10953,2)
 ;;=^5009359
 ;;^UTILITY(U,$J,358.3,10954,0)
 ;;=L89.122^^48^506^50
 ;;^UTILITY(U,$J,358.3,10954,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10954,1,3,0)
 ;;=3^Pressure Ulcer Left Upper Back,Stage 2
 ;;^UTILITY(U,$J,358.3,10954,1,4,0)
 ;;=4^L89.122
 ;;^UTILITY(U,$J,358.3,10954,2)
 ;;=^5009360
 ;;^UTILITY(U,$J,358.3,10955,0)
 ;;=L89.123^^48^506^51
 ;;^UTILITY(U,$J,358.3,10955,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10955,1,3,0)
 ;;=3^Pressure Ulcer Left Upper Back,Stage 3
 ;;^UTILITY(U,$J,358.3,10955,1,4,0)
 ;;=4^L89.123
 ;;^UTILITY(U,$J,358.3,10955,2)
 ;;=^5009361
 ;;^UTILITY(U,$J,358.3,10956,0)
 ;;=L89.124^^48^506^52
 ;;^UTILITY(U,$J,358.3,10956,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10956,1,3,0)
 ;;=3^Pressure Ulcer Left Upper Back,Stage 4
 ;;^UTILITY(U,$J,358.3,10956,1,4,0)
 ;;=4^L89.124
 ;;^UTILITY(U,$J,358.3,10956,2)
 ;;=^5009362
 ;;^UTILITY(U,$J,358.3,10957,0)
 ;;=L89.129^^48^506^53
 ;;^UTILITY(U,$J,358.3,10957,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10957,1,3,0)
 ;;=3^Pressure Ulcer Left Upper Back,Stage Unspec
 ;;^UTILITY(U,$J,358.3,10957,1,4,0)
 ;;=4^L89.129
 ;;^UTILITY(U,$J,358.3,10957,2)
 ;;=^5133652
 ;;^UTILITY(U,$J,358.3,10958,0)
 ;;=L89.130^^48^506^96
 ;;^UTILITY(U,$J,358.3,10958,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10958,1,3,0)
 ;;=3^Pressure Ulcer Right Lower Back,Unstageable
 ;;^UTILITY(U,$J,358.3,10958,1,4,0)
 ;;=4^L89.130
 ;;^UTILITY(U,$J,358.3,10958,2)
 ;;=^5009363
 ;;^UTILITY(U,$J,358.3,10959,0)
 ;;=L89.131^^48^506^91
 ;;^UTILITY(U,$J,358.3,10959,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10959,1,3,0)
 ;;=3^Pressure Ulcer Right Lower Back,Stage 1
 ;;^UTILITY(U,$J,358.3,10959,1,4,0)
 ;;=4^L89.131
 ;;^UTILITY(U,$J,358.3,10959,2)
 ;;=^5009364
 ;;^UTILITY(U,$J,358.3,10960,0)
 ;;=L89.132^^48^506^92
 ;;^UTILITY(U,$J,358.3,10960,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10960,1,3,0)
 ;;=3^Pressure Ulcer Right Lower Back,Stage 2
 ;;^UTILITY(U,$J,358.3,10960,1,4,0)
 ;;=4^L89.132
 ;;^UTILITY(U,$J,358.3,10960,2)
 ;;=^5009365
 ;;^UTILITY(U,$J,358.3,10961,0)
 ;;=L89.133^^48^506^93
 ;;^UTILITY(U,$J,358.3,10961,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,10961,1,3,0)
 ;;=3^Pressure Ulcer Right Lower Back,Stage 3
 ;;^UTILITY(U,$J,358.3,10961,1,4,0)
 ;;=4^L89.133
 ;;^UTILITY(U,$J,358.3,10961,2)
 ;;=^5009366
 ;;^UTILITY(U,$J,358.3,10962,0)
 ;;=L89.134^^48^506^94