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

IBDEI02Q.m

Go to the documentation of this file.
IBDEI02Q ; ; 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,6086,1,4,0)
 ;;=4^B02.0
 ;;^UTILITY(U,$J,358.3,6086,2)
 ;;=^5000488
 ;;^UTILITY(U,$J,358.3,6087,0)
 ;;=B02.29^^47^376^36
 ;;^UTILITY(U,$J,358.3,6087,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6087,1,3,0)
 ;;=3^Postherpetic Nervous System Involvement,Other
 ;;^UTILITY(U,$J,358.3,6087,1,4,0)
 ;;=4^B02.29
 ;;^UTILITY(U,$J,358.3,6087,2)
 ;;=^5000492
 ;;^UTILITY(U,$J,358.3,6088,0)
 ;;=F03.90^^47^376^10
 ;;^UTILITY(U,$J,358.3,6088,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6088,1,3,0)
 ;;=3^Dementia w/o Behavioral Disturbance,Unspec
 ;;^UTILITY(U,$J,358.3,6088,1,4,0)
 ;;=4^F03.90
 ;;^UTILITY(U,$J,358.3,6088,2)
 ;;=^5003050
 ;;^UTILITY(U,$J,358.3,6089,0)
 ;;=F03.91^^47^376^9
 ;;^UTILITY(U,$J,358.3,6089,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6089,1,3,0)
 ;;=3^Dementia w/ Behavioral Disturbance,Unspec
 ;;^UTILITY(U,$J,358.3,6089,1,4,0)
 ;;=4^F03.91
 ;;^UTILITY(U,$J,358.3,6089,2)
 ;;=^5133350
 ;;^UTILITY(U,$J,358.3,6090,0)
 ;;=F01.50^^47^376^12
 ;;^UTILITY(U,$J,358.3,6090,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6090,1,3,0)
 ;;=3^Dementia,Vascular w/o Behavioral Disturbance
 ;;^UTILITY(U,$J,358.3,6090,1,4,0)
 ;;=4^F01.50
 ;;^UTILITY(U,$J,358.3,6090,2)
 ;;=^5003046
 ;;^UTILITY(U,$J,358.3,6091,0)
 ;;=F10.27^^47^376^11
 ;;^UTILITY(U,$J,358.3,6091,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6091,1,3,0)
 ;;=3^Dementia,Alcohol-Induced/Persist w/ Alcohol Dependence
 ;;^UTILITY(U,$J,358.3,6091,1,4,0)
 ;;=4^F10.27
 ;;^UTILITY(U,$J,358.3,6091,2)
 ;;=^5003095
 ;;^UTILITY(U,$J,358.3,6092,0)
 ;;=F06.1^^47^376^6
 ;;^UTILITY(U,$J,358.3,6092,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6092,1,3,0)
 ;;=3^Catatonic Disorder d/t Known Physiological Condition
 ;;^UTILITY(U,$J,358.3,6092,1,4,0)
 ;;=4^F06.1
 ;;^UTILITY(U,$J,358.3,6092,2)
 ;;=^5003054
 ;;^UTILITY(U,$J,358.3,6093,0)
 ;;=F06.8^^47^376^21
 ;;^UTILITY(U,$J,358.3,6093,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6093,1,3,0)
 ;;=3^Mental Disorders d/t Known Physiological Condition,Other
 ;;^UTILITY(U,$J,358.3,6093,1,4,0)
 ;;=4^F06.8
 ;;^UTILITY(U,$J,358.3,6093,2)
 ;;=^5003062
 ;;^UTILITY(U,$J,358.3,6094,0)
 ;;=F06.0^^47^376^37
 ;;^UTILITY(U,$J,358.3,6094,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6094,1,3,0)
 ;;=3^Psychotic Disorder w/ Hallucin d/t Known Physiol Condition
 ;;^UTILITY(U,$J,358.3,6094,1,4,0)
 ;;=4^F06.0
 ;;^UTILITY(U,$J,358.3,6094,2)
 ;;=^5003053
 ;;^UTILITY(U,$J,358.3,6095,0)
 ;;=G44.209^^47^376^42
 ;;^UTILITY(U,$J,358.3,6095,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6095,1,3,0)
 ;;=3^Tension-Type Headache,Not Intractable,Unspec
 ;;^UTILITY(U,$J,358.3,6095,1,4,0)
 ;;=4^G44.209
 ;;^UTILITY(U,$J,358.3,6095,2)
 ;;=^5003936
 ;;^UTILITY(U,$J,358.3,6096,0)
 ;;=F09.^^47^376^20
 ;;^UTILITY(U,$J,358.3,6096,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6096,1,3,0)
 ;;=3^Mental Disorder d/t Known Physiological Condition,Unspec
 ;;^UTILITY(U,$J,358.3,6096,1,4,0)
 ;;=4^F09.
 ;;^UTILITY(U,$J,358.3,6096,2)
 ;;=^5003067
 ;;^UTILITY(U,$J,358.3,6097,0)
 ;;=F07.9^^47^376^35
 ;;^UTILITY(U,$J,358.3,6097,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6097,1,3,0)
 ;;=3^Personality & Behavrl Disorder d/t Known Physiol Cond,Unspec
 ;;^UTILITY(U,$J,358.3,6097,1,4,0)
 ;;=4^F07.9
 ;;^UTILITY(U,$J,358.3,6097,2)
 ;;=^5003066
 ;;^UTILITY(U,$J,358.3,6098,0)
 ;;=G30.0^^47^376^1
 ;;^UTILITY(U,$J,358.3,6098,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6098,1,3,0)
 ;;=3^Alzheimer's Disease w/ Early Onset
 ;;^UTILITY(U,$J,358.3,6098,1,4,0)
 ;;=4^G30.0
 ;;^UTILITY(U,$J,358.3,6098,2)
 ;;=^5003805
 ;;^UTILITY(U,$J,358.3,6099,0)
 ;;=G30.8^^47^376^3
 ;;^UTILITY(U,$J,358.3,6099,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6099,1,3,0)
 ;;=3^Alzheimer's Disease,Other
 ;;^UTILITY(U,$J,358.3,6099,1,4,0)
 ;;=4^G30.8
 ;;^UTILITY(U,$J,358.3,6099,2)
 ;;=^5003807
 ;;^UTILITY(U,$J,358.3,6100,0)
 ;;=G30.1^^47^376^2
 ;;^UTILITY(U,$J,358.3,6100,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6100,1,3,0)
 ;;=3^Alzheimer's Disease w/ Late Onset
 ;;^UTILITY(U,$J,358.3,6100,1,4,0)
 ;;=4^G30.1
 ;;^UTILITY(U,$J,358.3,6100,2)
 ;;=^5003806
 ;;^UTILITY(U,$J,358.3,6101,0)
 ;;=G30.9^^47^376^4
 ;;^UTILITY(U,$J,358.3,6101,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6101,1,3,0)
 ;;=3^Alzheimer's Disease,Unspec
 ;;^UTILITY(U,$J,358.3,6101,1,4,0)
 ;;=4^G30.9
 ;;^UTILITY(U,$J,358.3,6101,2)
 ;;=^5003808
 ;;^UTILITY(U,$J,358.3,6102,0)
 ;;=G21.4^^47^376^45
 ;;^UTILITY(U,$J,358.3,6102,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6102,1,3,0)
 ;;=3^Vascular Parkinsonism
 ;;^UTILITY(U,$J,358.3,6102,1,4,0)
 ;;=4^G21.4
 ;;^UTILITY(U,$J,358.3,6102,2)
 ;;=^5003776
 ;;^UTILITY(U,$J,358.3,6103,0)
 ;;=G20.^^47^376^34
 ;;^UTILITY(U,$J,358.3,6103,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6103,1,3,0)
 ;;=3^Parkinson's Disease
 ;;^UTILITY(U,$J,358.3,6103,1,4,0)
 ;;=4^G20.
 ;;^UTILITY(U,$J,358.3,6103,2)
 ;;=^5003770
 ;;^UTILITY(U,$J,358.3,6104,0)
 ;;=G25.0^^47^376^15
 ;;^UTILITY(U,$J,358.3,6104,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6104,1,3,0)
 ;;=3^Essential Tremor
 ;;^UTILITY(U,$J,358.3,6104,1,4,0)
 ;;=4^G25.0
 ;;^UTILITY(U,$J,358.3,6104,2)
 ;;=^5003791
 ;;^UTILITY(U,$J,358.3,6105,0)
 ;;=G25.2^^47^376^44
 ;;^UTILITY(U,$J,358.3,6105,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6105,1,3,0)
 ;;=3^Tremor,Other Spec Forms
 ;;^UTILITY(U,$J,358.3,6105,1,4,0)
 ;;=4^G25.2
 ;;^UTILITY(U,$J,358.3,6105,2)
 ;;=^5003793
 ;;^UTILITY(U,$J,358.3,6106,0)
 ;;=G25.1^^47^376^43
 ;;^UTILITY(U,$J,358.3,6106,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6106,1,3,0)
 ;;=3^Tremor,Drug-Induced
 ;;^UTILITY(U,$J,358.3,6106,1,4,0)
 ;;=4^G25.1
 ;;^UTILITY(U,$J,358.3,6106,2)
 ;;=^5003792
 ;;^UTILITY(U,$J,358.3,6107,0)
 ;;=G25.81^^47^376^38
 ;;^UTILITY(U,$J,358.3,6107,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6107,1,3,0)
 ;;=3^Restless Legs Syndrome
 ;;^UTILITY(U,$J,358.3,6107,1,4,0)
 ;;=4^G25.81
 ;;^UTILITY(U,$J,358.3,6107,2)
 ;;=^5003801
 ;;^UTILITY(U,$J,358.3,6108,0)
 ;;=G35.^^47^376^31
 ;;^UTILITY(U,$J,358.3,6108,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6108,1,3,0)
 ;;=3^Multiple Sclerosis
 ;;^UTILITY(U,$J,358.3,6108,1,4,0)
 ;;=4^G35.
 ;;^UTILITY(U,$J,358.3,6108,2)
 ;;=^79761
 ;;^UTILITY(U,$J,358.3,6109,0)
 ;;=G40.901^^47^376^13
 ;;^UTILITY(U,$J,358.3,6109,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6109,1,3,0)
 ;;=3^Epilepsy,Not Intractable w/ Status Epilepticus,Unspec
 ;;^UTILITY(U,$J,358.3,6109,1,4,0)
 ;;=4^G40.901
 ;;^UTILITY(U,$J,358.3,6109,2)
 ;;=^5003864
 ;;^UTILITY(U,$J,358.3,6110,0)
 ;;=G40.909^^47^376^14
 ;;^UTILITY(U,$J,358.3,6110,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6110,1,3,0)
 ;;=3^Epilepsy,Not Intractable w/o Status Epilepticus,Unspec
 ;;^UTILITY(U,$J,358.3,6110,1,4,0)
 ;;=4^G40.909
 ;;^UTILITY(U,$J,358.3,6110,2)
 ;;=^5003865
 ;;^UTILITY(U,$J,358.3,6111,0)
 ;;=G43.809^^47^376^28
 ;;^UTILITY(U,$J,358.3,6111,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6111,1,3,0)
 ;;=3^Migraine,Not Intractable w/o Status Migrainosus,Other
 ;;^UTILITY(U,$J,358.3,6111,1,4,0)
 ;;=4^G43.809
 ;;^UTILITY(U,$J,358.3,6111,2)
 ;;=^5003901
 ;;^UTILITY(U,$J,358.3,6112,0)
 ;;=G43.B0^^47^376^30
 ;;^UTILITY(U,$J,358.3,6112,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6112,1,3,0)
 ;;=3^Migraine,Ophthalmoplegic Not Intractable
 ;;^UTILITY(U,$J,358.3,6112,1,4,0)
 ;;=4^G43.B0
 ;;^UTILITY(U,$J,358.3,6112,2)
 ;;=^5003914
 ;;^UTILITY(U,$J,358.3,6113,0)
 ;;=G43.C0^^47^376^17
 ;;^UTILITY(U,$J,358.3,6113,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6113,1,3,0)
 ;;=3^Headache Syndromes,Periodic Not Intractable
 ;;^UTILITY(U,$J,358.3,6113,1,4,0)
 ;;=4^G43.C0
 ;;^UTILITY(U,$J,358.3,6113,2)
 ;;=^5003916
 ;;^UTILITY(U,$J,358.3,6114,0)
 ;;=G43.A0^^47^376^8
 ;;^UTILITY(U,$J,358.3,6114,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6114,1,3,0)
 ;;=3^Cyclical Vomiting Not Intractable
 ;;^UTILITY(U,$J,358.3,6114,1,4,0)
 ;;=4^G43.A0
 ;;^UTILITY(U,$J,358.3,6114,2)
 ;;=^5003912
 ;;^UTILITY(U,$J,358.3,6115,0)
 ;;=G43.C1^^47^376^16
 ;;^UTILITY(U,$J,358.3,6115,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6115,1,3,0)
 ;;=3^Headache Syndromes,Periodic Intractable
 ;;^UTILITY(U,$J,358.3,6115,1,4,0)
 ;;=4^G43.C1
 ;;^UTILITY(U,$J,358.3,6115,2)
 ;;=^5003917
 ;;^UTILITY(U,$J,358.3,6116,0)
 ;;=G43.B1^^47^376^29
 ;;^UTILITY(U,$J,358.3,6116,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6116,1,3,0)
 ;;=3^Migraine,Ophthalmoplegic Intractable
 ;;^UTILITY(U,$J,358.3,6116,1,4,0)
 ;;=4^G43.B1
 ;;^UTILITY(U,$J,358.3,6116,2)
 ;;=^5003915
 ;;^UTILITY(U,$J,358.3,6117,0)
 ;;=G43.A1^^47^376^7
 ;;^UTILITY(U,$J,358.3,6117,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6117,1,3,0)
 ;;=3^Cyclical Vomiting Intractable
 ;;^UTILITY(U,$J,358.3,6117,1,4,0)
 ;;=4^G43.A1
 ;;^UTILITY(U,$J,358.3,6117,2)
 ;;=^5003913
 ;;^UTILITY(U,$J,358.3,6118,0)
 ;;=G43.819^^47^376^25
 ;;^UTILITY(U,$J,358.3,6118,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6118,1,3,0)
 ;;=3^Migraine Intractable w/o Status Migrainosus,Other
 ;;^UTILITY(U,$J,358.3,6118,1,4,0)
 ;;=4^G43.819
 ;;^UTILITY(U,$J,358.3,6118,2)
 ;;=^5003903
 ;;^UTILITY(U,$J,358.3,6119,0)
 ;;=G43.909^^47^376^27
 ;;^UTILITY(U,$J,358.3,6119,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6119,1,3,0)
 ;;=3^Migraine Not Intractable w/o Status Migrainosus,Unspec
 ;;^UTILITY(U,$J,358.3,6119,1,4,0)
 ;;=4^G43.909
 ;;^UTILITY(U,$J,358.3,6119,2)
 ;;=^5003909
 ;;^UTILITY(U,$J,358.3,6120,0)
 ;;=G43.919^^47^376^26
 ;;^UTILITY(U,$J,358.3,6120,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6120,1,3,0)
 ;;=3^Migraine Intractable w/o Status Migrainosus,Unspec
 ;;^UTILITY(U,$J,358.3,6120,1,4,0)
 ;;=4^G43.919
 ;;^UTILITY(U,$J,358.3,6120,2)
 ;;=^5003911
 ;;^UTILITY(U,$J,358.3,6121,0)
 ;;=G51.0^^47^376^5
 ;;^UTILITY(U,$J,358.3,6121,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6121,1,3,0)
 ;;=3^Bell's Palsy
 ;;^UTILITY(U,$J,358.3,6121,1,4,0)
 ;;=4^G51.0
 ;;^UTILITY(U,$J,358.3,6121,2)
 ;;=^13238
 ;;^UTILITY(U,$J,358.3,6122,0)
 ;;=G57.10^^47^376^22
 ;;^UTILITY(U,$J,358.3,6122,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6122,1,3,0)
 ;;=3^Meralgia Paresthetica Lower Limb,Unspec
 ;;^UTILITY(U,$J,358.3,6122,1,4,0)
 ;;=4^G57.10
 ;;^UTILITY(U,$J,358.3,6122,2)
 ;;=^5004041
 ;;^UTILITY(U,$J,358.3,6123,0)
 ;;=G57.12^^47^376^23
 ;;^UTILITY(U,$J,358.3,6123,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6123,1,3,0)
 ;;=3^Meralgia Paresthetica,Left Lower Limb
 ;;^UTILITY(U,$J,358.3,6123,1,4,0)
 ;;=4^G57.12
 ;;^UTILITY(U,$J,358.3,6123,2)
 ;;=^5004043
 ;;^UTILITY(U,$J,358.3,6124,0)
 ;;=G57.11^^47^376^24
 ;;^UTILITY(U,$J,358.3,6124,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6124,1,3,0)
 ;;=3^Meralgia Paresthetica,Right Lower Limb
 ;;^UTILITY(U,$J,358.3,6124,1,4,0)
 ;;=4^G57.11
 ;;^UTILITY(U,$J,358.3,6124,2)
 ;;=^5004042
 ;;^UTILITY(U,$J,358.3,6125,0)
 ;;=G60.8^^47^376^32
 ;;^UTILITY(U,$J,358.3,6125,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6125,1,3,0)
 ;;=3^Neuropathies,Oth Hereditary and Idiopathic
 ;;^UTILITY(U,$J,358.3,6125,1,4,0)
 ;;=4^G60.8
 ;;^UTILITY(U,$J,358.3,6125,2)
 ;;=^5004070
 ;;^UTILITY(U,$J,358.3,6126,0)
 ;;=G60.9^^47^376^33
 ;;^UTILITY(U,$J,358.3,6126,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6126,1,3,0)
 ;;=3^Neuropathy,Hereditary and Idiopathic Unspec
 ;;^UTILITY(U,$J,358.3,6126,1,4,0)
 ;;=4^G60.9
 ;;^UTILITY(U,$J,358.3,6126,2)
 ;;=^5004071
 ;;^UTILITY(U,$J,358.3,6127,0)
 ;;=I69.959^^47^376^18
 ;;^UTILITY(U,$J,358.3,6127,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6127,1,3,0)
 ;;=3^Hemplg/Hemprs d/t Cerebvasc Diz Aff Unspec Side
 ;;^UTILITY(U,$J,358.3,6127,1,4,0)
 ;;=4^I69.959
 ;;^UTILITY(U,$J,358.3,6127,2)
 ;;=^5007563
 ;;^UTILITY(U,$J,358.3,6128,0)
 ;;=I69.359^^47^376^19
 ;;^UTILITY(U,$J,358.3,6128,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6128,1,3,0)
 ;;=3^Hemplg/Hemprs d/t Cerebvasc Infrc Aff Unspec Side
 ;;^UTILITY(U,$J,358.3,6128,1,4,0)
 ;;=4^I69.359
 ;;^UTILITY(U,$J,358.3,6128,2)
 ;;=^5007508
 ;;^UTILITY(U,$J,358.3,6129,0)
 ;;=S14.109S^^47^376^39
 ;;^UTILITY(U,$J,358.3,6129,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6129,1,3,0)
 ;;=3^Sequela of Unspec Injury to Cervical Spinal Cord
 ;;^UTILITY(U,$J,358.3,6129,1,4,0)
 ;;=4^S14.109S
 ;;^UTILITY(U,$J,358.3,6129,2)
 ;;=^5134243
 ;;^UTILITY(U,$J,358.3,6130,0)
 ;;=S34.109S^^47^376^40
 ;;^UTILITY(U,$J,358.3,6130,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6130,1,3,0)
 ;;=3^Sequela of Unspec Injury to Lumbar Spinal Cord
 ;;^UTILITY(U,$J,358.3,6130,1,4,0)
 ;;=4^S34.109S
 ;;^UTILITY(U,$J,358.3,6130,2)
 ;;=^5134570
 ;;^UTILITY(U,$J,358.3,6131,0)
 ;;=S24.109S^^47^376^41
 ;;^UTILITY(U,$J,358.3,6131,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6131,1,3,0)
 ;;=3^Sequela of Unspec Injury to Thoracic Spinal Cord
 ;;^UTILITY(U,$J,358.3,6131,1,4,0)
 ;;=4^S24.109S
 ;;^UTILITY(U,$J,358.3,6131,2)
 ;;=^5134384
 ;;^UTILITY(U,$J,358.3,6132,0)
 ;;=Z91.5^^47^377^1
 ;;^UTILITY(U,$J,358.3,6132,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6132,1,3,0)
 ;;=3^Personal Hx of Suicide Attempt(s)
 ;;^UTILITY(U,$J,358.3,6132,1,4,0)
 ;;=4^Z91.5
 ;;^UTILITY(U,$J,358.3,6132,2)
 ;;=^5063624
 ;;^UTILITY(U,$J,358.3,6133,0)
 ;;=R45.851^^47^377^2
 ;;^UTILITY(U,$J,358.3,6133,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6133,1,3,0)
 ;;=3^Suicidal Ideations
 ;;^UTILITY(U,$J,358.3,6133,1,4,0)
 ;;=4^R45.851
 ;;^UTILITY(U,$J,358.3,6133,2)
 ;;=^5019474
 ;;^UTILITY(U,$J,358.3,6134,0)
 ;;=T14.91XA^^47^377^3
 ;;^UTILITY(U,$J,358.3,6134,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6134,1,3,0)
 ;;=3^Suicide Attempt,Initial Encntr
 ;;^UTILITY(U,$J,358.3,6134,1,4,0)
 ;;=4^T14.91XA
 ;;^UTILITY(U,$J,358.3,6134,2)
 ;;=^5151779
 ;;^UTILITY(U,$J,358.3,6135,0)
 ;;=T14.91XD^^47^377^4
 ;;^UTILITY(U,$J,358.3,6135,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6135,1,3,0)
 ;;=3^Suicide Attempt,Subsequent Encntr
 ;;^UTILITY(U,$J,358.3,6135,1,4,0)
 ;;=4^T14.91XD
 ;;^UTILITY(U,$J,358.3,6135,2)
 ;;=^5151780
 ;;^UTILITY(U,$J,358.3,6136,0)
 ;;=T14.91XS^^47^377^5
 ;;^UTILITY(U,$J,358.3,6136,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,6136,1,3,0)
 ;;=3^Suicide Attempt,Sequela
 ;;^UTILITY(U,$J,358.3,6136,1,4,0)
 ;;=4^T14.91XS
 ;;^UTILITY(U,$J,358.3,6136,2)
 ;;=^5151781
 ;;^UTILITY(U,$J,358.3,6137,0)
 ;;=99211^^48^378^1
 ;;^UTILITY(U,$J,358.3,6137,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6137,1,1,0)
 ;;=1^Brief (no MD seen)
 ;;^UTILITY(U,$J,358.3,6137,1,2,0)
 ;;=2^99211
 ;;^UTILITY(U,$J,358.3,6138,0)
 ;;=99212^^48^378^2
 ;;^UTILITY(U,$J,358.3,6138,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6138,1,1,0)
 ;;=1^Problem Focused
 ;;^UTILITY(U,$J,358.3,6138,1,2,0)
 ;;=2^99212
 ;;^UTILITY(U,$J,358.3,6139,0)
 ;;=99213^^48^378^3
 ;;^UTILITY(U,$J,358.3,6139,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6139,1,1,0)
 ;;=1^Expanded Problem Focused
 ;;^UTILITY(U,$J,358.3,6139,1,2,0)
 ;;=2^99213
 ;;^UTILITY(U,$J,358.3,6140,0)
 ;;=99214^^48^378^4
 ;;^UTILITY(U,$J,358.3,6140,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6140,1,1,0)
 ;;=1^Detailed
 ;;^UTILITY(U,$J,358.3,6140,1,2,0)
 ;;=2^99214
 ;;^UTILITY(U,$J,358.3,6141,0)
 ;;=99215^^48^378^5
 ;;^UTILITY(U,$J,358.3,6141,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6141,1,1,0)
 ;;=1^Comprehensive
 ;;^UTILITY(U,$J,358.3,6141,1,2,0)
 ;;=2^99215
 ;;^UTILITY(U,$J,358.3,6142,0)
 ;;=99201^^48^379^1
 ;;^UTILITY(U,$J,358.3,6142,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6142,1,1,0)
 ;;=1^Problem Focused
 ;;^UTILITY(U,$J,358.3,6142,1,2,0)
 ;;=2^99201
 ;;^UTILITY(U,$J,358.3,6143,0)
 ;;=99202^^48^379^2
 ;;^UTILITY(U,$J,358.3,6143,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6143,1,1,0)
 ;;=1^Expanded Problem Focused
 ;;^UTILITY(U,$J,358.3,6143,1,2,0)
 ;;=2^99202
 ;;^UTILITY(U,$J,358.3,6144,0)
 ;;=99203^^48^379^3
 ;;^UTILITY(U,$J,358.3,6144,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6144,1,1,0)
 ;;=1^Detailed
 ;;^UTILITY(U,$J,358.3,6144,1,2,0)
 ;;=2^99203
 ;;^UTILITY(U,$J,358.3,6145,0)
 ;;=99204^^48^379^4
 ;;^UTILITY(U,$J,358.3,6145,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6145,1,1,0)
 ;;=1^Comprehensive,Moderate
 ;;^UTILITY(U,$J,358.3,6145,1,2,0)
 ;;=2^99204
 ;;^UTILITY(U,$J,358.3,6146,0)
 ;;=99205^^48^379^5
 ;;^UTILITY(U,$J,358.3,6146,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6146,1,1,0)
 ;;=1^Comprehensive,High
 ;;^UTILITY(U,$J,358.3,6146,1,2,0)
 ;;=2^99205
 ;;^UTILITY(U,$J,358.3,6147,0)
 ;;=99201^^50^380^1
 ;;^UTILITY(U,$J,358.3,6147,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6147,1,1,0)
 ;;=1^Problem Focus
 ;;^UTILITY(U,$J,358.3,6147,1,2,0)
 ;;=2^99201
 ;;^UTILITY(U,$J,358.3,6148,0)
 ;;=99202^^50^380^2
 ;;^UTILITY(U,$J,358.3,6148,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6148,1,1,0)
 ;;=1^Expanded Problem Focus
 ;;^UTILITY(U,$J,358.3,6148,1,2,0)
 ;;=2^99202
 ;;^UTILITY(U,$J,358.3,6149,0)
 ;;=99203^^50^380^3
 ;;^UTILITY(U,$J,358.3,6149,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6149,1,1,0)
 ;;=1^Detailed
 ;;^UTILITY(U,$J,358.3,6149,1,2,0)
 ;;=2^99203
 ;;^UTILITY(U,$J,358.3,6150,0)
 ;;=99204^^50^380^4
 ;;^UTILITY(U,$J,358.3,6150,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6150,1,1,0)
 ;;=1^Comprehensive, Moderate
 ;;^UTILITY(U,$J,358.3,6150,1,2,0)
 ;;=2^99204
 ;;^UTILITY(U,$J,358.3,6151,0)
 ;;=99205^^50^380^5
 ;;^UTILITY(U,$J,358.3,6151,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6151,1,1,0)
 ;;=1^Comprehensive, High
 ;;^UTILITY(U,$J,358.3,6151,1,2,0)
 ;;=2^99205
 ;;^UTILITY(U,$J,358.3,6152,0)
 ;;=99211^^50^381^1
 ;;^UTILITY(U,$J,358.3,6152,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6152,1,1,0)
 ;;=1^Brief (no MD seen)
 ;;^UTILITY(U,$J,358.3,6152,1,2,0)
 ;;=2^99211
 ;;^UTILITY(U,$J,358.3,6153,0)
 ;;=99212^^50^381^2
 ;;^UTILITY(U,$J,358.3,6153,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6153,1,1,0)
 ;;=1^Problem Focused
 ;;^UTILITY(U,$J,358.3,6153,1,2,0)
 ;;=2^99212
 ;;^UTILITY(U,$J,358.3,6154,0)
 ;;=99213^^50^381^3
 ;;^UTILITY(U,$J,358.3,6154,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6154,1,1,0)
 ;;=1^Expanded Problem Focus
 ;;^UTILITY(U,$J,358.3,6154,1,2,0)
 ;;=2^99213
 ;;^UTILITY(U,$J,358.3,6155,0)
 ;;=99214^^50^381^4
 ;;^UTILITY(U,$J,358.3,6155,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6155,1,1,0)
 ;;=1^Detailed
 ;;^UTILITY(U,$J,358.3,6155,1,2,0)
 ;;=2^99214
 ;;^UTILITY(U,$J,358.3,6156,0)
 ;;=99215^^50^381^5
 ;;^UTILITY(U,$J,358.3,6156,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6156,1,1,0)
 ;;=1^Comprehensive
 ;;^UTILITY(U,$J,358.3,6156,1,2,0)
 ;;=2^99215
 ;;^UTILITY(U,$J,358.3,6157,0)
 ;;=99024^^50^381^6
 ;;^UTILITY(U,$J,358.3,6157,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6157,1,1,0)
 ;;=1^Post Op visit in Global Per
 ;;^UTILITY(U,$J,358.3,6157,1,2,0)
 ;;=2^99024
 ;;^UTILITY(U,$J,358.3,6158,0)
 ;;=99241^^50^382^1
 ;;^UTILITY(U,$J,358.3,6158,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6158,1,1,0)
 ;;=1^Problem Focused
 ;;^UTILITY(U,$J,358.3,6158,1,2,0)
 ;;=2^99241
 ;;^UTILITY(U,$J,358.3,6159,0)
 ;;=99242^^50^382^2
 ;;^UTILITY(U,$J,358.3,6159,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6159,1,1,0)
 ;;=1^Expanded Problem Focus
 ;;^UTILITY(U,$J,358.3,6159,1,2,0)
 ;;=2^99242
 ;;^UTILITY(U,$J,358.3,6160,0)
 ;;=99243^^50^382^3
 ;;^UTILITY(U,$J,358.3,6160,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,6160,1,1,0)
 ;;=1^Detailed