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

IBDEI09I.m

Go to the documentation of this file.
IBDEI09I ; ; 01-FEB-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2021
 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,22962,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,22962,1,2,0)
 ;;=2^Casirivimab & Imdevimab 2400mg           
 ;;^UTILITY(U,$J,358.3,22962,1,3,0)
 ;;=3^Q0243
 ;;^UTILITY(U,$J,358.3,22963,0)
 ;;=M0243^^104^1145^8^^^^1
 ;;^UTILITY(U,$J,358.3,22963,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,22963,1,2,0)
 ;;=2^Casirivimab & Imdevimab Infusion         
 ;;^UTILITY(U,$J,358.3,22963,1,3,0)
 ;;=3^M0243
 ;;^UTILITY(U,$J,358.3,22964,0)
 ;;=91300^^104^1145^9^^^^1
 ;;^UTILITY(U,$J,358.3,22964,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,22964,1,2,0)
 ;;=2^SARSCOV2 Vaccine 0.3ml (Pfizer)          
 ;;^UTILITY(U,$J,358.3,22964,1,3,0)
 ;;=3^91300
 ;;^UTILITY(U,$J,358.3,22965,0)
 ;;=91301^^104^1145^10^^^^1
 ;;^UTILITY(U,$J,358.3,22965,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,22965,1,2,0)
 ;;=2^SARSCOV2 Vaccine 0.5ml (Moderna)         
 ;;^UTILITY(U,$J,358.3,22965,1,3,0)
 ;;=3^91301
 ;;^UTILITY(U,$J,358.3,22966,0)
 ;;=94760^^105^1146^1^^^^1
 ;;^UTILITY(U,$J,358.3,22966,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22966,1,1,0)
 ;;=1^94760
 ;;^UTILITY(U,$J,358.3,22966,1,2,0)
 ;;=2^Noninvasive Ear/Pulse Oximetry
 ;;^UTILITY(U,$J,358.3,22967,0)
 ;;=93770^^105^1147^1^^^^1
 ;;^UTILITY(U,$J,358.3,22967,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22967,1,1,0)
 ;;=1^93770
 ;;^UTILITY(U,$J,358.3,22967,1,2,0)
 ;;=2^Venous Blood Pressure Reading
 ;;^UTILITY(U,$J,358.3,22968,0)
 ;;=97535^^105^1148^2^^^^1
 ;;^UTILITY(U,$J,358.3,22968,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22968,1,1,0)
 ;;=1^97535
 ;;^UTILITY(U,$J,358.3,22968,1,2,0)
 ;;=2^Self-Care Mgmt Train per 15 Min
 ;;^UTILITY(U,$J,358.3,22969,0)
 ;;=99509^^105^1148^1^^^^1
 ;;^UTILITY(U,$J,358.3,22969,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22969,1,1,0)
 ;;=1^99509
 ;;^UTILITY(U,$J,358.3,22969,1,2,0)
 ;;=2^Home Visit-ADL/Personal Care
 ;;^UTILITY(U,$J,358.3,22970,0)
 ;;=J3420^^105^1149^7^^^^1
 ;;^UTILITY(U,$J,358.3,22970,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22970,1,1,0)
 ;;=1^J3420
 ;;^UTILITY(U,$J,358.3,22970,1,2,0)
 ;;=2^Vitamin B12,Up To 1000Mcg
 ;;^UTILITY(U,$J,358.3,22971,0)
 ;;=J0885^^105^1149^3^^^^1
 ;;^UTILITY(U,$J,358.3,22971,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22971,1,1,0)
 ;;=1^J0885
 ;;^UTILITY(U,$J,358.3,22971,1,2,0)
 ;;=2^Epojen, Non-Esrd,1000U
 ;;^UTILITY(U,$J,358.3,22972,0)
 ;;=J2680^^105^1149^4^^^^1
 ;;^UTILITY(U,$J,358.3,22972,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22972,1,1,0)
 ;;=1^J2680
 ;;^UTILITY(U,$J,358.3,22972,1,2,0)
 ;;=2^Fluphenazine Decanoate 25mg
 ;;^UTILITY(U,$J,358.3,22973,0)
 ;;=J0881^^105^1149^2^^^^1
 ;;^UTILITY(U,$J,358.3,22973,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22973,1,1,0)
 ;;=1^J0881
 ;;^UTILITY(U,$J,358.3,22973,1,2,0)
 ;;=2^Darbepoetin Alfa (Non-Esrd) 1Mcg
 ;;^UTILITY(U,$J,358.3,22974,0)
 ;;=J0882^^105^1149^1^^^^1
 ;;^UTILITY(U,$J,358.3,22974,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22974,1,1,0)
 ;;=1^J0882
 ;;^UTILITY(U,$J,358.3,22974,1,2,0)
 ;;=2^Darbepoetin Alfa (Esrd) 1Mcg
 ;;^UTILITY(U,$J,358.3,22975,0)
 ;;=J1071^^105^1149^5^^^^1
 ;;^UTILITY(U,$J,358.3,22975,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22975,1,1,0)
 ;;=1^J1071
 ;;^UTILITY(U,$J,358.3,22975,1,2,0)
 ;;=2^Testosterone Cypionate 1mg
 ;;^UTILITY(U,$J,358.3,22976,0)
 ;;=J3121^^105^1149^6^^^^1
 ;;^UTILITY(U,$J,358.3,22976,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22976,1,1,0)
 ;;=1^J3121
 ;;^UTILITY(U,$J,358.3,22976,1,2,0)
 ;;=2^Testosterone Enanthate 1mg
 ;;^UTILITY(U,$J,358.3,22977,0)
 ;;=96372^^105^1150^2^^^^1
 ;;^UTILITY(U,$J,358.3,22977,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22977,1,1,0)
 ;;=1^96372
 ;;^UTILITY(U,$J,358.3,22977,1,2,0)
 ;;=2^Ther/Proph/Diag Inj,SC/IM
 ;;^UTILITY(U,$J,358.3,22978,0)
 ;;=99506^^105^1150^1^^^^1
 ;;^UTILITY(U,$J,358.3,22978,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22978,1,1,0)
 ;;=1^99506
 ;;^UTILITY(U,$J,358.3,22978,1,2,0)
 ;;=2^Home Visit-IM Injection
 ;;^UTILITY(U,$J,358.3,22979,0)
 ;;=90658^^105^1151^4^^^^1
 ;;^UTILITY(U,$J,358.3,22979,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22979,1,1,0)
 ;;=1^90658
 ;;^UTILITY(U,$J,358.3,22979,1,2,0)
 ;;=2^Flu Vacc Multi Dose Vials (AFLURIA)
 ;;^UTILITY(U,$J,358.3,22980,0)
 ;;=90732^^105^1151^12^^^^1
 ;;^UTILITY(U,$J,358.3,22980,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22980,1,1,0)
 ;;=1^90732
 ;;^UTILITY(U,$J,358.3,22980,1,2,0)
 ;;=2^Pneumovax 23 (Pneumococcal Vaccine)
 ;;^UTILITY(U,$J,358.3,22981,0)
 ;;=90656^^105^1151^6^^^^1
 ;;^UTILITY(U,$J,358.3,22981,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22981,1,1,0)
 ;;=1^90656
 ;;^UTILITY(U,$J,358.3,22981,1,2,0)
 ;;=2^Flu Vacc Sgle Dose Syr (Afluria)
 ;;^UTILITY(U,$J,358.3,22982,0)
 ;;=90662^^105^1151^3^^^^1
 ;;^UTILITY(U,$J,358.3,22982,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22982,1,1,0)
 ;;=1^90662
 ;;^UTILITY(U,$J,358.3,22982,1,2,0)
 ;;=2^Flu Vacc High Dose Syr (Fluzone)
 ;;^UTILITY(U,$J,358.3,22983,0)
 ;;=90670^^105^1151^13^^^^1
 ;;^UTILITY(U,$J,358.3,22983,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22983,1,1,0)
 ;;=1^90670
 ;;^UTILITY(U,$J,358.3,22983,1,2,0)
 ;;=2^Prevnar 13 (Pneumococcal Vaccine)
 ;;^UTILITY(U,$J,358.3,22984,0)
 ;;=90625^^105^1151^1^^^^1
 ;;^UTILITY(U,$J,358.3,22984,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22984,1,1,0)
 ;;=1^90625
 ;;^UTILITY(U,$J,358.3,22984,1,2,0)
 ;;=2^Cholera Vacc,Oral
 ;;^UTILITY(U,$J,358.3,22985,0)
 ;;=90620^^105^1151^11^^^^1
 ;;^UTILITY(U,$J,358.3,22985,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22985,1,1,0)
 ;;=1^90620
 ;;^UTILITY(U,$J,358.3,22985,1,2,0)
 ;;=2^Meningococcal Vacc,Protein/Out Mem IM
 ;;^UTILITY(U,$J,358.3,22986,0)
 ;;=90621^^105^1151^10^^^^1
 ;;^UTILITY(U,$J,358.3,22986,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22986,1,1,0)
 ;;=1^90621
 ;;^UTILITY(U,$J,358.3,22986,1,2,0)
 ;;=2^Meningococcal Vacc,Lipoprotein IM
 ;;^UTILITY(U,$J,358.3,22987,0)
 ;;=90697^^105^1151^2^^^^1
 ;;^UTILITY(U,$J,358.3,22987,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22987,1,1,0)
 ;;=1^90697
 ;;^UTILITY(U,$J,358.3,22987,1,2,0)
 ;;=2^DTAP-IPV-Hib-HebB Vacc IM
 ;;^UTILITY(U,$J,358.3,22988,0)
 ;;=90686^^105^1151^7^^^^1
 ;;^UTILITY(U,$J,358.3,22988,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22988,1,1,0)
 ;;=1^90686
 ;;^UTILITY(U,$J,358.3,22988,1,2,0)
 ;;=2^Flu Vacc Sgle Dose Syr (FLUARIX)
 ;;^UTILITY(U,$J,358.3,22989,0)
 ;;=90674^^105^1151^9^^^^1
 ;;^UTILITY(U,$J,358.3,22989,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22989,1,1,0)
 ;;=1^90674
 ;;^UTILITY(U,$J,358.3,22989,1,2,0)
 ;;=2^Flu Vaccine Lo Dose Syr (Flucelvax)
 ;;^UTILITY(U,$J,358.3,22990,0)
 ;;=90682^^105^1151^5^^^^1
 ;;^UTILITY(U,$J,358.3,22990,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22990,1,1,0)
 ;;=1^90682
 ;;^UTILITY(U,$J,358.3,22990,1,2,0)
 ;;=2^Flu Vacc Sgle Dose (Flublok RIV4)
 ;;^UTILITY(U,$J,358.3,22991,0)
 ;;=90750^^105^1151^14^^^^1
 ;;^UTILITY(U,$J,358.3,22991,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22991,1,1,0)
 ;;=1^90750
 ;;^UTILITY(U,$J,358.3,22991,1,2,0)
 ;;=2^Zoster (Shingles) Vaccine-IM
 ;;^UTILITY(U,$J,358.3,22992,0)
 ;;=90736^^105^1151^15^^^^1
 ;;^UTILITY(U,$J,358.3,22992,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22992,1,1,0)
 ;;=1^90736
 ;;^UTILITY(U,$J,358.3,22992,1,2,0)
 ;;=2^Zoster (Shingles) Vaccine-SQ
 ;;^UTILITY(U,$J,358.3,22993,0)
 ;;=90653^^105^1151^8^^^^1
 ;;^UTILITY(U,$J,358.3,22993,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22993,1,1,0)
 ;;=1^90653
 ;;^UTILITY(U,$J,358.3,22993,1,2,0)
 ;;=2^Flu Vacc Sgle Dose Syr (Fluad allV3)
 ;;^UTILITY(U,$J,358.3,22994,0)
 ;;=90471^^105^1152^1^^^^1
 ;;^UTILITY(U,$J,358.3,22994,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22994,1,1,0)
 ;;=1^90471
 ;;^UTILITY(U,$J,358.3,22994,1,2,0)
 ;;=2^Admin of 1 Immunization
 ;;^UTILITY(U,$J,358.3,22995,0)
 ;;=90472^^105^1152^2^^^^1
 ;;^UTILITY(U,$J,358.3,22995,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22995,1,1,0)
 ;;=1^90472
 ;;^UTILITY(U,$J,358.3,22995,1,2,0)
 ;;=2^Admin of Ea Addl Immunization
 ;;^UTILITY(U,$J,358.3,22996,0)
 ;;=94664^^105^1153^1^^^^1
 ;;^UTILITY(U,$J,358.3,22996,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22996,1,1,0)
 ;;=1^94664
 ;;^UTILITY(U,$J,358.3,22996,1,2,0)
 ;;=2^Evaluate Pt Use of Inhaler
 ;;^UTILITY(U,$J,358.3,22997,0)
 ;;=36415^^105^1154^2^^^^1
 ;;^UTILITY(U,$J,358.3,22997,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22997,1,1,0)
 ;;=1^36415
 ;;^UTILITY(U,$J,358.3,22997,1,2,0)
 ;;=2^Routine Venipuncture
 ;;^UTILITY(U,$J,358.3,22998,0)
 ;;=36416^^105^1154^1^^^^1
 ;;^UTILITY(U,$J,358.3,22998,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22998,1,1,0)
 ;;=1^36416
 ;;^UTILITY(U,$J,358.3,22998,1,2,0)
 ;;=2^Finger/Heel/Ear Stick
 ;;^UTILITY(U,$J,358.3,22999,0)
 ;;=90887^^105^1155^1^^^^1
 ;;^UTILITY(U,$J,358.3,22999,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,22999,1,1,0)
 ;;=1^90887
 ;;^UTILITY(U,$J,358.3,22999,1,2,0)
 ;;=2^Consultation w/ Family
 ;;^UTILITY(U,$J,358.3,23000,0)
 ;;=99510^^105^1155^2^^^^1
 ;;^UTILITY(U,$J,358.3,23000,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23000,1,1,0)
 ;;=1^99510
 ;;^UTILITY(U,$J,358.3,23000,1,2,0)
 ;;=2^Home Visit-Ind/Fam/Marriage Couns
 ;;^UTILITY(U,$J,358.3,23001,0)
 ;;=97602^^105^1156^1^^^^1
 ;;^UTILITY(U,$J,358.3,23001,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23001,1,1,0)
 ;;=1^97602
 ;;^UTILITY(U,$J,358.3,23001,1,2,0)
 ;;=2^Wound(S) Care And Instruction
 ;;^UTILITY(U,$J,358.3,23002,0)
 ;;=51701^^105^1157^1^^^^1
 ;;^UTILITY(U,$J,358.3,23002,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23002,1,1,0)
 ;;=1^51701
 ;;^UTILITY(U,$J,358.3,23002,1,2,0)
 ;;=2^Insert Bladder Catheter
 ;;^UTILITY(U,$J,358.3,23003,0)
 ;;=51702^^105^1157^2^^^^1
 ;;^UTILITY(U,$J,358.3,23003,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23003,1,1,0)
 ;;=1^51702
 ;;^UTILITY(U,$J,358.3,23003,1,2,0)
 ;;=2^Insert Foley Catheter
 ;;^UTILITY(U,$J,358.3,23004,0)
 ;;=86580^^105^1158^1^^^^1
 ;;^UTILITY(U,$J,358.3,23004,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23004,1,1,0)
 ;;=1^86580
 ;;^UTILITY(U,$J,358.3,23004,1,2,0)
 ;;=2^TB Intradermal Test
 ;;^UTILITY(U,$J,358.3,23005,0)
 ;;=99001^^105^1159^1^^^^1
 ;;^UTILITY(U,$J,358.3,23005,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23005,1,1,0)
 ;;=1^99001
 ;;^UTILITY(U,$J,358.3,23005,1,2,0)
 ;;=2^Specimen Handling
 ;;^UTILITY(U,$J,358.3,23006,0)
 ;;=99366^^105^1160^1^^^^1
 ;;^UTILITY(U,$J,358.3,23006,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23006,1,1,0)
 ;;=1^99366
 ;;^UTILITY(U,$J,358.3,23006,1,2,0)
 ;;=2^Team Conf w/ Pt By HC Pro,30+ Min
 ;;^UTILITY(U,$J,358.3,23007,0)
 ;;=99368^^105^1160^2^^^^1
 ;;^UTILITY(U,$J,358.3,23007,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23007,1,1,0)
 ;;=1^99368
 ;;^UTILITY(U,$J,358.3,23007,1,2,0)
 ;;=2^Team Conf w/o Pt by Nonphys,30+ Min
 ;;^UTILITY(U,$J,358.3,23008,0)
 ;;=99503^^105^1161^5^^^^1
 ;;^UTILITY(U,$J,358.3,23008,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23008,1,1,0)
 ;;=1^99503
 ;;^UTILITY(U,$J,358.3,23008,1,2,0)
 ;;=2^Home Visit-Respiratory Tx Care
 ;;^UTILITY(U,$J,358.3,23009,0)
 ;;=99504^^105^1161^4^^^^1
 ;;^UTILITY(U,$J,358.3,23009,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23009,1,1,0)
 ;;=1^99504
 ;;^UTILITY(U,$J,358.3,23009,1,2,0)
 ;;=2^Home Visit-Mech Ventilator Care
 ;;^UTILITY(U,$J,358.3,23010,0)
 ;;=99507^^105^1161^1^^^^1
 ;;^UTILITY(U,$J,358.3,23010,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23010,1,1,0)
 ;;=1^99507
 ;;^UTILITY(U,$J,358.3,23010,1,2,0)
 ;;=2^Home Visit-Cath Maintenance
 ;;^UTILITY(U,$J,358.3,23011,0)
 ;;=99511^^105^1161^2^^^^1
 ;;^UTILITY(U,$J,358.3,23011,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23011,1,1,0)
 ;;=1^99511
 ;;^UTILITY(U,$J,358.3,23011,1,2,0)
 ;;=2^Home Visit-Fecal/Enema Mgmt
 ;;^UTILITY(U,$J,358.3,23012,0)
 ;;=99505^^105^1161^6^^^^1
 ;;^UTILITY(U,$J,358.3,23012,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23012,1,1,0)
 ;;=1^99505
 ;;^UTILITY(U,$J,358.3,23012,1,2,0)
 ;;=2^Home Visit-Stoma Care
 ;;^UTILITY(U,$J,358.3,23013,0)
 ;;=99512^^105^1161^3^^^^1
 ;;^UTILITY(U,$J,358.3,23013,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23013,1,1,0)
 ;;=1^99512
 ;;^UTILITY(U,$J,358.3,23013,1,2,0)
 ;;=2^Home Visit-Hemodialysis
 ;;^UTILITY(U,$J,358.3,23014,0)
 ;;=99601^^105^1162^1^^^^1
 ;;^UTILITY(U,$J,358.3,23014,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23014,1,1,0)
 ;;=1^99601
 ;;^UTILITY(U,$J,358.3,23014,1,2,0)
 ;;=2^Home Infsn,Up to 2 hrs
 ;;^UTILITY(U,$J,358.3,23015,0)
 ;;=99602^^105^1162^2^^^^1
 ;;^UTILITY(U,$J,358.3,23015,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23015,1,1,0)
 ;;=1^99602
 ;;^UTILITY(U,$J,358.3,23015,1,2,0)
 ;;=2^Home Infsn,Ea Addl Hr
 ;;^UTILITY(U,$J,358.3,23016,0)
 ;;=G0496^^105^1163^1^^^^1
 ;;^UTILITY(U,$J,358.3,23016,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23016,1,1,0)
 ;;=1^G0496
 ;;^UTILITY(U,$J,358.3,23016,1,2,0)
 ;;=2^HHC ED/TRAIN BY LPN,EA 15 min
 ;;^UTILITY(U,$J,358.3,23017,0)
 ;;=G0495^^105^1163^2^^^^1
 ;;^UTILITY(U,$J,358.3,23017,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23017,1,1,0)
 ;;=1^G0495
 ;;^UTILITY(U,$J,358.3,23017,1,2,0)
 ;;=2^HHC ED/TRAIN BY RN,EA 15 min
 ;;^UTILITY(U,$J,358.3,23018,0)
 ;;=G0494^^105^1163^3^^^^1
 ;;^UTILITY(U,$J,358.3,23018,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23018,1,1,0)
 ;;=1^G0494
 ;;^UTILITY(U,$J,358.3,23018,1,2,0)
 ;;=2^HHC LPN OBS/ASSSESS EA 15 min
 ;;^UTILITY(U,$J,358.3,23019,0)
 ;;=G0162^^105^1163^4^^^^1
 ;;^UTILITY(U,$J,358.3,23019,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23019,1,1,0)
 ;;=1^G0162
 ;;^UTILITY(U,$J,358.3,23019,1,2,0)
 ;;=2^HHC RN E&M PLAN SVS, 15 min
 ;;^UTILITY(U,$J,358.3,23020,0)
 ;;=G0493^^105^1163^5^^^^1
 ;;^UTILITY(U,$J,358.3,23020,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23020,1,1,0)
 ;;=1^G0493
 ;;^UTILITY(U,$J,358.3,23020,1,2,0)
 ;;=2^HHC RN OBS/ASSESS EA 15 min
 ;;^UTILITY(U,$J,358.3,23021,0)
 ;;=G0300^^105^1163^6^^^^1
 ;;^UTILITY(U,$J,358.3,23021,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23021,1,1,0)
 ;;=1^G0300
 ;;^UTILITY(U,$J,358.3,23021,1,2,0)
 ;;=2^HHC Svc LPN,Direct Skilled Svc,Ea 15 min
 ;;^UTILITY(U,$J,358.3,23022,0)
 ;;=G0299^^105^1163^7^^^^1
 ;;^UTILITY(U,$J,358.3,23022,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,23022,1,1,0)
 ;;=1^G0299
 ;;^UTILITY(U,$J,358.3,23022,1,2,0)
 ;;=2^HHC Svc RN,Direct Skilled Svc,Ea 15 min
 ;;^UTILITY(U,$J,358.3,23023,0)
 ;;=L89.010^^106^1164^78
 ;;^UTILITY(U,$J,358.3,23023,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23023,1,3,0)
 ;;=3^Pressure Ulcer Right Elbow,Unstageable
 ;;^UTILITY(U,$J,358.3,23023,1,4,0)
 ;;=4^L89.010
 ;;^UTILITY(U,$J,358.3,23023,2)
 ;;=^5009337
 ;;^UTILITY(U,$J,358.3,23024,0)
 ;;=L89.011^^106^1164^73
 ;;^UTILITY(U,$J,358.3,23024,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23024,1,3,0)
 ;;=3^Pressure Ulcer Right Elbow,Stage 1
 ;;^UTILITY(U,$J,358.3,23024,1,4,0)
 ;;=4^L89.011
 ;;^UTILITY(U,$J,358.3,23024,2)
 ;;=^5009338
 ;;^UTILITY(U,$J,358.3,23025,0)
 ;;=L89.012^^106^1164^74
 ;;^UTILITY(U,$J,358.3,23025,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23025,1,3,0)
 ;;=3^Pressure Ulcer Right Elbow,Stage 2
 ;;^UTILITY(U,$J,358.3,23025,1,4,0)
 ;;=4^L89.012
 ;;^UTILITY(U,$J,358.3,23025,2)
 ;;=^5009339
 ;;^UTILITY(U,$J,358.3,23026,0)
 ;;=L89.013^^106^1164^75
 ;;^UTILITY(U,$J,358.3,23026,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23026,1,3,0)
 ;;=3^Pressure Ulcer Right Elbow,Stage 3
 ;;^UTILITY(U,$J,358.3,23026,1,4,0)
 ;;=4^L89.013
 ;;^UTILITY(U,$J,358.3,23026,2)
 ;;=^5009340
 ;;^UTILITY(U,$J,358.3,23027,0)
 ;;=L89.014^^106^1164^76
 ;;^UTILITY(U,$J,358.3,23027,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23027,1,3,0)
 ;;=3^Pressure Ulcer Right Elbow,Stage 4
 ;;^UTILITY(U,$J,358.3,23027,1,4,0)
 ;;=4^L89.014
 ;;^UTILITY(U,$J,358.3,23027,2)
 ;;=^5009341
 ;;^UTILITY(U,$J,358.3,23028,0)
 ;;=L89.019^^106^1164^77
 ;;^UTILITY(U,$J,358.3,23028,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23028,1,3,0)
 ;;=3^Pressure Ulcer Right Elbow,Unspec Stage
 ;;^UTILITY(U,$J,358.3,23028,1,4,0)
 ;;=4^L89.019
 ;;^UTILITY(U,$J,358.3,23028,2)
 ;;=^5133648
 ;;^UTILITY(U,$J,358.3,23029,0)
 ;;=L89.029^^106^1164^29
 ;;^UTILITY(U,$J,358.3,23029,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23029,1,3,0)
 ;;=3^Pressure Ulcer Left Elbow,Unspec Stage
 ;;^UTILITY(U,$J,358.3,23029,1,4,0)
 ;;=4^L89.029
 ;;^UTILITY(U,$J,358.3,23029,2)
 ;;=^5133649
 ;;^UTILITY(U,$J,358.3,23030,0)
 ;;=L89.020^^106^1164^30
 ;;^UTILITY(U,$J,358.3,23030,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23030,1,3,0)
 ;;=3^Pressure Ulcer Left Elbow,Unstageable
 ;;^UTILITY(U,$J,358.3,23030,1,4,0)
 ;;=4^L89.020
 ;;^UTILITY(U,$J,358.3,23030,2)
 ;;=^5009342
 ;;^UTILITY(U,$J,358.3,23031,0)
 ;;=L89.021^^106^1164^25
 ;;^UTILITY(U,$J,358.3,23031,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23031,1,3,0)
 ;;=3^Pressure Ulcer Left Elbow,Stage 1
 ;;^UTILITY(U,$J,358.3,23031,1,4,0)
 ;;=4^L89.021
 ;;^UTILITY(U,$J,358.3,23031,2)
 ;;=^5009343
 ;;^UTILITY(U,$J,358.3,23032,0)
 ;;=L89.022^^106^1164^26
 ;;^UTILITY(U,$J,358.3,23032,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23032,1,3,0)
 ;;=3^Pressure Ulcer Left Elbow,Stage 2
 ;;^UTILITY(U,$J,358.3,23032,1,4,0)
 ;;=4^L89.022
 ;;^UTILITY(U,$J,358.3,23032,2)
 ;;=^5009344
 ;;^UTILITY(U,$J,358.3,23033,0)
 ;;=L89.023^^106^1164^27
 ;;^UTILITY(U,$J,358.3,23033,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23033,1,3,0)
 ;;=3^Pressure Ulcer Left Elbow,Stage 3
 ;;^UTILITY(U,$J,358.3,23033,1,4,0)
 ;;=4^L89.023
 ;;^UTILITY(U,$J,358.3,23033,2)
 ;;=^5009345
 ;;^UTILITY(U,$J,358.3,23034,0)
 ;;=L89.024^^106^1164^28
 ;;^UTILITY(U,$J,358.3,23034,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23034,1,3,0)
 ;;=3^Pressure Ulcer Left Elbow,Stage 4
 ;;^UTILITY(U,$J,358.3,23034,1,4,0)
 ;;=4^L89.024
 ;;^UTILITY(U,$J,358.3,23034,2)
 ;;=^5009346
 ;;^UTILITY(U,$J,358.3,23035,0)
 ;;=L89.110^^106^1164^102
 ;;^UTILITY(U,$J,358.3,23035,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23035,1,3,0)
 ;;=3^Pressure Ulcer Right Upper Back,Unstageable
 ;;^UTILITY(U,$J,358.3,23035,1,4,0)
 ;;=4^L89.110
 ;;^UTILITY(U,$J,358.3,23035,2)
 ;;=^5009352
 ;;^UTILITY(U,$J,358.3,23036,0)
 ;;=L89.111^^106^1164^97
 ;;^UTILITY(U,$J,358.3,23036,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23036,1,3,0)
 ;;=3^Pressure Ulcer Right Upper Back,Stage 1
 ;;^UTILITY(U,$J,358.3,23036,1,4,0)
 ;;=4^L89.111
 ;;^UTILITY(U,$J,358.3,23036,2)
 ;;=^5009353
 ;;^UTILITY(U,$J,358.3,23037,0)
 ;;=L89.112^^106^1164^98
 ;;^UTILITY(U,$J,358.3,23037,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23037,1,3,0)
 ;;=3^Pressure Ulcer Right Upper Back,Stage 2
 ;;^UTILITY(U,$J,358.3,23037,1,4,0)
 ;;=4^L89.112
 ;;^UTILITY(U,$J,358.3,23037,2)
 ;;=^5009354
 ;;^UTILITY(U,$J,358.3,23038,0)
 ;;=L89.113^^106^1164^99
 ;;^UTILITY(U,$J,358.3,23038,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23038,1,3,0)
 ;;=3^Pressure Ulcer Right Upper Back,Stage 3
 ;;^UTILITY(U,$J,358.3,23038,1,4,0)
 ;;=4^L89.113
 ;;^UTILITY(U,$J,358.3,23038,2)
 ;;=^5009355
 ;;^UTILITY(U,$J,358.3,23039,0)
 ;;=L89.114^^106^1164^100
 ;;^UTILITY(U,$J,358.3,23039,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23039,1,3,0)
 ;;=3^Pressure Ulcer Right Upper Back,Stage 4
 ;;^UTILITY(U,$J,358.3,23039,1,4,0)
 ;;=4^L89.114
 ;;^UTILITY(U,$J,358.3,23039,2)
 ;;=^5009356