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

IBDEI2TD.m

Go to the documentation of this file.
IBDEI2TD ; ; 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,44882,1,4,0)
 ;;=4^C44.99
 ;;^UTILITY(U,$J,358.3,44882,2)
 ;;=^5001094
 ;;^UTILITY(U,$J,358.3,44883,0)
 ;;=C44.792^^170^2241^31
 ;;^UTILITY(U,$J,358.3,44883,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44883,1,3,0)
 ;;=3^Malig Neop Skin of Right Lower Limb
 ;;^UTILITY(U,$J,358.3,44883,1,4,0)
 ;;=4^C44.792
 ;;^UTILITY(U,$J,358.3,44883,2)
 ;;=^5001085
 ;;^UTILITY(U,$J,358.3,44884,0)
 ;;=C44.799^^170^2241^23
 ;;^UTILITY(U,$J,358.3,44884,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44884,1,3,0)
 ;;=3^Malig Neop Skin of Left Lower Limb
 ;;^UTILITY(U,$J,358.3,44884,1,4,0)
 ;;=4^C44.799
 ;;^UTILITY(U,$J,358.3,44884,2)
 ;;=^5001086
 ;;^UTILITY(U,$J,358.3,44885,0)
 ;;=C44.89^^170^2241^28
 ;;^UTILITY(U,$J,358.3,44885,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44885,1,3,0)
 ;;=3^Malig Neop Skin of Overlapping Sites
 ;;^UTILITY(U,$J,358.3,44885,1,4,0)
 ;;=4^C44.89
 ;;^UTILITY(U,$J,358.3,44885,2)
 ;;=^5001090
 ;;^UTILITY(U,$J,358.3,44886,0)
 ;;=C43.0^^170^2241^8
 ;;^UTILITY(U,$J,358.3,44886,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44886,1,3,0)
 ;;=3^Malig Melanoma of Lip
 ;;^UTILITY(U,$J,358.3,44886,1,4,0)
 ;;=4^C43.0
 ;;^UTILITY(U,$J,358.3,44886,2)
 ;;=^5000994
 ;;^UTILITY(U,$J,358.3,44887,0)
 ;;=C43.21^^170^2241^11
 ;;^UTILITY(U,$J,358.3,44887,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44887,1,3,0)
 ;;=3^Malig Melanoma of Right Ear/External Auricular Canal
 ;;^UTILITY(U,$J,358.3,44887,1,4,0)
 ;;=4^C43.21
 ;;^UTILITY(U,$J,358.3,44887,2)
 ;;=^5000999
 ;;^UTILITY(U,$J,358.3,44888,0)
 ;;=C43.22^^170^2241^3
 ;;^UTILITY(U,$J,358.3,44888,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44888,1,3,0)
 ;;=3^Malig Melanoma of Left Ear/External Auricular Canal
 ;;^UTILITY(U,$J,358.3,44888,1,4,0)
 ;;=4^C43.22
 ;;^UTILITY(U,$J,358.3,44888,2)
 ;;=^5001000
 ;;^UTILITY(U,$J,358.3,44889,0)
 ;;=C43.31^^170^2241^9
 ;;^UTILITY(U,$J,358.3,44889,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44889,1,3,0)
 ;;=3^Malig Melanoma of Nose
 ;;^UTILITY(U,$J,358.3,44889,1,4,0)
 ;;=4^C43.31
 ;;^UTILITY(U,$J,358.3,44889,2)
 ;;=^5001002
 ;;^UTILITY(U,$J,358.3,44890,0)
 ;;=C43.39^^170^2241^2
 ;;^UTILITY(U,$J,358.3,44890,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44890,1,3,0)
 ;;=3^Malig Melanoma of Face,Other Parts
 ;;^UTILITY(U,$J,358.3,44890,1,4,0)
 ;;=4^C43.39
 ;;^UTILITY(U,$J,358.3,44890,2)
 ;;=^5001003
 ;;^UTILITY(U,$J,358.3,44891,0)
 ;;=C43.4^^170^2241^16
 ;;^UTILITY(U,$J,358.3,44891,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44891,1,3,0)
 ;;=3^Malig Melanoma of Scalp/Neck
 ;;^UTILITY(U,$J,358.3,44891,1,4,0)
 ;;=4^C43.4
 ;;^UTILITY(U,$J,358.3,44891,2)
 ;;=^5001004
 ;;^UTILITY(U,$J,358.3,44892,0)
 ;;=C43.59^^170^2241^18
 ;;^UTILITY(U,$J,358.3,44892,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44892,1,3,0)
 ;;=3^Malig Melanoma of Trunk,Other Part
 ;;^UTILITY(U,$J,358.3,44892,1,4,0)
 ;;=4^C43.59
 ;;^UTILITY(U,$J,358.3,44892,2)
 ;;=^5001007
 ;;^UTILITY(U,$J,358.3,44893,0)
 ;;=C43.51^^170^2241^1
 ;;^UTILITY(U,$J,358.3,44893,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44893,1,3,0)
 ;;=3^Malig Melanoma of Anal Skin
 ;;^UTILITY(U,$J,358.3,44893,1,4,0)
 ;;=4^C43.51
 ;;^UTILITY(U,$J,358.3,44893,2)
 ;;=^5001005
 ;;^UTILITY(U,$J,358.3,44894,0)
 ;;=C43.52^^170^2241^17
 ;;^UTILITY(U,$J,358.3,44894,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,44894,1,3,0)
 ;;=3^Malig Melanoma of Skin of Breast
 ;;^UTILITY(U,$J,358.3,44894,1,4,0)
 ;;=4^C43.52