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

IBDEI2OI.m

Go to the documentation of this file.
IBDEI2OI ; ; 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,42705,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42705,1,3,0)
 ;;=3^Torus fracture of upper end of left fibula, sequela
 ;;^UTILITY(U,$J,358.3,42705,1,4,0)
 ;;=4^S82.812S
 ;;^UTILITY(U,$J,358.3,42705,2)
 ;;=^5042418
 ;;^UTILITY(U,$J,358.3,42706,0)
 ;;=S82.811S^^155^2072^113
 ;;^UTILITY(U,$J,358.3,42706,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42706,1,3,0)
 ;;=3^Torus fracture of upper end of right fibula, sequela
 ;;^UTILITY(U,$J,358.3,42706,1,4,0)
 ;;=4^S82.811S
 ;;^UTILITY(U,$J,358.3,42706,2)
 ;;=^5042412
 ;;^UTILITY(U,$J,358.3,42707,0)
 ;;=S82.865S^^155^2072^37
 ;;^UTILITY(U,$J,358.3,42707,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42707,1,3,0)
 ;;=3^Nondisp Maisonneuve's fx of left leg, sequela   
 ;;^UTILITY(U,$J,358.3,42707,1,4,0)
 ;;=4^S82.865S
 ;;^UTILITY(U,$J,358.3,42707,2)
 ;;=^5042750
 ;;^UTILITY(U,$J,358.3,42708,0)
 ;;=S82.864S^^155^2072^38
 ;;^UTILITY(U,$J,358.3,42708,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42708,1,3,0)
 ;;=3^Nondisp Maisonneuve's fx of right leg, sequela   
 ;;^UTILITY(U,$J,358.3,42708,1,4,0)
 ;;=4^S82.864S
 ;;^UTILITY(U,$J,358.3,42708,2)
 ;;=^5042734
 ;;^UTILITY(U,$J,358.3,42709,0)
 ;;=S12.44XS^^155^2073^50
 ;;^UTILITY(U,$J,358.3,42709,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42709,1,3,0)
 ;;=3^Type 3 traum spondylolysis of fifth cervcal vert, sequela
 ;;^UTILITY(U,$J,358.3,42709,1,4,0)
 ;;=4^S12.44XS
 ;;^UTILITY(U,$J,358.3,42709,2)
 ;;=^5021826
 ;;^UTILITY(U,$J,358.3,42710,0)
 ;;=S12.34XS^^155^2073^51
 ;;^UTILITY(U,$J,358.3,42710,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42710,1,3,0)
 ;;=3^Type 3 traum spondylolysis of fourth cervcal vert, sequela
 ;;^UTILITY(U,$J,358.3,42710,1,4,0)
 ;;=4^S12.34XS
 ;;^UTILITY(U,$J,358.3,42710,2)
 ;;=^5021772
 ;;^UTILITY(U,$J,358.3,42711,0)
 ;;=S12.14XS^^155^2073^52
 ;;^UTILITY(U,$J,358.3,42711,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42711,1,3,0)
 ;;=3^Type 3 traum spondylolysis of second cervcal vert, sequela
 ;;^UTILITY(U,$J,358.3,42711,1,4,0)
 ;;=4^S12.14XS
 ;;^UTILITY(U,$J,358.3,42711,2)
 ;;=^5021664
 ;;^UTILITY(U,$J,358.3,42712,0)
 ;;=S12.64XS^^155^2073^53
 ;;^UTILITY(U,$J,358.3,42712,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42712,1,3,0)
 ;;=3^Type 3 traum spondylolysis of seventh cervcal vert, sqla
 ;;^UTILITY(U,$J,358.3,42712,1,4,0)
 ;;=4^S12.64XS
 ;;^UTILITY(U,$J,358.3,42712,2)
 ;;=^5021934
 ;;^UTILITY(U,$J,358.3,42713,0)
 ;;=S12.54XS^^155^2073^54
 ;;^UTILITY(U,$J,358.3,42713,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42713,1,3,0)
 ;;=3^Type 3 traum spondylolysis of sixth cervcal vert, sequela
 ;;^UTILITY(U,$J,358.3,42713,1,4,0)
 ;;=4^S12.54XS
 ;;^UTILITY(U,$J,358.3,42713,2)
 ;;=^5021880
 ;;^UTILITY(U,$J,358.3,42714,0)
 ;;=S12.24XS^^155^2073^55
 ;;^UTILITY(U,$J,358.3,42714,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42714,1,3,0)
 ;;=3^Type 3 traum spondylolysis of third cervcal vert, sequela
 ;;^UTILITY(U,$J,358.3,42714,1,4,0)
 ;;=4^S12.24XS
 ;;^UTILITY(U,$J,358.3,42714,2)
 ;;=^5021718
 ;;^UTILITY(U,$J,358.3,42715,0)
 ;;=S32.052S^^155^2073^61
 ;;^UTILITY(U,$J,358.3,42715,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42715,1,3,0)
 ;;=3^Unstable burst fracture of fifth lumbar vertebra, sequela
 ;;^UTILITY(U,$J,358.3,42715,1,4,0)
 ;;=4^S32.052S
 ;;^UTILITY(U,$J,358.3,42715,2)
 ;;=^5024508
 ;;^UTILITY(U,$J,358.3,42716,0)
 ;;=S12.02XS^^155^2073^62
 ;;^UTILITY(U,$J,358.3,42716,1,0)
 ;;=^358.31IA^4^2