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

IBDEI27B.m

Go to the documentation of this file.
IBDEI27B ; ; 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,35152,1,3,0)
 ;;=3^Fx,Right forearm, sequela
 ;;^UTILITY(U,$J,358.3,35152,1,4,0)
 ;;=4^S52.91XS
 ;;^UTILITY(U,$J,358.3,35152,2)
 ;;=^5031173
 ;;^UTILITY(U,$J,358.3,35153,0)
 ;;=S82.91XS^^137^1797^25
 ;;^UTILITY(U,$J,358.3,35153,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35153,1,3,0)
 ;;=3^Fx,Right lower leg, sequela
 ;;^UTILITY(U,$J,358.3,35153,1,4,0)
 ;;=4^S82.91XS
 ;;^UTILITY(U,$J,358.3,35153,2)
 ;;=^5136991
 ;;^UTILITY(U,$J,358.3,35154,0)
 ;;=S82.001S^^137^1797^26
 ;;^UTILITY(U,$J,358.3,35154,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35154,1,3,0)
 ;;=3^Fx,Right patella, sequela
 ;;^UTILITY(U,$J,358.3,35154,1,4,0)
 ;;=4^S82.001S
 ;;^UTILITY(U,$J,358.3,35154,2)
 ;;=^5040119
 ;;^UTILITY(U,$J,358.3,35155,0)
 ;;=S92.911S^^137^1797^28
 ;;^UTILITY(U,$J,358.3,35155,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35155,1,3,0)
 ;;=3^Fx,Right toe(s), sequela
 ;;^UTILITY(U,$J,358.3,35155,1,4,0)
 ;;=4^S92.911S
 ;;^UTILITY(U,$J,358.3,35155,2)
 ;;=^5045598
 ;;^UTILITY(U,$J,358.3,35156,0)
 ;;=S62.91XS^^137^1797^29
 ;;^UTILITY(U,$J,358.3,35156,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35156,1,3,0)
 ;;=3^Fx,Right wrist and hand, sequela
 ;;^UTILITY(U,$J,358.3,35156,1,4,0)
 ;;=4^S62.91XS
 ;;^UTILITY(U,$J,358.3,35156,2)
 ;;=^5034885
 ;;^UTILITY(U,$J,358.3,35157,0)
 ;;=S42.302S^^137^1797^30
 ;;^UTILITY(U,$J,358.3,35157,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35157,1,3,0)
 ;;=3^Fx,Shaft of humerus, left arm, sequela
 ;;^UTILITY(U,$J,358.3,35157,1,4,0)
 ;;=4^S42.302S
 ;;^UTILITY(U,$J,358.3,35157,2)
 ;;=^5027044
 ;;^UTILITY(U,$J,358.3,35158,0)
 ;;=S42.301S^^137^1797^31
 ;;^UTILITY(U,$J,358.3,35158,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35158,1,3,0)
 ;;=3^Fx,Shaft of humerus, right arm, sequela
 ;;^UTILITY(U,$J,358.3,35158,1,4,0)
 ;;=4^S42.301S
 ;;^UTILITY(U,$J,358.3,35158,2)
 ;;=^5027037
 ;;^UTILITY(U,$J,358.3,35159,0)
 ;;=S42.202S^^137^1797^33
 ;;^UTILITY(U,$J,358.3,35159,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35159,1,3,0)
 ;;=3^Fx,Upper end of left humerus, sequela
 ;;^UTILITY(U,$J,358.3,35159,1,4,0)
 ;;=4^S42.202S
 ;;^UTILITY(U,$J,358.3,35159,2)
 ;;=^5026774
 ;;^UTILITY(U,$J,358.3,35160,0)
 ;;=S42.201S^^137^1797^34
 ;;^UTILITY(U,$J,358.3,35160,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35160,1,3,0)
 ;;=3^Fx,Upper end of right humerus, sequela
 ;;^UTILITY(U,$J,358.3,35160,1,4,0)
 ;;=4^S42.201S
 ;;^UTILITY(U,$J,358.3,35160,2)
 ;;=^5026767
 ;;^UTILITY(U,$J,358.3,35161,0)
 ;;=S79.002S^^137^1797^42
 ;;^UTILITY(U,$J,358.3,35161,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35161,1,3,0)
 ;;=3^Physeal fracture of upper end of left femur, sequela
 ;;^UTILITY(U,$J,358.3,35161,1,4,0)
 ;;=4^S79.002S
 ;;^UTILITY(U,$J,358.3,35161,2)
 ;;=^5039767
 ;;^UTILITY(U,$J,358.3,35162,0)
 ;;=S79.001S^^137^1797^43
 ;;^UTILITY(U,$J,358.3,35162,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35162,1,3,0)
 ;;=3^Physeal fracture of upper end of right femur, sequela
 ;;^UTILITY(U,$J,358.3,35162,1,4,0)
 ;;=4^S79.001S
 ;;^UTILITY(U,$J,358.3,35162,2)
 ;;=^5039761
 ;;^UTILITY(U,$J,358.3,35163,0)
 ;;=Z87.81^^137^1797^41
 ;;^UTILITY(U,$J,358.3,35163,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,35163,1,3,0)
 ;;=3^Personal Hx of Traumatic Fx
 ;;^UTILITY(U,$J,358.3,35163,1,4,0)
 ;;=4^Z87.81
 ;;^UTILITY(U,$J,358.3,35163,2)
 ;;=^5063513
 ;;^UTILITY(U,$J,358.3,35164,0)
 ;;=S02.42XS^^137^1797^1
 ;;^UTILITY(U,$J,358.3,35164,1,0)
 ;;=^358.31IA^4^2