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

IBDEI08G.m

Go to the documentation of this file.
IBDEI08G ; ; 28-OCT-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;OCT 28, 2020
 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,20438,1,2,0)
 ;;=2^MENINGOCOCCAL VACCINE SQ
 ;;^UTILITY(U,$J,358.3,20438,1,3,0)
 ;;=3^90733
 ;;^UTILITY(U,$J,358.3,20439,0)
 ;;=90621^^86^934^19^^^^1
 ;;^UTILITY(U,$J,358.3,20439,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20439,1,2,0)
 ;;=2^MENINGOCOCCAL VACCINE,LIPOPROTEIN IM
 ;;^UTILITY(U,$J,358.3,20439,1,3,0)
 ;;=3^90621
 ;;^UTILITY(U,$J,358.3,20440,0)
 ;;=90620^^86^934^20^^^^1
 ;;^UTILITY(U,$J,358.3,20440,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20440,1,2,0)
 ;;=2^MENINGOCOCCAL VACCINE,PROTEIN/OUT MEM IM
 ;;^UTILITY(U,$J,358.3,20440,1,3,0)
 ;;=3^90620
 ;;^UTILITY(U,$J,358.3,20441,0)
 ;;=90713^^86^934^23^^^^1
 ;;^UTILITY(U,$J,358.3,20441,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20441,1,2,0)
 ;;=2^POLIOVIRUS,IPV SC/IM
 ;;^UTILITY(U,$J,358.3,20441,1,3,0)
 ;;=3^90713
 ;;^UTILITY(U,$J,358.3,20442,0)
 ;;=90715^^86^934^26^^^^1
 ;;^UTILITY(U,$J,358.3,20442,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20442,1,2,0)
 ;;=2^TDAP VACCINE
 ;;^UTILITY(U,$J,358.3,20442,1,3,0)
 ;;=3^90715
 ;;^UTILITY(U,$J,358.3,20443,0)
 ;;=90691^^86^934^27^^^^1
 ;;^UTILITY(U,$J,358.3,20443,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20443,1,2,0)
 ;;=2^TYPHOID VACCINE IM
 ;;^UTILITY(U,$J,358.3,20443,1,3,0)
 ;;=3^90691
 ;;^UTILITY(U,$J,358.3,20444,0)
 ;;=90716^^86^934^28^^^^1
 ;;^UTILITY(U,$J,358.3,20444,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20444,1,2,0)
 ;;=2^VARIVAX (CHICKEN POX) VACCINE
 ;;^UTILITY(U,$J,358.3,20444,1,3,0)
 ;;=3^90716
 ;;^UTILITY(U,$J,358.3,20445,0)
 ;;=96160^^86^935^4^^^^1
 ;;^UTILITY(U,$J,358.3,20445,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20445,1,2,0)
 ;;=2^HLTH RISK ASSESSMENT,PT FOCUSED
 ;;^UTILITY(U,$J,358.3,20445,1,3,0)
 ;;=3^96160
 ;;^UTILITY(U,$J,358.3,20446,0)
 ;;=96161^^86^935^3^^^^1
 ;;^UTILITY(U,$J,358.3,20446,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20446,1,2,0)
 ;;=2^HLTH RISK ASSESSMENT,CAREGIVR FOCUSED
 ;;^UTILITY(U,$J,358.3,20446,1,3,0)
 ;;=3^96161
 ;;^UTILITY(U,$J,358.3,20447,0)
 ;;=96110^^86^935^2^^^^1
 ;;^UTILITY(U,$J,358.3,20447,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20447,1,2,0)
 ;;=2^DEVELOPMENTAL SCREEN W/ SCORE
 ;;^UTILITY(U,$J,358.3,20447,1,3,0)
 ;;=3^96110
 ;;^UTILITY(U,$J,358.3,20448,0)
 ;;=96127^^86^935^1^^^^1
 ;;^UTILITY(U,$J,358.3,20448,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20448,1,2,0)
 ;;=2^BRIEF EMOTIONAL/BEHAV ASSESSMENT
 ;;^UTILITY(U,$J,358.3,20448,1,3,0)
 ;;=3^96127
 ;;^UTILITY(U,$J,358.3,20449,0)
 ;;=86485^^86^936^1^^^^1
 ;;^UTILITY(U,$J,358.3,20449,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20449,1,2,0)
 ;;=2^CANDIDA
 ;;^UTILITY(U,$J,358.3,20449,1,3,0)
 ;;=3^86485
 ;;^UTILITY(U,$J,358.3,20450,0)
 ;;=86486^^86^936^4^^^^1
 ;;^UTILITY(U,$J,358.3,20450,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20450,1,2,0)
 ;;=2^MUMPS
 ;;^UTILITY(U,$J,358.3,20450,1,3,0)
 ;;=3^86486
 ;;^UTILITY(U,$J,358.3,20451,0)
 ;;=86580^^86^936^5^^^^1
 ;;^UTILITY(U,$J,358.3,20451,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20451,1,2,0)
 ;;=2^TB
 ;;^UTILITY(U,$J,358.3,20451,1,3,0)
 ;;=3^86580
 ;;^UTILITY(U,$J,358.3,20452,0)
 ;;=95024^^86^936^3^^^^1
 ;;^UTILITY(U,$J,358.3,20452,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20452,1,2,0)
 ;;=2^INTRADERMALS (EACH)
 ;;^UTILITY(U,$J,358.3,20452,1,3,0)
 ;;=3^95024
 ;;^UTILITY(U,$J,358.3,20453,0)
 ;;=86510^^86^936^2^^^^1
 ;;^UTILITY(U,$J,358.3,20453,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20453,1,2,0)
 ;;=2^HISTOPLASMOSIS
 ;;^UTILITY(U,$J,358.3,20453,1,3,0)
 ;;=3^86510
 ;;^UTILITY(U,$J,358.3,20454,0)
 ;;=99395^^86^937^1^^^^1
 ;;^UTILITY(U,$J,358.3,20454,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20454,1,2,0)
 ;;=2^PREVENTIVE MED,EST PT 18-39
 ;;^UTILITY(U,$J,358.3,20454,1,3,0)
 ;;=3^99395
 ;;^UTILITY(U,$J,358.3,20455,0)
 ;;=99396^^86^937^2^^^^1
 ;;^UTILITY(U,$J,358.3,20455,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20455,1,2,0)
 ;;=2^PREVENTIVE MED,EST PT 40-64
 ;;^UTILITY(U,$J,358.3,20455,1,3,0)
 ;;=3^99396
 ;;^UTILITY(U,$J,358.3,20456,0)
 ;;=99397^^86^937^3^^^^1
 ;;^UTILITY(U,$J,358.3,20456,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20456,1,2,0)
 ;;=2^PREVENTIVE MED,EST PT > 64
 ;;^UTILITY(U,$J,358.3,20456,1,3,0)
 ;;=3^99397
 ;;^UTILITY(U,$J,358.3,20457,0)
 ;;=99385^^86^938^1^^^^1
 ;;^UTILITY(U,$J,358.3,20457,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20457,1,2,0)
 ;;=2^PREVENTIVE MED,NEW PT 18-39
 ;;^UTILITY(U,$J,358.3,20457,1,3,0)
 ;;=3^99385
 ;;^UTILITY(U,$J,358.3,20458,0)
 ;;=99386^^86^938^2^^^^1
 ;;^UTILITY(U,$J,358.3,20458,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20458,1,2,0)
 ;;=2^PREVENTIVE MED,NEW PT 40-64
 ;;^UTILITY(U,$J,358.3,20458,1,3,0)
 ;;=3^99386
 ;;^UTILITY(U,$J,358.3,20459,0)
 ;;=99387^^86^938^3^^^^1
 ;;^UTILITY(U,$J,358.3,20459,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20459,1,2,0)
 ;;=2^PREVENTIVE MED,NEW PT > 64
 ;;^UTILITY(U,$J,358.3,20459,1,3,0)
 ;;=3^99387
 ;;^UTILITY(U,$J,358.3,20460,0)
 ;;=99497^^86^939^1^^^^1
 ;;^UTILITY(U,$J,358.3,20460,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20460,1,2,0)
 ;;=2^ADVANCED CARE PLAN,30 MIN
 ;;^UTILITY(U,$J,358.3,20460,1,3,0)
 ;;=3^99497
 ;;^UTILITY(U,$J,358.3,20461,0)
 ;;=99498^^86^939^2^^^^1
 ;;^UTILITY(U,$J,358.3,20461,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20461,1,2,0)
 ;;=2^ADVANCED CARE PLAN,EA ADDL 30 MIN
 ;;^UTILITY(U,$J,358.3,20461,1,3,0)
 ;;=3^99498
 ;;^UTILITY(U,$J,358.3,20462,0)
 ;;=90471^^86^940^1^^^^1
 ;;^UTILITY(U,$J,358.3,20462,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20462,1,2,0)
 ;;=2^IMMUNIZATION ADMIN,1 VACCINE
 ;;^UTILITY(U,$J,358.3,20462,1,3,0)
 ;;=3^90471
 ;;^UTILITY(U,$J,358.3,20463,0)
 ;;=90472^^86^940^2^^^^1
 ;;^UTILITY(U,$J,358.3,20463,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20463,1,2,0)
 ;;=2^IMMUNIZATION ADMIN,EA ADDL VACCINE
 ;;^UTILITY(U,$J,358.3,20463,1,3,0)
 ;;=3^90472
 ;;^UTILITY(U,$J,358.3,20464,0)
 ;;=99340^^86^941^2^^^^1
 ;;^UTILITY(U,$J,358.3,20464,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20464,1,2,0)
 ;;=2^PHYS SUPV OF PT IN HOME/DOM/R-HOME,30+ MIN
 ;;^UTILITY(U,$J,358.3,20464,1,3,0)
 ;;=3^99340
 ;;^UTILITY(U,$J,358.3,20465,0)
 ;;=99375^^86^941^1^^^^1
 ;;^UTILITY(U,$J,358.3,20465,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,20465,1,2,0)
 ;;=2^HOME HEALTH CARE SUPERVISION,30 + MIN
 ;;^UTILITY(U,$J,358.3,20465,1,3,0)
 ;;=3^99375
 ;;^UTILITY(U,$J,358.3,20466,0)
 ;;=94760^^87^942^1^^^^1
 ;;^UTILITY(U,$J,358.3,20466,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20466,1,1,0)
 ;;=1^94760
 ;;^UTILITY(U,$J,358.3,20466,1,2,0)
 ;;=2^Noninvasive Ear/Pulse Oximetry
 ;;^UTILITY(U,$J,358.3,20467,0)
 ;;=93770^^87^943^1^^^^1
 ;;^UTILITY(U,$J,358.3,20467,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20467,1,1,0)
 ;;=1^93770
 ;;^UTILITY(U,$J,358.3,20467,1,2,0)
 ;;=2^Venous Blood Pressure Reading
 ;;^UTILITY(U,$J,358.3,20468,0)
 ;;=97535^^87^944^2^^^^1
 ;;^UTILITY(U,$J,358.3,20468,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20468,1,1,0)
 ;;=1^97535
 ;;^UTILITY(U,$J,358.3,20468,1,2,0)
 ;;=2^Self-Care Mgmt Train per 15 Min
 ;;^UTILITY(U,$J,358.3,20469,0)
 ;;=99509^^87^944^1^^^^1
 ;;^UTILITY(U,$J,358.3,20469,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20469,1,1,0)
 ;;=1^99509
 ;;^UTILITY(U,$J,358.3,20469,1,2,0)
 ;;=2^Home Visit-ADL/Personal Care
 ;;^UTILITY(U,$J,358.3,20470,0)
 ;;=J3420^^87^945^7^^^^1
 ;;^UTILITY(U,$J,358.3,20470,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20470,1,1,0)
 ;;=1^J3420
 ;;^UTILITY(U,$J,358.3,20470,1,2,0)
 ;;=2^Vitamin B12,Up To 1000Mcg
 ;;^UTILITY(U,$J,358.3,20471,0)
 ;;=J0885^^87^945^3^^^^1
 ;;^UTILITY(U,$J,358.3,20471,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20471,1,1,0)
 ;;=1^J0885
 ;;^UTILITY(U,$J,358.3,20471,1,2,0)
 ;;=2^Epojen, Non-Esrd,1000U
 ;;^UTILITY(U,$J,358.3,20472,0)
 ;;=J2680^^87^945^4^^^^1
 ;;^UTILITY(U,$J,358.3,20472,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20472,1,1,0)
 ;;=1^J2680
 ;;^UTILITY(U,$J,358.3,20472,1,2,0)
 ;;=2^Fluphenazine Decanoate 25mg
 ;;^UTILITY(U,$J,358.3,20473,0)
 ;;=J0881^^87^945^2^^^^1
 ;;^UTILITY(U,$J,358.3,20473,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20473,1,1,0)
 ;;=1^J0881
 ;;^UTILITY(U,$J,358.3,20473,1,2,0)
 ;;=2^Darbepoetin Alfa (Non-Esrd) 1Mcg
 ;;^UTILITY(U,$J,358.3,20474,0)
 ;;=J0882^^87^945^1^^^^1
 ;;^UTILITY(U,$J,358.3,20474,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20474,1,1,0)
 ;;=1^J0882
 ;;^UTILITY(U,$J,358.3,20474,1,2,0)
 ;;=2^Darbepoetin Alfa (Esrd) 1Mcg
 ;;^UTILITY(U,$J,358.3,20475,0)
 ;;=J1071^^87^945^5^^^^1
 ;;^UTILITY(U,$J,358.3,20475,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20475,1,1,0)
 ;;=1^J1071
 ;;^UTILITY(U,$J,358.3,20475,1,2,0)
 ;;=2^Testosterone Cypionate 1mg
 ;;^UTILITY(U,$J,358.3,20476,0)
 ;;=J3121^^87^945^6^^^^1
 ;;^UTILITY(U,$J,358.3,20476,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20476,1,1,0)
 ;;=1^J3121
 ;;^UTILITY(U,$J,358.3,20476,1,2,0)
 ;;=2^Testosterone Enanthate 1mg
 ;;^UTILITY(U,$J,358.3,20477,0)
 ;;=96372^^87^946^2^^^^1
 ;;^UTILITY(U,$J,358.3,20477,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20477,1,1,0)
 ;;=1^96372
 ;;^UTILITY(U,$J,358.3,20477,1,2,0)
 ;;=2^Ther/Proph/Diag Inj,SC/IM
 ;;^UTILITY(U,$J,358.3,20478,0)
 ;;=99506^^87^946^1^^^^1
 ;;^UTILITY(U,$J,358.3,20478,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20478,1,1,0)
 ;;=1^99506
 ;;^UTILITY(U,$J,358.3,20478,1,2,0)
 ;;=2^Home Visit-IM Injection
 ;;^UTILITY(U,$J,358.3,20479,0)
 ;;=90658^^87^947^4^^^^1
 ;;^UTILITY(U,$J,358.3,20479,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20479,1,1,0)
 ;;=1^90658
 ;;^UTILITY(U,$J,358.3,20479,1,2,0)
 ;;=2^Flu Vacc Multi Dose Vials (AFLURIA)
 ;;^UTILITY(U,$J,358.3,20480,0)
 ;;=90732^^87^947^12^^^^1
 ;;^UTILITY(U,$J,358.3,20480,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20480,1,1,0)
 ;;=1^90732
 ;;^UTILITY(U,$J,358.3,20480,1,2,0)
 ;;=2^Pneumovax 23 (Pneumococcal Vaccine)
 ;;^UTILITY(U,$J,358.3,20481,0)
 ;;=90656^^87^947^6^^^^1
 ;;^UTILITY(U,$J,358.3,20481,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20481,1,1,0)
 ;;=1^90656
 ;;^UTILITY(U,$J,358.3,20481,1,2,0)
 ;;=2^Flu Vacc Sgle Dose Syr (Afluria)
 ;;^UTILITY(U,$J,358.3,20482,0)
 ;;=90662^^87^947^3^^^^1
 ;;^UTILITY(U,$J,358.3,20482,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20482,1,1,0)
 ;;=1^90662
 ;;^UTILITY(U,$J,358.3,20482,1,2,0)
 ;;=2^Flu Vacc High Dose Syr (Fluzone)
 ;;^UTILITY(U,$J,358.3,20483,0)
 ;;=90670^^87^947^13^^^^1
 ;;^UTILITY(U,$J,358.3,20483,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20483,1,1,0)
 ;;=1^90670
 ;;^UTILITY(U,$J,358.3,20483,1,2,0)
 ;;=2^Prevnar 13 (Pneumococcal Vaccine)
 ;;^UTILITY(U,$J,358.3,20484,0)
 ;;=90625^^87^947^1^^^^1
 ;;^UTILITY(U,$J,358.3,20484,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20484,1,1,0)
 ;;=1^90625
 ;;^UTILITY(U,$J,358.3,20484,1,2,0)
 ;;=2^Cholera Vacc,Oral
 ;;^UTILITY(U,$J,358.3,20485,0)
 ;;=90620^^87^947^11^^^^1
 ;;^UTILITY(U,$J,358.3,20485,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20485,1,1,0)
 ;;=1^90620
 ;;^UTILITY(U,$J,358.3,20485,1,2,0)
 ;;=2^Meningococcal Vacc,Protein/Out Mem IM
 ;;^UTILITY(U,$J,358.3,20486,0)
 ;;=90621^^87^947^10^^^^1
 ;;^UTILITY(U,$J,358.3,20486,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20486,1,1,0)
 ;;=1^90621
 ;;^UTILITY(U,$J,358.3,20486,1,2,0)
 ;;=2^Meningococcal Vacc,Lipoprotein IM
 ;;^UTILITY(U,$J,358.3,20487,0)
 ;;=90697^^87^947^2^^^^1
 ;;^UTILITY(U,$J,358.3,20487,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20487,1,1,0)
 ;;=1^90697
 ;;^UTILITY(U,$J,358.3,20487,1,2,0)
 ;;=2^DTAP-IPV-Hib-HebB Vacc IM
 ;;^UTILITY(U,$J,358.3,20488,0)
 ;;=90686^^87^947^7^^^^1
 ;;^UTILITY(U,$J,358.3,20488,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20488,1,1,0)
 ;;=1^90686
 ;;^UTILITY(U,$J,358.3,20488,1,2,0)
 ;;=2^Flu Vacc Sgle Dose Syr (FLUARIX)
 ;;^UTILITY(U,$J,358.3,20489,0)
 ;;=90674^^87^947^9^^^^1
 ;;^UTILITY(U,$J,358.3,20489,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20489,1,1,0)
 ;;=1^90674
 ;;^UTILITY(U,$J,358.3,20489,1,2,0)
 ;;=2^Flu Vaccine Lo Dose Syr (Flucelvax)
 ;;^UTILITY(U,$J,358.3,20490,0)
 ;;=90682^^87^947^5^^^^1
 ;;^UTILITY(U,$J,358.3,20490,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20490,1,1,0)
 ;;=1^90682
 ;;^UTILITY(U,$J,358.3,20490,1,2,0)
 ;;=2^Flu Vacc Sgle Dose (Flublok RIV4)
 ;;^UTILITY(U,$J,358.3,20491,0)
 ;;=90750^^87^947^14^^^^1
 ;;^UTILITY(U,$J,358.3,20491,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20491,1,1,0)
 ;;=1^90750
 ;;^UTILITY(U,$J,358.3,20491,1,2,0)
 ;;=2^Zoster (Shingles) Vaccine-IM
 ;;^UTILITY(U,$J,358.3,20492,0)
 ;;=90736^^87^947^15^^^^1
 ;;^UTILITY(U,$J,358.3,20492,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20492,1,1,0)
 ;;=1^90736
 ;;^UTILITY(U,$J,358.3,20492,1,2,0)
 ;;=2^Zoster (Shingles) Vaccine-SQ
 ;;^UTILITY(U,$J,358.3,20493,0)
 ;;=90653^^87^947^8^^^^1
 ;;^UTILITY(U,$J,358.3,20493,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20493,1,1,0)
 ;;=1^90653
 ;;^UTILITY(U,$J,358.3,20493,1,2,0)
 ;;=2^Flu Vacc Sgle Dose Syr (Fluad allV3)
 ;;^UTILITY(U,$J,358.3,20494,0)
 ;;=90471^^87^948^1^^^^1
 ;;^UTILITY(U,$J,358.3,20494,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20494,1,1,0)
 ;;=1^90471
 ;;^UTILITY(U,$J,358.3,20494,1,2,0)
 ;;=2^Admin of 1 Immunization
 ;;^UTILITY(U,$J,358.3,20495,0)
 ;;=90472^^87^948^2^^^^1
 ;;^UTILITY(U,$J,358.3,20495,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20495,1,1,0)
 ;;=1^90472
 ;;^UTILITY(U,$J,358.3,20495,1,2,0)
 ;;=2^Admin of Ea Addl Immunization
 ;;^UTILITY(U,$J,358.3,20496,0)
 ;;=94664^^87^949^1^^^^1
 ;;^UTILITY(U,$J,358.3,20496,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20496,1,1,0)
 ;;=1^94664
 ;;^UTILITY(U,$J,358.3,20496,1,2,0)
 ;;=2^Evaluate Pt Use of Inhaler
 ;;^UTILITY(U,$J,358.3,20497,0)
 ;;=36415^^87^950^2^^^^1
 ;;^UTILITY(U,$J,358.3,20497,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20497,1,1,0)
 ;;=1^36415
 ;;^UTILITY(U,$J,358.3,20497,1,2,0)
 ;;=2^Routine Venipuncture
 ;;^UTILITY(U,$J,358.3,20498,0)
 ;;=36416^^87^950^1^^^^1
 ;;^UTILITY(U,$J,358.3,20498,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20498,1,1,0)
 ;;=1^36416
 ;;^UTILITY(U,$J,358.3,20498,1,2,0)
 ;;=2^Finger/Heel/Ear Stick
 ;;^UTILITY(U,$J,358.3,20499,0)
 ;;=90887^^87^951^1^^^^1
 ;;^UTILITY(U,$J,358.3,20499,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20499,1,1,0)
 ;;=1^90887
 ;;^UTILITY(U,$J,358.3,20499,1,2,0)
 ;;=2^Consultation w/ Family
 ;;^UTILITY(U,$J,358.3,20500,0)
 ;;=99510^^87^951^2^^^^1
 ;;^UTILITY(U,$J,358.3,20500,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20500,1,1,0)
 ;;=1^99510
 ;;^UTILITY(U,$J,358.3,20500,1,2,0)
 ;;=2^Home Visit-Ind/Fam/Marriage Couns
 ;;^UTILITY(U,$J,358.3,20501,0)
 ;;=97602^^87^952^1^^^^1
 ;;^UTILITY(U,$J,358.3,20501,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20501,1,1,0)
 ;;=1^97602
 ;;^UTILITY(U,$J,358.3,20501,1,2,0)
 ;;=2^Wound(S) Care And Instruction
 ;;^UTILITY(U,$J,358.3,20502,0)
 ;;=51701^^87^953^1^^^^1
 ;;^UTILITY(U,$J,358.3,20502,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20502,1,1,0)
 ;;=1^51701
 ;;^UTILITY(U,$J,358.3,20502,1,2,0)
 ;;=2^Insert Bladder Catheter
 ;;^UTILITY(U,$J,358.3,20503,0)
 ;;=51702^^87^953^2^^^^1
 ;;^UTILITY(U,$J,358.3,20503,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20503,1,1,0)
 ;;=1^51702
 ;;^UTILITY(U,$J,358.3,20503,1,2,0)
 ;;=2^Insert Foley Catheter
 ;;^UTILITY(U,$J,358.3,20504,0)
 ;;=86580^^87^954^1^^^^1
 ;;^UTILITY(U,$J,358.3,20504,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20504,1,1,0)
 ;;=1^86580
 ;;^UTILITY(U,$J,358.3,20504,1,2,0)
 ;;=2^TB Intradermal Test
 ;;^UTILITY(U,$J,358.3,20505,0)
 ;;=99001^^87^955^1^^^^1
 ;;^UTILITY(U,$J,358.3,20505,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20505,1,1,0)
 ;;=1^99001
 ;;^UTILITY(U,$J,358.3,20505,1,2,0)
 ;;=2^Specimen Handling
 ;;^UTILITY(U,$J,358.3,20506,0)
 ;;=99366^^87^956^1^^^^1
 ;;^UTILITY(U,$J,358.3,20506,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20506,1,1,0)
 ;;=1^99366
 ;;^UTILITY(U,$J,358.3,20506,1,2,0)
 ;;=2^Team Conf w/ Pt By HC Pro,30+ Min
 ;;^UTILITY(U,$J,358.3,20507,0)
 ;;=99368^^87^956^2^^^^1
 ;;^UTILITY(U,$J,358.3,20507,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20507,1,1,0)
 ;;=1^99368
 ;;^UTILITY(U,$J,358.3,20507,1,2,0)
 ;;=2^Team Conf w/o Pt by Nonphys,30+ Min
 ;;^UTILITY(U,$J,358.3,20508,0)
 ;;=99503^^87^957^5^^^^1
 ;;^UTILITY(U,$J,358.3,20508,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20508,1,1,0)
 ;;=1^99503
 ;;^UTILITY(U,$J,358.3,20508,1,2,0)
 ;;=2^Home Visit-Respiratory Tx Care
 ;;^UTILITY(U,$J,358.3,20509,0)
 ;;=99504^^87^957^4^^^^1
 ;;^UTILITY(U,$J,358.3,20509,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20509,1,1,0)
 ;;=1^99504
 ;;^UTILITY(U,$J,358.3,20509,1,2,0)
 ;;=2^Home Visit-Mech Ventilator Care
 ;;^UTILITY(U,$J,358.3,20510,0)
 ;;=99507^^87^957^1^^^^1
 ;;^UTILITY(U,$J,358.3,20510,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20510,1,1,0)
 ;;=1^99507
 ;;^UTILITY(U,$J,358.3,20510,1,2,0)
 ;;=2^Home Visit-Cath Maintenance
 ;;^UTILITY(U,$J,358.3,20511,0)
 ;;=99511^^87^957^2^^^^1
 ;;^UTILITY(U,$J,358.3,20511,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20511,1,1,0)
 ;;=1^99511
 ;;^UTILITY(U,$J,358.3,20511,1,2,0)
 ;;=2^Home Visit-Fecal/Enema Mgmt
 ;;^UTILITY(U,$J,358.3,20512,0)
 ;;=99505^^87^957^6^^^^1
 ;;^UTILITY(U,$J,358.3,20512,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20512,1,1,0)
 ;;=1^99505
 ;;^UTILITY(U,$J,358.3,20512,1,2,0)
 ;;=2^Home Visit-Stoma Care
 ;;^UTILITY(U,$J,358.3,20513,0)
 ;;=99512^^87^957^3^^^^1
 ;;^UTILITY(U,$J,358.3,20513,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20513,1,1,0)
 ;;=1^99512
 ;;^UTILITY(U,$J,358.3,20513,1,2,0)
 ;;=2^Home Visit-Hemodialysis
 ;;^UTILITY(U,$J,358.3,20514,0)
 ;;=99601^^87^958^1^^^^1
 ;;^UTILITY(U,$J,358.3,20514,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20514,1,1,0)
 ;;=1^99601
 ;;^UTILITY(U,$J,358.3,20514,1,2,0)
 ;;=2^Home Infsn,Up to 2 hrs
 ;;^UTILITY(U,$J,358.3,20515,0)
 ;;=99602^^87^958^2^^^^1
 ;;^UTILITY(U,$J,358.3,20515,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20515,1,1,0)
 ;;=1^99602
 ;;^UTILITY(U,$J,358.3,20515,1,2,0)
 ;;=2^Home Infsn,Ea Addl Hr
 ;;^UTILITY(U,$J,358.3,20516,0)
 ;;=G0496^^87^959^1^^^^1
 ;;^UTILITY(U,$J,358.3,20516,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20516,1,1,0)
 ;;=1^G0496
 ;;^UTILITY(U,$J,358.3,20516,1,2,0)
 ;;=2^HHC ED/TRAIN BY LPN,EA 15 min
 ;;^UTILITY(U,$J,358.3,20517,0)
 ;;=G0495^^87^959^2^^^^1
 ;;^UTILITY(U,$J,358.3,20517,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20517,1,1,0)
 ;;=1^G0495
 ;;^UTILITY(U,$J,358.3,20517,1,2,0)
 ;;=2^HHC ED/TRAIN BY RN,EA 15 min
 ;;^UTILITY(U,$J,358.3,20518,0)
 ;;=G0494^^87^959^3^^^^1
 ;;^UTILITY(U,$J,358.3,20518,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20518,1,1,0)
 ;;=1^G0494
 ;;^UTILITY(U,$J,358.3,20518,1,2,0)
 ;;=2^HHC LPN OBS/ASSSESS EA 15 min
 ;;^UTILITY(U,$J,358.3,20519,0)
 ;;=G0162^^87^959^4^^^^1
 ;;^UTILITY(U,$J,358.3,20519,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20519,1,1,0)
 ;;=1^G0162
 ;;^UTILITY(U,$J,358.3,20519,1,2,0)
 ;;=2^HHC RN E&M PLAN SVS, 15 min
 ;;^UTILITY(U,$J,358.3,20520,0)
 ;;=G0493^^87^959^5^^^^1
 ;;^UTILITY(U,$J,358.3,20520,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,20520,1,1,0)
 ;;=1^G0493
 ;;^UTILITY(U,$J,358.3,20520,1,2,0)
 ;;=2^HHC RN OBS/ASSESS EA 15 min
 ;;^UTILITY(U,$J,358.3,20521,0)
 ;;=G0300^^87^959^6^^^^1
 ;;^UTILITY(U,$J,358.3,20521,1,0)
 ;;=^358.31IA^2^2