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

IBDEI2HI.m

Go to the documentation of this file.
  1. IBDEI2HI ; ; 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,39673,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39673,1,3,0)
  1. ;;=3^Malig Neop Bronchus/Lung,Unspec Part
  1. ;;^UTILITY(U,$J,358.3,39673,1,4,0)
  1. ;;=4^C34.90
  1. ;;^UTILITY(U,$J,358.3,39673,2)
  1. ;;=^5000966
  1. ;;^UTILITY(U,$J,358.3,39674,0)
  1. ;;=C65.9^^152^2000^154
  1. ;;^UTILITY(U,$J,358.3,39674,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39674,1,3,0)
  1. ;;=3^Malig Neop Renal Pelvis,Unspec
  1. ;;^UTILITY(U,$J,358.3,39674,1,4,0)
  1. ;;=4^C65.9
  1. ;;^UTILITY(U,$J,358.3,39674,2)
  1. ;;=^5001253
  1. ;;^UTILITY(U,$J,358.3,39675,0)
  1. ;;=C50.912^^152^2000^135
  1. ;;^UTILITY(U,$J,358.3,39675,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39675,1,3,0)
  1. ;;=3^Malig Neop Left Female Breast,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,39675,1,4,0)
  1. ;;=4^C50.912
  1. ;;^UTILITY(U,$J,358.3,39675,2)
  1. ;;=^5001196
  1. ;;^UTILITY(U,$J,358.3,39676,0)
  1. ;;=C50.911^^152^2000^157
  1. ;;^UTILITY(U,$J,358.3,39676,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39676,1,3,0)
  1. ;;=3^Malig Neop Right Female Breast,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,39676,1,4,0)
  1. ;;=4^C50.911
  1. ;;^UTILITY(U,$J,358.3,39676,2)
  1. ;;=^5001195
  1. ;;^UTILITY(U,$J,358.3,39677,0)
  1. ;;=C50.919^^152^2000^127
  1. ;;^UTILITY(U,$J,358.3,39677,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39677,1,3,0)
  1. ;;=3^Malig Neop Female Breast,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,39677,1,4,0)
  1. ;;=4^C50.919
  1. ;;^UTILITY(U,$J,358.3,39677,2)
  1. ;;=^5001197
  1. ;;^UTILITY(U,$J,358.3,39678,0)
  1. ;;=C62.90^^152^2000^165
  1. ;;^UTILITY(U,$J,358.3,39678,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39678,1,3,0)
  1. ;;=3^Malig Neop Testis,Unspec
  1. ;;^UTILITY(U,$J,358.3,39678,1,4,0)
  1. ;;=4^C62.90
  1. ;;^UTILITY(U,$J,358.3,39678,2)
  1. ;;=^5001236
  1. ;;^UTILITY(U,$J,358.3,39679,0)
  1. ;;=D03.9^^152^2000^170
  1. ;;^UTILITY(U,$J,358.3,39679,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39679,1,3,0)
  1. ;;=3^Melanoma in Situ,Unspec
  1. ;;^UTILITY(U,$J,358.3,39679,1,4,0)
  1. ;;=4^D03.9
  1. ;;^UTILITY(U,$J,358.3,39679,2)
  1. ;;=^5001908
  1. ;;^UTILITY(U,$J,358.3,39680,0)
  1. ;;=C45.0^^152^2000^171
  1. ;;^UTILITY(U,$J,358.3,39680,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39680,1,3,0)
  1. ;;=3^Mesothelioma of Pleura
  1. ;;^UTILITY(U,$J,358.3,39680,1,4,0)
  1. ;;=4^C45.0
  1. ;;^UTILITY(U,$J,358.3,39680,2)
  1. ;;=^5001095
  1. ;;^UTILITY(U,$J,358.3,39681,0)
  1. ;;=C90.01^^152^2000^173
  1. ;;^UTILITY(U,$J,358.3,39681,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39681,1,3,0)
  1. ;;=3^Multiple Myeloma,In Remission
  1. ;;^UTILITY(U,$J,358.3,39681,1,4,0)
  1. ;;=4^C90.01
  1. ;;^UTILITY(U,$J,358.3,39681,2)
  1. ;;=^267515
  1. ;;^UTILITY(U,$J,358.3,39682,0)
  1. ;;=C90.00^^152^2000^174
  1. ;;^UTILITY(U,$J,358.3,39682,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39682,1,3,0)
  1. ;;=3^Multiple Myeloma,Not in Remission
  1. ;;^UTILITY(U,$J,358.3,39682,1,4,0)
  1. ;;=4^C90.00
  1. ;;^UTILITY(U,$J,358.3,39682,2)
  1. ;;=^5001752
  1. ;;^UTILITY(U,$J,358.3,39683,0)
  1. ;;=C94.6^^152^2000^175
  1. ;;^UTILITY(U,$J,358.3,39683,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39683,1,3,0)
  1. ;;=3^Myelodysplastic Disease NEC
  1. ;;^UTILITY(U,$J,358.3,39683,1,4,0)
  1. ;;=4^C94.6
  1. ;;^UTILITY(U,$J,358.3,39683,2)
  1. ;;=^5001846
  1. ;;^UTILITY(U,$J,358.3,39684,0)
  1. ;;=D61.82^^152^2000^176
  1. ;;^UTILITY(U,$J,358.3,39684,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39684,1,3,0)
  1. ;;=3^Myelophthisis
  1. ;;^UTILITY(U,$J,358.3,39684,1,4,0)
  1. ;;=4^D61.82
  1. ;;^UTILITY(U,$J,358.3,39684,2)
  1. ;;=^334037
  1. ;;^UTILITY(U,$J,358.3,39685,0)
  1. ;;=D47.9^^152^2000^177
  1. ;;^UTILITY(U,$J,358.3,39685,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,39685,1,3,0)
  1. ;;=3^Neop Lymphoid,Hematopoietic & Related Tissue,Uncertain Behavior