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

IBDEI2XL.m

Go to the documentation of this file.
IBDEI2XL ; ; 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,46778,0)
 ;;=C66.1^^179^2332^27
 ;;^UTILITY(U,$J,358.3,46778,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46778,1,3,0)
 ;;=3^Malig Neop Rt Ureter
 ;;^UTILITY(U,$J,358.3,46778,1,4,0)
 ;;=4^C66.1
 ;;^UTILITY(U,$J,358.3,46778,2)
 ;;=^5001254
 ;;^UTILITY(U,$J,358.3,46779,0)
 ;;=C66.2^^179^2332^19
 ;;^UTILITY(U,$J,358.3,46779,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46779,1,3,0)
 ;;=3^Malig Neop Lt Ureter
 ;;^UTILITY(U,$J,358.3,46779,1,4,0)
 ;;=4^C66.2
 ;;^UTILITY(U,$J,358.3,46779,2)
 ;;=^5001255
 ;;^UTILITY(U,$J,358.3,46780,0)
 ;;=C68.0^^179^2332^31
 ;;^UTILITY(U,$J,358.3,46780,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46780,1,3,0)
 ;;=3^Malig Neop Urethra
 ;;^UTILITY(U,$J,358.3,46780,1,4,0)
 ;;=4^C68.0
 ;;^UTILITY(U,$J,358.3,46780,2)
 ;;=^267266
 ;;^UTILITY(U,$J,358.3,46781,0)
 ;;=C79.01^^179^2332^42
 ;;^UTILITY(U,$J,358.3,46781,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46781,1,3,0)
 ;;=3^Secondary Malig Neop Rt Kidney/Renal Pelvis
 ;;^UTILITY(U,$J,358.3,46781,1,4,0)
 ;;=4^C79.01
 ;;^UTILITY(U,$J,358.3,46781,2)
 ;;=^5001343
 ;;^UTILITY(U,$J,358.3,46782,0)
 ;;=C79.02^^179^2332^41
 ;;^UTILITY(U,$J,358.3,46782,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46782,1,3,0)
 ;;=3^Secondary Malig Neop Lt Kidney/Renal Pelvis
 ;;^UTILITY(U,$J,358.3,46782,1,4,0)
 ;;=4^C79.02
 ;;^UTILITY(U,$J,358.3,46782,2)
 ;;=^5001344
 ;;^UTILITY(U,$J,358.3,46783,0)
 ;;=C79.11^^179^2332^38
 ;;^UTILITY(U,$J,358.3,46783,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46783,1,3,0)
 ;;=3^Secondary Malig Neop Bladder
 ;;^UTILITY(U,$J,358.3,46783,1,4,0)
 ;;=4^C79.11
 ;;^UTILITY(U,$J,358.3,46783,2)
 ;;=^5001346
 ;;^UTILITY(U,$J,358.3,46784,0)
 ;;=C79.10^^179^2332^43
 ;;^UTILITY(U,$J,358.3,46784,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46784,1,3,0)
 ;;=3^Secondary Malig Neop Unsp Urinary Organs
 ;;^UTILITY(U,$J,358.3,46784,1,4,0)
 ;;=4^C79.10
 ;;^UTILITY(U,$J,358.3,46784,2)
 ;;=^5001345
 ;;^UTILITY(U,$J,358.3,46785,0)
 ;;=C79.82^^179^2332^40
 ;;^UTILITY(U,$J,358.3,46785,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46785,1,3,0)
 ;;=3^Secondary Malig Neop Genital Organs
 ;;^UTILITY(U,$J,358.3,46785,1,4,0)
 ;;=4^C79.82
 ;;^UTILITY(U,$J,358.3,46785,2)
 ;;=^267339
 ;;^UTILITY(U,$J,358.3,46786,0)
 ;;=C67.9^^179^2332^8
 ;;^UTILITY(U,$J,358.3,46786,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46786,1,3,0)
 ;;=3^Malig Neop Bladder,Site Unspec
 ;;^UTILITY(U,$J,358.3,46786,1,4,0)
 ;;=4^C67.9
 ;;^UTILITY(U,$J,358.3,46786,2)
 ;;=^5001263
 ;;^UTILITY(U,$J,358.3,46787,0)
 ;;=C67.0^^179^2332^9
 ;;^UTILITY(U,$J,358.3,46787,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46787,1,3,0)
 ;;=3^Malig Neop Bladder,Trigone
 ;;^UTILITY(U,$J,358.3,46787,1,4,0)
 ;;=4^C67.0
 ;;^UTILITY(U,$J,358.3,46787,2)
 ;;=^5001257
 ;;^UTILITY(U,$J,358.3,46788,0)
 ;;=C67.1^^179^2332^3
 ;;^UTILITY(U,$J,358.3,46788,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46788,1,3,0)
 ;;=3^Malig Neop Bladder,Dome
 ;;^UTILITY(U,$J,358.3,46788,1,4,0)
 ;;=4^C67.1
 ;;^UTILITY(U,$J,358.3,46788,2)
 ;;=^5001258
 ;;^UTILITY(U,$J,358.3,46789,0)
 ;;=C67.2^^179^2332^4
 ;;^UTILITY(U,$J,358.3,46789,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,46789,1,3,0)
 ;;=3^Malig Neop Bladder,Lateral Wall
 ;;^UTILITY(U,$J,358.3,46789,1,4,0)
 ;;=4^C67.2
 ;;^UTILITY(U,$J,358.3,46789,2)
 ;;=^5001259
 ;;^UTILITY(U,$J,358.3,46790,0)
 ;;=C67.3^^179^2332^2
 ;;^UTILITY(U,$J,358.3,46790,1,0)
 ;;=^358.31IA^4^2