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

IBDEI2N3.m

Go to the documentation of this file.
IBDEI2N3 ; ; 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,42127,1,4,0)
 ;;=4^S72.442S
 ;;^UTILITY(U,$J,358.3,42127,2)
 ;;=^5136242
 ;;^UTILITY(U,$J,358.3,42128,0)
 ;;=S72.444S^^155^2067^77
 ;;^UTILITY(U,$J,358.3,42128,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42128,1,3,0)
 ;;=3^Nondisp lower epiphy fx of right femur, sequela
 ;;^UTILITY(U,$J,358.3,42128,1,4,0)
 ;;=4^S72.444S
 ;;^UTILITY(U,$J,358.3,42128,2)
 ;;=^5038984
 ;;^UTILITY(U,$J,358.3,42129,0)
 ;;=S72.445S^^155^2067^76
 ;;^UTILITY(U,$J,358.3,42129,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42129,1,3,0)
 ;;=3^Nondisp lower epiphy fx of left femur, sequela
 ;;^UTILITY(U,$J,358.3,42129,1,4,0)
 ;;=4^S72.445S
 ;;^UTILITY(U,$J,358.3,42129,2)
 ;;=^5136269
 ;;^UTILITY(U,$J,358.3,42130,0)
 ;;=S72.451S^^155^2067^46
 ;;^UTILITY(U,$J,358.3,42130,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42130,1,3,0)
 ;;=3^Displaced suprcndl fx w/o intrcndl extn lower end r femur, sqla
 ;;^UTILITY(U,$J,358.3,42130,1,4,0)
 ;;=4^S72.451S
 ;;^UTILITY(U,$J,358.3,42130,2)
 ;;=^5039005
 ;;^UTILITY(U,$J,358.3,42131,0)
 ;;=S72.452S^^155^2067^47
 ;;^UTILITY(U,$J,358.3,42131,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42131,1,3,0)
 ;;=3^Displaced suprcndl fx w/o intrcndl extn lower end l femur, sqla
 ;;^UTILITY(U,$J,358.3,42131,1,4,0)
 ;;=4^S72.452S
 ;;^UTILITY(U,$J,358.3,42131,2)
 ;;=^5039021
 ;;^UTILITY(U,$J,358.3,42132,0)
 ;;=S72.454S^^155^2067^95
 ;;^UTILITY(U,$J,358.3,42132,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42132,1,3,0)
 ;;=3^Nondisp suprcndl fx w/o intrcndl extn lower end r femr, sqla
 ;;^UTILITY(U,$J,358.3,42132,1,4,0)
 ;;=4^S72.454S
 ;;^UTILITY(U,$J,358.3,42132,2)
 ;;=^5039053
 ;;^UTILITY(U,$J,358.3,42133,0)
 ;;=S72.455S^^155^2067^96
 ;;^UTILITY(U,$J,358.3,42133,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42133,1,3,0)
 ;;=3^Nondisp suprcndl fx w/o intrcndl extn lower end l femr, sqla
 ;;^UTILITY(U,$J,358.3,42133,1,4,0)
 ;;=4^S72.455S
 ;;^UTILITY(U,$J,358.3,42133,2)
 ;;=^5039069
 ;;^UTILITY(U,$J,358.3,42134,0)
 ;;=S72.461S^^155^2067^44
 ;;^UTILITY(U,$J,358.3,42134,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42134,1,3,0)
 ;;=3^Displaced suprcndl fx w intrcndl extn lower end of r femur, sqla
 ;;^UTILITY(U,$J,358.3,42134,1,4,0)
 ;;=4^S72.461S
 ;;^UTILITY(U,$J,358.3,42134,2)
 ;;=^5039093
 ;;^UTILITY(U,$J,358.3,42135,0)
 ;;=S72.462S^^155^2067^45
 ;;^UTILITY(U,$J,358.3,42135,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42135,1,3,0)
 ;;=3^Displaced suprcndl fx w intrcndl extn lower end of l femur, sqla
 ;;^UTILITY(U,$J,358.3,42135,1,4,0)
 ;;=4^S72.462S
 ;;^UTILITY(U,$J,358.3,42135,2)
 ;;=^5136422
 ;;^UTILITY(U,$J,358.3,42136,0)
 ;;=S72.464S^^155^2067^93
 ;;^UTILITY(U,$J,358.3,42136,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42136,1,3,0)
 ;;=3^Nondisp suprcndl fx w intrcndl extn lower end r femur, sqla
 ;;^UTILITY(U,$J,358.3,42136,1,4,0)
 ;;=4^S72.464S
 ;;^UTILITY(U,$J,358.3,42136,2)
 ;;=^5039106
 ;;^UTILITY(U,$J,358.3,42137,0)
 ;;=S72.465S^^155^2067^94
 ;;^UTILITY(U,$J,358.3,42137,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42137,1,3,0)
 ;;=3^Nondisp suprcndl fx w intrcndl extn lower end l femur, sqla
 ;;^UTILITY(U,$J,358.3,42137,1,4,0)
 ;;=4^S72.465S
 ;;^UTILITY(U,$J,358.3,42137,2)
 ;;=^5136457
 ;;^UTILITY(U,$J,358.3,42138,0)
 ;;=S72.471S^^155^2067^116
 ;;^UTILITY(U,$J,358.3,42138,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42138,1,3,0)
 ;;=3^Torus fracture of lower end of right femur, sequela
 ;;^UTILITY(U,$J,358.3,42138,1,4,0)
 ;;=4^S72.471S