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

IBDEI0AJ.m

Go to the documentation of this file.
IBDEI0AJ ; ; 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,25467,2)
 ;;=^335307
 ;;^UTILITY(U,$J,358.3,25468,0)
 ;;=R19.7^^114^1332^3
 ;;^UTILITY(U,$J,358.3,25468,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25468,1,3,0)
 ;;=3^Diarrhea,Unspec
 ;;^UTILITY(U,$J,358.3,25468,1,4,0)
 ;;=4^R19.7
 ;;^UTILITY(U,$J,358.3,25468,2)
 ;;=^5019276
 ;;^UTILITY(U,$J,358.3,25469,0)
 ;;=N94.12^^114^1332^6
 ;;^UTILITY(U,$J,358.3,25469,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25469,1,3,0)
 ;;=3^Dyspareunia,Deep
 ;;^UTILITY(U,$J,358.3,25469,1,4,0)
 ;;=4^N94.12
 ;;^UTILITY(U,$J,358.3,25469,2)
 ;;=^5138974
 ;;^UTILITY(U,$J,358.3,25470,0)
 ;;=N94.19^^114^1332^7
 ;;^UTILITY(U,$J,358.3,25470,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25470,1,3,0)
 ;;=3^Dyspareunia,Oth Spec
 ;;^UTILITY(U,$J,358.3,25470,1,4,0)
 ;;=4^N94.19
 ;;^UTILITY(U,$J,358.3,25470,2)
 ;;=^5138975
 ;;^UTILITY(U,$J,358.3,25471,0)
 ;;=N94.11^^114^1332^8
 ;;^UTILITY(U,$J,358.3,25471,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25471,1,3,0)
 ;;=3^Dyspareunia,Superficial
 ;;^UTILITY(U,$J,358.3,25471,1,4,0)
 ;;=4^N94.11
 ;;^UTILITY(U,$J,358.3,25471,2)
 ;;=^5138973
 ;;^UTILITY(U,$J,358.3,25472,0)
 ;;=N94.10^^114^1332^9
 ;;^UTILITY(U,$J,358.3,25472,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25472,1,3,0)
 ;;=3^Dyspareunia,Unspec
 ;;^UTILITY(U,$J,358.3,25472,1,4,0)
 ;;=4^N94.10
 ;;^UTILITY(U,$J,358.3,25472,2)
 ;;=^5138972
 ;;^UTILITY(U,$J,358.3,25473,0)
 ;;=F05.^^114^1333^5
 ;;^UTILITY(U,$J,358.3,25473,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25473,1,3,0)
 ;;=3^Delirium d/t Known Physiological Condition
 ;;^UTILITY(U,$J,358.3,25473,1,4,0)
 ;;=4^F05.
 ;;^UTILITY(U,$J,358.3,25473,2)
 ;;=^5003052
 ;;^UTILITY(U,$J,358.3,25474,0)
 ;;=F03.90^^114^1333^9
 ;;^UTILITY(U,$J,358.3,25474,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25474,1,3,0)
 ;;=3^Dementia w/o Behavioral Disturbance,Unspec
 ;;^UTILITY(U,$J,358.3,25474,1,4,0)
 ;;=4^F03.90
 ;;^UTILITY(U,$J,358.3,25474,2)
 ;;=^5003050
 ;;^UTILITY(U,$J,358.3,25475,0)
 ;;=F03.91^^114^1333^8
 ;;^UTILITY(U,$J,358.3,25475,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25475,1,3,0)
 ;;=3^Dementia w/ Behavioral Disturbances,Unspec
 ;;^UTILITY(U,$J,358.3,25475,1,4,0)
 ;;=4^F03.91
 ;;^UTILITY(U,$J,358.3,25475,2)
 ;;=^5133350
 ;;^UTILITY(U,$J,358.3,25476,0)
 ;;=G30.9^^114^1333^1
 ;;^UTILITY(U,$J,358.3,25476,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25476,1,3,0)
 ;;=3^Alzheimer's Disease w/ Behavioral Disturbance,Unspec
 ;;^UTILITY(U,$J,358.3,25476,1,4,0)
 ;;=4^G30.9
 ;;^UTILITY(U,$J,358.3,25476,2)
 ;;=^5003808^F02.81
 ;;^UTILITY(U,$J,358.3,25477,0)
 ;;=G30.9^^114^1333^4
 ;;^UTILITY(U,$J,358.3,25477,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25477,1,3,0)
 ;;=3^Alzheimer's Disease w/o Behavioral Disturbance,Unspec
 ;;^UTILITY(U,$J,358.3,25477,1,4,0)
 ;;=4^G30.9
 ;;^UTILITY(U,$J,358.3,25477,2)
 ;;=^5003808^F02.80
 ;;^UTILITY(U,$J,358.3,25478,0)
 ;;=G30.0^^114^1333^2
 ;;^UTILITY(U,$J,358.3,25478,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25478,1,3,0)
 ;;=3^Alzheimer's Disease w/ Early Onset
 ;;^UTILITY(U,$J,358.3,25478,1,4,0)
 ;;=4^G30.0
 ;;^UTILITY(U,$J,358.3,25478,2)
 ;;=^5003805
 ;;^UTILITY(U,$J,358.3,25479,0)
 ;;=G30.1^^114^1333^3
 ;;^UTILITY(U,$J,358.3,25479,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25479,1,3,0)
 ;;=3^Alzheimer's Disease w/ Late Onset
 ;;^UTILITY(U,$J,358.3,25479,1,4,0)
 ;;=4^G30.1
 ;;^UTILITY(U,$J,358.3,25479,2)
 ;;=^5003806
 ;;^UTILITY(U,$J,358.3,25480,0)
 ;;=F02.81^^114^1333^6
 ;;^UTILITY(U,$J,358.3,25480,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25480,1,3,0)
 ;;=3^Dementia in Diseases Classd Elswhr w/ Behavioral Disturbance
 ;;^UTILITY(U,$J,358.3,25480,1,4,0)
 ;;=4^F02.81
 ;;^UTILITY(U,$J,358.3,25480,2)
 ;;=^5003049
 ;;^UTILITY(U,$J,358.3,25481,0)
 ;;=F02.80^^114^1333^7
 ;;^UTILITY(U,$J,358.3,25481,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25481,1,3,0)
 ;;=3^Dementia in Diseases Classd Elswhr w/o Behavioral Disturbance
 ;;^UTILITY(U,$J,358.3,25481,1,4,0)
 ;;=4^F02.80
 ;;^UTILITY(U,$J,358.3,25481,2)
 ;;=^5003048
 ;;^UTILITY(U,$J,358.3,25482,0)
 ;;=F01.51^^114^1333^10
 ;;^UTILITY(U,$J,358.3,25482,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25482,1,3,0)
 ;;=3^Vascular Dementia w/ Behavioral Disturbance
 ;;^UTILITY(U,$J,358.3,25482,1,4,0)
 ;;=4^F01.51
 ;;^UTILITY(U,$J,358.3,25482,2)
 ;;=^5003047
 ;;^UTILITY(U,$J,358.3,25483,0)
 ;;=F01.50^^114^1333^11
 ;;^UTILITY(U,$J,358.3,25483,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25483,1,3,0)
 ;;=3^Vascular Dementia w/o Behavioral Disturbance
 ;;^UTILITY(U,$J,358.3,25483,1,4,0)
 ;;=4^F01.50
 ;;^UTILITY(U,$J,358.3,25483,2)
 ;;=^5003046
 ;;^UTILITY(U,$J,358.3,25484,0)
 ;;=F32.9^^114^1334^3
 ;;^UTILITY(U,$J,358.3,25484,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25484,1,3,0)
 ;;=3^Major Depressive Disorder,Single Episode,Unspec
 ;;^UTILITY(U,$J,358.3,25484,1,4,0)
 ;;=4^F32.9
 ;;^UTILITY(U,$J,358.3,25484,2)
 ;;=^5003528
 ;;^UTILITY(U,$J,358.3,25485,0)
 ;;=F33.9^^114^1334^2
 ;;^UTILITY(U,$J,358.3,25485,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25485,1,3,0)
 ;;=3^Major Depressive Disorder,Recurrent,Unspec
 ;;^UTILITY(U,$J,358.3,25485,1,4,0)
 ;;=4^F33.9
 ;;^UTILITY(U,$J,358.3,25485,2)
 ;;=^5003537
 ;;^UTILITY(U,$J,358.3,25486,0)
 ;;=F34.1^^114^1334^1
 ;;^UTILITY(U,$J,358.3,25486,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25486,1,3,0)
 ;;=3^Dysthymic Disorder
 ;;^UTILITY(U,$J,358.3,25486,1,4,0)
 ;;=4^F34.1
 ;;^UTILITY(U,$J,358.3,25486,2)
 ;;=^331913
 ;;^UTILITY(U,$J,358.3,25487,0)
 ;;=E87.70^^114^1335^34
 ;;^UTILITY(U,$J,358.3,25487,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25487,1,3,0)
 ;;=3^Fluid Overload,Unspec
 ;;^UTILITY(U,$J,358.3,25487,1,4,0)
 ;;=4^E87.70
 ;;^UTILITY(U,$J,358.3,25487,2)
 ;;=^5003023
 ;;^UTILITY(U,$J,358.3,25488,0)
 ;;=J43.9^^114^1335^2
 ;;^UTILITY(U,$J,358.3,25488,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25488,1,3,0)
 ;;=3^Emphysema,Unspec
 ;;^UTILITY(U,$J,358.3,25488,1,4,0)
 ;;=4^J43.9
 ;;^UTILITY(U,$J,358.3,25488,2)
 ;;=^5008238
 ;;^UTILITY(U,$J,358.3,25489,0)
 ;;=K22.10^^114^1335^22
 ;;^UTILITY(U,$J,358.3,25489,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25489,1,3,0)
 ;;=3^Esophagus Ulcer w/o Bleeding
 ;;^UTILITY(U,$J,358.3,25489,1,4,0)
 ;;=4^K22.10
 ;;^UTILITY(U,$J,358.3,25489,2)
 ;;=^329929
 ;;^UTILITY(U,$J,358.3,25490,0)
 ;;=K22.11^^114^1335^21
 ;;^UTILITY(U,$J,358.3,25490,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25490,1,3,0)
 ;;=3^Esophagus Ulcer w/ Bleeding
 ;;^UTILITY(U,$J,358.3,25490,1,4,0)
 ;;=4^K22.11
 ;;^UTILITY(U,$J,358.3,25490,2)
 ;;=^329930
 ;;^UTILITY(U,$J,358.3,25491,0)
 ;;=K22.2^^114^1335^18
 ;;^UTILITY(U,$J,358.3,25491,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25491,1,3,0)
 ;;=3^Esophageal Obstruction
 ;;^UTILITY(U,$J,358.3,25491,1,4,0)
 ;;=4^K22.2
 ;;^UTILITY(U,$J,358.3,25491,2)
 ;;=^5008507
 ;;^UTILITY(U,$J,358.3,25492,0)
 ;;=M79.7^^114^1335^33
 ;;^UTILITY(U,$J,358.3,25492,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25492,1,3,0)
 ;;=3^Fibromyalgia
 ;;^UTILITY(U,$J,358.3,25492,1,4,0)
 ;;=4^M79.7
 ;;^UTILITY(U,$J,358.3,25492,2)
 ;;=^46261
 ;;^UTILITY(U,$J,358.3,25493,0)
 ;;=R50.9^^114^1335^32
 ;;^UTILITY(U,$J,358.3,25493,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25493,1,3,0)
 ;;=3^Fever,Unspec
 ;;^UTILITY(U,$J,358.3,25493,1,4,0)
 ;;=4^R50.9
 ;;^UTILITY(U,$J,358.3,25493,2)
 ;;=^5019512
 ;;^UTILITY(U,$J,358.3,25494,0)
 ;;=R53.83^^114^1335^31
 ;;^UTILITY(U,$J,358.3,25494,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25494,1,3,0)
 ;;=3^Fatigue,Oth
 ;;^UTILITY(U,$J,358.3,25494,1,4,0)
 ;;=4^R53.83
 ;;^UTILITY(U,$J,358.3,25494,2)
 ;;=^5019520
 ;;^UTILITY(U,$J,358.3,25495,0)
 ;;=R60.9^^114^1335^1
 ;;^UTILITY(U,$J,358.3,25495,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25495,1,3,0)
 ;;=3^Edema,Unspec
 ;;^UTILITY(U,$J,358.3,25495,1,4,0)
 ;;=4^R60.9
 ;;^UTILITY(U,$J,358.3,25495,2)
 ;;=^5019534
 ;;^UTILITY(U,$J,358.3,25496,0)
 ;;=R04.0^^114^1335^9
 ;;^UTILITY(U,$J,358.3,25496,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25496,1,3,0)
 ;;=3^Epistaxis
 ;;^UTILITY(U,$J,358.3,25496,1,4,0)
 ;;=4^R04.0
 ;;^UTILITY(U,$J,358.3,25496,2)
 ;;=^5019173
 ;;^UTILITY(U,$J,358.3,25497,0)
 ;;=H60.03^^114^1335^24
 ;;^UTILITY(U,$J,358.3,25497,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25497,1,3,0)
 ;;=3^External Ear Abscess,Bilateral
 ;;^UTILITY(U,$J,358.3,25497,1,4,0)
 ;;=4^H60.03
 ;;^UTILITY(U,$J,358.3,25497,2)
 ;;=^5006438
 ;;^UTILITY(U,$J,358.3,25498,0)
 ;;=H60.02^^114^1335^25
 ;;^UTILITY(U,$J,358.3,25498,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25498,1,3,0)
 ;;=3^External Ear Abscess,Left
 ;;^UTILITY(U,$J,358.3,25498,1,4,0)
 ;;=4^H60.02
 ;;^UTILITY(U,$J,358.3,25498,2)
 ;;=^5006437
 ;;^UTILITY(U,$J,358.3,25499,0)
 ;;=H60.01^^114^1335^26
 ;;^UTILITY(U,$J,358.3,25499,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25499,1,3,0)
 ;;=3^External Ear Abscess,Right
 ;;^UTILITY(U,$J,358.3,25499,1,4,0)
 ;;=4^H60.01
 ;;^UTILITY(U,$J,358.3,25499,2)
 ;;=^5006436
 ;;^UTILITY(U,$J,358.3,25500,0)
 ;;=H60.13^^114^1335^27
 ;;^UTILITY(U,$J,358.3,25500,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25500,1,3,0)
 ;;=3^External Ear Cellulitis,Bilateral
 ;;^UTILITY(U,$J,358.3,25500,1,4,0)
 ;;=4^H60.13
 ;;^UTILITY(U,$J,358.3,25500,2)
 ;;=^5006442
 ;;^UTILITY(U,$J,358.3,25501,0)
 ;;=H60.12^^114^1335^28
 ;;^UTILITY(U,$J,358.3,25501,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25501,1,3,0)
 ;;=3^External Ear Cellulitis,Left
 ;;^UTILITY(U,$J,358.3,25501,1,4,0)
 ;;=4^H60.12
 ;;^UTILITY(U,$J,358.3,25501,2)
 ;;=^5006441
 ;;^UTILITY(U,$J,358.3,25502,0)
 ;;=H60.11^^114^1335^29
 ;;^UTILITY(U,$J,358.3,25502,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25502,1,3,0)
 ;;=3^External Ear Cellulitis,Right
 ;;^UTILITY(U,$J,358.3,25502,1,4,0)
 ;;=4^H60.11
 ;;^UTILITY(U,$J,358.3,25502,2)
 ;;=^5006440
 ;;^UTILITY(U,$J,358.3,25503,0)
 ;;=G40.909^^114^1335^8
 ;;^UTILITY(U,$J,358.3,25503,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25503,1,3,0)
 ;;=3^Epilepsy,Not Intractable w/o Status Epilepticus
 ;;^UTILITY(U,$J,358.3,25503,1,4,0)
 ;;=4^G40.909
 ;;^UTILITY(U,$J,358.3,25503,2)
 ;;=^5003865
 ;;^UTILITY(U,$J,358.3,25504,0)
 ;;=M77.9^^114^1335^7
 ;;^UTILITY(U,$J,358.3,25504,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25504,1,3,0)
 ;;=3^Enthesopathy,Unspec
 ;;^UTILITY(U,$J,358.3,25504,1,4,0)
 ;;=4^M77.9
 ;;^UTILITY(U,$J,358.3,25504,2)
 ;;=^5013319
 ;;^UTILITY(U,$J,358.3,25505,0)
 ;;=K52.21^^114^1335^3
 ;;^UTILITY(U,$J,358.3,25505,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25505,1,3,0)
 ;;=3^Enterocolitis Synd Induced by Food Protein
 ;;^UTILITY(U,$J,358.3,25505,1,4,0)
 ;;=4^K52.21
 ;;^UTILITY(U,$J,358.3,25505,2)
 ;;=^5138713
 ;;^UTILITY(U,$J,358.3,25506,0)
 ;;=K52.22^^114^1335^6
 ;;^UTILITY(U,$J,358.3,25506,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25506,1,3,0)
 ;;=3^Enterocolopathy Induced by Food Protein
 ;;^UTILITY(U,$J,358.3,25506,1,4,0)
 ;;=4^K52.22
 ;;^UTILITY(U,$J,358.3,25506,2)
 ;;=^5138714
 ;;^UTILITY(U,$J,358.3,25507,0)
 ;;=N52.36^^114^1335^10
 ;;^UTILITY(U,$J,358.3,25507,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25507,1,3,0)
 ;;=3^Erectile Dysfunction After Interstitial Seed Therapy
 ;;^UTILITY(U,$J,358.3,25507,1,4,0)
 ;;=4^N52.36
 ;;^UTILITY(U,$J,358.3,25507,2)
 ;;=^5138933
 ;;^UTILITY(U,$J,358.3,25508,0)
 ;;=N52.37^^114^1335^11
 ;;^UTILITY(U,$J,358.3,25508,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25508,1,3,0)
 ;;=3^Erectile Dysfunction After Prostate Ablative Therapy
 ;;^UTILITY(U,$J,358.3,25508,1,4,0)
 ;;=4^N52.37
 ;;^UTILITY(U,$J,358.3,25508,2)
 ;;=^5138934
 ;;^UTILITY(U,$J,358.3,25509,0)
 ;;=N52.32^^114^1335^12
 ;;^UTILITY(U,$J,358.3,25509,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25509,1,3,0)
 ;;=3^Erectile Dysfunction After Radical Cystectomy
 ;;^UTILITY(U,$J,358.3,25509,1,4,0)
 ;;=4^N52.32
 ;;^UTILITY(U,$J,358.3,25509,2)
 ;;=^5015758
 ;;^UTILITY(U,$J,358.3,25510,0)
 ;;=N52.31^^114^1335^13
 ;;^UTILITY(U,$J,358.3,25510,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25510,1,3,0)
 ;;=3^Erectile Dysfunction After Radical Prostatectomy
 ;;^UTILITY(U,$J,358.3,25510,1,4,0)
 ;;=4^N52.31
 ;;^UTILITY(U,$J,358.3,25510,2)
 ;;=^5015757
 ;;^UTILITY(U,$J,358.3,25511,0)
 ;;=N52.34^^114^1335^14
 ;;^UTILITY(U,$J,358.3,25511,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25511,1,3,0)
 ;;=3^Erectile Dysfunction After Simple Prostatectomy
 ;;^UTILITY(U,$J,358.3,25511,1,4,0)
 ;;=4^N52.34
 ;;^UTILITY(U,$J,358.3,25511,2)
 ;;=^5015760
 ;;^UTILITY(U,$J,358.3,25512,0)
 ;;=N52.33^^114^1335^15
 ;;^UTILITY(U,$J,358.3,25512,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25512,1,3,0)
 ;;=3^Erectile Dysfunction After Urethral Surgery
 ;;^UTILITY(U,$J,358.3,25512,1,4,0)
 ;;=4^N52.33
 ;;^UTILITY(U,$J,358.3,25512,2)
 ;;=^5015759
 ;;^UTILITY(U,$J,358.3,25513,0)
 ;;=N52.01^^114^1335^16
 ;;^UTILITY(U,$J,358.3,25513,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25513,1,3,0)
 ;;=3^Erectile Dysfunction d/t Arterial Insufficiency
 ;;^UTILITY(U,$J,358.3,25513,1,4,0)
 ;;=4^N52.01
 ;;^UTILITY(U,$J,358.3,25513,2)
 ;;=^5015752
 ;;^UTILITY(U,$J,358.3,25514,0)
 ;;=N52.1^^114^1335^17
 ;;^UTILITY(U,$J,358.3,25514,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25514,1,3,0)
 ;;=3^Erectile Dysfunction d/t Diseases Classified Elsewhere
 ;;^UTILITY(U,$J,358.3,25514,1,4,0)
 ;;=4^N52.1
 ;;^UTILITY(U,$J,358.3,25514,2)
 ;;=^5015755
 ;;^UTILITY(U,$J,358.3,25515,0)
 ;;=F42.4^^114^1335^23
 ;;^UTILITY(U,$J,358.3,25515,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25515,1,3,0)
 ;;=3^Excoriation (Skin-Picking) Disorder
 ;;^UTILITY(U,$J,358.3,25515,1,4,0)
 ;;=4^F42.4
 ;;^UTILITY(U,$J,358.3,25515,2)
 ;;=^5138446
 ;;^UTILITY(U,$J,358.3,25516,0)
 ;;=A04.71^^114^1335^4
 ;;^UTILITY(U,$J,358.3,25516,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25516,1,3,0)
 ;;=3^Enterocolitis d/t Clostridium Difficile,Recurrent      
 ;;^UTILITY(U,$J,358.3,25516,1,4,0)
 ;;=4^A04.71
 ;;^UTILITY(U,$J,358.3,25516,2)
 ;;=^5151291
 ;;^UTILITY(U,$J,358.3,25517,0)
 ;;=A04.72^^114^1335^5
 ;;^UTILITY(U,$J,358.3,25517,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25517,1,3,0)
 ;;=3^Enterocolitis d/t Clostridium Difficile,Not Specf as Recurrent
 ;;^UTILITY(U,$J,358.3,25517,1,4,0)
 ;;=4^A04.72
 ;;^UTILITY(U,$J,358.3,25517,2)
 ;;=^5151292
 ;;^UTILITY(U,$J,358.3,25518,0)
 ;;=G12.24^^114^1335^30
 ;;^UTILITY(U,$J,358.3,25518,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25518,1,3,0)
 ;;=3^Familial Motor Neuron Disease
 ;;^UTILITY(U,$J,358.3,25518,1,4,0)
 ;;=4^G12.24
 ;;^UTILITY(U,$J,358.3,25518,2)
 ;;=^5151309
 ;;^UTILITY(U,$J,358.3,25519,0)
 ;;=K20.90^^114^1335^20
 ;;^UTILITY(U,$J,358.3,25519,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25519,1,3,0)
 ;;=3^Esophagitis,Unspec w/o Bleeding
 ;;^UTILITY(U,$J,358.3,25519,1,4,0)
 ;;=4^K20.90
 ;;^UTILITY(U,$J,358.3,25519,2)
 ;;=^5159212
 ;;^UTILITY(U,$J,358.3,25520,0)
 ;;=K20.91^^114^1335^19
 ;;^UTILITY(U,$J,358.3,25520,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25520,1,3,0)
 ;;=3^Esophagitis,Unspec w/ Bleeding
 ;;^UTILITY(U,$J,358.3,25520,1,4,0)
 ;;=4^K20.91
 ;;^UTILITY(U,$J,358.3,25520,2)
 ;;=^5159213
 ;;^UTILITY(U,$J,358.3,25521,0)
 ;;=K29.70^^114^1336^5
 ;;^UTILITY(U,$J,358.3,25521,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25521,1,3,0)
 ;;=3^Gastritis w/o Bleeding,Unspec
 ;;^UTILITY(U,$J,358.3,25521,1,4,0)
 ;;=4^K29.70
 ;;^UTILITY(U,$J,358.3,25521,2)
 ;;=^5008552
 ;;^UTILITY(U,$J,358.3,25522,0)
 ;;=K92.2^^114^1336^8
 ;;^UTILITY(U,$J,358.3,25522,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25522,1,3,0)
 ;;=3^Gastrointestinal Hemorrhage,Unspec
 ;;^UTILITY(U,$J,358.3,25522,1,4,0)
 ;;=4^K92.2
 ;;^UTILITY(U,$J,358.3,25522,2)
 ;;=^5008915
 ;;^UTILITY(U,$J,358.3,25523,0)
 ;;=K52.9^^114^1336^6
 ;;^UTILITY(U,$J,358.3,25523,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25523,1,3,0)
 ;;=3^Gastroenteritis & Colitis Noninfective,Unspec
 ;;^UTILITY(U,$J,358.3,25523,1,4,0)
 ;;=4^K52.9
 ;;^UTILITY(U,$J,358.3,25523,2)
 ;;=^5008704
 ;;^UTILITY(U,$J,358.3,25524,0)
 ;;=K82.9^^114^1336^4
 ;;^UTILITY(U,$J,358.3,25524,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25524,1,3,0)
 ;;=3^Gallbladder Disease,Unspec
 ;;^UTILITY(U,$J,358.3,25524,1,4,0)
 ;;=4^K82.9
 ;;^UTILITY(U,$J,358.3,25524,2)
 ;;=^5008875
 ;;^UTILITY(U,$J,358.3,25525,0)
 ;;=H40.9^^114^1336^9
 ;;^UTILITY(U,$J,358.3,25525,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25525,1,3,0)
 ;;=3^Glaucoma,Unspec
 ;;^UTILITY(U,$J,358.3,25525,1,4,0)
 ;;=4^H40.9
 ;;^UTILITY(U,$J,358.3,25525,2)
 ;;=^5005931
 ;;^UTILITY(U,$J,358.3,25526,0)
 ;;=M10.9^^114^1336^10
 ;;^UTILITY(U,$J,358.3,25526,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25526,1,3,0)
 ;;=3^Gout,Unspec
 ;;^UTILITY(U,$J,358.3,25526,1,4,0)
 ;;=4^M10.9
 ;;^UTILITY(U,$J,358.3,25526,2)
 ;;=^5010404
 ;;^UTILITY(U,$J,358.3,25527,0)
 ;;=K21.9^^114^1336^3
 ;;^UTILITY(U,$J,358.3,25527,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25527,1,3,0)
 ;;=3^GERD w/o Esophagitis
 ;;^UTILITY(U,$J,358.3,25527,1,4,0)
 ;;=4^K21.9
 ;;^UTILITY(U,$J,358.3,25527,2)
 ;;=^5008505
 ;;^UTILITY(U,$J,358.3,25528,0)
 ;;=R31.0^^114^1336^11
 ;;^UTILITY(U,$J,358.3,25528,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25528,1,3,0)
 ;;=3^Gross Hematuria
 ;;^UTILITY(U,$J,358.3,25528,1,4,0)
 ;;=4^R31.0
 ;;^UTILITY(U,$J,358.3,25528,2)
 ;;=^5019325
 ;;^UTILITY(U,$J,358.3,25529,0)
 ;;=K52.29^^114^1336^7
 ;;^UTILITY(U,$J,358.3,25529,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25529,1,3,0)
 ;;=3^Gastroenteritis & Colitis,Oth Allergic & Dietetic
 ;;^UTILITY(U,$J,358.3,25529,1,4,0)
 ;;=4^K52.29
 ;;^UTILITY(U,$J,358.3,25529,2)
 ;;=^5138715
 ;;^UTILITY(U,$J,358.3,25530,0)
 ;;=K21.00^^114^1336^2
 ;;^UTILITY(U,$J,358.3,25530,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25530,1,3,0)
 ;;=3^GERD w/ Esophagitis w/o Bleed
 ;;^UTILITY(U,$J,358.3,25530,1,4,0)
 ;;=4^K21.00
 ;;^UTILITY(U,$J,358.3,25530,2)
 ;;=^5159214
 ;;^UTILITY(U,$J,358.3,25531,0)
 ;;=K21.01^^114^1336^1
 ;;^UTILITY(U,$J,358.3,25531,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25531,1,3,0)
 ;;=3^GERD w/ Esophagitis w/ Bleed
 ;;^UTILITY(U,$J,358.3,25531,1,4,0)
 ;;=4^K21.01
 ;;^UTILITY(U,$J,358.3,25531,2)
 ;;=^5159215
 ;;^UTILITY(U,$J,358.3,25532,0)
 ;;=B02.9^^114^1337^26
 ;;^UTILITY(U,$J,358.3,25532,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25532,1,3,0)
 ;;=3^Herpes w/o Complications
 ;;^UTILITY(U,$J,358.3,25532,1,4,0)
 ;;=4^B02.9
 ;;^UTILITY(U,$J,358.3,25532,2)
 ;;=^5000501
 ;;^UTILITY(U,$J,358.3,25533,0)
 ;;=B19.10^^114^1337^15
 ;;^UTILITY(U,$J,358.3,25533,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25533,1,3,0)
 ;;=3^Hepatitis B,Viral Unspec
 ;;^UTILITY(U,$J,358.3,25533,1,4,0)
 ;;=4^B19.10
 ;;^UTILITY(U,$J,358.3,25533,2)
 ;;=^5000552
 ;;^UTILITY(U,$J,358.3,25534,0)
 ;;=B17.10^^114^1337^17
 ;;^UTILITY(U,$J,358.3,25534,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25534,1,3,0)
 ;;=3^Hepatitis C w/o Hepatic Coma,Acute
 ;;^UTILITY(U,$J,358.3,25534,1,4,0)
 ;;=4^B17.10
 ;;^UTILITY(U,$J,358.3,25534,2)
 ;;=^5000542
 ;;^UTILITY(U,$J,358.3,25535,0)
 ;;=B18.2^^114^1337^19
 ;;^UTILITY(U,$J,358.3,25535,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,25535,1,3,0)
 ;;=3^Hepatitis C,Viral,Chronic
 ;;^UTILITY(U,$J,358.3,25535,1,4,0)
 ;;=4^B18.2