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

IBDEI23B.m

Go to the documentation of this file.
IBDEI23B ; ; 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,33414,1,4,0)
 ;;=4^M25.371
 ;;^UTILITY(U,$J,358.3,33414,2)
 ;;=^5011569
 ;;^UTILITY(U,$J,358.3,33415,0)
 ;;=M25.572^^132^1701^29
 ;;^UTILITY(U,$J,358.3,33415,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33415,1,3,0)
 ;;=3^Pain in left ankle & joint of left foot
 ;;^UTILITY(U,$J,358.3,33415,1,4,0)
 ;;=4^M25.572
 ;;^UTILITY(U,$J,358.3,33415,2)
 ;;=^5011618
 ;;^UTILITY(U,$J,358.3,33416,0)
 ;;=M76.72^^132^1701^31
 ;;^UTILITY(U,$J,358.3,33416,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33416,1,3,0)
 ;;=3^Peroneal tendinitis, left leg
 ;;^UTILITY(U,$J,358.3,33416,1,4,0)
 ;;=4^M76.72
 ;;^UTILITY(U,$J,358.3,33416,2)
 ;;=^5013289
 ;;^UTILITY(U,$J,358.3,33417,0)
 ;;=M76.71^^132^1701^32
 ;;^UTILITY(U,$J,358.3,33417,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33417,1,3,0)
 ;;=3^Peroneal tendinitis, right leg
 ;;^UTILITY(U,$J,358.3,33417,1,4,0)
 ;;=4^M76.71
 ;;^UTILITY(U,$J,358.3,33417,2)
 ;;=^5013288
 ;;^UTILITY(U,$J,358.3,33418,0)
 ;;=M19.072^^132^1701^37
 ;;^UTILITY(U,$J,358.3,33418,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33418,1,3,0)
 ;;=3^Primary osteoarthritis, left ankle and foot
 ;;^UTILITY(U,$J,358.3,33418,1,4,0)
 ;;=4^M19.072
 ;;^UTILITY(U,$J,358.3,33418,2)
 ;;=^5010821
 ;;^UTILITY(U,$J,358.3,33419,0)
 ;;=M76.822^^132^1701^35
 ;;^UTILITY(U,$J,358.3,33419,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33419,1,3,0)
 ;;=3^Posterior tibial tendinitis, left leg
 ;;^UTILITY(U,$J,358.3,33419,1,4,0)
 ;;=4^M76.822
 ;;^UTILITY(U,$J,358.3,33419,2)
 ;;=^5013294
 ;;^UTILITY(U,$J,358.3,33420,0)
 ;;=M76.821^^132^1701^36
 ;;^UTILITY(U,$J,358.3,33420,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33420,1,3,0)
 ;;=3^Posterior tibial tendinitis, right leg
 ;;^UTILITY(U,$J,358.3,33420,1,4,0)
 ;;=4^M76.821
 ;;^UTILITY(U,$J,358.3,33420,2)
 ;;=^5013293
 ;;^UTILITY(U,$J,358.3,33421,0)
 ;;=M19.071^^132^1701^38
 ;;^UTILITY(U,$J,358.3,33421,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33421,1,3,0)
 ;;=3^Primary osteoarthritis, right ankle and foot
 ;;^UTILITY(U,$J,358.3,33421,1,4,0)
 ;;=4^M19.071
 ;;^UTILITY(U,$J,358.3,33421,2)
 ;;=^5010820
 ;;^UTILITY(U,$J,358.3,33422,0)
 ;;=M66.361^^132^1701^39
 ;;^UTILITY(U,$J,358.3,33422,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33422,1,3,0)
 ;;=3^Spontaneous rupture of flexor tendons, right lower leg
 ;;^UTILITY(U,$J,358.3,33422,1,4,0)
 ;;=4^M66.361
 ;;^UTILITY(U,$J,358.3,33422,2)
 ;;=^5012887
 ;;^UTILITY(U,$J,358.3,33423,0)
 ;;=M66.362^^132^1701^40
 ;;^UTILITY(U,$J,358.3,33423,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33423,1,3,0)
 ;;=3^Spontaneous rupture of flexor tendons, left lower leg
 ;;^UTILITY(U,$J,358.3,33423,1,4,0)
 ;;=4^M66.362
 ;;^UTILITY(U,$J,358.3,33423,2)
 ;;=^5012888
 ;;^UTILITY(U,$J,358.3,33424,0)
 ;;=S93.401A^^132^1701^44
 ;;^UTILITY(U,$J,358.3,33424,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33424,1,3,0)
 ;;=3^Sprain of unspecified ligament of right ankle, init encntr
 ;;^UTILITY(U,$J,358.3,33424,1,4,0)
 ;;=4^S93.401A
 ;;^UTILITY(U,$J,358.3,33424,2)
 ;;=^5045774
 ;;^UTILITY(U,$J,358.3,33425,0)
 ;;=S93.402A^^132^1701^43
 ;;^UTILITY(U,$J,358.3,33425,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33425,1,3,0)
 ;;=3^Sprain of unspecified ligament of left ankle, init encntr
 ;;^UTILITY(U,$J,358.3,33425,1,4,0)
 ;;=4^S93.402A
 ;;^UTILITY(U,$J,358.3,33425,2)
 ;;=^5045777
 ;;^UTILITY(U,$J,358.3,33426,0)
 ;;=M12.572^^132^1701^45
 ;;^UTILITY(U,$J,358.3,33426,1,0)
 ;;=^358.31IA^4^2