IBDEI0FE ; ; 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,38482,1,4,0)
;;=4^W18.2XXD
;;^UTILITY(U,$J,358.3,38482,2)
;;=^5059807
;;^UTILITY(U,$J,358.3,38483,0)
;;=W18.40XA^^107^1506^114
;;^UTILITY(U,$J,358.3,38483,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38483,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling,Init Encntr
;;^UTILITY(U,$J,358.3,38483,1,4,0)
;;=4^W18.40XA
;;^UTILITY(U,$J,358.3,38483,2)
;;=^5059818
;;^UTILITY(U,$J,358.3,38484,0)
;;=W18.40XD^^107^1506^115
;;^UTILITY(U,$J,358.3,38484,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38484,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling,Subs Encntr
;;^UTILITY(U,$J,358.3,38484,1,4,0)
;;=4^W18.40XD
;;^UTILITY(U,$J,358.3,38484,2)
;;=^5059819
;;^UTILITY(U,$J,358.3,38485,0)
;;=W18.41XA^^107^1506^116
;;^UTILITY(U,$J,358.3,38485,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38485,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping on Obj,Init Encntr
;;^UTILITY(U,$J,358.3,38485,1,4,0)
;;=4^W18.41XA
;;^UTILITY(U,$J,358.3,38485,2)
;;=^5059821
;;^UTILITY(U,$J,358.3,38486,0)
;;=W18.41XD^^107^1506^117
;;^UTILITY(U,$J,358.3,38486,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38486,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping on Obj,Subs Encntr
;;^UTILITY(U,$J,358.3,38486,1,4,0)
;;=4^W18.41XD
;;^UTILITY(U,$J,358.3,38486,2)
;;=^5059822
;;^UTILITY(U,$J,358.3,38487,0)
;;=W18.42XA^^107^1506^118
;;^UTILITY(U,$J,358.3,38487,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38487,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping into Hole,Init Encntr
;;^UTILITY(U,$J,358.3,38487,1,4,0)
;;=4^W18.42XA
;;^UTILITY(U,$J,358.3,38487,2)
;;=^5059824
;;^UTILITY(U,$J,358.3,38488,0)
;;=W18.42XD^^107^1506^119
;;^UTILITY(U,$J,358.3,38488,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38488,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping into Hole,Subs Encntr
;;^UTILITY(U,$J,358.3,38488,1,4,0)
;;=4^W18.42XD
;;^UTILITY(U,$J,358.3,38488,2)
;;=^5059825
;;^UTILITY(U,$J,358.3,38489,0)
;;=W18.43XA^^107^1506^112
;;^UTILITY(U,$J,358.3,38489,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38489,1,3,0)
;;=3^Slipping/Tripping w/o Fall d/t Step from One Level to Another,Init Encntr
;;^UTILITY(U,$J,358.3,38489,1,4,0)
;;=4^W18.43XA
;;^UTILITY(U,$J,358.3,38489,2)
;;=^5059827
;;^UTILITY(U,$J,358.3,38490,0)
;;=W18.43XD^^107^1506^113
;;^UTILITY(U,$J,358.3,38490,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38490,1,3,0)
;;=3^Slipping/Tripping w/o Fall d/t Step from One Level to Another,Subs Encntr
;;^UTILITY(U,$J,358.3,38490,1,4,0)
;;=4^W18.43XD
;;^UTILITY(U,$J,358.3,38490,2)
;;=^5059828
;;^UTILITY(U,$J,358.3,38491,0)
;;=W18.49XA^^107^1506^120
;;^UTILITY(U,$J,358.3,38491,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38491,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling NEC,Init Encntr
;;^UTILITY(U,$J,358.3,38491,1,4,0)
;;=4^W18.49XA
;;^UTILITY(U,$J,358.3,38491,2)
;;=^5059830
;;^UTILITY(U,$J,358.3,38492,0)
;;=W18.49XD^^107^1506^121
;;^UTILITY(U,$J,358.3,38492,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38492,1,3,0)
;;=3^Slipping/Tripping/Stumbling w/o Falling NEC,Subs Encntr
;;^UTILITY(U,$J,358.3,38492,1,4,0)
;;=4^W18.49XD
;;^UTILITY(U,$J,358.3,38492,2)
;;=^5059831
;;^UTILITY(U,$J,358.3,38493,0)
;;=W19.XXXA^^107^1506^94
;;^UTILITY(U,$J,358.3,38493,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38493,1,3,0)
;;=3^Fall,Unspec,Init Encntr
;;^UTILITY(U,$J,358.3,38493,1,4,0)
;;=4^W19.XXXA
;;^UTILITY(U,$J,358.3,38493,2)
;;=^5059833
;;^UTILITY(U,$J,358.3,38494,0)
;;=W19.XXXD^^107^1506^95
;;^UTILITY(U,$J,358.3,38494,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38494,1,3,0)
;;=3^Fall,Unspec,Subs Encntr
;;^UTILITY(U,$J,358.3,38494,1,4,0)
;;=4^W19.XXXD
;;^UTILITY(U,$J,358.3,38494,2)
;;=^5059834
;;^UTILITY(U,$J,358.3,38495,0)
;;=W54.0XXA^^107^1506^11
;;^UTILITY(U,$J,358.3,38495,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38495,1,3,0)
;;=3^Bitten by Dog,Init Encntr
;;^UTILITY(U,$J,358.3,38495,1,4,0)
;;=4^W54.0XXA
;;^UTILITY(U,$J,358.3,38495,2)
;;=^5060256
;;^UTILITY(U,$J,358.3,38496,0)
;;=W54.0XXD^^107^1506^12
;;^UTILITY(U,$J,358.3,38496,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38496,1,3,0)
;;=3^Bitten by Dog,Subs Encntr
;;^UTILITY(U,$J,358.3,38496,1,4,0)
;;=4^W54.0XXD
;;^UTILITY(U,$J,358.3,38496,2)
;;=^5060257
;;^UTILITY(U,$J,358.3,38497,0)
;;=W55.01XA^^107^1506^9
;;^UTILITY(U,$J,358.3,38497,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38497,1,3,0)
;;=3^Bitten by Cat,Init Encntr
;;^UTILITY(U,$J,358.3,38497,1,4,0)
;;=4^W55.01XA
;;^UTILITY(U,$J,358.3,38497,2)
;;=^5060265
;;^UTILITY(U,$J,358.3,38498,0)
;;=W55.01XD^^107^1506^10
;;^UTILITY(U,$J,358.3,38498,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38498,1,3,0)
;;=3^Bitten by Cat,Subs Encntr
;;^UTILITY(U,$J,358.3,38498,1,4,0)
;;=4^W55.01XD
;;^UTILITY(U,$J,358.3,38498,2)
;;=^5060266
;;^UTILITY(U,$J,358.3,38499,0)
;;=W55.03XA^^107^1506^110
;;^UTILITY(U,$J,358.3,38499,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38499,1,3,0)
;;=3^Scratched by Cat,Init Encntr
;;^UTILITY(U,$J,358.3,38499,1,4,0)
;;=4^W55.03XA
;;^UTILITY(U,$J,358.3,38499,2)
;;=^5060268
;;^UTILITY(U,$J,358.3,38500,0)
;;=W55.03XD^^107^1506^111
;;^UTILITY(U,$J,358.3,38500,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38500,1,3,0)
;;=3^Scratched by Cat,Subs Encntr
;;^UTILITY(U,$J,358.3,38500,1,4,0)
;;=4^W55.03XD
;;^UTILITY(U,$J,358.3,38500,2)
;;=^5060269
;;^UTILITY(U,$J,358.3,38501,0)
;;=X00.8XXA^^107^1506^22
;;^UTILITY(U,$J,358.3,38501,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38501,1,3,0)
;;=3^Exp to Uncontrolled Bldg Fire,Init Encntr
;;^UTILITY(U,$J,358.3,38501,1,4,0)
;;=4^X00.8XXA
;;^UTILITY(U,$J,358.3,38501,2)
;;=^5060679
;;^UTILITY(U,$J,358.3,38502,0)
;;=X00.8XXD^^107^1506^23
;;^UTILITY(U,$J,358.3,38502,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38502,1,3,0)
;;=3^Exp to Uncontrolled Bldg Fire,Subs Encntr
;;^UTILITY(U,$J,358.3,38502,1,4,0)
;;=4^X00.8XXD
;;^UTILITY(U,$J,358.3,38502,2)
;;=^5060680
;;^UTILITY(U,$J,358.3,38503,0)
;;=X32.XXXA^^107^1506^20
;;^UTILITY(U,$J,358.3,38503,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38503,1,3,0)
;;=3^Exp to Sunlight,Init Encntr
;;^UTILITY(U,$J,358.3,38503,1,4,0)
;;=4^X32.XXXA
;;^UTILITY(U,$J,358.3,38503,2)
;;=^5060847
;;^UTILITY(U,$J,358.3,38504,0)
;;=X32.XXXD^^107^1506^21
;;^UTILITY(U,$J,358.3,38504,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38504,1,3,0)
;;=3^Exp to Sunlight,Subs Encntr
;;^UTILITY(U,$J,358.3,38504,1,4,0)
;;=4^X32.XXXD
;;^UTILITY(U,$J,358.3,38504,2)
;;=^5060848
;;^UTILITY(U,$J,358.3,38505,0)
;;=Y04.0XXA^^107^1506^7
;;^UTILITY(U,$J,358.3,38505,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38505,1,3,0)
;;=3^Assault by Unarmed Fight,Init Encntr
;;^UTILITY(U,$J,358.3,38505,1,4,0)
;;=4^Y04.0XXA
;;^UTILITY(U,$J,358.3,38505,2)
;;=^5061165
;;^UTILITY(U,$J,358.3,38506,0)
;;=Y04.0XXD^^107^1506^8
;;^UTILITY(U,$J,358.3,38506,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38506,1,3,0)
;;=3^Assault by Unarmed Fight,Subs Encntr
;;^UTILITY(U,$J,358.3,38506,1,4,0)
;;=4^Y04.0XXD
;;^UTILITY(U,$J,358.3,38506,2)
;;=^5061166
;;^UTILITY(U,$J,358.3,38507,0)
;;=Y04.1XXA^^107^1506^1
;;^UTILITY(U,$J,358.3,38507,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38507,1,3,0)
;;=3^Assault by Human Bite,Init Encntr
;;^UTILITY(U,$J,358.3,38507,1,4,0)
;;=4^Y04.1XXA
;;^UTILITY(U,$J,358.3,38507,2)
;;=^5061168
;;^UTILITY(U,$J,358.3,38508,0)
;;=Y04.1XXD^^107^1506^2
;;^UTILITY(U,$J,358.3,38508,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38508,1,3,0)
;;=3^Assault by Human Bite,Subs Encntr
;;^UTILITY(U,$J,358.3,38508,1,4,0)
;;=4^Y04.1XXD
;;^UTILITY(U,$J,358.3,38508,2)
;;=^5061169
;;^UTILITY(U,$J,358.3,38509,0)
;;=Y04.2XXA^^107^1506^5
;;^UTILITY(U,$J,358.3,38509,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38509,1,3,0)
;;=3^Assault by Strike/Bumped by Another Person,Init Encntr
;;^UTILITY(U,$J,358.3,38509,1,4,0)
;;=4^Y04.2XXA
;;^UTILITY(U,$J,358.3,38509,2)
;;=^5061171
;;^UTILITY(U,$J,358.3,38510,0)
;;=Y04.8XXA^^107^1506^3
;;^UTILITY(U,$J,358.3,38510,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38510,1,3,0)
;;=3^Assault by Oth Bodily Force,Init Encntr
;;^UTILITY(U,$J,358.3,38510,1,4,0)
;;=4^Y04.8XXA
;;^UTILITY(U,$J,358.3,38510,2)
;;=^5061174
;;^UTILITY(U,$J,358.3,38511,0)
;;=Y04.2XXD^^107^1506^6
;;^UTILITY(U,$J,358.3,38511,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38511,1,3,0)
;;=3^Assault by Strike/Bumped by Another Person,Subs Encntr
;;^UTILITY(U,$J,358.3,38511,1,4,0)
;;=4^Y04.2XXD
;;^UTILITY(U,$J,358.3,38511,2)
;;=^5061172
;;^UTILITY(U,$J,358.3,38512,0)
;;=Y04.8XXD^^107^1506^4
;;^UTILITY(U,$J,358.3,38512,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38512,1,3,0)
;;=3^Assault by Oth Bodily Force,Subs Encntr
;;^UTILITY(U,$J,358.3,38512,1,4,0)
;;=4^Y04.8XXD
;;^UTILITY(U,$J,358.3,38512,2)
;;=^5061175
;;^UTILITY(U,$J,358.3,38513,0)
;;=Y36.200A^^107^1506^133
;;^UTILITY(U,$J,358.3,38513,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38513,1,3,0)
;;=3^War Op Inv Unspec Explosion/Fragments,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,38513,1,4,0)
;;=4^Y36.200A
;;^UTILITY(U,$J,358.3,38513,2)
;;=^5061607
;;^UTILITY(U,$J,358.3,38514,0)
;;=Y36.200D^^107^1506^134
;;^UTILITY(U,$J,358.3,38514,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38514,1,3,0)
;;=3^War Op Inv Unspec Explosion/Fragments,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,38514,1,4,0)
;;=4^Y36.200D
;;^UTILITY(U,$J,358.3,38514,2)
;;=^5061608
;;^UTILITY(U,$J,358.3,38515,0)
;;=Y36.300A^^107^1506^135
;;^UTILITY(U,$J,358.3,38515,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38515,1,3,0)
;;=3^War Op Inv Unspec Fire/Conflagr/Hot Subst,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,38515,1,4,0)
;;=4^Y36.300A
;;^UTILITY(U,$J,358.3,38515,2)
;;=^5061661
;;^UTILITY(U,$J,358.3,38516,0)
;;=Y36.300D^^107^1506^136
;;^UTILITY(U,$J,358.3,38516,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38516,1,3,0)
;;=3^War Op Inv Unspec Fire/Conflagr/Hot Subst,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,38516,1,4,0)
;;=4^Y36.300D
;;^UTILITY(U,$J,358.3,38516,2)
;;=^5061662
;;^UTILITY(U,$J,358.3,38517,0)
;;=Y36.410A^^107^1506^130
;;^UTILITY(U,$J,358.3,38517,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38517,1,3,0)
;;=3^War Op Inv Rubber Bullets,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,38517,1,4,0)
;;=4^Y36.410A
;;^UTILITY(U,$J,358.3,38517,2)
;;=^5061691
;;^UTILITY(U,$J,358.3,38518,0)
;;=Y36.410D^^107^1506^132
;;^UTILITY(U,$J,358.3,38518,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38518,1,3,0)
;;=3^War Op Inv Rubber Bullets,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,38518,1,4,0)
;;=4^Y36.410D
;;^UTILITY(U,$J,358.3,38518,2)
;;=^5061692
;;^UTILITY(U,$J,358.3,38519,0)
;;=Y36.6X0A^^107^1506^122
;;^UTILITY(U,$J,358.3,38519,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38519,1,3,0)
;;=3^War Op Inv Biological Weapons,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,38519,1,4,0)
;;=4^Y36.6X0A
;;^UTILITY(U,$J,358.3,38519,2)
;;=^5061775
;;^UTILITY(U,$J,358.3,38520,0)
;;=Y36.6X0D^^107^1506^124
;;^UTILITY(U,$J,358.3,38520,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38520,1,3,0)
;;=3^War Op Inv Biological Weapons,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,38520,1,4,0)
;;=4^Y36.6X0D
;;^UTILITY(U,$J,358.3,38520,2)
;;=^5061776
;;^UTILITY(U,$J,358.3,38521,0)
;;=Y36.7X0A^^107^1506^137
;;^UTILITY(U,$J,358.3,38521,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38521,1,3,0)
;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,38521,1,4,0)
;;=4^Y36.7X0A
;;^UTILITY(U,$J,358.3,38521,2)
;;=^5061781
;;^UTILITY(U,$J,358.3,38522,0)
;;=Y36.7X0D^^107^1506^138
;;^UTILITY(U,$J,358.3,38522,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38522,1,3,0)
;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,38522,1,4,0)
;;=4^Y36.7X0D
;;^UTILITY(U,$J,358.3,38522,2)
;;=^5061782
;;^UTILITY(U,$J,358.3,38523,0)
;;=Y36.810A^^107^1506^27
;;^UTILITY(U,$J,358.3,38523,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38523,1,3,0)
;;=3^Explosn of Mine Placed During War Op but Expld Aft,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,38523,1,4,0)
;;=4^Y36.810A
;;^UTILITY(U,$J,358.3,38523,2)
;;=^5061787
;;^UTILITY(U,$J,358.3,38524,0)
;;=Y36.810D^^107^1506^28
;;^UTILITY(U,$J,358.3,38524,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38524,1,3,0)
;;=3^Explosn of Mine Placed During War Op but Expld Aft,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,38524,1,4,0)
;;=4^Y36.810D
;;^UTILITY(U,$J,358.3,38524,2)
;;=^5061788
;;^UTILITY(U,$J,358.3,38525,0)
;;=Y36.820A^^107^1506^24
;;^UTILITY(U,$J,358.3,38525,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38525,1,3,0)
;;=3^Explosn of Bomb Placed During War Op But Expld Aft,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,38525,1,4,0)
;;=4^Y36.820A
;;^UTILITY(U,$J,358.3,38525,2)
;;=^5061793
;;^UTILITY(U,$J,358.3,38526,0)
;;=Y36.820D^^107^1506^25
;;^UTILITY(U,$J,358.3,38526,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38526,1,3,0)
;;=3^Explosn of Bomb Placed During War Op But Expld Aft,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,38526,1,4,0)
;;=4^Y36.820D
;;^UTILITY(U,$J,358.3,38526,2)
;;=^5061794
;;^UTILITY(U,$J,358.3,38527,0)
;;=Y37.200A^^107^1506^96
;;^UTILITY(U,$J,358.3,38527,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38527,1,3,0)
;;=3^Miltary Op Inv Explosion/Fragments,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,38527,1,4,0)
;;=4^Y37.200A
;;^UTILITY(U,$J,358.3,38527,2)
;;=^5137997
;;^UTILITY(U,$J,358.3,38528,0)
;;=Y37.200D^^107^1506^97
;;^UTILITY(U,$J,358.3,38528,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38528,1,3,0)
;;=3^Miltary Op Inv Explosion/Fragments,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,38528,1,4,0)
;;=4^Y37.200D
;;^UTILITY(U,$J,358.3,38528,2)
;;=^5137999
;;^UTILITY(U,$J,358.3,38529,0)
;;=X00.1XXA^^107^1506^18
;;^UTILITY(U,$J,358.3,38529,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38529,1,3,0)
;;=3^Exp to Smoke in Uncontrolled Bldg Fire,Init Encntr
;;^UTILITY(U,$J,358.3,38529,1,4,0)
;;=4^X00.1XXA
;;^UTILITY(U,$J,358.3,38529,2)
;;=^5060664
;;^UTILITY(U,$J,358.3,38530,0)
;;=X00.1XXD^^107^1506^19
;;^UTILITY(U,$J,358.3,38530,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38530,1,3,0)
;;=3^Exp to Smoke in Uncontrolled Bldg Fire,Subs Encntr
;;^UTILITY(U,$J,358.3,38530,1,4,0)
;;=4^X00.1XXD
;;^UTILITY(U,$J,358.3,38530,2)
;;=^5060665
;;^UTILITY(U,$J,358.3,38531,0)
;;=Y36.820S^^107^1506^26
;;^UTILITY(U,$J,358.3,38531,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38531,1,3,0)
;;=3^Explosn of Bomb Placed During War Op but Expld After,Milt,Sequela
;;^UTILITY(U,$J,358.3,38531,1,4,0)
;;=4^Y36.820S
;;^UTILITY(U,$J,358.3,38531,2)
;;=^5061795
;;^UTILITY(U,$J,358.3,38532,0)
;;=Y36.810S^^107^1506^29
;;^UTILITY(U,$J,358.3,38532,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38532,1,3,0)
;;=3^Explosn of Mine Placed During War Op but Expld After,Milt,Sequela
;;^UTILITY(U,$J,358.3,38532,1,4,0)
;;=4^Y36.810S
;;^UTILITY(U,$J,358.3,38532,2)
;;=^5061789
;;^UTILITY(U,$J,358.3,38533,0)
;;=Y36.6X0S^^107^1506^123
;;^UTILITY(U,$J,358.3,38533,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38533,1,3,0)
;;=3^War Op Inv Biological Weapons,Milt,Sequela
;;^UTILITY(U,$J,358.3,38533,1,4,0)
;;=4^Y36.6X0S
;;^UTILITY(U,$J,358.3,38533,2)
;;=^5061777
;;^UTILITY(U,$J,358.3,38534,0)
;;=Y36.410S^^107^1506^131
;;^UTILITY(U,$J,358.3,38534,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38534,1,3,0)
;;=3^War Op Inv Rubber Bullets,Milt,Sequela
;;^UTILITY(U,$J,358.3,38534,1,4,0)
;;=4^Y36.410S
;;^UTILITY(U,$J,358.3,38534,2)
;;=^5061693
;;^UTILITY(U,$J,358.3,38535,0)
;;=Y36.200S^^107^1506^128
;;^UTILITY(U,$J,358.3,38535,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38535,1,3,0)
;;=3^War Op Inv Explosion/Fragments,Unspec,Milt,Sequela
;;^UTILITY(U,$J,358.3,38535,1,4,0)
;;=4^Y36.200S
;;^UTILITY(U,$J,358.3,38535,2)
;;=^5061609
;;^UTILITY(U,$J,358.3,38536,0)
;;=Y36.300S^^107^1506^129
;;^UTILITY(U,$J,358.3,38536,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38536,1,3,0)
;;=3^War Op Inv Fire/Conflagr/Hot Subst,Unspec,Milt,Sequela
;;^UTILITY(U,$J,358.3,38536,1,4,0)
;;=4^Y36.300S
;;^UTILITY(U,$J,358.3,38536,2)
;;=^5061663
;;^UTILITY(U,$J,358.3,38537,0)
;;=Y36.230A^^107^1506^125
;;^UTILITY(U,$J,358.3,38537,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38537,1,3,0)
;;=3^War Op Inv Explosion of IED,Milt Pers,Init Encntr
;;^UTILITY(U,$J,358.3,38537,1,4,0)
;;=4^Y36.230A
;;^UTILITY(U,$J,358.3,38537,2)
;;=^5061625
;;^UTILITY(U,$J,358.3,38538,0)
;;=Y36.230D^^107^1506^126
;;^UTILITY(U,$J,358.3,38538,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38538,1,3,0)
;;=3^War Op Inv Explosion of IED,Milt Pers,Subs Encntr
;;^UTILITY(U,$J,358.3,38538,1,4,0)
;;=4^Y36.230D
;;^UTILITY(U,$J,358.3,38538,2)
;;=^5061626
;;^UTILITY(U,$J,358.3,38539,0)
;;=Y36.230S^^107^1506^127
;;^UTILITY(U,$J,358.3,38539,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38539,1,3,0)
;;=3^War Op Inv Explosion of IED,Milt Pers,Sequela
;;^UTILITY(U,$J,358.3,38539,1,4,0)
;;=4^Y36.230S
;;^UTILITY(U,$J,358.3,38539,2)
;;=^5061627
;;^UTILITY(U,$J,358.3,38540,0)
;;=Y36.7X0S^^107^1506^139
;;^UTILITY(U,$J,358.3,38540,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38540,1,3,0)
;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Sequela
;;^UTILITY(U,$J,358.3,38540,1,4,0)
;;=4^Y36.7X0S
;;^UTILITY(U,$J,358.3,38540,2)
;;=^5061783
;;^UTILITY(U,$J,358.3,38541,0)
;;=V47.6XXA^^107^1506^14
;;^UTILITY(U,$J,358.3,38541,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38541,1,3,0)
;;=3^Car Pasngr Injured in Collsn w/ Fixed Obj/Traffic,Init Encntr
;;^UTILITY(U,$J,358.3,38541,1,4,0)
;;=4^V47.6XXA
;;^UTILITY(U,$J,358.3,38541,2)
;;=^5140366
;;^UTILITY(U,$J,358.3,38542,0)
;;=V47.9XXA^^107^1506^13
;;^UTILITY(U,$J,358.3,38542,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38542,1,3,0)
;;=3^Car Occpnt,Unspec,Injured in Collsn w/ Fixed Obj/Traffic,Init Encntr
;;^UTILITY(U,$J,358.3,38542,1,4,0)
;;=4^V47.9XXA
;;^UTILITY(U,$J,358.3,38542,2)
;;=^5140369
;;^UTILITY(U,$J,358.3,38543,0)
;;=W26.2XXA^^107^1506^15
;;^UTILITY(U,$J,358.3,38543,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38543,1,3,0)
;;=3^Contact w/ Edge of Stiff Paper,Init Encntr
;;^UTILITY(U,$J,358.3,38543,1,4,0)
;;=4^W26.2XXA
;;^UTILITY(U,$J,358.3,38543,2)
;;=^5140372
;;^UTILITY(U,$J,358.3,38544,0)
;;=W26.8XXA^^107^1506^16
;;^UTILITY(U,$J,358.3,38544,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38544,1,3,0)
;;=3^Contact w/ Other Sharp Object,Init Encntr
;;^UTILITY(U,$J,358.3,38544,1,4,0)
;;=4^W26.8XXA
;;^UTILITY(U,$J,358.3,38544,2)
;;=^5140375
;;^UTILITY(U,$J,358.3,38545,0)
;;=W26.9XXA^^107^1506^17
;;^UTILITY(U,$J,358.3,38545,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,38545,1,3,0)
;;=3^Contact w/ Unspec Sharp Object,Init Encntr
;;^UTILITY(U,$J,358.3,38545,1,4,0)
;;=4^W26.9XXA
;;^UTILITY(U,$J,358.3,38545,2)
;;=^5140378
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0FE 19749 printed Dec 13, 2024@01:47:36 Page 2
IBDEI0FE ; ; 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,38482,1,4,0)
+2 ;;=4^W18.2XXD
+3 ;;^UTILITY(U,$J,358.3,38482,2)
+4 ;;=^5059807
+5 ;;^UTILITY(U,$J,358.3,38483,0)
+6 ;;=W18.40XA^^107^1506^114
+7 ;;^UTILITY(U,$J,358.3,38483,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,38483,1,3,0)
+10 ;;=3^Slipping/Tripping/Stumbling w/o Falling,Init Encntr
+11 ;;^UTILITY(U,$J,358.3,38483,1,4,0)
+12 ;;=4^W18.40XA
+13 ;;^UTILITY(U,$J,358.3,38483,2)
+14 ;;=^5059818
+15 ;;^UTILITY(U,$J,358.3,38484,0)
+16 ;;=W18.40XD^^107^1506^115
+17 ;;^UTILITY(U,$J,358.3,38484,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,38484,1,3,0)
+20 ;;=3^Slipping/Tripping/Stumbling w/o Falling,Subs Encntr
+21 ;;^UTILITY(U,$J,358.3,38484,1,4,0)
+22 ;;=4^W18.40XD
+23 ;;^UTILITY(U,$J,358.3,38484,2)
+24 ;;=^5059819
+25 ;;^UTILITY(U,$J,358.3,38485,0)
+26 ;;=W18.41XA^^107^1506^116
+27 ;;^UTILITY(U,$J,358.3,38485,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,38485,1,3,0)
+30 ;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping on Obj,Init Encntr
+31 ;;^UTILITY(U,$J,358.3,38485,1,4,0)
+32 ;;=4^W18.41XA
+33 ;;^UTILITY(U,$J,358.3,38485,2)
+34 ;;=^5059821
+35 ;;^UTILITY(U,$J,358.3,38486,0)
+36 ;;=W18.41XD^^107^1506^117
+37 ;;^UTILITY(U,$J,358.3,38486,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,38486,1,3,0)
+40 ;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping on Obj,Subs Encntr
+41 ;;^UTILITY(U,$J,358.3,38486,1,4,0)
+42 ;;=4^W18.41XD
+43 ;;^UTILITY(U,$J,358.3,38486,2)
+44 ;;=^5059822
+45 ;;^UTILITY(U,$J,358.3,38487,0)
+46 ;;=W18.42XA^^107^1506^118
+47 ;;^UTILITY(U,$J,358.3,38487,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,38487,1,3,0)
+50 ;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping into Hole,Init Encntr
+51 ;;^UTILITY(U,$J,358.3,38487,1,4,0)
+52 ;;=4^W18.42XA
+53 ;;^UTILITY(U,$J,358.3,38487,2)
+54 ;;=^5059824
+55 ;;^UTILITY(U,$J,358.3,38488,0)
+56 ;;=W18.42XD^^107^1506^119
+57 ;;^UTILITY(U,$J,358.3,38488,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,38488,1,3,0)
+60 ;;=3^Slipping/Tripping/Stumbling w/o Falling d/t Stepping into Hole,Subs Encntr
+61 ;;^UTILITY(U,$J,358.3,38488,1,4,0)
+62 ;;=4^W18.42XD
+63 ;;^UTILITY(U,$J,358.3,38488,2)
+64 ;;=^5059825
+65 ;;^UTILITY(U,$J,358.3,38489,0)
+66 ;;=W18.43XA^^107^1506^112
+67 ;;^UTILITY(U,$J,358.3,38489,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,38489,1,3,0)
+70 ;;=3^Slipping/Tripping w/o Fall d/t Step from One Level to Another,Init Encntr
+71 ;;^UTILITY(U,$J,358.3,38489,1,4,0)
+72 ;;=4^W18.43XA
+73 ;;^UTILITY(U,$J,358.3,38489,2)
+74 ;;=^5059827
+75 ;;^UTILITY(U,$J,358.3,38490,0)
+76 ;;=W18.43XD^^107^1506^113
+77 ;;^UTILITY(U,$J,358.3,38490,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,38490,1,3,0)
+80 ;;=3^Slipping/Tripping w/o Fall d/t Step from One Level to Another,Subs Encntr
+81 ;;^UTILITY(U,$J,358.3,38490,1,4,0)
+82 ;;=4^W18.43XD
+83 ;;^UTILITY(U,$J,358.3,38490,2)
+84 ;;=^5059828
+85 ;;^UTILITY(U,$J,358.3,38491,0)
+86 ;;=W18.49XA^^107^1506^120
+87 ;;^UTILITY(U,$J,358.3,38491,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,38491,1,3,0)
+90 ;;=3^Slipping/Tripping/Stumbling w/o Falling NEC,Init Encntr
+91 ;;^UTILITY(U,$J,358.3,38491,1,4,0)
+92 ;;=4^W18.49XA
+93 ;;^UTILITY(U,$J,358.3,38491,2)
+94 ;;=^5059830
+95 ;;^UTILITY(U,$J,358.3,38492,0)
+96 ;;=W18.49XD^^107^1506^121
+97 ;;^UTILITY(U,$J,358.3,38492,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,38492,1,3,0)
+100 ;;=3^Slipping/Tripping/Stumbling w/o Falling NEC,Subs Encntr
+101 ;;^UTILITY(U,$J,358.3,38492,1,4,0)
+102 ;;=4^W18.49XD
+103 ;;^UTILITY(U,$J,358.3,38492,2)
+104 ;;=^5059831
+105 ;;^UTILITY(U,$J,358.3,38493,0)
+106 ;;=W19.XXXA^^107^1506^94
+107 ;;^UTILITY(U,$J,358.3,38493,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,38493,1,3,0)
+110 ;;=3^Fall,Unspec,Init Encntr
+111 ;;^UTILITY(U,$J,358.3,38493,1,4,0)
+112 ;;=4^W19.XXXA
+113 ;;^UTILITY(U,$J,358.3,38493,2)
+114 ;;=^5059833
+115 ;;^UTILITY(U,$J,358.3,38494,0)
+116 ;;=W19.XXXD^^107^1506^95
+117 ;;^UTILITY(U,$J,358.3,38494,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,38494,1,3,0)
+120 ;;=3^Fall,Unspec,Subs Encntr
+121 ;;^UTILITY(U,$J,358.3,38494,1,4,0)
+122 ;;=4^W19.XXXD
+123 ;;^UTILITY(U,$J,358.3,38494,2)
+124 ;;=^5059834
+125 ;;^UTILITY(U,$J,358.3,38495,0)
+126 ;;=W54.0XXA^^107^1506^11
+127 ;;^UTILITY(U,$J,358.3,38495,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,38495,1,3,0)
+130 ;;=3^Bitten by Dog,Init Encntr
+131 ;;^UTILITY(U,$J,358.3,38495,1,4,0)
+132 ;;=4^W54.0XXA
+133 ;;^UTILITY(U,$J,358.3,38495,2)
+134 ;;=^5060256
+135 ;;^UTILITY(U,$J,358.3,38496,0)
+136 ;;=W54.0XXD^^107^1506^12
+137 ;;^UTILITY(U,$J,358.3,38496,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,38496,1,3,0)
+140 ;;=3^Bitten by Dog,Subs Encntr
+141 ;;^UTILITY(U,$J,358.3,38496,1,4,0)
+142 ;;=4^W54.0XXD
+143 ;;^UTILITY(U,$J,358.3,38496,2)
+144 ;;=^5060257
+145 ;;^UTILITY(U,$J,358.3,38497,0)
+146 ;;=W55.01XA^^107^1506^9
+147 ;;^UTILITY(U,$J,358.3,38497,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,38497,1,3,0)
+150 ;;=3^Bitten by Cat,Init Encntr
+151 ;;^UTILITY(U,$J,358.3,38497,1,4,0)
+152 ;;=4^W55.01XA
+153 ;;^UTILITY(U,$J,358.3,38497,2)
+154 ;;=^5060265
+155 ;;^UTILITY(U,$J,358.3,38498,0)
+156 ;;=W55.01XD^^107^1506^10
+157 ;;^UTILITY(U,$J,358.3,38498,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,38498,1,3,0)
+160 ;;=3^Bitten by Cat,Subs Encntr
+161 ;;^UTILITY(U,$J,358.3,38498,1,4,0)
+162 ;;=4^W55.01XD
+163 ;;^UTILITY(U,$J,358.3,38498,2)
+164 ;;=^5060266
+165 ;;^UTILITY(U,$J,358.3,38499,0)
+166 ;;=W55.03XA^^107^1506^110
+167 ;;^UTILITY(U,$J,358.3,38499,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,38499,1,3,0)
+170 ;;=3^Scratched by Cat,Init Encntr
+171 ;;^UTILITY(U,$J,358.3,38499,1,4,0)
+172 ;;=4^W55.03XA
+173 ;;^UTILITY(U,$J,358.3,38499,2)
+174 ;;=^5060268
+175 ;;^UTILITY(U,$J,358.3,38500,0)
+176 ;;=W55.03XD^^107^1506^111
+177 ;;^UTILITY(U,$J,358.3,38500,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,38500,1,3,0)
+180 ;;=3^Scratched by Cat,Subs Encntr
+181 ;;^UTILITY(U,$J,358.3,38500,1,4,0)
+182 ;;=4^W55.03XD
+183 ;;^UTILITY(U,$J,358.3,38500,2)
+184 ;;=^5060269
+185 ;;^UTILITY(U,$J,358.3,38501,0)
+186 ;;=X00.8XXA^^107^1506^22
+187 ;;^UTILITY(U,$J,358.3,38501,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,38501,1,3,0)
+190 ;;=3^Exp to Uncontrolled Bldg Fire,Init Encntr
+191 ;;^UTILITY(U,$J,358.3,38501,1,4,0)
+192 ;;=4^X00.8XXA
+193 ;;^UTILITY(U,$J,358.3,38501,2)
+194 ;;=^5060679
+195 ;;^UTILITY(U,$J,358.3,38502,0)
+196 ;;=X00.8XXD^^107^1506^23
+197 ;;^UTILITY(U,$J,358.3,38502,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,38502,1,3,0)
+200 ;;=3^Exp to Uncontrolled Bldg Fire,Subs Encntr
+201 ;;^UTILITY(U,$J,358.3,38502,1,4,0)
+202 ;;=4^X00.8XXD
+203 ;;^UTILITY(U,$J,358.3,38502,2)
+204 ;;=^5060680
+205 ;;^UTILITY(U,$J,358.3,38503,0)
+206 ;;=X32.XXXA^^107^1506^20
+207 ;;^UTILITY(U,$J,358.3,38503,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,38503,1,3,0)
+210 ;;=3^Exp to Sunlight,Init Encntr
+211 ;;^UTILITY(U,$J,358.3,38503,1,4,0)
+212 ;;=4^X32.XXXA
+213 ;;^UTILITY(U,$J,358.3,38503,2)
+214 ;;=^5060847
+215 ;;^UTILITY(U,$J,358.3,38504,0)
+216 ;;=X32.XXXD^^107^1506^21
+217 ;;^UTILITY(U,$J,358.3,38504,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,38504,1,3,0)
+220 ;;=3^Exp to Sunlight,Subs Encntr
+221 ;;^UTILITY(U,$J,358.3,38504,1,4,0)
+222 ;;=4^X32.XXXD
+223 ;;^UTILITY(U,$J,358.3,38504,2)
+224 ;;=^5060848
+225 ;;^UTILITY(U,$J,358.3,38505,0)
+226 ;;=Y04.0XXA^^107^1506^7
+227 ;;^UTILITY(U,$J,358.3,38505,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,38505,1,3,0)
+230 ;;=3^Assault by Unarmed Fight,Init Encntr
+231 ;;^UTILITY(U,$J,358.3,38505,1,4,0)
+232 ;;=4^Y04.0XXA
+233 ;;^UTILITY(U,$J,358.3,38505,2)
+234 ;;=^5061165
+235 ;;^UTILITY(U,$J,358.3,38506,0)
+236 ;;=Y04.0XXD^^107^1506^8
+237 ;;^UTILITY(U,$J,358.3,38506,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,38506,1,3,0)
+240 ;;=3^Assault by Unarmed Fight,Subs Encntr
+241 ;;^UTILITY(U,$J,358.3,38506,1,4,0)
+242 ;;=4^Y04.0XXD
+243 ;;^UTILITY(U,$J,358.3,38506,2)
+244 ;;=^5061166
+245 ;;^UTILITY(U,$J,358.3,38507,0)
+246 ;;=Y04.1XXA^^107^1506^1
+247 ;;^UTILITY(U,$J,358.3,38507,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,38507,1,3,0)
+250 ;;=3^Assault by Human Bite,Init Encntr
+251 ;;^UTILITY(U,$J,358.3,38507,1,4,0)
+252 ;;=4^Y04.1XXA
+253 ;;^UTILITY(U,$J,358.3,38507,2)
+254 ;;=^5061168
+255 ;;^UTILITY(U,$J,358.3,38508,0)
+256 ;;=Y04.1XXD^^107^1506^2
+257 ;;^UTILITY(U,$J,358.3,38508,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,38508,1,3,0)
+260 ;;=3^Assault by Human Bite,Subs Encntr
+261 ;;^UTILITY(U,$J,358.3,38508,1,4,0)
+262 ;;=4^Y04.1XXD
+263 ;;^UTILITY(U,$J,358.3,38508,2)
+264 ;;=^5061169
+265 ;;^UTILITY(U,$J,358.3,38509,0)
+266 ;;=Y04.2XXA^^107^1506^5
+267 ;;^UTILITY(U,$J,358.3,38509,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,38509,1,3,0)
+270 ;;=3^Assault by Strike/Bumped by Another Person,Init Encntr
+271 ;;^UTILITY(U,$J,358.3,38509,1,4,0)
+272 ;;=4^Y04.2XXA
+273 ;;^UTILITY(U,$J,358.3,38509,2)
+274 ;;=^5061171
+275 ;;^UTILITY(U,$J,358.3,38510,0)
+276 ;;=Y04.8XXA^^107^1506^3
+277 ;;^UTILITY(U,$J,358.3,38510,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,38510,1,3,0)
+280 ;;=3^Assault by Oth Bodily Force,Init Encntr
+281 ;;^UTILITY(U,$J,358.3,38510,1,4,0)
+282 ;;=4^Y04.8XXA
+283 ;;^UTILITY(U,$J,358.3,38510,2)
+284 ;;=^5061174
+285 ;;^UTILITY(U,$J,358.3,38511,0)
+286 ;;=Y04.2XXD^^107^1506^6
+287 ;;^UTILITY(U,$J,358.3,38511,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,38511,1,3,0)
+290 ;;=3^Assault by Strike/Bumped by Another Person,Subs Encntr
+291 ;;^UTILITY(U,$J,358.3,38511,1,4,0)
+292 ;;=4^Y04.2XXD
+293 ;;^UTILITY(U,$J,358.3,38511,2)
+294 ;;=^5061172
+295 ;;^UTILITY(U,$J,358.3,38512,0)
+296 ;;=Y04.8XXD^^107^1506^4
+297 ;;^UTILITY(U,$J,358.3,38512,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,38512,1,3,0)
+300 ;;=3^Assault by Oth Bodily Force,Subs Encntr
+301 ;;^UTILITY(U,$J,358.3,38512,1,4,0)
+302 ;;=4^Y04.8XXD
+303 ;;^UTILITY(U,$J,358.3,38512,2)
+304 ;;=^5061175
+305 ;;^UTILITY(U,$J,358.3,38513,0)
+306 ;;=Y36.200A^^107^1506^133
+307 ;;^UTILITY(U,$J,358.3,38513,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,38513,1,3,0)
+310 ;;=3^War Op Inv Unspec Explosion/Fragments,Milt,Init Encntr
+311 ;;^UTILITY(U,$J,358.3,38513,1,4,0)
+312 ;;=4^Y36.200A
+313 ;;^UTILITY(U,$J,358.3,38513,2)
+314 ;;=^5061607
+315 ;;^UTILITY(U,$J,358.3,38514,0)
+316 ;;=Y36.200D^^107^1506^134
+317 ;;^UTILITY(U,$J,358.3,38514,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,38514,1,3,0)
+320 ;;=3^War Op Inv Unspec Explosion/Fragments,Milt,Subs Encntr
+321 ;;^UTILITY(U,$J,358.3,38514,1,4,0)
+322 ;;=4^Y36.200D
+323 ;;^UTILITY(U,$J,358.3,38514,2)
+324 ;;=^5061608
+325 ;;^UTILITY(U,$J,358.3,38515,0)
+326 ;;=Y36.300A^^107^1506^135
+327 ;;^UTILITY(U,$J,358.3,38515,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,38515,1,3,0)
+330 ;;=3^War Op Inv Unspec Fire/Conflagr/Hot Subst,Milt,Init Encntr
+331 ;;^UTILITY(U,$J,358.3,38515,1,4,0)
+332 ;;=4^Y36.300A
+333 ;;^UTILITY(U,$J,358.3,38515,2)
+334 ;;=^5061661
+335 ;;^UTILITY(U,$J,358.3,38516,0)
+336 ;;=Y36.300D^^107^1506^136
+337 ;;^UTILITY(U,$J,358.3,38516,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,38516,1,3,0)
+340 ;;=3^War Op Inv Unspec Fire/Conflagr/Hot Subst,Milt,Subs Encntr
+341 ;;^UTILITY(U,$J,358.3,38516,1,4,0)
+342 ;;=4^Y36.300D
+343 ;;^UTILITY(U,$J,358.3,38516,2)
+344 ;;=^5061662
+345 ;;^UTILITY(U,$J,358.3,38517,0)
+346 ;;=Y36.410A^^107^1506^130
+347 ;;^UTILITY(U,$J,358.3,38517,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,38517,1,3,0)
+350 ;;=3^War Op Inv Rubber Bullets,Milt,Init Encntr
+351 ;;^UTILITY(U,$J,358.3,38517,1,4,0)
+352 ;;=4^Y36.410A
+353 ;;^UTILITY(U,$J,358.3,38517,2)
+354 ;;=^5061691
+355 ;;^UTILITY(U,$J,358.3,38518,0)
+356 ;;=Y36.410D^^107^1506^132
+357 ;;^UTILITY(U,$J,358.3,38518,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,38518,1,3,0)
+360 ;;=3^War Op Inv Rubber Bullets,Milt,Subs Encntr
+361 ;;^UTILITY(U,$J,358.3,38518,1,4,0)
+362 ;;=4^Y36.410D
+363 ;;^UTILITY(U,$J,358.3,38518,2)
+364 ;;=^5061692
+365 ;;^UTILITY(U,$J,358.3,38519,0)
+366 ;;=Y36.6X0A^^107^1506^122
+367 ;;^UTILITY(U,$J,358.3,38519,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,38519,1,3,0)
+370 ;;=3^War Op Inv Biological Weapons,Milt,Init Encntr
+371 ;;^UTILITY(U,$J,358.3,38519,1,4,0)
+372 ;;=4^Y36.6X0A
+373 ;;^UTILITY(U,$J,358.3,38519,2)
+374 ;;=^5061775
+375 ;;^UTILITY(U,$J,358.3,38520,0)
+376 ;;=Y36.6X0D^^107^1506^124
+377 ;;^UTILITY(U,$J,358.3,38520,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,38520,1,3,0)
+380 ;;=3^War Op Inv Biological Weapons,Milt,Subs Encntr
+381 ;;^UTILITY(U,$J,358.3,38520,1,4,0)
+382 ;;=4^Y36.6X0D
+383 ;;^UTILITY(U,$J,358.3,38520,2)
+384 ;;=^5061776
+385 ;;^UTILITY(U,$J,358.3,38521,0)
+386 ;;=Y36.7X0A^^107^1506^137
+387 ;;^UTILITY(U,$J,358.3,38521,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,38521,1,3,0)
+390 ;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Init Encntr
+391 ;;^UTILITY(U,$J,358.3,38521,1,4,0)
+392 ;;=4^Y36.7X0A
+393 ;;^UTILITY(U,$J,358.3,38521,2)
+394 ;;=^5061781
+395 ;;^UTILITY(U,$J,358.3,38522,0)
+396 ;;=Y36.7X0D^^107^1506^138
+397 ;;^UTILITY(U,$J,358.3,38522,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,38522,1,3,0)
+400 ;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Subs Encntr
+401 ;;^UTILITY(U,$J,358.3,38522,1,4,0)
+402 ;;=4^Y36.7X0D
+403 ;;^UTILITY(U,$J,358.3,38522,2)
+404 ;;=^5061782
+405 ;;^UTILITY(U,$J,358.3,38523,0)
+406 ;;=Y36.810A^^107^1506^27
+407 ;;^UTILITY(U,$J,358.3,38523,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,38523,1,3,0)
+410 ;;=3^Explosn of Mine Placed During War Op but Expld Aft,Milt,Init Encntr
+411 ;;^UTILITY(U,$J,358.3,38523,1,4,0)
+412 ;;=4^Y36.810A
+413 ;;^UTILITY(U,$J,358.3,38523,2)
+414 ;;=^5061787
+415 ;;^UTILITY(U,$J,358.3,38524,0)
+416 ;;=Y36.810D^^107^1506^28
+417 ;;^UTILITY(U,$J,358.3,38524,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,38524,1,3,0)
+420 ;;=3^Explosn of Mine Placed During War Op but Expld Aft,Milt,Subs Encntr
+421 ;;^UTILITY(U,$J,358.3,38524,1,4,0)
+422 ;;=4^Y36.810D
+423 ;;^UTILITY(U,$J,358.3,38524,2)
+424 ;;=^5061788
+425 ;;^UTILITY(U,$J,358.3,38525,0)
+426 ;;=Y36.820A^^107^1506^24
+427 ;;^UTILITY(U,$J,358.3,38525,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,38525,1,3,0)
+430 ;;=3^Explosn of Bomb Placed During War Op But Expld Aft,Milt,Init Encntr
+431 ;;^UTILITY(U,$J,358.3,38525,1,4,0)
+432 ;;=4^Y36.820A
+433 ;;^UTILITY(U,$J,358.3,38525,2)
+434 ;;=^5061793
+435 ;;^UTILITY(U,$J,358.3,38526,0)
+436 ;;=Y36.820D^^107^1506^25
+437 ;;^UTILITY(U,$J,358.3,38526,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,38526,1,3,0)
+440 ;;=3^Explosn of Bomb Placed During War Op But Expld Aft,Milt,Subs Encntr
+441 ;;^UTILITY(U,$J,358.3,38526,1,4,0)
+442 ;;=4^Y36.820D
+443 ;;^UTILITY(U,$J,358.3,38526,2)
+444 ;;=^5061794
+445 ;;^UTILITY(U,$J,358.3,38527,0)
+446 ;;=Y37.200A^^107^1506^96
+447 ;;^UTILITY(U,$J,358.3,38527,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,38527,1,3,0)
+450 ;;=3^Miltary Op Inv Explosion/Fragments,Milt,Init Encntr
+451 ;;^UTILITY(U,$J,358.3,38527,1,4,0)
+452 ;;=4^Y37.200A
+453 ;;^UTILITY(U,$J,358.3,38527,2)
+454 ;;=^5137997
+455 ;;^UTILITY(U,$J,358.3,38528,0)
+456 ;;=Y37.200D^^107^1506^97
+457 ;;^UTILITY(U,$J,358.3,38528,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,38528,1,3,0)
+460 ;;=3^Miltary Op Inv Explosion/Fragments,Milt,Subs Encntr
+461 ;;^UTILITY(U,$J,358.3,38528,1,4,0)
+462 ;;=4^Y37.200D
+463 ;;^UTILITY(U,$J,358.3,38528,2)
+464 ;;=^5137999
+465 ;;^UTILITY(U,$J,358.3,38529,0)
+466 ;;=X00.1XXA^^107^1506^18
+467 ;;^UTILITY(U,$J,358.3,38529,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,38529,1,3,0)
+470 ;;=3^Exp to Smoke in Uncontrolled Bldg Fire,Init Encntr
+471 ;;^UTILITY(U,$J,358.3,38529,1,4,0)
+472 ;;=4^X00.1XXA
+473 ;;^UTILITY(U,$J,358.3,38529,2)
+474 ;;=^5060664
+475 ;;^UTILITY(U,$J,358.3,38530,0)
+476 ;;=X00.1XXD^^107^1506^19
+477 ;;^UTILITY(U,$J,358.3,38530,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,38530,1,3,0)
+480 ;;=3^Exp to Smoke in Uncontrolled Bldg Fire,Subs Encntr
+481 ;;^UTILITY(U,$J,358.3,38530,1,4,0)
+482 ;;=4^X00.1XXD
+483 ;;^UTILITY(U,$J,358.3,38530,2)
+484 ;;=^5060665
+485 ;;^UTILITY(U,$J,358.3,38531,0)
+486 ;;=Y36.820S^^107^1506^26
+487 ;;^UTILITY(U,$J,358.3,38531,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,38531,1,3,0)
+490 ;;=3^Explosn of Bomb Placed During War Op but Expld After,Milt,Sequela
+491 ;;^UTILITY(U,$J,358.3,38531,1,4,0)
+492 ;;=4^Y36.820S
+493 ;;^UTILITY(U,$J,358.3,38531,2)
+494 ;;=^5061795
+495 ;;^UTILITY(U,$J,358.3,38532,0)
+496 ;;=Y36.810S^^107^1506^29
+497 ;;^UTILITY(U,$J,358.3,38532,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,38532,1,3,0)
+500 ;;=3^Explosn of Mine Placed During War Op but Expld After,Milt,Sequela
+501 ;;^UTILITY(U,$J,358.3,38532,1,4,0)
+502 ;;=4^Y36.810S
+503 ;;^UTILITY(U,$J,358.3,38532,2)
+504 ;;=^5061789
+505 ;;^UTILITY(U,$J,358.3,38533,0)
+506 ;;=Y36.6X0S^^107^1506^123
+507 ;;^UTILITY(U,$J,358.3,38533,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,38533,1,3,0)
+510 ;;=3^War Op Inv Biological Weapons,Milt,Sequela
+511 ;;^UTILITY(U,$J,358.3,38533,1,4,0)
+512 ;;=4^Y36.6X0S
+513 ;;^UTILITY(U,$J,358.3,38533,2)
+514 ;;=^5061777
+515 ;;^UTILITY(U,$J,358.3,38534,0)
+516 ;;=Y36.410S^^107^1506^131
+517 ;;^UTILITY(U,$J,358.3,38534,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,38534,1,3,0)
+520 ;;=3^War Op Inv Rubber Bullets,Milt,Sequela
+521 ;;^UTILITY(U,$J,358.3,38534,1,4,0)
+522 ;;=4^Y36.410S
+523 ;;^UTILITY(U,$J,358.3,38534,2)
+524 ;;=^5061693
+525 ;;^UTILITY(U,$J,358.3,38535,0)
+526 ;;=Y36.200S^^107^1506^128
+527 ;;^UTILITY(U,$J,358.3,38535,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,38535,1,3,0)
+530 ;;=3^War Op Inv Explosion/Fragments,Unspec,Milt,Sequela
+531 ;;^UTILITY(U,$J,358.3,38535,1,4,0)
+532 ;;=4^Y36.200S
+533 ;;^UTILITY(U,$J,358.3,38535,2)
+534 ;;=^5061609
+535 ;;^UTILITY(U,$J,358.3,38536,0)
+536 ;;=Y36.300S^^107^1506^129
+537 ;;^UTILITY(U,$J,358.3,38536,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,38536,1,3,0)
+540 ;;=3^War Op Inv Fire/Conflagr/Hot Subst,Unspec,Milt,Sequela
+541 ;;^UTILITY(U,$J,358.3,38536,1,4,0)
+542 ;;=4^Y36.300S
+543 ;;^UTILITY(U,$J,358.3,38536,2)
+544 ;;=^5061663
+545 ;;^UTILITY(U,$J,358.3,38537,0)
+546 ;;=Y36.230A^^107^1506^125
+547 ;;^UTILITY(U,$J,358.3,38537,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,38537,1,3,0)
+550 ;;=3^War Op Inv Explosion of IED,Milt Pers,Init Encntr
+551 ;;^UTILITY(U,$J,358.3,38537,1,4,0)
+552 ;;=4^Y36.230A
+553 ;;^UTILITY(U,$J,358.3,38537,2)
+554 ;;=^5061625
+555 ;;^UTILITY(U,$J,358.3,38538,0)
+556 ;;=Y36.230D^^107^1506^126
+557 ;;^UTILITY(U,$J,358.3,38538,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,38538,1,3,0)
+560 ;;=3^War Op Inv Explosion of IED,Milt Pers,Subs Encntr
+561 ;;^UTILITY(U,$J,358.3,38538,1,4,0)
+562 ;;=4^Y36.230D
+563 ;;^UTILITY(U,$J,358.3,38538,2)
+564 ;;=^5061626
+565 ;;^UTILITY(U,$J,358.3,38539,0)
+566 ;;=Y36.230S^^107^1506^127
+567 ;;^UTILITY(U,$J,358.3,38539,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,38539,1,3,0)
+570 ;;=3^War Op Inv Explosion of IED,Milt Pers,Sequela
+571 ;;^UTILITY(U,$J,358.3,38539,1,4,0)
+572 ;;=4^Y36.230S
+573 ;;^UTILITY(U,$J,358.3,38539,2)
+574 ;;=^5061627
+575 ;;^UTILITY(U,$J,358.3,38540,0)
+576 ;;=Y36.7X0S^^107^1506^139
+577 ;;^UTILITY(U,$J,358.3,38540,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,38540,1,3,0)
+580 ;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Sequela
+581 ;;^UTILITY(U,$J,358.3,38540,1,4,0)
+582 ;;=4^Y36.7X0S
+583 ;;^UTILITY(U,$J,358.3,38540,2)
+584 ;;=^5061783
+585 ;;^UTILITY(U,$J,358.3,38541,0)
+586 ;;=V47.6XXA^^107^1506^14
+587 ;;^UTILITY(U,$J,358.3,38541,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,38541,1,3,0)
+590 ;;=3^Car Pasngr Injured in Collsn w/ Fixed Obj/Traffic,Init Encntr
+591 ;;^UTILITY(U,$J,358.3,38541,1,4,0)
+592 ;;=4^V47.6XXA
+593 ;;^UTILITY(U,$J,358.3,38541,2)
+594 ;;=^5140366
+595 ;;^UTILITY(U,$J,358.3,38542,0)
+596 ;;=V47.9XXA^^107^1506^13
+597 ;;^UTILITY(U,$J,358.3,38542,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,38542,1,3,0)
+600 ;;=3^Car Occpnt,Unspec,Injured in Collsn w/ Fixed Obj/Traffic,Init Encntr
+601 ;;^UTILITY(U,$J,358.3,38542,1,4,0)
+602 ;;=4^V47.9XXA
+603 ;;^UTILITY(U,$J,358.3,38542,2)
+604 ;;=^5140369
+605 ;;^UTILITY(U,$J,358.3,38543,0)
+606 ;;=W26.2XXA^^107^1506^15
+607 ;;^UTILITY(U,$J,358.3,38543,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,38543,1,3,0)
+610 ;;=3^Contact w/ Edge of Stiff Paper,Init Encntr
+611 ;;^UTILITY(U,$J,358.3,38543,1,4,0)
+612 ;;=4^W26.2XXA
+613 ;;^UTILITY(U,$J,358.3,38543,2)
+614 ;;=^5140372
+615 ;;^UTILITY(U,$J,358.3,38544,0)
+616 ;;=W26.8XXA^^107^1506^16
+617 ;;^UTILITY(U,$J,358.3,38544,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,38544,1,3,0)
+620 ;;=3^Contact w/ Other Sharp Object,Init Encntr
+621 ;;^UTILITY(U,$J,358.3,38544,1,4,0)
+622 ;;=4^W26.8XXA
+623 ;;^UTILITY(U,$J,358.3,38544,2)
+624 ;;=^5140375
+625 ;;^UTILITY(U,$J,358.3,38545,0)
+626 ;;=W26.9XXA^^107^1506^17
+627 ;;^UTILITY(U,$J,358.3,38545,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,38545,1,3,0)
+630 ;;=3^Contact w/ Unspec Sharp Object,Init Encntr
+631 ;;^UTILITY(U,$J,358.3,38545,1,4,0)
+632 ;;=4^W26.9XXA
+633 ;;^UTILITY(U,$J,358.3,38545,2)
+634 ;;=^5140378
