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

IBDEI0JA.m

Go to the documentation of this file.
  1. IBDEI0JA ; ; 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,8677,0)
  1. ;;=D68.0^^39^401^213
  1. ;;^UTILITY(U,$J,358.3,8677,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8677,1,3,0)
  1. ;;=3^Von Willebrand's Disease
  1. ;;^UTILITY(U,$J,358.3,8677,1,4,0)
  1. ;;=4^D68.0
  1. ;;^UTILITY(U,$J,358.3,8677,2)
  1. ;;=^127267
  1. ;;^UTILITY(U,$J,358.3,8678,0)
  1. ;;=C88.0^^39^401^214
  1. ;;^UTILITY(U,$J,358.3,8678,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8678,1,3,0)
  1. ;;=3^Waldenstrom Macroglobulinemia
  1. ;;^UTILITY(U,$J,358.3,8678,1,4,0)
  1. ;;=4^C88.0
  1. ;;^UTILITY(U,$J,358.3,8678,2)
  1. ;;=^5001748
  1. ;;^UTILITY(U,$J,358.3,8679,0)
  1. ;;=C91.02^^39^401^3
  1. ;;^UTILITY(U,$J,358.3,8679,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8679,1,3,0)
  1. ;;=3^Acute Lymphoblastic Leukemia,In Relapse
  1. ;;^UTILITY(U,$J,358.3,8679,1,4,0)
  1. ;;=4^C91.02
  1. ;;^UTILITY(U,$J,358.3,8679,2)
  1. ;;=^5001764
  1. ;;^UTILITY(U,$J,358.3,8680,0)
  1. ;;=C92.02^^39^401^6
  1. ;;^UTILITY(U,$J,358.3,8680,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8680,1,3,0)
  1. ;;=3^Acute Myeloblastic Leukemia,In Relapse
  1. ;;^UTILITY(U,$J,358.3,8680,1,4,0)
  1. ;;=4^C92.02
  1. ;;^UTILITY(U,$J,358.3,8680,2)
  1. ;;=^5001791
  1. ;;^UTILITY(U,$J,358.3,8681,0)
  1. ;;=D09.3^^39^401^50
  1. ;;^UTILITY(U,$J,358.3,8681,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8681,1,3,0)
  1. ;;=3^Carcinoma in Situ of Thyroid/Oth Endocrine Glands
  1. ;;^UTILITY(U,$J,358.3,8681,1,4,0)
  1. ;;=4^D09.3
  1. ;;^UTILITY(U,$J,358.3,8681,2)
  1. ;;=^5001955
  1. ;;^UTILITY(U,$J,358.3,8682,0)
  1. ;;=C22.0^^39^401^91
  1. ;;^UTILITY(U,$J,358.3,8682,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8682,1,3,0)
  1. ;;=3^Hepatocellular Carcinoma
  1. ;;^UTILITY(U,$J,358.3,8682,1,4,0)
  1. ;;=4^C22.0
  1. ;;^UTILITY(U,$J,358.3,8682,2)
  1. ;;=^5000933
  1. ;;^UTILITY(U,$J,358.3,8683,0)
  1. ;;=C24.9^^39^401^118
  1. ;;^UTILITY(U,$J,358.3,8683,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8683,1,3,0)
  1. ;;=3^Malig Neop Biliary Tract,Unspec
  1. ;;^UTILITY(U,$J,358.3,8683,1,4,0)
  1. ;;=4^C24.9
  1. ;;^UTILITY(U,$J,358.3,8683,2)
  1. ;;=^5000942
  1. ;;^UTILITY(U,$J,358.3,8684,0)
  1. ;;=C50.922^^39^401^142
  1. ;;^UTILITY(U,$J,358.3,8684,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8684,1,3,0)
  1. ;;=3^Malig Neop Left Male Breast,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,8684,1,4,0)
  1. ;;=4^C50.922
  1. ;;^UTILITY(U,$J,358.3,8684,2)
  1. ;;=^5133340
  1. ;;^UTILITY(U,$J,358.3,8685,0)
  1. ;;=C34.91^^39^401^160
  1. ;;^UTILITY(U,$J,358.3,8685,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8685,1,3,0)
  1. ;;=3^Malig Neop Right Bronchus/Lung,Unspec Part
  1. ;;^UTILITY(U,$J,358.3,8685,1,4,0)
  1. ;;=4^C34.91
  1. ;;^UTILITY(U,$J,358.3,8685,2)
  1. ;;=^5000967
  1. ;;^UTILITY(U,$J,358.3,8686,0)
  1. ;;=C50.921^^39^401^164
  1. ;;^UTILITY(U,$J,358.3,8686,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8686,1,3,0)
  1. ;;=3^Malig Neop Right Male Breast,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,8686,1,4,0)
  1. ;;=4^C50.921
  1. ;;^UTILITY(U,$J,358.3,8686,2)
  1. ;;=^5001198
  1. ;;^UTILITY(U,$J,358.3,8687,0)
  1. ;;=C90.02^^39^401^176
  1. ;;^UTILITY(U,$J,358.3,8687,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8687,1,3,0)
  1. ;;=3^Multiple Myeloma,In Relapse
  1. ;;^UTILITY(U,$J,358.3,8687,1,4,0)
  1. ;;=4^C90.02
  1. ;;^UTILITY(U,$J,358.3,8687,2)
  1. ;;=^5001753
  1. ;;^UTILITY(U,$J,358.3,8688,0)
  1. ;;=D51.9^^39^401^25
  1. ;;^UTILITY(U,$J,358.3,8688,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,8688,1,3,0)
  1. ;;=3^Anemia in Vitamin B12 Deficiency
  1. ;;^UTILITY(U,$J,358.3,8688,1,4,0)
  1. ;;=4^D51.9
  1. ;;^UTILITY(U,$J,358.3,8688,2)
  1. ;;=^5002289
  1. ;;^UTILITY(U,$J,358.3,8689,0)
  1. ;;=C79.51^^39^401^35
  1. ;;^UTILITY(U,$J,358.3,8689,1,0)
  1. ;;=^358.31IA^4^2