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

IBDEI0B6.m

Go to the documentation of this file. 
  1. IBDEI0B6 ; ; 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,27409,1,4,0)
  1.  ;;=4^C50.912
  1.  ;;^UTILITY(U,$J,358.3,27409,2)
  1.  ;;=^5001196
  1.  ;;^UTILITY(U,$J,358.3,27410,0)
  1.  ;;=C24.9^^90^1142^7
  1.  ;;^UTILITY(U,$J,358.3,27410,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27410,1,3,0)
  1.  ;;=3^Malig Neop Biliary Tract,Unspec
  1.  ;;^UTILITY(U,$J,358.3,27410,1,4,0)
  1.  ;;=4^C24.9
  1.  ;;^UTILITY(U,$J,358.3,27410,2)
  1.  ;;=^5000942
  1.  ;;^UTILITY(U,$J,358.3,27411,0)
  1.  ;;=C90.00^^90^1142^25
  1.  ;;^UTILITY(U,$J,358.3,27411,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27411,1,3,0)
  1.  ;;=3^Multiple Myeloma,Not in Remission
  1.  ;;^UTILITY(U,$J,358.3,27411,1,4,0)
  1.  ;;=4^C90.00
  1.  ;;^UTILITY(U,$J,358.3,27411,2)
  1.  ;;=^5001752
  1.  ;;^UTILITY(U,$J,358.3,27412,0)
  1.  ;;=C85.89^^90^1142^29
  1.  ;;^UTILITY(U,$J,358.3,27412,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27412,1,3,0)
  1.  ;;=3^NHL NEC,Extranodal & Solid Organ
  1.  ;;^UTILITY(U,$J,358.3,27412,1,4,0)
  1.  ;;=4^C85.89
  1.  ;;^UTILITY(U,$J,358.3,27412,2)
  1.  ;;=^5001730
  1.  ;;^UTILITY(U,$J,358.3,27413,0)
  1.  ;;=C79.51^^90^1142^33
  1.  ;;^UTILITY(U,$J,358.3,27413,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27413,1,3,0)
  1.  ;;=3^Secondary Malig Neop Bone
  1.  ;;^UTILITY(U,$J,358.3,27413,1,4,0)
  1.  ;;=4^C79.51
  1.  ;;^UTILITY(U,$J,358.3,27413,2)
  1.  ;;=^5001350
  1.  ;;^UTILITY(U,$J,358.3,27414,0)
  1.  ;;=C79.52^^90^1142^32
  1.  ;;^UTILITY(U,$J,358.3,27414,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27414,1,3,0)
  1.  ;;=3^Secondary Malig Neop  Bone Marrow
  1.  ;;^UTILITY(U,$J,358.3,27414,1,4,0)
  1.  ;;=4^C79.52
  1.  ;;^UTILITY(U,$J,358.3,27414,2)
  1.  ;;=^5001351
  1.  ;;^UTILITY(U,$J,358.3,27415,0)
  1.  ;;=C92.00^^90^1142^26
  1.  ;;^UTILITY(U,$J,358.3,27415,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27415,1,3,0)
  1.  ;;=3^Myelobl Leuk,Acute,No Remiss
  1.  ;;^UTILITY(U,$J,358.3,27415,1,4,0)
  1.  ;;=4^C92.00
  1.  ;;^UTILITY(U,$J,358.3,27415,2)
  1.  ;;=^5001789
  1.  ;;^UTILITY(U,$J,358.3,27416,0)
  1.  ;;=C92.40^^90^1142^31
  1.  ;;^UTILITY(U,$J,358.3,27416,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27416,1,3,0)
  1.  ;;=3^Promyelocyt Leuk,Acute,No Remiss
  1.  ;;^UTILITY(U,$J,358.3,27416,1,4,0)
  1.  ;;=4^C92.40
  1.  ;;^UTILITY(U,$J,358.3,27416,2)
  1.  ;;=^5001801
  1.  ;;^UTILITY(U,$J,358.3,27417,0)
  1.  ;;=C92.50^^90^1142^28
  1.  ;;^UTILITY(U,$J,358.3,27417,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27417,1,3,0)
  1.  ;;=3^Myelomonocyt Leuk,Acute,No Remiss
  1.  ;;^UTILITY(U,$J,358.3,27417,1,4,0)
  1.  ;;=4^C92.50
  1.  ;;^UTILITY(U,$J,358.3,27417,2)
  1.  ;;=^5001804
  1.  ;;^UTILITY(U,$J,358.3,27418,0)
  1.  ;;=C78.7^^90^1142^37
  1.  ;;^UTILITY(U,$J,358.3,27418,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27418,1,3,0)
  1.  ;;=3^Secondary Malig Neop Liver & Intrahep BD
  1.  ;;^UTILITY(U,$J,358.3,27418,1,4,0)
  1.  ;;=4^C78.7
  1.  ;;^UTILITY(U,$J,358.3,27418,2)
  1.  ;;=^5001339
  1.  ;;^UTILITY(U,$J,358.3,27419,0)
  1.  ;;=C91.10^^90^1142^5
  1.  ;;^UTILITY(U,$J,358.3,27419,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27419,1,3,0)
  1.  ;;=3^Lymphocyt Leuk B-Cell,Chr,No Remiss
  1.  ;;^UTILITY(U,$J,358.3,27419,1,4,0)
  1.  ;;=4^C91.10
  1.  ;;^UTILITY(U,$J,358.3,27419,2)
  1.  ;;=^5001765
  1.  ;;^UTILITY(U,$J,358.3,27420,0)
  1.  ;;=D46.9^^90^1142^27
  1.  ;;^UTILITY(U,$J,358.3,27420,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27420,1,3,0)
  1.  ;;=3^Myelodysplastic Syndrome,Unspec
  1.  ;;^UTILITY(U,$J,358.3,27420,1,4,0)
  1.  ;;=4^D46.9
  1.  ;;^UTILITY(U,$J,358.3,27420,2)
  1.  ;;=^334031
  1.  ;;^UTILITY(U,$J,358.3,27421,0)
  1.  ;;=C79.31^^90^1142^34
  1.  ;;^UTILITY(U,$J,358.3,27421,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27421,1,3,0)
  1.  ;;=3^Secondary Malig Neop Brain
  1.  ;;^UTILITY(U,$J,358.3,27421,1,4,0)
  1.  ;;=4^C79.31
  1.  ;;^UTILITY(U,$J,358.3,27421,2)
  1.  ;;=^5001347
  1.  ;;^UTILITY(U,$J,358.3,27422,0)
  1.  ;;=C79.32^^90^1142^35
  1.  ;;^UTILITY(U,$J,358.3,27422,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27422,1,3,0)
  1.  ;;=3^Secondary Malig Neop Cerebral Meninges
  1.  ;;^UTILITY(U,$J,358.3,27422,1,4,0)
  1.  ;;=4^C79.32
  1.  ;;^UTILITY(U,$J,358.3,27422,2)
  1.  ;;=^5001348
  1.  ;;^UTILITY(U,$J,358.3,27423,0)
  1.  ;;=G89.3^^90^1142^30
  1.  ;;^UTILITY(U,$J,358.3,27423,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27423,1,3,0)
  1.  ;;=3^Neoplasm Related Pain
  1.  ;;^UTILITY(U,$J,358.3,27423,1,4,0)
  1.  ;;=4^G89.3
  1.  ;;^UTILITY(U,$J,358.3,27423,2)
  1.  ;;=^5004159
  1.  ;;^UTILITY(U,$J,358.3,27424,0)
  1.  ;;=C79.82^^90^1142^36
  1.  ;;^UTILITY(U,$J,358.3,27424,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27424,1,3,0)
  1.  ;;=3^Secondary Malig Neop Genital Organs
  1.  ;;^UTILITY(U,$J,358.3,27424,1,4,0)
  1.  ;;=4^C79.82
  1.  ;;^UTILITY(U,$J,358.3,27424,2)
  1.  ;;=^267339
  1.  ;;^UTILITY(U,$J,358.3,27425,0)
  1.  ;;=C49.A2^^90^1142^1
  1.  ;;^UTILITY(U,$J,358.3,27425,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27425,1,3,0)
  1.  ;;=3^GIST,Stomach
  1.  ;;^UTILITY(U,$J,358.3,27425,1,4,0)
  1.  ;;=4^C49.A2
  1.  ;;^UTILITY(U,$J,358.3,27425,2)
  1.  ;;=^8148063
  1.  ;;^UTILITY(U,$J,358.3,27426,0)
  1.  ;;=I50.9^^90^1143^22
  1.  ;;^UTILITY(U,$J,358.3,27426,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27426,1,3,0)
  1.  ;;=3^Heart Failure,Unsp
  1.  ;;^UTILITY(U,$J,358.3,27426,1,4,0)
  1.  ;;=4^I50.9
  1.  ;;^UTILITY(U,$J,358.3,27426,2)
  1.  ;;=^5007251
  1.  ;;^UTILITY(U,$J,358.3,27427,0)
  1.  ;;=I73.9^^90^1143^28
  1.  ;;^UTILITY(U,$J,358.3,27427,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27427,1,3,0)
  1.  ;;=3^Peripheral Vascular Disease,Unspec
  1.  ;;^UTILITY(U,$J,358.3,27427,1,4,0)
  1.  ;;=4^I73.9
  1.  ;;^UTILITY(U,$J,358.3,27427,2)
  1.  ;;=^184182
  1.  ;;^UTILITY(U,$J,358.3,27428,0)
  1.  ;;=I35.0^^90^1143^26
  1.  ;;^UTILITY(U,$J,358.3,27428,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27428,1,3,0)
  1.  ;;=3^Nonrheumatic Aortic Vlve Stenosis
  1.  ;;^UTILITY(U,$J,358.3,27428,1,4,0)
  1.  ;;=4^I35.0
  1.  ;;^UTILITY(U,$J,358.3,27428,2)
  1.  ;;=^5007174
  1.  ;;^UTILITY(U,$J,358.3,27429,0)
  1.  ;;=I35.1^^90^1143^25
  1.  ;;^UTILITY(U,$J,358.3,27429,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27429,1,3,0)
  1.  ;;=3^Nonrheumatic Aortic Vlve Insuff
  1.  ;;^UTILITY(U,$J,358.3,27429,1,4,0)
  1.  ;;=4^I35.1
  1.  ;;^UTILITY(U,$J,358.3,27429,2)
  1.  ;;=^5007175
  1.  ;;^UTILITY(U,$J,358.3,27430,0)
  1.  ;;=I35.2^^90^1143^27
  1.  ;;^UTILITY(U,$J,358.3,27430,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27430,1,3,0)
  1.  ;;=3^Nonrheumatic Aortic Vlve Stenosis w/ Insuff
  1.  ;;^UTILITY(U,$J,358.3,27430,1,4,0)
  1.  ;;=4^I35.2
  1.  ;;^UTILITY(U,$J,358.3,27430,2)
  1.  ;;=^5007176
  1.  ;;^UTILITY(U,$J,358.3,27431,0)
  1.  ;;=I35.9^^90^1143^24
  1.  ;;^UTILITY(U,$J,358.3,27431,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27431,1,3,0)
  1.  ;;=3^Nonrheumatic Aortic Vlve D/O,Unsp
  1.  ;;^UTILITY(U,$J,358.3,27431,1,4,0)
  1.  ;;=4^I35.9
  1.  ;;^UTILITY(U,$J,358.3,27431,2)
  1.  ;;=^5007178
  1.  ;;^UTILITY(U,$J,358.3,27432,0)
  1.  ;;=I42.7^^90^1143^9
  1.  ;;^UTILITY(U,$J,358.3,27432,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27432,1,3,0)
  1.  ;;=3^Cardiomyopathy d/t Drug/Extrn Agent
  1.  ;;^UTILITY(U,$J,358.3,27432,1,4,0)
  1.  ;;=4^I42.7
  1.  ;;^UTILITY(U,$J,358.3,27432,2)
  1.  ;;=^5007198
  1.  ;;^UTILITY(U,$J,358.3,27433,0)
  1.  ;;=I21.3^^90^1143^29
  1.  ;;^UTILITY(U,$J,358.3,27433,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27433,1,3,0)
  1.  ;;=3^STEMI,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,27433,1,4,0)
  1.  ;;=4^I21.3
  1.  ;;^UTILITY(U,$J,358.3,27433,2)
  1.  ;;=^5007087
  1.  ;;^UTILITY(U,$J,358.3,27434,0)
  1.  ;;=I25.5^^90^1143^23
  1.  ;;^UTILITY(U,$J,358.3,27434,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27434,1,3,0)
  1.  ;;=3^Ischemic Cardiomyopathy
  1.  ;;^UTILITY(U,$J,358.3,27434,1,4,0)
  1.  ;;=4^I25.5
  1.  ;;^UTILITY(U,$J,358.3,27434,2)
  1.  ;;=^5007115
  1.  ;;^UTILITY(U,$J,358.3,27435,0)
  1.  ;;=I25.9^^90^1143^12
  1.  ;;^UTILITY(U,$J,358.3,27435,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27435,1,3,0)
  1.  ;;=3^Chronic Ischemic Heart Disease,Unsp
  1.  ;;^UTILITY(U,$J,358.3,27435,1,4,0)
  1.  ;;=4^I25.9
  1.  ;;^UTILITY(U,$J,358.3,27435,2)
  1.  ;;=^5007144
  1.  ;;^UTILITY(U,$J,358.3,27436,0)
  1.  ;;=I25.10^^90^1143^2
  1.  ;;^UTILITY(U,$J,358.3,27436,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27436,1,3,0)
  1.  ;;=3^Athscl Hrt Dis Ntv Cor Art w/o Ang Pctrs
  1.  ;;^UTILITY(U,$J,358.3,27436,1,4,0)
  1.  ;;=4^I25.10
  1.  ;;^UTILITY(U,$J,358.3,27436,2)
  1.  ;;=^5007107
  1.  ;;^UTILITY(U,$J,358.3,27437,0)
  1.  ;;=D64.9^^90^1143^1
  1.  ;;^UTILITY(U,$J,358.3,27437,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27437,1,3,0)
  1.  ;;=3^Anemia,Unspec
  1.  ;;^UTILITY(U,$J,358.3,27437,1,4,0)
  1.  ;;=4^D64.9
  1.  ;;^UTILITY(U,$J,358.3,27437,2)
  1.  ;;=^5002351
  1.  ;;^UTILITY(U,$J,358.3,27438,0)
  1.  ;;=I42.9^^90^1143^10
  1.  ;;^UTILITY(U,$J,358.3,27438,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27438,1,3,0)
  1.  ;;=3^Cardiomyopathy,Unsp
  1.  ;;^UTILITY(U,$J,358.3,27438,1,4,0)
  1.  ;;=4^I42.9
  1.  ;;^UTILITY(U,$J,358.3,27438,2)
  1.  ;;=^5007200
  1.  ;;^UTILITY(U,$J,358.3,27439,0)
  1.  ;;=I67.9^^90^1143^11
  1.  ;;^UTILITY(U,$J,358.3,27439,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27439,1,3,0)
  1.  ;;=3^Cerebrovascular Disease,Unsp
  1.  ;;^UTILITY(U,$J,358.3,27439,1,4,0)
  1.  ;;=4^I67.9
  1.  ;;^UTILITY(U,$J,358.3,27439,2)
  1.  ;;=^5007389
  1.  ;;^UTILITY(U,$J,358.3,27440,0)
  1.  ;;=I50.89^^90^1143^16
  1.  ;;^UTILITY(U,$J,358.3,27440,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27440,1,3,0)
  1.  ;;=3^Heart Failure,Other
  1.  ;;^UTILITY(U,$J,358.3,27440,1,4,0)
  1.  ;;=4^I50.89
  1.  ;;^UTILITY(U,$J,358.3,27440,2)
  1.  ;;=^5151392
  1.  ;;^UTILITY(U,$J,358.3,27441,0)
  1.  ;;=I50.810^^90^1143^21
  1.  ;;^UTILITY(U,$J,358.3,27441,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27441,1,3,0)
  1.  ;;=3^Heart Failure,Right,Unspec
  1.  ;;^UTILITY(U,$J,358.3,27441,1,4,0)
  1.  ;;=4^I50.810
  1.  ;;^UTILITY(U,$J,358.3,27441,2)
  1.  ;;=^5151384
  1.  ;;^UTILITY(U,$J,358.3,27442,0)
  1.  ;;=I50.811^^90^1143^18
  1.  ;;^UTILITY(U,$J,358.3,27442,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27442,1,3,0)
  1.  ;;=3^Heart Failure,Right,Acute
  1.  ;;^UTILITY(U,$J,358.3,27442,1,4,0)
  1.  ;;=4^I50.811
  1.  ;;^UTILITY(U,$J,358.3,27442,2)
  1.  ;;=^5151385
  1.  ;;^UTILITY(U,$J,358.3,27443,0)
  1.  ;;=I50.812^^90^1143^20
  1.  ;;^UTILITY(U,$J,358.3,27443,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27443,1,3,0)
  1.  ;;=3^Heart Failure,Right,Chronic
  1.  ;;^UTILITY(U,$J,358.3,27443,1,4,0)
  1.  ;;=4^I50.812
  1.  ;;^UTILITY(U,$J,358.3,27443,2)
  1.  ;;=^5151386
  1.  ;;^UTILITY(U,$J,358.3,27444,0)
  1.  ;;=I50.813^^90^1143^19
  1.  ;;^UTILITY(U,$J,358.3,27444,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27444,1,3,0)
  1.  ;;=3^Heart Failure,Right,Acute on Chronic
  1.  ;;^UTILITY(U,$J,358.3,27444,1,4,0)
  1.  ;;=4^I50.813
  1.  ;;^UTILITY(U,$J,358.3,27444,2)
  1.  ;;=^5151387
  1.  ;;^UTILITY(U,$J,358.3,27445,0)
  1.  ;;=I50.814^^90^1143^17
  1.  ;;^UTILITY(U,$J,358.3,27445,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27445,1,3,0)
  1.  ;;=3^Heart Failure,Right d/t Left Heart Failure
  1.  ;;^UTILITY(U,$J,358.3,27445,1,4,0)
  1.  ;;=4^I50.814
  1.  ;;^UTILITY(U,$J,358.3,27445,2)
  1.  ;;=^5151388
  1.  ;;^UTILITY(U,$J,358.3,27446,0)
  1.  ;;=I50.82^^90^1143^13
  1.  ;;^UTILITY(U,$J,358.3,27446,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27446,1,3,0)
  1.  ;;=3^Heart Failure,Biventricular
  1.  ;;^UTILITY(U,$J,358.3,27446,1,4,0)
  1.  ;;=4^I50.82
  1.  ;;^UTILITY(U,$J,358.3,27446,2)
  1.  ;;=^5151389
  1.  ;;^UTILITY(U,$J,358.3,27447,0)
  1.  ;;=I50.83^^90^1143^15
  1.  ;;^UTILITY(U,$J,358.3,27447,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27447,1,3,0)
  1.  ;;=3^Heart Failure,High Output
  1.  ;;^UTILITY(U,$J,358.3,27447,1,4,0)
  1.  ;;=4^I50.83
  1.  ;;^UTILITY(U,$J,358.3,27447,2)
  1.  ;;=^5151390
  1.  ;;^UTILITY(U,$J,358.3,27448,0)
  1.  ;;=I50.84^^90^1143^14
  1.  ;;^UTILITY(U,$J,358.3,27448,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27448,1,3,0)
  1.  ;;=3^Heart Failure,End Stage
  1.  ;;^UTILITY(U,$J,358.3,27448,1,4,0)
  1.  ;;=4^I50.84
  1.  ;;^UTILITY(U,$J,358.3,27448,2)
  1.  ;;=^5151391
  1.  ;;^UTILITY(U,$J,358.3,27449,0)
  1.  ;;=I50.22^^90^1143^7
  1.  ;;^UTILITY(U,$J,358.3,27449,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27449,1,3,0)
  1.  ;;=3^CHF,Systolic,Chronic
  1.  ;;^UTILITY(U,$J,358.3,27449,1,4,0)
  1.  ;;=4^I50.22
  1.  ;;^UTILITY(U,$J,358.3,27449,2)
  1.  ;;=^5007241
  1.  ;;^UTILITY(U,$J,358.3,27450,0)
  1.  ;;=I50.23^^90^1143^8
  1.  ;;^UTILITY(U,$J,358.3,27450,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27450,1,3,0)
  1.  ;;=3^CHF,Systolic,Exacerbated
  1.  ;;^UTILITY(U,$J,358.3,27450,1,4,0)
  1.  ;;=4^I50.23
  1.  ;;^UTILITY(U,$J,358.3,27450,2)
  1.  ;;=^5007242
  1.  ;;^UTILITY(U,$J,358.3,27451,0)
  1.  ;;=I50.32^^90^1143^5
  1.  ;;^UTILITY(U,$J,358.3,27451,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27451,1,3,0)
  1.  ;;=3^CHF,Diastolic,Chronic
  1.  ;;^UTILITY(U,$J,358.3,27451,1,4,0)
  1.  ;;=4^I50.32
  1.  ;;^UTILITY(U,$J,358.3,27451,2)
  1.  ;;=^5007245
  1.  ;;^UTILITY(U,$J,358.3,27452,0)
  1.  ;;=I50.33^^90^1143^6
  1.  ;;^UTILITY(U,$J,358.3,27452,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27452,1,3,0)
  1.  ;;=3^CHF,Diastolic,Exacerbated
  1.  ;;^UTILITY(U,$J,358.3,27452,1,4,0)
  1.  ;;=4^I50.33
  1.  ;;^UTILITY(U,$J,358.3,27452,2)
  1.  ;;=^5007246
  1.  ;;^UTILITY(U,$J,358.3,27453,0)
  1.  ;;=I50.42^^90^1143^3
  1.  ;;^UTILITY(U,$J,358.3,27453,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27453,1,3,0)
  1.  ;;=3^CHF,Combined,Chronic
  1.  ;;^UTILITY(U,$J,358.3,27453,1,4,0)
  1.  ;;=4^I50.42
  1.  ;;^UTILITY(U,$J,358.3,27453,2)
  1.  ;;=^5007249
  1.  ;;^UTILITY(U,$J,358.3,27454,0)
  1.  ;;=I50.43^^90^1143^4
  1.  ;;^UTILITY(U,$J,358.3,27454,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27454,1,3,0)
  1.  ;;=3^CHF,Combined,Exacerbated
  1.  ;;^UTILITY(U,$J,358.3,27454,1,4,0)
  1.  ;;=4^I50.43
  1.  ;;^UTILITY(U,$J,358.3,27454,2)
  1.  ;;=^5007250
  1.  ;;^UTILITY(U,$J,358.3,27455,0)
  1.  ;;=F04.^^90^1144^5
  1.  ;;^UTILITY(U,$J,358.3,27455,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27455,1,3,0)
  1.  ;;=3^Amnestic D/O d/t Physiological Cond
  1.  ;;^UTILITY(U,$J,358.3,27455,1,4,0)
  1.  ;;=4^F04.
  1.  ;;^UTILITY(U,$J,358.3,27455,2)
  1.  ;;=^5003051
  1.  ;;^UTILITY(U,$J,358.3,27456,0)
  1.  ;;=F05.^^90^1144^7
  1.  ;;^UTILITY(U,$J,358.3,27456,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27456,1,3,0)
  1.  ;;=3^Delirium d/t Phsyiological Condition
  1.  ;;^UTILITY(U,$J,358.3,27456,1,4,0)
  1.  ;;=4^F05.
  1.  ;;^UTILITY(U,$J,358.3,27456,2)
  1.  ;;=^5003052
  1.  ;;^UTILITY(U,$J,358.3,27457,0)
  1.  ;;=F06.8^^90^1144^11
  1.  ;;^UTILITY(U,$J,358.3,27457,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27457,1,3,0)
  1.  ;;=3^Mental Disorders d/t Physiological Cond
  1.  ;;^UTILITY(U,$J,358.3,27457,1,4,0)
  1.  ;;=4^F06.8
  1.  ;;^UTILITY(U,$J,358.3,27457,2)
  1.  ;;=^5003062
  1.  ;;^UTILITY(U,$J,358.3,27458,0)
  1.  ;;=F32.9^^90^1144^9
  1.  ;;^UTILITY(U,$J,358.3,27458,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27458,1,3,0)
  1.  ;;=3^MDD,Single Episode,Unspec
  1.  ;;^UTILITY(U,$J,358.3,27458,1,4,0)
  1.  ;;=4^F32.9
  1.  ;;^UTILITY(U,$J,358.3,27458,2)
  1.  ;;=^5003528
  1.  ;;^UTILITY(U,$J,358.3,27459,0)
  1.  ;;=R41.82^^90^1144^4
  1.  ;;^UTILITY(U,$J,358.3,27459,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27459,1,3,0)
  1.  ;;=3^Altered Mental Status,Unspec
  1.  ;;^UTILITY(U,$J,358.3,27459,1,4,0)
  1.  ;;=4^R41.82
  1.  ;;^UTILITY(U,$J,358.3,27459,2)
  1.  ;;=^5019441
  1.  ;;^UTILITY(U,$J,358.3,27460,0)
  1.  ;;=R44.3^^90^1144^8
  1.  ;;^UTILITY(U,$J,358.3,27460,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27460,1,3,0)
  1.  ;;=3^Hallucinations,Unspec
  1.  ;;^UTILITY(U,$J,358.3,27460,1,4,0)
  1.  ;;=4^R44.3
  1.  ;;^UTILITY(U,$J,358.3,27460,2)
  1.  ;;=^5019458
  1.  ;;^UTILITY(U,$J,358.3,27461,0)
  1.  ;;=F41.1^^90^1144^6
  1.  ;;^UTILITY(U,$J,358.3,27461,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27461,1,3,0)
  1.  ;;=3^Anxiety Disorder,Generalized
  1.  ;;^UTILITY(U,$J,358.3,27461,1,4,0)
  1.  ;;=4^F41.1
  1.  ;;^UTILITY(U,$J,358.3,27461,2)
  1.  ;;=^50059
  1.  ;;^UTILITY(U,$J,358.3,27462,0)
  1.  ;;=F43.21^^90^1144^2
  1.  ;;^UTILITY(U,$J,358.3,27462,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27462,1,3,0)
  1.  ;;=3^Adjustment d/o w/ Depressed Mood
  1.  ;;^UTILITY(U,$J,358.3,27462,1,4,0)
  1.  ;;=4^F43.21
  1.  ;;^UTILITY(U,$J,358.3,27462,2)
  1.  ;;=^331948
  1.  ;;^UTILITY(U,$J,358.3,27463,0)
  1.  ;;=F43.22^^90^1144^1
  1.  ;;^UTILITY(U,$J,358.3,27463,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27463,1,3,0)
  1.  ;;=3^Adjustment d/o w/ Anxiety
  1.  ;;^UTILITY(U,$J,358.3,27463,1,4,0)
  1.  ;;=4^F43.22
  1.  ;;^UTILITY(U,$J,358.3,27463,2)
  1.  ;;=^331949
  1.  ;;^UTILITY(U,$J,358.3,27464,0)
  1.  ;;=F43.23^^90^1144^3
  1.  ;;^UTILITY(U,$J,358.3,27464,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27464,1,3,0)
  1.  ;;=3^Adjustment d/o w/ Mixed Anxiety & Depressed Mood
  1.  ;;^UTILITY(U,$J,358.3,27464,1,4,0)
  1.  ;;=4^F43.23
  1.  ;;^UTILITY(U,$J,358.3,27464,2)
  1.  ;;=^331950
  1.  ;;^UTILITY(U,$J,358.3,27465,0)
  1.  ;;=F33.1^^90^1144^10
  1.  ;;^UTILITY(U,$J,358.3,27465,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27465,1,3,0)
  1.  ;;=3^MDD,Recurrent,Moderate
  1.  ;;^UTILITY(U,$J,358.3,27465,1,4,0)
  1.  ;;=4^F33.1
  1.  ;;^UTILITY(U,$J,358.3,27465,2)
  1.  ;;=^5003530
  1.  ;;^UTILITY(U,$J,358.3,27466,0)
  1.  ;;=G20.^^90^1145^9
  1.  ;;^UTILITY(U,$J,358.3,27466,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27466,1,3,0)
  1.  ;;=3^Parkinson's Disease
  1.  ;;^UTILITY(U,$J,358.3,27466,1,4,0)
  1.  ;;=4^G20.
  1.  ;;^UTILITY(U,$J,358.3,27466,2)
  1.  ;;=^5003770
  1.  ;;^UTILITY(U,$J,358.3,27467,0)
  1.  ;;=G30.9^^90^1145^3
  1.  ;;^UTILITY(U,$J,358.3,27467,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27467,1,3,0)
  1.  ;;=3^Alzheimer's Disease,Unspec
  1.  ;;^UTILITY(U,$J,358.3,27467,1,4,0)
  1.  ;;=4^G30.9
  1.  ;;^UTILITY(U,$J,358.3,27467,2)
  1.  ;;=^5003808
  1.  ;;^UTILITY(U,$J,358.3,27468,0)
  1.  ;;=G35.^^90^1145^8
  1.  ;;^UTILITY(U,$J,358.3,27468,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27468,1,3,0)
  1.  ;;=3^Multiple Sclerosis
  1.  ;;^UTILITY(U,$J,358.3,27468,1,4,0)
  1.  ;;=4^G35.
  1.  ;;^UTILITY(U,$J,358.3,27468,2)
  1.  ;;=^79761
  1.  ;;^UTILITY(U,$J,358.3,27469,0)
  1.  ;;=G96.9^^90^1145^6
  1.  ;;^UTILITY(U,$J,358.3,27469,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27469,1,3,0)
  1.  ;;=3^Central Nervous System Disorder,Unspec
  1.  ;;^UTILITY(U,$J,358.3,27469,1,4,0)
  1.  ;;=4^G96.9
  1.  ;;^UTILITY(U,$J,358.3,27469,2)
  1.  ;;=^5004200
  1.  ;;^UTILITY(U,$J,358.3,27470,0)
  1.  ;;=G93.1^^90^1145^5
  1.  ;;^UTILITY(U,$J,358.3,27470,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27470,1,3,0)
  1.  ;;=3^Anoxic Brain Damage NEC
  1.  ;;^UTILITY(U,$J,358.3,27470,1,4,0)
  1.  ;;=4^G93.1
  1.  ;;^UTILITY(U,$J,358.3,27470,2)
  1.  ;;=^5004179
  1.  ;;^UTILITY(U,$J,358.3,27471,0)
  1.  ;;=R53.81^^90^1145^7
  1.  ;;^UTILITY(U,$J,358.3,27471,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27471,1,3,0)
  1.  ;;=3^Malaise
  1.  ;;^UTILITY(U,$J,358.3,27471,1,4,0)
  1.  ;;=4^R53.81
  1.  ;;^UTILITY(U,$J,358.3,27471,2)
  1.  ;;=^5019518
  1.  ;;^UTILITY(U,$J,358.3,27472,0)
  1.  ;;=G12.21^^90^1145^4
  1.  ;;^UTILITY(U,$J,358.3,27472,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27472,1,3,0)
  1.  ;;=3^Amyotrophic Lateral Sclerosis
  1.  ;;^UTILITY(U,$J,358.3,27472,1,4,0)
  1.  ;;=4^G12.21
  1.  ;;^UTILITY(U,$J,358.3,27472,2)
  1.  ;;=^6639
  1.  ;;^UTILITY(U,$J,358.3,27473,0)
  1.  ;;=G62.0^^90^1145^10
  1.  ;;^UTILITY(U,$J,358.3,27473,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27473,1,3,0)
  1.  ;;=3^Polyneuropathy,Drug Induced
  1.  ;;^UTILITY(U,$J,358.3,27473,1,4,0)
  1.  ;;=4^G62.0
  1.  ;;^UTILITY(U,$J,358.3,27473,2)
  1.  ;;=^5004075
  1.  ;;^UTILITY(U,$J,358.3,27474,0)
  1.  ;;=G30.0^^90^1145^1
  1.  ;;^UTILITY(U,$J,358.3,27474,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27474,1,3,0)
  1.  ;;=3^Alzheimer's Disease w/ Early Onset
  1.  ;;^UTILITY(U,$J,358.3,27474,1,4,0)
  1.  ;;=4^G30.0
  1.  ;;^UTILITY(U,$J,358.3,27474,2)
  1.  ;;=^5003805
  1.  ;;^UTILITY(U,$J,358.3,27475,0)
  1.  ;;=G30.1^^90^1145^2
  1.  ;;^UTILITY(U,$J,358.3,27475,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27475,1,3,0)
  1.  ;;=3^Alzheimer's Disease w/ Late Onset
  1.  ;;^UTILITY(U,$J,358.3,27475,1,4,0)
  1.  ;;=4^G30.1
  1.  ;;^UTILITY(U,$J,358.3,27475,2)
  1.  ;;=^5003806
  1.  ;;^UTILITY(U,$J,358.3,27476,0)
  1.  ;;=K92.2^^90^1146^26
  1.  ;;^UTILITY(U,$J,358.3,27476,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27476,1,3,0)
  1.  ;;=3^Gastrointestinal Hemorrhage,Unspec
  1.  ;;^UTILITY(U,$J,358.3,27476,1,4,0)
  1.  ;;=4^K92.2
  1.  ;;^UTILITY(U,$J,358.3,27476,2)
  1.  ;;=^5008915
  1.  ;;^UTILITY(U,$J,358.3,27477,0)
  1.  ;;=R10.9^^90^1146^2
  1.  ;;^UTILITY(U,$J,358.3,27477,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27477,1,3,0)
  1.  ;;=3^Abdominal Pain,Unspec
  1.  ;;^UTILITY(U,$J,358.3,27477,1,4,0)
  1.  ;;=4^R10.9
  1.  ;;^UTILITY(U,$J,358.3,27477,2)
  1.  ;;=^5019230
  1.  ;;^UTILITY(U,$J,358.3,27478,0)
  1.  ;;=R13.10^^90^1146^22
  1.  ;;^UTILITY(U,$J,358.3,27478,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,27478,1,3,0)
  1.  ;;=3^Dysphagia,Unspec
  1.  ;;^UTILITY(U,$J,358.3,27478,1,4,0)
  1.  ;;=4^R13.10
  1.  ;;^UTILITY(U,$J,358.3,27478,2)
  1.  ;;=^335307
  1.  ;;^UTILITY(U,$J,358.3,27479,0)
  1.  ;;=R63.4^^90^1146^3