IBDEI0FD ; ; 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,38417,1,3,0)
;;=3^Mobility Scooter Accident NEC,Init Encntr
;;^UTILITY(U,$J,358.3,38417,1,4,0)
;;=4^V00.838A
;;^UTILITY(U,$J,358.3,38417,2)
;;=^5055961
;;^UTILITY(U,$J,358.3,38418,0)
;;=V00.838D^^107^1506^99
;;^UTILITY(U,$J,358.3,38418,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38418,1,3,0)
;;=3^Mobility Scooter Accident NEC,Subs Encntr
;;^UTILITY(U,$J,358.3,38418,1,4,0)
;;=4^V00.838D
;;^UTILITY(U,$J,358.3,38418,2)
;;=^5055962
;;^UTILITY(U,$J,358.3,38419,0)
;;=V00.891A^^107^1506^62
;;^UTILITY(U,$J,358.3,38419,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38419,1,3,0)
;;=3^Fall from Pedestrian Conveyance,Init Encntr
;;^UTILITY(U,$J,358.3,38419,1,4,0)
;;=4^V00.891A
;;^UTILITY(U,$J,358.3,38419,2)
;;=^5055964
;;^UTILITY(U,$J,358.3,38420,0)
;;=V00.891D^^107^1506^63
;;^UTILITY(U,$J,358.3,38420,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38420,1,3,0)
;;=3^Fall from Pedestrian Conveyance,Subs Encntr
;;^UTILITY(U,$J,358.3,38420,1,4,0)
;;=4^V00.891D
;;^UTILITY(U,$J,358.3,38420,2)
;;=^5055965
;;^UTILITY(U,$J,358.3,38421,0)
;;=V00.892A^^107^1506^108
;;^UTILITY(U,$J,358.3,38421,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38421,1,3,0)
;;=3^Pedestrian Conveyance Colliding w/ Stationary Obj,Init Encntr
;;^UTILITY(U,$J,358.3,38421,1,4,0)
;;=4^V00.892A
;;^UTILITY(U,$J,358.3,38421,2)
;;=^5055967
;;^UTILITY(U,$J,358.3,38422,0)
;;=V00.892D^^107^1506^109
;;^UTILITY(U,$J,358.3,38422,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38422,1,3,0)
;;=3^Pedestrian Conveyance Colliding w/ Stationary Obj,Subs Encntr
;;^UTILITY(U,$J,358.3,38422,1,4,0)
;;=4^V00.892D
;;^UTILITY(U,$J,358.3,38422,2)
;;=^5055968
;;^UTILITY(U,$J,358.3,38423,0)
;;=V00.898A^^107^1506^106
;;^UTILITY(U,$J,358.3,38423,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38423,1,3,0)
;;=3^Pedestrian Conveyance Accident NEC,Init Encntr
;;^UTILITY(U,$J,358.3,38423,1,4,0)
;;=4^V00.898A
;;^UTILITY(U,$J,358.3,38423,2)
;;=^5055970
;;^UTILITY(U,$J,358.3,38424,0)
;;=V00.898D^^107^1506^107
;;^UTILITY(U,$J,358.3,38424,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38424,1,3,0)
;;=3^Pedestrian Conveyance Accident NEC,Subs Encntr
;;^UTILITY(U,$J,358.3,38424,1,4,0)
;;=4^V00.898D
;;^UTILITY(U,$J,358.3,38424,2)
;;=^5055971
;;^UTILITY(U,$J,358.3,38425,0)
;;=W00.0XXA^^107^1506^84
;;^UTILITY(U,$J,358.3,38425,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38425,1,3,0)
;;=3^Fall on Same Level d/t Ice/Snow,Init Encntr
;;^UTILITY(U,$J,358.3,38425,1,4,0)
;;=4^W00.0XXA
;;^UTILITY(U,$J,358.3,38425,2)
;;=^5059510
;;^UTILITY(U,$J,358.3,38426,0)
;;=W00.0XXD^^107^1506^85
;;^UTILITY(U,$J,358.3,38426,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38426,1,3,0)
;;=3^Fall on Same Level d/t Ice/Snow,Subs Encntr
;;^UTILITY(U,$J,358.3,38426,1,4,0)
;;=4^W00.0XXD
;;^UTILITY(U,$J,358.3,38426,2)
;;=^5059511
;;^UTILITY(U,$J,358.3,38427,0)
;;=W00.1XXA^^107^1506^64
;;^UTILITY(U,$J,358.3,38427,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38427,1,3,0)
;;=3^Fall from Stairs/Steps d/t Ice/Snow,Init Encntr
;;^UTILITY(U,$J,358.3,38427,1,4,0)
;;=4^W00.1XXA
;;^UTILITY(U,$J,358.3,38427,2)
;;=^5059513
;;^UTILITY(U,$J,358.3,38428,0)
;;=W00.1XXD^^107^1506^65
;;^UTILITY(U,$J,358.3,38428,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38428,1,3,0)
;;=3^Fall from Stairs/Steps d/t Ice/Snow,Subs Encntr
;;^UTILITY(U,$J,358.3,38428,1,4,0)
;;=4^W00.1XXD
;;^UTILITY(U,$J,358.3,38428,2)
;;=^5059514
;;^UTILITY(U,$J,358.3,38429,0)
;;=W00.2XXA^^107^1506^58
;;^UTILITY(U,$J,358.3,38429,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38429,1,3,0)
;;=3^Fall from One Level to Another d/t Ice/Snow,Init Encntr
;;^UTILITY(U,$J,358.3,38429,1,4,0)
;;=4^W00.2XXA
;;^UTILITY(U,$J,358.3,38429,2)
;;=^5059516
;;^UTILITY(U,$J,358.3,38430,0)
;;=W00.2XXD^^107^1506^59
;;^UTILITY(U,$J,358.3,38430,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38430,1,3,0)
;;=3^Fall from One Level to Another d/t Ice/Snow,Subs Encntr
;;^UTILITY(U,$J,358.3,38430,1,4,0)
;;=4^W00.2XXD
;;^UTILITY(U,$J,358.3,38430,2)
;;=^5059517
;;^UTILITY(U,$J,358.3,38431,0)
;;=W00.9XXA^^107^1506^30
;;^UTILITY(U,$J,358.3,38431,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38431,1,3,0)
;;=3^Fall d/t Ice/Snow,Unspec,Init Encntr
;;^UTILITY(U,$J,358.3,38431,1,4,0)
;;=4^W00.9XXA
;;^UTILITY(U,$J,358.3,38431,2)
;;=^5059519
;;^UTILITY(U,$J,358.3,38432,0)
;;=W00.9XXD^^107^1506^31
;;^UTILITY(U,$J,358.3,38432,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38432,1,3,0)
;;=3^Fall d/t Ice/Snow,Unspec,Subs Encntr
;;^UTILITY(U,$J,358.3,38432,1,4,0)
;;=4^W00.9XXD
;;^UTILITY(U,$J,358.3,38432,2)
;;=^5059520
;;^UTILITY(U,$J,358.3,38433,0)
;;=W01.0XXA^^107^1506^92
;;^UTILITY(U,$J,358.3,38433,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38433,1,3,0)
;;=3^Fall,Same Level,From Slip/Trip w/o Strike Against Obj,Init Encntr
;;^UTILITY(U,$J,358.3,38433,1,4,0)
;;=4^W01.0XXA
;;^UTILITY(U,$J,358.3,38433,2)
;;=^5059522
;;^UTILITY(U,$J,358.3,38434,0)
;;=W01.0XXD^^107^1506^93
;;^UTILITY(U,$J,358.3,38434,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38434,1,3,0)
;;=3^Fall,Same Level,From Slip/Trip w/o Strike Against Obj,Subs Encntr
;;^UTILITY(U,$J,358.3,38434,1,4,0)
;;=4^W01.0XXD
;;^UTILITY(U,$J,358.3,38434,2)
;;=^5059523
;;^UTILITY(U,$J,358.3,38435,0)
;;=W03.XXXA^^107^1506^90
;;^UTILITY(U,$J,358.3,38435,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38435,1,3,0)
;;=3^Fall,Same Level d/t Collision w/ Another Person,Init Encntr
;;^UTILITY(U,$J,358.3,38435,1,4,0)
;;=4^W03.XXXA
;;^UTILITY(U,$J,358.3,38435,2)
;;=^5059544
;;^UTILITY(U,$J,358.3,38436,0)
;;=W03.XXXD^^107^1506^91
;;^UTILITY(U,$J,358.3,38436,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38436,1,3,0)
;;=3^Fall,Same Level d/t Collision w/ Another Person,Subs Encntr
;;^UTILITY(U,$J,358.3,38436,1,4,0)
;;=4^W03.XXXD
;;^UTILITY(U,$J,358.3,38436,2)
;;=^5059545
;;^UTILITY(U,$J,358.3,38437,0)
;;=W05.0XXA^^107^1506^56
;;^UTILITY(U,$J,358.3,38437,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38437,1,3,0)
;;=3^Fall from Non-Moving Wheelchair,Init Encntr
;;^UTILITY(U,$J,358.3,38437,1,4,0)
;;=4^W05.0XXA
;;^UTILITY(U,$J,358.3,38437,2)
;;=^5059550
;;^UTILITY(U,$J,358.3,38438,0)
;;=W05.0XXD^^107^1506^57
;;^UTILITY(U,$J,358.3,38438,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38438,1,3,0)
;;=3^Fall from Non-Moving Wheelchair,Subs Encntr
;;^UTILITY(U,$J,358.3,38438,1,4,0)
;;=4^W05.0XXD
;;^UTILITY(U,$J,358.3,38438,2)
;;=^5059551
;;^UTILITY(U,$J,358.3,38439,0)
;;=W05.1XXA^^107^1506^54
;;^UTILITY(U,$J,358.3,38439,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38439,1,3,0)
;;=3^Fall from Non-Moving Non-Motorized Scooter,Init Encntr
;;^UTILITY(U,$J,358.3,38439,1,4,0)
;;=4^W05.1XXA
;;^UTILITY(U,$J,358.3,38439,2)
;;=^5059553
;;^UTILITY(U,$J,358.3,38440,0)
;;=W05.1XXD^^107^1506^55
;;^UTILITY(U,$J,358.3,38440,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38440,1,3,0)
;;=3^Fall from Non-Moving Non-Motorized Scooter,Subs Encntr
;;^UTILITY(U,$J,358.3,38440,1,4,0)
;;=4^W05.1XXD
;;^UTILITY(U,$J,358.3,38440,2)
;;=^5059554
;;^UTILITY(U,$J,358.3,38441,0)
;;=W05.2XXA^^107^1506^52
;;^UTILITY(U,$J,358.3,38441,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38441,1,3,0)
;;=3^Fall from Non-Moving Motorized Scooter,Init Encntr
;;^UTILITY(U,$J,358.3,38441,1,4,0)
;;=4^W05.2XXA
;;^UTILITY(U,$J,358.3,38441,2)
;;=^5059556
;;^UTILITY(U,$J,358.3,38442,0)
;;=W05.2XXD^^107^1506^53
;;^UTILITY(U,$J,358.3,38442,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38442,1,3,0)
;;=3^Fall from Non-Moving Motorized Scooter,Subs Encntr
;;^UTILITY(U,$J,358.3,38442,1,4,0)
;;=4^W05.2XXD
;;^UTILITY(U,$J,358.3,38442,2)
;;=^5059557
;;^UTILITY(U,$J,358.3,38443,0)
;;=W06.XXXA^^107^1506^34
;;^UTILITY(U,$J,358.3,38443,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38443,1,3,0)
;;=3^Fall from Bed,Init Encntr
;;^UTILITY(U,$J,358.3,38443,1,4,0)
;;=4^W06.XXXA
;;^UTILITY(U,$J,358.3,38443,2)
;;=^5059559
;;^UTILITY(U,$J,358.3,38444,0)
;;=W06.XXXD^^107^1506^35
;;^UTILITY(U,$J,358.3,38444,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38444,1,3,0)
;;=3^Fall from Bed,Subs Encntr
;;^UTILITY(U,$J,358.3,38444,1,4,0)
;;=4^W06.XXXD
;;^UTILITY(U,$J,358.3,38444,2)
;;=^5059560
;;^UTILITY(U,$J,358.3,38445,0)
;;=W07.XXXA^^107^1506^42
;;^UTILITY(U,$J,358.3,38445,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38445,1,3,0)
;;=3^Fall from Chair,Init Encntr
;;^UTILITY(U,$J,358.3,38445,1,4,0)
;;=4^W07.XXXA
;;^UTILITY(U,$J,358.3,38445,2)
;;=^5059562
;;^UTILITY(U,$J,358.3,38446,0)
;;=W07.XXXD^^107^1506^43
;;^UTILITY(U,$J,358.3,38446,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38446,1,3,0)
;;=3^Fall from Chair,Subs Encntr
;;^UTILITY(U,$J,358.3,38446,1,4,0)
;;=4^W07.XXXD
;;^UTILITY(U,$J,358.3,38446,2)
;;=^5059563
;;^UTILITY(U,$J,358.3,38447,0)
;;=W10.1XXA^^107^1506^86
;;^UTILITY(U,$J,358.3,38447,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38447,1,3,0)
;;=3^Fall on Sidewalk Curb,Init Encntr
;;^UTILITY(U,$J,358.3,38447,1,4,0)
;;=4^W10.1XXA
;;^UTILITY(U,$J,358.3,38447,2)
;;=^5059583
;;^UTILITY(U,$J,358.3,38448,0)
;;=W10.1XXD^^107^1506^87
;;^UTILITY(U,$J,358.3,38448,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38448,1,3,0)
;;=3^Fall on Sidewalk Curb,Subs Encntr
;;^UTILITY(U,$J,358.3,38448,1,4,0)
;;=4^W10.1XXD
;;^UTILITY(U,$J,358.3,38448,2)
;;=^5059584
;;^UTILITY(U,$J,358.3,38449,0)
;;=W11.XXXA^^107^1506^46
;;^UTILITY(U,$J,358.3,38449,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38449,1,3,0)
;;=3^Fall from Ladder,Init Encntr
;;^UTILITY(U,$J,358.3,38449,1,4,0)
;;=4^W11.XXXA
;;^UTILITY(U,$J,358.3,38449,2)
;;=^5059595
;;^UTILITY(U,$J,358.3,38450,0)
;;=W11.XXXD^^107^1506^47
;;^UTILITY(U,$J,358.3,38450,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38450,1,3,0)
;;=3^Fall from Ladder,Subs Encntr
;;^UTILITY(U,$J,358.3,38450,1,4,0)
;;=4^W11.XXXD
;;^UTILITY(U,$J,358.3,38450,2)
;;=^5059596
;;^UTILITY(U,$J,358.3,38451,0)
;;=W13.0XXA^^107^1506^72
;;^UTILITY(U,$J,358.3,38451,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38451,1,3,0)
;;=3^Fall from/through Balcony,Init Encntr
;;^UTILITY(U,$J,358.3,38451,1,4,0)
;;=4^W13.0XXA
;;^UTILITY(U,$J,358.3,38451,2)
;;=^5059601
;;^UTILITY(U,$J,358.3,38452,0)
;;=W13.0XXD^^107^1506^73
;;^UTILITY(U,$J,358.3,38452,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38452,1,3,0)
;;=3^Fall from/through Balcony,Subs Encntr
;;^UTILITY(U,$J,358.3,38452,1,4,0)
;;=4^W13.0XXD
;;^UTILITY(U,$J,358.3,38452,2)
;;=^5059602
;;^UTILITY(U,$J,358.3,38453,0)
;;=W13.1XXA^^107^1506^36
;;^UTILITY(U,$J,358.3,38453,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38453,1,3,0)
;;=3^Fall from Bridge,Init Encntr
;;^UTILITY(U,$J,358.3,38453,1,4,0)
;;=4^W13.1XXA
;;^UTILITY(U,$J,358.3,38453,2)
;;=^5059604
;;^UTILITY(U,$J,358.3,38454,0)
;;=W13.1XXD^^107^1506^37
;;^UTILITY(U,$J,358.3,38454,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38454,1,3,0)
;;=3^Fall from Bridge,Subs Encntr
;;^UTILITY(U,$J,358.3,38454,1,4,0)
;;=4^W13.1XXD
;;^UTILITY(U,$J,358.3,38454,2)
;;=^5059605
;;^UTILITY(U,$J,358.3,38455,0)
;;=W13.2XXA^^107^1506^74
;;^UTILITY(U,$J,358.3,38455,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38455,1,3,0)
;;=3^Fall from/through Roof,Init Encntr
;;^UTILITY(U,$J,358.3,38455,1,4,0)
;;=4^W13.2XXA
;;^UTILITY(U,$J,358.3,38455,2)
;;=^5059607
;;^UTILITY(U,$J,358.3,38456,0)
;;=W13.2XXD^^107^1506^75
;;^UTILITY(U,$J,358.3,38456,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38456,1,3,0)
;;=3^Fall from/through Roof,Subs Encntr
;;^UTILITY(U,$J,358.3,38456,1,4,0)
;;=4^W13.2XXD
;;^UTILITY(U,$J,358.3,38456,2)
;;=^5059608
;;^UTILITY(U,$J,358.3,38457,0)
;;=W13.3XXA^^107^1506^88
;;^UTILITY(U,$J,358.3,38457,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38457,1,3,0)
;;=3^Fall through Floor,Init Encntr
;;^UTILITY(U,$J,358.3,38457,1,4,0)
;;=4^W13.3XXA
;;^UTILITY(U,$J,358.3,38457,2)
;;=^5059610
;;^UTILITY(U,$J,358.3,38458,0)
;;=W13.3XXD^^107^1506^89
;;^UTILITY(U,$J,358.3,38458,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38458,1,3,0)
;;=3^Fall through Floor,Subs Encntr
;;^UTILITY(U,$J,358.3,38458,1,4,0)
;;=4^W13.3XXD
;;^UTILITY(U,$J,358.3,38458,2)
;;=^5059611
;;^UTILITY(U,$J,358.3,38459,0)
;;=W13.4XXA^^107^1506^76
;;^UTILITY(U,$J,358.3,38459,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38459,1,3,0)
;;=3^Fall from/through Window,Init Encntr
;;^UTILITY(U,$J,358.3,38459,1,4,0)
;;=4^W13.4XXA
;;^UTILITY(U,$J,358.3,38459,2)
;;=^5059613
;;^UTILITY(U,$J,358.3,38460,0)
;;=W13.4XXD^^107^1506^77
;;^UTILITY(U,$J,358.3,38460,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38460,1,3,0)
;;=3^Fall from/through Window,Subs Encntr
;;^UTILITY(U,$J,358.3,38460,1,4,0)
;;=4^W13.4XXD
;;^UTILITY(U,$J,358.3,38460,2)
;;=^5059614
;;^UTILITY(U,$J,358.3,38461,0)
;;=W13.8XXA^^107^1506^40
;;^UTILITY(U,$J,358.3,38461,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38461,1,3,0)
;;=3^Fall from Building/Structure,Init Encntr
;;^UTILITY(U,$J,358.3,38461,1,4,0)
;;=4^W13.8XXA
;;^UTILITY(U,$J,358.3,38461,2)
;;=^5059616
;;^UTILITY(U,$J,358.3,38462,0)
;;=W13.8XXD^^107^1506^41
;;^UTILITY(U,$J,358.3,38462,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38462,1,3,0)
;;=3^Fall from Building/Structure,Subs Encntr
;;^UTILITY(U,$J,358.3,38462,1,4,0)
;;=4^W13.8XXD
;;^UTILITY(U,$J,358.3,38462,2)
;;=^5059617
;;^UTILITY(U,$J,358.3,38463,0)
;;=W13.9XXA^^107^1506^38
;;^UTILITY(U,$J,358.3,38463,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38463,1,3,0)
;;=3^Fall from Building NOS,Init Encntr
;;^UTILITY(U,$J,358.3,38463,1,4,0)
;;=4^W13.9XXA
;;^UTILITY(U,$J,358.3,38463,2)
;;=^5059619
;;^UTILITY(U,$J,358.3,38464,0)
;;=W13.9XXD^^107^1506^39
;;^UTILITY(U,$J,358.3,38464,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38464,1,3,0)
;;=3^Fall from Building NOS,Subs Encntr
;;^UTILITY(U,$J,358.3,38464,1,4,0)
;;=4^W13.9XXD
;;^UTILITY(U,$J,358.3,38464,2)
;;=^5059620
;;^UTILITY(U,$J,358.3,38465,0)
;;=W14.XXXA^^107^1506^70
;;^UTILITY(U,$J,358.3,38465,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38465,1,3,0)
;;=3^Fall from Tree,Init Encntr
;;^UTILITY(U,$J,358.3,38465,1,4,0)
;;=4^W14.XXXA
;;^UTILITY(U,$J,358.3,38465,2)
;;=^5059622
;;^UTILITY(U,$J,358.3,38466,0)
;;=W14.XXXD^^107^1506^71
;;^UTILITY(U,$J,358.3,38466,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38466,1,3,0)
;;=3^Fall from Tree,Subs Encntr
;;^UTILITY(U,$J,358.3,38466,1,4,0)
;;=4^W14.XXXD
;;^UTILITY(U,$J,358.3,38466,2)
;;=^5059623
;;^UTILITY(U,$J,358.3,38467,0)
;;=W17.2XXA^^107^1506^82
;;^UTILITY(U,$J,358.3,38467,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38467,1,3,0)
;;=3^Fall into Hole,Init Encntr
;;^UTILITY(U,$J,358.3,38467,1,4,0)
;;=4^W17.2XXA
;;^UTILITY(U,$J,358.3,38467,2)
;;=^5059772
;;^UTILITY(U,$J,358.3,38468,0)
;;=W17.2XXD^^107^1506^83
;;^UTILITY(U,$J,358.3,38468,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38468,1,3,0)
;;=3^Fall into Hole,Subs Encntr
;;^UTILITY(U,$J,358.3,38468,1,4,0)
;;=4^W17.2XXD
;;^UTILITY(U,$J,358.3,38468,2)
;;=^5059773
;;^UTILITY(U,$J,358.3,38469,0)
;;=W17.3XXA^^107^1506^80
;;^UTILITY(U,$J,358.3,38469,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38469,1,3,0)
;;=3^Fall into Empty Swimming Pool,Init Encntr
;;^UTILITY(U,$J,358.3,38469,1,4,0)
;;=4^W17.3XXA
;;^UTILITY(U,$J,358.3,38469,2)
;;=^5059775
;;^UTILITY(U,$J,358.3,38470,0)
;;=W17.3XXD^^107^1506^81
;;^UTILITY(U,$J,358.3,38470,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38470,1,3,0)
;;=3^Fall into Empty Swimming Pool,Subs Encntr
;;^UTILITY(U,$J,358.3,38470,1,4,0)
;;=4^W17.3XXD
;;^UTILITY(U,$J,358.3,38470,2)
;;=^5059776
;;^UTILITY(U,$J,358.3,38471,0)
;;=W17.4XXA^^107^1506^44
;;^UTILITY(U,$J,358.3,38471,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38471,1,3,0)
;;=3^Fall from Dock,Init Encntr
;;^UTILITY(U,$J,358.3,38471,1,4,0)
;;=4^W17.4XXA
;;^UTILITY(U,$J,358.3,38471,2)
;;=^5059778
;;^UTILITY(U,$J,358.3,38472,0)
;;=W17.4XXD^^107^1506^45
;;^UTILITY(U,$J,358.3,38472,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38472,1,3,0)
;;=3^Fall from Dock,Subs Encntr
;;^UTILITY(U,$J,358.3,38472,1,4,0)
;;=4^W17.4XXD
;;^UTILITY(U,$J,358.3,38472,2)
;;=^5059779
;;^UTILITY(U,$J,358.3,38473,0)
;;=W17.81XA^^107^1506^32
;;^UTILITY(U,$J,358.3,38473,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38473,1,3,0)
;;=3^Fall down Embankment,Init Encntr
;;^UTILITY(U,$J,358.3,38473,1,4,0)
;;=4^W17.81XA
;;^UTILITY(U,$J,358.3,38473,2)
;;=^5059781
;;^UTILITY(U,$J,358.3,38474,0)
;;=W17.81XD^^107^1506^33
;;^UTILITY(U,$J,358.3,38474,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38474,1,3,0)
;;=3^Fall down Embankment,Subs Encntr
;;^UTILITY(U,$J,358.3,38474,1,4,0)
;;=4^W17.81XD
;;^UTILITY(U,$J,358.3,38474,2)
;;=^5059782
;;^UTILITY(U,$J,358.3,38475,0)
;;=W17.89XA^^107^1506^60
;;^UTILITY(U,$J,358.3,38475,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38475,1,3,0)
;;=3^Fall from One level to Another,Init Encntr
;;^UTILITY(U,$J,358.3,38475,1,4,0)
;;=4^W17.89XA
;;^UTILITY(U,$J,358.3,38475,2)
;;=^5059787
;;^UTILITY(U,$J,358.3,38476,0)
;;=W17.89XD^^107^1506^61
;;^UTILITY(U,$J,358.3,38476,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38476,1,3,0)
;;=3^Fall from One level to Another,Subs Encntr
;;^UTILITY(U,$J,358.3,38476,1,4,0)
;;=4^W17.89XD
;;^UTILITY(U,$J,358.3,38476,2)
;;=^5059788
;;^UTILITY(U,$J,358.3,38477,0)
;;=W18.11XA^^107^1506^68
;;^UTILITY(U,$J,358.3,38477,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38477,1,3,0)
;;=3^Fall from Toilet w/o Strike Against Obj,Init Encntr
;;^UTILITY(U,$J,358.3,38477,1,4,0)
;;=4^W18.11XA
;;^UTILITY(U,$J,358.3,38477,2)
;;=^5059801
;;^UTILITY(U,$J,358.3,38478,0)
;;=W18.11XD^^107^1506^69
;;^UTILITY(U,$J,358.3,38478,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38478,1,3,0)
;;=3^Fall from Toilet w/o Strike Against Obj,Subs Encntr
;;^UTILITY(U,$J,358.3,38478,1,4,0)
;;=4^W18.11XD
;;^UTILITY(U,$J,358.3,38478,2)
;;=^5059802
;;^UTILITY(U,$J,358.3,38479,0)
;;=W18.12XA^^107^1506^66
;;^UTILITY(U,$J,358.3,38479,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38479,1,3,0)
;;=3^Fall from Toilet w/ Strike Against Obj,Init Encntr
;;^UTILITY(U,$J,358.3,38479,1,4,0)
;;=4^W18.12XA
;;^UTILITY(U,$J,358.3,38479,2)
;;=^5059804
;;^UTILITY(U,$J,358.3,38480,0)
;;=W18.12XD^^107^1506^67
;;^UTILITY(U,$J,358.3,38480,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38480,1,3,0)
;;=3^Fall from Toilet w/ Strike Against Obj,Subs Encntr
;;^UTILITY(U,$J,358.3,38480,1,4,0)
;;=4^W18.12XD
;;^UTILITY(U,$J,358.3,38480,2)
;;=^5137984
;;^UTILITY(U,$J,358.3,38481,0)
;;=W18.2XXA^^107^1506^78
;;^UTILITY(U,$J,358.3,38481,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38481,1,3,0)
;;=3^Fall in Empty Shower/Bathtub,Init Encntr
;;^UTILITY(U,$J,358.3,38481,1,4,0)
;;=4^W18.2XXA
;;^UTILITY(U,$J,358.3,38481,2)
;;=^5059806
;;^UTILITY(U,$J,358.3,38482,0)
;;=W18.2XXD^^107^1506^79
;;^UTILITY(U,$J,358.3,38482,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38482,1,3,0)
;;=3^Fall in Empty Shower/Bathtub,Subs Encntr
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0FD 19798 printed Sep 23, 2025@19:23:35 Page 2
IBDEI0FD ; ; 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,38417,1,3,0)
+2 ;;=3^Mobility Scooter Accident NEC,Init Encntr
+3 ;;^UTILITY(U,$J,358.3,38417,1,4,0)
+4 ;;=4^V00.838A
+5 ;;^UTILITY(U,$J,358.3,38417,2)
+6 ;;=^5055961
+7 ;;^UTILITY(U,$J,358.3,38418,0)
+8 ;;=V00.838D^^107^1506^99
+9 ;;^UTILITY(U,$J,358.3,38418,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,38418,1,3,0)
+12 ;;=3^Mobility Scooter Accident NEC,Subs Encntr
+13 ;;^UTILITY(U,$J,358.3,38418,1,4,0)
+14 ;;=4^V00.838D
+15 ;;^UTILITY(U,$J,358.3,38418,2)
+16 ;;=^5055962
+17 ;;^UTILITY(U,$J,358.3,38419,0)
+18 ;;=V00.891A^^107^1506^62
+19 ;;^UTILITY(U,$J,358.3,38419,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,38419,1,3,0)
+22 ;;=3^Fall from Pedestrian Conveyance,Init Encntr
+23 ;;^UTILITY(U,$J,358.3,38419,1,4,0)
+24 ;;=4^V00.891A
+25 ;;^UTILITY(U,$J,358.3,38419,2)
+26 ;;=^5055964
+27 ;;^UTILITY(U,$J,358.3,38420,0)
+28 ;;=V00.891D^^107^1506^63
+29 ;;^UTILITY(U,$J,358.3,38420,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,38420,1,3,0)
+32 ;;=3^Fall from Pedestrian Conveyance,Subs Encntr
+33 ;;^UTILITY(U,$J,358.3,38420,1,4,0)
+34 ;;=4^V00.891D
+35 ;;^UTILITY(U,$J,358.3,38420,2)
+36 ;;=^5055965
+37 ;;^UTILITY(U,$J,358.3,38421,0)
+38 ;;=V00.892A^^107^1506^108
+39 ;;^UTILITY(U,$J,358.3,38421,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,38421,1,3,0)
+42 ;;=3^Pedestrian Conveyance Colliding w/ Stationary Obj,Init Encntr
+43 ;;^UTILITY(U,$J,358.3,38421,1,4,0)
+44 ;;=4^V00.892A
+45 ;;^UTILITY(U,$J,358.3,38421,2)
+46 ;;=^5055967
+47 ;;^UTILITY(U,$J,358.3,38422,0)
+48 ;;=V00.892D^^107^1506^109
+49 ;;^UTILITY(U,$J,358.3,38422,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,38422,1,3,0)
+52 ;;=3^Pedestrian Conveyance Colliding w/ Stationary Obj,Subs Encntr
+53 ;;^UTILITY(U,$J,358.3,38422,1,4,0)
+54 ;;=4^V00.892D
+55 ;;^UTILITY(U,$J,358.3,38422,2)
+56 ;;=^5055968
+57 ;;^UTILITY(U,$J,358.3,38423,0)
+58 ;;=V00.898A^^107^1506^106
+59 ;;^UTILITY(U,$J,358.3,38423,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,38423,1,3,0)
+62 ;;=3^Pedestrian Conveyance Accident NEC,Init Encntr
+63 ;;^UTILITY(U,$J,358.3,38423,1,4,0)
+64 ;;=4^V00.898A
+65 ;;^UTILITY(U,$J,358.3,38423,2)
+66 ;;=^5055970
+67 ;;^UTILITY(U,$J,358.3,38424,0)
+68 ;;=V00.898D^^107^1506^107
+69 ;;^UTILITY(U,$J,358.3,38424,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,38424,1,3,0)
+72 ;;=3^Pedestrian Conveyance Accident NEC,Subs Encntr
+73 ;;^UTILITY(U,$J,358.3,38424,1,4,0)
+74 ;;=4^V00.898D
+75 ;;^UTILITY(U,$J,358.3,38424,2)
+76 ;;=^5055971
+77 ;;^UTILITY(U,$J,358.3,38425,0)
+78 ;;=W00.0XXA^^107^1506^84
+79 ;;^UTILITY(U,$J,358.3,38425,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,38425,1,3,0)
+82 ;;=3^Fall on Same Level d/t Ice/Snow,Init Encntr
+83 ;;^UTILITY(U,$J,358.3,38425,1,4,0)
+84 ;;=4^W00.0XXA
+85 ;;^UTILITY(U,$J,358.3,38425,2)
+86 ;;=^5059510
+87 ;;^UTILITY(U,$J,358.3,38426,0)
+88 ;;=W00.0XXD^^107^1506^85
+89 ;;^UTILITY(U,$J,358.3,38426,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,38426,1,3,0)
+92 ;;=3^Fall on Same Level d/t Ice/Snow,Subs Encntr
+93 ;;^UTILITY(U,$J,358.3,38426,1,4,0)
+94 ;;=4^W00.0XXD
+95 ;;^UTILITY(U,$J,358.3,38426,2)
+96 ;;=^5059511
+97 ;;^UTILITY(U,$J,358.3,38427,0)
+98 ;;=W00.1XXA^^107^1506^64
+99 ;;^UTILITY(U,$J,358.3,38427,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,38427,1,3,0)
+102 ;;=3^Fall from Stairs/Steps d/t Ice/Snow,Init Encntr
+103 ;;^UTILITY(U,$J,358.3,38427,1,4,0)
+104 ;;=4^W00.1XXA
+105 ;;^UTILITY(U,$J,358.3,38427,2)
+106 ;;=^5059513
+107 ;;^UTILITY(U,$J,358.3,38428,0)
+108 ;;=W00.1XXD^^107^1506^65
+109 ;;^UTILITY(U,$J,358.3,38428,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,38428,1,3,0)
+112 ;;=3^Fall from Stairs/Steps d/t Ice/Snow,Subs Encntr
+113 ;;^UTILITY(U,$J,358.3,38428,1,4,0)
+114 ;;=4^W00.1XXD
+115 ;;^UTILITY(U,$J,358.3,38428,2)
+116 ;;=^5059514
+117 ;;^UTILITY(U,$J,358.3,38429,0)
+118 ;;=W00.2XXA^^107^1506^58
+119 ;;^UTILITY(U,$J,358.3,38429,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,38429,1,3,0)
+122 ;;=3^Fall from One Level to Another d/t Ice/Snow,Init Encntr
+123 ;;^UTILITY(U,$J,358.3,38429,1,4,0)
+124 ;;=4^W00.2XXA
+125 ;;^UTILITY(U,$J,358.3,38429,2)
+126 ;;=^5059516
+127 ;;^UTILITY(U,$J,358.3,38430,0)
+128 ;;=W00.2XXD^^107^1506^59
+129 ;;^UTILITY(U,$J,358.3,38430,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,38430,1,3,0)
+132 ;;=3^Fall from One Level to Another d/t Ice/Snow,Subs Encntr
+133 ;;^UTILITY(U,$J,358.3,38430,1,4,0)
+134 ;;=4^W00.2XXD
+135 ;;^UTILITY(U,$J,358.3,38430,2)
+136 ;;=^5059517
+137 ;;^UTILITY(U,$J,358.3,38431,0)
+138 ;;=W00.9XXA^^107^1506^30
+139 ;;^UTILITY(U,$J,358.3,38431,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,38431,1,3,0)
+142 ;;=3^Fall d/t Ice/Snow,Unspec,Init Encntr
+143 ;;^UTILITY(U,$J,358.3,38431,1,4,0)
+144 ;;=4^W00.9XXA
+145 ;;^UTILITY(U,$J,358.3,38431,2)
+146 ;;=^5059519
+147 ;;^UTILITY(U,$J,358.3,38432,0)
+148 ;;=W00.9XXD^^107^1506^31
+149 ;;^UTILITY(U,$J,358.3,38432,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,38432,1,3,0)
+152 ;;=3^Fall d/t Ice/Snow,Unspec,Subs Encntr
+153 ;;^UTILITY(U,$J,358.3,38432,1,4,0)
+154 ;;=4^W00.9XXD
+155 ;;^UTILITY(U,$J,358.3,38432,2)
+156 ;;=^5059520
+157 ;;^UTILITY(U,$J,358.3,38433,0)
+158 ;;=W01.0XXA^^107^1506^92
+159 ;;^UTILITY(U,$J,358.3,38433,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,38433,1,3,0)
+162 ;;=3^Fall,Same Level,From Slip/Trip w/o Strike Against Obj,Init Encntr
+163 ;;^UTILITY(U,$J,358.3,38433,1,4,0)
+164 ;;=4^W01.0XXA
+165 ;;^UTILITY(U,$J,358.3,38433,2)
+166 ;;=^5059522
+167 ;;^UTILITY(U,$J,358.3,38434,0)
+168 ;;=W01.0XXD^^107^1506^93
+169 ;;^UTILITY(U,$J,358.3,38434,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,38434,1,3,0)
+172 ;;=3^Fall,Same Level,From Slip/Trip w/o Strike Against Obj,Subs Encntr
+173 ;;^UTILITY(U,$J,358.3,38434,1,4,0)
+174 ;;=4^W01.0XXD
+175 ;;^UTILITY(U,$J,358.3,38434,2)
+176 ;;=^5059523
+177 ;;^UTILITY(U,$J,358.3,38435,0)
+178 ;;=W03.XXXA^^107^1506^90
+179 ;;^UTILITY(U,$J,358.3,38435,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,38435,1,3,0)
+182 ;;=3^Fall,Same Level d/t Collision w/ Another Person,Init Encntr
+183 ;;^UTILITY(U,$J,358.3,38435,1,4,0)
+184 ;;=4^W03.XXXA
+185 ;;^UTILITY(U,$J,358.3,38435,2)
+186 ;;=^5059544
+187 ;;^UTILITY(U,$J,358.3,38436,0)
+188 ;;=W03.XXXD^^107^1506^91
+189 ;;^UTILITY(U,$J,358.3,38436,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,38436,1,3,0)
+192 ;;=3^Fall,Same Level d/t Collision w/ Another Person,Subs Encntr
+193 ;;^UTILITY(U,$J,358.3,38436,1,4,0)
+194 ;;=4^W03.XXXD
+195 ;;^UTILITY(U,$J,358.3,38436,2)
+196 ;;=^5059545
+197 ;;^UTILITY(U,$J,358.3,38437,0)
+198 ;;=W05.0XXA^^107^1506^56
+199 ;;^UTILITY(U,$J,358.3,38437,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,38437,1,3,0)
+202 ;;=3^Fall from Non-Moving Wheelchair,Init Encntr
+203 ;;^UTILITY(U,$J,358.3,38437,1,4,0)
+204 ;;=4^W05.0XXA
+205 ;;^UTILITY(U,$J,358.3,38437,2)
+206 ;;=^5059550
+207 ;;^UTILITY(U,$J,358.3,38438,0)
+208 ;;=W05.0XXD^^107^1506^57
+209 ;;^UTILITY(U,$J,358.3,38438,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,38438,1,3,0)
+212 ;;=3^Fall from Non-Moving Wheelchair,Subs Encntr
+213 ;;^UTILITY(U,$J,358.3,38438,1,4,0)
+214 ;;=4^W05.0XXD
+215 ;;^UTILITY(U,$J,358.3,38438,2)
+216 ;;=^5059551
+217 ;;^UTILITY(U,$J,358.3,38439,0)
+218 ;;=W05.1XXA^^107^1506^54
+219 ;;^UTILITY(U,$J,358.3,38439,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,38439,1,3,0)
+222 ;;=3^Fall from Non-Moving Non-Motorized Scooter,Init Encntr
+223 ;;^UTILITY(U,$J,358.3,38439,1,4,0)
+224 ;;=4^W05.1XXA
+225 ;;^UTILITY(U,$J,358.3,38439,2)
+226 ;;=^5059553
+227 ;;^UTILITY(U,$J,358.3,38440,0)
+228 ;;=W05.1XXD^^107^1506^55
+229 ;;^UTILITY(U,$J,358.3,38440,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,38440,1,3,0)
+232 ;;=3^Fall from Non-Moving Non-Motorized Scooter,Subs Encntr
+233 ;;^UTILITY(U,$J,358.3,38440,1,4,0)
+234 ;;=4^W05.1XXD
+235 ;;^UTILITY(U,$J,358.3,38440,2)
+236 ;;=^5059554
+237 ;;^UTILITY(U,$J,358.3,38441,0)
+238 ;;=W05.2XXA^^107^1506^52
+239 ;;^UTILITY(U,$J,358.3,38441,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,38441,1,3,0)
+242 ;;=3^Fall from Non-Moving Motorized Scooter,Init Encntr
+243 ;;^UTILITY(U,$J,358.3,38441,1,4,0)
+244 ;;=4^W05.2XXA
+245 ;;^UTILITY(U,$J,358.3,38441,2)
+246 ;;=^5059556
+247 ;;^UTILITY(U,$J,358.3,38442,0)
+248 ;;=W05.2XXD^^107^1506^53
+249 ;;^UTILITY(U,$J,358.3,38442,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,38442,1,3,0)
+252 ;;=3^Fall from Non-Moving Motorized Scooter,Subs Encntr
+253 ;;^UTILITY(U,$J,358.3,38442,1,4,0)
+254 ;;=4^W05.2XXD
+255 ;;^UTILITY(U,$J,358.3,38442,2)
+256 ;;=^5059557
+257 ;;^UTILITY(U,$J,358.3,38443,0)
+258 ;;=W06.XXXA^^107^1506^34
+259 ;;^UTILITY(U,$J,358.3,38443,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,38443,1,3,0)
+262 ;;=3^Fall from Bed,Init Encntr
+263 ;;^UTILITY(U,$J,358.3,38443,1,4,0)
+264 ;;=4^W06.XXXA
+265 ;;^UTILITY(U,$J,358.3,38443,2)
+266 ;;=^5059559
+267 ;;^UTILITY(U,$J,358.3,38444,0)
+268 ;;=W06.XXXD^^107^1506^35
+269 ;;^UTILITY(U,$J,358.3,38444,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,38444,1,3,0)
+272 ;;=3^Fall from Bed,Subs Encntr
+273 ;;^UTILITY(U,$J,358.3,38444,1,4,0)
+274 ;;=4^W06.XXXD
+275 ;;^UTILITY(U,$J,358.3,38444,2)
+276 ;;=^5059560
+277 ;;^UTILITY(U,$J,358.3,38445,0)
+278 ;;=W07.XXXA^^107^1506^42
+279 ;;^UTILITY(U,$J,358.3,38445,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,38445,1,3,0)
+282 ;;=3^Fall from Chair,Init Encntr
+283 ;;^UTILITY(U,$J,358.3,38445,1,4,0)
+284 ;;=4^W07.XXXA
+285 ;;^UTILITY(U,$J,358.3,38445,2)
+286 ;;=^5059562
+287 ;;^UTILITY(U,$J,358.3,38446,0)
+288 ;;=W07.XXXD^^107^1506^43
+289 ;;^UTILITY(U,$J,358.3,38446,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,38446,1,3,0)
+292 ;;=3^Fall from Chair,Subs Encntr
+293 ;;^UTILITY(U,$J,358.3,38446,1,4,0)
+294 ;;=4^W07.XXXD
+295 ;;^UTILITY(U,$J,358.3,38446,2)
+296 ;;=^5059563
+297 ;;^UTILITY(U,$J,358.3,38447,0)
+298 ;;=W10.1XXA^^107^1506^86
+299 ;;^UTILITY(U,$J,358.3,38447,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,38447,1,3,0)
+302 ;;=3^Fall on Sidewalk Curb,Init Encntr
+303 ;;^UTILITY(U,$J,358.3,38447,1,4,0)
+304 ;;=4^W10.1XXA
+305 ;;^UTILITY(U,$J,358.3,38447,2)
+306 ;;=^5059583
+307 ;;^UTILITY(U,$J,358.3,38448,0)
+308 ;;=W10.1XXD^^107^1506^87
+309 ;;^UTILITY(U,$J,358.3,38448,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,38448,1,3,0)
+312 ;;=3^Fall on Sidewalk Curb,Subs Encntr
+313 ;;^UTILITY(U,$J,358.3,38448,1,4,0)
+314 ;;=4^W10.1XXD
+315 ;;^UTILITY(U,$J,358.3,38448,2)
+316 ;;=^5059584
+317 ;;^UTILITY(U,$J,358.3,38449,0)
+318 ;;=W11.XXXA^^107^1506^46
+319 ;;^UTILITY(U,$J,358.3,38449,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,38449,1,3,0)
+322 ;;=3^Fall from Ladder,Init Encntr
+323 ;;^UTILITY(U,$J,358.3,38449,1,4,0)
+324 ;;=4^W11.XXXA
+325 ;;^UTILITY(U,$J,358.3,38449,2)
+326 ;;=^5059595
+327 ;;^UTILITY(U,$J,358.3,38450,0)
+328 ;;=W11.XXXD^^107^1506^47
+329 ;;^UTILITY(U,$J,358.3,38450,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,38450,1,3,0)
+332 ;;=3^Fall from Ladder,Subs Encntr
+333 ;;^UTILITY(U,$J,358.3,38450,1,4,0)
+334 ;;=4^W11.XXXD
+335 ;;^UTILITY(U,$J,358.3,38450,2)
+336 ;;=^5059596
+337 ;;^UTILITY(U,$J,358.3,38451,0)
+338 ;;=W13.0XXA^^107^1506^72
+339 ;;^UTILITY(U,$J,358.3,38451,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,38451,1,3,0)
+342 ;;=3^Fall from/through Balcony,Init Encntr
+343 ;;^UTILITY(U,$J,358.3,38451,1,4,0)
+344 ;;=4^W13.0XXA
+345 ;;^UTILITY(U,$J,358.3,38451,2)
+346 ;;=^5059601
+347 ;;^UTILITY(U,$J,358.3,38452,0)
+348 ;;=W13.0XXD^^107^1506^73
+349 ;;^UTILITY(U,$J,358.3,38452,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,38452,1,3,0)
+352 ;;=3^Fall from/through Balcony,Subs Encntr
+353 ;;^UTILITY(U,$J,358.3,38452,1,4,0)
+354 ;;=4^W13.0XXD
+355 ;;^UTILITY(U,$J,358.3,38452,2)
+356 ;;=^5059602
+357 ;;^UTILITY(U,$J,358.3,38453,0)
+358 ;;=W13.1XXA^^107^1506^36
+359 ;;^UTILITY(U,$J,358.3,38453,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,38453,1,3,0)
+362 ;;=3^Fall from Bridge,Init Encntr
+363 ;;^UTILITY(U,$J,358.3,38453,1,4,0)
+364 ;;=4^W13.1XXA
+365 ;;^UTILITY(U,$J,358.3,38453,2)
+366 ;;=^5059604
+367 ;;^UTILITY(U,$J,358.3,38454,0)
+368 ;;=W13.1XXD^^107^1506^37
+369 ;;^UTILITY(U,$J,358.3,38454,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,38454,1,3,0)
+372 ;;=3^Fall from Bridge,Subs Encntr
+373 ;;^UTILITY(U,$J,358.3,38454,1,4,0)
+374 ;;=4^W13.1XXD
+375 ;;^UTILITY(U,$J,358.3,38454,2)
+376 ;;=^5059605
+377 ;;^UTILITY(U,$J,358.3,38455,0)
+378 ;;=W13.2XXA^^107^1506^74
+379 ;;^UTILITY(U,$J,358.3,38455,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,38455,1,3,0)
+382 ;;=3^Fall from/through Roof,Init Encntr
+383 ;;^UTILITY(U,$J,358.3,38455,1,4,0)
+384 ;;=4^W13.2XXA
+385 ;;^UTILITY(U,$J,358.3,38455,2)
+386 ;;=^5059607
+387 ;;^UTILITY(U,$J,358.3,38456,0)
+388 ;;=W13.2XXD^^107^1506^75
+389 ;;^UTILITY(U,$J,358.3,38456,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,38456,1,3,0)
+392 ;;=3^Fall from/through Roof,Subs Encntr
+393 ;;^UTILITY(U,$J,358.3,38456,1,4,0)
+394 ;;=4^W13.2XXD
+395 ;;^UTILITY(U,$J,358.3,38456,2)
+396 ;;=^5059608
+397 ;;^UTILITY(U,$J,358.3,38457,0)
+398 ;;=W13.3XXA^^107^1506^88
+399 ;;^UTILITY(U,$J,358.3,38457,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,38457,1,3,0)
+402 ;;=3^Fall through Floor,Init Encntr
+403 ;;^UTILITY(U,$J,358.3,38457,1,4,0)
+404 ;;=4^W13.3XXA
+405 ;;^UTILITY(U,$J,358.3,38457,2)
+406 ;;=^5059610
+407 ;;^UTILITY(U,$J,358.3,38458,0)
+408 ;;=W13.3XXD^^107^1506^89
+409 ;;^UTILITY(U,$J,358.3,38458,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,38458,1,3,0)
+412 ;;=3^Fall through Floor,Subs Encntr
+413 ;;^UTILITY(U,$J,358.3,38458,1,4,0)
+414 ;;=4^W13.3XXD
+415 ;;^UTILITY(U,$J,358.3,38458,2)
+416 ;;=^5059611
+417 ;;^UTILITY(U,$J,358.3,38459,0)
+418 ;;=W13.4XXA^^107^1506^76
+419 ;;^UTILITY(U,$J,358.3,38459,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,38459,1,3,0)
+422 ;;=3^Fall from/through Window,Init Encntr
+423 ;;^UTILITY(U,$J,358.3,38459,1,4,0)
+424 ;;=4^W13.4XXA
+425 ;;^UTILITY(U,$J,358.3,38459,2)
+426 ;;=^5059613
+427 ;;^UTILITY(U,$J,358.3,38460,0)
+428 ;;=W13.4XXD^^107^1506^77
+429 ;;^UTILITY(U,$J,358.3,38460,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,38460,1,3,0)
+432 ;;=3^Fall from/through Window,Subs Encntr
+433 ;;^UTILITY(U,$J,358.3,38460,1,4,0)
+434 ;;=4^W13.4XXD
+435 ;;^UTILITY(U,$J,358.3,38460,2)
+436 ;;=^5059614
+437 ;;^UTILITY(U,$J,358.3,38461,0)
+438 ;;=W13.8XXA^^107^1506^40
+439 ;;^UTILITY(U,$J,358.3,38461,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,38461,1,3,0)
+442 ;;=3^Fall from Building/Structure,Init Encntr
+443 ;;^UTILITY(U,$J,358.3,38461,1,4,0)
+444 ;;=4^W13.8XXA
+445 ;;^UTILITY(U,$J,358.3,38461,2)
+446 ;;=^5059616
+447 ;;^UTILITY(U,$J,358.3,38462,0)
+448 ;;=W13.8XXD^^107^1506^41
+449 ;;^UTILITY(U,$J,358.3,38462,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,38462,1,3,0)
+452 ;;=3^Fall from Building/Structure,Subs Encntr
+453 ;;^UTILITY(U,$J,358.3,38462,1,4,0)
+454 ;;=4^W13.8XXD
+455 ;;^UTILITY(U,$J,358.3,38462,2)
+456 ;;=^5059617
+457 ;;^UTILITY(U,$J,358.3,38463,0)
+458 ;;=W13.9XXA^^107^1506^38
+459 ;;^UTILITY(U,$J,358.3,38463,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,38463,1,3,0)
+462 ;;=3^Fall from Building NOS,Init Encntr
+463 ;;^UTILITY(U,$J,358.3,38463,1,4,0)
+464 ;;=4^W13.9XXA
+465 ;;^UTILITY(U,$J,358.3,38463,2)
+466 ;;=^5059619
+467 ;;^UTILITY(U,$J,358.3,38464,0)
+468 ;;=W13.9XXD^^107^1506^39
+469 ;;^UTILITY(U,$J,358.3,38464,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,38464,1,3,0)
+472 ;;=3^Fall from Building NOS,Subs Encntr
+473 ;;^UTILITY(U,$J,358.3,38464,1,4,0)
+474 ;;=4^W13.9XXD
+475 ;;^UTILITY(U,$J,358.3,38464,2)
+476 ;;=^5059620
+477 ;;^UTILITY(U,$J,358.3,38465,0)
+478 ;;=W14.XXXA^^107^1506^70
+479 ;;^UTILITY(U,$J,358.3,38465,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,38465,1,3,0)
+482 ;;=3^Fall from Tree,Init Encntr
+483 ;;^UTILITY(U,$J,358.3,38465,1,4,0)
+484 ;;=4^W14.XXXA
+485 ;;^UTILITY(U,$J,358.3,38465,2)
+486 ;;=^5059622
+487 ;;^UTILITY(U,$J,358.3,38466,0)
+488 ;;=W14.XXXD^^107^1506^71
+489 ;;^UTILITY(U,$J,358.3,38466,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,38466,1,3,0)
+492 ;;=3^Fall from Tree,Subs Encntr
+493 ;;^UTILITY(U,$J,358.3,38466,1,4,0)
+494 ;;=4^W14.XXXD
+495 ;;^UTILITY(U,$J,358.3,38466,2)
+496 ;;=^5059623
+497 ;;^UTILITY(U,$J,358.3,38467,0)
+498 ;;=W17.2XXA^^107^1506^82
+499 ;;^UTILITY(U,$J,358.3,38467,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,38467,1,3,0)
+502 ;;=3^Fall into Hole,Init Encntr
+503 ;;^UTILITY(U,$J,358.3,38467,1,4,0)
+504 ;;=4^W17.2XXA
+505 ;;^UTILITY(U,$J,358.3,38467,2)
+506 ;;=^5059772
+507 ;;^UTILITY(U,$J,358.3,38468,0)
+508 ;;=W17.2XXD^^107^1506^83
+509 ;;^UTILITY(U,$J,358.3,38468,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,38468,1,3,0)
+512 ;;=3^Fall into Hole,Subs Encntr
+513 ;;^UTILITY(U,$J,358.3,38468,1,4,0)
+514 ;;=4^W17.2XXD
+515 ;;^UTILITY(U,$J,358.3,38468,2)
+516 ;;=^5059773
+517 ;;^UTILITY(U,$J,358.3,38469,0)
+518 ;;=W17.3XXA^^107^1506^80
+519 ;;^UTILITY(U,$J,358.3,38469,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,38469,1,3,0)
+522 ;;=3^Fall into Empty Swimming Pool,Init Encntr
+523 ;;^UTILITY(U,$J,358.3,38469,1,4,0)
+524 ;;=4^W17.3XXA
+525 ;;^UTILITY(U,$J,358.3,38469,2)
+526 ;;=^5059775
+527 ;;^UTILITY(U,$J,358.3,38470,0)
+528 ;;=W17.3XXD^^107^1506^81
+529 ;;^UTILITY(U,$J,358.3,38470,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,38470,1,3,0)
+532 ;;=3^Fall into Empty Swimming Pool,Subs Encntr
+533 ;;^UTILITY(U,$J,358.3,38470,1,4,0)
+534 ;;=4^W17.3XXD
+535 ;;^UTILITY(U,$J,358.3,38470,2)
+536 ;;=^5059776
+537 ;;^UTILITY(U,$J,358.3,38471,0)
+538 ;;=W17.4XXA^^107^1506^44
+539 ;;^UTILITY(U,$J,358.3,38471,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,38471,1,3,0)
+542 ;;=3^Fall from Dock,Init Encntr
+543 ;;^UTILITY(U,$J,358.3,38471,1,4,0)
+544 ;;=4^W17.4XXA
+545 ;;^UTILITY(U,$J,358.3,38471,2)
+546 ;;=^5059778
+547 ;;^UTILITY(U,$J,358.3,38472,0)
+548 ;;=W17.4XXD^^107^1506^45
+549 ;;^UTILITY(U,$J,358.3,38472,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,38472,1,3,0)
+552 ;;=3^Fall from Dock,Subs Encntr
+553 ;;^UTILITY(U,$J,358.3,38472,1,4,0)
+554 ;;=4^W17.4XXD
+555 ;;^UTILITY(U,$J,358.3,38472,2)
+556 ;;=^5059779
+557 ;;^UTILITY(U,$J,358.3,38473,0)
+558 ;;=W17.81XA^^107^1506^32
+559 ;;^UTILITY(U,$J,358.3,38473,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,38473,1,3,0)
+562 ;;=3^Fall down Embankment,Init Encntr
+563 ;;^UTILITY(U,$J,358.3,38473,1,4,0)
+564 ;;=4^W17.81XA
+565 ;;^UTILITY(U,$J,358.3,38473,2)
+566 ;;=^5059781
+567 ;;^UTILITY(U,$J,358.3,38474,0)
+568 ;;=W17.81XD^^107^1506^33
+569 ;;^UTILITY(U,$J,358.3,38474,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,38474,1,3,0)
+572 ;;=3^Fall down Embankment,Subs Encntr
+573 ;;^UTILITY(U,$J,358.3,38474,1,4,0)
+574 ;;=4^W17.81XD
+575 ;;^UTILITY(U,$J,358.3,38474,2)
+576 ;;=^5059782
+577 ;;^UTILITY(U,$J,358.3,38475,0)
+578 ;;=W17.89XA^^107^1506^60
+579 ;;^UTILITY(U,$J,358.3,38475,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,38475,1,3,0)
+582 ;;=3^Fall from One level to Another,Init Encntr
+583 ;;^UTILITY(U,$J,358.3,38475,1,4,0)
+584 ;;=4^W17.89XA
+585 ;;^UTILITY(U,$J,358.3,38475,2)
+586 ;;=^5059787
+587 ;;^UTILITY(U,$J,358.3,38476,0)
+588 ;;=W17.89XD^^107^1506^61
+589 ;;^UTILITY(U,$J,358.3,38476,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,38476,1,3,0)
+592 ;;=3^Fall from One level to Another,Subs Encntr
+593 ;;^UTILITY(U,$J,358.3,38476,1,4,0)
+594 ;;=4^W17.89XD
+595 ;;^UTILITY(U,$J,358.3,38476,2)
+596 ;;=^5059788
+597 ;;^UTILITY(U,$J,358.3,38477,0)
+598 ;;=W18.11XA^^107^1506^68
+599 ;;^UTILITY(U,$J,358.3,38477,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,38477,1,3,0)
+602 ;;=3^Fall from Toilet w/o Strike Against Obj,Init Encntr
+603 ;;^UTILITY(U,$J,358.3,38477,1,4,0)
+604 ;;=4^W18.11XA
+605 ;;^UTILITY(U,$J,358.3,38477,2)
+606 ;;=^5059801
+607 ;;^UTILITY(U,$J,358.3,38478,0)
+608 ;;=W18.11XD^^107^1506^69
+609 ;;^UTILITY(U,$J,358.3,38478,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,38478,1,3,0)
+612 ;;=3^Fall from Toilet w/o Strike Against Obj,Subs Encntr
+613 ;;^UTILITY(U,$J,358.3,38478,1,4,0)
+614 ;;=4^W18.11XD
+615 ;;^UTILITY(U,$J,358.3,38478,2)
+616 ;;=^5059802
+617 ;;^UTILITY(U,$J,358.3,38479,0)
+618 ;;=W18.12XA^^107^1506^66
+619 ;;^UTILITY(U,$J,358.3,38479,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,38479,1,3,0)
+622 ;;=3^Fall from Toilet w/ Strike Against Obj,Init Encntr
+623 ;;^UTILITY(U,$J,358.3,38479,1,4,0)
+624 ;;=4^W18.12XA
+625 ;;^UTILITY(U,$J,358.3,38479,2)
+626 ;;=^5059804
+627 ;;^UTILITY(U,$J,358.3,38480,0)
+628 ;;=W18.12XD^^107^1506^67
+629 ;;^UTILITY(U,$J,358.3,38480,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,38480,1,3,0)
+632 ;;=3^Fall from Toilet w/ Strike Against Obj,Subs Encntr
+633 ;;^UTILITY(U,$J,358.3,38480,1,4,0)
+634 ;;=4^W18.12XD
+635 ;;^UTILITY(U,$J,358.3,38480,2)
+636 ;;=^5137984
+637 ;;^UTILITY(U,$J,358.3,38481,0)
+638 ;;=W18.2XXA^^107^1506^78
+639 ;;^UTILITY(U,$J,358.3,38481,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,38481,1,3,0)
+642 ;;=3^Fall in Empty Shower/Bathtub,Init Encntr
+643 ;;^UTILITY(U,$J,358.3,38481,1,4,0)
+644 ;;=4^W18.2XXA
+645 ;;^UTILITY(U,$J,358.3,38481,2)
+646 ;;=^5059806
+647 ;;^UTILITY(U,$J,358.3,38482,0)
+648 ;;=W18.2XXD^^107^1506^79
+649 ;;^UTILITY(U,$J,358.3,38482,1,0)
+650 ;;=^358.31IA^4^2
+651 ;;^UTILITY(U,$J,358.3,38482,1,3,0)
+652 ;;=3^Fall in Empty Shower/Bathtub,Subs Encntr
