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