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

IBDEI03Q.m

Go to the documentation of this file. 
  1. IBDEI03Q ; ; 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,8942,1,4,0)
  1.  ;;=4^D63.0
  1.  ;;^UTILITY(U,$J,358.3,8942,2)
  1.  ;;=^321978
  1.  ;;^UTILITY(U,$J,358.3,8943,0)
  1.  ;;=D63.8^^45^431^22
  1.  ;;^UTILITY(U,$J,358.3,8943,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8943,1,3,0)
  1.  ;;=3^Anemia in Chronic Diseases Classified Elsewhere
  1.  ;;^UTILITY(U,$J,358.3,8943,1,4,0)
  1.  ;;=4^D63.8
  1.  ;;^UTILITY(U,$J,358.3,8943,2)
  1.  ;;=^5002343
  1.  ;;^UTILITY(U,$J,358.3,8944,0)
  1.  ;;=C22.3^^45^431^27
  1.  ;;^UTILITY(U,$J,358.3,8944,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8944,1,3,0)
  1.  ;;=3^Angiosarcoma of Liver
  1.  ;;^UTILITY(U,$J,358.3,8944,1,4,0)
  1.  ;;=4^C22.3
  1.  ;;^UTILITY(U,$J,358.3,8944,2)
  1.  ;;=^5000936
  1.  ;;^UTILITY(U,$J,358.3,8945,0)
  1.  ;;=D61.9^^45^431^28
  1.  ;;^UTILITY(U,$J,358.3,8945,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8945,1,3,0)
  1.  ;;=3^Aplastic Anemia,Unspec
  1.  ;;^UTILITY(U,$J,358.3,8945,1,4,0)
  1.  ;;=4^D61.9
  1.  ;;^UTILITY(U,$J,358.3,8945,2)
  1.  ;;=^5002342
  1.  ;;^UTILITY(U,$J,358.3,8946,0)
  1.  ;;=D56.1^^45^431^34
  1.  ;;^UTILITY(U,$J,358.3,8946,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8946,1,3,0)
  1.  ;;=3^Beta Thalassemia
  1.  ;;^UTILITY(U,$J,358.3,8946,1,4,0)
  1.  ;;=4^D56.1
  1.  ;;^UTILITY(U,$J,358.3,8946,2)
  1.  ;;=^340495
  1.  ;;^UTILITY(U,$J,358.3,8947,0)
  1.  ;;=C83.79^^45^431^36
  1.  ;;^UTILITY(U,$J,358.3,8947,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8947,1,3,0)
  1.  ;;=3^Burkitt Lymphoma,Extranodal/Solid Organ Sites
  1.  ;;^UTILITY(U,$J,358.3,8947,1,4,0)
  1.  ;;=4^C83.79
  1.  ;;^UTILITY(U,$J,358.3,8947,2)
  1.  ;;=^5001600
  1.  ;;^UTILITY(U,$J,358.3,8948,0)
  1.  ;;=C83.70^^45^431^37
  1.  ;;^UTILITY(U,$J,358.3,8948,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8948,1,3,0)
  1.  ;;=3^Burkitt Lymphoma,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,8948,1,4,0)
  1.  ;;=4^C83.70
  1.  ;;^UTILITY(U,$J,358.3,8948,2)
  1.  ;;=^5001591
  1.  ;;^UTILITY(U,$J,358.3,8949,0)
  1.  ;;=D09.0^^45^431^44
  1.  ;;^UTILITY(U,$J,358.3,8949,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8949,1,3,0)
  1.  ;;=3^Carcinoma in Situ of Bladder
  1.  ;;^UTILITY(U,$J,358.3,8949,1,4,0)
  1.  ;;=4^D09.0
  1.  ;;^UTILITY(U,$J,358.3,8949,2)
  1.  ;;=^267742
  1.  ;;^UTILITY(U,$J,358.3,8950,0)
  1.  ;;=D06.9^^45^431^45
  1.  ;;^UTILITY(U,$J,358.3,8950,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8950,1,3,0)
  1.  ;;=3^Carcinoma in Situ of Cervix
  1.  ;;^UTILITY(U,$J,358.3,8950,1,4,0)
  1.  ;;=4^D06.9
  1.  ;;^UTILITY(U,$J,358.3,8950,2)
  1.  ;;=^5001941
  1.  ;;^UTILITY(U,$J,358.3,8951,0)
  1.  ;;=D06.0^^45^431^47
  1.  ;;^UTILITY(U,$J,358.3,8951,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8951,1,3,0)
  1.  ;;=3^Carcinoma in Situ of Endocervix
  1.  ;;^UTILITY(U,$J,358.3,8951,1,4,0)
  1.  ;;=4^D06.0
  1.  ;;^UTILITY(U,$J,358.3,8951,2)
  1.  ;;=^5001938
  1.  ;;^UTILITY(U,$J,358.3,8952,0)
  1.  ;;=D06.1^^45^431^48
  1.  ;;^UTILITY(U,$J,358.3,8952,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8952,1,3,0)
  1.  ;;=3^Carcinoma in Situ of Exocervix
  1.  ;;^UTILITY(U,$J,358.3,8952,1,4,0)
  1.  ;;=4^D06.1
  1.  ;;^UTILITY(U,$J,358.3,8952,2)
  1.  ;;=^5001939
  1.  ;;^UTILITY(U,$J,358.3,8953,0)
  1.  ;;=D06.7^^45^431^46
  1.  ;;^UTILITY(U,$J,358.3,8953,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8953,1,3,0)
  1.  ;;=3^Carcinoma in Situ of Cervix,Other Parts
  1.  ;;^UTILITY(U,$J,358.3,8953,1,4,0)
  1.  ;;=4^D06.7
  1.  ;;^UTILITY(U,$J,358.3,8953,2)
  1.  ;;=^5001940
  1.  ;;^UTILITY(U,$J,358.3,8954,0)
  1.  ;;=D04.9^^45^431^49
  1.  ;;^UTILITY(U,$J,358.3,8954,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8954,1,3,0)
  1.  ;;=3^Carcinoma in Situ of Skin
  1.  ;;^UTILITY(U,$J,358.3,8954,1,4,0)
  1.  ;;=4^D04.9
  1.  ;;^UTILITY(U,$J,358.3,8954,2)
  1.  ;;=^5001925
  1.  ;;^UTILITY(U,$J,358.3,8955,0)
  1.  ;;=C91.11^^45^431^52
  1.  ;;^UTILITY(U,$J,358.3,8955,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8955,1,3,0)
  1.  ;;=3^Chronic Lymphocytic Leukemia of B-Cell Type,In Remission
  1.  ;;^UTILITY(U,$J,358.3,8955,1,4,0)
  1.  ;;=4^C91.11
  1.  ;;^UTILITY(U,$J,358.3,8955,2)
  1.  ;;=^5001766
  1.  ;;^UTILITY(U,$J,358.3,8956,0)
  1.  ;;=C91.10^^45^431^53
  1.  ;;^UTILITY(U,$J,358.3,8956,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8956,1,3,0)
  1.  ;;=3^Chronic Lymphocytic Leukemia of B-Cell Type,Not in Remission
  1.  ;;^UTILITY(U,$J,358.3,8956,1,4,0)
  1.  ;;=4^C91.10
  1.  ;;^UTILITY(U,$J,358.3,8956,2)
  1.  ;;=^5001765
  1.  ;;^UTILITY(U,$J,358.3,8957,0)
  1.  ;;=C92.11^^45^431^54
  1.  ;;^UTILITY(U,$J,358.3,8957,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8957,1,3,0)
  1.  ;;=3^Chronic Myeloid Leukemia,BCR/ABL-Positive,In Remission
  1.  ;;^UTILITY(U,$J,358.3,8957,1,4,0)
  1.  ;;=4^C92.11
  1.  ;;^UTILITY(U,$J,358.3,8957,2)
  1.  ;;=^5001793
  1.  ;;^UTILITY(U,$J,358.3,8958,0)
  1.  ;;=C92.10^^45^431^55
  1.  ;;^UTILITY(U,$J,358.3,8958,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8958,1,3,0)
  1.  ;;=3^Chronic Myeloid Leukemia,BCR/ABL-Positive,Not in Remission
  1.  ;;^UTILITY(U,$J,358.3,8958,1,4,0)
  1.  ;;=4^C92.10
  1.  ;;^UTILITY(U,$J,358.3,8958,2)
  1.  ;;=^5001792
  1.  ;;^UTILITY(U,$J,358.3,8959,0)
  1.  ;;=D47.1^^45^431^56
  1.  ;;^UTILITY(U,$J,358.3,8959,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8959,1,3,0)
  1.  ;;=3^Chronic Myeloproliferative Disease
  1.  ;;^UTILITY(U,$J,358.3,8959,1,4,0)
  1.  ;;=4^D47.1
  1.  ;;^UTILITY(U,$J,358.3,8959,2)
  1.  ;;=^5002256
  1.  ;;^UTILITY(U,$J,358.3,8960,0)
  1.  ;;=C82.69^^45^431^57
  1.  ;;^UTILITY(U,$J,358.3,8960,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8960,1,3,0)
  1.  ;;=3^Cutaneous Follicle Center Lymphoma,Extranodal/Solid Organ Sites
  1.  ;;^UTILITY(U,$J,358.3,8960,1,4,0)
  1.  ;;=4^C82.69
  1.  ;;^UTILITY(U,$J,358.3,8960,2)
  1.  ;;=^5001530
  1.  ;;^UTILITY(U,$J,358.3,8961,0)
  1.  ;;=C82.60^^45^431^58
  1.  ;;^UTILITY(U,$J,358.3,8961,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8961,1,3,0)
  1.  ;;=3^Cutaneous Follicle Center Lymphoma,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,8961,1,4,0)
  1.  ;;=4^C82.60
  1.  ;;^UTILITY(U,$J,358.3,8961,2)
  1.  ;;=^5001521
  1.  ;;^UTILITY(U,$J,358.3,8962,0)
  1.  ;;=D56.2^^45^431^59
  1.  ;;^UTILITY(U,$J,358.3,8962,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8962,1,3,0)
  1.  ;;=3^Delta-Beta Thalassemia
  1.  ;;^UTILITY(U,$J,358.3,8962,1,4,0)
  1.  ;;=4^D56.2
  1.  ;;^UTILITY(U,$J,358.3,8962,2)
  1.  ;;=^340496
  1.  ;;^UTILITY(U,$J,358.3,8963,0)
  1.  ;;=D75.9^^45^431^60
  1.  ;;^UTILITY(U,$J,358.3,8963,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8963,1,3,0)
  1.  ;;=3^Disease of Blood/Blood-Forming Organs,Unspec
  1.  ;;^UTILITY(U,$J,358.3,8963,1,4,0)
  1.  ;;=4^D75.9
  1.  ;;^UTILITY(U,$J,358.3,8963,2)
  1.  ;;=^5002393
  1.  ;;^UTILITY(U,$J,358.3,8964,0)
  1.  ;;=D59.0^^45^431^63
  1.  ;;^UTILITY(U,$J,358.3,8964,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8964,1,3,0)
  1.  ;;=3^Drug-Induced Autoimmune Hemolytic Anemia
  1.  ;;^UTILITY(U,$J,358.3,8964,1,4,0)
  1.  ;;=4^D59.0
  1.  ;;^UTILITY(U,$J,358.3,8964,2)
  1.  ;;=^5002323
  1.  ;;^UTILITY(U,$J,358.3,8965,0)
  1.  ;;=D59.2^^45^431^64
  1.  ;;^UTILITY(U,$J,358.3,8965,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8965,1,3,0)
  1.  ;;=3^Drug-Induced Nonautoimmune Hemolytic Anemia
  1.  ;;^UTILITY(U,$J,358.3,8965,1,4,0)
  1.  ;;=4^D59.2
  1.  ;;^UTILITY(U,$J,358.3,8965,2)
  1.  ;;=^5002325
  1.  ;;^UTILITY(U,$J,358.3,8966,0)
  1.  ;;=R59.9^^45^431^67
  1.  ;;^UTILITY(U,$J,358.3,8966,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8966,1,3,0)
  1.  ;;=3^Enlarged Lymph Nodes,Unspec
  1.  ;;^UTILITY(U,$J,358.3,8966,1,4,0)
  1.  ;;=4^R59.9
  1.  ;;^UTILITY(U,$J,358.3,8966,2)
  1.  ;;=^5019531
  1.  ;;^UTILITY(U,$J,358.3,8967,0)
  1.  ;;=D47.3^^45^431^68
  1.  ;;^UTILITY(U,$J,358.3,8967,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8967,1,3,0)
  1.  ;;=3^Essential Thrombocythemia
  1.  ;;^UTILITY(U,$J,358.3,8967,1,4,0)
  1.  ;;=4^D47.3
  1.  ;;^UTILITY(U,$J,358.3,8967,2)
  1.  ;;=^5002258
  1.  ;;^UTILITY(U,$J,358.3,8968,0)
  1.  ;;=C82.09^^45^431^69
  1.  ;;^UTILITY(U,$J,358.3,8968,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8968,1,3,0)
  1.  ;;=3^Follicular Lymphoma Grade I,Extranodal/Solid Organ Sites
  1.  ;;^UTILITY(U,$J,358.3,8968,1,4,0)
  1.  ;;=4^C82.09
  1.  ;;^UTILITY(U,$J,358.3,8968,2)
  1.  ;;=^5001470
  1.  ;;^UTILITY(U,$J,358.3,8969,0)
  1.  ;;=C82.00^^45^431^70
  1.  ;;^UTILITY(U,$J,358.3,8969,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8969,1,3,0)
  1.  ;;=3^Follicular Lymphoma Grade I,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,8969,1,4,0)
  1.  ;;=4^C82.00
  1.  ;;^UTILITY(U,$J,358.3,8969,2)
  1.  ;;=^5001461
  1.  ;;^UTILITY(U,$J,358.3,8970,0)
  1.  ;;=C82.19^^45^431^71
  1.  ;;^UTILITY(U,$J,358.3,8970,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8970,1,3,0)
  1.  ;;=3^Follicular Lymphoma Grade II,Extranodal/Solid Organ Sites
  1.  ;;^UTILITY(U,$J,358.3,8970,1,4,0)
  1.  ;;=4^C82.19
  1.  ;;^UTILITY(U,$J,358.3,8970,2)
  1.  ;;=^5001480
  1.  ;;^UTILITY(U,$J,358.3,8971,0)
  1.  ;;=C82.10^^45^431^72
  1.  ;;^UTILITY(U,$J,358.3,8971,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8971,1,3,0)
  1.  ;;=3^Follicular Lymphoma Grade II,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,8971,1,4,0)
  1.  ;;=4^C82.10
  1.  ;;^UTILITY(U,$J,358.3,8971,2)
  1.  ;;=^5001471
  1.  ;;^UTILITY(U,$J,358.3,8972,0)
  1.  ;;=C82.29^^45^431^73
  1.  ;;^UTILITY(U,$J,358.3,8972,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8972,1,3,0)
  1.  ;;=3^Follicular Lymphoma Grade III,Extranodal/Solid Organ Sites
  1.  ;;^UTILITY(U,$J,358.3,8972,1,4,0)
  1.  ;;=4^C82.29
  1.  ;;^UTILITY(U,$J,358.3,8972,2)
  1.  ;;=^5001490
  1.  ;;^UTILITY(U,$J,358.3,8973,0)
  1.  ;;=C82.20^^45^431^74
  1.  ;;^UTILITY(U,$J,358.3,8973,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8973,1,3,0)
  1.  ;;=3^Follicular Lymphoma Grade III,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,8973,1,4,0)
  1.  ;;=4^C82.20
  1.  ;;^UTILITY(U,$J,358.3,8973,2)
  1.  ;;=^5001481
  1.  ;;^UTILITY(U,$J,358.3,8974,0)
  1.  ;;=C82.39^^45^431^75
  1.  ;;^UTILITY(U,$J,358.3,8974,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8974,1,3,0)
  1.  ;;=3^Follicular Lymphoma Grade IIIa,Extranodal/Solid Organ Sites
  1.  ;;^UTILITY(U,$J,358.3,8974,1,4,0)
  1.  ;;=4^C82.39
  1.  ;;^UTILITY(U,$J,358.3,8974,2)
  1.  ;;=^5001500
  1.  ;;^UTILITY(U,$J,358.3,8975,0)
  1.  ;;=C82.30^^45^431^76
  1.  ;;^UTILITY(U,$J,358.3,8975,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8975,1,3,0)
  1.  ;;=3^Follicular Lymphoma Grade IIIa,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,8975,1,4,0)
  1.  ;;=4^C82.30
  1.  ;;^UTILITY(U,$J,358.3,8975,2)
  1.  ;;=^5001491
  1.  ;;^UTILITY(U,$J,358.3,8976,0)
  1.  ;;=C82.49^^45^431^77
  1.  ;;^UTILITY(U,$J,358.3,8976,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8976,1,3,0)
  1.  ;;=3^Follicular Lymphoma Grade IIIb,Extranodal/Solid Organ Sites
  1.  ;;^UTILITY(U,$J,358.3,8976,1,4,0)
  1.  ;;=4^C82.49
  1.  ;;^UTILITY(U,$J,358.3,8976,2)
  1.  ;;=^5001510
  1.  ;;^UTILITY(U,$J,358.3,8977,0)
  1.  ;;=C82.40^^45^431^78
  1.  ;;^UTILITY(U,$J,358.3,8977,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8977,1,3,0)
  1.  ;;=3^Follicular Lymphoma Grade IIIb,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,8977,1,4,0)
  1.  ;;=4^C82.40
  1.  ;;^UTILITY(U,$J,358.3,8977,2)
  1.  ;;=^5001501
  1.  ;;^UTILITY(U,$J,358.3,8978,0)
  1.  ;;=C82.99^^45^431^79
  1.  ;;^UTILITY(U,$J,358.3,8978,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8978,1,3,0)
  1.  ;;=3^Follicular Lymphoma Unspec,Extranodal/Solid Organ Sites
  1.  ;;^UTILITY(U,$J,358.3,8978,1,4,0)
  1.  ;;=4^C82.99
  1.  ;;^UTILITY(U,$J,358.3,8978,2)
  1.  ;;=^5001550
  1.  ;;^UTILITY(U,$J,358.3,8979,0)
  1.  ;;=C82.90^^45^431^80
  1.  ;;^UTILITY(U,$J,358.3,8979,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8979,1,3,0)
  1.  ;;=3^Follicular Lymphoma Unspec,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,8979,1,4,0)
  1.  ;;=4^C82.90
  1.  ;;^UTILITY(U,$J,358.3,8979,2)
  1.  ;;=^5001541
  1.  ;;^UTILITY(U,$J,358.3,8980,0)
  1.  ;;=R59.1^^45^431^65
  1.  ;;^UTILITY(U,$J,358.3,8980,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8980,1,3,0)
  1.  ;;=3^Enlarged Lymph Nodes,Generalized
  1.  ;;^UTILITY(U,$J,358.3,8980,1,4,0)
  1.  ;;=4^R59.1
  1.  ;;^UTILITY(U,$J,358.3,8980,2)
  1.  ;;=^5019530
  1.  ;;^UTILITY(U,$J,358.3,8981,0)
  1.  ;;=C91.40^^45^431^84
  1.  ;;^UTILITY(U,$J,358.3,8981,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8981,1,3,0)
  1.  ;;=3^Hairy Cell Leukemia,Not in Remission
  1.  ;;^UTILITY(U,$J,358.3,8981,1,4,0)
  1.  ;;=4^C91.40
  1.  ;;^UTILITY(U,$J,358.3,8981,2)
  1.  ;;=^5001771
  1.  ;;^UTILITY(U,$J,358.3,8982,0)
  1.  ;;=C91.42^^45^431^82
  1.  ;;^UTILITY(U,$J,358.3,8982,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8982,1,3,0)
  1.  ;;=3^Hairy Cell Leukemia,In Relapse
  1.  ;;^UTILITY(U,$J,358.3,8982,1,4,0)
  1.  ;;=4^C91.42
  1.  ;;^UTILITY(U,$J,358.3,8982,2)
  1.  ;;=^5001773
  1.  ;;^UTILITY(U,$J,358.3,8983,0)
  1.  ;;=C91.41^^45^431^83
  1.  ;;^UTILITY(U,$J,358.3,8983,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8983,1,3,0)
  1.  ;;=3^Hairy Cell Leukemia,In Remission
  1.  ;;^UTILITY(U,$J,358.3,8983,1,4,0)
  1.  ;;=4^C91.41
  1.  ;;^UTILITY(U,$J,358.3,8983,2)
  1.  ;;=^5001772
  1.  ;;^UTILITY(U,$J,358.3,8984,0)
  1.  ;;=D57.01^^45^431^85
  1.  ;;^UTILITY(U,$J,358.3,8984,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8984,1,3,0)
  1.  ;;=3^Hb-SS Disease w/ Acute Chest Syndrome
  1.  ;;^UTILITY(U,$J,358.3,8984,1,4,0)
  1.  ;;=4^D57.01
  1.  ;;^UTILITY(U,$J,358.3,8984,2)
  1.  ;;=^5002307
  1.  ;;^UTILITY(U,$J,358.3,8985,0)
  1.  ;;=D57.00^^45^431^86
  1.  ;;^UTILITY(U,$J,358.3,8985,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8985,1,3,0)
  1.  ;;=3^Hb-SS Disease w/ Crisis,Unspec
  1.  ;;^UTILITY(U,$J,358.3,8985,1,4,0)
  1.  ;;=4^D57.00
  1.  ;;^UTILITY(U,$J,358.3,8985,2)
  1.  ;;=^5002306
  1.  ;;^UTILITY(U,$J,358.3,8986,0)
  1.  ;;=D57.02^^45^431^87
  1.  ;;^UTILITY(U,$J,358.3,8986,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8986,1,3,0)
  1.  ;;=3^Hb-SS Disease w/ Splenic Sequestration
  1.  ;;^UTILITY(U,$J,358.3,8986,1,4,0)
  1.  ;;=4^D57.02
  1.  ;;^UTILITY(U,$J,358.3,8986,2)
  1.  ;;=^5002308
  1.  ;;^UTILITY(U,$J,358.3,8987,0)
  1.  ;;=D68.32^^45^431^89
  1.  ;;^UTILITY(U,$J,358.3,8987,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8987,1,3,0)
  1.  ;;=3^Hemorrhagic Disorder d/t Extrinsic Circulating Anticoagulants
  1.  ;;^UTILITY(U,$J,358.3,8987,1,4,0)
  1.  ;;=4^D68.32
  1.  ;;^UTILITY(U,$J,358.3,8987,2)
  1.  ;;=^5002357
  1.  ;;^UTILITY(U,$J,358.3,8988,0)
  1.  ;;=C22.2^^45^431^90
  1.  ;;^UTILITY(U,$J,358.3,8988,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8988,1,3,0)
  1.  ;;=3^Hepatoblastoma
  1.  ;;^UTILITY(U,$J,358.3,8988,1,4,0)
  1.  ;;=4^C22.2
  1.  ;;^UTILITY(U,$J,358.3,8988,2)
  1.  ;;=^5000935
  1.  ;;^UTILITY(U,$J,358.3,8989,0)
  1.  ;;=D58.9^^45^431^92
  1.  ;;^UTILITY(U,$J,358.3,8989,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8989,1,3,0)
  1.  ;;=3^Hereditary Hemolytic Anemia,Unspec
  1.  ;;^UTILITY(U,$J,358.3,8989,1,4,0)
  1.  ;;=4^D58.9
  1.  ;;^UTILITY(U,$J,358.3,8989,2)
  1.  ;;=^5002322
  1.  ;;^UTILITY(U,$J,358.3,8990,0)
  1.  ;;=C81.99^^45^431^93
  1.  ;;^UTILITY(U,$J,358.3,8990,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8990,1,3,0)
  1.  ;;=3^Hodgkin Lymphoma,Extranodal/Solid Organ Sites
  1.  ;;^UTILITY(U,$J,358.3,8990,1,4,0)
  1.  ;;=4^C81.99
  1.  ;;^UTILITY(U,$J,358.3,8990,2)
  1.  ;;=^5001460
  1.  ;;^UTILITY(U,$J,358.3,8991,0)
  1.  ;;=C81.90^^45^431^94
  1.  ;;^UTILITY(U,$J,358.3,8991,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8991,1,3,0)
  1.  ;;=3^Hodgkin Lymphoma,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,8991,1,4,0)
  1.  ;;=4^C81.90
  1.  ;;^UTILITY(U,$J,358.3,8991,2)
  1.  ;;=^5001451
  1.  ;;^UTILITY(U,$J,358.3,8992,0)
  1.  ;;=D89.2^^45^431^95
  1.  ;;^UTILITY(U,$J,358.3,8992,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8992,1,3,0)
  1.  ;;=3^Hypergammaglobulenemia,Unspec
  1.  ;;^UTILITY(U,$J,358.3,8992,1,4,0)
  1.  ;;=4^D89.2
  1.  ;;^UTILITY(U,$J,358.3,8992,2)
  1.  ;;=^5002455
  1.  ;;^UTILITY(U,$J,358.3,8993,0)
  1.  ;;=D05.12^^45^431^98
  1.  ;;^UTILITY(U,$J,358.3,8993,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8993,1,3,0)
  1.  ;;=3^Intraductal Carcinoma in Situ,Left Breast
  1.  ;;^UTILITY(U,$J,358.3,8993,1,4,0)
  1.  ;;=4^D05.12
  1.  ;;^UTILITY(U,$J,358.3,8993,2)
  1.  ;;=^5001931
  1.  ;;^UTILITY(U,$J,358.3,8994,0)
  1.  ;;=D05.11^^45^431^99
  1.  ;;^UTILITY(U,$J,358.3,8994,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8994,1,3,0)
  1.  ;;=3^Intraductal Carcinoma in Situ,Right Breast
  1.  ;;^UTILITY(U,$J,358.3,8994,1,4,0)
  1.  ;;=4^D05.11
  1.  ;;^UTILITY(U,$J,358.3,8994,2)
  1.  ;;=^5001930
  1.  ;;^UTILITY(U,$J,358.3,8995,0)
  1.  ;;=D05.10^^45^431^100
  1.  ;;^UTILITY(U,$J,358.3,8995,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8995,1,3,0)
  1.  ;;=3^Intraductal Carcinoma in Situ,Unspec Breast
  1.  ;;^UTILITY(U,$J,358.3,8995,1,4,0)
  1.  ;;=4^D05.10
  1.  ;;^UTILITY(U,$J,358.3,8995,2)
  1.  ;;=^5001929
  1.  ;;^UTILITY(U,$J,358.3,8996,0)
  1.  ;;=D50.0^^45^431^101
  1.  ;;^UTILITY(U,$J,358.3,8996,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8996,1,3,0)
  1.  ;;=3^Iron Deficiency Anemia Secondary to Blood Loss
  1.  ;;^UTILITY(U,$J,358.3,8996,1,4,0)
  1.  ;;=4^D50.0
  1.  ;;^UTILITY(U,$J,358.3,8996,2)
  1.  ;;=^267971
  1.  ;;^UTILITY(U,$J,358.3,8997,0)
  1.  ;;=D50.9^^45^431^102
  1.  ;;^UTILITY(U,$J,358.3,8997,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8997,1,3,0)
  1.  ;;=3^Iron Deficiency Anemia,Unspec
  1.  ;;^UTILITY(U,$J,358.3,8997,1,4,0)
  1.  ;;=4^D50.9
  1.  ;;^UTILITY(U,$J,358.3,8997,2)
  1.  ;;=^5002283
  1.  ;;^UTILITY(U,$J,358.3,8998,0)
  1.  ;;=C46.9^^45^431^103
  1.  ;;^UTILITY(U,$J,358.3,8998,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8998,1,3,0)
  1.  ;;=3^Kaposi's Sarcoma,Unspec
  1.  ;;^UTILITY(U,$J,358.3,8998,1,4,0)
  1.  ;;=4^C46.9
  1.  ;;^UTILITY(U,$J,358.3,8998,2)
  1.  ;;=^5001108
  1.  ;;^UTILITY(U,$J,358.3,8999,0)
  1.  ;;=C22.0^^45^431^104
  1.  ;;^UTILITY(U,$J,358.3,8999,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,8999,1,3,0)
  1.  ;;=3^Liver Cell Carcinoma
  1.  ;;^UTILITY(U,$J,358.3,8999,1,4,0)
  1.  ;;=4^C22.0
  1.  ;;^UTILITY(U,$J,358.3,8999,2)
  1.  ;;=^5000933
  1.  ;;^UTILITY(U,$J,358.3,9000,0)
  1.  ;;=D05.02^^45^431^105
  1.  ;;^UTILITY(U,$J,358.3,9000,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,9000,1,3,0)
  1.  ;;=3^Lobular Carcinoma in Situ,Left Breast
  1.  ;;^UTILITY(U,$J,358.3,9000,1,4,0)
  1.  ;;=4^D05.02
  1.  ;;^UTILITY(U,$J,358.3,9000,2)
  1.  ;;=^5001928
  1.  ;;^UTILITY(U,$J,358.3,9001,0)
  1.  ;;=D05.01^^45^431^106
  1.  ;;^UTILITY(U,$J,358.3,9001,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,9001,1,3,0)
  1.  ;;=3^Lobular Carcinoma in Situ,Right Breast
  1.  ;;^UTILITY(U,$J,358.3,9001,1,4,0)
  1.  ;;=4^D05.01
  1.  ;;^UTILITY(U,$J,358.3,9001,2)
  1.  ;;=^5001927
  1.  ;;^UTILITY(U,$J,358.3,9002,0)
  1.  ;;=D05.00^^45^431^107
  1.  ;;^UTILITY(U,$J,358.3,9002,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,9002,1,3,0)
  1.  ;;=3^Lobular Carcinoma in Situ,Unspec Breast
  1.  ;;^UTILITY(U,$J,358.3,9002,1,4,0)
  1.  ;;=4^D05.00
  1.  ;;^UTILITY(U,$J,358.3,9002,2)
  1.  ;;=^5001926
  1.  ;;^UTILITY(U,$J,358.3,9003,0)
  1.  ;;=R59.0^^45^431^66
  1.  ;;^UTILITY(U,$J,358.3,9003,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,9003,1,3,0)
  1.  ;;=3^Enlarged Lymph Nodes,Localized
  1.  ;;^UTILITY(U,$J,358.3,9003,1,4,0)
  1.  ;;=4^R59.0
  1.  ;;^UTILITY(U,$J,358.3,9003,2)
  1.  ;;=^5019529
  1.  ;;^UTILITY(U,$J,358.3,9004,0)
  1.  ;;=C83.59^^45^431^108
  1.  ;;^UTILITY(U,$J,358.3,9004,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,9004,1,3,0)
  1.  ;;=3^Lymphoblastic Lymphoma,Extranodal/Solid Organ Sites
  1.  ;;^UTILITY(U,$J,358.3,9004,1,4,0)
  1.  ;;=4^C83.59
  1.  ;;^UTILITY(U,$J,358.3,9004,2)
  1.  ;;=^5001590
  1.  ;;^UTILITY(U,$J,358.3,9005,0)
  1.  ;;=C83.50^^45^431^109
  1.  ;;^UTILITY(U,$J,358.3,9005,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,9005,1,3,0)
  1.  ;;=3^Lymphoblastic Lymphoma,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,9005,1,4,0)
  1.  ;;=4^C83.50
  1.  ;;^UTILITY(U,$J,358.3,9005,2)
  1.  ;;=^5001581
  1.  ;;^UTILITY(U,$J,358.3,9006,0)
  1.  ;;=C43.9^^45^431^112
  1.  ;;^UTILITY(U,$J,358.3,9006,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,9006,1,3,0)
  1.  ;;=3^Malig Melanoma of Skin,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,9006,1,4,0)
  1.  ;;=4^C43.9
  1.  ;;^UTILITY(U,$J,358.3,9006,2)
  1.  ;;=^5001015
  1.  ;;^UTILITY(U,$J,358.3,9007,0)
  1.  ;;=C31.9^^45^431^113
  1.  ;;^UTILITY(U,$J,358.3,9007,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,9007,1,3,0)
  1.  ;;=3^Malig Neop Accessory Sinus,Unspec
  1.  ;;^UTILITY(U,$J,358.3,9007,1,4,0)
  1.  ;;=4^C31.9
  1.  ;;^UTILITY(U,$J,358.3,9007,2)
  1.  ;;=^5000953
  1.  ;;^UTILITY(U,$J,358.3,9008,0)
  1.  ;;=C24.1^^45^431^115
  1.  ;;^UTILITY(U,$J,358.3,9008,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,9008,1,3,0)
  1.  ;;=3^Malig Neop Ampulla of Vater
  1.  ;;^UTILITY(U,$J,358.3,9008,1,4,0)
  1.  ;;=4^C24.1
  1.  ;;^UTILITY(U,$J,358.3,9008,2)
  1.  ;;=^267100
  1.  ;;^UTILITY(U,$J,358.3,9009,0)
  1.  ;;=C21.0^^45^431^116
  1.  ;;^UTILITY(U,$J,358.3,9009,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,9009,1,3,0)
  1.  ;;=3^Malig Neop Anus,Unspec
  1.  ;;^UTILITY(U,$J,358.3,9009,1,4,0)
  1.  ;;=4^C21.0
  1.  ;;^UTILITY(U,$J,358.3,9009,2)
  1.  ;;=^5000930
  1.  ;;^UTILITY(U,$J,358.3,9010,0)
  1.  ;;=C67.9^^45^431^119
  1.  ;;^UTILITY(U,$J,358.3,9010,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,9010,1,3,0)
  1.  ;;=3^Malig Neop Bladder,Unspec
  1.  ;;^UTILITY(U,$J,358.3,9010,1,4,0)
  1.  ;;=4^C67.9
  1.  ;;^UTILITY(U,$J,358.3,9010,2)
  1.  ;;=^5001263
  1.  ;;^UTILITY(U,$J,358.3,9011,0)
  1.  ;;=C71.9^^45^431^123