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

IBDEI29J.m

Go to the documentation of this file.
IBDEI29J ; ; 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,36130,1,3,0)
 ;;=3^Rheumatoid Bursitis,Rt Elbow
 ;;^UTILITY(U,$J,358.3,36130,1,4,0)
 ;;=4^M06.221
 ;;^UTILITY(U,$J,358.3,36130,2)
 ;;=^5010076
 ;;^UTILITY(U,$J,358.3,36131,0)
 ;;=M06.241^^139^1832^44
 ;;^UTILITY(U,$J,358.3,36131,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36131,1,3,0)
 ;;=3^Rheumatoid Bursitis,Rt Hand
 ;;^UTILITY(U,$J,358.3,36131,1,4,0)
 ;;=4^M06.241
 ;;^UTILITY(U,$J,358.3,36131,2)
 ;;=^5010082
 ;;^UTILITY(U,$J,358.3,36132,0)
 ;;=M06.251^^139^1832^45
 ;;^UTILITY(U,$J,358.3,36132,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36132,1,3,0)
 ;;=3^Rheumatoid Bursitis,Rt Hip
 ;;^UTILITY(U,$J,358.3,36132,1,4,0)
 ;;=4^M06.251
 ;;^UTILITY(U,$J,358.3,36132,2)
 ;;=^5010085
 ;;^UTILITY(U,$J,358.3,36133,0)
 ;;=M06.261^^139^1832^46
 ;;^UTILITY(U,$J,358.3,36133,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36133,1,3,0)
 ;;=3^Rheumatoid Bursitis,Rt Knee
 ;;^UTILITY(U,$J,358.3,36133,1,4,0)
 ;;=4^M06.261
 ;;^UTILITY(U,$J,358.3,36133,2)
 ;;=^5010088
 ;;^UTILITY(U,$J,358.3,36134,0)
 ;;=M06.211^^139^1832^47
 ;;^UTILITY(U,$J,358.3,36134,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36134,1,3,0)
 ;;=3^Rheumatoid Bursitis,Rt Shoulder
 ;;^UTILITY(U,$J,358.3,36134,1,4,0)
 ;;=4^M06.211
 ;;^UTILITY(U,$J,358.3,36134,2)
 ;;=^5010073
 ;;^UTILITY(U,$J,358.3,36135,0)
 ;;=M06.231^^139^1832^48
 ;;^UTILITY(U,$J,358.3,36135,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36135,1,3,0)
 ;;=3^Rheumatoid Bursitis,Rt Wrist
 ;;^UTILITY(U,$J,358.3,36135,1,4,0)
 ;;=4^M06.231
 ;;^UTILITY(U,$J,358.3,36135,2)
 ;;=^5010079
 ;;^UTILITY(U,$J,358.3,36136,0)
 ;;=M06.28^^139^1832^49
 ;;^UTILITY(U,$J,358.3,36136,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36136,1,3,0)
 ;;=3^Rheumatoid Bursitis,Vertebrae
 ;;^UTILITY(U,$J,358.3,36136,1,4,0)
 ;;=4^M06.28
 ;;^UTILITY(U,$J,358.3,36136,2)
 ;;=^5010094
 ;;^UTILITY(U,$J,358.3,36137,0)
 ;;=M05.472^^139^1832^50
 ;;^UTILITY(U,$J,358.3,36137,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36137,1,3,0)
 ;;=3^Rheumatoid Myopathy w/ Rheum Arthritis,Lt Ankle/Foot
 ;;^UTILITY(U,$J,358.3,36137,1,4,0)
 ;;=4^M05.472
 ;;^UTILITY(U,$J,358.3,36137,2)
 ;;=^5009951
 ;;^UTILITY(U,$J,358.3,36138,0)
 ;;=M05.422^^139^1832^51
 ;;^UTILITY(U,$J,358.3,36138,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36138,1,3,0)
 ;;=3^Rheumatoid Myopathy w/ Rheum Arthritis,Lt Elbow
 ;;^UTILITY(U,$J,358.3,36138,1,4,0)
 ;;=4^M05.422
 ;;^UTILITY(U,$J,358.3,36138,2)
 ;;=^5009936
 ;;^UTILITY(U,$J,358.3,36139,0)
 ;;=M05.442^^139^1832^52
 ;;^UTILITY(U,$J,358.3,36139,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36139,1,3,0)
 ;;=3^Rheumatoid Myopathy w/ Rheum Arthritis,Lt Hand
 ;;^UTILITY(U,$J,358.3,36139,1,4,0)
 ;;=4^M05.442
 ;;^UTILITY(U,$J,358.3,36139,2)
 ;;=^5009942
 ;;^UTILITY(U,$J,358.3,36140,0)
 ;;=M05.452^^139^1832^53
 ;;^UTILITY(U,$J,358.3,36140,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36140,1,3,0)
 ;;=3^Rheumatoid Myopathy w/ Rheum Arthritis,Lt Hip
 ;;^UTILITY(U,$J,358.3,36140,1,4,0)
 ;;=4^M05.452
 ;;^UTILITY(U,$J,358.3,36140,2)
 ;;=^5009945
 ;;^UTILITY(U,$J,358.3,36141,0)
 ;;=M05.462^^139^1832^54
 ;;^UTILITY(U,$J,358.3,36141,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,36141,1,3,0)
 ;;=3^Rheumatoid Myopathy w/ Rheum Arthritis,Lt Knee
 ;;^UTILITY(U,$J,358.3,36141,1,4,0)
 ;;=4^M05.462
 ;;^UTILITY(U,$J,358.3,36141,2)
 ;;=^5009948
 ;;^UTILITY(U,$J,358.3,36142,0)
 ;;=M05.412^^139^1832^55
 ;;^UTILITY(U,$J,358.3,36142,1,0)
 ;;=^358.31IA^4^2