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

IBDEI10L.m

Go to the documentation of this file.
  1. IBDEI10L ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 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,16499,1,4,0)
  1. ;;=4^D56.2
  1. ;;^UTILITY(U,$J,358.3,16499,2)
  1. ;;=^340496
  1. ;;^UTILITY(U,$J,358.3,16500,0)
  1. ;;=D75.9^^61^775^60
  1. ;;^UTILITY(U,$J,358.3,16500,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16500,1,3,0)
  1. ;;=3^Disease of Blood/Blood-Forming Organs,Unspec
  1. ;;^UTILITY(U,$J,358.3,16500,1,4,0)
  1. ;;=4^D75.9
  1. ;;^UTILITY(U,$J,358.3,16500,2)
  1. ;;=^5002393
  1. ;;^UTILITY(U,$J,358.3,16501,0)
  1. ;;=D59.0^^61^775^63
  1. ;;^UTILITY(U,$J,358.3,16501,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16501,1,3,0)
  1. ;;=3^Drug-Induced Autoimmune Hemolytic Anemia
  1. ;;^UTILITY(U,$J,358.3,16501,1,4,0)
  1. ;;=4^D59.0
  1. ;;^UTILITY(U,$J,358.3,16501,2)
  1. ;;=^5002323
  1. ;;^UTILITY(U,$J,358.3,16502,0)
  1. ;;=D59.2^^61^775^64
  1. ;;^UTILITY(U,$J,358.3,16502,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16502,1,3,0)
  1. ;;=3^Drug-Induced Nonautoimmune Hemolytic Anemia
  1. ;;^UTILITY(U,$J,358.3,16502,1,4,0)
  1. ;;=4^D59.2
  1. ;;^UTILITY(U,$J,358.3,16502,2)
  1. ;;=^5002325
  1. ;;^UTILITY(U,$J,358.3,16503,0)
  1. ;;=R59.9^^61^775^67
  1. ;;^UTILITY(U,$J,358.3,16503,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16503,1,3,0)
  1. ;;=3^Enlarged Lymph Nodes,Unspec
  1. ;;^UTILITY(U,$J,358.3,16503,1,4,0)
  1. ;;=4^R59.9
  1. ;;^UTILITY(U,$J,358.3,16503,2)
  1. ;;=^5019531
  1. ;;^UTILITY(U,$J,358.3,16504,0)
  1. ;;=D47.3^^61^775^68
  1. ;;^UTILITY(U,$J,358.3,16504,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16504,1,3,0)
  1. ;;=3^Essential Thrombocythemia
  1. ;;^UTILITY(U,$J,358.3,16504,1,4,0)
  1. ;;=4^D47.3
  1. ;;^UTILITY(U,$J,358.3,16504,2)
  1. ;;=^5002258
  1. ;;^UTILITY(U,$J,358.3,16505,0)
  1. ;;=C82.09^^61^775^69
  1. ;;^UTILITY(U,$J,358.3,16505,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16505,1,3,0)
  1. ;;=3^Follicular Lymphoma Grade I,Extranodal/Solid Organ Sites
  1. ;;^UTILITY(U,$J,358.3,16505,1,4,0)
  1. ;;=4^C82.09
  1. ;;^UTILITY(U,$J,358.3,16505,2)
  1. ;;=^5001470
  1. ;;^UTILITY(U,$J,358.3,16506,0)
  1. ;;=C82.00^^61^775^70
  1. ;;^UTILITY(U,$J,358.3,16506,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16506,1,3,0)
  1. ;;=3^Follicular Lymphoma Grade I,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,16506,1,4,0)
  1. ;;=4^C82.00
  1. ;;^UTILITY(U,$J,358.3,16506,2)
  1. ;;=^5001461
  1. ;;^UTILITY(U,$J,358.3,16507,0)
  1. ;;=C82.19^^61^775^71
  1. ;;^UTILITY(U,$J,358.3,16507,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16507,1,3,0)
  1. ;;=3^Follicular Lymphoma Grade II,Extranodal/Solid Organ Sites
  1. ;;^UTILITY(U,$J,358.3,16507,1,4,0)
  1. ;;=4^C82.19
  1. ;;^UTILITY(U,$J,358.3,16507,2)
  1. ;;=^5001480
  1. ;;^UTILITY(U,$J,358.3,16508,0)
  1. ;;=C82.10^^61^775^72
  1. ;;^UTILITY(U,$J,358.3,16508,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16508,1,3,0)
  1. ;;=3^Follicular Lymphoma Grade II,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,16508,1,4,0)
  1. ;;=4^C82.10
  1. ;;^UTILITY(U,$J,358.3,16508,2)
  1. ;;=^5001471
  1. ;;^UTILITY(U,$J,358.3,16509,0)
  1. ;;=C82.29^^61^775^73
  1. ;;^UTILITY(U,$J,358.3,16509,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16509,1,3,0)
  1. ;;=3^Follicular Lymphoma Grade III,Extranodal/Solid Organ Sites
  1. ;;^UTILITY(U,$J,358.3,16509,1,4,0)
  1. ;;=4^C82.29
  1. ;;^UTILITY(U,$J,358.3,16509,2)
  1. ;;=^5001490
  1. ;;^UTILITY(U,$J,358.3,16510,0)
  1. ;;=C82.20^^61^775^74
  1. ;;^UTILITY(U,$J,358.3,16510,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16510,1,3,0)
  1. ;;=3^Follicular Lymphoma Grade III,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,16510,1,4,0)
  1. ;;=4^C82.20
  1. ;;^UTILITY(U,$J,358.3,16510,2)
  1. ;;=^5001481
  1. ;;^UTILITY(U,$J,358.3,16511,0)
  1. ;;=C82.39^^61^775^75
  1. ;;^UTILITY(U,$J,358.3,16511,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,16511,1,3,0)
  1. ;;=3^Follicular Lymphoma Grade IIIa,Extranodal/Solid Organ Sites