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

IBDEI06V.m

Go to the documentation of this file.
IBDEI06V ; ; 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,16661,1,3,0)
 ;;=3^Fall from/through Roof,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16661,1,4,0)
 ;;=4^W13.2XXD
 ;;^UTILITY(U,$J,358.3,16661,2)
 ;;=^5059608
 ;;^UTILITY(U,$J,358.3,16662,0)
 ;;=W13.3XXA^^56^663^88
 ;;^UTILITY(U,$J,358.3,16662,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16662,1,3,0)
 ;;=3^Fall through Floor,Init Encntr
 ;;^UTILITY(U,$J,358.3,16662,1,4,0)
 ;;=4^W13.3XXA
 ;;^UTILITY(U,$J,358.3,16662,2)
 ;;=^5059610
 ;;^UTILITY(U,$J,358.3,16663,0)
 ;;=W13.3XXD^^56^663^89
 ;;^UTILITY(U,$J,358.3,16663,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16663,1,3,0)
 ;;=3^Fall through Floor,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16663,1,4,0)
 ;;=4^W13.3XXD
 ;;^UTILITY(U,$J,358.3,16663,2)
 ;;=^5059611
 ;;^UTILITY(U,$J,358.3,16664,0)
 ;;=W13.4XXA^^56^663^76
 ;;^UTILITY(U,$J,358.3,16664,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16664,1,3,0)
 ;;=3^Fall from/through Window,Init Encntr
 ;;^UTILITY(U,$J,358.3,16664,1,4,0)
 ;;=4^W13.4XXA
 ;;^UTILITY(U,$J,358.3,16664,2)
 ;;=^5059613
 ;;^UTILITY(U,$J,358.3,16665,0)
 ;;=W13.4XXD^^56^663^77
 ;;^UTILITY(U,$J,358.3,16665,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16665,1,3,0)
 ;;=3^Fall from/through Window,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16665,1,4,0)
 ;;=4^W13.4XXD
 ;;^UTILITY(U,$J,358.3,16665,2)
 ;;=^5059614
 ;;^UTILITY(U,$J,358.3,16666,0)
 ;;=W13.8XXA^^56^663^40
 ;;^UTILITY(U,$J,358.3,16666,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16666,1,3,0)
 ;;=3^Fall from Building/Structure,Init Encntr
 ;;^UTILITY(U,$J,358.3,16666,1,4,0)
 ;;=4^W13.8XXA
 ;;^UTILITY(U,$J,358.3,16666,2)
 ;;=^5059616
 ;;^UTILITY(U,$J,358.3,16667,0)
 ;;=W13.8XXD^^56^663^41
 ;;^UTILITY(U,$J,358.3,16667,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16667,1,3,0)
 ;;=3^Fall from Building/Structure,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16667,1,4,0)
 ;;=4^W13.8XXD
 ;;^UTILITY(U,$J,358.3,16667,2)
 ;;=^5059617
 ;;^UTILITY(U,$J,358.3,16668,0)
 ;;=W13.9XXA^^56^663^38
 ;;^UTILITY(U,$J,358.3,16668,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16668,1,3,0)
 ;;=3^Fall from Building NOS,Init Encntr
 ;;^UTILITY(U,$J,358.3,16668,1,4,0)
 ;;=4^W13.9XXA
 ;;^UTILITY(U,$J,358.3,16668,2)
 ;;=^5059619
 ;;^UTILITY(U,$J,358.3,16669,0)
 ;;=W13.9XXD^^56^663^39
 ;;^UTILITY(U,$J,358.3,16669,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16669,1,3,0)
 ;;=3^Fall from Building NOS,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16669,1,4,0)
 ;;=4^W13.9XXD
 ;;^UTILITY(U,$J,358.3,16669,2)
 ;;=^5059620
 ;;^UTILITY(U,$J,358.3,16670,0)
 ;;=W14.XXXA^^56^663^70
 ;;^UTILITY(U,$J,358.3,16670,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16670,1,3,0)
 ;;=3^Fall from Tree,Init Encntr
 ;;^UTILITY(U,$J,358.3,16670,1,4,0)
 ;;=4^W14.XXXA
 ;;^UTILITY(U,$J,358.3,16670,2)
 ;;=^5059622
 ;;^UTILITY(U,$J,358.3,16671,0)
 ;;=W14.XXXD^^56^663^71
 ;;^UTILITY(U,$J,358.3,16671,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16671,1,3,0)
 ;;=3^Fall from Tree,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16671,1,4,0)
 ;;=4^W14.XXXD
 ;;^UTILITY(U,$J,358.3,16671,2)
 ;;=^5059623
 ;;^UTILITY(U,$J,358.3,16672,0)
 ;;=W17.2XXA^^56^663^82
 ;;^UTILITY(U,$J,358.3,16672,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16672,1,3,0)
 ;;=3^Fall into Hole,Init Encntr
 ;;^UTILITY(U,$J,358.3,16672,1,4,0)
 ;;=4^W17.2XXA
 ;;^UTILITY(U,$J,358.3,16672,2)
 ;;=^5059772
 ;;^UTILITY(U,$J,358.3,16673,0)
 ;;=W17.2XXD^^56^663^83
 ;;^UTILITY(U,$J,358.3,16673,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16673,1,3,0)
 ;;=3^Fall into Hole,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16673,1,4,0)
 ;;=4^W17.2XXD
 ;;^UTILITY(U,$J,358.3,16673,2)
 ;;=^5059773
 ;;^UTILITY(U,$J,358.3,16674,0)
 ;;=W17.3XXA^^56^663^80
 ;;^UTILITY(U,$J,358.3,16674,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16674,1,3,0)
 ;;=3^Fall into Empty Swimming Pool,Init Encntr
 ;;^UTILITY(U,$J,358.3,16674,1,4,0)
 ;;=4^W17.3XXA
 ;;^UTILITY(U,$J,358.3,16674,2)
 ;;=^5059775
 ;;^UTILITY(U,$J,358.3,16675,0)
 ;;=W17.3XXD^^56^663^81
 ;;^UTILITY(U,$J,358.3,16675,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16675,1,3,0)
 ;;=3^Fall into Empty Swimming Pool,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16675,1,4,0)
 ;;=4^W17.3XXD
 ;;^UTILITY(U,$J,358.3,16675,2)
 ;;=^5059776
 ;;^UTILITY(U,$J,358.3,16676,0)
 ;;=W17.4XXA^^56^663^44
 ;;^UTILITY(U,$J,358.3,16676,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16676,1,3,0)
 ;;=3^Fall from Dock,Init Encntr
 ;;^UTILITY(U,$J,358.3,16676,1,4,0)
 ;;=4^W17.4XXA
 ;;^UTILITY(U,$J,358.3,16676,2)
 ;;=^5059778
 ;;^UTILITY(U,$J,358.3,16677,0)
 ;;=W17.4XXD^^56^663^45
 ;;^UTILITY(U,$J,358.3,16677,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16677,1,3,0)
 ;;=3^Fall from Dock,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16677,1,4,0)
 ;;=4^W17.4XXD
 ;;^UTILITY(U,$J,358.3,16677,2)
 ;;=^5059779
 ;;^UTILITY(U,$J,358.3,16678,0)
 ;;=W17.81XA^^56^663^32
 ;;^UTILITY(U,$J,358.3,16678,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16678,1,3,0)
 ;;=3^Fall down Embankment,Init Encntr
 ;;^UTILITY(U,$J,358.3,16678,1,4,0)
 ;;=4^W17.81XA
 ;;^UTILITY(U,$J,358.3,16678,2)
 ;;=^5059781
 ;;^UTILITY(U,$J,358.3,16679,0)
 ;;=W17.81XD^^56^663^33
 ;;^UTILITY(U,$J,358.3,16679,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16679,1,3,0)
 ;;=3^Fall down Embankment,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16679,1,4,0)
 ;;=4^W17.81XD
 ;;^UTILITY(U,$J,358.3,16679,2)
 ;;=^5059782
 ;;^UTILITY(U,$J,358.3,16680,0)
 ;;=W17.89XA^^56^663^60
 ;;^UTILITY(U,$J,358.3,16680,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16680,1,3,0)
 ;;=3^Fall from One level to Another,Init Encntr
 ;;^UTILITY(U,$J,358.3,16680,1,4,0)
 ;;=4^W17.89XA
 ;;^UTILITY(U,$J,358.3,16680,2)
 ;;=^5059787
 ;;^UTILITY(U,$J,358.3,16681,0)
 ;;=W17.89XD^^56^663^61
 ;;^UTILITY(U,$J,358.3,16681,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16681,1,3,0)
 ;;=3^Fall from One level to Another,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16681,1,4,0)
 ;;=4^W17.89XD
 ;;^UTILITY(U,$J,358.3,16681,2)
 ;;=^5059788
 ;;^UTILITY(U,$J,358.3,16682,0)
 ;;=W18.11XA^^56^663^68
 ;;^UTILITY(U,$J,358.3,16682,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16682,1,3,0)
 ;;=3^Fall from Toilet w/o Strike Against Obj,Init Encntr
 ;;^UTILITY(U,$J,358.3,16682,1,4,0)
 ;;=4^W18.11XA
 ;;^UTILITY(U,$J,358.3,16682,2)
 ;;=^5059801
 ;;^UTILITY(U,$J,358.3,16683,0)
 ;;=W18.11XD^^56^663^69
 ;;^UTILITY(U,$J,358.3,16683,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16683,1,3,0)
 ;;=3^Fall from Toilet w/o Strike Against Obj,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16683,1,4,0)
 ;;=4^W18.11XD
 ;;^UTILITY(U,$J,358.3,16683,2)
 ;;=^5059802
 ;;^UTILITY(U,$J,358.3,16684,0)
 ;;=W18.12XA^^56^663^66
 ;;^UTILITY(U,$J,358.3,16684,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16684,1,3,0)
 ;;=3^Fall from Toilet w/ Strike Against Obj,Init Encntr
 ;;^UTILITY(U,$J,358.3,16684,1,4,0)
 ;;=4^W18.12XA
 ;;^UTILITY(U,$J,358.3,16684,2)
 ;;=^5059804
 ;;^UTILITY(U,$J,358.3,16685,0)
 ;;=W18.12XD^^56^663^67
 ;;^UTILITY(U,$J,358.3,16685,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16685,1,3,0)
 ;;=3^Fall from Toilet w/ Strike Against Obj,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16685,1,4,0)
 ;;=4^W18.12XD
 ;;^UTILITY(U,$J,358.3,16685,2)
 ;;=^5137984
 ;;^UTILITY(U,$J,358.3,16686,0)
 ;;=W18.2XXA^^56^663^78
 ;;^UTILITY(U,$J,358.3,16686,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16686,1,3,0)
 ;;=3^Fall in Empty Shower/Bathtub,Init Encntr
 ;;^UTILITY(U,$J,358.3,16686,1,4,0)
 ;;=4^W18.2XXA
 ;;^UTILITY(U,$J,358.3,16686,2)
 ;;=^5059806
 ;;^UTILITY(U,$J,358.3,16687,0)
 ;;=W18.2XXD^^56^663^79
 ;;^UTILITY(U,$J,358.3,16687,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16687,1,3,0)
 ;;=3^Fall in Empty Shower/Bathtub,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16687,1,4,0)
 ;;=4^W18.2XXD
 ;;^UTILITY(U,$J,358.3,16687,2)
 ;;=^5059807
 ;;^UTILITY(U,$J,358.3,16688,0)
 ;;=W18.40XA^^56^663^114
 ;;^UTILITY(U,$J,358.3,16688,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16688,1,3,0)
 ;;=3^Slipping/Tripping/Stumbling w/o Falling,Init Encntr
 ;;^UTILITY(U,$J,358.3,16688,1,4,0)
 ;;=4^W18.40XA
 ;;^UTILITY(U,$J,358.3,16688,2)
 ;;=^5059818
 ;;^UTILITY(U,$J,358.3,16689,0)
 ;;=W18.40XD^^56^663^115
 ;;^UTILITY(U,$J,358.3,16689,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16689,1,3,0)
 ;;=3^Slipping/Tripping/Stumbling w/o Falling,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16689,1,4,0)
 ;;=4^W18.40XD
 ;;^UTILITY(U,$J,358.3,16689,2)
 ;;=^5059819
 ;;^UTILITY(U,$J,358.3,16690,0)
 ;;=W18.41XA^^56^663^116
 ;;^UTILITY(U,$J,358.3,16690,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16690,1,3,0)
 ;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping on Obj,Init Encntr
 ;;^UTILITY(U,$J,358.3,16690,1,4,0)
 ;;=4^W18.41XA
 ;;^UTILITY(U,$J,358.3,16690,2)
 ;;=^5059821
 ;;^UTILITY(U,$J,358.3,16691,0)
 ;;=W18.41XD^^56^663^117
 ;;^UTILITY(U,$J,358.3,16691,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16691,1,3,0)
 ;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping on Obj,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16691,1,4,0)
 ;;=4^W18.41XD
 ;;^UTILITY(U,$J,358.3,16691,2)
 ;;=^5059822
 ;;^UTILITY(U,$J,358.3,16692,0)
 ;;=W18.42XA^^56^663^118
 ;;^UTILITY(U,$J,358.3,16692,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16692,1,3,0)
 ;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping into Hole,Init Encntr
 ;;^UTILITY(U,$J,358.3,16692,1,4,0)
 ;;=4^W18.42XA
 ;;^UTILITY(U,$J,358.3,16692,2)
 ;;=^5059824
 ;;^UTILITY(U,$J,358.3,16693,0)
 ;;=W18.42XD^^56^663^119
 ;;^UTILITY(U,$J,358.3,16693,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16693,1,3,0)
 ;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping into Hole,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16693,1,4,0)
 ;;=4^W18.42XD
 ;;^UTILITY(U,$J,358.3,16693,2)
 ;;=^5059825
 ;;^UTILITY(U,$J,358.3,16694,0)
 ;;=W18.43XA^^56^663^112
 ;;^UTILITY(U,$J,358.3,16694,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16694,1,3,0)
 ;;=3^Slipping/Tripping w/o Fall d/t Step from One Level to Another,Init Encntr
 ;;^UTILITY(U,$J,358.3,16694,1,4,0)
 ;;=4^W18.43XA
 ;;^UTILITY(U,$J,358.3,16694,2)
 ;;=^5059827
 ;;^UTILITY(U,$J,358.3,16695,0)
 ;;=W18.43XD^^56^663^113
 ;;^UTILITY(U,$J,358.3,16695,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16695,1,3,0)
 ;;=3^Slipping/Tripping w/o Fall d/t Step from One Level to Another,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16695,1,4,0)
 ;;=4^W18.43XD
 ;;^UTILITY(U,$J,358.3,16695,2)
 ;;=^5059828
 ;;^UTILITY(U,$J,358.3,16696,0)
 ;;=W18.49XA^^56^663^120
 ;;^UTILITY(U,$J,358.3,16696,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16696,1,3,0)
 ;;=3^Slipping/Tripping/Stumbling w/o Falling NEC,Init Encntr
 ;;^UTILITY(U,$J,358.3,16696,1,4,0)
 ;;=4^W18.49XA
 ;;^UTILITY(U,$J,358.3,16696,2)
 ;;=^5059830
 ;;^UTILITY(U,$J,358.3,16697,0)
 ;;=W18.49XD^^56^663^121
 ;;^UTILITY(U,$J,358.3,16697,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16697,1,3,0)
 ;;=3^Slipping/Tripping/Stumbling w/o Falling NEC,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16697,1,4,0)
 ;;=4^W18.49XD
 ;;^UTILITY(U,$J,358.3,16697,2)
 ;;=^5059831
 ;;^UTILITY(U,$J,358.3,16698,0)
 ;;=W19.XXXA^^56^663^94
 ;;^UTILITY(U,$J,358.3,16698,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16698,1,3,0)
 ;;=3^Fall,Unspec,Init Encntr
 ;;^UTILITY(U,$J,358.3,16698,1,4,0)
 ;;=4^W19.XXXA
 ;;^UTILITY(U,$J,358.3,16698,2)
 ;;=^5059833
 ;;^UTILITY(U,$J,358.3,16699,0)
 ;;=W19.XXXD^^56^663^95
 ;;^UTILITY(U,$J,358.3,16699,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16699,1,3,0)
 ;;=3^Fall,Unspec,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16699,1,4,0)
 ;;=4^W19.XXXD
 ;;^UTILITY(U,$J,358.3,16699,2)
 ;;=^5059834
 ;;^UTILITY(U,$J,358.3,16700,0)
 ;;=W54.0XXA^^56^663^11
 ;;^UTILITY(U,$J,358.3,16700,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16700,1,3,0)
 ;;=3^Bitten by Dog,Init Encntr
 ;;^UTILITY(U,$J,358.3,16700,1,4,0)
 ;;=4^W54.0XXA
 ;;^UTILITY(U,$J,358.3,16700,2)
 ;;=^5060256
 ;;^UTILITY(U,$J,358.3,16701,0)
 ;;=W54.0XXD^^56^663^12
 ;;^UTILITY(U,$J,358.3,16701,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16701,1,3,0)
 ;;=3^Bitten by Dog,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16701,1,4,0)
 ;;=4^W54.0XXD
 ;;^UTILITY(U,$J,358.3,16701,2)
 ;;=^5060257
 ;;^UTILITY(U,$J,358.3,16702,0)
 ;;=W55.01XA^^56^663^9
 ;;^UTILITY(U,$J,358.3,16702,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16702,1,3,0)
 ;;=3^Bitten by Cat,Init Encntr
 ;;^UTILITY(U,$J,358.3,16702,1,4,0)
 ;;=4^W55.01XA
 ;;^UTILITY(U,$J,358.3,16702,2)
 ;;=^5060265
 ;;^UTILITY(U,$J,358.3,16703,0)
 ;;=W55.01XD^^56^663^10
 ;;^UTILITY(U,$J,358.3,16703,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16703,1,3,0)
 ;;=3^Bitten by Cat,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16703,1,4,0)
 ;;=4^W55.01XD
 ;;^UTILITY(U,$J,358.3,16703,2)
 ;;=^5060266
 ;;^UTILITY(U,$J,358.3,16704,0)
 ;;=W55.03XA^^56^663^110
 ;;^UTILITY(U,$J,358.3,16704,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16704,1,3,0)
 ;;=3^Scratched by Cat,Init Encntr
 ;;^UTILITY(U,$J,358.3,16704,1,4,0)
 ;;=4^W55.03XA
 ;;^UTILITY(U,$J,358.3,16704,2)
 ;;=^5060268
 ;;^UTILITY(U,$J,358.3,16705,0)
 ;;=W55.03XD^^56^663^111
 ;;^UTILITY(U,$J,358.3,16705,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16705,1,3,0)
 ;;=3^Scratched by Cat,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16705,1,4,0)
 ;;=4^W55.03XD
 ;;^UTILITY(U,$J,358.3,16705,2)
 ;;=^5060269
 ;;^UTILITY(U,$J,358.3,16706,0)
 ;;=X00.8XXA^^56^663^22
 ;;^UTILITY(U,$J,358.3,16706,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16706,1,3,0)
 ;;=3^Exp to Uncontrolled Bldg Fire,Init Encntr
 ;;^UTILITY(U,$J,358.3,16706,1,4,0)
 ;;=4^X00.8XXA
 ;;^UTILITY(U,$J,358.3,16706,2)
 ;;=^5060679
 ;;^UTILITY(U,$J,358.3,16707,0)
 ;;=X00.8XXD^^56^663^23
 ;;^UTILITY(U,$J,358.3,16707,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16707,1,3,0)
 ;;=3^Exp to Uncontrolled Bldg Fire,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16707,1,4,0)
 ;;=4^X00.8XXD
 ;;^UTILITY(U,$J,358.3,16707,2)
 ;;=^5060680
 ;;^UTILITY(U,$J,358.3,16708,0)
 ;;=X32.XXXA^^56^663^20
 ;;^UTILITY(U,$J,358.3,16708,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16708,1,3,0)
 ;;=3^Exp to Sunlight,Init Encntr
 ;;^UTILITY(U,$J,358.3,16708,1,4,0)
 ;;=4^X32.XXXA
 ;;^UTILITY(U,$J,358.3,16708,2)
 ;;=^5060847
 ;;^UTILITY(U,$J,358.3,16709,0)
 ;;=X32.XXXD^^56^663^21
 ;;^UTILITY(U,$J,358.3,16709,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16709,1,3,0)
 ;;=3^Exp to Sunlight,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16709,1,4,0)
 ;;=4^X32.XXXD
 ;;^UTILITY(U,$J,358.3,16709,2)
 ;;=^5060848
 ;;^UTILITY(U,$J,358.3,16710,0)
 ;;=Y04.0XXA^^56^663^7
 ;;^UTILITY(U,$J,358.3,16710,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16710,1,3,0)
 ;;=3^Assault by Unarmed Fight,Init Encntr
 ;;^UTILITY(U,$J,358.3,16710,1,4,0)
 ;;=4^Y04.0XXA
 ;;^UTILITY(U,$J,358.3,16710,2)
 ;;=^5061165
 ;;^UTILITY(U,$J,358.3,16711,0)
 ;;=Y04.0XXD^^56^663^8
 ;;^UTILITY(U,$J,358.3,16711,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16711,1,3,0)
 ;;=3^Assault by Unarmed Fight,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16711,1,4,0)
 ;;=4^Y04.0XXD
 ;;^UTILITY(U,$J,358.3,16711,2)
 ;;=^5061166
 ;;^UTILITY(U,$J,358.3,16712,0)
 ;;=Y04.1XXA^^56^663^1
 ;;^UTILITY(U,$J,358.3,16712,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16712,1,3,0)
 ;;=3^Assault by Human Bite,Init Encntr
 ;;^UTILITY(U,$J,358.3,16712,1,4,0)
 ;;=4^Y04.1XXA
 ;;^UTILITY(U,$J,358.3,16712,2)
 ;;=^5061168
 ;;^UTILITY(U,$J,358.3,16713,0)
 ;;=Y04.1XXD^^56^663^2
 ;;^UTILITY(U,$J,358.3,16713,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16713,1,3,0)
 ;;=3^Assault by Human Bite,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16713,1,4,0)
 ;;=4^Y04.1XXD
 ;;^UTILITY(U,$J,358.3,16713,2)
 ;;=^5061169
 ;;^UTILITY(U,$J,358.3,16714,0)
 ;;=Y04.2XXA^^56^663^5
 ;;^UTILITY(U,$J,358.3,16714,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16714,1,3,0)
 ;;=3^Assault by Strike/Bumped by Another Person,Init Encntr
 ;;^UTILITY(U,$J,358.3,16714,1,4,0)
 ;;=4^Y04.2XXA
 ;;^UTILITY(U,$J,358.3,16714,2)
 ;;=^5061171
 ;;^UTILITY(U,$J,358.3,16715,0)
 ;;=Y04.8XXA^^56^663^3
 ;;^UTILITY(U,$J,358.3,16715,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16715,1,3,0)
 ;;=3^Assault by Oth Bodily Force,Init Encntr
 ;;^UTILITY(U,$J,358.3,16715,1,4,0)
 ;;=4^Y04.8XXA
 ;;^UTILITY(U,$J,358.3,16715,2)
 ;;=^5061174
 ;;^UTILITY(U,$J,358.3,16716,0)
 ;;=Y04.2XXD^^56^663^6
 ;;^UTILITY(U,$J,358.3,16716,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16716,1,3,0)
 ;;=3^Assault by Strike/Bumped by Another Person,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16716,1,4,0)
 ;;=4^Y04.2XXD
 ;;^UTILITY(U,$J,358.3,16716,2)
 ;;=^5061172
 ;;^UTILITY(U,$J,358.3,16717,0)
 ;;=Y04.8XXD^^56^663^4
 ;;^UTILITY(U,$J,358.3,16717,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16717,1,3,0)
 ;;=3^Assault by Oth Bodily Force,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16717,1,4,0)
 ;;=4^Y04.8XXD
 ;;^UTILITY(U,$J,358.3,16717,2)
 ;;=^5061175
 ;;^UTILITY(U,$J,358.3,16718,0)
 ;;=Y36.200A^^56^663^133
 ;;^UTILITY(U,$J,358.3,16718,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16718,1,3,0)
 ;;=3^War Op Inv Unspec Explosion/Fragments,Milt,Init Encntr
 ;;^UTILITY(U,$J,358.3,16718,1,4,0)
 ;;=4^Y36.200A
 ;;^UTILITY(U,$J,358.3,16718,2)
 ;;=^5061607
 ;;^UTILITY(U,$J,358.3,16719,0)
 ;;=Y36.200D^^56^663^134
 ;;^UTILITY(U,$J,358.3,16719,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16719,1,3,0)
 ;;=3^War Op Inv Unspec Explosion/Fragments,Milt,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16719,1,4,0)
 ;;=4^Y36.200D
 ;;^UTILITY(U,$J,358.3,16719,2)
 ;;=^5061608
 ;;^UTILITY(U,$J,358.3,16720,0)
 ;;=Y36.300A^^56^663^135
 ;;^UTILITY(U,$J,358.3,16720,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16720,1,3,0)
 ;;=3^War Op Inv Unspec Fire/Conflagr/Hot Subst,Milt,Init Encntr
 ;;^UTILITY(U,$J,358.3,16720,1,4,0)
 ;;=4^Y36.300A
 ;;^UTILITY(U,$J,358.3,16720,2)
 ;;=^5061661
 ;;^UTILITY(U,$J,358.3,16721,0)
 ;;=Y36.300D^^56^663^136
 ;;^UTILITY(U,$J,358.3,16721,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16721,1,3,0)
 ;;=3^War Op Inv Unspec Fire/Conflagr/Hot Subst,Milt,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16721,1,4,0)
 ;;=4^Y36.300D
 ;;^UTILITY(U,$J,358.3,16721,2)
 ;;=^5061662
 ;;^UTILITY(U,$J,358.3,16722,0)
 ;;=Y36.410A^^56^663^130
 ;;^UTILITY(U,$J,358.3,16722,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16722,1,3,0)
 ;;=3^War Op Inv Rubber Bullets,Milt,Init Encntr
 ;;^UTILITY(U,$J,358.3,16722,1,4,0)
 ;;=4^Y36.410A
 ;;^UTILITY(U,$J,358.3,16722,2)
 ;;=^5061691
 ;;^UTILITY(U,$J,358.3,16723,0)
 ;;=Y36.410D^^56^663^132
 ;;^UTILITY(U,$J,358.3,16723,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16723,1,3,0)
 ;;=3^War Op Inv Rubber Bullets,Milt,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16723,1,4,0)
 ;;=4^Y36.410D
 ;;^UTILITY(U,$J,358.3,16723,2)
 ;;=^5061692
 ;;^UTILITY(U,$J,358.3,16724,0)
 ;;=Y36.6X0A^^56^663^122
 ;;^UTILITY(U,$J,358.3,16724,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16724,1,3,0)
 ;;=3^War Op Inv Biological Weapons,Milt,Init Encntr
 ;;^UTILITY(U,$J,358.3,16724,1,4,0)
 ;;=4^Y36.6X0A
 ;;^UTILITY(U,$J,358.3,16724,2)
 ;;=^5061775
 ;;^UTILITY(U,$J,358.3,16725,0)
 ;;=Y36.6X0D^^56^663^124
 ;;^UTILITY(U,$J,358.3,16725,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16725,1,3,0)
 ;;=3^War Op Inv Biological Weapons,Milt,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16725,1,4,0)
 ;;=4^Y36.6X0D
 ;;^UTILITY(U,$J,358.3,16725,2)
 ;;=^5061776
 ;;^UTILITY(U,$J,358.3,16726,0)
 ;;=Y36.7X0A^^56^663^137
 ;;^UTILITY(U,$J,358.3,16726,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16726,1,3,0)
 ;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Init Encntr