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

IBDEI2HB.m

Go to the documentation of this file.
  1. IBDEI2HB ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  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,39588,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39588,1,3,0)
  1. ;;=3^Chronic Lymphocytic Leukemia of B-Cell Type,In Remission
  1. ;;^UTILITY(U,$J,358.3,39588,1,4,0)
  1. ;;=4^C91.11
  1. ;;^UTILITY(U,$J,358.3,39588,2)
  1. ;;=^5001766
  1. ;;^UTILITY(U,$J,358.3,39589,0)
  1. ;;=C91.10^^152^2000^49
  1. ;;^UTILITY(U,$J,358.3,39589,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39589,1,3,0)
  1. ;;=3^Chronic Lymphocytic Leukemia of B-Cell Type,Not in Remission
  1. ;;^UTILITY(U,$J,358.3,39589,1,4,0)
  1. ;;=4^C91.10
  1. ;;^UTILITY(U,$J,358.3,39589,2)
  1. ;;=^5001765
  1. ;;^UTILITY(U,$J,358.3,39590,0)
  1. ;;=C92.11^^152^2000^50
  1. ;;^UTILITY(U,$J,358.3,39590,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39590,1,3,0)
  1. ;;=3^Chronic Myeloid Leukemia,BCR/ABL-Positive,In Remission
  1. ;;^UTILITY(U,$J,358.3,39590,1,4,0)
  1. ;;=4^C92.11
  1. ;;^UTILITY(U,$J,358.3,39590,2)
  1. ;;=^5001793
  1. ;;^UTILITY(U,$J,358.3,39591,0)
  1. ;;=C92.10^^152^2000^51
  1. ;;^UTILITY(U,$J,358.3,39591,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39591,1,3,0)
  1. ;;=3^Chronic Myeloid Leukemia,BCR/ABL-Positive,Not in Remission
  1. ;;^UTILITY(U,$J,358.3,39591,1,4,0)
  1. ;;=4^C92.10
  1. ;;^UTILITY(U,$J,358.3,39591,2)
  1. ;;=^5001792
  1. ;;^UTILITY(U,$J,358.3,39592,0)
  1. ;;=D47.1^^152^2000^52
  1. ;;^UTILITY(U,$J,358.3,39592,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39592,1,3,0)
  1. ;;=3^Chronic Myeloproliferative Disease
  1. ;;^UTILITY(U,$J,358.3,39592,1,4,0)
  1. ;;=4^D47.1
  1. ;;^UTILITY(U,$J,358.3,39592,2)
  1. ;;=^5002256
  1. ;;^UTILITY(U,$J,358.3,39593,0)
  1. ;;=C82.69^^152^2000^53
  1. ;;^UTILITY(U,$J,358.3,39593,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39593,1,3,0)
  1. ;;=3^Cutaneous Follicle Center Lymphoma,Extranodal/Solid Organ Sites
  1. ;;^UTILITY(U,$J,358.3,39593,1,4,0)
  1. ;;=4^C82.69
  1. ;;^UTILITY(U,$J,358.3,39593,2)
  1. ;;=^5001530
  1. ;;^UTILITY(U,$J,358.3,39594,0)
  1. ;;=C82.60^^152^2000^54
  1. ;;^UTILITY(U,$J,358.3,39594,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39594,1,3,0)
  1. ;;=3^Cutaneous Follicle Center Lymphoma,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,39594,1,4,0)
  1. ;;=4^C82.60
  1. ;;^UTILITY(U,$J,358.3,39594,2)
  1. ;;=^5001521
  1. ;;^UTILITY(U,$J,358.3,39595,0)
  1. ;;=D56.2^^152^2000^55
  1. ;;^UTILITY(U,$J,358.3,39595,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39595,1,3,0)
  1. ;;=3^Delta-Beta Thalassemia
  1. ;;^UTILITY(U,$J,358.3,39595,1,4,0)
  1. ;;=4^D56.2
  1. ;;^UTILITY(U,$J,358.3,39595,2)
  1. ;;=^340496
  1. ;;^UTILITY(U,$J,358.3,39596,0)
  1. ;;=D75.9^^152^2000^56
  1. ;;^UTILITY(U,$J,358.3,39596,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39596,1,3,0)
  1. ;;=3^Disease of Blood/Blood-Forming Organs,Unspec
  1. ;;^UTILITY(U,$J,358.3,39596,1,4,0)
  1. ;;=4^D75.9
  1. ;;^UTILITY(U,$J,358.3,39596,2)
  1. ;;=^5002393
  1. ;;^UTILITY(U,$J,358.3,39597,0)
  1. ;;=D59.0^^152^2000^59
  1. ;;^UTILITY(U,$J,358.3,39597,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39597,1,3,0)
  1. ;;=3^Drug-Induced Autoimmune Hemolytic Anemia
  1. ;;^UTILITY(U,$J,358.3,39597,1,4,0)
  1. ;;=4^D59.0
  1. ;;^UTILITY(U,$J,358.3,39597,2)
  1. ;;=^5002323
  1. ;;^UTILITY(U,$J,358.3,39598,0)
  1. ;;=D59.2^^152^2000^60
  1. ;;^UTILITY(U,$J,358.3,39598,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39598,1,3,0)
  1. ;;=3^Drug-Induced Nonautoimmune Hemolytic Anemia
  1. ;;^UTILITY(U,$J,358.3,39598,1,4,0)
  1. ;;=4^D59.2
  1. ;;^UTILITY(U,$J,358.3,39598,2)
  1. ;;=^5002325
  1. ;;^UTILITY(U,$J,358.3,39599,0)
  1. ;;=R59.9^^152^2000^63
  1. ;;^UTILITY(U,$J,358.3,39599,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39599,1,3,0)
  1. ;;=3^Enlarged Lymph Nodes,Unspec
  1. ;;^UTILITY(U,$J,358.3,39599,1,4,0)
  1. ;;=4^R59.9