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

IBDEI17V.m

Go to the documentation of this file.
IBDEI17V ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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,19753,1,3,0)
 ;;=3^Rheumatoid bursitis, right hip
 ;;^UTILITY(U,$J,358.3,19753,1,4,0)
 ;;=4^M06.251
 ;;^UTILITY(U,$J,358.3,19753,2)
 ;;=^5010085
 ;;^UTILITY(U,$J,358.3,19754,0)
 ;;=M06.261^^67^880^159
 ;;^UTILITY(U,$J,358.3,19754,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19754,1,3,0)
 ;;=3^Rheumatoid bursitis, right knee
 ;;^UTILITY(U,$J,358.3,19754,1,4,0)
 ;;=4^M06.261
 ;;^UTILITY(U,$J,358.3,19754,2)
 ;;=^5010088
 ;;^UTILITY(U,$J,358.3,19755,0)
 ;;=M06.211^^67^880^160
 ;;^UTILITY(U,$J,358.3,19755,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19755,1,3,0)
 ;;=3^Rheumatoid bursitis, right shoulder
 ;;^UTILITY(U,$J,358.3,19755,1,4,0)
 ;;=4^M06.211
 ;;^UTILITY(U,$J,358.3,19755,2)
 ;;=^5010073
 ;;^UTILITY(U,$J,358.3,19756,0)
 ;;=M06.231^^67^880^161
 ;;^UTILITY(U,$J,358.3,19756,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19756,1,3,0)
 ;;=3^Rheumatoid bursitis, right wrist
 ;;^UTILITY(U,$J,358.3,19756,1,4,0)
 ;;=4^M06.231
 ;;^UTILITY(U,$J,358.3,19756,2)
 ;;=^5010079
 ;;^UTILITY(U,$J,358.3,19757,0)
 ;;=M06.28^^67^880^162
 ;;^UTILITY(U,$J,358.3,19757,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19757,1,3,0)
 ;;=3^Rheumatoid bursitis, vertebrae
 ;;^UTILITY(U,$J,358.3,19757,1,4,0)
 ;;=4^M06.28
 ;;^UTILITY(U,$J,358.3,19757,2)
 ;;=^5010094
 ;;^UTILITY(U,$J,358.3,19758,0)
 ;;=M05.472^^67^880^120
 ;;^UTILITY(U,$J,358.3,19758,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19758,1,3,0)
 ;;=3^Rheu myopathy w rheu arthrit of left ank/ft   
 ;;^UTILITY(U,$J,358.3,19758,1,4,0)
 ;;=4^M05.472
 ;;^UTILITY(U,$J,358.3,19758,2)
 ;;=^5009951
 ;;^UTILITY(U,$J,358.3,19759,0)
 ;;=M05.422^^67^880^121
 ;;^UTILITY(U,$J,358.3,19759,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19759,1,3,0)
 ;;=3^Rheu myopathy w rheu arthrit of left elbow 
 ;;^UTILITY(U,$J,358.3,19759,1,4,0)
 ;;=4^M05.422
 ;;^UTILITY(U,$J,358.3,19759,2)
 ;;=^5009936
 ;;^UTILITY(U,$J,358.3,19760,0)
 ;;=M05.452^^67^880^122
 ;;^UTILITY(U,$J,358.3,19760,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19760,1,3,0)
 ;;=3^Rheu myopathy w rheu arthrit of left hip   
 ;;^UTILITY(U,$J,358.3,19760,1,4,0)
 ;;=4^M05.452
 ;;^UTILITY(U,$J,358.3,19760,2)
 ;;=^5009945
 ;;^UTILITY(U,$J,358.3,19761,0)
 ;;=M05.462^^67^880^123
 ;;^UTILITY(U,$J,358.3,19761,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19761,1,3,0)
 ;;=3^Rheu myopathy w rheu arthrit of left knee
 ;;^UTILITY(U,$J,358.3,19761,1,4,0)
 ;;=4^M05.462
 ;;^UTILITY(U,$J,358.3,19761,2)
 ;;=^5009948
 ;;^UTILITY(U,$J,358.3,19762,0)
 ;;=M05.412^^67^880^124
 ;;^UTILITY(U,$J,358.3,19762,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19762,1,3,0)
 ;;=3^Rheu myopathy w rheu arthrit of left shoulder 
 ;;^UTILITY(U,$J,358.3,19762,1,4,0)
 ;;=4^M05.412
 ;;^UTILITY(U,$J,358.3,19762,2)
 ;;=^5009933
 ;;^UTILITY(U,$J,358.3,19763,0)
 ;;=M05.432^^67^880^125
 ;;^UTILITY(U,$J,358.3,19763,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19763,1,3,0)
 ;;=3^Rheu myopathy w rheu arthrit of left wrist   
 ;;^UTILITY(U,$J,358.3,19763,1,4,0)
 ;;=4^M05.432
 ;;^UTILITY(U,$J,358.3,19763,2)
 ;;=^5009939
 ;;^UTILITY(U,$J,358.3,19764,0)
 ;;=M05.471^^67^880^127
 ;;^UTILITY(U,$J,358.3,19764,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,19764,1,3,0)
 ;;=3^Rheu myopathy w rheu arthrit of right ank/ft   
 ;;^UTILITY(U,$J,358.3,19764,1,4,0)
 ;;=4^M05.471
 ;;^UTILITY(U,$J,358.3,19764,2)
 ;;=^5009950
 ;;^UTILITY(U,$J,358.3,19765,0)
 ;;=M05.421^^67^880^126
 ;;^UTILITY(U,$J,358.3,19765,1,0)
 ;;=^358.31IA^4^2