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

IBDEI06W.m

Go to the documentation of this file.
IBDEI06W ; ; 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,16552,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16552,1,3,0)
 ;;=3^Alzheimer's Disease,Unspec
 ;;^UTILITY(U,$J,358.3,16552,1,4,0)
 ;;=4^G30.9
 ;;^UTILITY(U,$J,358.3,16552,2)
 ;;=^5003808
 ;;^UTILITY(U,$J,358.3,16553,0)
 ;;=G45.9^^95^985^78
 ;;^UTILITY(U,$J,358.3,16553,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16553,1,3,0)
 ;;=3^Transient Cerebral Ischemic Attack (TIA),Unspec
 ;;^UTILITY(U,$J,358.3,16553,1,4,0)
 ;;=4^G45.9
 ;;^UTILITY(U,$J,358.3,16553,2)
 ;;=^5003959
 ;;^UTILITY(U,$J,358.3,16554,0)
 ;;=G47.00^^95^985^56
 ;;^UTILITY(U,$J,358.3,16554,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16554,1,3,0)
 ;;=3^Insomnia,Unspec
 ;;^UTILITY(U,$J,358.3,16554,1,4,0)
 ;;=4^G47.00
 ;;^UTILITY(U,$J,358.3,16554,2)
 ;;=^332924
 ;;^UTILITY(U,$J,358.3,16555,0)
 ;;=G47.30^^95^985^72
 ;;^UTILITY(U,$J,358.3,16555,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16555,1,3,0)
 ;;=3^Sleep Apnea,Unspec
 ;;^UTILITY(U,$J,358.3,16555,1,4,0)
 ;;=4^G47.30
 ;;^UTILITY(U,$J,358.3,16555,2)
 ;;=^5003977
 ;;^UTILITY(U,$J,358.3,16556,0)
 ;;=G47.9^^95^985^73
 ;;^UTILITY(U,$J,358.3,16556,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16556,1,3,0)
 ;;=3^Sleep Disorder,Unspec
 ;;^UTILITY(U,$J,358.3,16556,1,4,0)
 ;;=4^G47.9
 ;;^UTILITY(U,$J,358.3,16556,2)
 ;;=^5003990
 ;;^UTILITY(U,$J,358.3,16557,0)
 ;;=G93.3^^95^985^68
 ;;^UTILITY(U,$J,358.3,16557,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16557,1,3,0)
 ;;=3^Postviral Fatigue Syndrome
 ;;^UTILITY(U,$J,358.3,16557,1,4,0)
 ;;=4^G93.3
 ;;^UTILITY(U,$J,358.3,16557,2)
 ;;=^5004181
 ;;^UTILITY(U,$J,358.3,16558,0)
 ;;=I73.01^^95^985^71
 ;;^UTILITY(U,$J,358.3,16558,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16558,1,3,0)
 ;;=3^Raynaud's Syndrome w/ Gangrene
 ;;^UTILITY(U,$J,358.3,16558,1,4,0)
 ;;=4^I73.01
 ;;^UTILITY(U,$J,358.3,16558,2)
 ;;=^5007797
 ;;^UTILITY(U,$J,358.3,16559,0)
 ;;=I96.^^95^985^48
 ;;^UTILITY(U,$J,358.3,16559,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16559,1,3,0)
 ;;=3^Gangrene NEC
 ;;^UTILITY(U,$J,358.3,16559,1,4,0)
 ;;=4^I96.
 ;;^UTILITY(U,$J,358.3,16559,2)
 ;;=^5008081
 ;;^UTILITY(U,$J,358.3,16560,0)
 ;;=R05.^^95^985^28
 ;;^UTILITY(U,$J,358.3,16560,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16560,1,3,0)
 ;;=3^Cough
 ;;^UTILITY(U,$J,358.3,16560,1,4,0)
 ;;=4^R05.
 ;;^UTILITY(U,$J,358.3,16560,2)
 ;;=^5019179
 ;;^UTILITY(U,$J,358.3,16561,0)
 ;;=R06.00^^95^985^42
 ;;^UTILITY(U,$J,358.3,16561,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16561,1,3,0)
 ;;=3^Dyspnea,Unspec
 ;;^UTILITY(U,$J,358.3,16561,1,4,0)
 ;;=4^R06.00
 ;;^UTILITY(U,$J,358.3,16561,2)
 ;;=^5019180
 ;;^UTILITY(U,$J,358.3,16562,0)
 ;;=R06.01^^95^985^64
 ;;^UTILITY(U,$J,358.3,16562,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16562,1,3,0)
 ;;=3^Orthopnea
 ;;^UTILITY(U,$J,358.3,16562,1,4,0)
 ;;=4^R06.01
 ;;^UTILITY(U,$J,358.3,16562,2)
 ;;=^186737
 ;;^UTILITY(U,$J,358.3,16563,0)
 ;;=R06.3^^95^985^65
 ;;^UTILITY(U,$J,358.3,16563,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16563,1,3,0)
 ;;=3^Periodic Breathing
 ;;^UTILITY(U,$J,358.3,16563,1,4,0)
 ;;=4^R06.3
 ;;^UTILITY(U,$J,358.3,16563,2)
 ;;=^5019185
 ;;^UTILITY(U,$J,358.3,16564,0)
 ;;=R06.2^^95^985^83
 ;;^UTILITY(U,$J,358.3,16564,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16564,1,3,0)
 ;;=3^Wheezing
 ;;^UTILITY(U,$J,358.3,16564,1,4,0)
 ;;=4^R06.2
 ;;^UTILITY(U,$J,358.3,16564,2)
 ;;=^5019184
 ;;^UTILITY(U,$J,358.3,16565,0)
 ;;=R06.4^^95^985^55
 ;;^UTILITY(U,$J,358.3,16565,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16565,1,3,0)
 ;;=3^Hyperventilation
 ;;^UTILITY(U,$J,358.3,16565,1,4,0)
 ;;=4^R06.4
 ;;^UTILITY(U,$J,358.3,16565,2)
 ;;=^5019186
 ;;^UTILITY(U,$J,358.3,16566,0)
 ;;=R06.6^^95^985^53
 ;;^UTILITY(U,$J,358.3,16566,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16566,1,3,0)
 ;;=3^Hiccough
 ;;^UTILITY(U,$J,358.3,16566,1,4,0)
 ;;=4^R06.6
 ;;^UTILITY(U,$J,358.3,16566,2)
 ;;=^5019188
 ;;^UTILITY(U,$J,358.3,16567,0)
 ;;=R06.81^^95^985^15
 ;;^UTILITY(U,$J,358.3,16567,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16567,1,3,0)
 ;;=3^Apnea NEC
 ;;^UTILITY(U,$J,358.3,16567,1,4,0)
 ;;=4^R06.81
 ;;^UTILITY(U,$J,358.3,16567,2)
 ;;=^5019190
 ;;^UTILITY(U,$J,358.3,16568,0)
 ;;=R06.82^^95^985^77
 ;;^UTILITY(U,$J,358.3,16568,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16568,1,3,0)
 ;;=3^Tachypnea NEC
 ;;^UTILITY(U,$J,358.3,16568,1,4,0)
 ;;=4^R06.82
 ;;^UTILITY(U,$J,358.3,16568,2)
 ;;=^5019191
 ;;^UTILITY(U,$J,358.3,16569,0)
 ;;=R06.83^^95^985^74
 ;;^UTILITY(U,$J,358.3,16569,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16569,1,3,0)
 ;;=3^Snoring
 ;;^UTILITY(U,$J,358.3,16569,1,4,0)
 ;;=4^R06.83
 ;;^UTILITY(U,$J,358.3,16569,2)
 ;;=^5019192
 ;;^UTILITY(U,$J,358.3,16570,0)
 ;;=R06.89^^95^985^20
 ;;^UTILITY(U,$J,358.3,16570,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16570,1,3,0)
 ;;=3^Breathing Abnormalities NEC
 ;;^UTILITY(U,$J,358.3,16570,1,4,0)
 ;;=4^R06.89
 ;;^UTILITY(U,$J,358.3,16570,2)
 ;;=^5019193
 ;;^UTILITY(U,$J,358.3,16571,0)
 ;;=R07.1^^95^985^22
 ;;^UTILITY(U,$J,358.3,16571,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16571,1,3,0)
 ;;=3^Chest Pain on Breathing
 ;;^UTILITY(U,$J,358.3,16571,1,4,0)
 ;;=4^R07.1
 ;;^UTILITY(U,$J,358.3,16571,2)
 ;;=^5019196
 ;;^UTILITY(U,$J,358.3,16572,0)
 ;;=R07.2^^95^985^69
 ;;^UTILITY(U,$J,358.3,16572,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16572,1,3,0)
 ;;=3^Precordial Pain
 ;;^UTILITY(U,$J,358.3,16572,1,4,0)
 ;;=4^R07.2
 ;;^UTILITY(U,$J,358.3,16572,2)
 ;;=^5019197
 ;;^UTILITY(U,$J,358.3,16573,0)
 ;;=R07.81^^95^985^67
 ;;^UTILITY(U,$J,358.3,16573,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16573,1,3,0)
 ;;=3^Pleurodynia
 ;;^UTILITY(U,$J,358.3,16573,1,4,0)
 ;;=4^R07.81
 ;;^UTILITY(U,$J,358.3,16573,2)
 ;;=^5019198
 ;;^UTILITY(U,$J,358.3,16574,0)
 ;;=R07.82^^95^985^57
 ;;^UTILITY(U,$J,358.3,16574,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16574,1,3,0)
 ;;=3^Intercostal Pain
 ;;^UTILITY(U,$J,358.3,16574,1,4,0)
 ;;=4^R07.82
 ;;^UTILITY(U,$J,358.3,16574,2)
 ;;=^5019199
 ;;^UTILITY(U,$J,358.3,16575,0)
 ;;=R07.89^^95^985^21
 ;;^UTILITY(U,$J,358.3,16575,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16575,1,3,0)
 ;;=3^Chest Pain NEC
 ;;^UTILITY(U,$J,358.3,16575,1,4,0)
 ;;=4^R07.89
 ;;^UTILITY(U,$J,358.3,16575,2)
 ;;=^5019200
 ;;^UTILITY(U,$J,358.3,16576,0)
 ;;=R07.9^^95^985^23
 ;;^UTILITY(U,$J,358.3,16576,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16576,1,3,0)
 ;;=3^Chest Pain,Unspec
 ;;^UTILITY(U,$J,358.3,16576,1,4,0)
 ;;=4^R07.9
 ;;^UTILITY(U,$J,358.3,16576,2)
 ;;=^5019201
 ;;^UTILITY(U,$J,358.3,16577,0)
 ;;=R09.3^^95^985^3
 ;;^UTILITY(U,$J,358.3,16577,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16577,1,3,0)
 ;;=3^Abnormal Sputum
 ;;^UTILITY(U,$J,358.3,16577,1,4,0)
 ;;=4^R09.3
 ;;^UTILITY(U,$J,358.3,16577,2)
 ;;=^5019202
 ;;^UTILITY(U,$J,358.3,16578,0)
 ;;=R09.89^^95^985^26
 ;;^UTILITY(U,$J,358.3,16578,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16578,1,3,0)
 ;;=3^Circulatory/Respiratory System Signs/Symptoms NEC
 ;;^UTILITY(U,$J,358.3,16578,1,4,0)
 ;;=4^R09.89
 ;;^UTILITY(U,$J,358.3,16578,2)
 ;;=^5019204
 ;;^UTILITY(U,$J,358.3,16579,0)
 ;;=R11.0^^95^985^61
 ;;^UTILITY(U,$J,358.3,16579,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16579,1,3,0)
 ;;=3^Nausea
 ;;^UTILITY(U,$J,358.3,16579,1,4,0)
 ;;=4^R11.0
 ;;^UTILITY(U,$J,358.3,16579,2)
 ;;=^5019231
 ;;^UTILITY(U,$J,358.3,16580,0)
 ;;=R11.10^^95^985^81
 ;;^UTILITY(U,$J,358.3,16580,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16580,1,3,0)
 ;;=3^Vomitin,Unspec
 ;;^UTILITY(U,$J,358.3,16580,1,4,0)
 ;;=4^R11.10
 ;;^UTILITY(U,$J,358.3,16580,2)
 ;;=^5019232
 ;;^UTILITY(U,$J,358.3,16581,0)
 ;;=R11.11^^95^985^80
 ;;^UTILITY(U,$J,358.3,16581,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16581,1,3,0)
 ;;=3^Vomitin w/o Nausea
 ;;^UTILITY(U,$J,358.3,16581,1,4,0)
 ;;=4^R11.11
 ;;^UTILITY(U,$J,358.3,16581,2)
 ;;=^5019233
 ;;^UTILITY(U,$J,358.3,16582,0)
 ;;=R11.12^^95^985^70
 ;;^UTILITY(U,$J,358.3,16582,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16582,1,3,0)
 ;;=3^Projectile Vomiting
 ;;^UTILITY(U,$J,358.3,16582,1,4,0)
 ;;=4^R11.12
 ;;^UTILITY(U,$J,358.3,16582,2)
 ;;=^5019234
 ;;^UTILITY(U,$J,358.3,16583,0)
 ;;=R11.2^^95^985^62
 ;;^UTILITY(U,$J,358.3,16583,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16583,1,3,0)
 ;;=3^Nausea w/ Vomiting,Unspec
 ;;^UTILITY(U,$J,358.3,16583,1,4,0)
 ;;=4^R11.2
 ;;^UTILITY(U,$J,358.3,16583,2)
 ;;=^5019237
 ;;^UTILITY(U,$J,358.3,16584,0)
 ;;=R12.^^95^985^52
 ;;^UTILITY(U,$J,358.3,16584,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16584,1,3,0)
 ;;=3^Heartburn
 ;;^UTILITY(U,$J,358.3,16584,1,4,0)
 ;;=4^R12.
 ;;^UTILITY(U,$J,358.3,16584,2)
 ;;=^5019238
 ;;^UTILITY(U,$J,358.3,16585,0)
 ;;=R13.0^^95^985^14
 ;;^UTILITY(U,$J,358.3,16585,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16585,1,3,0)
 ;;=3^Aphagia
 ;;^UTILITY(U,$J,358.3,16585,1,4,0)
 ;;=4^R13.0
 ;;^UTILITY(U,$J,358.3,16585,2)
 ;;=^5019239
 ;;^UTILITY(U,$J,358.3,16586,0)
 ;;=R13.10^^95^985^41
 ;;^UTILITY(U,$J,358.3,16586,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16586,1,3,0)
 ;;=3^Dysphagia,Unspec
 ;;^UTILITY(U,$J,358.3,16586,1,4,0)
 ;;=4^R13.10
 ;;^UTILITY(U,$J,358.3,16586,2)
 ;;=^335307
 ;;^UTILITY(U,$J,358.3,16587,0)
 ;;=R14.0^^95^985^1
 ;;^UTILITY(U,$J,358.3,16587,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16587,1,3,0)
 ;;=3^Abdominal Distension
 ;;^UTILITY(U,$J,358.3,16587,1,4,0)
 ;;=4^R14.0
 ;;^UTILITY(U,$J,358.3,16587,2)
 ;;=^5019240
 ;;^UTILITY(U,$J,358.3,16588,0)
 ;;=R14.1^^95^985^49
 ;;^UTILITY(U,$J,358.3,16588,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16588,1,3,0)
 ;;=3^Gas Pain
 ;;^UTILITY(U,$J,358.3,16588,1,4,0)
 ;;=4^R14.1
 ;;^UTILITY(U,$J,358.3,16588,2)
 ;;=^5019241
 ;;^UTILITY(U,$J,358.3,16589,0)
 ;;=R14.2^^95^985^43
 ;;^UTILITY(U,$J,358.3,16589,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16589,1,3,0)
 ;;=3^Eructation
 ;;^UTILITY(U,$J,358.3,16589,1,4,0)
 ;;=4^R14.2
 ;;^UTILITY(U,$J,358.3,16589,2)
 ;;=^5019242
 ;;^UTILITY(U,$J,358.3,16590,0)
 ;;=R14.3^^95^985^46
 ;;^UTILITY(U,$J,358.3,16590,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16590,1,3,0)
 ;;=3^Flatulence
 ;;^UTILITY(U,$J,358.3,16590,1,4,0)
 ;;=4^R14.3
 ;;^UTILITY(U,$J,358.3,16590,2)
 ;;=^5019243
 ;;^UTILITY(U,$J,358.3,16591,0)
 ;;=R19.11^^95^985^4
 ;;^UTILITY(U,$J,358.3,16591,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16591,1,3,0)
 ;;=3^Absent Bowel Sounds
 ;;^UTILITY(U,$J,358.3,16591,1,4,0)
 ;;=4^R19.11
 ;;^UTILITY(U,$J,358.3,16591,2)
 ;;=^5019262
 ;;^UTILITY(U,$J,358.3,16592,0)
 ;;=R19.12^^95^985^54
 ;;^UTILITY(U,$J,358.3,16592,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16592,1,3,0)
 ;;=3^Hyperactive Bowel Sounds
 ;;^UTILITY(U,$J,358.3,16592,1,4,0)
 ;;=4^R19.12
 ;;^UTILITY(U,$J,358.3,16592,2)
 ;;=^5019263
 ;;^UTILITY(U,$J,358.3,16593,0)
 ;;=R19.15^^95^985^2
 ;;^UTILITY(U,$J,358.3,16593,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16593,1,3,0)
 ;;=3^Abnormal Bowel Sounds NEC
 ;;^UTILITY(U,$J,358.3,16593,1,4,0)
 ;;=4^R19.15
 ;;^UTILITY(U,$J,358.3,16593,2)
 ;;=^5019264
 ;;^UTILITY(U,$J,358.3,16594,0)
 ;;=R19.2^^95^985^79
 ;;^UTILITY(U,$J,358.3,16594,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16594,1,3,0)
 ;;=3^Visible Peristalsis
 ;;^UTILITY(U,$J,358.3,16594,1,4,0)
 ;;=4^R19.2
 ;;^UTILITY(U,$J,358.3,16594,2)
 ;;=^5019265
 ;;^UTILITY(U,$J,358.3,16595,0)
 ;;=R19.7^^95^985^34
 ;;^UTILITY(U,$J,358.3,16595,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16595,1,3,0)
 ;;=3^Diarrhea,Unspec
 ;;^UTILITY(U,$J,358.3,16595,1,4,0)
 ;;=4^R19.7
 ;;^UTILITY(U,$J,358.3,16595,2)
 ;;=^5019276
 ;;^UTILITY(U,$J,358.3,16596,0)
 ;;=R22.2^^95^985^75
 ;;^UTILITY(U,$J,358.3,16596,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16596,1,3,0)
 ;;=3^Swelling/Mass/Lump,Trunk,Localized
 ;;^UTILITY(U,$J,358.3,16596,1,4,0)
 ;;=4^R22.2
 ;;^UTILITY(U,$J,358.3,16596,2)
 ;;=^5019286
 ;;^UTILITY(U,$J,358.3,16597,0)
 ;;=R40.3^^95^985^66
 ;;^UTILITY(U,$J,358.3,16597,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16597,1,3,0)
 ;;=3^Persistent Vegetative State
 ;;^UTILITY(U,$J,358.3,16597,1,4,0)
 ;;=4^R40.3
 ;;^UTILITY(U,$J,358.3,16597,2)
 ;;=^5019434
 ;;^UTILITY(U,$J,358.3,16598,0)
 ;;=R42.^^95^985^35
 ;;^UTILITY(U,$J,358.3,16598,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16598,1,3,0)
 ;;=3^Dizziness and Giddiness
 ;;^UTILITY(U,$J,358.3,16598,1,4,0)
 ;;=4^R42.
 ;;^UTILITY(U,$J,358.3,16598,2)
 ;;=^5019450
 ;;^UTILITY(U,$J,358.3,16599,0)
 ;;=R44.0^^95^985^16
 ;;^UTILITY(U,$J,358.3,16599,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16599,1,3,0)
 ;;=3^Auditory Hallucinations
 ;;^UTILITY(U,$J,358.3,16599,1,4,0)
 ;;=4^R44.0
 ;;^UTILITY(U,$J,358.3,16599,2)
 ;;=^5019455
 ;;^UTILITY(U,$J,358.3,16600,0)
 ;;=R44.2^^95^985^50
 ;;^UTILITY(U,$J,358.3,16600,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16600,1,3,0)
 ;;=3^Hallucinations NEC
 ;;^UTILITY(U,$J,358.3,16600,1,4,0)
 ;;=4^R44.2
 ;;^UTILITY(U,$J,358.3,16600,2)
 ;;=^5019457
 ;;^UTILITY(U,$J,358.3,16601,0)
 ;;=R44.3^^95^985^51
 ;;^UTILITY(U,$J,358.3,16601,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16601,1,3,0)
 ;;=3^Hallucinations,Unspec
 ;;^UTILITY(U,$J,358.3,16601,1,4,0)
 ;;=4^R44.3
 ;;^UTILITY(U,$J,358.3,16601,2)
 ;;=^5019458
 ;;^UTILITY(U,$J,358.3,16602,0)
 ;;=R50.2^^95^985^39
 ;;^UTILITY(U,$J,358.3,16602,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16602,1,3,0)
 ;;=3^Drug Induced Fever
 ;;^UTILITY(U,$J,358.3,16602,1,4,0)
 ;;=4^R50.2
 ;;^UTILITY(U,$J,358.3,16602,2)
 ;;=^5019507
 ;;^UTILITY(U,$J,358.3,16603,0)
 ;;=R50.9^^95^985^45
 ;;^UTILITY(U,$J,358.3,16603,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16603,1,3,0)
 ;;=3^Fever,Unspec
 ;;^UTILITY(U,$J,358.3,16603,1,4,0)
 ;;=4^R50.9
 ;;^UTILITY(U,$J,358.3,16603,2)
 ;;=^5019512
 ;;^UTILITY(U,$J,358.3,16604,0)
 ;;=R53.0^^95^985^63
 ;;^UTILITY(U,$J,358.3,16604,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16604,1,3,0)
 ;;=3^Neoplastic Related Fatigue
 ;;^UTILITY(U,$J,358.3,16604,1,4,0)
 ;;=4^R53.0
 ;;^UTILITY(U,$J,358.3,16604,2)
 ;;=^5019515
 ;;^UTILITY(U,$J,358.3,16605,0)
 ;;=R53.1^^95^985^82
 ;;^UTILITY(U,$J,358.3,16605,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16605,1,3,0)
 ;;=3^Weakness
 ;;^UTILITY(U,$J,358.3,16605,1,4,0)
 ;;=4^R53.1
 ;;^UTILITY(U,$J,358.3,16605,2)
 ;;=^5019516
 ;;^UTILITY(U,$J,358.3,16606,0)
 ;;=R53.81^^95^985^60
 ;;^UTILITY(U,$J,358.3,16606,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16606,1,3,0)
 ;;=3^Malaise NEC
 ;;^UTILITY(U,$J,358.3,16606,1,4,0)
 ;;=4^R53.81
 ;;^UTILITY(U,$J,358.3,16606,2)
 ;;=^5019518
 ;;^UTILITY(U,$J,358.3,16607,0)
 ;;=R53.82^^95^985^25
 ;;^UTILITY(U,$J,358.3,16607,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16607,1,3,0)
 ;;=3^Chronic Fatigue,Unspec
 ;;^UTILITY(U,$J,358.3,16607,1,4,0)
 ;;=4^R53.82
 ;;^UTILITY(U,$J,358.3,16607,2)
 ;;=^5019519
 ;;^UTILITY(U,$J,358.3,16608,0)
 ;;=R53.83^^95^985^44
 ;;^UTILITY(U,$J,358.3,16608,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16608,1,3,0)
 ;;=3^Fatigue NEC
 ;;^UTILITY(U,$J,358.3,16608,1,4,0)
 ;;=4^R53.83
 ;;^UTILITY(U,$J,358.3,16608,2)
 ;;=^5019520
 ;;^UTILITY(U,$J,358.3,16609,0)
 ;;=R55.^^95^985^76
 ;;^UTILITY(U,$J,358.3,16609,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16609,1,3,0)
 ;;=3^Syncope and Collapse
 ;;^UTILITY(U,$J,358.3,16609,1,4,0)
 ;;=4^R55.
 ;;^UTILITY(U,$J,358.3,16609,2)
 ;;=^116707
 ;;^UTILITY(U,$J,358.3,16610,0)
 ;;=R56.9^^95^985^27
 ;;^UTILITY(U,$J,358.3,16610,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16610,1,3,0)
 ;;=3^Convulsions,Unspec
 ;;^UTILITY(U,$J,358.3,16610,1,4,0)
 ;;=4^R56.9
 ;;^UTILITY(U,$J,358.3,16610,2)
 ;;=^5019524
 ;;^UTILITY(U,$J,358.3,16611,0)
 ;;=R68.83^^95^985^24
 ;;^UTILITY(U,$J,358.3,16611,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16611,1,3,0)
 ;;=3^Chills w/o Fever
 ;;^UTILITY(U,$J,358.3,16611,1,4,0)
 ;;=4^R68.83
 ;;^UTILITY(U,$J,358.3,16611,2)
 ;;=^5019555
 ;;^UTILITY(U,$J,358.3,16612,0)
 ;;=K85.20^^95^985^6
 ;;^UTILITY(U,$J,358.3,16612,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16612,1,3,0)
 ;;=3^Alcohol Induced Acute Pancreatitis
 ;;^UTILITY(U,$J,358.3,16612,1,4,0)
 ;;=4^K85.20
 ;;^UTILITY(U,$J,358.3,16612,2)
 ;;=^5138752
 ;;^UTILITY(U,$J,358.3,16613,0)
 ;;=K85.21^^95^985^8
 ;;^UTILITY(U,$J,358.3,16613,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16613,1,3,0)
 ;;=3^Alcohol Induced Acute Pancreatitis w/ Uninfected Necrosis
 ;;^UTILITY(U,$J,358.3,16613,1,4,0)
 ;;=4^K85.21
 ;;^UTILITY(U,$J,358.3,16613,2)
 ;;=^5138753
 ;;^UTILITY(U,$J,358.3,16614,0)
 ;;=K85.22^^95^985^7
 ;;^UTILITY(U,$J,358.3,16614,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16614,1,3,0)
 ;;=3^Alcohol Induced Acute Pancreatitis w/ Infected Necrosis
 ;;^UTILITY(U,$J,358.3,16614,1,4,0)
 ;;=4^K85.22
 ;;^UTILITY(U,$J,358.3,16614,2)
 ;;=^5138754
 ;;^UTILITY(U,$J,358.3,16615,0)
 ;;=K85.10^^95^985^17
 ;;^UTILITY(U,$J,358.3,16615,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16615,1,3,0)
 ;;=3^Biliary Acute Pancreatitis
 ;;^UTILITY(U,$J,358.3,16615,1,4,0)
 ;;=4^K85.10
 ;;^UTILITY(U,$J,358.3,16615,2)
 ;;=^5138749
 ;;^UTILITY(U,$J,358.3,16616,0)
 ;;=K85.11^^95^985^19
 ;;^UTILITY(U,$J,358.3,16616,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16616,1,3,0)
 ;;=3^Biliary Acute pancreatitis w/ Uninfected Necrosis
 ;;^UTILITY(U,$J,358.3,16616,1,4,0)
 ;;=4^K85.11
 ;;^UTILITY(U,$J,358.3,16616,2)
 ;;=^5138750
 ;;^UTILITY(U,$J,358.3,16617,0)
 ;;=K85.12^^95^985^18
 ;;^UTILITY(U,$J,358.3,16617,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16617,1,3,0)
 ;;=3^Biliary Acute Pancreatitis w/ Infected Necrosis
 ;;^UTILITY(U,$J,358.3,16617,1,4,0)
 ;;=4^K85.12
 ;;^UTILITY(U,$J,358.3,16617,2)
 ;;=^5138751
 ;;^UTILITY(U,$J,358.3,16618,0)
 ;;=K85.31^^95^985^38
 ;;^UTILITY(U,$J,358.3,16618,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16618,1,3,0)
 ;;=3^Drug Induced Acute Pancreatitis w/ Uninfected Necrosis
 ;;^UTILITY(U,$J,358.3,16618,1,4,0)
 ;;=4^K85.31
 ;;^UTILITY(U,$J,358.3,16618,2)
 ;;=^5138756
 ;;^UTILITY(U,$J,358.3,16619,0)
 ;;=K85.30^^95^985^36
 ;;^UTILITY(U,$J,358.3,16619,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16619,1,3,0)
 ;;=3^Drug Induced Acute Pancreatitis
 ;;^UTILITY(U,$J,358.3,16619,1,4,0)
 ;;=4^K85.30
 ;;^UTILITY(U,$J,358.3,16619,2)
 ;;=^5138755
 ;;^UTILITY(U,$J,358.3,16620,0)
 ;;=K85.32^^95^985^37
 ;;^UTILITY(U,$J,358.3,16620,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16620,1,3,0)
 ;;=3^Drug Induced Acute Pancreatitis w/ Infected Necrosis
 ;;^UTILITY(U,$J,358.3,16620,1,4,0)
 ;;=4^K85.32
 ;;^UTILITY(U,$J,358.3,16620,2)
 ;;=^5138757
 ;;^UTILITY(U,$J,358.3,16621,0)
 ;;=C78.7^^95^986^93
 ;;^UTILITY(U,$J,358.3,16621,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16621,1,3,0)
 ;;=3^Secondary Malig Neop of Liver/Intrahepatic Bile Duct
 ;;^UTILITY(U,$J,358.3,16621,1,4,0)
 ;;=4^C78.7
 ;;^UTILITY(U,$J,358.3,16621,2)
 ;;=^5001339
 ;;^UTILITY(U,$J,358.3,16622,0)
 ;;=C78.5^^95^986^92
 ;;^UTILITY(U,$J,358.3,16622,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16622,1,3,0)
 ;;=3^Secondary Malig Neop of Large Intestine/Rectum
 ;;^UTILITY(U,$J,358.3,16622,1,4,0)
 ;;=4^C78.5
 ;;^UTILITY(U,$J,358.3,16622,2)
 ;;=^267327
 ;;^UTILITY(U,$J,358.3,16623,0)
 ;;=C78.89^^95^986^91
 ;;^UTILITY(U,$J,358.3,16623,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16623,1,3,0)
 ;;=3^Secondary Malig Neop of Digestive Organs NEC