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

IBDEI07X.m

Go to the documentation of this file. 
  1. IBDEI07X ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 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,19300,0)
  1.  ;;=99080^^64^789^38^^^^1
  1.  ;;^UTILITY(U,$J,358.3,19300,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,19300,1,2,0)
  1.  ;;=2^Special Reports or Forms
  1.  ;;^UTILITY(U,$J,358.3,19300,1,3,0)
  1.  ;;=3^99080
  1.  ;;^UTILITY(U,$J,358.3,19301,0)
  1.  ;;=29105^^64^789^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,19301,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,19301,1,2,0)
  1.  ;;=2^Apply Long Arm Splint,Static
  1.  ;;^UTILITY(U,$J,358.3,19301,1,3,0)
  1.  ;;=3^29105
  1.  ;;^UTILITY(U,$J,358.3,19302,0)
  1.  ;;=29125^^64^789^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,19302,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,19302,1,2,0)
  1.  ;;=2^Apply Short Arm Splint,Static
  1.  ;;^UTILITY(U,$J,358.3,19302,1,3,0)
  1.  ;;=3^29125
  1.  ;;^UTILITY(U,$J,358.3,19303,0)
  1.  ;;=29126^^64^789^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,19303,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,19303,1,2,0)
  1.  ;;=2^Apply Short Arm Splint,Dynamic
  1.  ;;^UTILITY(U,$J,358.3,19303,1,3,0)
  1.  ;;=3^29126
  1.  ;;^UTILITY(U,$J,358.3,19304,0)
  1.  ;;=29130^^64^789^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,19304,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,19304,1,2,0)
  1.  ;;=2^Apply Finger Splint,Static
  1.  ;;^UTILITY(U,$J,358.3,19304,1,3,0)
  1.  ;;=3^29130
  1.  ;;^UTILITY(U,$J,358.3,19305,0)
  1.  ;;=29131^^64^789^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,19305,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,19305,1,2,0)
  1.  ;;=2^Apply Finger Splint,Dynamic
  1.  ;;^UTILITY(U,$J,358.3,19305,1,3,0)
  1.  ;;=3^29131
  1.  ;;^UTILITY(U,$J,358.3,19306,0)
  1.  ;;=S9451^^64^789^19^^^^1
  1.  ;;^UTILITY(U,$J,358.3,19306,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,19306,1,2,0)
  1.  ;;=2^Exercise Class per Session
  1.  ;;^UTILITY(U,$J,358.3,19306,1,3,0)
  1.  ;;=3^S9451
  1.  ;;^UTILITY(U,$J,358.3,19307,0)
  1.  ;;=97129^^64^789^45^^^^1
  1.  ;;^UTILITY(U,$J,358.3,19307,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,19307,1,2,0)
  1.  ;;=2^Therapy Intrvn Cognitive Func,1st 15 min
  1.  ;;^UTILITY(U,$J,358.3,19307,1,3,0)
  1.  ;;=3^97129
  1.  ;;^UTILITY(U,$J,358.3,19308,0)
  1.  ;;=97130^^64^789^46^^^^1
  1.  ;;^UTILITY(U,$J,358.3,19308,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,19308,1,2,0)
  1.  ;;=2^Therapy Intrvn Cognitive Func,Ea Addl 15 min
  1.  ;;^UTILITY(U,$J,358.3,19308,1,3,0)
  1.  ;;=3^97130
  1.  ;;^UTILITY(U,$J,358.3,19309,0)
  1.  ;;=90912^^64^789^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,19309,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,19309,1,2,0)
  1.  ;;=2^Biofdbk Trng Peri/Uro/Rectal,1st 15 min
  1.  ;;^UTILITY(U,$J,358.3,19309,1,3,0)
  1.  ;;=3^90912
  1.  ;;^UTILITY(U,$J,358.3,19310,0)
  1.  ;;=90913^^64^789^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,19310,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,19310,1,2,0)
  1.  ;;=2^Biofdbk Trng Peri/Uro/Rectal,Ea Addl 15 min
  1.  ;;^UTILITY(U,$J,358.3,19310,1,3,0)
  1.  ;;=3^90913
  1.  ;;^UTILITY(U,$J,358.3,19311,0)
  1.  ;;=S06.0X1A^^65^790^1
  1.  ;;^UTILITY(U,$J,358.3,19311,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19311,1,3,0)
  1.  ;;=3^Concussion w LOC of 30 minutes or less, init
  1.  ;;^UTILITY(U,$J,358.3,19311,1,4,0)
  1.  ;;=4^S06.0X1A
  1.  ;;^UTILITY(U,$J,358.3,19311,2)
  1.  ;;=^5020669
  1.  ;;^UTILITY(U,$J,358.3,19312,0)
  1.  ;;=S06.0X9A^^65^790^2
  1.  ;;^UTILITY(U,$J,358.3,19312,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19312,1,3,0)
  1.  ;;=3^Concussion w LOC of unsp duration, init
  1.  ;;^UTILITY(U,$J,358.3,19312,1,4,0)
  1.  ;;=4^S06.0X9A
  1.  ;;^UTILITY(U,$J,358.3,19312,2)
  1.  ;;=^5020693
  1.  ;;^UTILITY(U,$J,358.3,19313,0)
  1.  ;;=S06.0X0A^^65^790^3
  1.  ;;^UTILITY(U,$J,358.3,19313,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19313,1,3,0)
  1.  ;;=3^Concussion w/o LOC, initial encounter
  1.  ;;^UTILITY(U,$J,358.3,19313,1,4,0)
  1.  ;;=4^S06.0X0A
  1.  ;;^UTILITY(U,$J,358.3,19313,2)
  1.  ;;=^5020666
  1.  ;;^UTILITY(U,$J,358.3,19314,0)
  1.  ;;=Z13.850^^65^790^14
  1.  ;;^UTILITY(U,$J,358.3,19314,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19314,1,3,0)
  1.  ;;=3^TBI Screening
  1.  ;;^UTILITY(U,$J,358.3,19314,1,4,0)
  1.  ;;=4^Z13.850
  1.  ;;^UTILITY(U,$J,358.3,19314,2)
  1.  ;;=^5062717
  1.  ;;^UTILITY(U,$J,358.3,19315,0)
  1.  ;;=Z87.820^^65^790^13
  1.  ;;^UTILITY(U,$J,358.3,19315,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19315,1,3,0)
  1.  ;;=3^Personal history of traumatic brain injury
  1.  ;;^UTILITY(U,$J,358.3,19315,1,4,0)
  1.  ;;=4^Z87.820
  1.  ;;^UTILITY(U,$J,358.3,19315,2)
  1.  ;;=^5063514
  1.  ;;^UTILITY(U,$J,358.3,19316,0)
  1.  ;;=S06.890A^^65^790^11
  1.  ;;^UTILITY(U,$J,358.3,19316,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19316,1,3,0)
  1.  ;;=3^Intcrn inj w/o LOC, init encntr
  1.  ;;^UTILITY(U,$J,358.3,19316,1,4,0)
  1.  ;;=4^S06.890A
  1.  ;;^UTILITY(U,$J,358.3,19316,2)
  1.  ;;=^5021176
  1.  ;;^UTILITY(U,$J,358.3,19317,0)
  1.  ;;=S06.1X5A^^65^790^15
  1.  ;;^UTILITY(U,$J,358.3,19317,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19317,1,3,0)
  1.  ;;=3^Traumatic cerebral edema w LOC >24 hr w ret consc lev, init
  1.  ;;^UTILITY(U,$J,358.3,19317,1,4,0)
  1.  ;;=4^S06.1X5A
  1.  ;;^UTILITY(U,$J,358.3,19317,2)
  1.  ;;=^5020711
  1.  ;;^UTILITY(U,$J,358.3,19318,0)
  1.  ;;=S06.1X6A^^65^790^16
  1.  ;;^UTILITY(U,$J,358.3,19318,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19318,1,3,0)
  1.  ;;=3^Traumatic cerebral edema w LOC >24 hr w/o ret consc w surv, init
  1.  ;;^UTILITY(U,$J,358.3,19318,1,4,0)
  1.  ;;=4^S06.1X6A
  1.  ;;^UTILITY(U,$J,358.3,19318,2)
  1.  ;;=^5020714
  1.  ;;^UTILITY(U,$J,358.3,19319,0)
  1.  ;;=S06.1X3A^^65^790^17
  1.  ;;^UTILITY(U,$J,358.3,19319,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19319,1,3,0)
  1.  ;;=3^Traumatic cerebral edema w LOC of 1-5 hrs 59 min, init
  1.  ;;^UTILITY(U,$J,358.3,19319,1,4,0)
  1.  ;;=4^S06.1X3A
  1.  ;;^UTILITY(U,$J,358.3,19319,2)
  1.  ;;=^5020705
  1.  ;;^UTILITY(U,$J,358.3,19320,0)
  1.  ;;=S06.1X1A^^65^790^18
  1.  ;;^UTILITY(U,$J,358.3,19320,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19320,1,3,0)
  1.  ;;=3^Traumatic cerebral edema w LOC of 30 minutes or less, init
  1.  ;;^UTILITY(U,$J,358.3,19320,1,4,0)
  1.  ;;=4^S06.1X1A
  1.  ;;^UTILITY(U,$J,358.3,19320,2)
  1.  ;;=^5020699
  1.  ;;^UTILITY(U,$J,358.3,19321,0)
  1.  ;;=S06.1X2A^^65^790^19
  1.  ;;^UTILITY(U,$J,358.3,19321,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19321,1,3,0)
  1.  ;;=3^Traumatic cerebral edema w LOC of 31-59 min, init
  1.  ;;^UTILITY(U,$J,358.3,19321,1,4,0)
  1.  ;;=4^S06.1X2A
  1.  ;;^UTILITY(U,$J,358.3,19321,2)
  1.  ;;=^5020702
  1.  ;;^UTILITY(U,$J,358.3,19322,0)
  1.  ;;=S06.1X4A^^65^790^20
  1.  ;;^UTILITY(U,$J,358.3,19322,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19322,1,3,0)
  1.  ;;=3^Traumatic cerebral edema w LOC of 6 hours to 24 hours, init
  1.  ;;^UTILITY(U,$J,358.3,19322,1,4,0)
  1.  ;;=4^S06.1X4A
  1.  ;;^UTILITY(U,$J,358.3,19322,2)
  1.  ;;=^5020708
  1.  ;;^UTILITY(U,$J,358.3,19323,0)
  1.  ;;=S06.1X7A^^65^790^22
  1.  ;;^UTILITY(U,$J,358.3,19323,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19323,1,3,0)
  1.  ;;=3^Traumatic cerebral edema w LOC w death d/t brain inj bf consc, init
  1.  ;;^UTILITY(U,$J,358.3,19323,1,4,0)
  1.  ;;=4^S06.1X7A
  1.  ;;^UTILITY(U,$J,358.3,19323,2)
  1.  ;;=^5020717
  1.  ;;^UTILITY(U,$J,358.3,19324,0)
  1.  ;;=S06.1X8A^^65^790^23
  1.  ;;^UTILITY(U,$J,358.3,19324,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19324,1,3,0)
  1.  ;;=3^Traumatic cerebral edema w LOC w death d/t oth cause bf consc, init
  1.  ;;^UTILITY(U,$J,358.3,19324,1,4,0)
  1.  ;;=4^S06.1X8A
  1.  ;;^UTILITY(U,$J,358.3,19324,2)
  1.  ;;=^5020720
  1.  ;;^UTILITY(U,$J,358.3,19325,0)
  1.  ;;=S06.1X9A^^65^790^21
  1.  ;;^UTILITY(U,$J,358.3,19325,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19325,1,3,0)
  1.  ;;=3^Traumatic cerebral edema w LOC of unsp duration, init
  1.  ;;^UTILITY(U,$J,358.3,19325,1,4,0)
  1.  ;;=4^S06.1X9A
  1.  ;;^UTILITY(U,$J,358.3,19325,2)
  1.  ;;=^5020723
  1.  ;;^UTILITY(U,$J,358.3,19326,0)
  1.  ;;=S06.1X0A^^65^790^24
  1.  ;;^UTILITY(U,$J,358.3,19326,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19326,1,3,0)
  1.  ;;=3^Traumatic cerebral edema w/o LOC, init
  1.  ;;^UTILITY(U,$J,358.3,19326,1,4,0)
  1.  ;;=4^S06.1X0A
  1.  ;;^UTILITY(U,$J,358.3,19326,2)
  1.  ;;=^5020696
  1.  ;;^UTILITY(U,$J,358.3,19327,0)
  1.  ;;=S06.9X5A^^65^790^4
  1.  ;;^UTILITY(U,$J,358.3,19327,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19327,1,3,0)
  1.  ;;=3^Intcrn inj w LOC >24 hr w ret consc lev, init encntr,Unspec
  1.  ;;^UTILITY(U,$J,358.3,19327,1,4,0)
  1.  ;;=4^S06.9X5A
  1.  ;;^UTILITY(U,$J,358.3,19327,2)
  1.  ;;=^5021221
  1.  ;;^UTILITY(U,$J,358.3,19328,0)
  1.  ;;=S06.9X6A^^65^790^5
  1.  ;;^UTILITY(U,$J,358.3,19328,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19328,1,3,0)
  1.  ;;=3^Intcrn inj w LOC >24 hr w/o ret consc w surv, init encntr,Unspec
  1.  ;;^UTILITY(U,$J,358.3,19328,1,4,0)
  1.  ;;=4^S06.9X6A
  1.  ;;^UTILITY(U,$J,358.3,19328,2)
  1.  ;;=^5021224
  1.  ;;^UTILITY(U,$J,358.3,19329,0)
  1.  ;;=S06.9X3A^^65^790^6
  1.  ;;^UTILITY(U,$J,358.3,19329,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19329,1,3,0)
  1.  ;;=3^Intcrn inj w LOC of 1-5 hrs 59 min, init encntr,Unspec
  1.  ;;^UTILITY(U,$J,358.3,19329,1,4,0)
  1.  ;;=4^S06.9X3A
  1.  ;;^UTILITY(U,$J,358.3,19329,2)
  1.  ;;=^5021215
  1.  ;;^UTILITY(U,$J,358.3,19330,0)
  1.  ;;=S06.9X1A^^65^790^7
  1.  ;;^UTILITY(U,$J,358.3,19330,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19330,1,3,0)
  1.  ;;=3^Intcrn inj w LOC of 30 minutes or less, init encntr,Unspec
  1.  ;;^UTILITY(U,$J,358.3,19330,1,4,0)
  1.  ;;=4^S06.9X1A
  1.  ;;^UTILITY(U,$J,358.3,19330,2)
  1.  ;;=^5021209
  1.  ;;^UTILITY(U,$J,358.3,19331,0)
  1.  ;;=S06.9X2A^^65^790^8
  1.  ;;^UTILITY(U,$J,358.3,19331,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19331,1,3,0)
  1.  ;;=3^Intcrn inj w LOC of 31-59 min, init encntr,Unspec
  1.  ;;^UTILITY(U,$J,358.3,19331,1,4,0)
  1.  ;;=4^S06.9X2A
  1.  ;;^UTILITY(U,$J,358.3,19331,2)
  1.  ;;=^5021212
  1.  ;;^UTILITY(U,$J,358.3,19332,0)
  1.  ;;=S06.9X4A^^65^790^9
  1.  ;;^UTILITY(U,$J,358.3,19332,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19332,1,3,0)
  1.  ;;=3^Intcrn inj w LOC of 6 hours to 24 hours, init encntr,Unspec
  1.  ;;^UTILITY(U,$J,358.3,19332,1,4,0)
  1.  ;;=4^S06.9X4A
  1.  ;;^UTILITY(U,$J,358.3,19332,2)
  1.  ;;=^5021218
  1.  ;;^UTILITY(U,$J,358.3,19333,0)
  1.  ;;=S06.9X9A^^65^790^10
  1.  ;;^UTILITY(U,$J,358.3,19333,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19333,1,3,0)
  1.  ;;=3^Intcrn inj w LOC of unsp duration, init encntr,Unspec
  1.  ;;^UTILITY(U,$J,358.3,19333,1,4,0)
  1.  ;;=4^S06.9X9A
  1.  ;;^UTILITY(U,$J,358.3,19333,2)
  1.  ;;=^5021233
  1.  ;;^UTILITY(U,$J,358.3,19334,0)
  1.  ;;=S06.9X0A^^65^790^12
  1.  ;;^UTILITY(U,$J,358.3,19334,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19334,1,3,0)
  1.  ;;=3^Intcrn inj w/o LOC, init encntr,Unspec
  1.  ;;^UTILITY(U,$J,358.3,19334,1,4,0)
  1.  ;;=4^S06.9X0A
  1.  ;;^UTILITY(U,$J,358.3,19334,2)
  1.  ;;=^5021206
  1.  ;;^UTILITY(U,$J,358.3,19335,0)
  1.  ;;=S78.019S^^65^791^4
  1.  ;;^UTILITY(U,$J,358.3,19335,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19335,1,3,0)
  1.  ;;=3^Complete traumatic amputation at unsp hip joint, sequela
  1.  ;;^UTILITY(U,$J,358.3,19335,1,4,0)
  1.  ;;=4^S78.019S
  1.  ;;^UTILITY(U,$J,358.3,19335,2)
  1.  ;;=^5039710
  1.  ;;^UTILITY(U,$J,358.3,19336,0)
  1.  ;;=S68.419S^^65^791^1
  1.  ;;^UTILITY(U,$J,358.3,19336,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19336,1,3,0)
  1.  ;;=3^Complete traumatic amp of unsp hand at wrist level, sequela
  1.  ;;^UTILITY(U,$J,358.3,19336,1,4,0)
  1.  ;;=4^S68.419S
  1.  ;;^UTILITY(U,$J,358.3,19336,2)
  1.  ;;=^5036707
  1.  ;;^UTILITY(U,$J,358.3,19337,0)
  1.  ;;=S88.919S^^65^791^2
  1.  ;;^UTILITY(U,$J,358.3,19337,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19337,1,3,0)
  1.  ;;=3^Complete traumatic amp of unsp low leg, level unsp, sequela
  1.  ;;^UTILITY(U,$J,358.3,19337,1,4,0)
  1.  ;;=4^S88.919S
  1.  ;;^UTILITY(U,$J,358.3,19337,2)
  1.  ;;=^5137219
  1.  ;;^UTILITY(U,$J,358.3,19338,0)
  1.  ;;=S48.919S^^65^791^3
  1.  ;;^UTILITY(U,$J,358.3,19338,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19338,1,3,0)
  1.  ;;=3^Complete traumatic amp of unsp shldr/up arm, level unsp, sequela
  1.  ;;^UTILITY(U,$J,358.3,19338,1,4,0)
  1.  ;;=4^S48.919S
  1.  ;;^UTILITY(U,$J,358.3,19338,2)
  1.  ;;=^5028331
  1.  ;;^UTILITY(U,$J,358.3,19339,0)
  1.  ;;=S14.2XXS^^65^791^6
  1.  ;;^UTILITY(U,$J,358.3,19339,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19339,1,3,0)
  1.  ;;=3^Injury of nerve root of cervical spine, sequela
  1.  ;;^UTILITY(U,$J,358.3,19339,1,4,0)
  1.  ;;=4^S14.2XXS
  1.  ;;^UTILITY(U,$J,358.3,19339,2)
  1.  ;;=^5022204
  1.  ;;^UTILITY(U,$J,358.3,19340,0)
  1.  ;;=S34.21XS^^65^791^7
  1.  ;;^UTILITY(U,$J,358.3,19340,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19340,1,3,0)
  1.  ;;=3^Injury of nerve root of lumbar spine, sequela
  1.  ;;^UTILITY(U,$J,358.3,19340,1,4,0)
  1.  ;;=4^S34.21XS
  1.  ;;^UTILITY(U,$J,358.3,19340,2)
  1.  ;;=^5025252
  1.  ;;^UTILITY(U,$J,358.3,19341,0)
  1.  ;;=S34.22XS^^65^791^8
  1.  ;;^UTILITY(U,$J,358.3,19341,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19341,1,3,0)
  1.  ;;=3^Injury of nerve root of sacral spine, sequela
  1.  ;;^UTILITY(U,$J,358.3,19341,1,4,0)
  1.  ;;=4^S34.22XS
  1.  ;;^UTILITY(U,$J,358.3,19341,2)
  1.  ;;=^5025255
  1.  ;;^UTILITY(U,$J,358.3,19342,0)
  1.  ;;=S24.2XXS^^65^791^9
  1.  ;;^UTILITY(U,$J,358.3,19342,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19342,1,3,0)
  1.  ;;=3^Injury of nerve root of thoracic spine, sequela
  1.  ;;^UTILITY(U,$J,358.3,19342,1,4,0)
  1.  ;;=4^S24.2XXS
  1.  ;;^UTILITY(U,$J,358.3,19342,2)
  1.  ;;=^5023347
  1.  ;;^UTILITY(U,$J,358.3,19343,0)
  1.  ;;=S04.9XXS^^65^791^11
  1.  ;;^UTILITY(U,$J,358.3,19343,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19343,1,3,0)
  1.  ;;=3^Injury of unspec cranial nerve, sequela
  1.  ;;^UTILITY(U,$J,358.3,19343,1,4,0)
  1.  ;;=4^S04.9XXS
  1.  ;;^UTILITY(U,$J,358.3,19343,2)
  1.  ;;=^5020575
  1.  ;;^UTILITY(U,$J,358.3,19344,0)
  1.  ;;=S24.9XXS^^65^791^12
  1.  ;;^UTILITY(U,$J,358.3,19344,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19344,1,3,0)
  1.  ;;=3^Injury of unspec nerve of thorax, sequela
  1.  ;;^UTILITY(U,$J,358.3,19344,1,4,0)
  1.  ;;=4^S24.9XXS
  1.  ;;^UTILITY(U,$J,358.3,19344,2)
  1.  ;;=^5023359
  1.  ;;^UTILITY(U,$J,358.3,19345,0)
  1.  ;;=S34.9XXS^^65^791^18
  1.  ;;^UTILITY(U,$J,358.3,19345,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19345,1,3,0)
  1.  ;;=3^Injury to unspec nerves at abd/low back/pelvis level, sequela
  1.  ;;^UTILITY(U,$J,358.3,19345,1,4,0)
  1.  ;;=4^S34.9XXS
  1.  ;;^UTILITY(U,$J,358.3,19345,2)
  1.  ;;=^5025273
  1.  ;;^UTILITY(U,$J,358.3,19346,0)
  1.  ;;=S14.9XXS^^65^791^13
  1.  ;;^UTILITY(U,$J,358.3,19346,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19346,1,3,0)
  1.  ;;=3^Injury of unspec nerves of neck, sequela
  1.  ;;^UTILITY(U,$J,358.3,19346,1,4,0)
  1.  ;;=4^S14.9XXS
  1.  ;;^UTILITY(U,$J,358.3,19346,2)
  1.  ;;=^5022219
  1.  ;;^UTILITY(U,$J,358.3,19347,0)
  1.  ;;=S58.922S^^65^791^20
  1.  ;;^UTILITY(U,$J,358.3,19347,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19347,1,3,0)
  1.  ;;=3^Partial traumatic amp of l forearm, level unsp, sequela
  1.  ;;^UTILITY(U,$J,358.3,19347,1,4,0)
  1.  ;;=4^S58.922S
  1.  ;;^UTILITY(U,$J,358.3,19347,2)
  1.  ;;=^5031957
  1.  ;;^UTILITY(U,$J,358.3,19348,0)
  1.  ;;=S14.109S^^65^791^15
  1.  ;;^UTILITY(U,$J,358.3,19348,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19348,1,3,0)
  1.  ;;=3^Injury to unsp level of cervical spinal cord unspec, sequela
  1.  ;;^UTILITY(U,$J,358.3,19348,1,4,0)
  1.  ;;=4^S14.109S
  1.  ;;^UTILITY(U,$J,358.3,19348,2)
  1.  ;;=^5134243
  1.  ;;^UTILITY(U,$J,358.3,19349,0)
  1.  ;;=S24.109S^^65^791^17
  1.  ;;^UTILITY(U,$J,358.3,19349,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19349,1,3,0)
  1.  ;;=3^Injury to unsp level of thoracic spinal cord, sequela
  1.  ;;^UTILITY(U,$J,358.3,19349,1,4,0)
  1.  ;;=4^S24.109S
  1.  ;;^UTILITY(U,$J,358.3,19349,2)
  1.  ;;=^5134384
  1.  ;;^UTILITY(U,$J,358.3,19350,0)
  1.  ;;=S34.139S^^65^791^14
  1.  ;;^UTILITY(U,$J,358.3,19350,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19350,1,3,0)
  1.  ;;=3^Injury to sacral spinal cord, sequela
  1.  ;;^UTILITY(U,$J,358.3,19350,1,4,0)
  1.  ;;=4^S34.139S
  1.  ;;^UTILITY(U,$J,358.3,19350,2)
  1.  ;;=^5025249
  1.  ;;^UTILITY(U,$J,358.3,19351,0)
  1.  ;;=S34.109S^^65^791^16
  1.  ;;^UTILITY(U,$J,358.3,19351,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19351,1,3,0)
  1.  ;;=3^Injury to unsp level of lumbar spinal cord, sequela
  1.  ;;^UTILITY(U,$J,358.3,19351,1,4,0)
  1.  ;;=4^S34.109S
  1.  ;;^UTILITY(U,$J,358.3,19351,2)
  1.  ;;=^5134570
  1.  ;;^UTILITY(U,$J,358.3,19352,0)
  1.  ;;=S06.9X9S^^65^791^19
  1.  ;;^UTILITY(U,$J,358.3,19352,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19352,1,3,0)
  1.  ;;=3^Intracranial injury w LOC of unsp duration, sequela
  1.  ;;^UTILITY(U,$J,358.3,19352,1,4,0)
  1.  ;;=4^S06.9X9S
  1.  ;;^UTILITY(U,$J,358.3,19352,2)
  1.  ;;=^5021235
  1.  ;;^UTILITY(U,$J,358.3,19353,0)
  1.  ;;=S15.002A^^65^791^5
  1.  ;;^UTILITY(U,$J,358.3,19353,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19353,1,3,0)
  1.  ;;=3^Injury of left carotid artery, init encntr
  1.  ;;^UTILITY(U,$J,358.3,19353,1,4,0)
  1.  ;;=4^S15.002A
  1.  ;;^UTILITY(U,$J,358.3,19353,2)
  1.  ;;=^5022223
  1.  ;;^UTILITY(U,$J,358.3,19354,0)
  1.  ;;=S15.001A^^65^791^10
  1.  ;;^UTILITY(U,$J,358.3,19354,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19354,1,3,0)
  1.  ;;=3^Injury of right carotid artery, init encntr
  1.  ;;^UTILITY(U,$J,358.3,19354,1,4,0)
  1.  ;;=4^S15.001A
  1.  ;;^UTILITY(U,$J,358.3,19354,2)
  1.  ;;=^5022220
  1.  ;;^UTILITY(U,$J,358.3,19355,0)
  1.  ;;=I69.952^^65^792^12
  1.  ;;^UTILITY(U,$J,358.3,19355,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19355,1,3,0)
  1.  ;;=3^Hemiplagia,Left Dominant Side
  1.  ;;^UTILITY(U,$J,358.3,19355,1,4,0)
  1.  ;;=4^I69.952
  1.  ;;^UTILITY(U,$J,358.3,19355,2)
  1.  ;;=^5133586
  1.  ;;^UTILITY(U,$J,358.3,19356,0)
  1.  ;;=I69.954^^65^792^13
  1.  ;;^UTILITY(U,$J,358.3,19356,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19356,1,3,0)
  1.  ;;=3^Hemiplegia,Left Non-Dominant Side
  1.  ;;^UTILITY(U,$J,358.3,19356,1,4,0)
  1.  ;;=4^I69.954
  1.  ;;^UTILITY(U,$J,358.3,19356,2)
  1.  ;;=^5133587
  1.  ;;^UTILITY(U,$J,358.3,19357,0)
  1.  ;;=I69.951^^65^792^14
  1.  ;;^UTILITY(U,$J,358.3,19357,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19357,1,3,0)
  1.  ;;=3^Hemiplegia,Right Dominant Side
  1.  ;;^UTILITY(U,$J,358.3,19357,1,4,0)
  1.  ;;=4^I69.951
  1.  ;;^UTILITY(U,$J,358.3,19357,2)
  1.  ;;=^5007561
  1.  ;;^UTILITY(U,$J,358.3,19358,0)
  1.  ;;=I69.953^^65^792^15
  1.  ;;^UTILITY(U,$J,358.3,19358,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19358,1,3,0)
  1.  ;;=3^Hemiplegia,Right Non-Dominant Side
  1.  ;;^UTILITY(U,$J,358.3,19358,1,4,0)
  1.  ;;=4^I69.953
  1.  ;;^UTILITY(U,$J,358.3,19358,2)
  1.  ;;=^5007562
  1.  ;;^UTILITY(U,$J,358.3,19359,0)
  1.  ;;=I69.920^^65^792^1
  1.  ;;^UTILITY(U,$J,358.3,19359,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19359,1,3,0)
  1.  ;;=3^Aphasia
  1.  ;;^UTILITY(U,$J,358.3,19359,1,4,0)
  1.  ;;=4^I69.920
  1.  ;;^UTILITY(U,$J,358.3,19359,2)
  1.  ;;=^5007553
  1.  ;;^UTILITY(U,$J,358.3,19360,0)
  1.  ;;=I69.90^^65^792^30
  1.  ;;^UTILITY(U,$J,358.3,19360,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19360,1,3,0)
  1.  ;;=3^Unspec Sequela of Unspec CVA
  1.  ;;^UTILITY(U,$J,358.3,19360,1,4,0)
  1.  ;;=4^I69.90
  1.  ;;^UTILITY(U,$J,358.3,19360,2)
  1.  ;;=^5007551
  1.  ;;^UTILITY(U,$J,358.3,19361,0)
  1.  ;;=I69.910^^65^792^4
  1.  ;;^UTILITY(U,$J,358.3,19361,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19361,1,3,0)
  1.  ;;=3^Attention & Concentration Deficit
  1.  ;;^UTILITY(U,$J,358.3,19361,1,4,0)
  1.  ;;=4^I69.910
  1.  ;;^UTILITY(U,$J,358.3,19361,2)
  1.  ;;=^5138660
  1.  ;;^UTILITY(U,$J,358.3,19362,0)
  1.  ;;=I69.911^^65^792^16
  1.  ;;^UTILITY(U,$J,358.3,19362,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19362,1,3,0)
  1.  ;;=3^Memory Deficit
  1.  ;;^UTILITY(U,$J,358.3,19362,1,4,0)
  1.  ;;=4^I69.911
  1.  ;;^UTILITY(U,$J,358.3,19362,2)
  1.  ;;=^5138661
  1.  ;;^UTILITY(U,$J,358.3,19363,0)
  1.  ;;=I69.912^^65^792^31
  1.  ;;^UTILITY(U,$J,358.3,19363,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19363,1,3,0)
  1.  ;;=3^Visuspatial Deficit & Spatial Neglect
  1.  ;;^UTILITY(U,$J,358.3,19363,1,4,0)
  1.  ;;=4^I69.912
  1.  ;;^UTILITY(U,$J,358.3,19363,2)
  1.  ;;=^5138662
  1.  ;;^UTILITY(U,$J,358.3,19364,0)
  1.  ;;=I69.913^^65^792^27
  1.  ;;^UTILITY(U,$J,358.3,19364,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19364,1,3,0)
  1.  ;;=3^Psychomotor Deficit
  1.  ;;^UTILITY(U,$J,358.3,19364,1,4,0)
  1.  ;;=4^I69.913
  1.  ;;^UTILITY(U,$J,358.3,19364,2)
  1.  ;;=^5138663
  1.  ;;^UTILITY(U,$J,358.3,19365,0)
  1.  ;;=I69.914^^65^792^11
  1.  ;;^UTILITY(U,$J,358.3,19365,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19365,1,3,0)
  1.  ;;=3^Frontal Lobe & Executive Function Deficit
  1.  ;;^UTILITY(U,$J,358.3,19365,1,4,0)
  1.  ;;=4^I69.914
  1.  ;;^UTILITY(U,$J,358.3,19365,2)
  1.  ;;=^5138664
  1.  ;;^UTILITY(U,$J,358.3,19366,0)
  1.  ;;=I69.915^^65^792^5
  1.  ;;^UTILITY(U,$J,358.3,19366,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,19366,1,3,0)
  1.  ;;=3^Cognitive Social/Emotional Deficit
  1.  ;;^UTILITY(U,$J,358.3,19366,1,4,0)
  1.  ;;=4^I69.915
  1.  ;;^UTILITY(U,$J,358.3,19366,2)
  1.  ;;=^5138665