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

IBDEI0AG.m

Go to the documentation of this file.
IBDEI0AG ; ; 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,25250,1,4,0)
 ;;=4^Z86.59
 ;;^UTILITY(U,$J,358.3,25250,2)
 ;;=^5063471
 ;;^UTILITY(U,$J,358.3,25251,0)
 ;;=Z76.3^^110^1303^5
 ;;^UTILITY(U,$J,358.3,25251,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25251,1,3,0)
 ;;=3^Healthy Person Accompanying Sick Person
 ;;^UTILITY(U,$J,358.3,25251,1,4,0)
 ;;=4^Z76.3
 ;;^UTILITY(U,$J,358.3,25251,2)
 ;;=^5063300
 ;;^UTILITY(U,$J,358.3,25252,0)
 ;;=Z71.0^^110^1303^3
 ;;^UTILITY(U,$J,358.3,25252,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25252,1,3,0)
 ;;=3^Health Service Consult on Behalf of Another Person
 ;;^UTILITY(U,$J,358.3,25252,1,4,0)
 ;;=4^Z71.0
 ;;^UTILITY(U,$J,358.3,25252,2)
 ;;=^5063242
 ;;^UTILITY(U,$J,358.3,25253,0)
 ;;=Z76.5^^110^1303^6
 ;;^UTILITY(U,$J,358.3,25253,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25253,1,3,0)
 ;;=3^Malingerer
 ;;^UTILITY(U,$J,358.3,25253,1,4,0)
 ;;=4^Z76.5
 ;;^UTILITY(U,$J,358.3,25253,2)
 ;;=^5063302
 ;;^UTILITY(U,$J,358.3,25254,0)
 ;;=Z71.41^^110^1303^1
 ;;^UTILITY(U,$J,358.3,25254,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25254,1,3,0)
 ;;=3^Alcohol Abuse Counseling/Surveillance of Alcoholic
 ;;^UTILITY(U,$J,358.3,25254,1,4,0)
 ;;=4^Z71.41
 ;;^UTILITY(U,$J,358.3,25254,2)
 ;;=^5063246
 ;;^UTILITY(U,$J,358.3,25255,0)
 ;;=Z71.7^^110^1303^2
 ;;^UTILITY(U,$J,358.3,25255,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25255,1,3,0)
 ;;=3^HIV Counseling
 ;;^UTILITY(U,$J,358.3,25255,1,4,0)
 ;;=4^Z71.7
 ;;^UTILITY(U,$J,358.3,25255,2)
 ;;=^5063251
 ;;^UTILITY(U,$J,358.3,25256,0)
 ;;=Z76.89^^110^1303^4
 ;;^UTILITY(U,$J,358.3,25256,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25256,1,3,0)
 ;;=3^Health Services in Oth Circumstances
 ;;^UTILITY(U,$J,358.3,25256,1,4,0)
 ;;=4^Z76.89
 ;;^UTILITY(U,$J,358.3,25256,2)
 ;;=^5063304
 ;;^UTILITY(U,$J,358.3,25257,0)
 ;;=Z56.82^^110^1303^7
 ;;^UTILITY(U,$J,358.3,25257,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25257,1,3,0)
 ;;=3^Military Deployment Status
 ;;^UTILITY(U,$J,358.3,25257,1,4,0)
 ;;=4^Z56.82
 ;;^UTILITY(U,$J,358.3,25257,2)
 ;;=^5063115
 ;;^UTILITY(U,$J,358.3,25258,0)
 ;;=Z91.82^^110^1303^8
 ;;^UTILITY(U,$J,358.3,25258,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25258,1,3,0)
 ;;=3^Personal Hx of Military Deployment
 ;;^UTILITY(U,$J,358.3,25258,1,4,0)
 ;;=4^Z91.82
 ;;^UTILITY(U,$J,358.3,25258,2)
 ;;=^5063626
 ;;^UTILITY(U,$J,358.3,25259,0)
 ;;=Z99.2^^110^1304^1
 ;;^UTILITY(U,$J,358.3,25259,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25259,1,3,0)
 ;;=3^Dependence on Renal Dialysis
 ;;^UTILITY(U,$J,358.3,25259,1,4,0)
 ;;=4^Z99.2
 ;;^UTILITY(U,$J,358.3,25259,2)
 ;;=^5063758
 ;;^UTILITY(U,$J,358.3,25260,0)
 ;;=Z91.15^^110^1304^2
 ;;^UTILITY(U,$J,358.3,25260,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25260,1,3,0)
 ;;=3^Noncompliance w/ Renal Dialysis
 ;;^UTILITY(U,$J,358.3,25260,1,4,0)
 ;;=4^Z91.15
 ;;^UTILITY(U,$J,358.3,25260,2)
 ;;=^5063617
 ;;^UTILITY(U,$J,358.3,25261,0)
 ;;=Z98.890^^110^1304^3
 ;;^UTILITY(U,$J,358.3,25261,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25261,1,3,0)
 ;;=3^Postprocedural States,Oth Spec
 ;;^UTILITY(U,$J,358.3,25261,1,4,0)
 ;;=4^Z98.890
 ;;^UTILITY(U,$J,358.3,25261,2)
 ;;=^5063754
 ;;^UTILITY(U,$J,358.3,25262,0)
 ;;=Z56.0^^110^1305^14
 ;;^UTILITY(U,$J,358.3,25262,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25262,1,3,0)
 ;;=3^Unemployment,Unspec
 ;;^UTILITY(U,$J,358.3,25262,1,4,0)
 ;;=4^Z56.0
 ;;^UTILITY(U,$J,358.3,25262,2)
 ;;=^5063107
 ;;^UTILITY(U,$J,358.3,25263,0)
 ;;=Z65.5^^110^1305^4
 ;;^UTILITY(U,$J,358.3,25263,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25263,1,3,0)
 ;;=3^Disaster/War/Hostility Exposure
 ;;^UTILITY(U,$J,358.3,25263,1,4,0)
 ;;=4^Z65.5
 ;;^UTILITY(U,$J,358.3,25263,2)
 ;;=^5063184
 ;;^UTILITY(U,$J,358.3,25264,0)
 ;;=Z56.1^^110^1305^2
 ;;^UTILITY(U,$J,358.3,25264,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25264,1,3,0)
 ;;=3^Change of Job
 ;;^UTILITY(U,$J,358.3,25264,1,4,0)
 ;;=4^Z56.1
 ;;^UTILITY(U,$J,358.3,25264,2)
 ;;=^5063108
 ;;^UTILITY(U,$J,358.3,25265,0)
 ;;=Z55.9^^110^1305^5
 ;;^UTILITY(U,$J,358.3,25265,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25265,1,3,0)
 ;;=3^Education/Literacy Problems,Unspec
 ;;^UTILITY(U,$J,358.3,25265,1,4,0)
 ;;=4^Z55.9
 ;;^UTILITY(U,$J,358.3,25265,2)
 ;;=^5063106
 ;;^UTILITY(U,$J,358.3,25266,0)
 ;;=Z60.3^^110^1305^1
 ;;^UTILITY(U,$J,358.3,25266,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25266,1,3,0)
 ;;=3^Acculturation Difficulty
 ;;^UTILITY(U,$J,358.3,25266,1,4,0)
 ;;=4^Z60.3
 ;;^UTILITY(U,$J,358.3,25266,2)
 ;;=^5063141
 ;;^UTILITY(U,$J,358.3,25267,0)
 ;;=Z65.3^^110^1305^8
 ;;^UTILITY(U,$J,358.3,25267,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25267,1,3,0)
 ;;=3^Legal Circumstance Problems
 ;;^UTILITY(U,$J,358.3,25267,1,4,0)
 ;;=4^Z65.3
 ;;^UTILITY(U,$J,358.3,25267,2)
 ;;=^5063182
 ;;^UTILITY(U,$J,358.3,25268,0)
 ;;=Z53.1^^110^1305^11
 ;;^UTILITY(U,$J,358.3,25268,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25268,1,3,0)
 ;;=3^Procedure/Treatment not Done d/t Pt Belief/Group Pressure
 ;;^UTILITY(U,$J,358.3,25268,1,4,0)
 ;;=4^Z53.1
 ;;^UTILITY(U,$J,358.3,25268,2)
 ;;=^5063094
 ;;^UTILITY(U,$J,358.3,25269,0)
 ;;=Z63.4^^110^1305^3
 ;;^UTILITY(U,$J,358.3,25269,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25269,1,3,0)
 ;;=3^Disappearance/Death of Family Member
 ;;^UTILITY(U,$J,358.3,25269,1,4,0)
 ;;=4^Z63.4
 ;;^UTILITY(U,$J,358.3,25269,2)
 ;;=^5063168
 ;;^UTILITY(U,$J,358.3,25270,0)
 ;;=Z69.021^^110^1305^10
 ;;^UTILITY(U,$J,358.3,25270,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25270,1,3,0)
 ;;=3^Mental Hlth Svc for Perpetrator of Non-Parental Child Abuse
 ;;^UTILITY(U,$J,358.3,25270,1,4,0)
 ;;=4^Z69.021
 ;;^UTILITY(U,$J,358.3,25270,2)
 ;;=^5063231
 ;;^UTILITY(U,$J,358.3,25271,0)
 ;;=Z69.82^^110^1305^9
 ;;^UTILITY(U,$J,358.3,25271,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25271,1,3,0)
 ;;=3^Mental Hlth Svc for Perpetrator of Abuse
 ;;^UTILITY(U,$J,358.3,25271,1,4,0)
 ;;=4^Z69.82
 ;;^UTILITY(U,$J,358.3,25271,2)
 ;;=^5063235
 ;;^UTILITY(U,$J,358.3,25272,0)
 ;;=R45.851^^110^1305^13
 ;;^UTILITY(U,$J,358.3,25272,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25272,1,3,0)
 ;;=3^Suicidal Ideations
 ;;^UTILITY(U,$J,358.3,25272,1,4,0)
 ;;=4^R45.851
 ;;^UTILITY(U,$J,358.3,25272,2)
 ;;=^5019474
 ;;^UTILITY(U,$J,358.3,25273,0)
 ;;=Z65.9^^110^1305^12
 ;;^UTILITY(U,$J,358.3,25273,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25273,1,3,0)
 ;;=3^Psychosocial Circumstance Problems,Unspec
 ;;^UTILITY(U,$J,358.3,25273,1,4,0)
 ;;=4^Z65.9
 ;;^UTILITY(U,$J,358.3,25273,2)
 ;;=^5063186
 ;;^UTILITY(U,$J,358.3,25274,0)
 ;;=Z56.9^^110^1305^6
 ;;^UTILITY(U,$J,358.3,25274,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25274,1,3,0)
 ;;=3^Employment Problems,Unspec
 ;;^UTILITY(U,$J,358.3,25274,1,4,0)
 ;;=4^Z56.9
 ;;^UTILITY(U,$J,358.3,25274,2)
 ;;=^5063117
 ;;^UTILITY(U,$J,358.3,25275,0)
 ;;=R45.850^^110^1305^7
 ;;^UTILITY(U,$J,358.3,25275,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25275,1,3,0)
 ;;=3^Homicidal Ideations
 ;;^UTILITY(U,$J,358.3,25275,1,4,0)
 ;;=4^R45.850
 ;;^UTILITY(U,$J,358.3,25275,2)
 ;;=^5019473
 ;;^UTILITY(U,$J,358.3,25276,0)
 ;;=H54.7^^110^1306^6
 ;;^UTILITY(U,$J,358.3,25276,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25276,1,3,0)
 ;;=3^Visual Loss,Unspec
 ;;^UTILITY(U,$J,358.3,25276,1,4,0)
 ;;=4^H54.7
 ;;^UTILITY(U,$J,358.3,25276,2)
 ;;=^5006368
 ;;^UTILITY(U,$J,358.3,25277,0)
 ;;=R68.89^^110^1306^2
 ;;^UTILITY(U,$J,358.3,25277,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25277,1,3,0)
 ;;=3^General Symptoms/Signs
 ;;^UTILITY(U,$J,358.3,25277,1,4,0)
 ;;=4^R68.89
 ;;^UTILITY(U,$J,358.3,25277,2)
 ;;=^5019557
 ;;^UTILITY(U,$J,358.3,25278,0)
 ;;=R47.89^^110^1306^5
 ;;^UTILITY(U,$J,358.3,25278,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25278,1,3,0)
 ;;=3^Speech Disturbances
 ;;^UTILITY(U,$J,358.3,25278,1,4,0)
 ;;=4^R47.89
 ;;^UTILITY(U,$J,358.3,25278,2)
 ;;=^5019493
 ;;^UTILITY(U,$J,358.3,25279,0)
 ;;=R43.9^^110^1306^4
 ;;^UTILITY(U,$J,358.3,25279,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25279,1,3,0)
 ;;=3^Smell/Taste Disturbances,Unspec
 ;;^UTILITY(U,$J,358.3,25279,1,4,0)
 ;;=4^R43.9
 ;;^UTILITY(U,$J,358.3,25279,2)
 ;;=^5019454
 ;;^UTILITY(U,$J,358.3,25280,0)
 ;;=R13.10^^110^1306^1
 ;;^UTILITY(U,$J,358.3,25280,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25280,1,3,0)
 ;;=3^Dysphagia,Unspec
 ;;^UTILITY(U,$J,358.3,25280,1,4,0)
 ;;=4^R13.10
 ;;^UTILITY(U,$J,358.3,25280,2)
 ;;=^335307
 ;;^UTILITY(U,$J,358.3,25281,0)
 ;;=F52.9^^110^1306^3
 ;;^UTILITY(U,$J,358.3,25281,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25281,1,3,0)
 ;;=3^Sexual Dysfunction,Unspec
 ;;^UTILITY(U,$J,358.3,25281,1,4,0)
 ;;=4^F52.9
 ;;^UTILITY(U,$J,358.3,25281,2)
 ;;=^5003625
 ;;^UTILITY(U,$J,358.3,25282,0)
 ;;=Z75.3^^110^1307^5
 ;;^UTILITY(U,$J,358.3,25282,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25282,1,3,0)
 ;;=3^Unavailability/Inaccessibility of Health-Care Facilities
 ;;^UTILITY(U,$J,358.3,25282,1,4,0)
 ;;=4^Z75.3
 ;;^UTILITY(U,$J,358.3,25282,2)
 ;;=^5063292
 ;;^UTILITY(U,$J,358.3,25283,0)
 ;;=Z75.0^^110^1307^3
 ;;^UTILITY(U,$J,358.3,25283,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25283,1,3,0)
 ;;=3^Medical Services Not Available in Home
 ;;^UTILITY(U,$J,358.3,25283,1,4,0)
 ;;=4^Z75.0
 ;;^UTILITY(U,$J,358.3,25283,2)
 ;;=^5063289
 ;;^UTILITY(U,$J,358.3,25284,0)
 ;;=Z75.1^^110^1307^4
 ;;^UTILITY(U,$J,358.3,25284,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25284,1,3,0)
 ;;=3^Pt Awaiting Admission to Adequate Facility Elsewhere
 ;;^UTILITY(U,$J,358.3,25284,1,4,0)
 ;;=4^Z75.1
 ;;^UTILITY(U,$J,358.3,25284,2)
 ;;=^5063290
 ;;^UTILITY(U,$J,358.3,25285,0)
 ;;=Z75.4^^110^1307^6
 ;;^UTILITY(U,$J,358.3,25285,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25285,1,3,0)
 ;;=3^Unavailability/Inaccessibility of Helping Agencies
 ;;^UTILITY(U,$J,358.3,25285,1,4,0)
 ;;=4^Z75.4
 ;;^UTILITY(U,$J,358.3,25285,2)
 ;;=^5063293
 ;;^UTILITY(U,$J,358.3,25286,0)
 ;;=Z75.8^^110^1307^2
 ;;^UTILITY(U,$J,358.3,25286,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25286,1,3,0)
 ;;=3^Medical Facilities/Health Care Problems
 ;;^UTILITY(U,$J,358.3,25286,1,4,0)
 ;;=4^Z75.8
 ;;^UTILITY(U,$J,358.3,25286,2)
 ;;=^5063295
 ;;^UTILITY(U,$J,358.3,25287,0)
 ;;=Z71.9^^110^1307^1
 ;;^UTILITY(U,$J,358.3,25287,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25287,1,3,0)
 ;;=3^Counseling,Unspec
 ;;^UTILITY(U,$J,358.3,25287,1,4,0)
 ;;=4^Z71.9
 ;;^UTILITY(U,$J,358.3,25287,2)
 ;;=^5063254
 ;;^UTILITY(U,$J,358.3,25288,0)
 ;;=Z89.201^^110^1308^10
 ;;^UTILITY(U,$J,358.3,25288,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25288,1,3,0)
 ;;=3^Acquired Absence of Right Upper Limb,Unspec Level
 ;;^UTILITY(U,$J,358.3,25288,1,4,0)
 ;;=4^Z89.201
 ;;^UTILITY(U,$J,358.3,25288,2)
 ;;=^5063543
 ;;^UTILITY(U,$J,358.3,25289,0)
 ;;=Z89.202^^110^1308^4
 ;;^UTILITY(U,$J,358.3,25289,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25289,1,3,0)
 ;;=3^Acquired Absence of Left Upper Limb,Unspec Level
 ;;^UTILITY(U,$J,358.3,25289,1,4,0)
 ;;=4^Z89.202
 ;;^UTILITY(U,$J,358.3,25289,2)
 ;;=^5063544
 ;;^UTILITY(U,$J,358.3,25290,0)
 ;;=Z89.111^^110^1308^6
 ;;^UTILITY(U,$J,358.3,25290,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25290,1,3,0)
 ;;=3^Acquired Absence of Right Hand
 ;;^UTILITY(U,$J,358.3,25290,1,4,0)
 ;;=4^Z89.111
 ;;^UTILITY(U,$J,358.3,25290,2)
 ;;=^5063537
 ;;^UTILITY(U,$J,358.3,25291,0)
 ;;=Z89.112^^110^1308^1
 ;;^UTILITY(U,$J,358.3,25291,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25291,1,3,0)
 ;;=3^Acquired Absence of Left Hand
 ;;^UTILITY(U,$J,358.3,25291,1,4,0)
 ;;=4^Z89.112
 ;;^UTILITY(U,$J,358.3,25291,2)
 ;;=^5063538
 ;;^UTILITY(U,$J,358.3,25292,0)
 ;;=Z89.121^^110^1308^11
 ;;^UTILITY(U,$J,358.3,25292,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25292,1,3,0)
 ;;=3^Acquired Absence of Right Wrist
 ;;^UTILITY(U,$J,358.3,25292,1,4,0)
 ;;=4^Z89.121
 ;;^UTILITY(U,$J,358.3,25292,2)
 ;;=^5063540
 ;;^UTILITY(U,$J,358.3,25293,0)
 ;;=Z89.122^^110^1308^5
 ;;^UTILITY(U,$J,358.3,25293,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25293,1,3,0)
 ;;=3^Acquired Absence of Left Wrist
 ;;^UTILITY(U,$J,358.3,25293,1,4,0)
 ;;=4^Z89.122
 ;;^UTILITY(U,$J,358.3,25293,2)
 ;;=^5063541
 ;;^UTILITY(U,$J,358.3,25294,0)
 ;;=Z89.211^^110^1308^9
 ;;^UTILITY(U,$J,358.3,25294,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25294,1,3,0)
 ;;=3^Acquired Absence of Right Upper Limb Below Elbow
 ;;^UTILITY(U,$J,358.3,25294,1,4,0)
 ;;=4^Z89.211
 ;;^UTILITY(U,$J,358.3,25294,2)
 ;;=^5063545
 ;;^UTILITY(U,$J,358.3,25295,0)
 ;;=Z89.212^^110^1308^12
 ;;^UTILITY(U,$J,358.3,25295,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25295,1,3,0)
 ;;=3^Acquired Absence of Upper Limb Below Elbow
 ;;^UTILITY(U,$J,358.3,25295,1,4,0)
 ;;=4^Z89.212
 ;;^UTILITY(U,$J,358.3,25295,2)
 ;;=^5063546
 ;;^UTILITY(U,$J,358.3,25296,0)
 ;;=Z89.221^^110^1308^8
 ;;^UTILITY(U,$J,358.3,25296,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25296,1,3,0)
 ;;=3^Acquired Absence of Right Upper Limb Above Elbow
 ;;^UTILITY(U,$J,358.3,25296,1,4,0)
 ;;=4^Z89.221
 ;;^UTILITY(U,$J,358.3,25296,2)
 ;;=^5063548
 ;;^UTILITY(U,$J,358.3,25297,0)
 ;;=Z89.222^^110^1308^3
 ;;^UTILITY(U,$J,358.3,25297,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25297,1,3,0)
 ;;=3^Acquired Absence of Left Upper Limb Above Elbow
 ;;^UTILITY(U,$J,358.3,25297,1,4,0)
 ;;=4^Z89.222
 ;;^UTILITY(U,$J,358.3,25297,2)
 ;;=^5063549
 ;;^UTILITY(U,$J,358.3,25298,0)
 ;;=Z89.231^^110^1308^7
 ;;^UTILITY(U,$J,358.3,25298,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25298,1,3,0)
 ;;=3^Acquired Absence of Right Shoulder
 ;;^UTILITY(U,$J,358.3,25298,1,4,0)
 ;;=4^Z89.231
 ;;^UTILITY(U,$J,358.3,25298,2)
 ;;=^5063551
 ;;^UTILITY(U,$J,358.3,25299,0)
 ;;=Z89.232^^110^1308^2
 ;;^UTILITY(U,$J,358.3,25299,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25299,1,3,0)
 ;;=3^Acquired Absence of Left Shoulder
 ;;^UTILITY(U,$J,358.3,25299,1,4,0)
 ;;=4^Z89.232
 ;;^UTILITY(U,$J,358.3,25299,2)
 ;;=^5063552
 ;;^UTILITY(U,$J,358.3,25300,0)
 ;;=99241^^111^1309^1
 ;;^UTILITY(U,$J,358.3,25300,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25300,1,1,0)
 ;;=1^Problem Focused H&E;Straight Forward MDM
 ;;^UTILITY(U,$J,358.3,25300,1,2,0)
 ;;=2^99241
 ;;^UTILITY(U,$J,358.3,25301,0)
 ;;=99242^^111^1309^2
 ;;^UTILITY(U,$J,358.3,25301,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25301,1,1,0)
 ;;=1^Exp Problem Focused H&E;Straight Forward MDM
 ;;^UTILITY(U,$J,358.3,25301,1,2,0)
 ;;=2^99242
 ;;^UTILITY(U,$J,358.3,25302,0)
 ;;=99243^^111^1309^3
 ;;^UTILITY(U,$J,358.3,25302,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25302,1,1,0)
 ;;=1^Detailed H&E;Low Complex MDM
 ;;^UTILITY(U,$J,358.3,25302,1,2,0)
 ;;=2^99243
 ;;^UTILITY(U,$J,358.3,25303,0)
 ;;=99244^^111^1309^4
 ;;^UTILITY(U,$J,358.3,25303,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25303,1,1,0)
 ;;=1^Comprehensive H&E;Moderate MDM
 ;;^UTILITY(U,$J,358.3,25303,1,2,0)
 ;;=2^99244
 ;;^UTILITY(U,$J,358.3,25304,0)
 ;;=99245^^111^1309^5
 ;;^UTILITY(U,$J,358.3,25304,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25304,1,1,0)
 ;;=1^Comprehensive H&E;High MDM
 ;;^UTILITY(U,$J,358.3,25304,1,2,0)
 ;;=2^99245
 ;;^UTILITY(U,$J,358.3,25305,0)
 ;;=99211^^111^1310^1
 ;;^UTILITY(U,$J,358.3,25305,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25305,1,1,0)
 ;;=1^Problem Focused H or E;Straight Forward/Minimal MDM
 ;;^UTILITY(U,$J,358.3,25305,1,2,0)
 ;;=2^99211
 ;;^UTILITY(U,$J,358.3,25306,0)
 ;;=99212^^111^1310^2
 ;;^UTILITY(U,$J,358.3,25306,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25306,1,1,0)
 ;;=1^SF MDM or 10-19 min
 ;;^UTILITY(U,$J,358.3,25306,1,2,0)
 ;;=2^99212
 ;;^UTILITY(U,$J,358.3,25307,0)
 ;;=99213^^111^1310^3
 ;;^UTILITY(U,$J,358.3,25307,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25307,1,1,0)
 ;;=1^Low Complex MDM or 20-29 min
 ;;^UTILITY(U,$J,358.3,25307,1,2,0)
 ;;=2^99213
 ;;^UTILITY(U,$J,358.3,25308,0)
 ;;=99214^^111^1310^4
 ;;^UTILITY(U,$J,358.3,25308,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25308,1,1,0)
 ;;=1^Mod Complex MDM or 30-39 min
 ;;^UTILITY(U,$J,358.3,25308,1,2,0)
 ;;=2^99214
 ;;^UTILITY(U,$J,358.3,25309,0)
 ;;=99215^^111^1310^5
 ;;^UTILITY(U,$J,358.3,25309,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25309,1,1,0)
 ;;=1^High Complex MDM or 40-54 min
 ;;^UTILITY(U,$J,358.3,25309,1,2,0)
 ;;=2^99215
 ;;^UTILITY(U,$J,358.3,25310,0)
 ;;=99202^^111^1311^1
 ;;^UTILITY(U,$J,358.3,25310,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25310,1,1,0)
 ;;=1^SF MDM or 15-29 min
 ;;^UTILITY(U,$J,358.3,25310,1,2,0)
 ;;=2^99202
 ;;^UTILITY(U,$J,358.3,25311,0)
 ;;=99203^^111^1311^2
 ;;^UTILITY(U,$J,358.3,25311,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25311,1,1,0)
 ;;=1^Low Complex MDM or 30-44 min
 ;;^UTILITY(U,$J,358.3,25311,1,2,0)
 ;;=2^99203
 ;;^UTILITY(U,$J,358.3,25312,0)
 ;;=99204^^111^1311^3
 ;;^UTILITY(U,$J,358.3,25312,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25312,1,1,0)
 ;;=1^Mod Complex MDM or 45-59 min
 ;;^UTILITY(U,$J,358.3,25312,1,2,0)
 ;;=2^99204
 ;;^UTILITY(U,$J,358.3,25313,0)
 ;;=99205^^111^1311^4
 ;;^UTILITY(U,$J,358.3,25313,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25313,1,1,0)
 ;;=1^High Complex MDM or 60-74 min
 ;;^UTILITY(U,$J,358.3,25313,1,2,0)
 ;;=2^99205
 ;;^UTILITY(U,$J,358.3,25314,0)
 ;;=99341^^111^1312^1
 ;;^UTILITY(U,$J,358.3,25314,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25314,1,1,0)
 ;;=1^Problem Focused H&E;Solution Focused MDM
 ;;^UTILITY(U,$J,358.3,25314,1,2,0)
 ;;=2^99341
 ;;^UTILITY(U,$J,358.3,25315,0)
 ;;=99342^^111^1312^2
 ;;^UTILITY(U,$J,358.3,25315,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25315,1,1,0)
 ;;=1^Exp Problem Focused H&E;Sol Focused MDM
 ;;^UTILITY(U,$J,358.3,25315,1,2,0)
 ;;=2^99342
 ;;^UTILITY(U,$J,358.3,25316,0)
 ;;=99343^^111^1312^3
 ;;^UTILITY(U,$J,358.3,25316,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25316,1,1,0)
 ;;=1^High Severity Problem
 ;;^UTILITY(U,$J,358.3,25316,1,2,0)
 ;;=2^99343
 ;;^UTILITY(U,$J,358.3,25317,0)
 ;;=99343^^111^1312^4
 ;;^UTILITY(U,$J,358.3,25317,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25317,1,1,0)
 ;;=1^Detailed H&E;Low Complex MDM
 ;;^UTILITY(U,$J,358.3,25317,1,2,0)
 ;;=2^99343
 ;;^UTILITY(U,$J,358.3,25318,0)
 ;;=99344^^111^1312^5
 ;;^UTILITY(U,$J,358.3,25318,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25318,1,1,0)
 ;;=1^Comprehensive H&E;Moderate MDM
 ;;^UTILITY(U,$J,358.3,25318,1,2,0)
 ;;=2^99344
 ;;^UTILITY(U,$J,358.3,25319,0)
 ;;=99345^^111^1312^6
 ;;^UTILITY(U,$J,358.3,25319,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25319,1,1,0)
 ;;=1^Comprehensive H&E:High Complex MDM
 ;;^UTILITY(U,$J,358.3,25319,1,2,0)
 ;;=2^99345
 ;;^UTILITY(U,$J,358.3,25320,0)
 ;;=99347^^111^1313^1
 ;;^UTILITY(U,$J,358.3,25320,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25320,1,1,0)
 ;;=1^Prob Focused H or E;Sol Focused MDM
 ;;^UTILITY(U,$J,358.3,25320,1,2,0)
 ;;=2^99347
 ;;^UTILITY(U,$J,358.3,25321,0)
 ;;=99348^^111^1313^2
 ;;^UTILITY(U,$J,358.3,25321,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,25321,1,1,0)
 ;;=1^Exp Prob Focused H or E;Sol Focused MDM
 ;;^UTILITY(U,$J,358.3,25321,1,2,0)
 ;;=2^99348
 ;;^UTILITY(U,$J,358.3,25322,0)
 ;;=99349^^111^1313^3
 ;;^UTILITY(U,$J,358.3,25322,1,0)
 ;;=^358.31IA^2^2