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

IBDEI09X.m

Go to the documentation of this file.
IBDEI09X ; ; 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,24010,1,4,0)
 ;;=4^E89.0
 ;;^UTILITY(U,$J,358.3,24010,2)
 ;;=^5003035
 ;;^UTILITY(U,$J,358.3,24011,0)
 ;;=Z93.0^^96^1099^62
 ;;^UTILITY(U,$J,358.3,24011,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24011,1,3,0)
 ;;=3^Tracheostomy
 ;;^UTILITY(U,$J,358.3,24011,1,4,0)
 ;;=4^Z93.0
 ;;^UTILITY(U,$J,358.3,24011,2)
 ;;=^5063642
 ;;^UTILITY(U,$J,358.3,24012,0)
 ;;=Z98.51^^96^1099^63
 ;;^UTILITY(U,$J,358.3,24012,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24012,1,3,0)
 ;;=3^Tubal Ligation
 ;;^UTILITY(U,$J,358.3,24012,1,4,0)
 ;;=4^Z98.51
 ;;^UTILITY(U,$J,358.3,24012,2)
 ;;=^5063740
 ;;^UTILITY(U,$J,358.3,24013,0)
 ;;=Z98.52^^96^1099^64
 ;;^UTILITY(U,$J,358.3,24013,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24013,1,3,0)
 ;;=3^Vasectomy
 ;;^UTILITY(U,$J,358.3,24013,1,4,0)
 ;;=4^Z98.52
 ;;^UTILITY(U,$J,358.3,24013,2)
 ;;=^5063741
 ;;^UTILITY(U,$J,358.3,24014,0)
 ;;=Z95.2^^96^1099^25
 ;;^UTILITY(U,$J,358.3,24014,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24014,1,3,0)
 ;;=3^Heart Valve Replacement (Mechanical)
 ;;^UTILITY(U,$J,358.3,24014,1,4,0)
 ;;=4^Z95.2
 ;;^UTILITY(U,$J,358.3,24014,2)
 ;;=^5063670
 ;;^UTILITY(U,$J,358.3,24015,0)
 ;;=Z91.5^^96^1100^1
 ;;^UTILITY(U,$J,358.3,24015,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24015,1,3,0)
 ;;=3^Personal Hx of Self-Harm
 ;;^UTILITY(U,$J,358.3,24015,1,4,0)
 ;;=4^Z91.5
 ;;^UTILITY(U,$J,358.3,24015,2)
 ;;=^5063624
 ;;^UTILITY(U,$J,358.3,24016,0)
 ;;=R45.851^^96^1100^2
 ;;^UTILITY(U,$J,358.3,24016,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24016,1,3,0)
 ;;=3^Suicidal Ideations
 ;;^UTILITY(U,$J,358.3,24016,1,4,0)
 ;;=4^R45.851
 ;;^UTILITY(U,$J,358.3,24016,2)
 ;;=^5019474
 ;;^UTILITY(U,$J,358.3,24017,0)
 ;;=T14.91XA^^96^1100^3
 ;;^UTILITY(U,$J,358.3,24017,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24017,1,3,0)
 ;;=3^Suicide Attempt,Initial Encntr
 ;;^UTILITY(U,$J,358.3,24017,1,4,0)
 ;;=4^T14.91XA
 ;;^UTILITY(U,$J,358.3,24017,2)
 ;;=^5151779
 ;;^UTILITY(U,$J,358.3,24018,0)
 ;;=T14.91XD^^96^1100^4
 ;;^UTILITY(U,$J,358.3,24018,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24018,1,3,0)
 ;;=3^Suicide Attempt,Subsequent Encntr
 ;;^UTILITY(U,$J,358.3,24018,1,4,0)
 ;;=4^T14.91XD
 ;;^UTILITY(U,$J,358.3,24018,2)
 ;;=^5151780
 ;;^UTILITY(U,$J,358.3,24019,0)
 ;;=T14.91XS^^96^1100^5
 ;;^UTILITY(U,$J,358.3,24019,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24019,1,3,0)
 ;;=3^Suicide Attempt,Sequela
 ;;^UTILITY(U,$J,358.3,24019,1,4,0)
 ;;=4^T14.91XS
 ;;^UTILITY(U,$J,358.3,24019,2)
 ;;=^5151781
 ;;^UTILITY(U,$J,358.3,24020,0)
 ;;=I50.811^^96^1101^1
 ;;^UTILITY(U,$J,358.3,24020,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24020,1,3,0)
 ;;=3^Acute Rt Heart Failure
 ;;^UTILITY(U,$J,358.3,24020,1,4,0)
 ;;=4^I50.811
 ;;^UTILITY(U,$J,358.3,24020,2)
 ;;=^5151385
 ;;^UTILITY(U,$J,358.3,24021,0)
 ;;=I50.813^^96^1101^2
 ;;^UTILITY(U,$J,358.3,24021,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24021,1,3,0)
 ;;=3^Acute on Chronic Rt Heart Failure
 ;;^UTILITY(U,$J,358.3,24021,1,4,0)
 ;;=4^I50.813
 ;;^UTILITY(U,$J,358.3,24021,2)
 ;;=^5151387
 ;;^UTILITY(U,$J,358.3,24022,0)
 ;;=I20.9^^96^1101^3
 ;;^UTILITY(U,$J,358.3,24022,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24022,1,3,0)
 ;;=3^Angina Pectoris,Unspec
 ;;^UTILITY(U,$J,358.3,24022,1,4,0)
 ;;=4^I20.9
 ;;^UTILITY(U,$J,358.3,24022,2)
 ;;=^5007079
 ;;^UTILITY(U,$J,358.3,24023,0)
 ;;=I35.0^^96^1101^25
 ;;^UTILITY(U,$J,358.3,24023,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24023,1,3,0)
 ;;=3^Nonrhumatic Aortic Valve Stenosis
 ;;^UTILITY(U,$J,358.3,24023,1,4,0)
 ;;=4^I35.0
 ;;^UTILITY(U,$J,358.3,24023,2)
 ;;=^5007174
 ;;^UTILITY(U,$J,358.3,24024,0)
 ;;=I48.20^^96^1101^4
 ;;^UTILITY(U,$J,358.3,24024,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24024,1,3,0)
 ;;=3^Atrial Fibrillation,Chronic,Unspec
 ;;^UTILITY(U,$J,358.3,24024,1,4,0)
 ;;=4^I48.20
 ;;^UTILITY(U,$J,358.3,24024,2)
 ;;=^5158048
 ;;^UTILITY(U,$J,358.3,24025,0)
 ;;=I48.11^^96^1101^5
 ;;^UTILITY(U,$J,358.3,24025,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24025,1,3,0)
 ;;=3^Atrial Fibrillation,Longstanding Persistent
 ;;^UTILITY(U,$J,358.3,24025,1,4,0)
 ;;=4^I48.11
 ;;^UTILITY(U,$J,358.3,24025,2)
 ;;=^5158046
 ;;^UTILITY(U,$J,358.3,24026,0)
 ;;=I48.19^^96^1101^7
 ;;^UTILITY(U,$J,358.3,24026,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24026,1,3,0)
 ;;=3^Atrial Fibrillation,Persistent,Other
 ;;^UTILITY(U,$J,358.3,24026,1,4,0)
 ;;=4^I48.19
 ;;^UTILITY(U,$J,358.3,24026,2)
 ;;=^5158047
 ;;^UTILITY(U,$J,358.3,24027,0)
 ;;=I48.19^^96^1101^6
 ;;^UTILITY(U,$J,358.3,24027,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24027,1,3,0)
 ;;=3^Atrial Fibrillation,Persistent,Oth
 ;;^UTILITY(U,$J,358.3,24027,1,4,0)
 ;;=4^I48.19
 ;;^UTILITY(U,$J,358.3,24027,2)
 ;;=^5158047
 ;;^UTILITY(U,$J,358.3,24028,0)
 ;;=I48.92^^96^1101^8
 ;;^UTILITY(U,$J,358.3,24028,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24028,1,3,0)
 ;;=3^Atrial Flutter,Unspec
 ;;^UTILITY(U,$J,358.3,24028,1,4,0)
 ;;=4^I48.92
 ;;^UTILITY(U,$J,358.3,24028,2)
 ;;=^5007230
 ;;^UTILITY(U,$J,358.3,24029,0)
 ;;=I50.82^^96^1101^9
 ;;^UTILITY(U,$J,358.3,24029,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24029,1,3,0)
 ;;=3^Biventricular Heart Failure
 ;;^UTILITY(U,$J,358.3,24029,1,4,0)
 ;;=4^I50.82
 ;;^UTILITY(U,$J,358.3,24029,2)
 ;;=^5151389
 ;;^UTILITY(U,$J,358.3,24030,0)
 ;;=I25.810^^96^1101^10
 ;;^UTILITY(U,$J,358.3,24030,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24030,1,3,0)
 ;;=3^CAD of CABG w/o Angina Pectoris
 ;;^UTILITY(U,$J,358.3,24030,1,4,0)
 ;;=4^I25.810
 ;;^UTILITY(U,$J,358.3,24030,2)
 ;;=^5007141
 ;;^UTILITY(U,$J,358.3,24031,0)
 ;;=I25.10^^96^1101^11
 ;;^UTILITY(U,$J,358.3,24031,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24031,1,3,0)
 ;;=3^CAD of Native Coronary Artery w/o Ang Pctrs
 ;;^UTILITY(U,$J,358.3,24031,1,4,0)
 ;;=4^I25.10
 ;;^UTILITY(U,$J,358.3,24031,2)
 ;;=^5007107
 ;;^UTILITY(U,$J,358.3,24032,0)
 ;;=I50.9^^96^1101^15
 ;;^UTILITY(U,$J,358.3,24032,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24032,1,3,0)
 ;;=3^Heart Failure,Unspec
 ;;^UTILITY(U,$J,358.3,24032,1,4,0)
 ;;=4^I50.9
 ;;^UTILITY(U,$J,358.3,24032,2)
 ;;=^5007251
 ;;^UTILITY(U,$J,358.3,24033,0)
 ;;=I42.8^^96^1101^12
 ;;^UTILITY(U,$J,358.3,24033,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24033,1,3,0)
 ;;=3^Cardiomyopathies,Oth
 ;;^UTILITY(U,$J,358.3,24033,1,4,0)
 ;;=4^I42.8
 ;;^UTILITY(U,$J,358.3,24033,2)
 ;;=^5007199
 ;;^UTILITY(U,$J,358.3,24034,0)
 ;;=I50.84^^96^1101^14
 ;;^UTILITY(U,$J,358.3,24034,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24034,1,3,0)
 ;;=3^End Stage Heart Failure
 ;;^UTILITY(U,$J,358.3,24034,1,4,0)
 ;;=4^I50.84
 ;;^UTILITY(U,$J,358.3,24034,2)
 ;;=^5151391
 ;;^UTILITY(U,$J,358.3,24035,0)
 ;;=I50.83^^96^1101^16
 ;;^UTILITY(U,$J,358.3,24035,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24035,1,3,0)
 ;;=3^High Output Heart Failure
 ;;^UTILITY(U,$J,358.3,24035,1,4,0)
 ;;=4^I50.83
 ;;^UTILITY(U,$J,358.3,24035,2)
 ;;=^5151390
 ;;^UTILITY(U,$J,358.3,24036,0)
 ;;=I10.^^96^1101^17
 ;;^UTILITY(U,$J,358.3,24036,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24036,1,3,0)
 ;;=3^Hypertension,Essential
 ;;^UTILITY(U,$J,358.3,24036,1,4,0)
 ;;=4^I10.
 ;;^UTILITY(U,$J,358.3,24036,2)
 ;;=^5007062
 ;;^UTILITY(U,$J,358.3,24037,0)
 ;;=I16.9^^96^1101^18
 ;;^UTILITY(U,$J,358.3,24037,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24037,1,3,0)
 ;;=3^Hypertensive Crisis,Unspec
 ;;^UTILITY(U,$J,358.3,24037,1,4,0)
 ;;=4^I16.9
 ;;^UTILITY(U,$J,358.3,24037,2)
 ;;=^5138600
 ;;^UTILITY(U,$J,358.3,24038,0)
 ;;=I16.1^^96^1101^19
 ;;^UTILITY(U,$J,358.3,24038,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24038,1,3,0)
 ;;=3^Hypertensive Emergency
 ;;^UTILITY(U,$J,358.3,24038,1,4,0)
 ;;=4^I16.1
 ;;^UTILITY(U,$J,358.3,24038,2)
 ;;=^8204721
 ;;^UTILITY(U,$J,358.3,24039,0)
 ;;=I16.0^^96^1101^20
 ;;^UTILITY(U,$J,358.3,24039,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24039,1,3,0)
 ;;=3^Hypertensive Urgency
 ;;^UTILITY(U,$J,358.3,24039,1,4,0)
 ;;=4^I16.0
 ;;^UTILITY(U,$J,358.3,24039,2)
 ;;=^8133013
 ;;^UTILITY(U,$J,358.3,24040,0)
 ;;=I95.9^^96^1101^21
 ;;^UTILITY(U,$J,358.3,24040,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24040,1,3,0)
 ;;=3^Hypotension,Unspecified
 ;;^UTILITY(U,$J,358.3,24040,1,4,0)
 ;;=4^I95.9
 ;;^UTILITY(U,$J,358.3,24040,2)
 ;;=^5008080
 ;;^UTILITY(U,$J,358.3,24041,0)
 ;;=I34.1^^96^1101^22
 ;;^UTILITY(U,$J,358.3,24041,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24041,1,3,0)
 ;;=3^Mitral Valve Prolapse,Nonrheumatic
 ;;^UTILITY(U,$J,358.3,24041,1,4,0)
 ;;=4^I34.1
 ;;^UTILITY(U,$J,358.3,24041,2)
 ;;=^5007170
 ;;^UTILITY(U,$J,358.3,24042,0)
 ;;=I05.0^^96^1101^23
 ;;^UTILITY(U,$J,358.3,24042,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24042,1,3,0)
 ;;=3^Mitral Valve Stenosis,Rheumatic
 ;;^UTILITY(U,$J,358.3,24042,1,4,0)
 ;;=4^I05.0
 ;;^UTILITY(U,$J,358.3,24042,2)
 ;;=^5007041
 ;;^UTILITY(U,$J,358.3,24043,0)
 ;;=I21.3^^96^1101^24
 ;;^UTILITY(U,$J,358.3,24043,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24043,1,3,0)
 ;;=3^Myocardial Infarction w/ STEMI,Site Unspec
 ;;^UTILITY(U,$J,358.3,24043,1,4,0)
 ;;=4^I21.3
 ;;^UTILITY(U,$J,358.3,24043,2)
 ;;=^5007087
 ;;^UTILITY(U,$J,358.3,24044,0)
 ;;=I25.2^^96^1101^26
 ;;^UTILITY(U,$J,358.3,24044,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24044,1,3,0)
 ;;=3^Old Myocardial Infarction
 ;;^UTILITY(U,$J,358.3,24044,1,4,0)
 ;;=4^I25.2
 ;;^UTILITY(U,$J,358.3,24044,2)
 ;;=^259884
 ;;^UTILITY(U,$J,358.3,24045,0)
 ;;=I30.0^^96^1101^27
 ;;^UTILITY(U,$J,358.3,24045,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24045,1,3,0)
 ;;=3^Pericarditis,Idiopath,Acute,Nonspec
 ;;^UTILITY(U,$J,358.3,24045,1,4,0)
 ;;=4^I30.0
 ;;^UTILITY(U,$J,358.3,24045,2)
 ;;=^5007157
 ;;^UTILITY(U,$J,358.3,24046,0)
 ;;=R07.9^^96^1101^13
 ;;^UTILITY(U,$J,358.3,24046,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24046,1,3,0)
 ;;=3^Chest Pain,Unspecified
 ;;^UTILITY(U,$J,358.3,24046,1,4,0)
 ;;=4^R07.9
 ;;^UTILITY(U,$J,358.3,24046,2)
 ;;=^5019201
 ;;^UTILITY(U,$J,358.3,24047,0)
 ;;=I50.814^^96^1101^28
 ;;^UTILITY(U,$J,358.3,24047,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24047,1,3,0)
 ;;=3^Right Heart Failure d/t Left Heart Failure
 ;;^UTILITY(U,$J,358.3,24047,1,4,0)
 ;;=4^I50.814
 ;;^UTILITY(U,$J,358.3,24047,2)
 ;;=^5151388
 ;;^UTILITY(U,$J,358.3,24048,0)
 ;;=I50.810^^96^1101^29
 ;;^UTILITY(U,$J,358.3,24048,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24048,1,3,0)
 ;;=3^Right Heart Failure,Unspecified
 ;;^UTILITY(U,$J,358.3,24048,1,4,0)
 ;;=4^I50.810
 ;;^UTILITY(U,$J,358.3,24048,2)
 ;;=^5151384
 ;;^UTILITY(U,$J,358.3,24049,0)
 ;;=99201^^97^1102^1
 ;;^UTILITY(U,$J,358.3,24049,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,24049,1,1,0)
 ;;=1^Problem Focus
 ;;^UTILITY(U,$J,358.3,24049,1,2,0)
 ;;=2^99201
 ;;^UTILITY(U,$J,358.3,24050,0)
 ;;=99202^^97^1102^2
 ;;^UTILITY(U,$J,358.3,24050,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,24050,1,1,0)
 ;;=1^Expanded Problem Focus
 ;;^UTILITY(U,$J,358.3,24050,1,2,0)
 ;;=2^99202
 ;;^UTILITY(U,$J,358.3,24051,0)
 ;;=99203^^97^1102^3
 ;;^UTILITY(U,$J,358.3,24051,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,24051,1,1,0)
 ;;=1^Detailed
 ;;^UTILITY(U,$J,358.3,24051,1,2,0)
 ;;=2^99203
 ;;^UTILITY(U,$J,358.3,24052,0)
 ;;=99204^^97^1102^4
 ;;^UTILITY(U,$J,358.3,24052,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,24052,1,1,0)
 ;;=1^Comprehensive, Moderate
 ;;^UTILITY(U,$J,358.3,24052,1,2,0)
 ;;=2^99204
 ;;^UTILITY(U,$J,358.3,24053,0)
 ;;=99205^^97^1102^5
 ;;^UTILITY(U,$J,358.3,24053,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,24053,1,1,0)
 ;;=1^Comprehensive, High
 ;;^UTILITY(U,$J,358.3,24053,1,2,0)
 ;;=2^99205
 ;;^UTILITY(U,$J,358.3,24054,0)
 ;;=99211^^97^1103^1
 ;;^UTILITY(U,$J,358.3,24054,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,24054,1,1,0)
 ;;=1^Nursing Visit (no MD seen)
 ;;^UTILITY(U,$J,358.3,24054,1,2,0)
 ;;=2^99211
 ;;^UTILITY(U,$J,358.3,24055,0)
 ;;=99212^^97^1103^2
 ;;^UTILITY(U,$J,358.3,24055,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,24055,1,1,0)
 ;;=1^Problem Focused
 ;;^UTILITY(U,$J,358.3,24055,1,2,0)
 ;;=2^99212
 ;;^UTILITY(U,$J,358.3,24056,0)
 ;;=99213^^97^1103^3
 ;;^UTILITY(U,$J,358.3,24056,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,24056,1,1,0)
 ;;=1^Expanded Problem Focus
 ;;^UTILITY(U,$J,358.3,24056,1,2,0)
 ;;=2^99213
 ;;^UTILITY(U,$J,358.3,24057,0)
 ;;=99214^^97^1103^4
 ;;^UTILITY(U,$J,358.3,24057,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,24057,1,1,0)
 ;;=1^Detailed
 ;;^UTILITY(U,$J,358.3,24057,1,2,0)
 ;;=2^99214
 ;;^UTILITY(U,$J,358.3,24058,0)
 ;;=99215^^97^1103^5
 ;;^UTILITY(U,$J,358.3,24058,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,24058,1,1,0)
 ;;=1^Comprehensive
 ;;^UTILITY(U,$J,358.3,24058,1,2,0)
 ;;=2^99215
 ;;^UTILITY(U,$J,358.3,24059,0)
 ;;=99241^^97^1104^1
 ;;^UTILITY(U,$J,358.3,24059,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,24059,1,1,0)
 ;;=1^Prob Focused Exam
 ;;^UTILITY(U,$J,358.3,24059,1,2,0)
 ;;=2^99241
 ;;^UTILITY(U,$J,358.3,24060,0)
 ;;=99242^^97^1104^2
 ;;^UTILITY(U,$J,358.3,24060,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,24060,1,1,0)
 ;;=1^Exp Prob Focused Exam
 ;;^UTILITY(U,$J,358.3,24060,1,2,0)
 ;;=2^99242
 ;;^UTILITY(U,$J,358.3,24061,0)
 ;;=99243^^97^1104^3
 ;;^UTILITY(U,$J,358.3,24061,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,24061,1,1,0)
 ;;=1^Detailed Exam
 ;;^UTILITY(U,$J,358.3,24061,1,2,0)
 ;;=2^99243
 ;;^UTILITY(U,$J,358.3,24062,0)
 ;;=99244^^97^1104^4
 ;;^UTILITY(U,$J,358.3,24062,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,24062,1,1,0)
 ;;=1^Comp Exam,Mod MDM
 ;;^UTILITY(U,$J,358.3,24062,1,2,0)
 ;;=2^99244
 ;;^UTILITY(U,$J,358.3,24063,0)
 ;;=99245^^97^1104^5
 ;;^UTILITY(U,$J,358.3,24063,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,24063,1,1,0)
 ;;=1^Comp Exam,High MDM
 ;;^UTILITY(U,$J,358.3,24063,1,2,0)
 ;;=2^99245
 ;;^UTILITY(U,$J,358.3,24064,0)
 ;;=90632^^98^1105^9^^^^1
 ;;^UTILITY(U,$J,358.3,24064,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24064,1,2,0)
 ;;=2^90632
 ;;^UTILITY(U,$J,358.3,24064,1,3,0)
 ;;=3^Hepatitis A Vaccine
 ;;^UTILITY(U,$J,358.3,24065,0)
 ;;=90746^^98^1105^11^^^^1
 ;;^UTILITY(U,$J,358.3,24065,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24065,1,2,0)
 ;;=2^90746
 ;;^UTILITY(U,$J,358.3,24065,1,3,0)
 ;;=3^Hepatitis B Vaccine 3 Dose Schedule
 ;;^UTILITY(U,$J,358.3,24066,0)
 ;;=90636^^98^1105^10^^^^1
 ;;^UTILITY(U,$J,358.3,24066,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24066,1,2,0)
 ;;=2^90636
 ;;^UTILITY(U,$J,358.3,24066,1,3,0)
 ;;=3^Hepatitis A&B Vaccine
 ;;^UTILITY(U,$J,358.3,24067,0)
 ;;=90707^^98^1105^15^^^^1
 ;;^UTILITY(U,$J,358.3,24067,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24067,1,2,0)
 ;;=2^90707
 ;;^UTILITY(U,$J,358.3,24067,1,3,0)
 ;;=3^MMR Vaccine
 ;;^UTILITY(U,$J,358.3,24068,0)
 ;;=90658^^98^1105^2^^^^1
 ;;^UTILITY(U,$J,358.3,24068,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24068,1,2,0)
 ;;=2^90658
 ;;^UTILITY(U,$J,358.3,24068,1,3,0)
 ;;=3^Flu Vaccine,Lo Dose Multi Dose Vials (Afluria)
 ;;^UTILITY(U,$J,358.3,24069,0)
 ;;=90732^^98^1105^17^^^^1
 ;;^UTILITY(U,$J,358.3,24069,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24069,1,2,0)
 ;;=2^90732
 ;;^UTILITY(U,$J,358.3,24069,1,3,0)
 ;;=3^Pneumococcal (PPSV23) VAccine
 ;;^UTILITY(U,$J,358.3,24070,0)
 ;;=90715^^98^1105^22^^^^1
 ;;^UTILITY(U,$J,358.3,24070,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24070,1,2,0)
 ;;=2^90715
 ;;^UTILITY(U,$J,358.3,24070,1,3,0)
 ;;=3^Tdap Vaccine
 ;;^UTILITY(U,$J,358.3,24071,0)
 ;;=90736^^98^1105^26^^^^1
 ;;^UTILITY(U,$J,358.3,24071,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24071,1,2,0)
 ;;=2^90736
 ;;^UTILITY(U,$J,358.3,24071,1,3,0)
 ;;=3^Zoster (Shingles) Vaccine
 ;;^UTILITY(U,$J,358.3,24072,0)
 ;;=90714^^98^1105^21^^^^1
 ;;^UTILITY(U,$J,358.3,24072,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24072,1,2,0)
 ;;=2^90714
 ;;^UTILITY(U,$J,358.3,24072,1,3,0)
 ;;=3^TD Vaccine
 ;;^UTILITY(U,$J,358.3,24073,0)
 ;;=90656^^98^1105^5^^^^1
 ;;^UTILITY(U,$J,358.3,24073,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24073,1,2,0)
 ;;=2^90656
 ;;^UTILITY(U,$J,358.3,24073,1,3,0)
 ;;=3^Flu Vaccine,Preservative-Free
 ;;^UTILITY(U,$J,358.3,24074,0)
 ;;=90661^^98^1105^3^^^^1
 ;;^UTILITY(U,$J,358.3,24074,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24074,1,2,0)
 ;;=2^90661
 ;;^UTILITY(U,$J,358.3,24074,1,3,0)
 ;;=3^Flu Vaccine,Lo Dose Syr (Flucelvax)
 ;;^UTILITY(U,$J,358.3,24075,0)
 ;;=90662^^98^1105^1^^^^1
 ;;^UTILITY(U,$J,358.3,24075,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24075,1,2,0)
 ;;=2^90662
 ;;^UTILITY(U,$J,358.3,24075,1,3,0)
 ;;=3^Flu Vaccine,High Dose Syr (Fluzone)
 ;;^UTILITY(U,$J,358.3,24076,0)
 ;;=90670^^98^1105^19^^^^1
 ;;^UTILITY(U,$J,358.3,24076,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24076,1,2,0)
 ;;=2^90670
 ;;^UTILITY(U,$J,358.3,24076,1,3,0)
 ;;=3^Prevnar (PCV13) Vaccine
 ;;^UTILITY(U,$J,358.3,24077,0)
 ;;=90738^^98^1105^14^^^^1
 ;;^UTILITY(U,$J,358.3,24077,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24077,1,2,0)
 ;;=2^90738
 ;;^UTILITY(U,$J,358.3,24077,1,3,0)
 ;;=3^Japanese Encephalitis Vaccine
 ;;^UTILITY(U,$J,358.3,24078,0)
 ;;=90620^^98^1105^16^^^^1
 ;;^UTILITY(U,$J,358.3,24078,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24078,1,2,0)
 ;;=2^90620
 ;;^UTILITY(U,$J,358.3,24078,1,3,0)
 ;;=3^Meningococcal Vaccine
 ;;^UTILITY(U,$J,358.3,24079,0)
 ;;=90740^^98^1105^12^^^^1
 ;;^UTILITY(U,$J,358.3,24079,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24079,1,2,0)
 ;;=2^90740
 ;;^UTILITY(U,$J,358.3,24079,1,3,0)
 ;;=3^Hepatitis B Vaccine,Dialysis/Immunosup,3 Dose Scheduled
 ;;^UTILITY(U,$J,358.3,24080,0)
 ;;=90650^^98^1105^8^^^^1
 ;;^UTILITY(U,$J,358.3,24080,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24080,1,2,0)
 ;;=2^90650
 ;;^UTILITY(U,$J,358.3,24080,1,3,0)
 ;;=3^HPV Vaccine
 ;;^UTILITY(U,$J,358.3,24081,0)
 ;;=90713^^98^1105^18^^^^1
 ;;^UTILITY(U,$J,358.3,24081,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24081,1,2,0)
 ;;=2^90713
 ;;^UTILITY(U,$J,358.3,24081,1,3,0)
 ;;=3^Poliovirus Vaccine
 ;;^UTILITY(U,$J,358.3,24082,0)
 ;;=90681^^98^1105^20^^^^1
 ;;^UTILITY(U,$J,358.3,24082,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24082,1,2,0)
 ;;=2^90681
 ;;^UTILITY(U,$J,358.3,24082,1,3,0)
 ;;=3^Rotavirus Vaccine
 ;;^UTILITY(U,$J,358.3,24083,0)
 ;;=90691^^98^1105^23^^^^1
 ;;^UTILITY(U,$J,358.3,24083,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24083,1,2,0)
 ;;=2^90691
 ;;^UTILITY(U,$J,358.3,24083,1,3,0)
 ;;=3^Typhoid Vaccine
 ;;^UTILITY(U,$J,358.3,24084,0)
 ;;=90716^^98^1105^24^^^^1
 ;;^UTILITY(U,$J,358.3,24084,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24084,1,2,0)
 ;;=2^90716
 ;;^UTILITY(U,$J,358.3,24084,1,3,0)
 ;;=3^Varicella Vaccine
 ;;^UTILITY(U,$J,358.3,24085,0)
 ;;=90717^^98^1105^25^^^^1
 ;;^UTILITY(U,$J,358.3,24085,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24085,1,2,0)
 ;;=2^90717
 ;;^UTILITY(U,$J,358.3,24085,1,3,0)
 ;;=3^Yellow Fever Vaccine
 ;;^UTILITY(U,$J,358.3,24086,0)
 ;;=90653^^98^1105^6^^^^1
 ;;^UTILITY(U,$J,358.3,24086,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,24086,1,2,0)
 ;;=2^90653
 ;;^UTILITY(U,$J,358.3,24086,1,3,0)
 ;;=3^Flu Vaccine,Sgl Dose (Fluad)
 ;;^UTILITY(U,$J,358.3,24087,0)
 ;;=90686^^98^1105^7^^^^1