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

IBDEI0GM.m

Go to the documentation of this file.
  1. IBDEI0GM ; ; 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,7457,0)
  1. ;;=C7A.029^^36^368^31
  1. ;;^UTILITY(U,$J,358.3,7457,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7457,1,3,0)
  1. ;;=3^Carcinoid,Malignant,Unspec Colon
  1. ;;^UTILITY(U,$J,358.3,7457,1,4,0)
  1. ;;=4^C7A.029
  1. ;;^UTILITY(U,$J,358.3,7457,2)
  1. ;;=^5001370
  1. ;;^UTILITY(U,$J,358.3,7458,0)
  1. ;;=C7B.02^^36^368^5
  1. ;;^UTILITY(U,$J,358.3,7458,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7458,1,3,0)
  1. ;;=3^Carcinoid of Liver
  1. ;;^UTILITY(U,$J,358.3,7458,1,4,0)
  1. ;;=4^C7B.02
  1. ;;^UTILITY(U,$J,358.3,7458,2)
  1. ;;=^5001383
  1. ;;^UTILITY(U,$J,358.3,7459,0)
  1. ;;=E34.0^^36^368^6
  1. ;;^UTILITY(U,$J,358.3,7459,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7459,1,3,0)
  1. ;;=3^Carcinoid syndrome
  1. ;;^UTILITY(U,$J,358.3,7459,1,4,0)
  1. ;;=4^E34.0
  1. ;;^UTILITY(U,$J,358.3,7459,2)
  1. ;;=^19261
  1. ;;^UTILITY(U,$J,358.3,7460,0)
  1. ;;=C83.79^^36^368^33
  1. ;;^UTILITY(U,$J,358.3,7460,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7460,1,3,0)
  1. ;;=3^Lymphoma,Burkitt,Extranodal
  1. ;;^UTILITY(U,$J,358.3,7460,1,4,0)
  1. ;;=4^C83.79
  1. ;;^UTILITY(U,$J,358.3,7460,2)
  1. ;;=^5001600
  1. ;;^UTILITY(U,$J,358.3,7461,0)
  1. ;;=C83.39^^36^368^34
  1. ;;^UTILITY(U,$J,358.3,7461,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7461,1,3,0)
  1. ;;=3^Lymphoma,Diffuse large B-Cell,Extranodal
  1. ;;^UTILITY(U,$J,358.3,7461,1,4,0)
  1. ;;=4^C83.39
  1. ;;^UTILITY(U,$J,358.3,7461,2)
  1. ;;=^5001580
  1. ;;^UTILITY(U,$J,358.3,7462,0)
  1. ;;=C86.2^^36^368^35
  1. ;;^UTILITY(U,$J,358.3,7462,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7462,1,3,0)
  1. ;;=3^Lymphoma,Enteropathy T-cell type
  1. ;;^UTILITY(U,$J,358.3,7462,1,4,0)
  1. ;;=4^C86.2
  1. ;;^UTILITY(U,$J,358.3,7462,2)
  1. ;;=^5001743
  1. ;;^UTILITY(U,$J,358.3,7463,0)
  1. ;;=C82.59^^36^368^36
  1. ;;^UTILITY(U,$J,358.3,7463,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7463,1,3,0)
  1. ;;=3^Lymphoma,Follicular Diffuse,Extranodal
  1. ;;^UTILITY(U,$J,358.3,7463,1,4,0)
  1. ;;=4^C82.59
  1. ;;^UTILITY(U,$J,358.3,7463,2)
  1. ;;=^5001520
  1. ;;^UTILITY(U,$J,358.3,7464,0)
  1. ;;=C88.4^^36^368^37
  1. ;;^UTILITY(U,$J,358.3,7464,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7464,1,3,0)
  1. ;;=3^Lymphoma,MALT Type
  1. ;;^UTILITY(U,$J,358.3,7464,1,4,0)
  1. ;;=4^C88.4
  1. ;;^UTILITY(U,$J,358.3,7464,2)
  1. ;;=^5001749
  1. ;;^UTILITY(U,$J,358.3,7465,0)
  1. ;;=C83.19^^36^368^38
  1. ;;^UTILITY(U,$J,358.3,7465,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7465,1,3,0)
  1. ;;=3^Lymphoma,Mantle cell,Extranodal
  1. ;;^UTILITY(U,$J,358.3,7465,1,4,0)
  1. ;;=4^C83.19
  1. ;;^UTILITY(U,$J,358.3,7465,2)
  1. ;;=^5001570
  1. ;;^UTILITY(U,$J,358.3,7466,0)
  1. ;;=C78.6^^36^368^39
  1. ;;^UTILITY(U,$J,358.3,7466,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7466,1,3,0)
  1. ;;=3^Peritoneal carinomatosis
  1. ;;^UTILITY(U,$J,358.3,7466,1,4,0)
  1. ;;=4^C78.6
  1. ;;^UTILITY(U,$J,358.3,7466,2)
  1. ;;=^108899
  1. ;;^UTILITY(U,$J,358.3,7467,0)
  1. ;;=E85.89^^36^368^3
  1. ;;^UTILITY(U,$J,358.3,7467,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7467,1,3,0)
  1. ;;=3^Amyloidosis,Systemic
  1. ;;^UTILITY(U,$J,358.3,7467,1,4,0)
  1. ;;=4^E85.89
  1. ;;^UTILITY(U,$J,358.3,7467,2)
  1. ;;=^334034
  1. ;;^UTILITY(U,$J,358.3,7468,0)
  1. ;;=E85.81^^36^368^1
  1. ;;^UTILITY(U,$J,358.3,7468,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7468,1,3,0)
  1. ;;=3^Amyloidosis,Light Chain (AL)
  1. ;;^UTILITY(U,$J,358.3,7468,1,4,0)
  1. ;;=4^E85.81
  1. ;;^UTILITY(U,$J,358.3,7468,2)
  1. ;;=^5151302
  1. ;;^UTILITY(U,$J,358.3,7469,0)
  1. ;;=E85.82^^36^368^4
  1. ;;^UTILITY(U,$J,358.3,7469,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,7469,1,3,0)
  1. ;;=3^Amyloidosis,Wild-type Transthyretin-related (ATTR)