IBDEI049 ; ; 01-AUG-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 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,10257,1,3,0)
;;=3^Coma Scale,Eyes Open,Never,Emerg Dept
;;^UTILITY(U,$J,358.3,10257,1,4,0)
;;=4^R40.2112
;;^UTILITY(U,$J,358.3,10257,2)
;;=^5019357
;;^UTILITY(U,$J,358.3,10258,0)
;;=R40.2111^^45^449^28
;;^UTILITY(U,$J,358.3,10258,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10258,1,3,0)
;;=3^Coma Scale,Eyes Open,Never,In the Field
;;^UTILITY(U,$J,358.3,10258,1,4,0)
;;=4^R40.2111
;;^UTILITY(U,$J,358.3,10258,2)
;;=^5019356
;;^UTILITY(U,$J,358.3,10259,0)
;;=R40.2110^^45^449^29
;;^UTILITY(U,$J,358.3,10259,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10259,1,3,0)
;;=3^Coma Scale,Eyes Open,Never,Unspec Time
;;^UTILITY(U,$J,358.3,10259,1,4,0)
;;=4^R40.2110
;;^UTILITY(U,$J,358.3,10259,2)
;;=^5019355
;;^UTILITY(U,$J,358.3,10260,0)
;;=R40.20^^45^449^36
;;^UTILITY(U,$J,358.3,10260,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10260,1,3,0)
;;=3^Coma,Unspec
;;^UTILITY(U,$J,358.3,10260,1,4,0)
;;=4^R40.20
;;^UTILITY(U,$J,358.3,10260,2)
;;=^5019354
;;^UTILITY(U,$J,358.3,10261,0)
;;=R40.2123^^45^449^35
;;^UTILITY(U,$J,358.3,10261,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10261,1,3,0)
;;=3^Coma Scale,Eyes Open,to Pain,at Hospital Admission
;;^UTILITY(U,$J,358.3,10261,1,4,0)
;;=4^R40.2123
;;^UTILITY(U,$J,358.3,10261,2)
;;=^5019363
;;^UTILITY(U,$J,358.3,10262,0)
;;=R40.2122^^45^449^32
;;^UTILITY(U,$J,358.3,10262,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10262,1,3,0)
;;=3^Coma Scale,Eyes Open,to Pain,Emger Dept
;;^UTILITY(U,$J,358.3,10262,1,4,0)
;;=4^R40.2122
;;^UTILITY(U,$J,358.3,10262,2)
;;=^5019362
;;^UTILITY(U,$J,358.3,10263,0)
;;=R40.2124^^45^449^31
;;^UTILITY(U,$J,358.3,10263,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10263,1,3,0)
;;=3^Coma Scale,Eyes Open,to Pain,24+ Hrs
;;^UTILITY(U,$J,358.3,10263,1,4,0)
;;=4^R40.2124
;;^UTILITY(U,$J,358.3,10263,2)
;;=^5019364
;;^UTILITY(U,$J,358.3,10264,0)
;;=R40.2211^^45^449^17
;;^UTILITY(U,$J,358.3,10264,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10264,1,3,0)
;;=3^Coma Scale,Best Verbal Response,None,in the Field
;;^UTILITY(U,$J,358.3,10264,1,4,0)
;;=4^R40.2211
;;^UTILITY(U,$J,358.3,10264,2)
;;=^5019376
;;^UTILITY(U,$J,358.3,10265,0)
;;=R40.2210^^45^449^16
;;^UTILITY(U,$J,358.3,10265,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10265,1,3,0)
;;=3^Coma Scale,Best Verbal Response,None,Unspec Time
;;^UTILITY(U,$J,358.3,10265,1,4,0)
;;=4^R40.2210
;;^UTILITY(U,$J,358.3,10265,2)
;;=^5019375
;;^UTILITY(U,$J,358.3,10266,0)
;;=R40.2224^^45^449^18
;;^UTILITY(U,$J,358.3,10266,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10266,1,3,0)
;;=3^Coma Scale,Best Verbal,Incomprehensible Words,24+ Hrs
;;^UTILITY(U,$J,358.3,10266,1,4,0)
;;=4^R40.2224
;;^UTILITY(U,$J,358.3,10266,2)
;;=^5019384
;;^UTILITY(U,$J,358.3,10267,0)
;;=R40.2223^^45^449^19
;;^UTILITY(U,$J,358.3,10267,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10267,1,3,0)
;;=3^Coma Scale,Best Verbal,Incomprehensible Words,at Hospital Admission
;;^UTILITY(U,$J,358.3,10267,1,4,0)
;;=4^R40.2223
;;^UTILITY(U,$J,358.3,10267,2)
;;=^5019383
;;^UTILITY(U,$J,358.3,10268,0)
;;=R40.2222^^45^449^20
;;^UTILITY(U,$J,358.3,10268,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10268,1,3,0)
;;=3^Coma Scale,Best Verbal,Incomprehensible Words,Emger Dept
;;^UTILITY(U,$J,358.3,10268,1,4,0)
;;=4^R40.2222
;;^UTILITY(U,$J,358.3,10268,2)
;;=^5019382
;;^UTILITY(U,$J,358.3,10269,0)
;;=R40.2221^^45^449^21
;;^UTILITY(U,$J,358.3,10269,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10269,1,3,0)
;;=3^Coma Scale,Best Verbal,Incomprehensible Words,in the Field
;;^UTILITY(U,$J,358.3,10269,1,4,0)
;;=4^R40.2221
;;^UTILITY(U,$J,358.3,10269,2)
;;=^5019381
;;^UTILITY(U,$J,358.3,10270,0)
;;=R40.2220^^45^449^22
;;^UTILITY(U,$J,358.3,10270,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10270,1,3,0)
;;=3^Coma Scale,Best Verbal,Incomprehensible Words,Unspec Time
;;^UTILITY(U,$J,358.3,10270,1,4,0)
;;=4^R40.2220
;;^UTILITY(U,$J,358.3,10270,2)
;;=^5019380
;;^UTILITY(U,$J,358.3,10271,0)
;;=R40.2214^^45^449^23
;;^UTILITY(U,$J,358.3,10271,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10271,1,3,0)
;;=3^Coma Scale,Best Verbal,None,24+ Hrs
;;^UTILITY(U,$J,358.3,10271,1,4,0)
;;=4^R40.2214
;;^UTILITY(U,$J,358.3,10271,2)
;;=^5019379
;;^UTILITY(U,$J,358.3,10272,0)
;;=R40.2213^^45^449^25
;;^UTILITY(U,$J,358.3,10272,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10272,1,3,0)
;;=3^Coma Scale,Best Verbal,None,at Hospital Admission
;;^UTILITY(U,$J,358.3,10272,1,4,0)
;;=4^R40.2213
;;^UTILITY(U,$J,358.3,10272,2)
;;=^5019378
;;^UTILITY(U,$J,358.3,10273,0)
;;=R40.2212^^45^449^24
;;^UTILITY(U,$J,358.3,10273,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10273,1,3,0)
;;=3^Coma Scale,Best Verbal,None,Emger Dept
;;^UTILITY(U,$J,358.3,10273,1,4,0)
;;=4^R40.2212
;;^UTILITY(U,$J,358.3,10273,2)
;;=^5019377
;;^UTILITY(U,$J,358.3,10274,0)
;;=R40.2344^^45^449^6
;;^UTILITY(U,$J,358.3,10274,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10274,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,24+ Hrs
;;^UTILITY(U,$J,358.3,10274,1,4,0)
;;=4^R40.2344
;;^UTILITY(U,$J,358.3,10274,2)
;;=^5019419
;;^UTILITY(U,$J,358.3,10275,0)
;;=R40.2343^^45^449^7
;;^UTILITY(U,$J,358.3,10275,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10275,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,at Hospital Admission
;;^UTILITY(U,$J,358.3,10275,1,4,0)
;;=4^R40.2343
;;^UTILITY(U,$J,358.3,10275,2)
;;=^5019418
;;^UTILITY(U,$J,358.3,10276,0)
;;=R40.2342^^45^449^8
;;^UTILITY(U,$J,358.3,10276,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10276,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,Emger Dept
;;^UTILITY(U,$J,358.3,10276,1,4,0)
;;=4^R40.2342
;;^UTILITY(U,$J,358.3,10276,2)
;;=^5019417
;;^UTILITY(U,$J,358.3,10277,0)
;;=R40.2341^^45^449^9
;;^UTILITY(U,$J,358.3,10277,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10277,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,in the Field
;;^UTILITY(U,$J,358.3,10277,1,4,0)
;;=4^R40.2341
;;^UTILITY(U,$J,358.3,10277,2)
;;=^5019416
;;^UTILITY(U,$J,358.3,10278,0)
;;=R40.2340^^45^449^10
;;^UTILITY(U,$J,358.3,10278,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10278,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,Unspec Time
;;^UTILITY(U,$J,358.3,10278,1,4,0)
;;=4^R40.2340
;;^UTILITY(U,$J,358.3,10278,2)
;;=^5019415
;;^UTILITY(U,$J,358.3,10279,0)
;;=R40.2324^^45^449^1
;;^UTILITY(U,$J,358.3,10279,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10279,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Extension,24+ Hrs
;;^UTILITY(U,$J,358.3,10279,1,4,0)
;;=4^R40.2324
;;^UTILITY(U,$J,358.3,10279,2)
;;=^5019409
;;^UTILITY(U,$J,358.3,10280,0)
;;=R40.2323^^45^449^4
;;^UTILITY(U,$J,358.3,10280,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10280,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Extension,at Hospital Admission
;;^UTILITY(U,$J,358.3,10280,1,4,0)
;;=4^R40.2323
;;^UTILITY(U,$J,358.3,10280,2)
;;=^5019408
;;^UTILITY(U,$J,358.3,10281,0)
;;=R40.2322^^45^449^2
;;^UTILITY(U,$J,358.3,10281,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10281,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Extension,Emger Dept
;;^UTILITY(U,$J,358.3,10281,1,4,0)
;;=4^R40.2322
;;^UTILITY(U,$J,358.3,10281,2)
;;=^5019407
;;^UTILITY(U,$J,358.3,10282,0)
;;=R40.2321^^45^449^5
;;^UTILITY(U,$J,358.3,10282,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10282,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Extension,in the Field
;;^UTILITY(U,$J,358.3,10282,1,4,0)
;;=4^R40.2321
;;^UTILITY(U,$J,358.3,10282,2)
;;=^5019406
;;^UTILITY(U,$J,358.3,10283,0)
;;=R40.2320^^45^449^3
;;^UTILITY(U,$J,358.3,10283,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10283,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Extension,Unspec Time
;;^UTILITY(U,$J,358.3,10283,1,4,0)
;;=4^R40.2320
;;^UTILITY(U,$J,358.3,10283,2)
;;=^5019405
;;^UTILITY(U,$J,358.3,10284,0)
;;=R40.2314^^45^449^11
;;^UTILITY(U,$J,358.3,10284,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10284,1,3,0)
;;=3^Coma Scale,Best Motor Resp,None,24+ Hrs
;;^UTILITY(U,$J,358.3,10284,1,4,0)
;;=4^R40.2314
;;^UTILITY(U,$J,358.3,10284,2)
;;=^5019404
;;^UTILITY(U,$J,358.3,10285,0)
;;=R40.2313^^45^449^14
;;^UTILITY(U,$J,358.3,10285,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10285,1,3,0)
;;=3^Coma Scale,Best Motor Resp,None,at Hospital Admission
;;^UTILITY(U,$J,358.3,10285,1,4,0)
;;=4^R40.2313
;;^UTILITY(U,$J,358.3,10285,2)
;;=^5019403
;;^UTILITY(U,$J,358.3,10286,0)
;;=R40.2312^^45^449^12
;;^UTILITY(U,$J,358.3,10286,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10286,1,3,0)
;;=3^Coma Scale,Best Motor Resp,None,Emerg Dept
;;^UTILITY(U,$J,358.3,10286,1,4,0)
;;=4^R40.2312
;;^UTILITY(U,$J,358.3,10286,2)
;;=^5019402
;;^UTILITY(U,$J,358.3,10287,0)
;;=R40.2311^^45^449^15
;;^UTILITY(U,$J,358.3,10287,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10287,1,3,0)
;;=3^Coma Scale,Best Motor Resp,None,in the Field
;;^UTILITY(U,$J,358.3,10287,1,4,0)
;;=4^R40.2311
;;^UTILITY(U,$J,358.3,10287,2)
;;=^5019401
;;^UTILITY(U,$J,358.3,10288,0)
;;=R40.2310^^45^449^13
;;^UTILITY(U,$J,358.3,10288,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10288,1,3,0)
;;=3^Coma Scale,Best Motor Resp,None,Unspec Time
;;^UTILITY(U,$J,358.3,10288,1,4,0)
;;=4^R40.2310
;;^UTILITY(U,$J,358.3,10288,2)
;;=^5019400
;;^UTILITY(U,$J,358.3,10289,0)
;;=R40.4^^45^449^38
;;^UTILITY(U,$J,358.3,10289,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10289,1,3,0)
;;=3^Transient Alteration of Awareness
;;^UTILITY(U,$J,358.3,10289,1,4,0)
;;=4^R40.4
;;^UTILITY(U,$J,358.3,10289,2)
;;=^5019435
;;^UTILITY(U,$J,358.3,10290,0)
;;=V00.811A^^45^450^50
;;^UTILITY(U,$J,358.3,10290,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10290,1,3,0)
;;=3^Fall from Moving Wheelchair (pwered),Init Encntr
;;^UTILITY(U,$J,358.3,10290,1,4,0)
;;=4^V00.811A
;;^UTILITY(U,$J,358.3,10290,2)
;;=^5055937
;;^UTILITY(U,$J,358.3,10291,0)
;;=V00.811D^^45^450^51
;;^UTILITY(U,$J,358.3,10291,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10291,1,3,0)
;;=3^Fall from Moving Wheelchair (pwered),Subs Encntr
;;^UTILITY(U,$J,358.3,10291,1,4,0)
;;=4^V00.811D
;;^UTILITY(U,$J,358.3,10291,2)
;;=^5055938
;;^UTILITY(U,$J,358.3,10292,0)
;;=V00.812A^^45^450^142
;;^UTILITY(U,$J,358.3,10292,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10292,1,3,0)
;;=3^Wheelchair Colliding w/ Stationary Obj,Init Encntr
;;^UTILITY(U,$J,358.3,10292,1,4,0)
;;=4^V00.812A
;;^UTILITY(U,$J,358.3,10292,2)
;;=^5055940
;;^UTILITY(U,$J,358.3,10293,0)
;;=V00.812D^^45^450^143
;;^UTILITY(U,$J,358.3,10293,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10293,1,3,0)
;;=3^Wheelchair Colliding w/ Stationary Obj,Subs Encntr
;;^UTILITY(U,$J,358.3,10293,1,4,0)
;;=4^V00.812D
;;^UTILITY(U,$J,358.3,10293,2)
;;=^5055941
;;^UTILITY(U,$J,358.3,10294,0)
;;=V00.818A^^45^450^140
;;^UTILITY(U,$J,358.3,10294,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10294,1,3,0)
;;=3^Wheelchair Accident NEC,Init Encntr
;;^UTILITY(U,$J,358.3,10294,1,4,0)
;;=4^V00.818A
;;^UTILITY(U,$J,358.3,10294,2)
;;=^5055943
;;^UTILITY(U,$J,358.3,10295,0)
;;=V00.818D^^45^450^141
;;^UTILITY(U,$J,358.3,10295,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10295,1,3,0)
;;=3^Wheelchair Accident NEC,Subs Encntr
;;^UTILITY(U,$J,358.3,10295,1,4,0)
;;=4^V00.818D
;;^UTILITY(U,$J,358.3,10295,2)
;;=^5055944
;;^UTILITY(U,$J,358.3,10296,0)
;;=V00.831A^^45^450^48
;;^UTILITY(U,$J,358.3,10296,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10296,1,3,0)
;;=3^Fall from Mobility Scooter,Init Encntr
;;^UTILITY(U,$J,358.3,10296,1,4,0)
;;=4^V00.831A
;;^UTILITY(U,$J,358.3,10296,2)
;;=^5055955
;;^UTILITY(U,$J,358.3,10297,0)
;;=V00.831D^^45^450^49
;;^UTILITY(U,$J,358.3,10297,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10297,1,3,0)
;;=3^Fall from Mobility Scooter,Subs Encntr
;;^UTILITY(U,$J,358.3,10297,1,4,0)
;;=4^V00.831D
;;^UTILITY(U,$J,358.3,10297,2)
;;=^5055956
;;^UTILITY(U,$J,358.3,10298,0)
;;=V00.832A^^45^450^100
;;^UTILITY(U,$J,358.3,10298,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10298,1,3,0)
;;=3^Mobility Scooter Colliding w/ Stationary Obj,Init Encntr
;;^UTILITY(U,$J,358.3,10298,1,4,0)
;;=4^V00.832A
;;^UTILITY(U,$J,358.3,10298,2)
;;=^5055958
;;^UTILITY(U,$J,358.3,10299,0)
;;=V00.832D^^45^450^101
;;^UTILITY(U,$J,358.3,10299,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10299,1,3,0)
;;=3^Mobility Scooter Colliding w/ Stationary Obj,Subs Encntr
;;^UTILITY(U,$J,358.3,10299,1,4,0)
;;=4^V00.832D
;;^UTILITY(U,$J,358.3,10299,2)
;;=^5055959
;;^UTILITY(U,$J,358.3,10300,0)
;;=V00.838A^^45^450^98
;;^UTILITY(U,$J,358.3,10300,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10300,1,3,0)
;;=3^Mobility Scooter Accident NEC,Init Encntr
;;^UTILITY(U,$J,358.3,10300,1,4,0)
;;=4^V00.838A
;;^UTILITY(U,$J,358.3,10300,2)
;;=^5055961
;;^UTILITY(U,$J,358.3,10301,0)
;;=V00.838D^^45^450^99
;;^UTILITY(U,$J,358.3,10301,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10301,1,3,0)
;;=3^Mobility Scooter Accident NEC,Subs Encntr
;;^UTILITY(U,$J,358.3,10301,1,4,0)
;;=4^V00.838D
;;^UTILITY(U,$J,358.3,10301,2)
;;=^5055962
;;^UTILITY(U,$J,358.3,10302,0)
;;=V00.891A^^45^450^62
;;^UTILITY(U,$J,358.3,10302,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10302,1,3,0)
;;=3^Fall from Pedestrian Conveyance,Init Encntr
;;^UTILITY(U,$J,358.3,10302,1,4,0)
;;=4^V00.891A
;;^UTILITY(U,$J,358.3,10302,2)
;;=^5055964
;;^UTILITY(U,$J,358.3,10303,0)
;;=V00.891D^^45^450^63
;;^UTILITY(U,$J,358.3,10303,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10303,1,3,0)
;;=3^Fall from Pedestrian Conveyance,Subs Encntr
;;^UTILITY(U,$J,358.3,10303,1,4,0)
;;=4^V00.891D
;;^UTILITY(U,$J,358.3,10303,2)
;;=^5055965
;;^UTILITY(U,$J,358.3,10304,0)
;;=V00.892A^^45^450^108
;;^UTILITY(U,$J,358.3,10304,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10304,1,3,0)
;;=3^Pedestrian Conveyance Colliding w/ Stationary Obj,Init Encntr
;;^UTILITY(U,$J,358.3,10304,1,4,0)
;;=4^V00.892A
;;^UTILITY(U,$J,358.3,10304,2)
;;=^5055967
;;^UTILITY(U,$J,358.3,10305,0)
;;=V00.892D^^45^450^109
;;^UTILITY(U,$J,358.3,10305,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10305,1,3,0)
;;=3^Pedestrian Conveyance Colliding w/ Stationary Obj,Subs Encntr
;;^UTILITY(U,$J,358.3,10305,1,4,0)
;;=4^V00.892D
;;^UTILITY(U,$J,358.3,10305,2)
;;=^5055968
;;^UTILITY(U,$J,358.3,10306,0)
;;=V00.898A^^45^450^106
;;^UTILITY(U,$J,358.3,10306,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10306,1,3,0)
;;=3^Pedestrian Conveyance Accident NEC,Init Encntr
;;^UTILITY(U,$J,358.3,10306,1,4,0)
;;=4^V00.898A
;;^UTILITY(U,$J,358.3,10306,2)
;;=^5055970
;;^UTILITY(U,$J,358.3,10307,0)
;;=V00.898D^^45^450^107
;;^UTILITY(U,$J,358.3,10307,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10307,1,3,0)
;;=3^Pedestrian Conveyance Accident NEC,Subs Encntr
;;^UTILITY(U,$J,358.3,10307,1,4,0)
;;=4^V00.898D
;;^UTILITY(U,$J,358.3,10307,2)
;;=^5055971
;;^UTILITY(U,$J,358.3,10308,0)
;;=W00.0XXA^^45^450^84
;;^UTILITY(U,$J,358.3,10308,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10308,1,3,0)
;;=3^Fall on Same Level d/t Ice/Snow,Init Encntr
;;^UTILITY(U,$J,358.3,10308,1,4,0)
;;=4^W00.0XXA
;;^UTILITY(U,$J,358.3,10308,2)
;;=^5059510
;;^UTILITY(U,$J,358.3,10309,0)
;;=W00.0XXD^^45^450^85
;;^UTILITY(U,$J,358.3,10309,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10309,1,3,0)
;;=3^Fall on Same Level d/t Ice/Snow,Subs Encntr
;;^UTILITY(U,$J,358.3,10309,1,4,0)
;;=4^W00.0XXD
;;^UTILITY(U,$J,358.3,10309,2)
;;=^5059511
;;^UTILITY(U,$J,358.3,10310,0)
;;=W00.1XXA^^45^450^64
;;^UTILITY(U,$J,358.3,10310,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10310,1,3,0)
;;=3^Fall from Stairs/Steps d/t Ice/Snow,Init Encntr
;;^UTILITY(U,$J,358.3,10310,1,4,0)
;;=4^W00.1XXA
;;^UTILITY(U,$J,358.3,10310,2)
;;=^5059513
;;^UTILITY(U,$J,358.3,10311,0)
;;=W00.1XXD^^45^450^65
;;^UTILITY(U,$J,358.3,10311,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10311,1,3,0)
;;=3^Fall from Stairs/Steps d/t Ice/Snow,Subs Encntr
;;^UTILITY(U,$J,358.3,10311,1,4,0)
;;=4^W00.1XXD
;;^UTILITY(U,$J,358.3,10311,2)
;;=^5059514
;;^UTILITY(U,$J,358.3,10312,0)
;;=W00.2XXA^^45^450^58
;;^UTILITY(U,$J,358.3,10312,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10312,1,3,0)
;;=3^Fall from One Level to Another d/t Ice/Snow,Init Encntr
;;^UTILITY(U,$J,358.3,10312,1,4,0)
;;=4^W00.2XXA
;;^UTILITY(U,$J,358.3,10312,2)
;;=^5059516
;;^UTILITY(U,$J,358.3,10313,0)
;;=W00.2XXD^^45^450^59
;;^UTILITY(U,$J,358.3,10313,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10313,1,3,0)
;;=3^Fall from One Level to Another d/t Ice/Snow,Subs Encntr
;;^UTILITY(U,$J,358.3,10313,1,4,0)
;;=4^W00.2XXD
;;^UTILITY(U,$J,358.3,10313,2)
;;=^5059517
;;^UTILITY(U,$J,358.3,10314,0)
;;=W00.9XXA^^45^450^30
;;^UTILITY(U,$J,358.3,10314,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10314,1,3,0)
;;=3^Fall d/t Ice/Snow,Unspec,Init Encntr
;;^UTILITY(U,$J,358.3,10314,1,4,0)
;;=4^W00.9XXA
;;^UTILITY(U,$J,358.3,10314,2)
;;=^5059519
;;^UTILITY(U,$J,358.3,10315,0)
;;=W00.9XXD^^45^450^31
;;^UTILITY(U,$J,358.3,10315,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10315,1,3,0)
;;=3^Fall d/t Ice/Snow,Unspec,Subs Encntr
;;^UTILITY(U,$J,358.3,10315,1,4,0)
;;=4^W00.9XXD
;;^UTILITY(U,$J,358.3,10315,2)
;;=^5059520
;;^UTILITY(U,$J,358.3,10316,0)
;;=W01.0XXA^^45^450^92
;;^UTILITY(U,$J,358.3,10316,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10316,1,3,0)
;;=3^Fall,Same Level,From Slip/Trip w/o Strike Against Obj,Init Encntr
;;^UTILITY(U,$J,358.3,10316,1,4,0)
;;=4^W01.0XXA
;;^UTILITY(U,$J,358.3,10316,2)
;;=^5059522
;;^UTILITY(U,$J,358.3,10317,0)
;;=W01.0XXD^^45^450^93
;;^UTILITY(U,$J,358.3,10317,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10317,1,3,0)
;;=3^Fall,Same Level,From Slip/Trip w/o Strike Against Obj,Subs Encntr
;;^UTILITY(U,$J,358.3,10317,1,4,0)
;;=4^W01.0XXD
;;^UTILITY(U,$J,358.3,10317,2)
;;=^5059523
;;^UTILITY(U,$J,358.3,10318,0)
;;=W03.XXXA^^45^450^90
;;^UTILITY(U,$J,358.3,10318,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10318,1,3,0)
;;=3^Fall,Same Level d/t Collision w/ Another Person,Init Encntr
;;^UTILITY(U,$J,358.3,10318,1,4,0)
;;=4^W03.XXXA
;;^UTILITY(U,$J,358.3,10318,2)
;;=^5059544
;;^UTILITY(U,$J,358.3,10319,0)
;;=W03.XXXD^^45^450^91
;;^UTILITY(U,$J,358.3,10319,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10319,1,3,0)
;;=3^Fall,Same Level d/t Collision w/ Another Person,Subs Encntr
;;^UTILITY(U,$J,358.3,10319,1,4,0)
;;=4^W03.XXXD
;;^UTILITY(U,$J,358.3,10319,2)
;;=^5059545
;;^UTILITY(U,$J,358.3,10320,0)
;;=W05.0XXA^^45^450^56
;;^UTILITY(U,$J,358.3,10320,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10320,1,3,0)
;;=3^Fall from Non-Moving Wheelchair,Init Encntr
;;^UTILITY(U,$J,358.3,10320,1,4,0)
;;=4^W05.0XXA
;;^UTILITY(U,$J,358.3,10320,2)
;;=^5059550
;;^UTILITY(U,$J,358.3,10321,0)
;;=W05.0XXD^^45^450^57
;;^UTILITY(U,$J,358.3,10321,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10321,1,3,0)
;;=3^Fall from Non-Moving Wheelchair,Subs Encntr
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI049 19823 printed Apr 09, 2024@21:00:22 Page 2
IBDEI049 ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,10257,1,3,0)
+2 ;;=3^Coma Scale,Eyes Open,Never,Emerg Dept
+3 ;;^UTILITY(U,$J,358.3,10257,1,4,0)
+4 ;;=4^R40.2112
+5 ;;^UTILITY(U,$J,358.3,10257,2)
+6 ;;=^5019357
+7 ;;^UTILITY(U,$J,358.3,10258,0)
+8 ;;=R40.2111^^45^449^28
+9 ;;^UTILITY(U,$J,358.3,10258,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,10258,1,3,0)
+12 ;;=3^Coma Scale,Eyes Open,Never,In the Field
+13 ;;^UTILITY(U,$J,358.3,10258,1,4,0)
+14 ;;=4^R40.2111
+15 ;;^UTILITY(U,$J,358.3,10258,2)
+16 ;;=^5019356
+17 ;;^UTILITY(U,$J,358.3,10259,0)
+18 ;;=R40.2110^^45^449^29
+19 ;;^UTILITY(U,$J,358.3,10259,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,10259,1,3,0)
+22 ;;=3^Coma Scale,Eyes Open,Never,Unspec Time
+23 ;;^UTILITY(U,$J,358.3,10259,1,4,0)
+24 ;;=4^R40.2110
+25 ;;^UTILITY(U,$J,358.3,10259,2)
+26 ;;=^5019355
+27 ;;^UTILITY(U,$J,358.3,10260,0)
+28 ;;=R40.20^^45^449^36
+29 ;;^UTILITY(U,$J,358.3,10260,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,10260,1,3,0)
+32 ;;=3^Coma,Unspec
+33 ;;^UTILITY(U,$J,358.3,10260,1,4,0)
+34 ;;=4^R40.20
+35 ;;^UTILITY(U,$J,358.3,10260,2)
+36 ;;=^5019354
+37 ;;^UTILITY(U,$J,358.3,10261,0)
+38 ;;=R40.2123^^45^449^35
+39 ;;^UTILITY(U,$J,358.3,10261,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,10261,1,3,0)
+42 ;;=3^Coma Scale,Eyes Open,to Pain,at Hospital Admission
+43 ;;^UTILITY(U,$J,358.3,10261,1,4,0)
+44 ;;=4^R40.2123
+45 ;;^UTILITY(U,$J,358.3,10261,2)
+46 ;;=^5019363
+47 ;;^UTILITY(U,$J,358.3,10262,0)
+48 ;;=R40.2122^^45^449^32
+49 ;;^UTILITY(U,$J,358.3,10262,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,10262,1,3,0)
+52 ;;=3^Coma Scale,Eyes Open,to Pain,Emger Dept
+53 ;;^UTILITY(U,$J,358.3,10262,1,4,0)
+54 ;;=4^R40.2122
+55 ;;^UTILITY(U,$J,358.3,10262,2)
+56 ;;=^5019362
+57 ;;^UTILITY(U,$J,358.3,10263,0)
+58 ;;=R40.2124^^45^449^31
+59 ;;^UTILITY(U,$J,358.3,10263,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,10263,1,3,0)
+62 ;;=3^Coma Scale,Eyes Open,to Pain,24+ Hrs
+63 ;;^UTILITY(U,$J,358.3,10263,1,4,0)
+64 ;;=4^R40.2124
+65 ;;^UTILITY(U,$J,358.3,10263,2)
+66 ;;=^5019364
+67 ;;^UTILITY(U,$J,358.3,10264,0)
+68 ;;=R40.2211^^45^449^17
+69 ;;^UTILITY(U,$J,358.3,10264,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,10264,1,3,0)
+72 ;;=3^Coma Scale,Best Verbal Response,None,in the Field
+73 ;;^UTILITY(U,$J,358.3,10264,1,4,0)
+74 ;;=4^R40.2211
+75 ;;^UTILITY(U,$J,358.3,10264,2)
+76 ;;=^5019376
+77 ;;^UTILITY(U,$J,358.3,10265,0)
+78 ;;=R40.2210^^45^449^16
+79 ;;^UTILITY(U,$J,358.3,10265,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,10265,1,3,0)
+82 ;;=3^Coma Scale,Best Verbal Response,None,Unspec Time
+83 ;;^UTILITY(U,$J,358.3,10265,1,4,0)
+84 ;;=4^R40.2210
+85 ;;^UTILITY(U,$J,358.3,10265,2)
+86 ;;=^5019375
+87 ;;^UTILITY(U,$J,358.3,10266,0)
+88 ;;=R40.2224^^45^449^18
+89 ;;^UTILITY(U,$J,358.3,10266,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,10266,1,3,0)
+92 ;;=3^Coma Scale,Best Verbal,Incomprehensible Words,24+ Hrs
+93 ;;^UTILITY(U,$J,358.3,10266,1,4,0)
+94 ;;=4^R40.2224
+95 ;;^UTILITY(U,$J,358.3,10266,2)
+96 ;;=^5019384
+97 ;;^UTILITY(U,$J,358.3,10267,0)
+98 ;;=R40.2223^^45^449^19
+99 ;;^UTILITY(U,$J,358.3,10267,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,10267,1,3,0)
+102 ;;=3^Coma Scale,Best Verbal,Incomprehensible Words,at Hospital Admission
+103 ;;^UTILITY(U,$J,358.3,10267,1,4,0)
+104 ;;=4^R40.2223
+105 ;;^UTILITY(U,$J,358.3,10267,2)
+106 ;;=^5019383
+107 ;;^UTILITY(U,$J,358.3,10268,0)
+108 ;;=R40.2222^^45^449^20
+109 ;;^UTILITY(U,$J,358.3,10268,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,10268,1,3,0)
+112 ;;=3^Coma Scale,Best Verbal,Incomprehensible Words,Emger Dept
+113 ;;^UTILITY(U,$J,358.3,10268,1,4,0)
+114 ;;=4^R40.2222
+115 ;;^UTILITY(U,$J,358.3,10268,2)
+116 ;;=^5019382
+117 ;;^UTILITY(U,$J,358.3,10269,0)
+118 ;;=R40.2221^^45^449^21
+119 ;;^UTILITY(U,$J,358.3,10269,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,10269,1,3,0)
+122 ;;=3^Coma Scale,Best Verbal,Incomprehensible Words,in the Field
+123 ;;^UTILITY(U,$J,358.3,10269,1,4,0)
+124 ;;=4^R40.2221
+125 ;;^UTILITY(U,$J,358.3,10269,2)
+126 ;;=^5019381
+127 ;;^UTILITY(U,$J,358.3,10270,0)
+128 ;;=R40.2220^^45^449^22
+129 ;;^UTILITY(U,$J,358.3,10270,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,10270,1,3,0)
+132 ;;=3^Coma Scale,Best Verbal,Incomprehensible Words,Unspec Time
+133 ;;^UTILITY(U,$J,358.3,10270,1,4,0)
+134 ;;=4^R40.2220
+135 ;;^UTILITY(U,$J,358.3,10270,2)
+136 ;;=^5019380
+137 ;;^UTILITY(U,$J,358.3,10271,0)
+138 ;;=R40.2214^^45^449^23
+139 ;;^UTILITY(U,$J,358.3,10271,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,10271,1,3,0)
+142 ;;=3^Coma Scale,Best Verbal,None,24+ Hrs
+143 ;;^UTILITY(U,$J,358.3,10271,1,4,0)
+144 ;;=4^R40.2214
+145 ;;^UTILITY(U,$J,358.3,10271,2)
+146 ;;=^5019379
+147 ;;^UTILITY(U,$J,358.3,10272,0)
+148 ;;=R40.2213^^45^449^25
+149 ;;^UTILITY(U,$J,358.3,10272,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,10272,1,3,0)
+152 ;;=3^Coma Scale,Best Verbal,None,at Hospital Admission
+153 ;;^UTILITY(U,$J,358.3,10272,1,4,0)
+154 ;;=4^R40.2213
+155 ;;^UTILITY(U,$J,358.3,10272,2)
+156 ;;=^5019378
+157 ;;^UTILITY(U,$J,358.3,10273,0)
+158 ;;=R40.2212^^45^449^24
+159 ;;^UTILITY(U,$J,358.3,10273,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,10273,1,3,0)
+162 ;;=3^Coma Scale,Best Verbal,None,Emger Dept
+163 ;;^UTILITY(U,$J,358.3,10273,1,4,0)
+164 ;;=4^R40.2212
+165 ;;^UTILITY(U,$J,358.3,10273,2)
+166 ;;=^5019377
+167 ;;^UTILITY(U,$J,358.3,10274,0)
+168 ;;=R40.2344^^45^449^6
+169 ;;^UTILITY(U,$J,358.3,10274,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,10274,1,3,0)
+172 ;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,24+ Hrs
+173 ;;^UTILITY(U,$J,358.3,10274,1,4,0)
+174 ;;=4^R40.2344
+175 ;;^UTILITY(U,$J,358.3,10274,2)
+176 ;;=^5019419
+177 ;;^UTILITY(U,$J,358.3,10275,0)
+178 ;;=R40.2343^^45^449^7
+179 ;;^UTILITY(U,$J,358.3,10275,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,10275,1,3,0)
+182 ;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,at Hospital Admission
+183 ;;^UTILITY(U,$J,358.3,10275,1,4,0)
+184 ;;=4^R40.2343
+185 ;;^UTILITY(U,$J,358.3,10275,2)
+186 ;;=^5019418
+187 ;;^UTILITY(U,$J,358.3,10276,0)
+188 ;;=R40.2342^^45^449^8
+189 ;;^UTILITY(U,$J,358.3,10276,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,10276,1,3,0)
+192 ;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,Emger Dept
+193 ;;^UTILITY(U,$J,358.3,10276,1,4,0)
+194 ;;=4^R40.2342
+195 ;;^UTILITY(U,$J,358.3,10276,2)
+196 ;;=^5019417
+197 ;;^UTILITY(U,$J,358.3,10277,0)
+198 ;;=R40.2341^^45^449^9
+199 ;;^UTILITY(U,$J,358.3,10277,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,10277,1,3,0)
+202 ;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,in the Field
+203 ;;^UTILITY(U,$J,358.3,10277,1,4,0)
+204 ;;=4^R40.2341
+205 ;;^UTILITY(U,$J,358.3,10277,2)
+206 ;;=^5019416
+207 ;;^UTILITY(U,$J,358.3,10278,0)
+208 ;;=R40.2340^^45^449^10
+209 ;;^UTILITY(U,$J,358.3,10278,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,10278,1,3,0)
+212 ;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,Unspec Time
+213 ;;^UTILITY(U,$J,358.3,10278,1,4,0)
+214 ;;=4^R40.2340
+215 ;;^UTILITY(U,$J,358.3,10278,2)
+216 ;;=^5019415
+217 ;;^UTILITY(U,$J,358.3,10279,0)
+218 ;;=R40.2324^^45^449^1
+219 ;;^UTILITY(U,$J,358.3,10279,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,10279,1,3,0)
+222 ;;=3^Coma Scale,Best Motor Resp,Extension,24+ Hrs
+223 ;;^UTILITY(U,$J,358.3,10279,1,4,0)
+224 ;;=4^R40.2324
+225 ;;^UTILITY(U,$J,358.3,10279,2)
+226 ;;=^5019409
+227 ;;^UTILITY(U,$J,358.3,10280,0)
+228 ;;=R40.2323^^45^449^4
+229 ;;^UTILITY(U,$J,358.3,10280,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,10280,1,3,0)
+232 ;;=3^Coma Scale,Best Motor Resp,Extension,at Hospital Admission
+233 ;;^UTILITY(U,$J,358.3,10280,1,4,0)
+234 ;;=4^R40.2323
+235 ;;^UTILITY(U,$J,358.3,10280,2)
+236 ;;=^5019408
+237 ;;^UTILITY(U,$J,358.3,10281,0)
+238 ;;=R40.2322^^45^449^2
+239 ;;^UTILITY(U,$J,358.3,10281,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,10281,1,3,0)
+242 ;;=3^Coma Scale,Best Motor Resp,Extension,Emger Dept
+243 ;;^UTILITY(U,$J,358.3,10281,1,4,0)
+244 ;;=4^R40.2322
+245 ;;^UTILITY(U,$J,358.3,10281,2)
+246 ;;=^5019407
+247 ;;^UTILITY(U,$J,358.3,10282,0)
+248 ;;=R40.2321^^45^449^5
+249 ;;^UTILITY(U,$J,358.3,10282,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,10282,1,3,0)
+252 ;;=3^Coma Scale,Best Motor Resp,Extension,in the Field
+253 ;;^UTILITY(U,$J,358.3,10282,1,4,0)
+254 ;;=4^R40.2321
+255 ;;^UTILITY(U,$J,358.3,10282,2)
+256 ;;=^5019406
+257 ;;^UTILITY(U,$J,358.3,10283,0)
+258 ;;=R40.2320^^45^449^3
+259 ;;^UTILITY(U,$J,358.3,10283,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,10283,1,3,0)
+262 ;;=3^Coma Scale,Best Motor Resp,Extension,Unspec Time
+263 ;;^UTILITY(U,$J,358.3,10283,1,4,0)
+264 ;;=4^R40.2320
+265 ;;^UTILITY(U,$J,358.3,10283,2)
+266 ;;=^5019405
+267 ;;^UTILITY(U,$J,358.3,10284,0)
+268 ;;=R40.2314^^45^449^11
+269 ;;^UTILITY(U,$J,358.3,10284,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,10284,1,3,0)
+272 ;;=3^Coma Scale,Best Motor Resp,None,24+ Hrs
+273 ;;^UTILITY(U,$J,358.3,10284,1,4,0)
+274 ;;=4^R40.2314
+275 ;;^UTILITY(U,$J,358.3,10284,2)
+276 ;;=^5019404
+277 ;;^UTILITY(U,$J,358.3,10285,0)
+278 ;;=R40.2313^^45^449^14
+279 ;;^UTILITY(U,$J,358.3,10285,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,10285,1,3,0)
+282 ;;=3^Coma Scale,Best Motor Resp,None,at Hospital Admission
+283 ;;^UTILITY(U,$J,358.3,10285,1,4,0)
+284 ;;=4^R40.2313
+285 ;;^UTILITY(U,$J,358.3,10285,2)
+286 ;;=^5019403
+287 ;;^UTILITY(U,$J,358.3,10286,0)
+288 ;;=R40.2312^^45^449^12
+289 ;;^UTILITY(U,$J,358.3,10286,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,10286,1,3,0)
+292 ;;=3^Coma Scale,Best Motor Resp,None,Emerg Dept
+293 ;;^UTILITY(U,$J,358.3,10286,1,4,0)
+294 ;;=4^R40.2312
+295 ;;^UTILITY(U,$J,358.3,10286,2)
+296 ;;=^5019402
+297 ;;^UTILITY(U,$J,358.3,10287,0)
+298 ;;=R40.2311^^45^449^15
+299 ;;^UTILITY(U,$J,358.3,10287,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,10287,1,3,0)
+302 ;;=3^Coma Scale,Best Motor Resp,None,in the Field
+303 ;;^UTILITY(U,$J,358.3,10287,1,4,0)
+304 ;;=4^R40.2311
+305 ;;^UTILITY(U,$J,358.3,10287,2)
+306 ;;=^5019401
+307 ;;^UTILITY(U,$J,358.3,10288,0)
+308 ;;=R40.2310^^45^449^13
+309 ;;^UTILITY(U,$J,358.3,10288,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,10288,1,3,0)
+312 ;;=3^Coma Scale,Best Motor Resp,None,Unspec Time
+313 ;;^UTILITY(U,$J,358.3,10288,1,4,0)
+314 ;;=4^R40.2310
+315 ;;^UTILITY(U,$J,358.3,10288,2)
+316 ;;=^5019400
+317 ;;^UTILITY(U,$J,358.3,10289,0)
+318 ;;=R40.4^^45^449^38
+319 ;;^UTILITY(U,$J,358.3,10289,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,10289,1,3,0)
+322 ;;=3^Transient Alteration of Awareness
+323 ;;^UTILITY(U,$J,358.3,10289,1,4,0)
+324 ;;=4^R40.4
+325 ;;^UTILITY(U,$J,358.3,10289,2)
+326 ;;=^5019435
+327 ;;^UTILITY(U,$J,358.3,10290,0)
+328 ;;=V00.811A^^45^450^50
+329 ;;^UTILITY(U,$J,358.3,10290,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,10290,1,3,0)
+332 ;;=3^Fall from Moving Wheelchair (pwered),Init Encntr
+333 ;;^UTILITY(U,$J,358.3,10290,1,4,0)
+334 ;;=4^V00.811A
+335 ;;^UTILITY(U,$J,358.3,10290,2)
+336 ;;=^5055937
+337 ;;^UTILITY(U,$J,358.3,10291,0)
+338 ;;=V00.811D^^45^450^51
+339 ;;^UTILITY(U,$J,358.3,10291,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,10291,1,3,0)
+342 ;;=3^Fall from Moving Wheelchair (pwered),Subs Encntr
+343 ;;^UTILITY(U,$J,358.3,10291,1,4,0)
+344 ;;=4^V00.811D
+345 ;;^UTILITY(U,$J,358.3,10291,2)
+346 ;;=^5055938
+347 ;;^UTILITY(U,$J,358.3,10292,0)
+348 ;;=V00.812A^^45^450^142
+349 ;;^UTILITY(U,$J,358.3,10292,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,10292,1,3,0)
+352 ;;=3^Wheelchair Colliding w/ Stationary Obj,Init Encntr
+353 ;;^UTILITY(U,$J,358.3,10292,1,4,0)
+354 ;;=4^V00.812A
+355 ;;^UTILITY(U,$J,358.3,10292,2)
+356 ;;=^5055940
+357 ;;^UTILITY(U,$J,358.3,10293,0)
+358 ;;=V00.812D^^45^450^143
+359 ;;^UTILITY(U,$J,358.3,10293,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,10293,1,3,0)
+362 ;;=3^Wheelchair Colliding w/ Stationary Obj,Subs Encntr
+363 ;;^UTILITY(U,$J,358.3,10293,1,4,0)
+364 ;;=4^V00.812D
+365 ;;^UTILITY(U,$J,358.3,10293,2)
+366 ;;=^5055941
+367 ;;^UTILITY(U,$J,358.3,10294,0)
+368 ;;=V00.818A^^45^450^140
+369 ;;^UTILITY(U,$J,358.3,10294,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,10294,1,3,0)
+372 ;;=3^Wheelchair Accident NEC,Init Encntr
+373 ;;^UTILITY(U,$J,358.3,10294,1,4,0)
+374 ;;=4^V00.818A
+375 ;;^UTILITY(U,$J,358.3,10294,2)
+376 ;;=^5055943
+377 ;;^UTILITY(U,$J,358.3,10295,0)
+378 ;;=V00.818D^^45^450^141
+379 ;;^UTILITY(U,$J,358.3,10295,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,10295,1,3,0)
+382 ;;=3^Wheelchair Accident NEC,Subs Encntr
+383 ;;^UTILITY(U,$J,358.3,10295,1,4,0)
+384 ;;=4^V00.818D
+385 ;;^UTILITY(U,$J,358.3,10295,2)
+386 ;;=^5055944
+387 ;;^UTILITY(U,$J,358.3,10296,0)
+388 ;;=V00.831A^^45^450^48
+389 ;;^UTILITY(U,$J,358.3,10296,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,10296,1,3,0)
+392 ;;=3^Fall from Mobility Scooter,Init Encntr
+393 ;;^UTILITY(U,$J,358.3,10296,1,4,0)
+394 ;;=4^V00.831A
+395 ;;^UTILITY(U,$J,358.3,10296,2)
+396 ;;=^5055955
+397 ;;^UTILITY(U,$J,358.3,10297,0)
+398 ;;=V00.831D^^45^450^49
+399 ;;^UTILITY(U,$J,358.3,10297,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,10297,1,3,0)
+402 ;;=3^Fall from Mobility Scooter,Subs Encntr
+403 ;;^UTILITY(U,$J,358.3,10297,1,4,0)
+404 ;;=4^V00.831D
+405 ;;^UTILITY(U,$J,358.3,10297,2)
+406 ;;=^5055956
+407 ;;^UTILITY(U,$J,358.3,10298,0)
+408 ;;=V00.832A^^45^450^100
+409 ;;^UTILITY(U,$J,358.3,10298,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,10298,1,3,0)
+412 ;;=3^Mobility Scooter Colliding w/ Stationary Obj,Init Encntr
+413 ;;^UTILITY(U,$J,358.3,10298,1,4,0)
+414 ;;=4^V00.832A
+415 ;;^UTILITY(U,$J,358.3,10298,2)
+416 ;;=^5055958
+417 ;;^UTILITY(U,$J,358.3,10299,0)
+418 ;;=V00.832D^^45^450^101
+419 ;;^UTILITY(U,$J,358.3,10299,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,10299,1,3,0)
+422 ;;=3^Mobility Scooter Colliding w/ Stationary Obj,Subs Encntr
+423 ;;^UTILITY(U,$J,358.3,10299,1,4,0)
+424 ;;=4^V00.832D
+425 ;;^UTILITY(U,$J,358.3,10299,2)
+426 ;;=^5055959
+427 ;;^UTILITY(U,$J,358.3,10300,0)
+428 ;;=V00.838A^^45^450^98
+429 ;;^UTILITY(U,$J,358.3,10300,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,10300,1,3,0)
+432 ;;=3^Mobility Scooter Accident NEC,Init Encntr
+433 ;;^UTILITY(U,$J,358.3,10300,1,4,0)
+434 ;;=4^V00.838A
+435 ;;^UTILITY(U,$J,358.3,10300,2)
+436 ;;=^5055961
+437 ;;^UTILITY(U,$J,358.3,10301,0)
+438 ;;=V00.838D^^45^450^99
+439 ;;^UTILITY(U,$J,358.3,10301,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,10301,1,3,0)
+442 ;;=3^Mobility Scooter Accident NEC,Subs Encntr
+443 ;;^UTILITY(U,$J,358.3,10301,1,4,0)
+444 ;;=4^V00.838D
+445 ;;^UTILITY(U,$J,358.3,10301,2)
+446 ;;=^5055962
+447 ;;^UTILITY(U,$J,358.3,10302,0)
+448 ;;=V00.891A^^45^450^62
+449 ;;^UTILITY(U,$J,358.3,10302,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,10302,1,3,0)
+452 ;;=3^Fall from Pedestrian Conveyance,Init Encntr
+453 ;;^UTILITY(U,$J,358.3,10302,1,4,0)
+454 ;;=4^V00.891A
+455 ;;^UTILITY(U,$J,358.3,10302,2)
+456 ;;=^5055964
+457 ;;^UTILITY(U,$J,358.3,10303,0)
+458 ;;=V00.891D^^45^450^63
+459 ;;^UTILITY(U,$J,358.3,10303,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,10303,1,3,0)
+462 ;;=3^Fall from Pedestrian Conveyance,Subs Encntr
+463 ;;^UTILITY(U,$J,358.3,10303,1,4,0)
+464 ;;=4^V00.891D
+465 ;;^UTILITY(U,$J,358.3,10303,2)
+466 ;;=^5055965
+467 ;;^UTILITY(U,$J,358.3,10304,0)
+468 ;;=V00.892A^^45^450^108
+469 ;;^UTILITY(U,$J,358.3,10304,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,10304,1,3,0)
+472 ;;=3^Pedestrian Conveyance Colliding w/ Stationary Obj,Init Encntr
+473 ;;^UTILITY(U,$J,358.3,10304,1,4,0)
+474 ;;=4^V00.892A
+475 ;;^UTILITY(U,$J,358.3,10304,2)
+476 ;;=^5055967
+477 ;;^UTILITY(U,$J,358.3,10305,0)
+478 ;;=V00.892D^^45^450^109
+479 ;;^UTILITY(U,$J,358.3,10305,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,10305,1,3,0)
+482 ;;=3^Pedestrian Conveyance Colliding w/ Stationary Obj,Subs Encntr
+483 ;;^UTILITY(U,$J,358.3,10305,1,4,0)
+484 ;;=4^V00.892D
+485 ;;^UTILITY(U,$J,358.3,10305,2)
+486 ;;=^5055968
+487 ;;^UTILITY(U,$J,358.3,10306,0)
+488 ;;=V00.898A^^45^450^106
+489 ;;^UTILITY(U,$J,358.3,10306,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,10306,1,3,0)
+492 ;;=3^Pedestrian Conveyance Accident NEC,Init Encntr
+493 ;;^UTILITY(U,$J,358.3,10306,1,4,0)
+494 ;;=4^V00.898A
+495 ;;^UTILITY(U,$J,358.3,10306,2)
+496 ;;=^5055970
+497 ;;^UTILITY(U,$J,358.3,10307,0)
+498 ;;=V00.898D^^45^450^107
+499 ;;^UTILITY(U,$J,358.3,10307,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,10307,1,3,0)
+502 ;;=3^Pedestrian Conveyance Accident NEC,Subs Encntr
+503 ;;^UTILITY(U,$J,358.3,10307,1,4,0)
+504 ;;=4^V00.898D
+505 ;;^UTILITY(U,$J,358.3,10307,2)
+506 ;;=^5055971
+507 ;;^UTILITY(U,$J,358.3,10308,0)
+508 ;;=W00.0XXA^^45^450^84
+509 ;;^UTILITY(U,$J,358.3,10308,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,10308,1,3,0)
+512 ;;=3^Fall on Same Level d/t Ice/Snow,Init Encntr
+513 ;;^UTILITY(U,$J,358.3,10308,1,4,0)
+514 ;;=4^W00.0XXA
+515 ;;^UTILITY(U,$J,358.3,10308,2)
+516 ;;=^5059510
+517 ;;^UTILITY(U,$J,358.3,10309,0)
+518 ;;=W00.0XXD^^45^450^85
+519 ;;^UTILITY(U,$J,358.3,10309,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,10309,1,3,0)
+522 ;;=3^Fall on Same Level d/t Ice/Snow,Subs Encntr
+523 ;;^UTILITY(U,$J,358.3,10309,1,4,0)
+524 ;;=4^W00.0XXD
+525 ;;^UTILITY(U,$J,358.3,10309,2)
+526 ;;=^5059511
+527 ;;^UTILITY(U,$J,358.3,10310,0)
+528 ;;=W00.1XXA^^45^450^64
+529 ;;^UTILITY(U,$J,358.3,10310,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,10310,1,3,0)
+532 ;;=3^Fall from Stairs/Steps d/t Ice/Snow,Init Encntr
+533 ;;^UTILITY(U,$J,358.3,10310,1,4,0)
+534 ;;=4^W00.1XXA
+535 ;;^UTILITY(U,$J,358.3,10310,2)
+536 ;;=^5059513
+537 ;;^UTILITY(U,$J,358.3,10311,0)
+538 ;;=W00.1XXD^^45^450^65
+539 ;;^UTILITY(U,$J,358.3,10311,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,10311,1,3,0)
+542 ;;=3^Fall from Stairs/Steps d/t Ice/Snow,Subs Encntr
+543 ;;^UTILITY(U,$J,358.3,10311,1,4,0)
+544 ;;=4^W00.1XXD
+545 ;;^UTILITY(U,$J,358.3,10311,2)
+546 ;;=^5059514
+547 ;;^UTILITY(U,$J,358.3,10312,0)
+548 ;;=W00.2XXA^^45^450^58
+549 ;;^UTILITY(U,$J,358.3,10312,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,10312,1,3,0)
+552 ;;=3^Fall from One Level to Another d/t Ice/Snow,Init Encntr
+553 ;;^UTILITY(U,$J,358.3,10312,1,4,0)
+554 ;;=4^W00.2XXA
+555 ;;^UTILITY(U,$J,358.3,10312,2)
+556 ;;=^5059516
+557 ;;^UTILITY(U,$J,358.3,10313,0)
+558 ;;=W00.2XXD^^45^450^59
+559 ;;^UTILITY(U,$J,358.3,10313,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,10313,1,3,0)
+562 ;;=3^Fall from One Level to Another d/t Ice/Snow,Subs Encntr
+563 ;;^UTILITY(U,$J,358.3,10313,1,4,0)
+564 ;;=4^W00.2XXD
+565 ;;^UTILITY(U,$J,358.3,10313,2)
+566 ;;=^5059517
+567 ;;^UTILITY(U,$J,358.3,10314,0)
+568 ;;=W00.9XXA^^45^450^30
+569 ;;^UTILITY(U,$J,358.3,10314,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,10314,1,3,0)
+572 ;;=3^Fall d/t Ice/Snow,Unspec,Init Encntr
+573 ;;^UTILITY(U,$J,358.3,10314,1,4,0)
+574 ;;=4^W00.9XXA
+575 ;;^UTILITY(U,$J,358.3,10314,2)
+576 ;;=^5059519
+577 ;;^UTILITY(U,$J,358.3,10315,0)
+578 ;;=W00.9XXD^^45^450^31
+579 ;;^UTILITY(U,$J,358.3,10315,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,10315,1,3,0)
+582 ;;=3^Fall d/t Ice/Snow,Unspec,Subs Encntr
+583 ;;^UTILITY(U,$J,358.3,10315,1,4,0)
+584 ;;=4^W00.9XXD
+585 ;;^UTILITY(U,$J,358.3,10315,2)
+586 ;;=^5059520
+587 ;;^UTILITY(U,$J,358.3,10316,0)
+588 ;;=W01.0XXA^^45^450^92
+589 ;;^UTILITY(U,$J,358.3,10316,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,10316,1,3,0)
+592 ;;=3^Fall,Same Level,From Slip/Trip w/o Strike Against Obj,Init Encntr
+593 ;;^UTILITY(U,$J,358.3,10316,1,4,0)
+594 ;;=4^W01.0XXA
+595 ;;^UTILITY(U,$J,358.3,10316,2)
+596 ;;=^5059522
+597 ;;^UTILITY(U,$J,358.3,10317,0)
+598 ;;=W01.0XXD^^45^450^93
+599 ;;^UTILITY(U,$J,358.3,10317,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,10317,1,3,0)
+602 ;;=3^Fall,Same Level,From Slip/Trip w/o Strike Against Obj,Subs Encntr
+603 ;;^UTILITY(U,$J,358.3,10317,1,4,0)
+604 ;;=4^W01.0XXD
+605 ;;^UTILITY(U,$J,358.3,10317,2)
+606 ;;=^5059523
+607 ;;^UTILITY(U,$J,358.3,10318,0)
+608 ;;=W03.XXXA^^45^450^90
+609 ;;^UTILITY(U,$J,358.3,10318,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,10318,1,3,0)
+612 ;;=3^Fall,Same Level d/t Collision w/ Another Person,Init Encntr
+613 ;;^UTILITY(U,$J,358.3,10318,1,4,0)
+614 ;;=4^W03.XXXA
+615 ;;^UTILITY(U,$J,358.3,10318,2)
+616 ;;=^5059544
+617 ;;^UTILITY(U,$J,358.3,10319,0)
+618 ;;=W03.XXXD^^45^450^91
+619 ;;^UTILITY(U,$J,358.3,10319,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,10319,1,3,0)
+622 ;;=3^Fall,Same Level d/t Collision w/ Another Person,Subs Encntr
+623 ;;^UTILITY(U,$J,358.3,10319,1,4,0)
+624 ;;=4^W03.XXXD
+625 ;;^UTILITY(U,$J,358.3,10319,2)
+626 ;;=^5059545
+627 ;;^UTILITY(U,$J,358.3,10320,0)
+628 ;;=W05.0XXA^^45^450^56
+629 ;;^UTILITY(U,$J,358.3,10320,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,10320,1,3,0)
+632 ;;=3^Fall from Non-Moving Wheelchair,Init Encntr
+633 ;;^UTILITY(U,$J,358.3,10320,1,4,0)
+634 ;;=4^W05.0XXA
+635 ;;^UTILITY(U,$J,358.3,10320,2)
+636 ;;=^5059550
+637 ;;^UTILITY(U,$J,358.3,10321,0)
+638 ;;=W05.0XXD^^45^450^57
+639 ;;^UTILITY(U,$J,358.3,10321,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,10321,1,3,0)
+642 ;;=3^Fall from Non-Moving Wheelchair,Subs Encntr
