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

IBDEI27I.m

Go to the documentation of this file.
IBDEI27I ; ; 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,35237,2)
 ;;=^5011274
 ;;^UTILITY(U,$J,358.3,35238,0)
 ;;=M23.8X1^^137^1799^28
 ;;^UTILITY(U,$J,358.3,35238,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35238,1,3,0)
 ;;=3^Internal Derangement,Rt Knee NEC
 ;;^UTILITY(U,$J,358.3,35238,1,4,0)
 ;;=4^M23.8X1
 ;;^UTILITY(U,$J,358.3,35238,2)
 ;;=^5011273
 ;;^UTILITY(U,$J,358.3,35239,0)
 ;;=M62.838^^137^1799^43
 ;;^UTILITY(U,$J,358.3,35239,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35239,1,3,0)
 ;;=3^Muscle spasm NEC
 ;;^UTILITY(U,$J,358.3,35239,1,4,0)
 ;;=4^M62.838
 ;;^UTILITY(U,$J,358.3,35239,2)
 ;;=^5012682
 ;;^UTILITY(U,$J,358.3,35240,0)
 ;;=M76.52^^137^1799^57
 ;;^UTILITY(U,$J,358.3,35240,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35240,1,3,0)
 ;;=3^Patellar Tendinitis,Lt Knee
 ;;^UTILITY(U,$J,358.3,35240,1,4,0)
 ;;=4^M76.52
 ;;^UTILITY(U,$J,358.3,35240,2)
 ;;=^5013283
 ;;^UTILITY(U,$J,358.3,35241,0)
 ;;=M76.51^^137^1799^58
 ;;^UTILITY(U,$J,358.3,35241,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35241,1,3,0)
 ;;=3^Patellar Tendinitis,Rt Knee
 ;;^UTILITY(U,$J,358.3,35241,1,4,0)
 ;;=4^M76.51
 ;;^UTILITY(U,$J,358.3,35241,2)
 ;;=^5013282
 ;;^UTILITY(U,$J,358.3,35242,0)
 ;;=M65.4^^137^1799^59
 ;;^UTILITY(U,$J,358.3,35242,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35242,1,3,0)
 ;;=3^Radial Styloid Tenosynovitis
 ;;^UTILITY(U,$J,358.3,35242,1,4,0)
 ;;=4^M65.4
 ;;^UTILITY(U,$J,358.3,35242,2)
 ;;=^5012792
 ;;^UTILITY(U,$J,358.3,35243,0)
 ;;=M75.102^^137^1799^62
 ;;^UTILITY(U,$J,358.3,35243,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35243,1,3,0)
 ;;=3^Rotator-Cuff Tear/Rupture,Lt Shoulder,Unspec
 ;;^UTILITY(U,$J,358.3,35243,1,4,0)
 ;;=4^M75.102
 ;;^UTILITY(U,$J,358.3,35243,2)
 ;;=^5013243
 ;;^UTILITY(U,$J,358.3,35244,0)
 ;;=M75.101^^137^1799^63
 ;;^UTILITY(U,$J,358.3,35244,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35244,1,3,0)
 ;;=3^Rotator-Cuff Tear/Rupture,Rt Shoulder,Unspec
 ;;^UTILITY(U,$J,358.3,35244,1,4,0)
 ;;=4^M75.101
 ;;^UTILITY(U,$J,358.3,35244,2)
 ;;=^5013242
 ;;^UTILITY(U,$J,358.3,35245,0)
 ;;=M67.02^^137^1799^65
 ;;^UTILITY(U,$J,358.3,35245,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35245,1,3,0)
 ;;=3^Short Achilles Tendon,Lt Ankle
 ;;^UTILITY(U,$J,358.3,35245,1,4,0)
 ;;=4^M67.02
 ;;^UTILITY(U,$J,358.3,35245,2)
 ;;=^5012907
 ;;^UTILITY(U,$J,358.3,35246,0)
 ;;=M66.232^^137^1799^67
 ;;^UTILITY(U,$J,358.3,35246,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35246,1,3,0)
 ;;=3^Spontaneous Rupture Extensor Tendons,Lt Forearm
 ;;^UTILITY(U,$J,358.3,35246,1,4,0)
 ;;=4^M66.232
 ;;^UTILITY(U,$J,358.3,35246,2)
 ;;=^5012855
 ;;^UTILITY(U,$J,358.3,35247,0)
 ;;=M66.242^^137^1799^68
 ;;^UTILITY(U,$J,358.3,35247,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35247,1,3,0)
 ;;=3^Spontaneous Rupture Extensor Tendons,Lt Hand
 ;;^UTILITY(U,$J,358.3,35247,1,4,0)
 ;;=4^M66.242
 ;;^UTILITY(U,$J,358.3,35247,2)
 ;;=^5012858
 ;;^UTILITY(U,$J,358.3,35248,0)
 ;;=M66.231^^137^1799^69
 ;;^UTILITY(U,$J,358.3,35248,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35248,1,3,0)
 ;;=3^Spontaneous Rupture Extensor Tendons,Rt Forearm
 ;;^UTILITY(U,$J,358.3,35248,1,4,0)
 ;;=4^M66.231
 ;;^UTILITY(U,$J,358.3,35248,2)
 ;;=^5012854
 ;;^UTILITY(U,$J,358.3,35249,0)
 ;;=M66.241^^137^1799^70
 ;;^UTILITY(U,$J,358.3,35249,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35249,1,3,0)
 ;;=3^Spontaneous Rupture Extensor Tendons,Rt Hand
 ;;^UTILITY(U,$J,358.3,35249,1,4,0)
 ;;=4^M66.241