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

IBDEI06O.m

Go to the documentation of this file.
IBDEI06O ; ; 04-NOV-2021
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;NOV 04, 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,15947,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15947,1,3,0)
 ;;=3^Bartholin's Abscess
 ;;^UTILITY(U,$J,358.3,15947,1,4,0)
 ;;=4^N75.1
 ;;^UTILITY(U,$J,358.3,15947,2)
 ;;=^5015823
 ;;^UTILITY(U,$J,358.3,15948,0)
 ;;=Z32.01^^99^977^25
 ;;^UTILITY(U,$J,358.3,15948,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15948,1,3,0)
 ;;=3^Pregnancy Test,Positive Result
 ;;^UTILITY(U,$J,358.3,15948,1,4,0)
 ;;=4^Z32.01
 ;;^UTILITY(U,$J,358.3,15948,2)
 ;;=^5062849
 ;;^UTILITY(U,$J,358.3,15949,0)
 ;;=O20.0^^99^977^26
 ;;^UTILITY(U,$J,358.3,15949,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15949,1,3,0)
 ;;=3^Threatened Abortion
 ;;^UTILITY(U,$J,358.3,15949,1,4,0)
 ;;=4^O20.0
 ;;^UTILITY(U,$J,358.3,15949,2)
 ;;=^1287
 ;;^UTILITY(U,$J,358.3,15950,0)
 ;;=O00.90^^99^977^27
 ;;^UTILITY(U,$J,358.3,15950,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15950,1,3,0)
 ;;=3^Ectopic Pregnancy
 ;;^UTILITY(U,$J,358.3,15950,1,4,0)
 ;;=4^O00.90
 ;;^UTILITY(U,$J,358.3,15950,2)
 ;;=^328607
 ;;^UTILITY(U,$J,358.3,15951,0)
 ;;=N94.6^^99^977^28
 ;;^UTILITY(U,$J,358.3,15951,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15951,1,3,0)
 ;;=3^Dysmenorrhea
 ;;^UTILITY(U,$J,358.3,15951,1,4,0)
 ;;=4^N94.6
 ;;^UTILITY(U,$J,358.3,15951,2)
 ;;=^5015922
 ;;^UTILITY(U,$J,358.3,15952,0)
 ;;=K56.41^^99^977^29
 ;;^UTILITY(U,$J,358.3,15952,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15952,1,3,0)
 ;;=3^Fecal Impaction
 ;;^UTILITY(U,$J,358.3,15952,1,4,0)
 ;;=4^K56.41
 ;;^UTILITY(U,$J,358.3,15952,2)
 ;;=^186798
 ;;^UTILITY(U,$J,358.3,15953,0)
 ;;=T18.5XXA^^99^977^30
 ;;^UTILITY(U,$J,358.3,15953,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15953,1,3,0)
 ;;=3^Rectal FB
 ;;^UTILITY(U,$J,358.3,15953,1,4,0)
 ;;=4^T18.5XXA
 ;;^UTILITY(U,$J,358.3,15953,2)
 ;;=^5046612
 ;;^UTILITY(U,$J,358.3,15954,0)
 ;;=K64.9^^99^977^31
 ;;^UTILITY(U,$J,358.3,15954,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15954,1,3,0)
 ;;=3^Hemorrhoids
 ;;^UTILITY(U,$J,358.3,15954,1,4,0)
 ;;=4^K64.9
 ;;^UTILITY(U,$J,358.3,15954,2)
 ;;=^5008775
 ;;^UTILITY(U,$J,358.3,15955,0)
 ;;=K60.0^^99^977^32
 ;;^UTILITY(U,$J,358.3,15955,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15955,1,3,0)
 ;;=3^Acute Anal Fissure
 ;;^UTILITY(U,$J,358.3,15955,1,4,0)
 ;;=4^K60.0
 ;;^UTILITY(U,$J,358.3,15955,2)
 ;;=^5008745
 ;;^UTILITY(U,$J,358.3,15956,0)
 ;;=K61.0^^99^977^33
 ;;^UTILITY(U,$J,358.3,15956,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15956,1,3,0)
 ;;=3^Anal Abscess
 ;;^UTILITY(U,$J,358.3,15956,1,4,0)
 ;;=4^K61.0
 ;;^UTILITY(U,$J,358.3,15956,2)
 ;;=^5008749
 ;;^UTILITY(U,$J,358.3,15957,0)
 ;;=K62.5^^99^977^34
 ;;^UTILITY(U,$J,358.3,15957,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15957,1,3,0)
 ;;=3^Rectal Bleeding
 ;;^UTILITY(U,$J,358.3,15957,1,4,0)
 ;;=4^K62.5
 ;;^UTILITY(U,$J,358.3,15957,2)
 ;;=^5008755
 ;;^UTILITY(U,$J,358.3,15958,0)
 ;;=N20.1^^99^977^35
 ;;^UTILITY(U,$J,358.3,15958,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15958,1,3,0)
 ;;=3^Ureterolithiasis
 ;;^UTILITY(U,$J,358.3,15958,1,4,0)
 ;;=4^N20.1
 ;;^UTILITY(U,$J,358.3,15958,2)
 ;;=^5015608
 ;;^UTILITY(U,$J,358.3,15959,0)
 ;;=I95.9^^99^978^1
 ;;^UTILITY(U,$J,358.3,15959,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15959,1,3,0)
 ;;=3^Hypotension
 ;;^UTILITY(U,$J,358.3,15959,1,4,0)
 ;;=4^I95.9
 ;;^UTILITY(U,$J,358.3,15959,2)
 ;;=^5008080
 ;;^UTILITY(U,$J,358.3,15960,0)
 ;;=I95.1^^99^978^2
 ;;^UTILITY(U,$J,358.3,15960,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15960,1,3,0)
 ;;=3^Orthostatic Hypotension
 ;;^UTILITY(U,$J,358.3,15960,1,4,0)
 ;;=4^I95.1
 ;;^UTILITY(U,$J,358.3,15960,2)
 ;;=^60741
 ;;^UTILITY(U,$J,358.3,15961,0)
 ;;=D64.9^^99^978^3
 ;;^UTILITY(U,$J,358.3,15961,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15961,1,3,0)
 ;;=3^Anemia
 ;;^UTILITY(U,$J,358.3,15961,1,4,0)
 ;;=4^D64.9
 ;;^UTILITY(U,$J,358.3,15961,2)
 ;;=^5002351
 ;;^UTILITY(U,$J,358.3,15962,0)
 ;;=R79.1^^99^978^4
 ;;^UTILITY(U,$J,358.3,15962,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15962,1,3,0)
 ;;=3^Abnormal Coagulation Profile (Elevated INR)
 ;;^UTILITY(U,$J,358.3,15962,1,4,0)
 ;;=4^R79.1
 ;;^UTILITY(U,$J,358.3,15962,2)
 ;;=^5019591
 ;;^UTILITY(U,$J,358.3,15963,0)
 ;;=D70.9^^99^978^5
 ;;^UTILITY(U,$J,358.3,15963,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15963,1,3,0)
 ;;=3^Neutropenia
 ;;^UTILITY(U,$J,358.3,15963,1,4,0)
 ;;=4^D70.9
 ;;^UTILITY(U,$J,358.3,15963,2)
 ;;=^334186
 ;;^UTILITY(U,$J,358.3,15964,0)
 ;;=D69.6^^99^978^6
 ;;^UTILITY(U,$J,358.3,15964,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15964,1,3,0)
 ;;=3^Thrombocytopenia
 ;;^UTILITY(U,$J,358.3,15964,1,4,0)
 ;;=4^D69.6
 ;;^UTILITY(U,$J,358.3,15964,2)
 ;;=^5002370
 ;;^UTILITY(U,$J,358.3,15965,0)
 ;;=D61.818^^99^978^7
 ;;^UTILITY(U,$J,358.3,15965,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15965,1,3,0)
 ;;=3^Pancytopenia
 ;;^UTILITY(U,$J,358.3,15965,1,4,0)
 ;;=4^D61.818
 ;;^UTILITY(U,$J,358.3,15965,2)
 ;;=^340501
 ;;^UTILITY(U,$J,358.3,15966,0)
 ;;=C94.6^^99^978^8
 ;;^UTILITY(U,$J,358.3,15966,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15966,1,3,0)
 ;;=3^Myelodysplastic Disease
 ;;^UTILITY(U,$J,358.3,15966,1,4,0)
 ;;=4^C94.6
 ;;^UTILITY(U,$J,358.3,15966,2)
 ;;=^5001846
 ;;^UTILITY(U,$J,358.3,15967,0)
 ;;=C90.00^^99^978^9
 ;;^UTILITY(U,$J,358.3,15967,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15967,1,3,0)
 ;;=3^Multiple Myeloma,Not in Remission
 ;;^UTILITY(U,$J,358.3,15967,1,4,0)
 ;;=4^C90.00
 ;;^UTILITY(U,$J,358.3,15967,2)
 ;;=^5001752
 ;;^UTILITY(U,$J,358.3,15968,0)
 ;;=C95.10^^99^978^10
 ;;^UTILITY(U,$J,358.3,15968,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15968,1,3,0)
 ;;=3^Chronic Leukemia,Not in Remission
 ;;^UTILITY(U,$J,358.3,15968,1,4,0)
 ;;=4^C95.10
 ;;^UTILITY(U,$J,358.3,15968,2)
 ;;=^5001853
 ;;^UTILITY(U,$J,358.3,15969,0)
 ;;=L04.0^^99^978^11
 ;;^UTILITY(U,$J,358.3,15969,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15969,1,3,0)
 ;;=3^Acute Lymphadenitis,Face/Head/Neck
 ;;^UTILITY(U,$J,358.3,15969,1,4,0)
 ;;=4^L04.0
 ;;^UTILITY(U,$J,358.3,15969,2)
 ;;=^5009069
 ;;^UTILITY(U,$J,358.3,15970,0)
 ;;=R22.1^^99^978^12
 ;;^UTILITY(U,$J,358.3,15970,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15970,1,3,0)
 ;;=3^Localized Swelling/Mass/Lump,Neck
 ;;^UTILITY(U,$J,358.3,15970,1,4,0)
 ;;=4^R22.1
 ;;^UTILITY(U,$J,358.3,15970,2)
 ;;=^5019285
 ;;^UTILITY(U,$J,358.3,15971,0)
 ;;=I89.0^^99^978^13
 ;;^UTILITY(U,$J,358.3,15971,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15971,1,3,0)
 ;;=3^Lymphedema
 ;;^UTILITY(U,$J,358.3,15971,1,4,0)
 ;;=4^I89.0
 ;;^UTILITY(U,$J,358.3,15971,2)
 ;;=^5008073
 ;;^UTILITY(U,$J,358.3,15972,0)
 ;;=R60.0^^99^978^14
 ;;^UTILITY(U,$J,358.3,15972,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15972,1,3,0)
 ;;=3^Localized Edema (Leg Edema)
 ;;^UTILITY(U,$J,358.3,15972,1,4,0)
 ;;=4^R60.0
 ;;^UTILITY(U,$J,358.3,15972,2)
 ;;=^5019532
 ;;^UTILITY(U,$J,358.3,15973,0)
 ;;=I87.2^^99^978^15
 ;;^UTILITY(U,$J,358.3,15973,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15973,1,3,0)
 ;;=3^Venous Insufficiency
 ;;^UTILITY(U,$J,358.3,15973,1,4,0)
 ;;=4^I87.2
 ;;^UTILITY(U,$J,358.3,15973,2)
 ;;=^5008047
 ;;^UTILITY(U,$J,358.3,15974,0)
 ;;=I80.3^^99^978^16
 ;;^UTILITY(U,$J,358.3,15974,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15974,1,3,0)
 ;;=3^Phlebitis & Thrombophlebitis,Lower Extremities
 ;;^UTILITY(U,$J,358.3,15974,1,4,0)
 ;;=4^I80.3
 ;;^UTILITY(U,$J,358.3,15974,2)
 ;;=^5007845
 ;;^UTILITY(U,$J,358.3,15975,0)
 ;;=I82.409^^99^978^17
 ;;^UTILITY(U,$J,358.3,15975,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15975,1,3,0)
 ;;=3^Acute Lower Leg DVT
 ;;^UTILITY(U,$J,358.3,15975,1,4,0)
 ;;=4^I82.409
 ;;^UTILITY(U,$J,358.3,15975,2)
 ;;=^5133625
 ;;^UTILITY(U,$J,358.3,15976,0)
 ;;=I26.99^^99^978^18
 ;;^UTILITY(U,$J,358.3,15976,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15976,1,3,0)
 ;;=3^Acute Pulmonary Embolism
 ;;^UTILITY(U,$J,358.3,15976,1,4,0)
 ;;=4^I26.99
 ;;^UTILITY(U,$J,358.3,15976,2)
 ;;=^5007150
 ;;^UTILITY(U,$J,358.3,15977,0)
 ;;=I26.09^^99^978^19
 ;;^UTILITY(U,$J,358.3,15977,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15977,1,3,0)
 ;;=3^Acute Pulmonary Embolism w/ Strain
 ;;^UTILITY(U,$J,358.3,15977,1,4,0)
 ;;=4^I26.09
 ;;^UTILITY(U,$J,358.3,15977,2)
 ;;=^5007147
 ;;^UTILITY(U,$J,358.3,15978,0)
 ;;=I73.9^^99^978^20
 ;;^UTILITY(U,$J,358.3,15978,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15978,1,3,0)
 ;;=3^PVD
 ;;^UTILITY(U,$J,358.3,15978,1,4,0)
 ;;=4^I73.9
 ;;^UTILITY(U,$J,358.3,15978,2)
 ;;=^184182
 ;;^UTILITY(U,$J,358.3,15979,0)
 ;;=I70.209^^99^978^21
 ;;^UTILITY(U,$J,358.3,15979,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15979,1,3,0)
 ;;=3^Atherosclerosis,Unspec Extremity
 ;;^UTILITY(U,$J,358.3,15979,1,4,0)
 ;;=4^I70.209
 ;;^UTILITY(U,$J,358.3,15979,2)
 ;;=^5007577
 ;;^UTILITY(U,$J,358.3,15980,0)
 ;;=I70.219^^99^978^22
 ;;^UTILITY(U,$J,358.3,15980,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15980,1,3,0)
 ;;=3^Claudication
 ;;^UTILITY(U,$J,358.3,15980,1,4,0)
 ;;=4^I70.219
 ;;^UTILITY(U,$J,358.3,15980,2)
 ;;=^5007582
 ;;^UTILITY(U,$J,358.3,15981,0)
 ;;=I74.9^^99^978^23
 ;;^UTILITY(U,$J,358.3,15981,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15981,1,3,0)
 ;;=3^Embolism & Thrombosis,Unspec Artery
 ;;^UTILITY(U,$J,358.3,15981,1,4,0)
 ;;=4^I74.9
 ;;^UTILITY(U,$J,358.3,15981,2)
 ;;=^5007805
 ;;^UTILITY(U,$J,358.3,15982,0)
 ;;=I76.^^99^978^24
 ;;^UTILITY(U,$J,358.3,15982,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15982,1,3,0)
 ;;=3^Septic Arterial Embolism
 ;;^UTILITY(U,$J,358.3,15982,1,4,0)
 ;;=4^I76.
 ;;^UTILITY(U,$J,358.3,15982,2)
 ;;=^335304
 ;;^UTILITY(U,$J,358.3,15983,0)
 ;;=I78.9^^99^978^25
 ;;^UTILITY(U,$J,358.3,15983,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15983,1,3,0)
 ;;=3^Aortic Aneurysm w/o Rupture
 ;;^UTILITY(U,$J,358.3,15983,1,4,0)
 ;;=4^I78.9
 ;;^UTILITY(U,$J,358.3,15983,2)
 ;;=^5007816
 ;;^UTILITY(U,$J,358.3,15984,0)
 ;;=I78.8^^99^978^26
 ;;^UTILITY(U,$J,358.3,15984,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15984,1,3,0)
 ;;=3^Aortic Aneurysm w/ Rupture
 ;;^UTILITY(U,$J,358.3,15984,1,4,0)
 ;;=4^I78.8
 ;;^UTILITY(U,$J,358.3,15984,2)
 ;;=^5007815
 ;;^UTILITY(U,$J,358.3,15985,0)
 ;;=I70.0^^99^978^27
 ;;^UTILITY(U,$J,358.3,15985,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15985,1,3,0)
 ;;=3^Atherosclerosis of Aorta
 ;;^UTILITY(U,$J,358.3,15985,1,4,0)
 ;;=4^I70.0
 ;;^UTILITY(U,$J,358.3,15985,2)
 ;;=^269759
 ;;^UTILITY(U,$J,358.3,15986,0)
 ;;=I71.00^^99^978^28
 ;;^UTILITY(U,$J,358.3,15986,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15986,1,3,0)
 ;;=3^Aortic Dissection
 ;;^UTILITY(U,$J,358.3,15986,1,4,0)
 ;;=4^I71.00
 ;;^UTILITY(U,$J,358.3,15986,2)
 ;;=^35660
 ;;^UTILITY(U,$J,358.3,15987,0)
 ;;=K55.059^^99^978^29
 ;;^UTILITY(U,$J,358.3,15987,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15987,1,3,0)
 ;;=3^Acute Ischemia of Intestine
 ;;^UTILITY(U,$J,358.3,15987,1,4,0)
 ;;=4^K55.059
 ;;^UTILITY(U,$J,358.3,15987,2)
 ;;=^5138733
 ;;^UTILITY(U,$J,358.3,15988,0)
 ;;=C79.9^^99^978^30
 ;;^UTILITY(U,$J,358.3,15988,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15988,1,3,0)
 ;;=3^Metastatses
 ;;^UTILITY(U,$J,358.3,15988,1,4,0)
 ;;=4^C79.9
 ;;^UTILITY(U,$J,358.3,15988,2)
 ;;=^5133344
 ;;^UTILITY(U,$J,358.3,15989,0)
 ;;=C71.9^^99^978^31
 ;;^UTILITY(U,$J,358.3,15989,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15989,1,3,0)
 ;;=3^Malig Neopl of Brain
 ;;^UTILITY(U,$J,358.3,15989,1,4,0)
 ;;=4^C71.9
 ;;^UTILITY(U,$J,358.3,15989,2)
 ;;=^5001297
 ;;^UTILITY(U,$J,358.3,15990,0)
 ;;=C76.0^^99^978^32
 ;;^UTILITY(U,$J,358.3,15990,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15990,1,3,0)
 ;;=3^Malig Neopl of Head/Face/Neck
 ;;^UTILITY(U,$J,358.3,15990,1,4,0)
 ;;=4^C76.0
 ;;^UTILITY(U,$J,358.3,15990,2)
 ;;=^5001324
 ;;^UTILITY(U,$J,358.3,15991,0)
 ;;=C34.10^^99^978^33
 ;;^UTILITY(U,$J,358.3,15991,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15991,1,3,0)
 ;;=3^Malig Neopl of Lung or Bronchus
 ;;^UTILITY(U,$J,358.3,15991,1,4,0)
 ;;=4^C34.10
 ;;^UTILITY(U,$J,358.3,15991,2)
 ;;=^5000960
 ;;^UTILITY(U,$J,358.3,15992,0)
 ;;=C18.9^^99^978^34
 ;;^UTILITY(U,$J,358.3,15992,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15992,1,3,0)
 ;;=3^Malig Neopl of Colon
 ;;^UTILITY(U,$J,358.3,15992,1,4,0)
 ;;=4^C18.9
 ;;^UTILITY(U,$J,358.3,15992,2)
 ;;=^5000929
 ;;^UTILITY(U,$J,358.3,15993,0)
 ;;=C20.^^99^978^35
 ;;^UTILITY(U,$J,358.3,15993,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15993,1,3,0)
 ;;=3^Malig Neopl of Rectum
 ;;^UTILITY(U,$J,358.3,15993,1,4,0)
 ;;=4^C20.
 ;;^UTILITY(U,$J,358.3,15993,2)
 ;;=^267090
 ;;^UTILITY(U,$J,358.3,15994,0)
 ;;=C22.8^^99^978^36
 ;;^UTILITY(U,$J,358.3,15994,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15994,1,3,0)
 ;;=3^Malig Neopl of Liver
 ;;^UTILITY(U,$J,358.3,15994,1,4,0)
 ;;=4^C22.8
 ;;^UTILITY(U,$J,358.3,15994,2)
 ;;=^5000939
 ;;^UTILITY(U,$J,358.3,15995,0)
 ;;=C25.9^^99^978^37
 ;;^UTILITY(U,$J,358.3,15995,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15995,1,3,0)
 ;;=3^Malig Neopl of Pancreas
 ;;^UTILITY(U,$J,358.3,15995,1,4,0)
 ;;=4^C25.9
 ;;^UTILITY(U,$J,358.3,15995,2)
 ;;=^5000946
 ;;^UTILITY(U,$J,358.3,15996,0)
 ;;=C64.9^^99^978^38
 ;;^UTILITY(U,$J,358.3,15996,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15996,1,3,0)
 ;;=3^Malig Neopl of Kidney
 ;;^UTILITY(U,$J,358.3,15996,1,4,0)
 ;;=4^C64.9
 ;;^UTILITY(U,$J,358.3,15996,2)
 ;;=^5001250
 ;;^UTILITY(U,$J,358.3,15997,0)
 ;;=C67.9^^99^978^39
 ;;^UTILITY(U,$J,358.3,15997,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15997,1,3,0)
 ;;=3^Malig Neopl of Bladder
 ;;^UTILITY(U,$J,358.3,15997,1,4,0)
 ;;=4^C67.9
 ;;^UTILITY(U,$J,358.3,15997,2)
 ;;=^5001263
 ;;^UTILITY(U,$J,358.3,15998,0)
 ;;=C61.^^99^978^40
 ;;^UTILITY(U,$J,358.3,15998,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15998,1,3,0)
 ;;=3^Malig Neopl of Prostate
 ;;^UTILITY(U,$J,358.3,15998,1,4,0)
 ;;=4^C61.
 ;;^UTILITY(U,$J,358.3,15998,2)
 ;;=^267239
 ;;^UTILITY(U,$J,358.3,15999,0)
 ;;=C56.9^^99^978^41
 ;;^UTILITY(U,$J,358.3,15999,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,15999,1,3,0)
 ;;=3^Malig Neopl of Ovary
 ;;^UTILITY(U,$J,358.3,15999,1,4,0)
 ;;=4^C56.9
 ;;^UTILITY(U,$J,358.3,15999,2)
 ;;=^5001214
 ;;^UTILITY(U,$J,358.3,16000,0)
 ;;=C43.9^^99^978^42
 ;;^UTILITY(U,$J,358.3,16000,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16000,1,3,0)
 ;;=3^Melanoma
 ;;^UTILITY(U,$J,358.3,16000,1,4,0)
 ;;=4^C43.9
 ;;^UTILITY(U,$J,358.3,16000,2)
 ;;=^5001015
 ;;^UTILITY(U,$J,358.3,16001,0)
 ;;=J06.9^^99^979^1
 ;;^UTILITY(U,$J,358.3,16001,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16001,1,3,0)
 ;;=3^Acute Upper Respiratory Infection
 ;;^UTILITY(U,$J,358.3,16001,1,4,0)
 ;;=4^J06.9
 ;;^UTILITY(U,$J,358.3,16001,2)
 ;;=^5008143
 ;;^UTILITY(U,$J,358.3,16002,0)
 ;;=J20.9^^99^979^2
 ;;^UTILITY(U,$J,358.3,16002,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16002,1,3,0)
 ;;=3^Acute Bronchitis
 ;;^UTILITY(U,$J,358.3,16002,1,4,0)
 ;;=4^J20.9
 ;;^UTILITY(U,$J,358.3,16002,2)
 ;;=^5008195
 ;;^UTILITY(U,$J,358.3,16003,0)
 ;;=J18.9^^99^979^3
 ;;^UTILITY(U,$J,358.3,16003,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16003,1,3,0)
 ;;=3^Pneumonia
 ;;^UTILITY(U,$J,358.3,16003,1,4,0)
 ;;=4^J18.9
 ;;^UTILITY(U,$J,358.3,16003,2)
 ;;=^95632
 ;;^UTILITY(U,$J,358.3,16004,0)
 ;;=J11.1^^99^979^4
 ;;^UTILITY(U,$J,358.3,16004,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16004,1,3,0)
 ;;=3^Flu w/ Respiratory Manifestations
 ;;^UTILITY(U,$J,358.3,16004,1,4,0)
 ;;=4^J11.1
 ;;^UTILITY(U,$J,358.3,16004,2)
 ;;=^5008158
 ;;^UTILITY(U,$J,358.3,16005,0)
 ;;=J01.90^^99^979^5
 ;;^UTILITY(U,$J,358.3,16005,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16005,1,3,0)
 ;;=3^Acute Sinusitis
 ;;^UTILITY(U,$J,358.3,16005,1,4,0)
 ;;=4^J01.90
 ;;^UTILITY(U,$J,358.3,16005,2)
 ;;=^5008127
 ;;^UTILITY(U,$J,358.3,16006,0)
 ;;=J02.9^^99^979^6
 ;;^UTILITY(U,$J,358.3,16006,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16006,1,3,0)
 ;;=3^Acute Pharyngitis
 ;;^UTILITY(U,$J,358.3,16006,1,4,0)
 ;;=4^J02.9
 ;;^UTILITY(U,$J,358.3,16006,2)
 ;;=^5008130
 ;;^UTILITY(U,$J,358.3,16007,0)
 ;;=J02.0^^99^979^7
 ;;^UTILITY(U,$J,358.3,16007,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16007,1,3,0)
 ;;=3^Streptococcal Pharyngitis
 ;;^UTILITY(U,$J,358.3,16007,1,4,0)
 ;;=4^J02.0
 ;;^UTILITY(U,$J,358.3,16007,2)
 ;;=^114607
 ;;^UTILITY(U,$J,358.3,16008,0)
 ;;=N39.0^^99^979^8
 ;;^UTILITY(U,$J,358.3,16008,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16008,1,3,0)
 ;;=3^UTI
 ;;^UTILITY(U,$J,358.3,16008,1,4,0)
 ;;=4^N39.0
 ;;^UTILITY(U,$J,358.3,16008,2)
 ;;=^124436
 ;;^UTILITY(U,$J,358.3,16009,0)
 ;;=N10.^^99^979^9
 ;;^UTILITY(U,$J,358.3,16009,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16009,1,3,0)
 ;;=3^Acute Pyelonephritis
 ;;^UTILITY(U,$J,358.3,16009,1,4,0)
 ;;=4^N10.
 ;;^UTILITY(U,$J,358.3,16009,2)
 ;;=^5015570
 ;;^UTILITY(U,$J,358.3,16010,0)
 ;;=R78.81^^99^979^10
 ;;^UTILITY(U,$J,358.3,16010,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16010,1,3,0)
 ;;=3^Bacteremia
 ;;^UTILITY(U,$J,358.3,16010,1,4,0)
 ;;=4^R78.81
 ;;^UTILITY(U,$J,358.3,16010,2)
 ;;=^12280
 ;;^UTILITY(U,$J,358.3,16011,0)
 ;;=A41.9^^99^979^11
 ;;^UTILITY(U,$J,358.3,16011,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16011,1,3,0)
 ;;=3^Sepsis
 ;;^UTILITY(U,$J,358.3,16011,1,4,0)
 ;;=4^A41.9
 ;;^UTILITY(U,$J,358.3,16011,2)
 ;;=^5000214
 ;;^UTILITY(U,$J,358.3,16012,0)
 ;;=R65.20^^99^979^12
 ;;^UTILITY(U,$J,358.3,16012,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16012,1,3,0)
 ;;=3^Severe Sepsis w/o Septic Shock
 ;;^UTILITY(U,$J,358.3,16012,1,4,0)
 ;;=4^R65.20
 ;;^UTILITY(U,$J,358.3,16012,2)
 ;;=^5019547
 ;;^UTILITY(U,$J,358.3,16013,0)
 ;;=R65.21^^99^979^13
 ;;^UTILITY(U,$J,358.3,16013,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16013,1,3,0)
 ;;=3^Severe Sepsis w/ Septic Shock
 ;;^UTILITY(U,$J,358.3,16013,1,4,0)
 ;;=4^R65.21
 ;;^UTILITY(U,$J,358.3,16013,2)
 ;;=^5019548
 ;;^UTILITY(U,$J,358.3,16014,0)
 ;;=R50.9^^99^979^15
 ;;^UTILITY(U,$J,358.3,16014,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16014,1,3,0)
 ;;=3^Fever
 ;;^UTILITY(U,$J,358.3,16014,1,4,0)
 ;;=4^R50.9
 ;;^UTILITY(U,$J,358.3,16014,2)
 ;;=^5019512
 ;;^UTILITY(U,$J,358.3,16015,0)
 ;;=D70.9^^99^979^16
 ;;^UTILITY(U,$J,358.3,16015,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16015,1,3,0)
 ;;=3^Neutropenia
 ;;^UTILITY(U,$J,358.3,16015,1,4,0)
 ;;=4^D70.9
 ;;^UTILITY(U,$J,358.3,16015,2)
 ;;=^334186
 ;;^UTILITY(U,$J,358.3,16016,0)
 ;;=L02.91^^99^979^17
 ;;^UTILITY(U,$J,358.3,16016,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16016,1,3,0)
 ;;=3^Cutaneous Abscess
 ;;^UTILITY(U,$J,358.3,16016,1,4,0)
 ;;=4^L02.91
 ;;^UTILITY(U,$J,358.3,16016,2)
 ;;=^5009016
 ;;^UTILITY(U,$J,358.3,16017,0)
 ;;=L02.419^^99^979^18
 ;;^UTILITY(U,$J,358.3,16017,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16017,1,3,0)
 ;;=3^Cutaneous Abscess,Limb
 ;;^UTILITY(U,$J,358.3,16017,1,4,0)
 ;;=4^L02.419
 ;;^UTILITY(U,$J,358.3,16017,2)
 ;;=^5008979
 ;;^UTILITY(U,$J,358.3,16018,0)
 ;;=L03.90^^99^979^19
 ;;^UTILITY(U,$J,358.3,16018,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16018,1,3,0)
 ;;=3^Cellulitis
 ;;^UTILITY(U,$J,358.3,16018,1,4,0)
 ;;=4^L03.90
 ;;^UTILITY(U,$J,358.3,16018,2)
 ;;=^5009067
 ;;^UTILITY(U,$J,358.3,16019,0)
 ;;=L03.119^^99^979^20