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

IBDEI039.m

Go to the documentation of this file. 
  1. IBDEI039 ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1.  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,358.3,7739,0)
  1.  ;;=I21.4^^42^394^54
  1.  ;;^UTILITY(U,$J,358.3,7739,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7739,1,3,0)
  1.  ;;=3^Myocardial infarction,NSTEMI
  1.  ;;^UTILITY(U,$J,358.3,7739,1,4,0)
  1.  ;;=4^I21.4
  1.  ;;^UTILITY(U,$J,358.3,7739,2)
  1.  ;;=^5007088
  1.  ;;^UTILITY(U,$J,358.3,7740,0)
  1.  ;;=I21.3^^42^394^55
  1.  ;;^UTILITY(U,$J,358.3,7740,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7740,1,3,0)
  1.  ;;=3^Myocardial infarction,STEMI
  1.  ;;^UTILITY(U,$J,358.3,7740,1,4,0)
  1.  ;;=4^I21.3
  1.  ;;^UTILITY(U,$J,358.3,7740,2)
  1.  ;;=^5007087
  1.  ;;^UTILITY(U,$J,358.3,7741,0)
  1.  ;;=Z91.11^^42^394^56
  1.  ;;^UTILITY(U,$J,358.3,7741,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7741,1,3,0)
  1.  ;;=3^Noncompliance,Dietary regimen
  1.  ;;^UTILITY(U,$J,358.3,7741,1,4,0)
  1.  ;;=4^Z91.11
  1.  ;;^UTILITY(U,$J,358.3,7741,2)
  1.  ;;=^5063611
  1.  ;;^UTILITY(U,$J,358.3,7742,0)
  1.  ;;=Z91.19^^42^394^57
  1.  ;;^UTILITY(U,$J,358.3,7742,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7742,1,3,0)
  1.  ;;=3^Noncompliance,Medical treatment
  1.  ;;^UTILITY(U,$J,358.3,7742,1,4,0)
  1.  ;;=4^Z91.19
  1.  ;;^UTILITY(U,$J,358.3,7742,2)
  1.  ;;=^5063618
  1.  ;;^UTILITY(U,$J,358.3,7743,0)
  1.  ;;=E66.9^^42^394^58
  1.  ;;^UTILITY(U,$J,358.3,7743,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7743,1,3,0)
  1.  ;;=3^Obesity
  1.  ;;^UTILITY(U,$J,358.3,7743,1,4,0)
  1.  ;;=4^E66.9
  1.  ;;^UTILITY(U,$J,358.3,7743,2)
  1.  ;;=^5002832
  1.  ;;^UTILITY(U,$J,358.3,7744,0)
  1.  ;;=G47.33^^42^394^59
  1.  ;;^UTILITY(U,$J,358.3,7744,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7744,1,3,0)
  1.  ;;=3^Obstructive sleep apnea 
  1.  ;;^UTILITY(U,$J,358.3,7744,1,4,0)
  1.  ;;=4^G47.33
  1.  ;;^UTILITY(U,$J,358.3,7744,2)
  1.  ;;=^332763
  1.  ;;^UTILITY(U,$J,358.3,7745,0)
  1.  ;;=R06.01^^42^394^60
  1.  ;;^UTILITY(U,$J,358.3,7745,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7745,1,3,0)
  1.  ;;=3^Orthopnea
  1.  ;;^UTILITY(U,$J,358.3,7745,1,4,0)
  1.  ;;=4^R06.01
  1.  ;;^UTILITY(U,$J,358.3,7745,2)
  1.  ;;=^186737
  1.  ;;^UTILITY(U,$J,358.3,7746,0)
  1.  ;;=E66.3^^42^394^61
  1.  ;;^UTILITY(U,$J,358.3,7746,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7746,1,3,0)
  1.  ;;=3^Overweight
  1.  ;;^UTILITY(U,$J,358.3,7746,1,4,0)
  1.  ;;=4^E66.3
  1.  ;;^UTILITY(U,$J,358.3,7746,2)
  1.  ;;=^5002830
  1.  ;;^UTILITY(U,$J,358.3,7747,0)
  1.  ;;=Z99.81^^42^394^62
  1.  ;;^UTILITY(U,$J,358.3,7747,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7747,1,3,0)
  1.  ;;=3^Oxygen dependence (supplemental)
  1.  ;;^UTILITY(U,$J,358.3,7747,1,4,0)
  1.  ;;=4^Z99.81
  1.  ;;^UTILITY(U,$J,358.3,7747,2)
  1.  ;;=^5063760
  1.  ;;^UTILITY(U,$J,358.3,7748,0)
  1.  ;;=Z95.0^^42^394^71
  1.  ;;^UTILITY(U,$J,358.3,7748,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7748,1,3,0)
  1.  ;;=3^Pacemaker (cardiac),Hx of placement
  1.  ;;^UTILITY(U,$J,358.3,7748,1,4,0)
  1.  ;;=4^Z95.0
  1.  ;;^UTILITY(U,$J,358.3,7748,2)
  1.  ;;=^5063668
  1.  ;;^UTILITY(U,$J,358.3,7749,0)
  1.  ;;=I26.09^^42^394^63
  1.  ;;^UTILITY(U,$J,358.3,7749,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7749,1,3,0)
  1.  ;;=3^PE,Acute Other w/ Cor pulmonale
  1.  ;;^UTILITY(U,$J,358.3,7749,1,4,0)
  1.  ;;=4^I26.09
  1.  ;;^UTILITY(U,$J,358.3,7749,2)
  1.  ;;=^5007147
  1.  ;;^UTILITY(U,$J,358.3,7750,0)
  1.  ;;=I26.99^^42^394^64
  1.  ;;^UTILITY(U,$J,358.3,7750,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7750,1,3,0)
  1.  ;;=3^PE,Acute Other w/o Cor pulmonale
  1.  ;;^UTILITY(U,$J,358.3,7750,1,4,0)
  1.  ;;=4^I26.99
  1.  ;;^UTILITY(U,$J,358.3,7750,2)
  1.  ;;=^5007150
  1.  ;;^UTILITY(U,$J,358.3,7751,0)
  1.  ;;=I26.01^^42^394^65
  1.  ;;^UTILITY(U,$J,358.3,7751,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7751,1,3,0)
  1.  ;;=3^PE,Acute Septic w/ Cor pulmonale
  1.  ;;^UTILITY(U,$J,358.3,7751,1,4,0)
  1.  ;;=4^I26.01
  1.  ;;^UTILITY(U,$J,358.3,7751,2)
  1.  ;;=^5007145
  1.  ;;^UTILITY(U,$J,358.3,7752,0)
  1.  ;;=I26.90^^42^394^66
  1.  ;;^UTILITY(U,$J,358.3,7752,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7752,1,3,0)
  1.  ;;=3^PE,Acute Septic w/o Cor pulmonale
  1.  ;;^UTILITY(U,$J,358.3,7752,1,4,0)
  1.  ;;=4^I26.90
  1.  ;;^UTILITY(U,$J,358.3,7752,2)
  1.  ;;=^5007148
  1.  ;;^UTILITY(U,$J,358.3,7753,0)
  1.  ;;=I27.82^^42^394^67
  1.  ;;^UTILITY(U,$J,358.3,7753,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7753,1,3,0)
  1.  ;;=3^PE,Chronic
  1.  ;;^UTILITY(U,$J,358.3,7753,1,4,0)
  1.  ;;=4^I27.82
  1.  ;;^UTILITY(U,$J,358.3,7753,2)
  1.  ;;=^338238
  1.  ;;^UTILITY(U,$J,358.3,7754,0)
  1.  ;;=Z86.711^^42^394^68
  1.  ;;^UTILITY(U,$J,358.3,7754,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7754,1,3,0)
  1.  ;;=3^PE,Hx of
  1.  ;;^UTILITY(U,$J,358.3,7754,1,4,0)
  1.  ;;=4^Z86.711
  1.  ;;^UTILITY(U,$J,358.3,7754,2)
  1.  ;;=^5063474
  1.  ;;^UTILITY(U,$J,358.3,7755,0)
  1.  ;;=F29.^^42^394^72
  1.  ;;^UTILITY(U,$J,358.3,7755,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7755,1,3,0)
  1.  ;;=3^Psychosis,Unsp
  1.  ;;^UTILITY(U,$J,358.3,7755,1,4,0)
  1.  ;;=4^F29.
  1.  ;;^UTILITY(U,$J,358.3,7755,2)
  1.  ;;=^5003484
  1.  ;;^UTILITY(U,$J,358.3,7756,0)
  1.  ;;=F43.11^^42^394^69
  1.  ;;^UTILITY(U,$J,358.3,7756,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7756,1,3,0)
  1.  ;;=3^PTSD,Acute
  1.  ;;^UTILITY(U,$J,358.3,7756,1,4,0)
  1.  ;;=4^F43.11
  1.  ;;^UTILITY(U,$J,358.3,7756,2)
  1.  ;;=^5003571
  1.  ;;^UTILITY(U,$J,358.3,7757,0)
  1.  ;;=J96.02^^42^394^75
  1.  ;;^UTILITY(U,$J,358.3,7757,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7757,1,3,0)
  1.  ;;=3^Respiratory failure,Acute w/ Hypercapnia
  1.  ;;^UTILITY(U,$J,358.3,7757,1,4,0)
  1.  ;;=4^J96.02
  1.  ;;^UTILITY(U,$J,358.3,7757,2)
  1.  ;;=^5008349
  1.  ;;^UTILITY(U,$J,358.3,7758,0)
  1.  ;;=J96.01^^42^394^76
  1.  ;;^UTILITY(U,$J,358.3,7758,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7758,1,3,0)
  1.  ;;=3^Respiratory failure,Acute w/ Hypoxia
  1.  ;;^UTILITY(U,$J,358.3,7758,1,4,0)
  1.  ;;=4^J96.01
  1.  ;;^UTILITY(U,$J,358.3,7758,2)
  1.  ;;=^5008348
  1.  ;;^UTILITY(U,$J,358.3,7759,0)
  1.  ;;=J96.22^^42^394^73
  1.  ;;^UTILITY(U,$J,358.3,7759,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7759,1,3,0)
  1.  ;;=3^Respiratory failure,Acute & Chronic w/ Hypercapnia
  1.  ;;^UTILITY(U,$J,358.3,7759,1,4,0)
  1.  ;;=4^J96.22
  1.  ;;^UTILITY(U,$J,358.3,7759,2)
  1.  ;;=^5008355
  1.  ;;^UTILITY(U,$J,358.3,7760,0)
  1.  ;;=J96.21^^42^394^74
  1.  ;;^UTILITY(U,$J,358.3,7760,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7760,1,3,0)
  1.  ;;=3^Respiratory failure,Acute & Chronic w/ Hypoxia
  1.  ;;^UTILITY(U,$J,358.3,7760,1,4,0)
  1.  ;;=4^J96.21
  1.  ;;^UTILITY(U,$J,358.3,7760,2)
  1.  ;;=^5008354
  1.  ;;^UTILITY(U,$J,358.3,7761,0)
  1.  ;;=J96.12^^42^394^77
  1.  ;;^UTILITY(U,$J,358.3,7761,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7761,1,3,0)
  1.  ;;=3^Respiratory failure,Chronic w/ Hypercapnia
  1.  ;;^UTILITY(U,$J,358.3,7761,1,4,0)
  1.  ;;=4^J96.12
  1.  ;;^UTILITY(U,$J,358.3,7761,2)
  1.  ;;=^5008352
  1.  ;;^UTILITY(U,$J,358.3,7762,0)
  1.  ;;=J96.11^^42^394^78
  1.  ;;^UTILITY(U,$J,358.3,7762,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7762,1,3,0)
  1.  ;;=3^Respiratory failure,Chronic w/ Hypoxia
  1.  ;;^UTILITY(U,$J,358.3,7762,1,4,0)
  1.  ;;=4^J96.11
  1.  ;;^UTILITY(U,$J,358.3,7762,2)
  1.  ;;=^5008351
  1.  ;;^UTILITY(U,$J,358.3,7763,0)
  1.  ;;=F10.188^^42^394^83
  1.  ;;^UTILITY(U,$J,358.3,7763,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7763,1,3,0)
  1.  ;;=3^Substance abuse,Alcohol w/ ETOH Induced Disorder
  1.  ;;^UTILITY(U,$J,358.3,7763,1,4,0)
  1.  ;;=4^F10.188
  1.  ;;^UTILITY(U,$J,358.3,7763,2)
  1.  ;;=^5003079
  1.  ;;^UTILITY(U,$J,358.3,7764,0)
  1.  ;;=F10.10^^42^394^84
  1.  ;;^UTILITY(U,$J,358.3,7764,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7764,1,3,0)
  1.  ;;=3^Substance abuse,Alcohol,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,7764,1,4,0)
  1.  ;;=4^F10.10
  1.  ;;^UTILITY(U,$J,358.3,7764,2)
  1.  ;;=^5003068
  1.  ;;^UTILITY(U,$J,358.3,7765,0)
  1.  ;;=F12.120^^42^394^85
  1.  ;;^UTILITY(U,$J,358.3,7765,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7765,1,3,0)
  1.  ;;=3^Substance abuse,Cannabis w/ Intoxication,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,7765,1,4,0)
  1.  ;;=4^F12.120
  1.  ;;^UTILITY(U,$J,358.3,7765,2)
  1.  ;;=^5003156
  1.  ;;^UTILITY(U,$J,358.3,7766,0)
  1.  ;;=F14.120^^42^394^86
  1.  ;;^UTILITY(U,$J,358.3,7766,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7766,1,3,0)
  1.  ;;=3^Substance abuse,Cocaine w/ Intoxication,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,7766,1,4,0)
  1.  ;;=4^F14.120
  1.  ;;^UTILITY(U,$J,358.3,7766,2)
  1.  ;;=^5003240
  1.  ;;^UTILITY(U,$J,358.3,7767,0)
  1.  ;;=F16.120^^42^394^87
  1.  ;;^UTILITY(U,$J,358.3,7767,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7767,1,3,0)
  1.  ;;=3^Substance abuse,Hallucinogen w/ Intoxication,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,7767,1,4,0)
  1.  ;;=4^F16.120
  1.  ;;^UTILITY(U,$J,358.3,7767,2)
  1.  ;;=^5003324
  1.  ;;^UTILITY(U,$J,358.3,7768,0)
  1.  ;;=F11.10^^42^394^88
  1.  ;;^UTILITY(U,$J,358.3,7768,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7768,1,3,0)
  1.  ;;=3^Substance abuse,Opioid,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,7768,1,4,0)
  1.  ;;=4^F11.10
  1.  ;;^UTILITY(U,$J,358.3,7768,2)
  1.  ;;=^5003114
  1.  ;;^UTILITY(U,$J,358.3,7769,0)
  1.  ;;=F19.120^^42^394^89
  1.  ;;^UTILITY(U,$J,358.3,7769,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7769,1,3,0)
  1.  ;;=3^Substance abuse,Psychoactive w/ Intoxication,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,7769,1,4,0)
  1.  ;;=4^F19.120
  1.  ;;^UTILITY(U,$J,358.3,7769,2)
  1.  ;;=^5003417
  1.  ;;^UTILITY(U,$J,358.3,7770,0)
  1.  ;;=F15.220^^42^394^82
  1.  ;;^UTILITY(U,$J,358.3,7770,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7770,1,3,0)
  1.  ;;=3^Substance Dependence,Oth Stimulant w/ Intoxication,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,7770,1,4,0)
  1.  ;;=4^F15.220
  1.  ;;^UTILITY(U,$J,358.3,7770,2)
  1.  ;;=^5003297
  1.  ;;^UTILITY(U,$J,358.3,7771,0)
  1.  ;;=R56.9^^42^394^81
  1.  ;;^UTILITY(U,$J,358.3,7771,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7771,1,3,0)
  1.  ;;=3^Seizure Disorder,Unsp
  1.  ;;^UTILITY(U,$J,358.3,7771,1,4,0)
  1.  ;;=4^R56.9
  1.  ;;^UTILITY(U,$J,358.3,7771,2)
  1.  ;;=^5019524
  1.  ;;^UTILITY(U,$J,358.3,7772,0)
  1.  ;;=Z93.0^^42^394^91
  1.  ;;^UTILITY(U,$J,358.3,7772,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7772,1,3,0)
  1.  ;;=3^Tracheostomy status
  1.  ;;^UTILITY(U,$J,358.3,7772,1,4,0)
  1.  ;;=4^Z93.0
  1.  ;;^UTILITY(U,$J,358.3,7772,2)
  1.  ;;=^5063642
  1.  ;;^UTILITY(U,$J,358.3,7773,0)
  1.  ;;=I47.2^^42^394^92
  1.  ;;^UTILITY(U,$J,358.3,7773,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7773,1,3,0)
  1.  ;;=3^Ventricular tachycardia
  1.  ;;^UTILITY(U,$J,358.3,7773,1,4,0)
  1.  ;;=4^I47.2
  1.  ;;^UTILITY(U,$J,358.3,7773,2)
  1.  ;;=^125976
  1.  ;;^UTILITY(U,$J,358.3,7774,0)
  1.  ;;=N17.9^^42^394^2
  1.  ;;^UTILITY(U,$J,358.3,7774,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7774,1,3,0)
  1.  ;;=3^Acute kidney failure,unspc
  1.  ;;^UTILITY(U,$J,358.3,7774,1,4,0)
  1.  ;;=4^N17.9
  1.  ;;^UTILITY(U,$J,358.3,7774,2)
  1.  ;;=^338532
  1.  ;;^UTILITY(U,$J,358.3,7775,0)
  1.  ;;=Z72.0^^42^394^90
  1.  ;;^UTILITY(U,$J,358.3,7775,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7775,1,3,0)
  1.  ;;=3^Tobacco Use
  1.  ;;^UTILITY(U,$J,358.3,7775,1,4,0)
  1.  ;;=4^Z72.0
  1.  ;;^UTILITY(U,$J,358.3,7775,2)
  1.  ;;=^5063255
  1.  ;;^UTILITY(U,$J,358.3,7776,0)
  1.  ;;=E87.6^^42^394^46
  1.  ;;^UTILITY(U,$J,358.3,7776,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7776,1,3,0)
  1.  ;;=3^Hypokalemia
  1.  ;;^UTILITY(U,$J,358.3,7776,1,4,0)
  1.  ;;=4^E87.6
  1.  ;;^UTILITY(U,$J,358.3,7776,2)
  1.  ;;=^60610
  1.  ;;^UTILITY(U,$J,358.3,7777,0)
  1.  ;;=E87.1^^42^394^47
  1.  ;;^UTILITY(U,$J,358.3,7777,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7777,1,3,0)
  1.  ;;=3^Hyponatremia
  1.  ;;^UTILITY(U,$J,358.3,7777,1,4,0)
  1.  ;;=4^E87.1
  1.  ;;^UTILITY(U,$J,358.3,7777,2)
  1.  ;;=^5003019
  1.  ;;^UTILITY(U,$J,358.3,7778,0)
  1.  ;;=E87.5^^42^394^40
  1.  ;;^UTILITY(U,$J,358.3,7778,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7778,1,3,0)
  1.  ;;=3^Hyperkalemia
  1.  ;;^UTILITY(U,$J,358.3,7778,1,4,0)
  1.  ;;=4^E87.5
  1.  ;;^UTILITY(U,$J,358.3,7778,2)
  1.  ;;=^60041
  1.  ;;^UTILITY(U,$J,358.3,7779,0)
  1.  ;;=E87.0^^42^394^44
  1.  ;;^UTILITY(U,$J,358.3,7779,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7779,1,3,0)
  1.  ;;=3^Hypernatremia
  1.  ;;^UTILITY(U,$J,358.3,7779,1,4,0)
  1.  ;;=4^E87.0
  1.  ;;^UTILITY(U,$J,358.3,7779,2)
  1.  ;;=^5003018
  1.  ;;^UTILITY(U,$J,358.3,7780,0)
  1.  ;;=I48.20^^42^394^6
  1.  ;;^UTILITY(U,$J,358.3,7780,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7780,1,3,0)
  1.  ;;=3^Atrial Fibrillation,Chronic,Unspec
  1.  ;;^UTILITY(U,$J,358.3,7780,1,4,0)
  1.  ;;=4^I48.20
  1.  ;;^UTILITY(U,$J,358.3,7780,2)
  1.  ;;=^5158048
  1.  ;;^UTILITY(U,$J,358.3,7781,0)
  1.  ;;=N18.30^^42^394^21
  1.  ;;^UTILITY(U,$J,358.3,7781,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7781,1,3,0)
  1.  ;;=3^CKD Stage 3,Unspec
  1.  ;;^UTILITY(U,$J,358.3,7781,1,4,0)
  1.  ;;=4^N18.30
  1.  ;;^UTILITY(U,$J,358.3,7781,2)
  1.  ;;=^5159286
  1.  ;;^UTILITY(U,$J,358.3,7782,0)
  1.  ;;=N18.31^^42^394^22
  1.  ;;^UTILITY(U,$J,358.3,7782,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7782,1,3,0)
  1.  ;;=3^CKD Stage 3a
  1.  ;;^UTILITY(U,$J,358.3,7782,1,4,0)
  1.  ;;=4^N18.31
  1.  ;;^UTILITY(U,$J,358.3,7782,2)
  1.  ;;=^5159287
  1.  ;;^UTILITY(U,$J,358.3,7783,0)
  1.  ;;=N18.32^^42^394^23
  1.  ;;^UTILITY(U,$J,358.3,7783,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7783,1,3,0)
  1.  ;;=3^CKD Stage 3b
  1.  ;;^UTILITY(U,$J,358.3,7783,1,4,0)
  1.  ;;=4^N18.32
  1.  ;;^UTILITY(U,$J,358.3,7783,2)
  1.  ;;=^5159288
  1.  ;;^UTILITY(U,$J,358.3,7784,0)
  1.  ;;=Z59.00^^42^394^38
  1.  ;;^UTILITY(U,$J,358.3,7784,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7784,1,3,0)
  1.  ;;=3^Homelessness,Unspec
  1.  ;;^UTILITY(U,$J,358.3,7784,1,4,0)
  1.  ;;=4^Z59.00
  1.  ;;^UTILITY(U,$J,358.3,7784,2)
  1.  ;;=^5161304
  1.  ;;^UTILITY(U,$J,358.3,7785,0)
  1.  ;;=K61.0^^42^395^1
  1.  ;;^UTILITY(U,$J,358.3,7785,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7785,1,3,0)
  1.  ;;=3^Abscess of Anus
  1.  ;;^UTILITY(U,$J,358.3,7785,1,4,0)
  1.  ;;=4^K61.0
  1.  ;;^UTILITY(U,$J,358.3,7785,2)
  1.  ;;=^5008749
  1.  ;;^UTILITY(U,$J,358.3,7786,0)
  1.  ;;=K60.0^^42^395^2
  1.  ;;^UTILITY(U,$J,358.3,7786,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7786,1,3,0)
  1.  ;;=3^Anal Fissure,Acute
  1.  ;;^UTILITY(U,$J,358.3,7786,1,4,0)
  1.  ;;=4^K60.0
  1.  ;;^UTILITY(U,$J,358.3,7786,2)
  1.  ;;=^5008745
  1.  ;;^UTILITY(U,$J,358.3,7787,0)
  1.  ;;=K60.1^^42^395^3
  1.  ;;^UTILITY(U,$J,358.3,7787,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7787,1,3,0)
  1.  ;;=3^Anal Fissure,Chronic
  1.  ;;^UTILITY(U,$J,358.3,7787,1,4,0)
  1.  ;;=4^K60.1
  1.  ;;^UTILITY(U,$J,358.3,7787,2)
  1.  ;;=^5008746
  1.  ;;^UTILITY(U,$J,358.3,7788,0)
  1.  ;;=D12.9^^42^395^5
  1.  ;;^UTILITY(U,$J,358.3,7788,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7788,1,3,0)
  1.  ;;=3^Benign neoplasm,Anal Canal
  1.  ;;^UTILITY(U,$J,358.3,7788,1,4,0)
  1.  ;;=4^D12.9
  1.  ;;^UTILITY(U,$J,358.3,7788,2)
  1.  ;;=^5001972
  1.  ;;^UTILITY(U,$J,358.3,7789,0)
  1.  ;;=D12.8^^42^395^6
  1.  ;;^UTILITY(U,$J,358.3,7789,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7789,1,3,0)
  1.  ;;=3^Benign neoplasm,Rectum
  1.  ;;^UTILITY(U,$J,358.3,7789,1,4,0)
  1.  ;;=4^D12.8
  1.  ;;^UTILITY(U,$J,358.3,7789,2)
  1.  ;;=^5001971
  1.  ;;^UTILITY(U,$J,358.3,7790,0)
  1.  ;;=D01.2^^42^395^7
  1.  ;;^UTILITY(U,$J,358.3,7790,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7790,1,3,0)
  1.  ;;=3^Carcinoma in situ of Rectum
  1.  ;;^UTILITY(U,$J,358.3,7790,1,4,0)
  1.  ;;=4^D01.2
  1.  ;;^UTILITY(U,$J,358.3,7790,2)
  1.  ;;=^267713
  1.  ;;^UTILITY(U,$J,358.3,7791,0)
  1.  ;;=K60.3^^42^395^9
  1.  ;;^UTILITY(U,$J,358.3,7791,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7791,1,3,0)
  1.  ;;=3^Fistula,Anal
  1.  ;;^UTILITY(U,$J,358.3,7791,1,4,0)
  1.  ;;=4^K60.3
  1.  ;;^UTILITY(U,$J,358.3,7791,2)
  1.  ;;=^6684
  1.  ;;^UTILITY(U,$J,358.3,7792,0)
  1.  ;;=K60.5^^42^395^10
  1.  ;;^UTILITY(U,$J,358.3,7792,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7792,1,3,0)
  1.  ;;=3^Fistula,Anorectal
  1.  ;;^UTILITY(U,$J,358.3,7792,1,4,0)
  1.  ;;=4^K60.5
  1.  ;;^UTILITY(U,$J,358.3,7792,2)
  1.  ;;=^5008748
  1.  ;;^UTILITY(U,$J,358.3,7793,0)
  1.  ;;=K60.4^^42^395^11
  1.  ;;^UTILITY(U,$J,358.3,7793,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7793,1,3,0)
  1.  ;;=3^Fistula,Rectum
  1.  ;;^UTILITY(U,$J,358.3,7793,1,4,0)
  1.  ;;=4^K60.4
  1.  ;;^UTILITY(U,$J,358.3,7793,2)
  1.  ;;=^104084
  1.  ;;^UTILITY(U,$J,358.3,7794,0)
  1.  ;;=K64.0^^42^395^12
  1.  ;;^UTILITY(U,$J,358.3,7794,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7794,1,3,0)
  1.  ;;=3^Hemorrhoids,1st degree
  1.  ;;^UTILITY(U,$J,358.3,7794,1,4,0)
  1.  ;;=4^K64.0
  1.  ;;^UTILITY(U,$J,358.3,7794,2)
  1.  ;;=^5008769
  1.  ;;^UTILITY(U,$J,358.3,7795,0)
  1.  ;;=K64.1^^42^395^13
  1.  ;;^UTILITY(U,$J,358.3,7795,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7795,1,3,0)
  1.  ;;=3^Hemorrhoids,2nd degree
  1.  ;;^UTILITY(U,$J,358.3,7795,1,4,0)
  1.  ;;=4^K64.1
  1.  ;;^UTILITY(U,$J,358.3,7795,2)
  1.  ;;=^5008770
  1.  ;;^UTILITY(U,$J,358.3,7796,0)
  1.  ;;=K64.2^^42^395^14
  1.  ;;^UTILITY(U,$J,358.3,7796,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7796,1,3,0)
  1.  ;;=3^Hemorrhoids,3rd degree
  1.  ;;^UTILITY(U,$J,358.3,7796,1,4,0)
  1.  ;;=4^K64.2
  1.  ;;^UTILITY(U,$J,358.3,7796,2)
  1.  ;;=^5008771
  1.  ;;^UTILITY(U,$J,358.3,7797,0)
  1.  ;;=K64.8^^42^395^16
  1.  ;;^UTILITY(U,$J,358.3,7797,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7797,1,3,0)
  1.  ;;=3^Hemorrhoids,Other
  1.  ;;^UTILITY(U,$J,358.3,7797,1,4,0)
  1.  ;;=4^K64.8
  1.  ;;^UTILITY(U,$J,358.3,7797,2)
  1.  ;;=^5008774
  1.  ;;^UTILITY(U,$J,358.3,7798,0)
  1.  ;;=C21.1^^42^395^18
  1.  ;;^UTILITY(U,$J,358.3,7798,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7798,1,3,0)
  1.  ;;=3^Malignant neoplasm,Anal canal
  1.  ;;^UTILITY(U,$J,358.3,7798,1,4,0)
  1.  ;;=4^C21.1
  1.  ;;^UTILITY(U,$J,358.3,7798,2)
  1.  ;;=^267091
  1.  ;;^UTILITY(U,$J,358.3,7799,0)
  1.  ;;=C20.^^42^395^19
  1.  ;;^UTILITY(U,$J,358.3,7799,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7799,1,3,0)
  1.  ;;=3^Malignant neoplasm,Rectum
  1.  ;;^UTILITY(U,$J,358.3,7799,1,4,0)
  1.  ;;=4^C20.
  1.  ;;^UTILITY(U,$J,358.3,7799,2)
  1.  ;;=^267090
  1.  ;;^UTILITY(U,$J,358.3,7800,0)
  1.  ;;=K59.02^^42^395^20
  1.  ;;^UTILITY(U,$J,358.3,7800,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7800,1,3,0)
  1.  ;;=3^Outlet dysfunction constipation
  1.  ;;^UTILITY(U,$J,358.3,7800,1,4,0)
  1.  ;;=4^K59.02
  1.  ;;^UTILITY(U,$J,358.3,7800,2)
  1.  ;;=^323539
  1.  ;;^UTILITY(U,$J,358.3,7801,0)
  1.  ;;=K62.1^^42^395^21
  1.  ;;^UTILITY(U,$J,358.3,7801,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7801,1,3,0)
  1.  ;;=3^Polyp of Rectum
  1.  ;;^UTILITY(U,$J,358.3,7801,1,4,0)
  1.  ;;=4^K62.1
  1.  ;;^UTILITY(U,$J,358.3,7801,2)
  1.  ;;=^104099
  1.  ;;^UTILITY(U,$J,358.3,7802,0)
  1.  ;;=K59.4^^42^395^22
  1.  ;;^UTILITY(U,$J,358.3,7802,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7802,1,3,0)
  1.  ;;=3^Proctalgia fugax
  1.  ;;^UTILITY(U,$J,358.3,7802,1,4,0)
  1.  ;;=4^K59.4
  1.  ;;^UTILITY(U,$J,358.3,7802,2)
  1.  ;;=^265303
  1.  ;;^UTILITY(U,$J,358.3,7803,0)
  1.  ;;=K62.7^^42^395^23
  1.  ;;^UTILITY(U,$J,358.3,7803,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7803,1,3,0)
  1.  ;;=3^Radiation proctitis
  1.  ;;^UTILITY(U,$J,358.3,7803,1,4,0)
  1.  ;;=4^K62.7
  1.  ;;^UTILITY(U,$J,358.3,7803,2)
  1.  ;;=^5008756
  1.  ;;^UTILITY(U,$J,358.3,7804,0)
  1.  ;;=K62.3^^42^395^24
  1.  ;;^UTILITY(U,$J,358.3,7804,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7804,1,3,0)
  1.  ;;=3^Rectal prolapse
  1.  ;;^UTILITY(U,$J,358.3,7804,1,4,0)
  1.  ;;=4^K62.3
  1.  ;;^UTILITY(U,$J,358.3,7804,2)
  1.  ;;=^104104
  1.  ;;^UTILITY(U,$J,358.3,7805,0)
  1.  ;;=K62.4^^42^395^25
  1.  ;;^UTILITY(U,$J,358.3,7805,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7805,1,3,0)
  1.  ;;=3^Stenosis,Anus or Rectum
  1.  ;;^UTILITY(U,$J,358.3,7805,1,4,0)
  1.  ;;=4^K62.4
  1.  ;;^UTILITY(U,$J,358.3,7805,2)
  1.  ;;=^270293
  1.  ;;^UTILITY(U,$J,358.3,7806,0)
  1.  ;;=K62.6^^42^395^26
  1.  ;;^UTILITY(U,$J,358.3,7806,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7806,1,3,0)
  1.  ;;=3^Ulcer,Anus or Rectum
  1.  ;;^UTILITY(U,$J,358.3,7806,1,4,0)
  1.  ;;=4^K62.6
  1.  ;;^UTILITY(U,$J,358.3,7806,2)
  1.  ;;=^270294
  1.  ;;^UTILITY(U,$J,358.3,7807,0)
  1.  ;;=K62.9^^42^395^8
  1.  ;;^UTILITY(U,$J,358.3,7807,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7807,1,3,0)
  1.  ;;=3^Disease of Anus or Rectum,Unspec
  1.  ;;^UTILITY(U,$J,358.3,7807,1,4,0)
  1.  ;;=4^K62.9
  1.  ;;^UTILITY(U,$J,358.3,7807,2)
  1.  ;;=^5008760
  1.  ;;^UTILITY(U,$J,358.3,7808,0)
  1.  ;;=K64.3^^42^395^15
  1.  ;;^UTILITY(U,$J,358.3,7808,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7808,1,3,0)
  1.  ;;=3^Hemorrhoids,4th degree
  1.  ;;^UTILITY(U,$J,358.3,7808,1,4,0)
  1.  ;;=4^K64.3
  1.  ;;^UTILITY(U,$J,358.3,7808,2)
  1.  ;;=^5008772
  1.  ;;^UTILITY(U,$J,358.3,7809,0)
  1.  ;;=K64.5^^42^395^17
  1.  ;;^UTILITY(U,$J,358.3,7809,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7809,1,3,0)
  1.  ;;=3^Hemorrhoids,Perianal/External w/ Thrombosis
  1.  ;;^UTILITY(U,$J,358.3,7809,1,4,0)
  1.  ;;=4^K64.5
  1.  ;;^UTILITY(U,$J,358.3,7809,2)
  1.  ;;=^5008773
  1.  ;;^UTILITY(U,$J,358.3,7810,0)
  1.  ;;=K62.2^^42^395^4
  1.  ;;^UTILITY(U,$J,358.3,7810,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,7810,1,3,0)
  1.  ;;=3^Anal Prolapse