IBDEI04A ; ; 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,10321,1,4,0)
;;=4^W05.0XXD
;;^UTILITY(U,$J,358.3,10321,2)
;;=^5059551
;;^UTILITY(U,$J,358.3,10322,0)
;;=W05.1XXA^^45^450^54
;;^UTILITY(U,$J,358.3,10322,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10322,1,3,0)
;;=3^Fall from Non-Moving Non-Motorized Scooter,Init Encntr
;;^UTILITY(U,$J,358.3,10322,1,4,0)
;;=4^W05.1XXA
;;^UTILITY(U,$J,358.3,10322,2)
;;=^5059553
;;^UTILITY(U,$J,358.3,10323,0)
;;=W05.1XXD^^45^450^55
;;^UTILITY(U,$J,358.3,10323,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10323,1,3,0)
;;=3^Fall from Non-Moving Non-Motorized Scooter,Subs Encntr
;;^UTILITY(U,$J,358.3,10323,1,4,0)
;;=4^W05.1XXD
;;^UTILITY(U,$J,358.3,10323,2)
;;=^5059554
;;^UTILITY(U,$J,358.3,10324,0)
;;=W05.2XXA^^45^450^52
;;^UTILITY(U,$J,358.3,10324,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10324,1,3,0)
;;=3^Fall from Non-Moving Motorized Scooter,Init Encntr
;;^UTILITY(U,$J,358.3,10324,1,4,0)
;;=4^W05.2XXA
;;^UTILITY(U,$J,358.3,10324,2)
;;=^5059556
;;^UTILITY(U,$J,358.3,10325,0)
;;=W05.2XXD^^45^450^53
;;^UTILITY(U,$J,358.3,10325,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10325,1,3,0)
;;=3^Fall from Non-Moving Motorized Scooter,Subs Encntr
;;^UTILITY(U,$J,358.3,10325,1,4,0)
;;=4^W05.2XXD
;;^UTILITY(U,$J,358.3,10325,2)
;;=^5059557
;;^UTILITY(U,$J,358.3,10326,0)
;;=W06.XXXA^^45^450^34
;;^UTILITY(U,$J,358.3,10326,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10326,1,3,0)
;;=3^Fall from Bed,Init Encntr
;;^UTILITY(U,$J,358.3,10326,1,4,0)
;;=4^W06.XXXA
;;^UTILITY(U,$J,358.3,10326,2)
;;=^5059559
;;^UTILITY(U,$J,358.3,10327,0)
;;=W06.XXXD^^45^450^35
;;^UTILITY(U,$J,358.3,10327,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10327,1,3,0)
;;=3^Fall from Bed,Subs Encntr
;;^UTILITY(U,$J,358.3,10327,1,4,0)
;;=4^W06.XXXD
;;^UTILITY(U,$J,358.3,10327,2)
;;=^5059560
;;^UTILITY(U,$J,358.3,10328,0)
;;=W07.XXXA^^45^450^42
;;^UTILITY(U,$J,358.3,10328,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10328,1,3,0)
;;=3^Fall from Chair,Init Encntr
;;^UTILITY(U,$J,358.3,10328,1,4,0)
;;=4^W07.XXXA
;;^UTILITY(U,$J,358.3,10328,2)
;;=^5059562
;;^UTILITY(U,$J,358.3,10329,0)
;;=W07.XXXD^^45^450^43
;;^UTILITY(U,$J,358.3,10329,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10329,1,3,0)
;;=3^Fall from Chair,Subs Encntr
;;^UTILITY(U,$J,358.3,10329,1,4,0)
;;=4^W07.XXXD
;;^UTILITY(U,$J,358.3,10329,2)
;;=^5059563
;;^UTILITY(U,$J,358.3,10330,0)
;;=W10.1XXA^^45^450^86
;;^UTILITY(U,$J,358.3,10330,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10330,1,3,0)
;;=3^Fall on Sidewalk Curb,Init Encntr
;;^UTILITY(U,$J,358.3,10330,1,4,0)
;;=4^W10.1XXA
;;^UTILITY(U,$J,358.3,10330,2)
;;=^5059583
;;^UTILITY(U,$J,358.3,10331,0)
;;=W10.1XXD^^45^450^87
;;^UTILITY(U,$J,358.3,10331,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10331,1,3,0)
;;=3^Fall on Sidewalk Curb,Subs Encntr
;;^UTILITY(U,$J,358.3,10331,1,4,0)
;;=4^W10.1XXD
;;^UTILITY(U,$J,358.3,10331,2)
;;=^5059584
;;^UTILITY(U,$J,358.3,10332,0)
;;=W11.XXXA^^45^450^46
;;^UTILITY(U,$J,358.3,10332,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10332,1,3,0)
;;=3^Fall from Ladder,Init Encntr
;;^UTILITY(U,$J,358.3,10332,1,4,0)
;;=4^W11.XXXA
;;^UTILITY(U,$J,358.3,10332,2)
;;=^5059595
;;^UTILITY(U,$J,358.3,10333,0)
;;=W11.XXXD^^45^450^47
;;^UTILITY(U,$J,358.3,10333,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10333,1,3,0)
;;=3^Fall from Ladder,Subs Encntr
;;^UTILITY(U,$J,358.3,10333,1,4,0)
;;=4^W11.XXXD
;;^UTILITY(U,$J,358.3,10333,2)
;;=^5059596
;;^UTILITY(U,$J,358.3,10334,0)
;;=W13.0XXA^^45^450^72
;;^UTILITY(U,$J,358.3,10334,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10334,1,3,0)
;;=3^Fall from/through Balcony,Init Encntr
;;^UTILITY(U,$J,358.3,10334,1,4,0)
;;=4^W13.0XXA
;;^UTILITY(U,$J,358.3,10334,2)
;;=^5059601
;;^UTILITY(U,$J,358.3,10335,0)
;;=W13.0XXD^^45^450^73
;;^UTILITY(U,$J,358.3,10335,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10335,1,3,0)
;;=3^Fall from/through Balcony,Subs Encntr
;;^UTILITY(U,$J,358.3,10335,1,4,0)
;;=4^W13.0XXD
;;^UTILITY(U,$J,358.3,10335,2)
;;=^5059602
;;^UTILITY(U,$J,358.3,10336,0)
;;=W13.1XXA^^45^450^36
;;^UTILITY(U,$J,358.3,10336,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10336,1,3,0)
;;=3^Fall from Bridge,Init Encntr
;;^UTILITY(U,$J,358.3,10336,1,4,0)
;;=4^W13.1XXA
;;^UTILITY(U,$J,358.3,10336,2)
;;=^5059604
;;^UTILITY(U,$J,358.3,10337,0)
;;=W13.1XXD^^45^450^37
;;^UTILITY(U,$J,358.3,10337,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10337,1,3,0)
;;=3^Fall from Bridge,Subs Encntr
;;^UTILITY(U,$J,358.3,10337,1,4,0)
;;=4^W13.1XXD
;;^UTILITY(U,$J,358.3,10337,2)
;;=^5059605
;;^UTILITY(U,$J,358.3,10338,0)
;;=W13.2XXA^^45^450^74
;;^UTILITY(U,$J,358.3,10338,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10338,1,3,0)
;;=3^Fall from/through Roof,Init Encntr
;;^UTILITY(U,$J,358.3,10338,1,4,0)
;;=4^W13.2XXA
;;^UTILITY(U,$J,358.3,10338,2)
;;=^5059607
;;^UTILITY(U,$J,358.3,10339,0)
;;=W13.2XXD^^45^450^75
;;^UTILITY(U,$J,358.3,10339,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10339,1,3,0)
;;=3^Fall from/through Roof,Subs Encntr
;;^UTILITY(U,$J,358.3,10339,1,4,0)
;;=4^W13.2XXD
;;^UTILITY(U,$J,358.3,10339,2)
;;=^5059608
;;^UTILITY(U,$J,358.3,10340,0)
;;=W13.3XXA^^45^450^88
;;^UTILITY(U,$J,358.3,10340,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10340,1,3,0)
;;=3^Fall through Floor,Init Encntr
;;^UTILITY(U,$J,358.3,10340,1,4,0)
;;=4^W13.3XXA
;;^UTILITY(U,$J,358.3,10340,2)
;;=^5059610
;;^UTILITY(U,$J,358.3,10341,0)
;;=W13.3XXD^^45^450^89
;;^UTILITY(U,$J,358.3,10341,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10341,1,3,0)
;;=3^Fall through Floor,Subs Encntr
;;^UTILITY(U,$J,358.3,10341,1,4,0)
;;=4^W13.3XXD
;;^UTILITY(U,$J,358.3,10341,2)
;;=^5059611
;;^UTILITY(U,$J,358.3,10342,0)
;;=W13.4XXA^^45^450^76
;;^UTILITY(U,$J,358.3,10342,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10342,1,3,0)
;;=3^Fall from/through Window,Init Encntr
;;^UTILITY(U,$J,358.3,10342,1,4,0)
;;=4^W13.4XXA
;;^UTILITY(U,$J,358.3,10342,2)
;;=^5059613
;;^UTILITY(U,$J,358.3,10343,0)
;;=W13.4XXD^^45^450^77
;;^UTILITY(U,$J,358.3,10343,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10343,1,3,0)
;;=3^Fall from/through Window,Subs Encntr
;;^UTILITY(U,$J,358.3,10343,1,4,0)
;;=4^W13.4XXD
;;^UTILITY(U,$J,358.3,10343,2)
;;=^5059614
;;^UTILITY(U,$J,358.3,10344,0)
;;=W13.8XXA^^45^450^40
;;^UTILITY(U,$J,358.3,10344,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10344,1,3,0)
;;=3^Fall from Building/Structure,Init Encntr
;;^UTILITY(U,$J,358.3,10344,1,4,0)
;;=4^W13.8XXA
;;^UTILITY(U,$J,358.3,10344,2)
;;=^5059616
;;^UTILITY(U,$J,358.3,10345,0)
;;=W13.8XXD^^45^450^41
;;^UTILITY(U,$J,358.3,10345,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10345,1,3,0)
;;=3^Fall from Building/Structure,Subs Encntr
;;^UTILITY(U,$J,358.3,10345,1,4,0)
;;=4^W13.8XXD
;;^UTILITY(U,$J,358.3,10345,2)
;;=^5059617
;;^UTILITY(U,$J,358.3,10346,0)
;;=W13.9XXA^^45^450^38
;;^UTILITY(U,$J,358.3,10346,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10346,1,3,0)
;;=3^Fall from Building NOS,Init Encntr
;;^UTILITY(U,$J,358.3,10346,1,4,0)
;;=4^W13.9XXA
;;^UTILITY(U,$J,358.3,10346,2)
;;=^5059619
;;^UTILITY(U,$J,358.3,10347,0)
;;=W13.9XXD^^45^450^39
;;^UTILITY(U,$J,358.3,10347,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10347,1,3,0)
;;=3^Fall from Building NOS,Subs Encntr
;;^UTILITY(U,$J,358.3,10347,1,4,0)
;;=4^W13.9XXD
;;^UTILITY(U,$J,358.3,10347,2)
;;=^5059620
;;^UTILITY(U,$J,358.3,10348,0)
;;=W14.XXXA^^45^450^70
;;^UTILITY(U,$J,358.3,10348,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10348,1,3,0)
;;=3^Fall from Tree,Init Encntr
;;^UTILITY(U,$J,358.3,10348,1,4,0)
;;=4^W14.XXXA
;;^UTILITY(U,$J,358.3,10348,2)
;;=^5059622
;;^UTILITY(U,$J,358.3,10349,0)
;;=W14.XXXD^^45^450^71
;;^UTILITY(U,$J,358.3,10349,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10349,1,3,0)
;;=3^Fall from Tree,Subs Encntr
;;^UTILITY(U,$J,358.3,10349,1,4,0)
;;=4^W14.XXXD
;;^UTILITY(U,$J,358.3,10349,2)
;;=^5059623
;;^UTILITY(U,$J,358.3,10350,0)
;;=W17.2XXA^^45^450^82
;;^UTILITY(U,$J,358.3,10350,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10350,1,3,0)
;;=3^Fall into Hole,Init Encntr
;;^UTILITY(U,$J,358.3,10350,1,4,0)
;;=4^W17.2XXA
;;^UTILITY(U,$J,358.3,10350,2)
;;=^5059772
;;^UTILITY(U,$J,358.3,10351,0)
;;=W17.2XXD^^45^450^83
;;^UTILITY(U,$J,358.3,10351,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10351,1,3,0)
;;=3^Fall into Hole,Subs Encntr
;;^UTILITY(U,$J,358.3,10351,1,4,0)
;;=4^W17.2XXD
;;^UTILITY(U,$J,358.3,10351,2)
;;=^5059773
;;^UTILITY(U,$J,358.3,10352,0)
;;=W17.3XXA^^45^450^80
;;^UTILITY(U,$J,358.3,10352,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10352,1,3,0)
;;=3^Fall into Empty Swimming Pool,Init Encntr
;;^UTILITY(U,$J,358.3,10352,1,4,0)
;;=4^W17.3XXA
;;^UTILITY(U,$J,358.3,10352,2)
;;=^5059775
;;^UTILITY(U,$J,358.3,10353,0)
;;=W17.3XXD^^45^450^81
;;^UTILITY(U,$J,358.3,10353,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10353,1,3,0)
;;=3^Fall into Empty Swimming Pool,Subs Encntr
;;^UTILITY(U,$J,358.3,10353,1,4,0)
;;=4^W17.3XXD
;;^UTILITY(U,$J,358.3,10353,2)
;;=^5059776
;;^UTILITY(U,$J,358.3,10354,0)
;;=W17.4XXA^^45^450^44
;;^UTILITY(U,$J,358.3,10354,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10354,1,3,0)
;;=3^Fall from Dock,Init Encntr
;;^UTILITY(U,$J,358.3,10354,1,4,0)
;;=4^W17.4XXA
;;^UTILITY(U,$J,358.3,10354,2)
;;=^5059778
;;^UTILITY(U,$J,358.3,10355,0)
;;=W17.4XXD^^45^450^45
;;^UTILITY(U,$J,358.3,10355,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10355,1,3,0)
;;=3^Fall from Dock,Subs Encntr
;;^UTILITY(U,$J,358.3,10355,1,4,0)
;;=4^W17.4XXD
;;^UTILITY(U,$J,358.3,10355,2)
;;=^5059779
;;^UTILITY(U,$J,358.3,10356,0)
;;=W17.81XA^^45^450^32
;;^UTILITY(U,$J,358.3,10356,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10356,1,3,0)
;;=3^Fall down Embankment,Init Encntr
;;^UTILITY(U,$J,358.3,10356,1,4,0)
;;=4^W17.81XA
;;^UTILITY(U,$J,358.3,10356,2)
;;=^5059781
;;^UTILITY(U,$J,358.3,10357,0)
;;=W17.81XD^^45^450^33
;;^UTILITY(U,$J,358.3,10357,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10357,1,3,0)
;;=3^Fall down Embankment,Subs Encntr
;;^UTILITY(U,$J,358.3,10357,1,4,0)
;;=4^W17.81XD
;;^UTILITY(U,$J,358.3,10357,2)
;;=^5059782
;;^UTILITY(U,$J,358.3,10358,0)
;;=W17.89XA^^45^450^60
;;^UTILITY(U,$J,358.3,10358,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10358,1,3,0)
;;=3^Fall from One level to Another,Init Encntr
;;^UTILITY(U,$J,358.3,10358,1,4,0)
;;=4^W17.89XA
;;^UTILITY(U,$J,358.3,10358,2)
;;=^5059787
;;^UTILITY(U,$J,358.3,10359,0)
;;=W17.89XD^^45^450^61
;;^UTILITY(U,$J,358.3,10359,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10359,1,3,0)
;;=3^Fall from One level to Another,Subs Encntr
;;^UTILITY(U,$J,358.3,10359,1,4,0)
;;=4^W17.89XD
;;^UTILITY(U,$J,358.3,10359,2)
;;=^5059788
;;^UTILITY(U,$J,358.3,10360,0)
;;=W18.11XA^^45^450^68
;;^UTILITY(U,$J,358.3,10360,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10360,1,3,0)
;;=3^Fall from Toilet w/o Strike Against Obj,Init Encntr
;;^UTILITY(U,$J,358.3,10360,1,4,0)
;;=4^W18.11XA
;;^UTILITY(U,$J,358.3,10360,2)
;;=^5059801
;;^UTILITY(U,$J,358.3,10361,0)
;;=W18.11XD^^45^450^69
;;^UTILITY(U,$J,358.3,10361,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10361,1,3,0)
;;=3^Fall from Toilet w/o Strike Against Obj,Subs Encntr
;;^UTILITY(U,$J,358.3,10361,1,4,0)
;;=4^W18.11XD
;;^UTILITY(U,$J,358.3,10361,2)
;;=^5059802
;;^UTILITY(U,$J,358.3,10362,0)
;;=W18.12XA^^45^450^66
;;^UTILITY(U,$J,358.3,10362,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10362,1,3,0)
;;=3^Fall from Toilet w/ Strike Against Obj,Init Encntr
;;^UTILITY(U,$J,358.3,10362,1,4,0)
;;=4^W18.12XA
;;^UTILITY(U,$J,358.3,10362,2)
;;=^5059804
;;^UTILITY(U,$J,358.3,10363,0)
;;=W18.12XD^^45^450^67
;;^UTILITY(U,$J,358.3,10363,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10363,1,3,0)
;;=3^Fall from Toilet w/ Strike Against Obj,Subs Encntr
;;^UTILITY(U,$J,358.3,10363,1,4,0)
;;=4^W18.12XD
;;^UTILITY(U,$J,358.3,10363,2)
;;=^5137984
;;^UTILITY(U,$J,358.3,10364,0)
;;=W18.2XXA^^45^450^78
;;^UTILITY(U,$J,358.3,10364,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10364,1,3,0)
;;=3^Fall in Empty Shower/Bathtub,Init Encntr
;;^UTILITY(U,$J,358.3,10364,1,4,0)
;;=4^W18.2XXA
;;^UTILITY(U,$J,358.3,10364,2)
;;=^5059806
;;^UTILITY(U,$J,358.3,10365,0)
;;=W18.2XXD^^45^450^79
;;^UTILITY(U,$J,358.3,10365,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10365,1,3,0)
;;=3^Fall in Empty Shower/Bathtub,Subs Encntr
;;^UTILITY(U,$J,358.3,10365,1,4,0)
;;=4^W18.2XXD
;;^UTILITY(U,$J,358.3,10365,2)
;;=^5059807
;;^UTILITY(U,$J,358.3,10366,0)
;;=W18.40XA^^45^450^114
;;^UTILITY(U,$J,358.3,10366,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10366,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling,Init Encntr
;;^UTILITY(U,$J,358.3,10366,1,4,0)
;;=4^W18.40XA
;;^UTILITY(U,$J,358.3,10366,2)
;;=^5059818
;;^UTILITY(U,$J,358.3,10367,0)
;;=W18.40XD^^45^450^115
;;^UTILITY(U,$J,358.3,10367,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10367,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling,Subs Encntr
;;^UTILITY(U,$J,358.3,10367,1,4,0)
;;=4^W18.40XD
;;^UTILITY(U,$J,358.3,10367,2)
;;=^5059819
;;^UTILITY(U,$J,358.3,10368,0)
;;=W18.41XA^^45^450^116
;;^UTILITY(U,$J,358.3,10368,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10368,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping on Obj,Init Encntr
;;^UTILITY(U,$J,358.3,10368,1,4,0)
;;=4^W18.41XA
;;^UTILITY(U,$J,358.3,10368,2)
;;=^5059821
;;^UTILITY(U,$J,358.3,10369,0)
;;=W18.41XD^^45^450^117
;;^UTILITY(U,$J,358.3,10369,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10369,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping on Obj,Subs Encntr
;;^UTILITY(U,$J,358.3,10369,1,4,0)
;;=4^W18.41XD
;;^UTILITY(U,$J,358.3,10369,2)
;;=^5059822
;;^UTILITY(U,$J,358.3,10370,0)
;;=W18.42XA^^45^450^118
;;^UTILITY(U,$J,358.3,10370,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10370,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping into Hole,Init Encntr
;;^UTILITY(U,$J,358.3,10370,1,4,0)
;;=4^W18.42XA
;;^UTILITY(U,$J,358.3,10370,2)
;;=^5059824
;;^UTILITY(U,$J,358.3,10371,0)
;;=W18.42XD^^45^450^119
;;^UTILITY(U,$J,358.3,10371,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10371,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping into Hole,Subs Encntr
;;^UTILITY(U,$J,358.3,10371,1,4,0)
;;=4^W18.42XD
;;^UTILITY(U,$J,358.3,10371,2)
;;=^5059825
;;^UTILITY(U,$J,358.3,10372,0)
;;=W18.43XA^^45^450^112
;;^UTILITY(U,$J,358.3,10372,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10372,1,3,0)
;;=3^Slipping/Tripping w/o Fall d/t Step from One Level to Another,Init Encntr
;;^UTILITY(U,$J,358.3,10372,1,4,0)
;;=4^W18.43XA
;;^UTILITY(U,$J,358.3,10372,2)
;;=^5059827
;;^UTILITY(U,$J,358.3,10373,0)
;;=W18.43XD^^45^450^113
;;^UTILITY(U,$J,358.3,10373,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10373,1,3,0)
;;=3^Slipping/Tripping w/o Fall d/t Step from One Level to Another,Subs Encntr
;;^UTILITY(U,$J,358.3,10373,1,4,0)
;;=4^W18.43XD
;;^UTILITY(U,$J,358.3,10373,2)
;;=^5059828
;;^UTILITY(U,$J,358.3,10374,0)
;;=W18.49XA^^45^450^120
;;^UTILITY(U,$J,358.3,10374,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10374,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling NEC,Init Encntr
;;^UTILITY(U,$J,358.3,10374,1,4,0)
;;=4^W18.49XA
;;^UTILITY(U,$J,358.3,10374,2)
;;=^5059830
;;^UTILITY(U,$J,358.3,10375,0)
;;=W18.49XD^^45^450^121
;;^UTILITY(U,$J,358.3,10375,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10375,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling NEC,Subs Encntr
;;^UTILITY(U,$J,358.3,10375,1,4,0)
;;=4^W18.49XD
;;^UTILITY(U,$J,358.3,10375,2)
;;=^5059831
;;^UTILITY(U,$J,358.3,10376,0)
;;=W19.XXXA^^45^450^94
;;^UTILITY(U,$J,358.3,10376,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10376,1,3,0)
;;=3^Fall,Unspec,Init Encntr
;;^UTILITY(U,$J,358.3,10376,1,4,0)
;;=4^W19.XXXA
;;^UTILITY(U,$J,358.3,10376,2)
;;=^5059833
;;^UTILITY(U,$J,358.3,10377,0)
;;=W19.XXXD^^45^450^95
;;^UTILITY(U,$J,358.3,10377,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10377,1,3,0)
;;=3^Fall,Unspec,Subs Encntr
;;^UTILITY(U,$J,358.3,10377,1,4,0)
;;=4^W19.XXXD
;;^UTILITY(U,$J,358.3,10377,2)
;;=^5059834
;;^UTILITY(U,$J,358.3,10378,0)
;;=W54.0XXA^^45^450^11
;;^UTILITY(U,$J,358.3,10378,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10378,1,3,0)
;;=3^Bitten by Dog,Init Encntr
;;^UTILITY(U,$J,358.3,10378,1,4,0)
;;=4^W54.0XXA
;;^UTILITY(U,$J,358.3,10378,2)
;;=^5060256
;;^UTILITY(U,$J,358.3,10379,0)
;;=W54.0XXD^^45^450^12
;;^UTILITY(U,$J,358.3,10379,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10379,1,3,0)
;;=3^Bitten by Dog,Subs Encntr
;;^UTILITY(U,$J,358.3,10379,1,4,0)
;;=4^W54.0XXD
;;^UTILITY(U,$J,358.3,10379,2)
;;=^5060257
;;^UTILITY(U,$J,358.3,10380,0)
;;=W55.01XA^^45^450^9
;;^UTILITY(U,$J,358.3,10380,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10380,1,3,0)
;;=3^Bitten by Cat,Init Encntr
;;^UTILITY(U,$J,358.3,10380,1,4,0)
;;=4^W55.01XA
;;^UTILITY(U,$J,358.3,10380,2)
;;=^5060265
;;^UTILITY(U,$J,358.3,10381,0)
;;=W55.01XD^^45^450^10
;;^UTILITY(U,$J,358.3,10381,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10381,1,3,0)
;;=3^Bitten by Cat,Subs Encntr
;;^UTILITY(U,$J,358.3,10381,1,4,0)
;;=4^W55.01XD
;;^UTILITY(U,$J,358.3,10381,2)
;;=^5060266
;;^UTILITY(U,$J,358.3,10382,0)
;;=W55.03XA^^45^450^110
;;^UTILITY(U,$J,358.3,10382,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10382,1,3,0)
;;=3^Scratched by Cat,Init Encntr
;;^UTILITY(U,$J,358.3,10382,1,4,0)
;;=4^W55.03XA
;;^UTILITY(U,$J,358.3,10382,2)
;;=^5060268
;;^UTILITY(U,$J,358.3,10383,0)
;;=W55.03XD^^45^450^111
;;^UTILITY(U,$J,358.3,10383,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10383,1,3,0)
;;=3^Scratched by Cat,Subs Encntr
;;^UTILITY(U,$J,358.3,10383,1,4,0)
;;=4^W55.03XD
;;^UTILITY(U,$J,358.3,10383,2)
;;=^5060269
;;^UTILITY(U,$J,358.3,10384,0)
;;=X00.8XXA^^45^450^22
;;^UTILITY(U,$J,358.3,10384,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10384,1,3,0)
;;=3^Exp to Uncontrolled Bldg Fire,Init Encntr
;;^UTILITY(U,$J,358.3,10384,1,4,0)
;;=4^X00.8XXA
;;^UTILITY(U,$J,358.3,10384,2)
;;=^5060679
;;^UTILITY(U,$J,358.3,10385,0)
;;=X00.8XXD^^45^450^23
;;^UTILITY(U,$J,358.3,10385,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10385,1,3,0)
;;=3^Exp to Uncontrolled Bldg Fire,Subs Encntr
;;^UTILITY(U,$J,358.3,10385,1,4,0)
;;=4^X00.8XXD
;;^UTILITY(U,$J,358.3,10385,2)
;;=^5060680
;;^UTILITY(U,$J,358.3,10386,0)
;;=X32.XXXA^^45^450^20
;;^UTILITY(U,$J,358.3,10386,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10386,1,3,0)
;;=3^Exp to Sunlight,Init Encntr
;;^UTILITY(U,$J,358.3,10386,1,4,0)
;;=4^X32.XXXA
;;^UTILITY(U,$J,358.3,10386,2)
;;=^5060847
;;^UTILITY(U,$J,358.3,10387,0)
;;=X32.XXXD^^45^450^21
;;^UTILITY(U,$J,358.3,10387,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10387,1,3,0)
;;=3^Exp to Sunlight,Subs Encntr
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI04A 19795 printed Apr 09, 2024@20:58:16 Page 2
IBDEI04A ; ; 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,10321,1,4,0)
+2 ;;=4^W05.0XXD
+3 ;;^UTILITY(U,$J,358.3,10321,2)
+4 ;;=^5059551
+5 ;;^UTILITY(U,$J,358.3,10322,0)
+6 ;;=W05.1XXA^^45^450^54
+7 ;;^UTILITY(U,$J,358.3,10322,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,10322,1,3,0)
+10 ;;=3^Fall from Non-Moving Non-Motorized Scooter,Init Encntr
+11 ;;^UTILITY(U,$J,358.3,10322,1,4,0)
+12 ;;=4^W05.1XXA
+13 ;;^UTILITY(U,$J,358.3,10322,2)
+14 ;;=^5059553
+15 ;;^UTILITY(U,$J,358.3,10323,0)
+16 ;;=W05.1XXD^^45^450^55
+17 ;;^UTILITY(U,$J,358.3,10323,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,10323,1,3,0)
+20 ;;=3^Fall from Non-Moving Non-Motorized Scooter,Subs Encntr
+21 ;;^UTILITY(U,$J,358.3,10323,1,4,0)
+22 ;;=4^W05.1XXD
+23 ;;^UTILITY(U,$J,358.3,10323,2)
+24 ;;=^5059554
+25 ;;^UTILITY(U,$J,358.3,10324,0)
+26 ;;=W05.2XXA^^45^450^52
+27 ;;^UTILITY(U,$J,358.3,10324,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,10324,1,3,0)
+30 ;;=3^Fall from Non-Moving Motorized Scooter,Init Encntr
+31 ;;^UTILITY(U,$J,358.3,10324,1,4,0)
+32 ;;=4^W05.2XXA
+33 ;;^UTILITY(U,$J,358.3,10324,2)
+34 ;;=^5059556
+35 ;;^UTILITY(U,$J,358.3,10325,0)
+36 ;;=W05.2XXD^^45^450^53
+37 ;;^UTILITY(U,$J,358.3,10325,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,10325,1,3,0)
+40 ;;=3^Fall from Non-Moving Motorized Scooter,Subs Encntr
+41 ;;^UTILITY(U,$J,358.3,10325,1,4,0)
+42 ;;=4^W05.2XXD
+43 ;;^UTILITY(U,$J,358.3,10325,2)
+44 ;;=^5059557
+45 ;;^UTILITY(U,$J,358.3,10326,0)
+46 ;;=W06.XXXA^^45^450^34
+47 ;;^UTILITY(U,$J,358.3,10326,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,10326,1,3,0)
+50 ;;=3^Fall from Bed,Init Encntr
+51 ;;^UTILITY(U,$J,358.3,10326,1,4,0)
+52 ;;=4^W06.XXXA
+53 ;;^UTILITY(U,$J,358.3,10326,2)
+54 ;;=^5059559
+55 ;;^UTILITY(U,$J,358.3,10327,0)
+56 ;;=W06.XXXD^^45^450^35
+57 ;;^UTILITY(U,$J,358.3,10327,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,10327,1,3,0)
+60 ;;=3^Fall from Bed,Subs Encntr
+61 ;;^UTILITY(U,$J,358.3,10327,1,4,0)
+62 ;;=4^W06.XXXD
+63 ;;^UTILITY(U,$J,358.3,10327,2)
+64 ;;=^5059560
+65 ;;^UTILITY(U,$J,358.3,10328,0)
+66 ;;=W07.XXXA^^45^450^42
+67 ;;^UTILITY(U,$J,358.3,10328,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,10328,1,3,0)
+70 ;;=3^Fall from Chair,Init Encntr
+71 ;;^UTILITY(U,$J,358.3,10328,1,4,0)
+72 ;;=4^W07.XXXA
+73 ;;^UTILITY(U,$J,358.3,10328,2)
+74 ;;=^5059562
+75 ;;^UTILITY(U,$J,358.3,10329,0)
+76 ;;=W07.XXXD^^45^450^43
+77 ;;^UTILITY(U,$J,358.3,10329,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,10329,1,3,0)
+80 ;;=3^Fall from Chair,Subs Encntr
+81 ;;^UTILITY(U,$J,358.3,10329,1,4,0)
+82 ;;=4^W07.XXXD
+83 ;;^UTILITY(U,$J,358.3,10329,2)
+84 ;;=^5059563
+85 ;;^UTILITY(U,$J,358.3,10330,0)
+86 ;;=W10.1XXA^^45^450^86
+87 ;;^UTILITY(U,$J,358.3,10330,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,10330,1,3,0)
+90 ;;=3^Fall on Sidewalk Curb,Init Encntr
+91 ;;^UTILITY(U,$J,358.3,10330,1,4,0)
+92 ;;=4^W10.1XXA
+93 ;;^UTILITY(U,$J,358.3,10330,2)
+94 ;;=^5059583
+95 ;;^UTILITY(U,$J,358.3,10331,0)
+96 ;;=W10.1XXD^^45^450^87
+97 ;;^UTILITY(U,$J,358.3,10331,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,10331,1,3,0)
+100 ;;=3^Fall on Sidewalk Curb,Subs Encntr
+101 ;;^UTILITY(U,$J,358.3,10331,1,4,0)
+102 ;;=4^W10.1XXD
+103 ;;^UTILITY(U,$J,358.3,10331,2)
+104 ;;=^5059584
+105 ;;^UTILITY(U,$J,358.3,10332,0)
+106 ;;=W11.XXXA^^45^450^46
+107 ;;^UTILITY(U,$J,358.3,10332,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,10332,1,3,0)
+110 ;;=3^Fall from Ladder,Init Encntr
+111 ;;^UTILITY(U,$J,358.3,10332,1,4,0)
+112 ;;=4^W11.XXXA
+113 ;;^UTILITY(U,$J,358.3,10332,2)
+114 ;;=^5059595
+115 ;;^UTILITY(U,$J,358.3,10333,0)
+116 ;;=W11.XXXD^^45^450^47
+117 ;;^UTILITY(U,$J,358.3,10333,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,10333,1,3,0)
+120 ;;=3^Fall from Ladder,Subs Encntr
+121 ;;^UTILITY(U,$J,358.3,10333,1,4,0)
+122 ;;=4^W11.XXXD
+123 ;;^UTILITY(U,$J,358.3,10333,2)
+124 ;;=^5059596
+125 ;;^UTILITY(U,$J,358.3,10334,0)
+126 ;;=W13.0XXA^^45^450^72
+127 ;;^UTILITY(U,$J,358.3,10334,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,10334,1,3,0)
+130 ;;=3^Fall from/through Balcony,Init Encntr
+131 ;;^UTILITY(U,$J,358.3,10334,1,4,0)
+132 ;;=4^W13.0XXA
+133 ;;^UTILITY(U,$J,358.3,10334,2)
+134 ;;=^5059601
+135 ;;^UTILITY(U,$J,358.3,10335,0)
+136 ;;=W13.0XXD^^45^450^73
+137 ;;^UTILITY(U,$J,358.3,10335,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,10335,1,3,0)
+140 ;;=3^Fall from/through Balcony,Subs Encntr
+141 ;;^UTILITY(U,$J,358.3,10335,1,4,0)
+142 ;;=4^W13.0XXD
+143 ;;^UTILITY(U,$J,358.3,10335,2)
+144 ;;=^5059602
+145 ;;^UTILITY(U,$J,358.3,10336,0)
+146 ;;=W13.1XXA^^45^450^36
+147 ;;^UTILITY(U,$J,358.3,10336,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,10336,1,3,0)
+150 ;;=3^Fall from Bridge,Init Encntr
+151 ;;^UTILITY(U,$J,358.3,10336,1,4,0)
+152 ;;=4^W13.1XXA
+153 ;;^UTILITY(U,$J,358.3,10336,2)
+154 ;;=^5059604
+155 ;;^UTILITY(U,$J,358.3,10337,0)
+156 ;;=W13.1XXD^^45^450^37
+157 ;;^UTILITY(U,$J,358.3,10337,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,10337,1,3,0)
+160 ;;=3^Fall from Bridge,Subs Encntr
+161 ;;^UTILITY(U,$J,358.3,10337,1,4,0)
+162 ;;=4^W13.1XXD
+163 ;;^UTILITY(U,$J,358.3,10337,2)
+164 ;;=^5059605
+165 ;;^UTILITY(U,$J,358.3,10338,0)
+166 ;;=W13.2XXA^^45^450^74
+167 ;;^UTILITY(U,$J,358.3,10338,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,10338,1,3,0)
+170 ;;=3^Fall from/through Roof,Init Encntr
+171 ;;^UTILITY(U,$J,358.3,10338,1,4,0)
+172 ;;=4^W13.2XXA
+173 ;;^UTILITY(U,$J,358.3,10338,2)
+174 ;;=^5059607
+175 ;;^UTILITY(U,$J,358.3,10339,0)
+176 ;;=W13.2XXD^^45^450^75
+177 ;;^UTILITY(U,$J,358.3,10339,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,10339,1,3,0)
+180 ;;=3^Fall from/through Roof,Subs Encntr
+181 ;;^UTILITY(U,$J,358.3,10339,1,4,0)
+182 ;;=4^W13.2XXD
+183 ;;^UTILITY(U,$J,358.3,10339,2)
+184 ;;=^5059608
+185 ;;^UTILITY(U,$J,358.3,10340,0)
+186 ;;=W13.3XXA^^45^450^88
+187 ;;^UTILITY(U,$J,358.3,10340,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,10340,1,3,0)
+190 ;;=3^Fall through Floor,Init Encntr
+191 ;;^UTILITY(U,$J,358.3,10340,1,4,0)
+192 ;;=4^W13.3XXA
+193 ;;^UTILITY(U,$J,358.3,10340,2)
+194 ;;=^5059610
+195 ;;^UTILITY(U,$J,358.3,10341,0)
+196 ;;=W13.3XXD^^45^450^89
+197 ;;^UTILITY(U,$J,358.3,10341,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,10341,1,3,0)
+200 ;;=3^Fall through Floor,Subs Encntr
+201 ;;^UTILITY(U,$J,358.3,10341,1,4,0)
+202 ;;=4^W13.3XXD
+203 ;;^UTILITY(U,$J,358.3,10341,2)
+204 ;;=^5059611
+205 ;;^UTILITY(U,$J,358.3,10342,0)
+206 ;;=W13.4XXA^^45^450^76
+207 ;;^UTILITY(U,$J,358.3,10342,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,10342,1,3,0)
+210 ;;=3^Fall from/through Window,Init Encntr
+211 ;;^UTILITY(U,$J,358.3,10342,1,4,0)
+212 ;;=4^W13.4XXA
+213 ;;^UTILITY(U,$J,358.3,10342,2)
+214 ;;=^5059613
+215 ;;^UTILITY(U,$J,358.3,10343,0)
+216 ;;=W13.4XXD^^45^450^77
+217 ;;^UTILITY(U,$J,358.3,10343,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,10343,1,3,0)
+220 ;;=3^Fall from/through Window,Subs Encntr
+221 ;;^UTILITY(U,$J,358.3,10343,1,4,0)
+222 ;;=4^W13.4XXD
+223 ;;^UTILITY(U,$J,358.3,10343,2)
+224 ;;=^5059614
+225 ;;^UTILITY(U,$J,358.3,10344,0)
+226 ;;=W13.8XXA^^45^450^40
+227 ;;^UTILITY(U,$J,358.3,10344,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,10344,1,3,0)
+230 ;;=3^Fall from Building/Structure,Init Encntr
+231 ;;^UTILITY(U,$J,358.3,10344,1,4,0)
+232 ;;=4^W13.8XXA
+233 ;;^UTILITY(U,$J,358.3,10344,2)
+234 ;;=^5059616
+235 ;;^UTILITY(U,$J,358.3,10345,0)
+236 ;;=W13.8XXD^^45^450^41
+237 ;;^UTILITY(U,$J,358.3,10345,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,10345,1,3,0)
+240 ;;=3^Fall from Building/Structure,Subs Encntr
+241 ;;^UTILITY(U,$J,358.3,10345,1,4,0)
+242 ;;=4^W13.8XXD
+243 ;;^UTILITY(U,$J,358.3,10345,2)
+244 ;;=^5059617
+245 ;;^UTILITY(U,$J,358.3,10346,0)
+246 ;;=W13.9XXA^^45^450^38
+247 ;;^UTILITY(U,$J,358.3,10346,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,10346,1,3,0)
+250 ;;=3^Fall from Building NOS,Init Encntr
+251 ;;^UTILITY(U,$J,358.3,10346,1,4,0)
+252 ;;=4^W13.9XXA
+253 ;;^UTILITY(U,$J,358.3,10346,2)
+254 ;;=^5059619
+255 ;;^UTILITY(U,$J,358.3,10347,0)
+256 ;;=W13.9XXD^^45^450^39
+257 ;;^UTILITY(U,$J,358.3,10347,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,10347,1,3,0)
+260 ;;=3^Fall from Building NOS,Subs Encntr
+261 ;;^UTILITY(U,$J,358.3,10347,1,4,0)
+262 ;;=4^W13.9XXD
+263 ;;^UTILITY(U,$J,358.3,10347,2)
+264 ;;=^5059620
+265 ;;^UTILITY(U,$J,358.3,10348,0)
+266 ;;=W14.XXXA^^45^450^70
+267 ;;^UTILITY(U,$J,358.3,10348,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,10348,1,3,0)
+270 ;;=3^Fall from Tree,Init Encntr
+271 ;;^UTILITY(U,$J,358.3,10348,1,4,0)
+272 ;;=4^W14.XXXA
+273 ;;^UTILITY(U,$J,358.3,10348,2)
+274 ;;=^5059622
+275 ;;^UTILITY(U,$J,358.3,10349,0)
+276 ;;=W14.XXXD^^45^450^71
+277 ;;^UTILITY(U,$J,358.3,10349,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,10349,1,3,0)
+280 ;;=3^Fall from Tree,Subs Encntr
+281 ;;^UTILITY(U,$J,358.3,10349,1,4,0)
+282 ;;=4^W14.XXXD
+283 ;;^UTILITY(U,$J,358.3,10349,2)
+284 ;;=^5059623
+285 ;;^UTILITY(U,$J,358.3,10350,0)
+286 ;;=W17.2XXA^^45^450^82
+287 ;;^UTILITY(U,$J,358.3,10350,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,10350,1,3,0)
+290 ;;=3^Fall into Hole,Init Encntr
+291 ;;^UTILITY(U,$J,358.3,10350,1,4,0)
+292 ;;=4^W17.2XXA
+293 ;;^UTILITY(U,$J,358.3,10350,2)
+294 ;;=^5059772
+295 ;;^UTILITY(U,$J,358.3,10351,0)
+296 ;;=W17.2XXD^^45^450^83
+297 ;;^UTILITY(U,$J,358.3,10351,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,10351,1,3,0)
+300 ;;=3^Fall into Hole,Subs Encntr
+301 ;;^UTILITY(U,$J,358.3,10351,1,4,0)
+302 ;;=4^W17.2XXD
+303 ;;^UTILITY(U,$J,358.3,10351,2)
+304 ;;=^5059773
+305 ;;^UTILITY(U,$J,358.3,10352,0)
+306 ;;=W17.3XXA^^45^450^80
+307 ;;^UTILITY(U,$J,358.3,10352,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,10352,1,3,0)
+310 ;;=3^Fall into Empty Swimming Pool,Init Encntr
+311 ;;^UTILITY(U,$J,358.3,10352,1,4,0)
+312 ;;=4^W17.3XXA
+313 ;;^UTILITY(U,$J,358.3,10352,2)
+314 ;;=^5059775
+315 ;;^UTILITY(U,$J,358.3,10353,0)
+316 ;;=W17.3XXD^^45^450^81
+317 ;;^UTILITY(U,$J,358.3,10353,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,10353,1,3,0)
+320 ;;=3^Fall into Empty Swimming Pool,Subs Encntr
+321 ;;^UTILITY(U,$J,358.3,10353,1,4,0)
+322 ;;=4^W17.3XXD
+323 ;;^UTILITY(U,$J,358.3,10353,2)
+324 ;;=^5059776
+325 ;;^UTILITY(U,$J,358.3,10354,0)
+326 ;;=W17.4XXA^^45^450^44
+327 ;;^UTILITY(U,$J,358.3,10354,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,10354,1,3,0)
+330 ;;=3^Fall from Dock,Init Encntr
+331 ;;^UTILITY(U,$J,358.3,10354,1,4,0)
+332 ;;=4^W17.4XXA
+333 ;;^UTILITY(U,$J,358.3,10354,2)
+334 ;;=^5059778
+335 ;;^UTILITY(U,$J,358.3,10355,0)
+336 ;;=W17.4XXD^^45^450^45
+337 ;;^UTILITY(U,$J,358.3,10355,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,10355,1,3,0)
+340 ;;=3^Fall from Dock,Subs Encntr
+341 ;;^UTILITY(U,$J,358.3,10355,1,4,0)
+342 ;;=4^W17.4XXD
+343 ;;^UTILITY(U,$J,358.3,10355,2)
+344 ;;=^5059779
+345 ;;^UTILITY(U,$J,358.3,10356,0)
+346 ;;=W17.81XA^^45^450^32
+347 ;;^UTILITY(U,$J,358.3,10356,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,10356,1,3,0)
+350 ;;=3^Fall down Embankment,Init Encntr
+351 ;;^UTILITY(U,$J,358.3,10356,1,4,0)
+352 ;;=4^W17.81XA
+353 ;;^UTILITY(U,$J,358.3,10356,2)
+354 ;;=^5059781
+355 ;;^UTILITY(U,$J,358.3,10357,0)
+356 ;;=W17.81XD^^45^450^33
+357 ;;^UTILITY(U,$J,358.3,10357,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,10357,1,3,0)
+360 ;;=3^Fall down Embankment,Subs Encntr
+361 ;;^UTILITY(U,$J,358.3,10357,1,4,0)
+362 ;;=4^W17.81XD
+363 ;;^UTILITY(U,$J,358.3,10357,2)
+364 ;;=^5059782
+365 ;;^UTILITY(U,$J,358.3,10358,0)
+366 ;;=W17.89XA^^45^450^60
+367 ;;^UTILITY(U,$J,358.3,10358,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,10358,1,3,0)
+370 ;;=3^Fall from One level to Another,Init Encntr
+371 ;;^UTILITY(U,$J,358.3,10358,1,4,0)
+372 ;;=4^W17.89XA
+373 ;;^UTILITY(U,$J,358.3,10358,2)
+374 ;;=^5059787
+375 ;;^UTILITY(U,$J,358.3,10359,0)
+376 ;;=W17.89XD^^45^450^61
+377 ;;^UTILITY(U,$J,358.3,10359,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,10359,1,3,0)
+380 ;;=3^Fall from One level to Another,Subs Encntr
+381 ;;^UTILITY(U,$J,358.3,10359,1,4,0)
+382 ;;=4^W17.89XD
+383 ;;^UTILITY(U,$J,358.3,10359,2)
+384 ;;=^5059788
+385 ;;^UTILITY(U,$J,358.3,10360,0)
+386 ;;=W18.11XA^^45^450^68
+387 ;;^UTILITY(U,$J,358.3,10360,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,10360,1,3,0)
+390 ;;=3^Fall from Toilet w/o Strike Against Obj,Init Encntr
+391 ;;^UTILITY(U,$J,358.3,10360,1,4,0)
+392 ;;=4^W18.11XA
+393 ;;^UTILITY(U,$J,358.3,10360,2)
+394 ;;=^5059801
+395 ;;^UTILITY(U,$J,358.3,10361,0)
+396 ;;=W18.11XD^^45^450^69
+397 ;;^UTILITY(U,$J,358.3,10361,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,10361,1,3,0)
+400 ;;=3^Fall from Toilet w/o Strike Against Obj,Subs Encntr
+401 ;;^UTILITY(U,$J,358.3,10361,1,4,0)
+402 ;;=4^W18.11XD
+403 ;;^UTILITY(U,$J,358.3,10361,2)
+404 ;;=^5059802
+405 ;;^UTILITY(U,$J,358.3,10362,0)
+406 ;;=W18.12XA^^45^450^66
+407 ;;^UTILITY(U,$J,358.3,10362,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,10362,1,3,0)
+410 ;;=3^Fall from Toilet w/ Strike Against Obj,Init Encntr
+411 ;;^UTILITY(U,$J,358.3,10362,1,4,0)
+412 ;;=4^W18.12XA
+413 ;;^UTILITY(U,$J,358.3,10362,2)
+414 ;;=^5059804
+415 ;;^UTILITY(U,$J,358.3,10363,0)
+416 ;;=W18.12XD^^45^450^67
+417 ;;^UTILITY(U,$J,358.3,10363,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,10363,1,3,0)
+420 ;;=3^Fall from Toilet w/ Strike Against Obj,Subs Encntr
+421 ;;^UTILITY(U,$J,358.3,10363,1,4,0)
+422 ;;=4^W18.12XD
+423 ;;^UTILITY(U,$J,358.3,10363,2)
+424 ;;=^5137984
+425 ;;^UTILITY(U,$J,358.3,10364,0)
+426 ;;=W18.2XXA^^45^450^78
+427 ;;^UTILITY(U,$J,358.3,10364,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,10364,1,3,0)
+430 ;;=3^Fall in Empty Shower/Bathtub,Init Encntr
+431 ;;^UTILITY(U,$J,358.3,10364,1,4,0)
+432 ;;=4^W18.2XXA
+433 ;;^UTILITY(U,$J,358.3,10364,2)
+434 ;;=^5059806
+435 ;;^UTILITY(U,$J,358.3,10365,0)
+436 ;;=W18.2XXD^^45^450^79
+437 ;;^UTILITY(U,$J,358.3,10365,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,10365,1,3,0)
+440 ;;=3^Fall in Empty Shower/Bathtub,Subs Encntr
+441 ;;^UTILITY(U,$J,358.3,10365,1,4,0)
+442 ;;=4^W18.2XXD
+443 ;;^UTILITY(U,$J,358.3,10365,2)
+444 ;;=^5059807
+445 ;;^UTILITY(U,$J,358.3,10366,0)
+446 ;;=W18.40XA^^45^450^114
+447 ;;^UTILITY(U,$J,358.3,10366,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,10366,1,3,0)
+450 ;;=3^Slipping/Tripping/Stumbling w/o Falling,Init Encntr
+451 ;;^UTILITY(U,$J,358.3,10366,1,4,0)
+452 ;;=4^W18.40XA
+453 ;;^UTILITY(U,$J,358.3,10366,2)
+454 ;;=^5059818
+455 ;;^UTILITY(U,$J,358.3,10367,0)
+456 ;;=W18.40XD^^45^450^115
+457 ;;^UTILITY(U,$J,358.3,10367,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,10367,1,3,0)
+460 ;;=3^Slipping/Tripping/Stumbling w/o Falling,Subs Encntr
+461 ;;^UTILITY(U,$J,358.3,10367,1,4,0)
+462 ;;=4^W18.40XD
+463 ;;^UTILITY(U,$J,358.3,10367,2)
+464 ;;=^5059819
+465 ;;^UTILITY(U,$J,358.3,10368,0)
+466 ;;=W18.41XA^^45^450^116
+467 ;;^UTILITY(U,$J,358.3,10368,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,10368,1,3,0)
+470 ;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping on Obj,Init Encntr
+471 ;;^UTILITY(U,$J,358.3,10368,1,4,0)
+472 ;;=4^W18.41XA
+473 ;;^UTILITY(U,$J,358.3,10368,2)
+474 ;;=^5059821
+475 ;;^UTILITY(U,$J,358.3,10369,0)
+476 ;;=W18.41XD^^45^450^117
+477 ;;^UTILITY(U,$J,358.3,10369,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,10369,1,3,0)
+480 ;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping on Obj,Subs Encntr
+481 ;;^UTILITY(U,$J,358.3,10369,1,4,0)
+482 ;;=4^W18.41XD
+483 ;;^UTILITY(U,$J,358.3,10369,2)
+484 ;;=^5059822
+485 ;;^UTILITY(U,$J,358.3,10370,0)
+486 ;;=W18.42XA^^45^450^118
+487 ;;^UTILITY(U,$J,358.3,10370,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,10370,1,3,0)
+490 ;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping into Hole,Init Encntr
+491 ;;^UTILITY(U,$J,358.3,10370,1,4,0)
+492 ;;=4^W18.42XA
+493 ;;^UTILITY(U,$J,358.3,10370,2)
+494 ;;=^5059824
+495 ;;^UTILITY(U,$J,358.3,10371,0)
+496 ;;=W18.42XD^^45^450^119
+497 ;;^UTILITY(U,$J,358.3,10371,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,10371,1,3,0)
+500 ;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping into Hole,Subs Encntr
+501 ;;^UTILITY(U,$J,358.3,10371,1,4,0)
+502 ;;=4^W18.42XD
+503 ;;^UTILITY(U,$J,358.3,10371,2)
+504 ;;=^5059825
+505 ;;^UTILITY(U,$J,358.3,10372,0)
+506 ;;=W18.43XA^^45^450^112
+507 ;;^UTILITY(U,$J,358.3,10372,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,10372,1,3,0)
+510 ;;=3^Slipping/Tripping w/o Fall d/t Step from One Level to Another,Init Encntr
+511 ;;^UTILITY(U,$J,358.3,10372,1,4,0)
+512 ;;=4^W18.43XA
+513 ;;^UTILITY(U,$J,358.3,10372,2)
+514 ;;=^5059827
+515 ;;^UTILITY(U,$J,358.3,10373,0)
+516 ;;=W18.43XD^^45^450^113
+517 ;;^UTILITY(U,$J,358.3,10373,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,10373,1,3,0)
+520 ;;=3^Slipping/Tripping w/o Fall d/t Step from One Level to Another,Subs Encntr
+521 ;;^UTILITY(U,$J,358.3,10373,1,4,0)
+522 ;;=4^W18.43XD
+523 ;;^UTILITY(U,$J,358.3,10373,2)
+524 ;;=^5059828
+525 ;;^UTILITY(U,$J,358.3,10374,0)
+526 ;;=W18.49XA^^45^450^120
+527 ;;^UTILITY(U,$J,358.3,10374,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,10374,1,3,0)
+530 ;;=3^Slipping/Tripping/Stumbling w/o Falling NEC,Init Encntr
+531 ;;^UTILITY(U,$J,358.3,10374,1,4,0)
+532 ;;=4^W18.49XA
+533 ;;^UTILITY(U,$J,358.3,10374,2)
+534 ;;=^5059830
+535 ;;^UTILITY(U,$J,358.3,10375,0)
+536 ;;=W18.49XD^^45^450^121
+537 ;;^UTILITY(U,$J,358.3,10375,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,10375,1,3,0)
+540 ;;=3^Slipping/Tripping/Stumbling w/o Falling NEC,Subs Encntr
+541 ;;^UTILITY(U,$J,358.3,10375,1,4,0)
+542 ;;=4^W18.49XD
+543 ;;^UTILITY(U,$J,358.3,10375,2)
+544 ;;=^5059831
+545 ;;^UTILITY(U,$J,358.3,10376,0)
+546 ;;=W19.XXXA^^45^450^94
+547 ;;^UTILITY(U,$J,358.3,10376,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,10376,1,3,0)
+550 ;;=3^Fall,Unspec,Init Encntr
+551 ;;^UTILITY(U,$J,358.3,10376,1,4,0)
+552 ;;=4^W19.XXXA
+553 ;;^UTILITY(U,$J,358.3,10376,2)
+554 ;;=^5059833
+555 ;;^UTILITY(U,$J,358.3,10377,0)
+556 ;;=W19.XXXD^^45^450^95
+557 ;;^UTILITY(U,$J,358.3,10377,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,10377,1,3,0)
+560 ;;=3^Fall,Unspec,Subs Encntr
+561 ;;^UTILITY(U,$J,358.3,10377,1,4,0)
+562 ;;=4^W19.XXXD
+563 ;;^UTILITY(U,$J,358.3,10377,2)
+564 ;;=^5059834
+565 ;;^UTILITY(U,$J,358.3,10378,0)
+566 ;;=W54.0XXA^^45^450^11
+567 ;;^UTILITY(U,$J,358.3,10378,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,10378,1,3,0)
+570 ;;=3^Bitten by Dog,Init Encntr
+571 ;;^UTILITY(U,$J,358.3,10378,1,4,0)
+572 ;;=4^W54.0XXA
+573 ;;^UTILITY(U,$J,358.3,10378,2)
+574 ;;=^5060256
+575 ;;^UTILITY(U,$J,358.3,10379,0)
+576 ;;=W54.0XXD^^45^450^12
+577 ;;^UTILITY(U,$J,358.3,10379,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,10379,1,3,0)
+580 ;;=3^Bitten by Dog,Subs Encntr
+581 ;;^UTILITY(U,$J,358.3,10379,1,4,0)
+582 ;;=4^W54.0XXD
+583 ;;^UTILITY(U,$J,358.3,10379,2)
+584 ;;=^5060257
+585 ;;^UTILITY(U,$J,358.3,10380,0)
+586 ;;=W55.01XA^^45^450^9
+587 ;;^UTILITY(U,$J,358.3,10380,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,10380,1,3,0)
+590 ;;=3^Bitten by Cat,Init Encntr
+591 ;;^UTILITY(U,$J,358.3,10380,1,4,0)
+592 ;;=4^W55.01XA
+593 ;;^UTILITY(U,$J,358.3,10380,2)
+594 ;;=^5060265
+595 ;;^UTILITY(U,$J,358.3,10381,0)
+596 ;;=W55.01XD^^45^450^10
+597 ;;^UTILITY(U,$J,358.3,10381,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,10381,1,3,0)
+600 ;;=3^Bitten by Cat,Subs Encntr
+601 ;;^UTILITY(U,$J,358.3,10381,1,4,0)
+602 ;;=4^W55.01XD
+603 ;;^UTILITY(U,$J,358.3,10381,2)
+604 ;;=^5060266
+605 ;;^UTILITY(U,$J,358.3,10382,0)
+606 ;;=W55.03XA^^45^450^110
+607 ;;^UTILITY(U,$J,358.3,10382,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,10382,1,3,0)
+610 ;;=3^Scratched by Cat,Init Encntr
+611 ;;^UTILITY(U,$J,358.3,10382,1,4,0)
+612 ;;=4^W55.03XA
+613 ;;^UTILITY(U,$J,358.3,10382,2)
+614 ;;=^5060268
+615 ;;^UTILITY(U,$J,358.3,10383,0)
+616 ;;=W55.03XD^^45^450^111
+617 ;;^UTILITY(U,$J,358.3,10383,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,10383,1,3,0)
+620 ;;=3^Scratched by Cat,Subs Encntr
+621 ;;^UTILITY(U,$J,358.3,10383,1,4,0)
+622 ;;=4^W55.03XD
+623 ;;^UTILITY(U,$J,358.3,10383,2)
+624 ;;=^5060269
+625 ;;^UTILITY(U,$J,358.3,10384,0)
+626 ;;=X00.8XXA^^45^450^22
+627 ;;^UTILITY(U,$J,358.3,10384,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,10384,1,3,0)
+630 ;;=3^Exp to Uncontrolled Bldg Fire,Init Encntr
+631 ;;^UTILITY(U,$J,358.3,10384,1,4,0)
+632 ;;=4^X00.8XXA
+633 ;;^UTILITY(U,$J,358.3,10384,2)
+634 ;;=^5060679
+635 ;;^UTILITY(U,$J,358.3,10385,0)
+636 ;;=X00.8XXD^^45^450^23
+637 ;;^UTILITY(U,$J,358.3,10385,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,10385,1,3,0)
+640 ;;=3^Exp to Uncontrolled Bldg Fire,Subs Encntr
+641 ;;^UTILITY(U,$J,358.3,10385,1,4,0)
+642 ;;=4^X00.8XXD
+643 ;;^UTILITY(U,$J,358.3,10385,2)
+644 ;;=^5060680
+645 ;;^UTILITY(U,$J,358.3,10386,0)
+646 ;;=X32.XXXA^^45^450^20
+647 ;;^UTILITY(U,$J,358.3,10386,1,0)
+648 ;;=^358.31IA^4^2
+649 ;;^UTILITY(U,$J,358.3,10386,1,3,0)
+650 ;;=3^Exp to Sunlight,Init Encntr
+651 ;;^UTILITY(U,$J,358.3,10386,1,4,0)
+652 ;;=4^X32.XXXA
+653 ;;^UTILITY(U,$J,358.3,10386,2)
+654 ;;=^5060847
+655 ;;^UTILITY(U,$J,358.3,10387,0)
+656 ;;=X32.XXXD^^45^450^21
+657 ;;^UTILITY(U,$J,358.3,10387,1,0)
+658 ;;=^358.31IA^4^2
+659 ;;^UTILITY(U,$J,358.3,10387,1,3,0)
+660 ;;=3^Exp to Sunlight,Subs Encntr
