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

IBDEI295.m

Go to the documentation of this file.
IBDEI295 ; ; 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,35957,2)
 ;;=^5011274
 ;;^UTILITY(U,$J,358.3,35958,0)
 ;;=M23.8X1^^139^1829^28
 ;;^UTILITY(U,$J,358.3,35958,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35958,1,3,0)
 ;;=3^Internal Derangement,Rt Knee NEC
 ;;^UTILITY(U,$J,358.3,35958,1,4,0)
 ;;=4^M23.8X1
 ;;^UTILITY(U,$J,358.3,35958,2)
 ;;=^5011273
 ;;^UTILITY(U,$J,358.3,35959,0)
 ;;=M62.838^^139^1829^43
 ;;^UTILITY(U,$J,358.3,35959,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35959,1,3,0)
 ;;=3^Muscle spasm NEC
 ;;^UTILITY(U,$J,358.3,35959,1,4,0)
 ;;=4^M62.838
 ;;^UTILITY(U,$J,358.3,35959,2)
 ;;=^5012682
 ;;^UTILITY(U,$J,358.3,35960,0)
 ;;=M76.52^^139^1829^57
 ;;^UTILITY(U,$J,358.3,35960,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35960,1,3,0)
 ;;=3^Patellar Tendinitis,Lt Knee
 ;;^UTILITY(U,$J,358.3,35960,1,4,0)
 ;;=4^M76.52
 ;;^UTILITY(U,$J,358.3,35960,2)
 ;;=^5013283
 ;;^UTILITY(U,$J,358.3,35961,0)
 ;;=M76.51^^139^1829^58
 ;;^UTILITY(U,$J,358.3,35961,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35961,1,3,0)
 ;;=3^Patellar Tendinitis,Rt Knee
 ;;^UTILITY(U,$J,358.3,35961,1,4,0)
 ;;=4^M76.51
 ;;^UTILITY(U,$J,358.3,35961,2)
 ;;=^5013282
 ;;^UTILITY(U,$J,358.3,35962,0)
 ;;=M65.4^^139^1829^59
 ;;^UTILITY(U,$J,358.3,35962,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35962,1,3,0)
 ;;=3^Radial Styloid Tenosynovitis
 ;;^UTILITY(U,$J,358.3,35962,1,4,0)
 ;;=4^M65.4
 ;;^UTILITY(U,$J,358.3,35962,2)
 ;;=^5012792
 ;;^UTILITY(U,$J,358.3,35963,0)
 ;;=M75.102^^139^1829^62
 ;;^UTILITY(U,$J,358.3,35963,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35963,1,3,0)
 ;;=3^Rotator-Cuff Tear/Rupture,Lt Shoulder,Unspec
 ;;^UTILITY(U,$J,358.3,35963,1,4,0)
 ;;=4^M75.102
 ;;^UTILITY(U,$J,358.3,35963,2)
 ;;=^5013243
 ;;^UTILITY(U,$J,358.3,35964,0)
 ;;=M75.101^^139^1829^63
 ;;^UTILITY(U,$J,358.3,35964,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35964,1,3,0)
 ;;=3^Rotator-Cuff Tear/Rupture,Rt Shoulder,Unspec
 ;;^UTILITY(U,$J,358.3,35964,1,4,0)
 ;;=4^M75.101
 ;;^UTILITY(U,$J,358.3,35964,2)
 ;;=^5013242
 ;;^UTILITY(U,$J,358.3,35965,0)
 ;;=M67.02^^139^1829^65
 ;;^UTILITY(U,$J,358.3,35965,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35965,1,3,0)
 ;;=3^Short Achilles Tendon,Lt Ankle
 ;;^UTILITY(U,$J,358.3,35965,1,4,0)
 ;;=4^M67.02
 ;;^UTILITY(U,$J,358.3,35965,2)
 ;;=^5012907
 ;;^UTILITY(U,$J,358.3,35966,0)
 ;;=M66.232^^139^1829^67
 ;;^UTILITY(U,$J,358.3,35966,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35966,1,3,0)
 ;;=3^Spontaneous Rupture Extensor Tendons,Lt Forearm
 ;;^UTILITY(U,$J,358.3,35966,1,4,0)
 ;;=4^M66.232
 ;;^UTILITY(U,$J,358.3,35966,2)
 ;;=^5012855
 ;;^UTILITY(U,$J,358.3,35967,0)
 ;;=M66.242^^139^1829^68
 ;;^UTILITY(U,$J,358.3,35967,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35967,1,3,0)
 ;;=3^Spontaneous Rupture Extensor Tendons,Lt Hand
 ;;^UTILITY(U,$J,358.3,35967,1,4,0)
 ;;=4^M66.242
 ;;^UTILITY(U,$J,358.3,35967,2)
 ;;=^5012858
 ;;^UTILITY(U,$J,358.3,35968,0)
 ;;=M66.231^^139^1829^69
 ;;^UTILITY(U,$J,358.3,35968,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35968,1,3,0)
 ;;=3^Spontaneous Rupture Extensor Tendons,Rt Forearm
 ;;^UTILITY(U,$J,358.3,35968,1,4,0)
 ;;=4^M66.231
 ;;^UTILITY(U,$J,358.3,35968,2)
 ;;=^5012854
 ;;^UTILITY(U,$J,358.3,35969,0)
 ;;=M66.241^^139^1829^70
 ;;^UTILITY(U,$J,358.3,35969,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35969,1,3,0)
 ;;=3^Spontaneous Rupture Extensor Tendons,Rt Hand
 ;;^UTILITY(U,$J,358.3,35969,1,4,0)
 ;;=4^M66.241