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

IBDEI09Q.m

Go to the documentation of this file.
IBDEI09Q ; ; 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,23776,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23776,1,3,0)
 ;;=3^NPH w/ Dementia w/ Behavioral Disturbances
 ;;^UTILITY(U,$J,358.3,23776,1,4,0)
 ;;=4^G91.2
 ;;^UTILITY(U,$J,358.3,23776,2)
 ;;=^5004174^F02.81
 ;;^UTILITY(U,$J,358.3,23777,0)
 ;;=G91.2^^71^934^23
 ;;^UTILITY(U,$J,358.3,23777,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23777,1,3,0)
 ;;=3^NPH w/ Dementia w/o Behavioral Disturbances
 ;;^UTILITY(U,$J,358.3,23777,1,4,0)
 ;;=4^G91.2
 ;;^UTILITY(U,$J,358.3,23777,2)
 ;;=^5004174^F02.80
 ;;^UTILITY(U,$J,358.3,23778,0)
 ;;=G30.8^^71^934^5
 ;;^UTILITY(U,$J,358.3,23778,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23778,1,3,0)
 ;;=3^Alzheimer's Diseases NEC
 ;;^UTILITY(U,$J,358.3,23778,1,4,0)
 ;;=4^G30.8
 ;;^UTILITY(U,$J,358.3,23778,2)
 ;;=^5003807
 ;;^UTILITY(U,$J,358.3,23779,0)
 ;;=G31.09^^71^934^16
 ;;^UTILITY(U,$J,358.3,23779,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23779,1,3,0)
 ;;=3^Frontotemporal Dementia NEC
 ;;^UTILITY(U,$J,358.3,23779,1,4,0)
 ;;=4^G31.09
 ;;^UTILITY(U,$J,358.3,23779,2)
 ;;=^329916
 ;;^UTILITY(U,$J,358.3,23780,0)
 ;;=G20.^^71^934^24
 ;;^UTILITY(U,$J,358.3,23780,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23780,1,3,0)
 ;;=3^Parkinson's Disease w/ Dementia w/ Behavioral Disturbances
 ;;^UTILITY(U,$J,358.3,23780,1,4,0)
 ;;=4^G20.
 ;;^UTILITY(U,$J,358.3,23780,2)
 ;;=^5003770^F02.81
 ;;^UTILITY(U,$J,358.3,23781,0)
 ;;=G20.^^71^934^25
 ;;^UTILITY(U,$J,358.3,23781,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23781,1,3,0)
 ;;=3^Parkinson's Disease w/ Dementia w/o Behavioral Disturbances
 ;;^UTILITY(U,$J,358.3,23781,1,4,0)
 ;;=4^G20.
 ;;^UTILITY(U,$J,358.3,23781,2)
 ;;=^5003770^F02.80
 ;;^UTILITY(U,$J,358.3,23782,0)
 ;;=G31.01^^71^934^26
 ;;^UTILITY(U,$J,358.3,23782,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23782,1,3,0)
 ;;=3^Pick's Disease
 ;;^UTILITY(U,$J,358.3,23782,1,4,0)
 ;;=4^G31.01
 ;;^UTILITY(U,$J,358.3,23782,2)
 ;;=^329915
 ;;^UTILITY(U,$J,358.3,23783,0)
 ;;=G23.1^^71^934^28
 ;;^UTILITY(U,$J,358.3,23783,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23783,1,3,0)
 ;;=3^Progressive Supranuclear Ophthalmoplegia
 ;;^UTILITY(U,$J,358.3,23783,1,4,0)
 ;;=4^G23.1
 ;;^UTILITY(U,$J,358.3,23783,2)
 ;;=^5003780
 ;;^UTILITY(U,$J,358.3,23784,0)
 ;;=Z79.2^^71^935^1
 ;;^UTILITY(U,$J,358.3,23784,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23784,1,3,0)
 ;;=3^Antibiotics
 ;;^UTILITY(U,$J,358.3,23784,1,4,0)
 ;;=4^Z79.2
 ;;^UTILITY(U,$J,358.3,23784,2)
 ;;=^321546
 ;;^UTILITY(U,$J,358.3,23785,0)
 ;;=Z79.01^^71^935^2
 ;;^UTILITY(U,$J,358.3,23785,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23785,1,3,0)
 ;;=3^Anticoagulants
 ;;^UTILITY(U,$J,358.3,23785,1,4,0)
 ;;=4^Z79.01
 ;;^UTILITY(U,$J,358.3,23785,2)
 ;;=^5063330
 ;;^UTILITY(U,$J,358.3,23786,0)
 ;;=Z79.02^^71^935^3
 ;;^UTILITY(U,$J,358.3,23786,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23786,1,3,0)
 ;;=3^Antiplatelets/Antithrombotics
 ;;^UTILITY(U,$J,358.3,23786,1,4,0)
 ;;=4^Z79.02
 ;;^UTILITY(U,$J,358.3,23786,2)
 ;;=^5063331
 ;;^UTILITY(U,$J,358.3,23787,0)
 ;;=Z79.82^^71^935^4
 ;;^UTILITY(U,$J,358.3,23787,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23787,1,3,0)
 ;;=3^Aspirin
 ;;^UTILITY(U,$J,358.3,23787,1,4,0)
 ;;=4^Z79.82
 ;;^UTILITY(U,$J,358.3,23787,2)
 ;;=^5063340
 ;;^UTILITY(U,$J,358.3,23788,0)
 ;;=Z79.4^^71^935^6
 ;;^UTILITY(U,$J,358.3,23788,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23788,1,3,0)
 ;;=3^Insulin
 ;;^UTILITY(U,$J,358.3,23788,1,4,0)
 ;;=4^Z79.4
 ;;^UTILITY(U,$J,358.3,23788,2)
 ;;=^5063334
 ;;^UTILITY(U,$J,358.3,23789,0)
 ;;=Z79.1^^71^935^9
 ;;^UTILITY(U,$J,358.3,23789,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23789,1,3,0)
 ;;=3^NSAID
 ;;^UTILITY(U,$J,358.3,23789,1,4,0)
 ;;=4^Z79.1
 ;;^UTILITY(U,$J,358.3,23789,2)
 ;;=^5063332
 ;;^UTILITY(U,$J,358.3,23790,0)
 ;;=Z79.891^^71^935^8
 ;;^UTILITY(U,$J,358.3,23790,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23790,1,3,0)
 ;;=3^Long Term Opiate/Opioid Analgesic Use
 ;;^UTILITY(U,$J,358.3,23790,1,4,0)
 ;;=4^Z79.891
 ;;^UTILITY(U,$J,358.3,23790,2)
 ;;=^5063342
 ;;^UTILITY(U,$J,358.3,23791,0)
 ;;=Z79.51^^71^935^5
 ;;^UTILITY(U,$J,358.3,23791,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23791,1,3,0)
 ;;=3^Inhaled Steroids
 ;;^UTILITY(U,$J,358.3,23791,1,4,0)
 ;;=4^Z79.51
 ;;^UTILITY(U,$J,358.3,23791,2)
 ;;=^5063335
 ;;^UTILITY(U,$J,358.3,23792,0)
 ;;=Z79.52^^71^935^11
 ;;^UTILITY(U,$J,358.3,23792,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23792,1,3,0)
 ;;=3^Steroids-Systemic
 ;;^UTILITY(U,$J,358.3,23792,1,4,0)
 ;;=4^Z79.52
 ;;^UTILITY(U,$J,358.3,23792,2)
 ;;=^5063336
 ;;^UTILITY(U,$J,358.3,23793,0)
 ;;=Z79.899^^71^935^7
 ;;^UTILITY(U,$J,358.3,23793,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23793,1,3,0)
 ;;=3^Long Term Current Drug Therapy NEC
 ;;^UTILITY(U,$J,358.3,23793,1,4,0)
 ;;=4^Z79.899
 ;;^UTILITY(U,$J,358.3,23793,2)
 ;;=^5063343
 ;;^UTILITY(U,$J,358.3,23794,0)
 ;;=Z79.84^^71^935^10
 ;;^UTILITY(U,$J,358.3,23794,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23794,1,3,0)
 ;;=3^Oral Hypoglycemic Drugs
 ;;^UTILITY(U,$J,358.3,23794,1,4,0)
 ;;=4^Z79.84
 ;;^UTILITY(U,$J,358.3,23794,2)
 ;;=^5140432
 ;;^UTILITY(U,$J,358.3,23795,0)
 ;;=Z90.13^^71^936^5
 ;;^UTILITY(U,$J,358.3,23795,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23795,1,3,0)
 ;;=3^Acquired Absence of Breasts & Nipples,Bilateral
 ;;^UTILITY(U,$J,358.3,23795,1,4,0)
 ;;=4^Z90.13
 ;;^UTILITY(U,$J,358.3,23795,2)
 ;;=^5063584
 ;;^UTILITY(U,$J,358.3,23796,0)
 ;;=Z90.710^^71^936^6
 ;;^UTILITY(U,$J,358.3,23796,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23796,1,3,0)
 ;;=3^Acquired Absence of Cervix & Uterus
 ;;^UTILITY(U,$J,358.3,23796,1,4,0)
 ;;=4^Z90.710
 ;;^UTILITY(U,$J,358.3,23796,2)
 ;;=^5063591
 ;;^UTILITY(U,$J,358.3,23797,0)
 ;;=Z90.712^^71^936^7
 ;;^UTILITY(U,$J,358.3,23797,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23797,1,3,0)
 ;;=3^Acquired Absence of Cervix x/ Remaining Uterus
 ;;^UTILITY(U,$J,358.3,23797,1,4,0)
 ;;=4^Z90.712
 ;;^UTILITY(U,$J,358.3,23797,2)
 ;;=^5063593
 ;;^UTILITY(U,$J,358.3,23798,0)
 ;;=Z90.711^^71^936^42
 ;;^UTILITY(U,$J,358.3,23798,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23798,1,3,0)
 ;;=3^Acquired Absence of Uterus w/ Remaining Cervical Stump
 ;;^UTILITY(U,$J,358.3,23798,1,4,0)
 ;;=4^Z90.711
 ;;^UTILITY(U,$J,358.3,23798,2)
 ;;=^5063592
 ;;^UTILITY(U,$J,358.3,23799,0)
 ;;=Z90.5^^71^936^18
 ;;^UTILITY(U,$J,358.3,23799,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23799,1,3,0)
 ;;=3^Acquired Absence of Kidney
 ;;^UTILITY(U,$J,358.3,23799,1,4,0)
 ;;=4^Z90.5
 ;;^UTILITY(U,$J,358.3,23799,2)
 ;;=^5063590
 ;;^UTILITY(U,$J,358.3,23800,0)
 ;;=Z90.02^^71^936^19
 ;;^UTILITY(U,$J,358.3,23800,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23800,1,3,0)
 ;;=3^Acquired Absence of Larynx
 ;;^UTILITY(U,$J,358.3,23800,1,4,0)
 ;;=4^Z90.02
 ;;^UTILITY(U,$J,358.3,23800,2)
 ;;=^5063579
 ;;^UTILITY(U,$J,358.3,23801,0)
 ;;=Z89.442^^71^936^1
 ;;^UTILITY(U,$J,358.3,23801,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23801,1,3,0)
 ;;=3^Acquired Absence of Ankle,Left
 ;;^UTILITY(U,$J,358.3,23801,1,4,0)
 ;;=4^Z89.442
 ;;^UTILITY(U,$J,358.3,23801,2)
 ;;=^5063564
 ;;^UTILITY(U,$J,358.3,23802,0)
 ;;=Z90.12^^71^936^3
 ;;^UTILITY(U,$J,358.3,23802,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23802,1,3,0)
 ;;=3^Acquired Absence of Breast & Nipple,Left
 ;;^UTILITY(U,$J,358.3,23802,1,4,0)
 ;;=4^Z90.12
 ;;^UTILITY(U,$J,358.3,23802,2)
 ;;=^5063583
 ;;^UTILITY(U,$J,358.3,23803,0)
 ;;=Z89.022^^71^936^8
 ;;^UTILITY(U,$J,358.3,23803,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23803,1,3,0)
 ;;=3^Acquired Absence of Finger(s),Left
 ;;^UTILITY(U,$J,358.3,23803,1,4,0)
 ;;=4^Z89.022
 ;;^UTILITY(U,$J,358.3,23803,2)
 ;;=^5063535
 ;;^UTILITY(U,$J,358.3,23804,0)
 ;;=Z89.432^^71^936^10
 ;;^UTILITY(U,$J,358.3,23804,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23804,1,3,0)
 ;;=3^Acquired Absence of Foot,Left
 ;;^UTILITY(U,$J,358.3,23804,1,4,0)
 ;;=4^Z89.432
 ;;^UTILITY(U,$J,358.3,23804,2)
 ;;=^5063561
 ;;^UTILITY(U,$J,358.3,23805,0)
 ;;=Z89.412^^71^936^12
 ;;^UTILITY(U,$J,358.3,23805,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23805,1,3,0)
 ;;=3^Acquired Absence of Great Toe,Left
 ;;^UTILITY(U,$J,358.3,23805,1,4,0)
 ;;=4^Z89.412
 ;;^UTILITY(U,$J,358.3,23805,2)
 ;;=^5063555
 ;;^UTILITY(U,$J,358.3,23806,0)
 ;;=Z89.112^^71^936^14
 ;;^UTILITY(U,$J,358.3,23806,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23806,1,3,0)
 ;;=3^Acquired Absence of Hand,Left
 ;;^UTILITY(U,$J,358.3,23806,1,4,0)
 ;;=4^Z89.112
 ;;^UTILITY(U,$J,358.3,23806,2)
 ;;=^5063538
 ;;^UTILITY(U,$J,358.3,23807,0)
 ;;=Z89.622^^71^936^16
 ;;^UTILITY(U,$J,358.3,23807,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23807,1,3,0)
 ;;=3^Acquired Absence of Hip Joint,Left
 ;;^UTILITY(U,$J,358.3,23807,1,4,0)
 ;;=4^Z89.622
 ;;^UTILITY(U,$J,358.3,23807,2)
 ;;=^5063576
 ;;^UTILITY(U,$J,358.3,23808,0)
 ;;=Z89.612^^71^936^20
 ;;^UTILITY(U,$J,358.3,23808,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23808,1,3,0)
 ;;=3^Acquired Absence of Leg Above Knee,Left
 ;;^UTILITY(U,$J,358.3,23808,1,4,0)
 ;;=4^Z89.612
 ;;^UTILITY(U,$J,358.3,23808,2)
 ;;=^5063573
 ;;^UTILITY(U,$J,358.3,23809,0)
 ;;=Z89.512^^71^936^22
 ;;^UTILITY(U,$J,358.3,23809,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23809,1,3,0)
 ;;=3^Acquired Absence of Leg Below Knee,Left
 ;;^UTILITY(U,$J,358.3,23809,1,4,0)
 ;;=4^Z89.512
 ;;^UTILITY(U,$J,358.3,23809,2)
 ;;=^5063567
 ;;^UTILITY(U,$J,358.3,23810,0)
 ;;=Z89.232^^71^936^32
 ;;^UTILITY(U,$J,358.3,23810,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23810,1,3,0)
 ;;=3^Acquired Absence of Shoulder,Left
 ;;^UTILITY(U,$J,358.3,23810,1,4,0)
 ;;=4^Z89.232
 ;;^UTILITY(U,$J,358.3,23810,2)
 ;;=^5063552
 ;;^UTILITY(U,$J,358.3,23811,0)
 ;;=Z89.012^^71^936^36
 ;;^UTILITY(U,$J,358.3,23811,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23811,1,3,0)
 ;;=3^Acquired Absence of Thumb,Left
 ;;^UTILITY(U,$J,358.3,23811,1,4,0)
 ;;=4^Z89.012
 ;;^UTILITY(U,$J,358.3,23811,2)
 ;;=^5063532
 ;;^UTILITY(U,$J,358.3,23812,0)
 ;;=Z89.422^^71^936^25
 ;;^UTILITY(U,$J,358.3,23812,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23812,1,3,0)
 ;;=3^Acquired Absence of Oth Toe(s),Left
 ;;^UTILITY(U,$J,358.3,23812,1,4,0)
 ;;=4^Z89.422
 ;;^UTILITY(U,$J,358.3,23812,2)
 ;;=^5063558
 ;;^UTILITY(U,$J,358.3,23813,0)
 ;;=Z89.222^^71^936^38
 ;;^UTILITY(U,$J,358.3,23813,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23813,1,3,0)
 ;;=3^Acquired Absence of Upper Limb Above Elbow,Left
 ;;^UTILITY(U,$J,358.3,23813,1,4,0)
 ;;=4^Z89.222
 ;;^UTILITY(U,$J,358.3,23813,2)
 ;;=^5063549
 ;;^UTILITY(U,$J,358.3,23814,0)
 ;;=Z89.212^^71^936^40
 ;;^UTILITY(U,$J,358.3,23814,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23814,1,3,0)
 ;;=3^Acquired Absence of Upper Limb Below Elbow,Left
 ;;^UTILITY(U,$J,358.3,23814,1,4,0)
 ;;=4^Z89.212
 ;;^UTILITY(U,$J,358.3,23814,2)
 ;;=^5063546
 ;;^UTILITY(U,$J,358.3,23815,0)
 ;;=Z89.122^^71^936^43
 ;;^UTILITY(U,$J,358.3,23815,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23815,1,3,0)
 ;;=3^Acquired Absence of Wrist,Left
 ;;^UTILITY(U,$J,358.3,23815,1,4,0)
 ;;=4^Z89.122
 ;;^UTILITY(U,$J,358.3,23815,2)
 ;;=^5063541
 ;;^UTILITY(U,$J,358.3,23816,0)
 ;;=Z90.2^^71^936^24
 ;;^UTILITY(U,$J,358.3,23816,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23816,1,3,0)
 ;;=3^Acquired Absence of Lung (part of)
 ;;^UTILITY(U,$J,358.3,23816,1,4,0)
 ;;=4^Z90.2
 ;;^UTILITY(U,$J,358.3,23816,2)
 ;;=^5063585
 ;;^UTILITY(U,$J,358.3,23817,0)
 ;;=Z90.79^^71^936^31
 ;;^UTILITY(U,$J,358.3,23817,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23817,1,3,0)
 ;;=3^Acquired Absence of Prostate
 ;;^UTILITY(U,$J,358.3,23817,1,4,0)
 ;;=4^Z90.79
 ;;^UTILITY(U,$J,358.3,23817,2)
 ;;=^5063596
 ;;^UTILITY(U,$J,358.3,23818,0)
 ;;=Z90.722^^71^936^27
 ;;^UTILITY(U,$J,358.3,23818,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23818,1,3,0)
 ;;=3^Acquired Absence of Ovaries,Bilateral
 ;;^UTILITY(U,$J,358.3,23818,1,4,0)
 ;;=4^Z90.722
 ;;^UTILITY(U,$J,358.3,23818,2)
 ;;=^5063595
 ;;^UTILITY(U,$J,358.3,23819,0)
 ;;=Z90.721^^71^936^28
 ;;^UTILITY(U,$J,358.3,23819,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23819,1,3,0)
 ;;=3^Acquired Absence of Ovaries,Unilateral
 ;;^UTILITY(U,$J,358.3,23819,1,4,0)
 ;;=4^Z90.721
 ;;^UTILITY(U,$J,358.3,23819,2)
 ;;=^5063594
 ;;^UTILITY(U,$J,358.3,23820,0)
 ;;=Z90.411^^71^936^29
 ;;^UTILITY(U,$J,358.3,23820,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23820,1,3,0)
 ;;=3^Acquired Absence of Pancreas,Partial
 ;;^UTILITY(U,$J,358.3,23820,1,4,0)
 ;;=4^Z90.411
 ;;^UTILITY(U,$J,358.3,23820,2)
 ;;=^5063588
 ;;^UTILITY(U,$J,358.3,23821,0)
 ;;=Z90.410^^71^936^30
 ;;^UTILITY(U,$J,358.3,23821,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23821,1,3,0)
 ;;=3^Acquired Absence of Pancreas,Total
 ;;^UTILITY(U,$J,358.3,23821,1,4,0)
 ;;=4^Z90.410
 ;;^UTILITY(U,$J,358.3,23821,2)
 ;;=^5063587
 ;;^UTILITY(U,$J,358.3,23822,0)
 ;;=Z89.441^^71^936^2
 ;;^UTILITY(U,$J,358.3,23822,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23822,1,3,0)
 ;;=3^Acquired Absence of Ankle,Right
 ;;^UTILITY(U,$J,358.3,23822,1,4,0)
 ;;=4^Z89.441
 ;;^UTILITY(U,$J,358.3,23822,2)
 ;;=^5063563
 ;;^UTILITY(U,$J,358.3,23823,0)
 ;;=Z90.11^^71^936^4
 ;;^UTILITY(U,$J,358.3,23823,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23823,1,3,0)
 ;;=3^Acquired Absence of Breast & Nipple,Right
 ;;^UTILITY(U,$J,358.3,23823,1,4,0)
 ;;=4^Z90.11
 ;;^UTILITY(U,$J,358.3,23823,2)
 ;;=^5063582
 ;;^UTILITY(U,$J,358.3,23824,0)
 ;;=Z89.021^^71^936^9
 ;;^UTILITY(U,$J,358.3,23824,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23824,1,3,0)
 ;;=3^Acquired Absence of Finger(s),Right
 ;;^UTILITY(U,$J,358.3,23824,1,4,0)
 ;;=4^Z89.021
 ;;^UTILITY(U,$J,358.3,23824,2)
 ;;=^5063534
 ;;^UTILITY(U,$J,358.3,23825,0)
 ;;=Z89.431^^71^936^11
 ;;^UTILITY(U,$J,358.3,23825,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23825,1,3,0)
 ;;=3^Acquired Absence of Foot,Right
 ;;^UTILITY(U,$J,358.3,23825,1,4,0)
 ;;=4^Z89.431
 ;;^UTILITY(U,$J,358.3,23825,2)
 ;;=^5063560
 ;;^UTILITY(U,$J,358.3,23826,0)
 ;;=Z89.411^^71^936^13
 ;;^UTILITY(U,$J,358.3,23826,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23826,1,3,0)
 ;;=3^Acquired Absence of Great Toe,Right
 ;;^UTILITY(U,$J,358.3,23826,1,4,0)
 ;;=4^Z89.411
 ;;^UTILITY(U,$J,358.3,23826,2)
 ;;=^5063554
 ;;^UTILITY(U,$J,358.3,23827,0)
 ;;=Z89.111^^71^936^15
 ;;^UTILITY(U,$J,358.3,23827,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23827,1,3,0)
 ;;=3^Acquired Absence of Hand,Right
 ;;^UTILITY(U,$J,358.3,23827,1,4,0)
 ;;=4^Z89.111
 ;;^UTILITY(U,$J,358.3,23827,2)
 ;;=^5063537
 ;;^UTILITY(U,$J,358.3,23828,0)
 ;;=Z89.621^^71^936^17
 ;;^UTILITY(U,$J,358.3,23828,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23828,1,3,0)
 ;;=3^Acquired Absence of Hip Joint,Right
 ;;^UTILITY(U,$J,358.3,23828,1,4,0)
 ;;=4^Z89.621
 ;;^UTILITY(U,$J,358.3,23828,2)
 ;;=^5063575
 ;;^UTILITY(U,$J,358.3,23829,0)
 ;;=Z89.611^^71^936^21
 ;;^UTILITY(U,$J,358.3,23829,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23829,1,3,0)
 ;;=3^Acquired Absence of Leg Above Knee,Right
 ;;^UTILITY(U,$J,358.3,23829,1,4,0)
 ;;=4^Z89.611
 ;;^UTILITY(U,$J,358.3,23829,2)
 ;;=^5063572
 ;;^UTILITY(U,$J,358.3,23830,0)
 ;;=Z89.511^^71^936^23
 ;;^UTILITY(U,$J,358.3,23830,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23830,1,3,0)
 ;;=3^Acquired Absence of Leg Below Knee,Right
 ;;^UTILITY(U,$J,358.3,23830,1,4,0)
 ;;=4^Z89.511
 ;;^UTILITY(U,$J,358.3,23830,2)
 ;;=^5063566
 ;;^UTILITY(U,$J,358.3,23831,0)
 ;;=Z89.231^^71^936^33
 ;;^UTILITY(U,$J,358.3,23831,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23831,1,3,0)
 ;;=3^Acquired Absence of Shoulder,Right
 ;;^UTILITY(U,$J,358.3,23831,1,4,0)
 ;;=4^Z89.231
 ;;^UTILITY(U,$J,358.3,23831,2)
 ;;=^5063551
 ;;^UTILITY(U,$J,358.3,23832,0)
 ;;=Z89.011^^71^936^37
 ;;^UTILITY(U,$J,358.3,23832,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23832,1,3,0)
 ;;=3^Acquired Absence of Thumb,Right
 ;;^UTILITY(U,$J,358.3,23832,1,4,0)
 ;;=4^Z89.011
 ;;^UTILITY(U,$J,358.3,23832,2)
 ;;=^5063531
 ;;^UTILITY(U,$J,358.3,23833,0)
 ;;=Z89.421^^71^936^26
 ;;^UTILITY(U,$J,358.3,23833,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23833,1,3,0)
 ;;=3^Acquired Absence of Oth Toe(s),Right
 ;;^UTILITY(U,$J,358.3,23833,1,4,0)
 ;;=4^Z89.421
 ;;^UTILITY(U,$J,358.3,23833,2)
 ;;=^5063557
 ;;^UTILITY(U,$J,358.3,23834,0)
 ;;=Z89.221^^71^936^39
 ;;^UTILITY(U,$J,358.3,23834,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23834,1,3,0)
 ;;=3^Acquired Absence of Upper Limb Above Elbow,Right
 ;;^UTILITY(U,$J,358.3,23834,1,4,0)
 ;;=4^Z89.221
 ;;^UTILITY(U,$J,358.3,23834,2)
 ;;=^5063548
 ;;^UTILITY(U,$J,358.3,23835,0)
 ;;=Z89.211^^71^936^41
 ;;^UTILITY(U,$J,358.3,23835,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23835,1,3,0)
 ;;=3^Acquired Absence of Upper Limb Below Elbow,Right
 ;;^UTILITY(U,$J,358.3,23835,1,4,0)
 ;;=4^Z89.211
 ;;^UTILITY(U,$J,358.3,23835,2)
 ;;=^5063545
 ;;^UTILITY(U,$J,358.3,23836,0)
 ;;=Z89.121^^71^936^44
 ;;^UTILITY(U,$J,358.3,23836,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23836,1,3,0)
 ;;=3^Acquired Absence of Wrist,Right
 ;;^UTILITY(U,$J,358.3,23836,1,4,0)
 ;;=4^Z89.121
 ;;^UTILITY(U,$J,358.3,23836,2)
 ;;=^5063540
 ;;^UTILITY(U,$J,358.3,23837,0)
 ;;=Z90.81^^71^936^34
 ;;^UTILITY(U,$J,358.3,23837,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23837,1,3,0)
 ;;=3^Acquired Absence of Spleen
 ;;^UTILITY(U,$J,358.3,23837,1,4,0)
 ;;=4^Z90.81
 ;;^UTILITY(U,$J,358.3,23837,2)
 ;;=^5063597
 ;;^UTILITY(U,$J,358.3,23838,0)
 ;;=Z90.3^^71^936^35
 ;;^UTILITY(U,$J,358.3,23838,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23838,1,3,0)
 ;;=3^Acquired Absence of Stomach (part of)
 ;;^UTILITY(U,$J,358.3,23838,1,4,0)
 ;;=4^Z90.3
 ;;^UTILITY(U,$J,358.3,23838,2)
 ;;=^5063586
 ;;^UTILITY(U,$J,358.3,23839,0)
 ;;=R45.851^^71^937^3
 ;;^UTILITY(U,$J,358.3,23839,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23839,1,3,0)
 ;;=3^Suicidal Ideations
 ;;^UTILITY(U,$J,358.3,23839,1,4,0)
 ;;=4^R45.851
 ;;^UTILITY(U,$J,358.3,23839,2)
 ;;=^5019474
 ;;^UTILITY(U,$J,358.3,23840,0)
 ;;=T14.91XA^^71^937^4
 ;;^UTILITY(U,$J,358.3,23840,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23840,1,3,0)
 ;;=3^Suicide Attempt,Initial Encntr
 ;;^UTILITY(U,$J,358.3,23840,1,4,0)
 ;;=4^T14.91XA
 ;;^UTILITY(U,$J,358.3,23840,2)
 ;;=^5151779
 ;;^UTILITY(U,$J,358.3,23841,0)
 ;;=T14.91XD^^71^937^6
 ;;^UTILITY(U,$J,358.3,23841,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23841,1,3,0)
 ;;=3^Suicide Attempt,Subsequent Encntr
 ;;^UTILITY(U,$J,358.3,23841,1,4,0)
 ;;=4^T14.91XD
 ;;^UTILITY(U,$J,358.3,23841,2)
 ;;=^5151780
 ;;^UTILITY(U,$J,358.3,23842,0)
 ;;=T14.91XS^^71^937^5
 ;;^UTILITY(U,$J,358.3,23842,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23842,1,3,0)
 ;;=3^Suicide Attempt,Sequela
 ;;^UTILITY(U,$J,358.3,23842,1,4,0)
 ;;=4^T14.91XS
 ;;^UTILITY(U,$J,358.3,23842,2)
 ;;=^5151781
 ;;^UTILITY(U,$J,358.3,23843,0)
 ;;=Z91.52^^71^937^1
 ;;^UTILITY(U,$J,358.3,23843,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,23843,1,3,0)
 ;;=3^Personal Hx of Non-Suicidal Self-Harm
 ;;^UTILITY(U,$J,358.3,23843,1,4,0)
 ;;=4^Z91.52
 ;;^UTILITY(U,$J,358.3,23843,2)
 ;;=^5161318
 ;;^UTILITY(U,$J,358.3,23844,0)
 ;;=Z91.51^^71^937^2