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

IBDEI2NM.m

Go to the documentation of this file.
IBDEI2NM ; ; 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,42344,1,4,0)
 ;;=4^S62.357S
 ;;^UTILITY(U,$J,358.3,42344,2)
 ;;=^5034164
 ;;^UTILITY(U,$J,358.3,42345,0)
 ;;=S62.356S^^155^2069^116
 ;;^UTILITY(U,$J,358.3,42345,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42345,1,3,0)
 ;;=3^Nondisp fx of shaft of 5th MC bone, right hand, sequela
 ;;^UTILITY(U,$J,358.3,42345,1,4,0)
 ;;=4^S62.356S
 ;;^UTILITY(U,$J,358.3,42345,2)
 ;;=^5034157
 ;;^UTILITY(U,$J,358.3,42346,0)
 ;;=S62.245S^^155^2069^107
 ;;^UTILITY(U,$J,358.3,42346,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42346,1,3,0)
 ;;=3^Nondisp fx of shaft of 1st MC bone, left hand, sequela
 ;;^UTILITY(U,$J,358.3,42346,1,4,0)
 ;;=4^S62.245S
 ;;^UTILITY(U,$J,358.3,42346,2)
 ;;=^5033702
 ;;^UTILITY(U,$J,358.3,42347,0)
 ;;=S62.244S^^155^2069^108
 ;;^UTILITY(U,$J,358.3,42347,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42347,1,3,0)
 ;;=3^Nondisp fx of shaft of 1st MC bone, right hand, sequela
 ;;^UTILITY(U,$J,358.3,42347,1,4,0)
 ;;=4^S62.244S
 ;;^UTILITY(U,$J,358.3,42347,2)
 ;;=^5033695
 ;;^UTILITY(U,$J,358.3,42348,0)
 ;;=S62.355S^^155^2069^113
 ;;^UTILITY(U,$J,358.3,42348,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42348,1,3,0)
 ;;=3^Nondisp fx of shaft of 4th MC bone, left hand, sequela
 ;;^UTILITY(U,$J,358.3,42348,1,4,0)
 ;;=4^S62.355S
 ;;^UTILITY(U,$J,358.3,42348,2)
 ;;=^5034150
 ;;^UTILITY(U,$J,358.3,42349,0)
 ;;=S62.354S^^155^2069^114
 ;;^UTILITY(U,$J,358.3,42349,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42349,1,3,0)
 ;;=3^Nondisp fx of shaft of 4th MC bone, right hand, sequela
 ;;^UTILITY(U,$J,358.3,42349,1,4,0)
 ;;=4^S62.354S
 ;;^UTILITY(U,$J,358.3,42349,2)
 ;;=^5034143
 ;;^UTILITY(U,$J,358.3,42350,0)
 ;;=S62.351S^^155^2069^109
 ;;^UTILITY(U,$J,358.3,42350,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42350,1,3,0)
 ;;=3^Nondisp fx of shaft of 2nd MC bone, left hand, sequela
 ;;^UTILITY(U,$J,358.3,42350,1,4,0)
 ;;=4^S62.351S
 ;;^UTILITY(U,$J,358.3,42350,2)
 ;;=^5034122
 ;;^UTILITY(U,$J,358.3,42351,0)
 ;;=S62.350S^^155^2069^110
 ;;^UTILITY(U,$J,358.3,42351,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42351,1,3,0)
 ;;=3^Nondisp fx of shaft of 2nd MC bone, right hand, sequela
 ;;^UTILITY(U,$J,358.3,42351,1,4,0)
 ;;=4^S62.350S
 ;;^UTILITY(U,$J,358.3,42351,2)
 ;;=^5034115
 ;;^UTILITY(U,$J,358.3,42352,0)
 ;;=S62.353S^^155^2069^111
 ;;^UTILITY(U,$J,358.3,42352,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42352,1,3,0)
 ;;=3^Nondisp fx of shaft of 3rd MC bone, left hand, sequela
 ;;^UTILITY(U,$J,358.3,42352,1,4,0)
 ;;=4^S62.353S
 ;;^UTILITY(U,$J,358.3,42352,2)
 ;;=^5034136
 ;;^UTILITY(U,$J,358.3,42353,0)
 ;;=S62.352S^^155^2069^112
 ;;^UTILITY(U,$J,358.3,42353,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42353,1,3,0)
 ;;=3^Nondisp fx of shaft of 3rd MC bone, right hand, sequela
 ;;^UTILITY(U,$J,358.3,42353,1,4,0)
 ;;=4^S62.352S
 ;;^UTILITY(U,$J,358.3,42353,2)
 ;;=^5034129
 ;;^UTILITY(U,$J,358.3,42354,0)
 ;;=S62.225S^^155^2069^117
 ;;^UTILITY(U,$J,358.3,42354,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42354,1,3,0)
 ;;=3^Nondisp rolando's fx, left hand, sequela
 ;;^UTILITY(U,$J,358.3,42354,1,4,0)
 ;;=4^S62.225S
 ;;^UTILITY(U,$J,358.3,42354,2)
 ;;=^5033618
 ;;^UTILITY(U,$J,358.3,42355,0)
 ;;=S62.224S^^155^2069^118
 ;;^UTILITY(U,$J,358.3,42355,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42355,1,3,0)
 ;;=3^Nondisp rolando's fx, right hand, sequela
 ;;^UTILITY(U,$J,358.3,42355,1,4,0)
 ;;=4^S62.224S
 ;;^UTILITY(U,$J,358.3,42355,2)
 ;;=^5033611