IBDEI0E8 ; ; 03-MAY-2022
;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,35655,2)
;;=^5036969
;;^UTILITY(U,$J,358.3,35656,0)
;;=S91.105A^^105^1450^10
;;^UTILITY(U,$J,358.3,35656,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35656,1,3,0)
;;=3^Open Wound,Left Lesser Toe(s) w/o Damage to Nail,Unspec
;;^UTILITY(U,$J,358.3,35656,1,4,0)
;;=4^S91.105A
;;^UTILITY(U,$J,358.3,35656,2)
;;=^5044177
;;^UTILITY(U,$J,358.3,35657,0)
;;=S81.801A^^105^1450^21
;;^UTILITY(U,$J,358.3,35657,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35657,1,3,0)
;;=3^Open Wound,Right Lower Leg,Unspec
;;^UTILITY(U,$J,358.3,35657,1,4,0)
;;=4^S81.801A
;;^UTILITY(U,$J,358.3,35657,2)
;;=^5040065
;;^UTILITY(U,$J,358.3,35658,0)
;;=S71.102A^^105^1450^12
;;^UTILITY(U,$J,358.3,35658,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35658,1,3,0)
;;=3^Open Wound,Left Thigh,Unspec
;;^UTILITY(U,$J,358.3,35658,1,4,0)
;;=4^S71.102A
;;^UTILITY(U,$J,358.3,35658,2)
;;=^5037011
;;^UTILITY(U,$J,358.3,35659,0)
;;=S71.101A^^105^1450^22
;;^UTILITY(U,$J,358.3,35659,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35659,1,3,0)
;;=3^Open Wound,Right Thigh,Unspec
;;^UTILITY(U,$J,358.3,35659,1,4,0)
;;=4^S71.101A
;;^UTILITY(U,$J,358.3,35659,2)
;;=^5037008
;;^UTILITY(U,$J,358.3,35660,0)
;;=S41.101A^^105^1450^23
;;^UTILITY(U,$J,358.3,35660,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35660,1,3,0)
;;=3^Open Wound,Right Upper Arm,Unspec
;;^UTILITY(U,$J,358.3,35660,1,4,0)
;;=4^S41.101A
;;^UTILITY(U,$J,358.3,35660,2)
;;=^5026330
;;^UTILITY(U,$J,358.3,35661,0)
;;=E03.5^^105^1451^37
;;^UTILITY(U,$J,358.3,35661,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35661,1,3,0)
;;=3^Myxedema Coma
;;^UTILITY(U,$J,358.3,35661,1,4,0)
;;=4^E03.5
;;^UTILITY(U,$J,358.3,35661,2)
;;=^5002474
;;^UTILITY(U,$J,358.3,35662,0)
;;=R40.2121^^105^1451^33
;;^UTILITY(U,$J,358.3,35662,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35662,1,3,0)
;;=3^Coma Scale,Eyes Open,to Pain,In the Field
;;^UTILITY(U,$J,358.3,35662,1,4,0)
;;=4^R40.2121
;;^UTILITY(U,$J,358.3,35662,2)
;;=^5019361
;;^UTILITY(U,$J,358.3,35663,0)
;;=R40.2120^^105^1451^34
;;^UTILITY(U,$J,358.3,35663,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35663,1,3,0)
;;=3^Coma Scale,Eyes Open,to Pain,Unspec Time
;;^UTILITY(U,$J,358.3,35663,1,4,0)
;;=4^R40.2120
;;^UTILITY(U,$J,358.3,35663,2)
;;=^5019360
;;^UTILITY(U,$J,358.3,35664,0)
;;=R40.2114^^105^1451^26
;;^UTILITY(U,$J,358.3,35664,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35664,1,3,0)
;;=3^Coma Scale,Eyes Open,Never,24+ hrs
;;^UTILITY(U,$J,358.3,35664,1,4,0)
;;=4^R40.2114
;;^UTILITY(U,$J,358.3,35664,2)
;;=^5019359
;;^UTILITY(U,$J,358.3,35665,0)
;;=R40.2113^^105^1451^30
;;^UTILITY(U,$J,358.3,35665,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35665,1,3,0)
;;=3^Coma Scale,Eyes Open,Never,at Hospital Admission
;;^UTILITY(U,$J,358.3,35665,1,4,0)
;;=4^R40.2113
;;^UTILITY(U,$J,358.3,35665,2)
;;=^5019358
;;^UTILITY(U,$J,358.3,35666,0)
;;=R40.2112^^105^1451^27
;;^UTILITY(U,$J,358.3,35666,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35666,1,3,0)
;;=3^Coma Scale,Eyes Open,Never,Emerg Dept
;;^UTILITY(U,$J,358.3,35666,1,4,0)
;;=4^R40.2112
;;^UTILITY(U,$J,358.3,35666,2)
;;=^5019357
;;^UTILITY(U,$J,358.3,35667,0)
;;=R40.2111^^105^1451^28
;;^UTILITY(U,$J,358.3,35667,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35667,1,3,0)
;;=3^Coma Scale,Eyes Open,Never,In the Field
;;^UTILITY(U,$J,358.3,35667,1,4,0)
;;=4^R40.2111
;;^UTILITY(U,$J,358.3,35667,2)
;;=^5019356
;;^UTILITY(U,$J,358.3,35668,0)
;;=R40.2110^^105^1451^29
;;^UTILITY(U,$J,358.3,35668,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35668,1,3,0)
;;=3^Coma Scale,Eyes Open,Never,Unspec Time
;;^UTILITY(U,$J,358.3,35668,1,4,0)
;;=4^R40.2110
;;^UTILITY(U,$J,358.3,35668,2)
;;=^5019355
;;^UTILITY(U,$J,358.3,35669,0)
;;=R40.20^^105^1451^36
;;^UTILITY(U,$J,358.3,35669,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35669,1,3,0)
;;=3^Coma,Unspec
;;^UTILITY(U,$J,358.3,35669,1,4,0)
;;=4^R40.20
;;^UTILITY(U,$J,358.3,35669,2)
;;=^5019354
;;^UTILITY(U,$J,358.3,35670,0)
;;=R40.2123^^105^1451^35
;;^UTILITY(U,$J,358.3,35670,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35670,1,3,0)
;;=3^Coma Scale,Eyes Open,to Pain,at Hospital Admission
;;^UTILITY(U,$J,358.3,35670,1,4,0)
;;=4^R40.2123
;;^UTILITY(U,$J,358.3,35670,2)
;;=^5019363
;;^UTILITY(U,$J,358.3,35671,0)
;;=R40.2122^^105^1451^32
;;^UTILITY(U,$J,358.3,35671,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35671,1,3,0)
;;=3^Coma Scale,Eyes Open,to Pain,Emger Dept
;;^UTILITY(U,$J,358.3,35671,1,4,0)
;;=4^R40.2122
;;^UTILITY(U,$J,358.3,35671,2)
;;=^5019362
;;^UTILITY(U,$J,358.3,35672,0)
;;=R40.2124^^105^1451^31
;;^UTILITY(U,$J,358.3,35672,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35672,1,3,0)
;;=3^Coma Scale,Eyes Open,to Pain,24+ Hrs
;;^UTILITY(U,$J,358.3,35672,1,4,0)
;;=4^R40.2124
;;^UTILITY(U,$J,358.3,35672,2)
;;=^5019364
;;^UTILITY(U,$J,358.3,35673,0)
;;=R40.2211^^105^1451^17
;;^UTILITY(U,$J,358.3,35673,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35673,1,3,0)
;;=3^Coma Scale,Best Verbal Response,None,in the Field
;;^UTILITY(U,$J,358.3,35673,1,4,0)
;;=4^R40.2211
;;^UTILITY(U,$J,358.3,35673,2)
;;=^5019376
;;^UTILITY(U,$J,358.3,35674,0)
;;=R40.2210^^105^1451^16
;;^UTILITY(U,$J,358.3,35674,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35674,1,3,0)
;;=3^Coma Scale,Best Verbal Response,None,Unspec Time
;;^UTILITY(U,$J,358.3,35674,1,4,0)
;;=4^R40.2210
;;^UTILITY(U,$J,358.3,35674,2)
;;=^5019375
;;^UTILITY(U,$J,358.3,35675,0)
;;=R40.2224^^105^1451^18
;;^UTILITY(U,$J,358.3,35675,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35675,1,3,0)
;;=3^Coma Scale,Best Verbal,Incomprehensible Words,24+ Hrs
;;^UTILITY(U,$J,358.3,35675,1,4,0)
;;=4^R40.2224
;;^UTILITY(U,$J,358.3,35675,2)
;;=^5019384
;;^UTILITY(U,$J,358.3,35676,0)
;;=R40.2223^^105^1451^19
;;^UTILITY(U,$J,358.3,35676,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35676,1,3,0)
;;=3^Coma Scale,Best Verbal,Incomprehensible Words,at Hospital Admission
;;^UTILITY(U,$J,358.3,35676,1,4,0)
;;=4^R40.2223
;;^UTILITY(U,$J,358.3,35676,2)
;;=^5019383
;;^UTILITY(U,$J,358.3,35677,0)
;;=R40.2222^^105^1451^20
;;^UTILITY(U,$J,358.3,35677,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35677,1,3,0)
;;=3^Coma Scale,Best Verbal,Incomprehensible Words,Emger Dept
;;^UTILITY(U,$J,358.3,35677,1,4,0)
;;=4^R40.2222
;;^UTILITY(U,$J,358.3,35677,2)
;;=^5019382
;;^UTILITY(U,$J,358.3,35678,0)
;;=R40.2221^^105^1451^21
;;^UTILITY(U,$J,358.3,35678,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35678,1,3,0)
;;=3^Coma Scale,Best Verbal,Incomprehensible Words,in the Field
;;^UTILITY(U,$J,358.3,35678,1,4,0)
;;=4^R40.2221
;;^UTILITY(U,$J,358.3,35678,2)
;;=^5019381
;;^UTILITY(U,$J,358.3,35679,0)
;;=R40.2220^^105^1451^22
;;^UTILITY(U,$J,358.3,35679,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35679,1,3,0)
;;=3^Coma Scale,Best Verbal,Incomprehensible Words,Unspec Time
;;^UTILITY(U,$J,358.3,35679,1,4,0)
;;=4^R40.2220
;;^UTILITY(U,$J,358.3,35679,2)
;;=^5019380
;;^UTILITY(U,$J,358.3,35680,0)
;;=R40.2214^^105^1451^23
;;^UTILITY(U,$J,358.3,35680,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35680,1,3,0)
;;=3^Coma Scale,Best Verbal,None,24+ Hrs
;;^UTILITY(U,$J,358.3,35680,1,4,0)
;;=4^R40.2214
;;^UTILITY(U,$J,358.3,35680,2)
;;=^5019379
;;^UTILITY(U,$J,358.3,35681,0)
;;=R40.2213^^105^1451^25
;;^UTILITY(U,$J,358.3,35681,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35681,1,3,0)
;;=3^Coma Scale,Best Verbal,None,at Hospital Admission
;;^UTILITY(U,$J,358.3,35681,1,4,0)
;;=4^R40.2213
;;^UTILITY(U,$J,358.3,35681,2)
;;=^5019378
;;^UTILITY(U,$J,358.3,35682,0)
;;=R40.2212^^105^1451^24
;;^UTILITY(U,$J,358.3,35682,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35682,1,3,0)
;;=3^Coma Scale,Best Verbal,None,Emger Dept
;;^UTILITY(U,$J,358.3,35682,1,4,0)
;;=4^R40.2212
;;^UTILITY(U,$J,358.3,35682,2)
;;=^5019377
;;^UTILITY(U,$J,358.3,35683,0)
;;=R40.2344^^105^1451^6
;;^UTILITY(U,$J,358.3,35683,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35683,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,24+ Hrs
;;^UTILITY(U,$J,358.3,35683,1,4,0)
;;=4^R40.2344
;;^UTILITY(U,$J,358.3,35683,2)
;;=^5019419
;;^UTILITY(U,$J,358.3,35684,0)
;;=R40.2343^^105^1451^7
;;^UTILITY(U,$J,358.3,35684,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35684,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,at Hospital Admission
;;^UTILITY(U,$J,358.3,35684,1,4,0)
;;=4^R40.2343
;;^UTILITY(U,$J,358.3,35684,2)
;;=^5019418
;;^UTILITY(U,$J,358.3,35685,0)
;;=R40.2342^^105^1451^8
;;^UTILITY(U,$J,358.3,35685,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35685,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,Emger Dept
;;^UTILITY(U,$J,358.3,35685,1,4,0)
;;=4^R40.2342
;;^UTILITY(U,$J,358.3,35685,2)
;;=^5019417
;;^UTILITY(U,$J,358.3,35686,0)
;;=R40.2341^^105^1451^9
;;^UTILITY(U,$J,358.3,35686,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35686,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,in the Field
;;^UTILITY(U,$J,358.3,35686,1,4,0)
;;=4^R40.2341
;;^UTILITY(U,$J,358.3,35686,2)
;;=^5019416
;;^UTILITY(U,$J,358.3,35687,0)
;;=R40.2340^^105^1451^10
;;^UTILITY(U,$J,358.3,35687,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35687,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,Unspec Time
;;^UTILITY(U,$J,358.3,35687,1,4,0)
;;=4^R40.2340
;;^UTILITY(U,$J,358.3,35687,2)
;;=^5019415
;;^UTILITY(U,$J,358.3,35688,0)
;;=R40.2324^^105^1451^1
;;^UTILITY(U,$J,358.3,35688,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35688,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Extension,24+ Hrs
;;^UTILITY(U,$J,358.3,35688,1,4,0)
;;=4^R40.2324
;;^UTILITY(U,$J,358.3,35688,2)
;;=^5019409
;;^UTILITY(U,$J,358.3,35689,0)
;;=R40.2323^^105^1451^4
;;^UTILITY(U,$J,358.3,35689,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35689,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Extension,at Hospital Admission
;;^UTILITY(U,$J,358.3,35689,1,4,0)
;;=4^R40.2323
;;^UTILITY(U,$J,358.3,35689,2)
;;=^5019408
;;^UTILITY(U,$J,358.3,35690,0)
;;=R40.2322^^105^1451^2
;;^UTILITY(U,$J,358.3,35690,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35690,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Extension,Emger Dept
;;^UTILITY(U,$J,358.3,35690,1,4,0)
;;=4^R40.2322
;;^UTILITY(U,$J,358.3,35690,2)
;;=^5019407
;;^UTILITY(U,$J,358.3,35691,0)
;;=R40.2321^^105^1451^5
;;^UTILITY(U,$J,358.3,35691,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35691,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Extension,in the Field
;;^UTILITY(U,$J,358.3,35691,1,4,0)
;;=4^R40.2321
;;^UTILITY(U,$J,358.3,35691,2)
;;=^5019406
;;^UTILITY(U,$J,358.3,35692,0)
;;=R40.2320^^105^1451^3
;;^UTILITY(U,$J,358.3,35692,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35692,1,3,0)
;;=3^Coma Scale,Best Motor Resp,Extension,Unspec Time
;;^UTILITY(U,$J,358.3,35692,1,4,0)
;;=4^R40.2320
;;^UTILITY(U,$J,358.3,35692,2)
;;=^5019405
;;^UTILITY(U,$J,358.3,35693,0)
;;=R40.2314^^105^1451^11
;;^UTILITY(U,$J,358.3,35693,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35693,1,3,0)
;;=3^Coma Scale,Best Motor Resp,None,24+ Hrs
;;^UTILITY(U,$J,358.3,35693,1,4,0)
;;=4^R40.2314
;;^UTILITY(U,$J,358.3,35693,2)
;;=^5019404
;;^UTILITY(U,$J,358.3,35694,0)
;;=R40.2313^^105^1451^14
;;^UTILITY(U,$J,358.3,35694,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35694,1,3,0)
;;=3^Coma Scale,Best Motor Resp,None,at Hospital Admission
;;^UTILITY(U,$J,358.3,35694,1,4,0)
;;=4^R40.2313
;;^UTILITY(U,$J,358.3,35694,2)
;;=^5019403
;;^UTILITY(U,$J,358.3,35695,0)
;;=R40.2312^^105^1451^12
;;^UTILITY(U,$J,358.3,35695,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35695,1,3,0)
;;=3^Coma Scale,Best Motor Resp,None,Emerg Dept
;;^UTILITY(U,$J,358.3,35695,1,4,0)
;;=4^R40.2312
;;^UTILITY(U,$J,358.3,35695,2)
;;=^5019402
;;^UTILITY(U,$J,358.3,35696,0)
;;=R40.2311^^105^1451^15
;;^UTILITY(U,$J,358.3,35696,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35696,1,3,0)
;;=3^Coma Scale,Best Motor Resp,None,in the Field
;;^UTILITY(U,$J,358.3,35696,1,4,0)
;;=4^R40.2311
;;^UTILITY(U,$J,358.3,35696,2)
;;=^5019401
;;^UTILITY(U,$J,358.3,35697,0)
;;=R40.2310^^105^1451^13
;;^UTILITY(U,$J,358.3,35697,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35697,1,3,0)
;;=3^Coma Scale,Best Motor Resp,None,Unspec Time
;;^UTILITY(U,$J,358.3,35697,1,4,0)
;;=4^R40.2310
;;^UTILITY(U,$J,358.3,35697,2)
;;=^5019400
;;^UTILITY(U,$J,358.3,35698,0)
;;=R40.4^^105^1451^38
;;^UTILITY(U,$J,358.3,35698,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35698,1,3,0)
;;=3^Transient Alteration of Awareness
;;^UTILITY(U,$J,358.3,35698,1,4,0)
;;=4^R40.4
;;^UTILITY(U,$J,358.3,35698,2)
;;=^5019435
;;^UTILITY(U,$J,358.3,35699,0)
;;=V00.811A^^105^1452^50
;;^UTILITY(U,$J,358.3,35699,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35699,1,3,0)
;;=3^Fall from Moving Wheelchair (pwered),Init Encntr
;;^UTILITY(U,$J,358.3,35699,1,4,0)
;;=4^V00.811A
;;^UTILITY(U,$J,358.3,35699,2)
;;=^5055937
;;^UTILITY(U,$J,358.3,35700,0)
;;=V00.811D^^105^1452^51
;;^UTILITY(U,$J,358.3,35700,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35700,1,3,0)
;;=3^Fall from Moving Wheelchair (pwered),Subs Encntr
;;^UTILITY(U,$J,358.3,35700,1,4,0)
;;=4^V00.811D
;;^UTILITY(U,$J,358.3,35700,2)
;;=^5055938
;;^UTILITY(U,$J,358.3,35701,0)
;;=V00.812A^^105^1452^142
;;^UTILITY(U,$J,358.3,35701,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35701,1,3,0)
;;=3^Wheelchair Colliding w/ Stationary Obj,Init Encntr
;;^UTILITY(U,$J,358.3,35701,1,4,0)
;;=4^V00.812A
;;^UTILITY(U,$J,358.3,35701,2)
;;=^5055940
;;^UTILITY(U,$J,358.3,35702,0)
;;=V00.812D^^105^1452^143
;;^UTILITY(U,$J,358.3,35702,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35702,1,3,0)
;;=3^Wheelchair Colliding w/ Stationary Obj,Subs Encntr
;;^UTILITY(U,$J,358.3,35702,1,4,0)
;;=4^V00.812D
;;^UTILITY(U,$J,358.3,35702,2)
;;=^5055941
;;^UTILITY(U,$J,358.3,35703,0)
;;=V00.818A^^105^1452^140
;;^UTILITY(U,$J,358.3,35703,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35703,1,3,0)
;;=3^Wheelchair Accident NEC,Init Encntr
;;^UTILITY(U,$J,358.3,35703,1,4,0)
;;=4^V00.818A
;;^UTILITY(U,$J,358.3,35703,2)
;;=^5055943
;;^UTILITY(U,$J,358.3,35704,0)
;;=V00.818D^^105^1452^141
;;^UTILITY(U,$J,358.3,35704,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35704,1,3,0)
;;=3^Wheelchair Accident NEC,Subs Encntr
;;^UTILITY(U,$J,358.3,35704,1,4,0)
;;=4^V00.818D
;;^UTILITY(U,$J,358.3,35704,2)
;;=^5055944
;;^UTILITY(U,$J,358.3,35705,0)
;;=V00.831A^^105^1452^48
;;^UTILITY(U,$J,358.3,35705,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35705,1,3,0)
;;=3^Fall from Mobility Scooter,Init Encntr
;;^UTILITY(U,$J,358.3,35705,1,4,0)
;;=4^V00.831A
;;^UTILITY(U,$J,358.3,35705,2)
;;=^5055955
;;^UTILITY(U,$J,358.3,35706,0)
;;=V00.831D^^105^1452^49
;;^UTILITY(U,$J,358.3,35706,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35706,1,3,0)
;;=3^Fall from Mobility Scooter,Subs Encntr
;;^UTILITY(U,$J,358.3,35706,1,4,0)
;;=4^V00.831D
;;^UTILITY(U,$J,358.3,35706,2)
;;=^5055956
;;^UTILITY(U,$J,358.3,35707,0)
;;=V00.832A^^105^1452^100
;;^UTILITY(U,$J,358.3,35707,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35707,1,3,0)
;;=3^Mobility Scooter Colliding w/ Stationary Obj,Init Encntr
;;^UTILITY(U,$J,358.3,35707,1,4,0)
;;=4^V00.832A
;;^UTILITY(U,$J,358.3,35707,2)
;;=^5055958
;;^UTILITY(U,$J,358.3,35708,0)
;;=V00.832D^^105^1452^101
;;^UTILITY(U,$J,358.3,35708,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35708,1,3,0)
;;=3^Mobility Scooter Colliding w/ Stationary Obj,Subs Encntr
;;^UTILITY(U,$J,358.3,35708,1,4,0)
;;=4^V00.832D
;;^UTILITY(U,$J,358.3,35708,2)
;;=^5055959
;;^UTILITY(U,$J,358.3,35709,0)
;;=V00.838A^^105^1452^98
;;^UTILITY(U,$J,358.3,35709,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35709,1,3,0)
;;=3^Mobility Scooter Accident NEC,Init Encntr
;;^UTILITY(U,$J,358.3,35709,1,4,0)
;;=4^V00.838A
;;^UTILITY(U,$J,358.3,35709,2)
;;=^5055961
;;^UTILITY(U,$J,358.3,35710,0)
;;=V00.838D^^105^1452^99
;;^UTILITY(U,$J,358.3,35710,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35710,1,3,0)
;;=3^Mobility Scooter Accident NEC,Subs Encntr
;;^UTILITY(U,$J,358.3,35710,1,4,0)
;;=4^V00.838D
;;^UTILITY(U,$J,358.3,35710,2)
;;=^5055962
;;^UTILITY(U,$J,358.3,35711,0)
;;=V00.891A^^105^1452^62
;;^UTILITY(U,$J,358.3,35711,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35711,1,3,0)
;;=3^Fall from Pedestrian Conveyance,Init Encntr
;;^UTILITY(U,$J,358.3,35711,1,4,0)
;;=4^V00.891A
;;^UTILITY(U,$J,358.3,35711,2)
;;=^5055964
;;^UTILITY(U,$J,358.3,35712,0)
;;=V00.891D^^105^1452^63
;;^UTILITY(U,$J,358.3,35712,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35712,1,3,0)
;;=3^Fall from Pedestrian Conveyance,Subs Encntr
;;^UTILITY(U,$J,358.3,35712,1,4,0)
;;=4^V00.891D
;;^UTILITY(U,$J,358.3,35712,2)
;;=^5055965
;;^UTILITY(U,$J,358.3,35713,0)
;;=V00.892A^^105^1452^108
;;^UTILITY(U,$J,358.3,35713,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35713,1,3,0)
;;=3^Pedestrian Conveyance Colliding w/ Stationary Obj,Init Encntr
;;^UTILITY(U,$J,358.3,35713,1,4,0)
;;=4^V00.892A
;;^UTILITY(U,$J,358.3,35713,2)
;;=^5055967
;;^UTILITY(U,$J,358.3,35714,0)
;;=V00.892D^^105^1452^109
;;^UTILITY(U,$J,358.3,35714,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35714,1,3,0)
;;=3^Pedestrian Conveyance Colliding w/ Stationary Obj,Subs Encntr
;;^UTILITY(U,$J,358.3,35714,1,4,0)
;;=4^V00.892D
;;^UTILITY(U,$J,358.3,35714,2)
;;=^5055968
;;^UTILITY(U,$J,358.3,35715,0)
;;=V00.898A^^105^1452^106
;;^UTILITY(U,$J,358.3,35715,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35715,1,3,0)
;;=3^Pedestrian Conveyance Accident NEC,Init Encntr
;;^UTILITY(U,$J,358.3,35715,1,4,0)
;;=4^V00.898A
;;^UTILITY(U,$J,358.3,35715,2)
;;=^5055970
;;^UTILITY(U,$J,358.3,35716,0)
;;=V00.898D^^105^1452^107
;;^UTILITY(U,$J,358.3,35716,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35716,1,3,0)
;;=3^Pedestrian Conveyance Accident NEC,Subs Encntr
;;^UTILITY(U,$J,358.3,35716,1,4,0)
;;=4^V00.898D
;;^UTILITY(U,$J,358.3,35716,2)
;;=^5055971
;;^UTILITY(U,$J,358.3,35717,0)
;;=W00.0XXA^^105^1452^84
;;^UTILITY(U,$J,358.3,35717,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35717,1,3,0)
;;=3^Fall on Same Level d/t Ice/Snow,Init Encntr
;;^UTILITY(U,$J,358.3,35717,1,4,0)
;;=4^W00.0XXA
;;^UTILITY(U,$J,358.3,35717,2)
;;=^5059510
;;^UTILITY(U,$J,358.3,35718,0)
;;=W00.0XXD^^105^1452^85
;;^UTILITY(U,$J,358.3,35718,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35718,1,3,0)
;;=3^Fall on Same Level d/t Ice/Snow,Subs Encntr
;;^UTILITY(U,$J,358.3,35718,1,4,0)
;;=4^W00.0XXD
;;^UTILITY(U,$J,358.3,35718,2)
;;=^5059511
;;^UTILITY(U,$J,358.3,35719,0)
;;=W00.1XXA^^105^1452^64
;;^UTILITY(U,$J,358.3,35719,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,35719,1,3,0)
;;=3^Fall from Stairs/Steps d/t Ice/Snow,Init Encntr
;;^UTILITY(U,$J,358.3,35719,1,4,0)
;;=4^W00.1XXA
;;^UTILITY(U,$J,358.3,35719,2)
;;=^5059513
;;^UTILITY(U,$J,358.3,35720,0)
;;=W00.1XXD^^105^1452^65
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0E8 19798 printed Sep 23, 2025@19:22:56 Page 2
IBDEI0E8 ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,35655,2)
+2 ;;=^5036969
+3 ;;^UTILITY(U,$J,358.3,35656,0)
+4 ;;=S91.105A^^105^1450^10
+5 ;;^UTILITY(U,$J,358.3,35656,1,0)
+6 ;;=^358.31IA^4^2
+7 ;;^UTILITY(U,$J,358.3,35656,1,3,0)
+8 ;;=3^Open Wound,Left Lesser Toe(s) w/o Damage to Nail,Unspec
+9 ;;^UTILITY(U,$J,358.3,35656,1,4,0)
+10 ;;=4^S91.105A
+11 ;;^UTILITY(U,$J,358.3,35656,2)
+12 ;;=^5044177
+13 ;;^UTILITY(U,$J,358.3,35657,0)
+14 ;;=S81.801A^^105^1450^21
+15 ;;^UTILITY(U,$J,358.3,35657,1,0)
+16 ;;=^358.31IA^4^2
+17 ;;^UTILITY(U,$J,358.3,35657,1,3,0)
+18 ;;=3^Open Wound,Right Lower Leg,Unspec
+19 ;;^UTILITY(U,$J,358.3,35657,1,4,0)
+20 ;;=4^S81.801A
+21 ;;^UTILITY(U,$J,358.3,35657,2)
+22 ;;=^5040065
+23 ;;^UTILITY(U,$J,358.3,35658,0)
+24 ;;=S71.102A^^105^1450^12
+25 ;;^UTILITY(U,$J,358.3,35658,1,0)
+26 ;;=^358.31IA^4^2
+27 ;;^UTILITY(U,$J,358.3,35658,1,3,0)
+28 ;;=3^Open Wound,Left Thigh,Unspec
+29 ;;^UTILITY(U,$J,358.3,35658,1,4,0)
+30 ;;=4^S71.102A
+31 ;;^UTILITY(U,$J,358.3,35658,2)
+32 ;;=^5037011
+33 ;;^UTILITY(U,$J,358.3,35659,0)
+34 ;;=S71.101A^^105^1450^22
+35 ;;^UTILITY(U,$J,358.3,35659,1,0)
+36 ;;=^358.31IA^4^2
+37 ;;^UTILITY(U,$J,358.3,35659,1,3,0)
+38 ;;=3^Open Wound,Right Thigh,Unspec
+39 ;;^UTILITY(U,$J,358.3,35659,1,4,0)
+40 ;;=4^S71.101A
+41 ;;^UTILITY(U,$J,358.3,35659,2)
+42 ;;=^5037008
+43 ;;^UTILITY(U,$J,358.3,35660,0)
+44 ;;=S41.101A^^105^1450^23
+45 ;;^UTILITY(U,$J,358.3,35660,1,0)
+46 ;;=^358.31IA^4^2
+47 ;;^UTILITY(U,$J,358.3,35660,1,3,0)
+48 ;;=3^Open Wound,Right Upper Arm,Unspec
+49 ;;^UTILITY(U,$J,358.3,35660,1,4,0)
+50 ;;=4^S41.101A
+51 ;;^UTILITY(U,$J,358.3,35660,2)
+52 ;;=^5026330
+53 ;;^UTILITY(U,$J,358.3,35661,0)
+54 ;;=E03.5^^105^1451^37
+55 ;;^UTILITY(U,$J,358.3,35661,1,0)
+56 ;;=^358.31IA^4^2
+57 ;;^UTILITY(U,$J,358.3,35661,1,3,0)
+58 ;;=3^Myxedema Coma
+59 ;;^UTILITY(U,$J,358.3,35661,1,4,0)
+60 ;;=4^E03.5
+61 ;;^UTILITY(U,$J,358.3,35661,2)
+62 ;;=^5002474
+63 ;;^UTILITY(U,$J,358.3,35662,0)
+64 ;;=R40.2121^^105^1451^33
+65 ;;^UTILITY(U,$J,358.3,35662,1,0)
+66 ;;=^358.31IA^4^2
+67 ;;^UTILITY(U,$J,358.3,35662,1,3,0)
+68 ;;=3^Coma Scale,Eyes Open,to Pain,In the Field
+69 ;;^UTILITY(U,$J,358.3,35662,1,4,0)
+70 ;;=4^R40.2121
+71 ;;^UTILITY(U,$J,358.3,35662,2)
+72 ;;=^5019361
+73 ;;^UTILITY(U,$J,358.3,35663,0)
+74 ;;=R40.2120^^105^1451^34
+75 ;;^UTILITY(U,$J,358.3,35663,1,0)
+76 ;;=^358.31IA^4^2
+77 ;;^UTILITY(U,$J,358.3,35663,1,3,0)
+78 ;;=3^Coma Scale,Eyes Open,to Pain,Unspec Time
+79 ;;^UTILITY(U,$J,358.3,35663,1,4,0)
+80 ;;=4^R40.2120
+81 ;;^UTILITY(U,$J,358.3,35663,2)
+82 ;;=^5019360
+83 ;;^UTILITY(U,$J,358.3,35664,0)
+84 ;;=R40.2114^^105^1451^26
+85 ;;^UTILITY(U,$J,358.3,35664,1,0)
+86 ;;=^358.31IA^4^2
+87 ;;^UTILITY(U,$J,358.3,35664,1,3,0)
+88 ;;=3^Coma Scale,Eyes Open,Never,24+ hrs
+89 ;;^UTILITY(U,$J,358.3,35664,1,4,0)
+90 ;;=4^R40.2114
+91 ;;^UTILITY(U,$J,358.3,35664,2)
+92 ;;=^5019359
+93 ;;^UTILITY(U,$J,358.3,35665,0)
+94 ;;=R40.2113^^105^1451^30
+95 ;;^UTILITY(U,$J,358.3,35665,1,0)
+96 ;;=^358.31IA^4^2
+97 ;;^UTILITY(U,$J,358.3,35665,1,3,0)
+98 ;;=3^Coma Scale,Eyes Open,Never,at Hospital Admission
+99 ;;^UTILITY(U,$J,358.3,35665,1,4,0)
+100 ;;=4^R40.2113
+101 ;;^UTILITY(U,$J,358.3,35665,2)
+102 ;;=^5019358
+103 ;;^UTILITY(U,$J,358.3,35666,0)
+104 ;;=R40.2112^^105^1451^27
+105 ;;^UTILITY(U,$J,358.3,35666,1,0)
+106 ;;=^358.31IA^4^2
+107 ;;^UTILITY(U,$J,358.3,35666,1,3,0)
+108 ;;=3^Coma Scale,Eyes Open,Never,Emerg Dept
+109 ;;^UTILITY(U,$J,358.3,35666,1,4,0)
+110 ;;=4^R40.2112
+111 ;;^UTILITY(U,$J,358.3,35666,2)
+112 ;;=^5019357
+113 ;;^UTILITY(U,$J,358.3,35667,0)
+114 ;;=R40.2111^^105^1451^28
+115 ;;^UTILITY(U,$J,358.3,35667,1,0)
+116 ;;=^358.31IA^4^2
+117 ;;^UTILITY(U,$J,358.3,35667,1,3,0)
+118 ;;=3^Coma Scale,Eyes Open,Never,In the Field
+119 ;;^UTILITY(U,$J,358.3,35667,1,4,0)
+120 ;;=4^R40.2111
+121 ;;^UTILITY(U,$J,358.3,35667,2)
+122 ;;=^5019356
+123 ;;^UTILITY(U,$J,358.3,35668,0)
+124 ;;=R40.2110^^105^1451^29
+125 ;;^UTILITY(U,$J,358.3,35668,1,0)
+126 ;;=^358.31IA^4^2
+127 ;;^UTILITY(U,$J,358.3,35668,1,3,0)
+128 ;;=3^Coma Scale,Eyes Open,Never,Unspec Time
+129 ;;^UTILITY(U,$J,358.3,35668,1,4,0)
+130 ;;=4^R40.2110
+131 ;;^UTILITY(U,$J,358.3,35668,2)
+132 ;;=^5019355
+133 ;;^UTILITY(U,$J,358.3,35669,0)
+134 ;;=R40.20^^105^1451^36
+135 ;;^UTILITY(U,$J,358.3,35669,1,0)
+136 ;;=^358.31IA^4^2
+137 ;;^UTILITY(U,$J,358.3,35669,1,3,0)
+138 ;;=3^Coma,Unspec
+139 ;;^UTILITY(U,$J,358.3,35669,1,4,0)
+140 ;;=4^R40.20
+141 ;;^UTILITY(U,$J,358.3,35669,2)
+142 ;;=^5019354
+143 ;;^UTILITY(U,$J,358.3,35670,0)
+144 ;;=R40.2123^^105^1451^35
+145 ;;^UTILITY(U,$J,358.3,35670,1,0)
+146 ;;=^358.31IA^4^2
+147 ;;^UTILITY(U,$J,358.3,35670,1,3,0)
+148 ;;=3^Coma Scale,Eyes Open,to Pain,at Hospital Admission
+149 ;;^UTILITY(U,$J,358.3,35670,1,4,0)
+150 ;;=4^R40.2123
+151 ;;^UTILITY(U,$J,358.3,35670,2)
+152 ;;=^5019363
+153 ;;^UTILITY(U,$J,358.3,35671,0)
+154 ;;=R40.2122^^105^1451^32
+155 ;;^UTILITY(U,$J,358.3,35671,1,0)
+156 ;;=^358.31IA^4^2
+157 ;;^UTILITY(U,$J,358.3,35671,1,3,0)
+158 ;;=3^Coma Scale,Eyes Open,to Pain,Emger Dept
+159 ;;^UTILITY(U,$J,358.3,35671,1,4,0)
+160 ;;=4^R40.2122
+161 ;;^UTILITY(U,$J,358.3,35671,2)
+162 ;;=^5019362
+163 ;;^UTILITY(U,$J,358.3,35672,0)
+164 ;;=R40.2124^^105^1451^31
+165 ;;^UTILITY(U,$J,358.3,35672,1,0)
+166 ;;=^358.31IA^4^2
+167 ;;^UTILITY(U,$J,358.3,35672,1,3,0)
+168 ;;=3^Coma Scale,Eyes Open,to Pain,24+ Hrs
+169 ;;^UTILITY(U,$J,358.3,35672,1,4,0)
+170 ;;=4^R40.2124
+171 ;;^UTILITY(U,$J,358.3,35672,2)
+172 ;;=^5019364
+173 ;;^UTILITY(U,$J,358.3,35673,0)
+174 ;;=R40.2211^^105^1451^17
+175 ;;^UTILITY(U,$J,358.3,35673,1,0)
+176 ;;=^358.31IA^4^2
+177 ;;^UTILITY(U,$J,358.3,35673,1,3,0)
+178 ;;=3^Coma Scale,Best Verbal Response,None,in the Field
+179 ;;^UTILITY(U,$J,358.3,35673,1,4,0)
+180 ;;=4^R40.2211
+181 ;;^UTILITY(U,$J,358.3,35673,2)
+182 ;;=^5019376
+183 ;;^UTILITY(U,$J,358.3,35674,0)
+184 ;;=R40.2210^^105^1451^16
+185 ;;^UTILITY(U,$J,358.3,35674,1,0)
+186 ;;=^358.31IA^4^2
+187 ;;^UTILITY(U,$J,358.3,35674,1,3,0)
+188 ;;=3^Coma Scale,Best Verbal Response,None,Unspec Time
+189 ;;^UTILITY(U,$J,358.3,35674,1,4,0)
+190 ;;=4^R40.2210
+191 ;;^UTILITY(U,$J,358.3,35674,2)
+192 ;;=^5019375
+193 ;;^UTILITY(U,$J,358.3,35675,0)
+194 ;;=R40.2224^^105^1451^18
+195 ;;^UTILITY(U,$J,358.3,35675,1,0)
+196 ;;=^358.31IA^4^2
+197 ;;^UTILITY(U,$J,358.3,35675,1,3,0)
+198 ;;=3^Coma Scale,Best Verbal,Incomprehensible Words,24+ Hrs
+199 ;;^UTILITY(U,$J,358.3,35675,1,4,0)
+200 ;;=4^R40.2224
+201 ;;^UTILITY(U,$J,358.3,35675,2)
+202 ;;=^5019384
+203 ;;^UTILITY(U,$J,358.3,35676,0)
+204 ;;=R40.2223^^105^1451^19
+205 ;;^UTILITY(U,$J,358.3,35676,1,0)
+206 ;;=^358.31IA^4^2
+207 ;;^UTILITY(U,$J,358.3,35676,1,3,0)
+208 ;;=3^Coma Scale,Best Verbal,Incomprehensible Words,at Hospital Admission
+209 ;;^UTILITY(U,$J,358.3,35676,1,4,0)
+210 ;;=4^R40.2223
+211 ;;^UTILITY(U,$J,358.3,35676,2)
+212 ;;=^5019383
+213 ;;^UTILITY(U,$J,358.3,35677,0)
+214 ;;=R40.2222^^105^1451^20
+215 ;;^UTILITY(U,$J,358.3,35677,1,0)
+216 ;;=^358.31IA^4^2
+217 ;;^UTILITY(U,$J,358.3,35677,1,3,0)
+218 ;;=3^Coma Scale,Best Verbal,Incomprehensible Words,Emger Dept
+219 ;;^UTILITY(U,$J,358.3,35677,1,4,0)
+220 ;;=4^R40.2222
+221 ;;^UTILITY(U,$J,358.3,35677,2)
+222 ;;=^5019382
+223 ;;^UTILITY(U,$J,358.3,35678,0)
+224 ;;=R40.2221^^105^1451^21
+225 ;;^UTILITY(U,$J,358.3,35678,1,0)
+226 ;;=^358.31IA^4^2
+227 ;;^UTILITY(U,$J,358.3,35678,1,3,0)
+228 ;;=3^Coma Scale,Best Verbal,Incomprehensible Words,in the Field
+229 ;;^UTILITY(U,$J,358.3,35678,1,4,0)
+230 ;;=4^R40.2221
+231 ;;^UTILITY(U,$J,358.3,35678,2)
+232 ;;=^5019381
+233 ;;^UTILITY(U,$J,358.3,35679,0)
+234 ;;=R40.2220^^105^1451^22
+235 ;;^UTILITY(U,$J,358.3,35679,1,0)
+236 ;;=^358.31IA^4^2
+237 ;;^UTILITY(U,$J,358.3,35679,1,3,0)
+238 ;;=3^Coma Scale,Best Verbal,Incomprehensible Words,Unspec Time
+239 ;;^UTILITY(U,$J,358.3,35679,1,4,0)
+240 ;;=4^R40.2220
+241 ;;^UTILITY(U,$J,358.3,35679,2)
+242 ;;=^5019380
+243 ;;^UTILITY(U,$J,358.3,35680,0)
+244 ;;=R40.2214^^105^1451^23
+245 ;;^UTILITY(U,$J,358.3,35680,1,0)
+246 ;;=^358.31IA^4^2
+247 ;;^UTILITY(U,$J,358.3,35680,1,3,0)
+248 ;;=3^Coma Scale,Best Verbal,None,24+ Hrs
+249 ;;^UTILITY(U,$J,358.3,35680,1,4,0)
+250 ;;=4^R40.2214
+251 ;;^UTILITY(U,$J,358.3,35680,2)
+252 ;;=^5019379
+253 ;;^UTILITY(U,$J,358.3,35681,0)
+254 ;;=R40.2213^^105^1451^25
+255 ;;^UTILITY(U,$J,358.3,35681,1,0)
+256 ;;=^358.31IA^4^2
+257 ;;^UTILITY(U,$J,358.3,35681,1,3,0)
+258 ;;=3^Coma Scale,Best Verbal,None,at Hospital Admission
+259 ;;^UTILITY(U,$J,358.3,35681,1,4,0)
+260 ;;=4^R40.2213
+261 ;;^UTILITY(U,$J,358.3,35681,2)
+262 ;;=^5019378
+263 ;;^UTILITY(U,$J,358.3,35682,0)
+264 ;;=R40.2212^^105^1451^24
+265 ;;^UTILITY(U,$J,358.3,35682,1,0)
+266 ;;=^358.31IA^4^2
+267 ;;^UTILITY(U,$J,358.3,35682,1,3,0)
+268 ;;=3^Coma Scale,Best Verbal,None,Emger Dept
+269 ;;^UTILITY(U,$J,358.3,35682,1,4,0)
+270 ;;=4^R40.2212
+271 ;;^UTILITY(U,$J,358.3,35682,2)
+272 ;;=^5019377
+273 ;;^UTILITY(U,$J,358.3,35683,0)
+274 ;;=R40.2344^^105^1451^6
+275 ;;^UTILITY(U,$J,358.3,35683,1,0)
+276 ;;=^358.31IA^4^2
+277 ;;^UTILITY(U,$J,358.3,35683,1,3,0)
+278 ;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,24+ Hrs
+279 ;;^UTILITY(U,$J,358.3,35683,1,4,0)
+280 ;;=4^R40.2344
+281 ;;^UTILITY(U,$J,358.3,35683,2)
+282 ;;=^5019419
+283 ;;^UTILITY(U,$J,358.3,35684,0)
+284 ;;=R40.2343^^105^1451^7
+285 ;;^UTILITY(U,$J,358.3,35684,1,0)
+286 ;;=^358.31IA^4^2
+287 ;;^UTILITY(U,$J,358.3,35684,1,3,0)
+288 ;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,at Hospital Admission
+289 ;;^UTILITY(U,$J,358.3,35684,1,4,0)
+290 ;;=4^R40.2343
+291 ;;^UTILITY(U,$J,358.3,35684,2)
+292 ;;=^5019418
+293 ;;^UTILITY(U,$J,358.3,35685,0)
+294 ;;=R40.2342^^105^1451^8
+295 ;;^UTILITY(U,$J,358.3,35685,1,0)
+296 ;;=^358.31IA^4^2
+297 ;;^UTILITY(U,$J,358.3,35685,1,3,0)
+298 ;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,Emger Dept
+299 ;;^UTILITY(U,$J,358.3,35685,1,4,0)
+300 ;;=4^R40.2342
+301 ;;^UTILITY(U,$J,358.3,35685,2)
+302 ;;=^5019417
+303 ;;^UTILITY(U,$J,358.3,35686,0)
+304 ;;=R40.2341^^105^1451^9
+305 ;;^UTILITY(U,$J,358.3,35686,1,0)
+306 ;;=^358.31IA^4^2
+307 ;;^UTILITY(U,$J,358.3,35686,1,3,0)
+308 ;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,in the Field
+309 ;;^UTILITY(U,$J,358.3,35686,1,4,0)
+310 ;;=4^R40.2341
+311 ;;^UTILITY(U,$J,358.3,35686,2)
+312 ;;=^5019416
+313 ;;^UTILITY(U,$J,358.3,35687,0)
+314 ;;=R40.2340^^105^1451^10
+315 ;;^UTILITY(U,$J,358.3,35687,1,0)
+316 ;;=^358.31IA^4^2
+317 ;;^UTILITY(U,$J,358.3,35687,1,3,0)
+318 ;;=3^Coma Scale,Best Motor Resp,Flexion Withdrawal,Unspec Time
+319 ;;^UTILITY(U,$J,358.3,35687,1,4,0)
+320 ;;=4^R40.2340
+321 ;;^UTILITY(U,$J,358.3,35687,2)
+322 ;;=^5019415
+323 ;;^UTILITY(U,$J,358.3,35688,0)
+324 ;;=R40.2324^^105^1451^1
+325 ;;^UTILITY(U,$J,358.3,35688,1,0)
+326 ;;=^358.31IA^4^2
+327 ;;^UTILITY(U,$J,358.3,35688,1,3,0)
+328 ;;=3^Coma Scale,Best Motor Resp,Extension,24+ Hrs
+329 ;;^UTILITY(U,$J,358.3,35688,1,4,0)
+330 ;;=4^R40.2324
+331 ;;^UTILITY(U,$J,358.3,35688,2)
+332 ;;=^5019409
+333 ;;^UTILITY(U,$J,358.3,35689,0)
+334 ;;=R40.2323^^105^1451^4
+335 ;;^UTILITY(U,$J,358.3,35689,1,0)
+336 ;;=^358.31IA^4^2
+337 ;;^UTILITY(U,$J,358.3,35689,1,3,0)
+338 ;;=3^Coma Scale,Best Motor Resp,Extension,at Hospital Admission
+339 ;;^UTILITY(U,$J,358.3,35689,1,4,0)
+340 ;;=4^R40.2323
+341 ;;^UTILITY(U,$J,358.3,35689,2)
+342 ;;=^5019408
+343 ;;^UTILITY(U,$J,358.3,35690,0)
+344 ;;=R40.2322^^105^1451^2
+345 ;;^UTILITY(U,$J,358.3,35690,1,0)
+346 ;;=^358.31IA^4^2
+347 ;;^UTILITY(U,$J,358.3,35690,1,3,0)
+348 ;;=3^Coma Scale,Best Motor Resp,Extension,Emger Dept
+349 ;;^UTILITY(U,$J,358.3,35690,1,4,0)
+350 ;;=4^R40.2322
+351 ;;^UTILITY(U,$J,358.3,35690,2)
+352 ;;=^5019407
+353 ;;^UTILITY(U,$J,358.3,35691,0)
+354 ;;=R40.2321^^105^1451^5
+355 ;;^UTILITY(U,$J,358.3,35691,1,0)
+356 ;;=^358.31IA^4^2
+357 ;;^UTILITY(U,$J,358.3,35691,1,3,0)
+358 ;;=3^Coma Scale,Best Motor Resp,Extension,in the Field
+359 ;;^UTILITY(U,$J,358.3,35691,1,4,0)
+360 ;;=4^R40.2321
+361 ;;^UTILITY(U,$J,358.3,35691,2)
+362 ;;=^5019406
+363 ;;^UTILITY(U,$J,358.3,35692,0)
+364 ;;=R40.2320^^105^1451^3
+365 ;;^UTILITY(U,$J,358.3,35692,1,0)
+366 ;;=^358.31IA^4^2
+367 ;;^UTILITY(U,$J,358.3,35692,1,3,0)
+368 ;;=3^Coma Scale,Best Motor Resp,Extension,Unspec Time
+369 ;;^UTILITY(U,$J,358.3,35692,1,4,0)
+370 ;;=4^R40.2320
+371 ;;^UTILITY(U,$J,358.3,35692,2)
+372 ;;=^5019405
+373 ;;^UTILITY(U,$J,358.3,35693,0)
+374 ;;=R40.2314^^105^1451^11
+375 ;;^UTILITY(U,$J,358.3,35693,1,0)
+376 ;;=^358.31IA^4^2
+377 ;;^UTILITY(U,$J,358.3,35693,1,3,0)
+378 ;;=3^Coma Scale,Best Motor Resp,None,24+ Hrs
+379 ;;^UTILITY(U,$J,358.3,35693,1,4,0)
+380 ;;=4^R40.2314
+381 ;;^UTILITY(U,$J,358.3,35693,2)
+382 ;;=^5019404
+383 ;;^UTILITY(U,$J,358.3,35694,0)
+384 ;;=R40.2313^^105^1451^14
+385 ;;^UTILITY(U,$J,358.3,35694,1,0)
+386 ;;=^358.31IA^4^2
+387 ;;^UTILITY(U,$J,358.3,35694,1,3,0)
+388 ;;=3^Coma Scale,Best Motor Resp,None,at Hospital Admission
+389 ;;^UTILITY(U,$J,358.3,35694,1,4,0)
+390 ;;=4^R40.2313
+391 ;;^UTILITY(U,$J,358.3,35694,2)
+392 ;;=^5019403
+393 ;;^UTILITY(U,$J,358.3,35695,0)
+394 ;;=R40.2312^^105^1451^12
+395 ;;^UTILITY(U,$J,358.3,35695,1,0)
+396 ;;=^358.31IA^4^2
+397 ;;^UTILITY(U,$J,358.3,35695,1,3,0)
+398 ;;=3^Coma Scale,Best Motor Resp,None,Emerg Dept
+399 ;;^UTILITY(U,$J,358.3,35695,1,4,0)
+400 ;;=4^R40.2312
+401 ;;^UTILITY(U,$J,358.3,35695,2)
+402 ;;=^5019402
+403 ;;^UTILITY(U,$J,358.3,35696,0)
+404 ;;=R40.2311^^105^1451^15
+405 ;;^UTILITY(U,$J,358.3,35696,1,0)
+406 ;;=^358.31IA^4^2
+407 ;;^UTILITY(U,$J,358.3,35696,1,3,0)
+408 ;;=3^Coma Scale,Best Motor Resp,None,in the Field
+409 ;;^UTILITY(U,$J,358.3,35696,1,4,0)
+410 ;;=4^R40.2311
+411 ;;^UTILITY(U,$J,358.3,35696,2)
+412 ;;=^5019401
+413 ;;^UTILITY(U,$J,358.3,35697,0)
+414 ;;=R40.2310^^105^1451^13
+415 ;;^UTILITY(U,$J,358.3,35697,1,0)
+416 ;;=^358.31IA^4^2
+417 ;;^UTILITY(U,$J,358.3,35697,1,3,0)
+418 ;;=3^Coma Scale,Best Motor Resp,None,Unspec Time
+419 ;;^UTILITY(U,$J,358.3,35697,1,4,0)
+420 ;;=4^R40.2310
+421 ;;^UTILITY(U,$J,358.3,35697,2)
+422 ;;=^5019400
+423 ;;^UTILITY(U,$J,358.3,35698,0)
+424 ;;=R40.4^^105^1451^38
+425 ;;^UTILITY(U,$J,358.3,35698,1,0)
+426 ;;=^358.31IA^4^2
+427 ;;^UTILITY(U,$J,358.3,35698,1,3,0)
+428 ;;=3^Transient Alteration of Awareness
+429 ;;^UTILITY(U,$J,358.3,35698,1,4,0)
+430 ;;=4^R40.4
+431 ;;^UTILITY(U,$J,358.3,35698,2)
+432 ;;=^5019435
+433 ;;^UTILITY(U,$J,358.3,35699,0)
+434 ;;=V00.811A^^105^1452^50
+435 ;;^UTILITY(U,$J,358.3,35699,1,0)
+436 ;;=^358.31IA^4^2
+437 ;;^UTILITY(U,$J,358.3,35699,1,3,0)
+438 ;;=3^Fall from Moving Wheelchair (pwered),Init Encntr
+439 ;;^UTILITY(U,$J,358.3,35699,1,4,0)
+440 ;;=4^V00.811A
+441 ;;^UTILITY(U,$J,358.3,35699,2)
+442 ;;=^5055937
+443 ;;^UTILITY(U,$J,358.3,35700,0)
+444 ;;=V00.811D^^105^1452^51
+445 ;;^UTILITY(U,$J,358.3,35700,1,0)
+446 ;;=^358.31IA^4^2
+447 ;;^UTILITY(U,$J,358.3,35700,1,3,0)
+448 ;;=3^Fall from Moving Wheelchair (pwered),Subs Encntr
+449 ;;^UTILITY(U,$J,358.3,35700,1,4,0)
+450 ;;=4^V00.811D
+451 ;;^UTILITY(U,$J,358.3,35700,2)
+452 ;;=^5055938
+453 ;;^UTILITY(U,$J,358.3,35701,0)
+454 ;;=V00.812A^^105^1452^142
+455 ;;^UTILITY(U,$J,358.3,35701,1,0)
+456 ;;=^358.31IA^4^2
+457 ;;^UTILITY(U,$J,358.3,35701,1,3,0)
+458 ;;=3^Wheelchair Colliding w/ Stationary Obj,Init Encntr
+459 ;;^UTILITY(U,$J,358.3,35701,1,4,0)
+460 ;;=4^V00.812A
+461 ;;^UTILITY(U,$J,358.3,35701,2)
+462 ;;=^5055940
+463 ;;^UTILITY(U,$J,358.3,35702,0)
+464 ;;=V00.812D^^105^1452^143
+465 ;;^UTILITY(U,$J,358.3,35702,1,0)
+466 ;;=^358.31IA^4^2
+467 ;;^UTILITY(U,$J,358.3,35702,1,3,0)
+468 ;;=3^Wheelchair Colliding w/ Stationary Obj,Subs Encntr
+469 ;;^UTILITY(U,$J,358.3,35702,1,4,0)
+470 ;;=4^V00.812D
+471 ;;^UTILITY(U,$J,358.3,35702,2)
+472 ;;=^5055941
+473 ;;^UTILITY(U,$J,358.3,35703,0)
+474 ;;=V00.818A^^105^1452^140
+475 ;;^UTILITY(U,$J,358.3,35703,1,0)
+476 ;;=^358.31IA^4^2
+477 ;;^UTILITY(U,$J,358.3,35703,1,3,0)
+478 ;;=3^Wheelchair Accident NEC,Init Encntr
+479 ;;^UTILITY(U,$J,358.3,35703,1,4,0)
+480 ;;=4^V00.818A
+481 ;;^UTILITY(U,$J,358.3,35703,2)
+482 ;;=^5055943
+483 ;;^UTILITY(U,$J,358.3,35704,0)
+484 ;;=V00.818D^^105^1452^141
+485 ;;^UTILITY(U,$J,358.3,35704,1,0)
+486 ;;=^358.31IA^4^2
+487 ;;^UTILITY(U,$J,358.3,35704,1,3,0)
+488 ;;=3^Wheelchair Accident NEC,Subs Encntr
+489 ;;^UTILITY(U,$J,358.3,35704,1,4,0)
+490 ;;=4^V00.818D
+491 ;;^UTILITY(U,$J,358.3,35704,2)
+492 ;;=^5055944
+493 ;;^UTILITY(U,$J,358.3,35705,0)
+494 ;;=V00.831A^^105^1452^48
+495 ;;^UTILITY(U,$J,358.3,35705,1,0)
+496 ;;=^358.31IA^4^2
+497 ;;^UTILITY(U,$J,358.3,35705,1,3,0)
+498 ;;=3^Fall from Mobility Scooter,Init Encntr
+499 ;;^UTILITY(U,$J,358.3,35705,1,4,0)
+500 ;;=4^V00.831A
+501 ;;^UTILITY(U,$J,358.3,35705,2)
+502 ;;=^5055955
+503 ;;^UTILITY(U,$J,358.3,35706,0)
+504 ;;=V00.831D^^105^1452^49
+505 ;;^UTILITY(U,$J,358.3,35706,1,0)
+506 ;;=^358.31IA^4^2
+507 ;;^UTILITY(U,$J,358.3,35706,1,3,0)
+508 ;;=3^Fall from Mobility Scooter,Subs Encntr
+509 ;;^UTILITY(U,$J,358.3,35706,1,4,0)
+510 ;;=4^V00.831D
+511 ;;^UTILITY(U,$J,358.3,35706,2)
+512 ;;=^5055956
+513 ;;^UTILITY(U,$J,358.3,35707,0)
+514 ;;=V00.832A^^105^1452^100
+515 ;;^UTILITY(U,$J,358.3,35707,1,0)
+516 ;;=^358.31IA^4^2
+517 ;;^UTILITY(U,$J,358.3,35707,1,3,0)
+518 ;;=3^Mobility Scooter Colliding w/ Stationary Obj,Init Encntr
+519 ;;^UTILITY(U,$J,358.3,35707,1,4,0)
+520 ;;=4^V00.832A
+521 ;;^UTILITY(U,$J,358.3,35707,2)
+522 ;;=^5055958
+523 ;;^UTILITY(U,$J,358.3,35708,0)
+524 ;;=V00.832D^^105^1452^101
+525 ;;^UTILITY(U,$J,358.3,35708,1,0)
+526 ;;=^358.31IA^4^2
+527 ;;^UTILITY(U,$J,358.3,35708,1,3,0)
+528 ;;=3^Mobility Scooter Colliding w/ Stationary Obj,Subs Encntr
+529 ;;^UTILITY(U,$J,358.3,35708,1,4,0)
+530 ;;=4^V00.832D
+531 ;;^UTILITY(U,$J,358.3,35708,2)
+532 ;;=^5055959
+533 ;;^UTILITY(U,$J,358.3,35709,0)
+534 ;;=V00.838A^^105^1452^98
+535 ;;^UTILITY(U,$J,358.3,35709,1,0)
+536 ;;=^358.31IA^4^2
+537 ;;^UTILITY(U,$J,358.3,35709,1,3,0)
+538 ;;=3^Mobility Scooter Accident NEC,Init Encntr
+539 ;;^UTILITY(U,$J,358.3,35709,1,4,0)
+540 ;;=4^V00.838A
+541 ;;^UTILITY(U,$J,358.3,35709,2)
+542 ;;=^5055961
+543 ;;^UTILITY(U,$J,358.3,35710,0)
+544 ;;=V00.838D^^105^1452^99
+545 ;;^UTILITY(U,$J,358.3,35710,1,0)
+546 ;;=^358.31IA^4^2
+547 ;;^UTILITY(U,$J,358.3,35710,1,3,0)
+548 ;;=3^Mobility Scooter Accident NEC,Subs Encntr
+549 ;;^UTILITY(U,$J,358.3,35710,1,4,0)
+550 ;;=4^V00.838D
+551 ;;^UTILITY(U,$J,358.3,35710,2)
+552 ;;=^5055962
+553 ;;^UTILITY(U,$J,358.3,35711,0)
+554 ;;=V00.891A^^105^1452^62
+555 ;;^UTILITY(U,$J,358.3,35711,1,0)
+556 ;;=^358.31IA^4^2
+557 ;;^UTILITY(U,$J,358.3,35711,1,3,0)
+558 ;;=3^Fall from Pedestrian Conveyance,Init Encntr
+559 ;;^UTILITY(U,$J,358.3,35711,1,4,0)
+560 ;;=4^V00.891A
+561 ;;^UTILITY(U,$J,358.3,35711,2)
+562 ;;=^5055964
+563 ;;^UTILITY(U,$J,358.3,35712,0)
+564 ;;=V00.891D^^105^1452^63
+565 ;;^UTILITY(U,$J,358.3,35712,1,0)
+566 ;;=^358.31IA^4^2
+567 ;;^UTILITY(U,$J,358.3,35712,1,3,0)
+568 ;;=3^Fall from Pedestrian Conveyance,Subs Encntr
+569 ;;^UTILITY(U,$J,358.3,35712,1,4,0)
+570 ;;=4^V00.891D
+571 ;;^UTILITY(U,$J,358.3,35712,2)
+572 ;;=^5055965
+573 ;;^UTILITY(U,$J,358.3,35713,0)
+574 ;;=V00.892A^^105^1452^108
+575 ;;^UTILITY(U,$J,358.3,35713,1,0)
+576 ;;=^358.31IA^4^2
+577 ;;^UTILITY(U,$J,358.3,35713,1,3,0)
+578 ;;=3^Pedestrian Conveyance Colliding w/ Stationary Obj,Init Encntr
+579 ;;^UTILITY(U,$J,358.3,35713,1,4,0)
+580 ;;=4^V00.892A
+581 ;;^UTILITY(U,$J,358.3,35713,2)
+582 ;;=^5055967
+583 ;;^UTILITY(U,$J,358.3,35714,0)
+584 ;;=V00.892D^^105^1452^109
+585 ;;^UTILITY(U,$J,358.3,35714,1,0)
+586 ;;=^358.31IA^4^2
+587 ;;^UTILITY(U,$J,358.3,35714,1,3,0)
+588 ;;=3^Pedestrian Conveyance Colliding w/ Stationary Obj,Subs Encntr
+589 ;;^UTILITY(U,$J,358.3,35714,1,4,0)
+590 ;;=4^V00.892D
+591 ;;^UTILITY(U,$J,358.3,35714,2)
+592 ;;=^5055968
+593 ;;^UTILITY(U,$J,358.3,35715,0)
+594 ;;=V00.898A^^105^1452^106
+595 ;;^UTILITY(U,$J,358.3,35715,1,0)
+596 ;;=^358.31IA^4^2
+597 ;;^UTILITY(U,$J,358.3,35715,1,3,0)
+598 ;;=3^Pedestrian Conveyance Accident NEC,Init Encntr
+599 ;;^UTILITY(U,$J,358.3,35715,1,4,0)
+600 ;;=4^V00.898A
+601 ;;^UTILITY(U,$J,358.3,35715,2)
+602 ;;=^5055970
+603 ;;^UTILITY(U,$J,358.3,35716,0)
+604 ;;=V00.898D^^105^1452^107
+605 ;;^UTILITY(U,$J,358.3,35716,1,0)
+606 ;;=^358.31IA^4^2
+607 ;;^UTILITY(U,$J,358.3,35716,1,3,0)
+608 ;;=3^Pedestrian Conveyance Accident NEC,Subs Encntr
+609 ;;^UTILITY(U,$J,358.3,35716,1,4,0)
+610 ;;=4^V00.898D
+611 ;;^UTILITY(U,$J,358.3,35716,2)
+612 ;;=^5055971
+613 ;;^UTILITY(U,$J,358.3,35717,0)
+614 ;;=W00.0XXA^^105^1452^84
+615 ;;^UTILITY(U,$J,358.3,35717,1,0)
+616 ;;=^358.31IA^4^2
+617 ;;^UTILITY(U,$J,358.3,35717,1,3,0)
+618 ;;=3^Fall on Same Level d/t Ice/Snow,Init Encntr
+619 ;;^UTILITY(U,$J,358.3,35717,1,4,0)
+620 ;;=4^W00.0XXA
+621 ;;^UTILITY(U,$J,358.3,35717,2)
+622 ;;=^5059510
+623 ;;^UTILITY(U,$J,358.3,35718,0)
+624 ;;=W00.0XXD^^105^1452^85
+625 ;;^UTILITY(U,$J,358.3,35718,1,0)
+626 ;;=^358.31IA^4^2
+627 ;;^UTILITY(U,$J,358.3,35718,1,3,0)
+628 ;;=3^Fall on Same Level d/t Ice/Snow,Subs Encntr
+629 ;;^UTILITY(U,$J,358.3,35718,1,4,0)
+630 ;;=4^W00.0XXD
+631 ;;^UTILITY(U,$J,358.3,35718,2)
+632 ;;=^5059511
+633 ;;^UTILITY(U,$J,358.3,35719,0)
+634 ;;=W00.1XXA^^105^1452^64
+635 ;;^UTILITY(U,$J,358.3,35719,1,0)
+636 ;;=^358.31IA^4^2
+637 ;;^UTILITY(U,$J,358.3,35719,1,3,0)
+638 ;;=3^Fall from Stairs/Steps d/t Ice/Snow,Init Encntr
+639 ;;^UTILITY(U,$J,358.3,35719,1,4,0)
+640 ;;=4^W00.1XXA
+641 ;;^UTILITY(U,$J,358.3,35719,2)
+642 ;;=^5059513
+643 ;;^UTILITY(U,$J,358.3,35720,0)
+644 ;;=W00.1XXD^^105^1452^65
