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

IBDEI24A.m

Go to the documentation of this file.
IBDEI24A ; ; 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,33825,1,4,0)
 ;;=4^M75.112
 ;;^UTILITY(U,$J,358.3,33825,2)
 ;;=^5013246
 ;;^UTILITY(U,$J,358.3,33826,0)
 ;;=M75.111^^132^1712^32
 ;;^UTILITY(U,$J,358.3,33826,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33826,1,3,0)
 ;;=3^Incomplete rotatr-cuff tear/ruptr of r shoulder, not trauma
 ;;^UTILITY(U,$J,358.3,33826,1,4,0)
 ;;=4^M75.111
 ;;^UTILITY(U,$J,358.3,33826,2)
 ;;=^5013245
 ;;^UTILITY(U,$J,358.3,33827,0)
 ;;=M25.512^^132^1712^33
 ;;^UTILITY(U,$J,358.3,33827,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33827,1,3,0)
 ;;=3^Pain in left shoulder
 ;;^UTILITY(U,$J,358.3,33827,1,4,0)
 ;;=4^M25.512
 ;;^UTILITY(U,$J,358.3,33827,2)
 ;;=^5011603
 ;;^UTILITY(U,$J,358.3,33828,0)
 ;;=M25.511^^132^1712^34
 ;;^UTILITY(U,$J,358.3,33828,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33828,1,3,0)
 ;;=3^Pain in right shoulder
 ;;^UTILITY(U,$J,358.3,33828,1,4,0)
 ;;=4^M25.511
 ;;^UTILITY(U,$J,358.3,33828,2)
 ;;=^5011602
 ;;^UTILITY(U,$J,358.3,33829,0)
 ;;=S43.025A^^132^1712^37
 ;;^UTILITY(U,$J,358.3,33829,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33829,1,3,0)
 ;;=3^Posterior dislocation of left humerus, initial encounter
 ;;^UTILITY(U,$J,358.3,33829,1,4,0)
 ;;=4^S43.025A
 ;;^UTILITY(U,$J,358.3,33829,2)
 ;;=^5027699
 ;;^UTILITY(U,$J,358.3,33830,0)
 ;;=S43.024A^^132^1712^39
 ;;^UTILITY(U,$J,358.3,33830,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33830,1,3,0)
 ;;=3^Posterior dislocation of right humerus, initial encounter
 ;;^UTILITY(U,$J,358.3,33830,1,4,0)
 ;;=4^S43.024A
 ;;^UTILITY(U,$J,358.3,33830,2)
 ;;=^5027696
 ;;^UTILITY(U,$J,358.3,33831,0)
 ;;=M19.012^^132^1712^41
 ;;^UTILITY(U,$J,358.3,33831,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33831,1,3,0)
 ;;=3^Primary osteoarthritis, left shoulder
 ;;^UTILITY(U,$J,358.3,33831,1,4,0)
 ;;=4^M19.012
 ;;^UTILITY(U,$J,358.3,33831,2)
 ;;=^5010809
 ;;^UTILITY(U,$J,358.3,33832,0)
 ;;=M19.011^^132^1712^42
 ;;^UTILITY(U,$J,358.3,33832,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33832,1,3,0)
 ;;=3^Primary osteoarthritis, right shoulder
 ;;^UTILITY(U,$J,358.3,33832,1,4,0)
 ;;=4^M19.011
 ;;^UTILITY(U,$J,358.3,33832,2)
 ;;=^5010808
 ;;^UTILITY(U,$J,358.3,33833,0)
 ;;=M24.412^^132^1712^43
 ;;^UTILITY(U,$J,358.3,33833,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33833,1,3,0)
 ;;=3^Recurrent dislocation, left shoulder
 ;;^UTILITY(U,$J,358.3,33833,1,4,0)
 ;;=4^M24.412
 ;;^UTILITY(U,$J,358.3,33833,2)
 ;;=^5011372
 ;;^UTILITY(U,$J,358.3,33834,0)
 ;;=M24.411^^132^1712^44
 ;;^UTILITY(U,$J,358.3,33834,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33834,1,3,0)
 ;;=3^Recurrent dislocation, right shoulder
 ;;^UTILITY(U,$J,358.3,33834,1,4,0)
 ;;=4^M24.411
 ;;^UTILITY(U,$J,358.3,33834,2)
 ;;=^5011371
 ;;^UTILITY(U,$J,358.3,33835,0)
 ;;=M75.122^^132^1712^45
 ;;^UTILITY(U,$J,358.3,33835,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33835,1,3,0)
 ;;=3^Rotatr-cuff tear/ruptr of left shoulder, not trauma, complete
 ;;^UTILITY(U,$J,358.3,33835,1,4,0)
 ;;=4^M75.122
 ;;^UTILITY(U,$J,358.3,33835,2)
 ;;=^5013249
 ;;^UTILITY(U,$J,358.3,33836,0)
 ;;=M75.121^^132^1712^46
 ;;^UTILITY(U,$J,358.3,33836,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,33836,1,3,0)
 ;;=3^Rotatr-cuff tear/ruptr of r shoulder, not trauma, complete
 ;;^UTILITY(U,$J,358.3,33836,1,4,0)
 ;;=4^M75.121
 ;;^UTILITY(U,$J,358.3,33836,2)
 ;;=^5013248
 ;;^UTILITY(U,$J,358.3,33837,0)
 ;;=M12.512^^132^1712^49
 ;;^UTILITY(U,$J,358.3,33837,1,0)
 ;;=^358.31IA^4^2