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

IBDEI1DG.m

Go to the documentation of this file.
IBDEI1DG ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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,22190,1,3,0)
 ;;=3^SCI T7-T10 Complete Lesion,Sequela
 ;;^UTILITY(U,$J,358.3,22190,1,4,0)
 ;;=4^S24.113S
 ;;^UTILITY(U,$J,358.3,22190,2)
 ;;=^5023293
 ;;^UTILITY(U,$J,358.3,22191,0)
 ;;=S24.114S^^73^957^24
 ;;^UTILITY(U,$J,358.3,22191,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22191,1,3,0)
 ;;=3^SCI T11-T12 Complete Lesion,Sequela
 ;;^UTILITY(U,$J,358.3,22191,1,4,0)
 ;;=4^S24.114S
 ;;^UTILITY(U,$J,358.3,22191,2)
 ;;=^5023296
 ;;^UTILITY(U,$J,358.3,22192,0)
 ;;=S24.131S^^73^957^19
 ;;^UTILITY(U,$J,358.3,22192,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22192,1,3,0)
 ;;=3^SCI T1 Anterior Cord Syndrome,Sequela
 ;;^UTILITY(U,$J,358.3,22192,1,4,0)
 ;;=4^S24.131S
 ;;^UTILITY(U,$J,358.3,22192,2)
 ;;=^5023302
 ;;^UTILITY(U,$J,358.3,22193,0)
 ;;=S24.132S^^73^957^27
 ;;^UTILITY(U,$J,358.3,22193,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22193,1,3,0)
 ;;=3^SCI T2-T6 Anterior Cord Syndrome,Sequela
 ;;^UTILITY(U,$J,358.3,22193,1,4,0)
 ;;=4^S24.132S
 ;;^UTILITY(U,$J,358.3,22193,2)
 ;;=^5023305
 ;;^UTILITY(U,$J,358.3,22194,0)
 ;;=S24.133S^^73^957^31
 ;;^UTILITY(U,$J,358.3,22194,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22194,1,3,0)
 ;;=3^SCI T7-T10 Anterior Cord Syndrome,Sequela
 ;;^UTILITY(U,$J,358.3,22194,1,4,0)
 ;;=4^S24.133S
 ;;^UTILITY(U,$J,358.3,22194,2)
 ;;=^5023308
 ;;^UTILITY(U,$J,358.3,22195,0)
 ;;=S24.134S^^73^957^23
 ;;^UTILITY(U,$J,358.3,22195,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22195,1,3,0)
 ;;=3^SCI T11-T12 Anterior Cord Syndrome,Sequela
 ;;^UTILITY(U,$J,358.3,22195,1,4,0)
 ;;=4^S24.134S
 ;;^UTILITY(U,$J,358.3,22195,2)
 ;;=^5023311
 ;;^UTILITY(U,$J,358.3,22196,0)
 ;;=S24.151S^^73^957^21
 ;;^UTILITY(U,$J,358.3,22196,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22196,1,3,0)
 ;;=3^SCI T1 Other Incomplete Lesion,Sequela
 ;;^UTILITY(U,$J,358.3,22196,1,4,0)
 ;;=4^S24.151S
 ;;^UTILITY(U,$J,358.3,22196,2)
 ;;=^5023332
 ;;^UTILITY(U,$J,358.3,22197,0)
 ;;=S24.152S^^73^957^29
 ;;^UTILITY(U,$J,358.3,22197,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22197,1,3,0)
 ;;=3^SCI T2-T6 Other Incomplete Lesion,Sequela
 ;;^UTILITY(U,$J,358.3,22197,1,4,0)
 ;;=4^S24.152S
 ;;^UTILITY(U,$J,358.3,22197,2)
 ;;=^5023335
 ;;^UTILITY(U,$J,358.3,22198,0)
 ;;=S24.153S^^73^957^33
 ;;^UTILITY(U,$J,358.3,22198,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22198,1,3,0)
 ;;=3^SCI T7-T10 Other Incomplete Lesion,Sequela
 ;;^UTILITY(U,$J,358.3,22198,1,4,0)
 ;;=4^S24.153S
 ;;^UTILITY(U,$J,358.3,22198,2)
 ;;=^5023338
 ;;^UTILITY(U,$J,358.3,22199,0)
 ;;=S24.154S^^73^957^25
 ;;^UTILITY(U,$J,358.3,22199,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22199,1,3,0)
 ;;=3^SCI T11-T12 Other Incomplete Lesion,Sequela
 ;;^UTILITY(U,$J,358.3,22199,1,4,0)
 ;;=4^S24.154S
 ;;^UTILITY(U,$J,358.3,22199,2)
 ;;=^5023341
 ;;^UTILITY(U,$J,358.3,22200,0)
 ;;=S24.101S^^73^957^22
 ;;^UTILITY(U,$J,358.3,22200,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22200,1,3,0)
 ;;=3^SCI T1 Unspec Injury,Sequela
 ;;^UTILITY(U,$J,358.3,22200,1,4,0)
 ;;=4^S24.101S
 ;;^UTILITY(U,$J,358.3,22200,2)
 ;;=^5023275
 ;;^UTILITY(U,$J,358.3,22201,0)
 ;;=S24.102S^^73^957^30
 ;;^UTILITY(U,$J,358.3,22201,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,22201,1,3,0)
 ;;=3^SCI T2-T6 Unspec Injury,Sequela
 ;;^UTILITY(U,$J,358.3,22201,1,4,0)
 ;;=4^S24.102S
 ;;^UTILITY(U,$J,358.3,22201,2)
 ;;=^5023278
 ;;^UTILITY(U,$J,358.3,22202,0)
 ;;=S24.103S^^73^957^34
 ;;^UTILITY(U,$J,358.3,22202,1,0)
 ;;=^358.31IA^4^2