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