IBDEI04B ; ; 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,10387,1,4,0)
;;=4^X32.XXXD
;;^UTILITY(U,$J,358.3,10387,2)
;;=^5060848
;;^UTILITY(U,$J,358.3,10388,0)
;;=Y04.0XXA^^45^450^7
;;^UTILITY(U,$J,358.3,10388,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10388,1,3,0)
;;=3^Assault by Unarmed Fight,Init Encntr
;;^UTILITY(U,$J,358.3,10388,1,4,0)
;;=4^Y04.0XXA
;;^UTILITY(U,$J,358.3,10388,2)
;;=^5061165
;;^UTILITY(U,$J,358.3,10389,0)
;;=Y04.0XXD^^45^450^8
;;^UTILITY(U,$J,358.3,10389,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10389,1,3,0)
;;=3^Assault by Unarmed Fight,Subs Encntr
;;^UTILITY(U,$J,358.3,10389,1,4,0)
;;=4^Y04.0XXD
;;^UTILITY(U,$J,358.3,10389,2)
;;=^5061166
;;^UTILITY(U,$J,358.3,10390,0)
;;=Y04.1XXA^^45^450^1
;;^UTILITY(U,$J,358.3,10390,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10390,1,3,0)
;;=3^Assault by Human Bite,Init Encntr
;;^UTILITY(U,$J,358.3,10390,1,4,0)
;;=4^Y04.1XXA
;;^UTILITY(U,$J,358.3,10390,2)
;;=^5061168
;;^UTILITY(U,$J,358.3,10391,0)
;;=Y04.1XXD^^45^450^2
;;^UTILITY(U,$J,358.3,10391,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10391,1,3,0)
;;=3^Assault by Human Bite,Subs Encntr
;;^UTILITY(U,$J,358.3,10391,1,4,0)
;;=4^Y04.1XXD
;;^UTILITY(U,$J,358.3,10391,2)
;;=^5061169
;;^UTILITY(U,$J,358.3,10392,0)
;;=Y04.2XXA^^45^450^5
;;^UTILITY(U,$J,358.3,10392,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10392,1,3,0)
;;=3^Assault by Strike/Bumped by Another Person,Init Encntr
;;^UTILITY(U,$J,358.3,10392,1,4,0)
;;=4^Y04.2XXA
;;^UTILITY(U,$J,358.3,10392,2)
;;=^5061171
;;^UTILITY(U,$J,358.3,10393,0)
;;=Y04.8XXA^^45^450^3
;;^UTILITY(U,$J,358.3,10393,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10393,1,3,0)
;;=3^Assault by Oth Bodily Force,Init Encntr
;;^UTILITY(U,$J,358.3,10393,1,4,0)
;;=4^Y04.8XXA
;;^UTILITY(U,$J,358.3,10393,2)
;;=^5061174
;;^UTILITY(U,$J,358.3,10394,0)
;;=Y04.2XXD^^45^450^6
;;^UTILITY(U,$J,358.3,10394,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10394,1,3,0)
;;=3^Assault by Strike/Bumped by Another Person,Subs Encntr
;;^UTILITY(U,$J,358.3,10394,1,4,0)
;;=4^Y04.2XXD
;;^UTILITY(U,$J,358.3,10394,2)
;;=^5061172
;;^UTILITY(U,$J,358.3,10395,0)
;;=Y04.8XXD^^45^450^4
;;^UTILITY(U,$J,358.3,10395,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10395,1,3,0)
;;=3^Assault by Oth Bodily Force,Subs Encntr
;;^UTILITY(U,$J,358.3,10395,1,4,0)
;;=4^Y04.8XXD
;;^UTILITY(U,$J,358.3,10395,2)
;;=^5061175
;;^UTILITY(U,$J,358.3,10396,0)
;;=Y36.200A^^45^450^133
;;^UTILITY(U,$J,358.3,10396,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10396,1,3,0)
;;=3^War Op Inv Unspec Explosion/Fragments,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,10396,1,4,0)
;;=4^Y36.200A
;;^UTILITY(U,$J,358.3,10396,2)
;;=^5061607
;;^UTILITY(U,$J,358.3,10397,0)
;;=Y36.200D^^45^450^134
;;^UTILITY(U,$J,358.3,10397,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10397,1,3,0)
;;=3^War Op Inv Unspec Explosion/Fragments,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,10397,1,4,0)
;;=4^Y36.200D
;;^UTILITY(U,$J,358.3,10397,2)
;;=^5061608
;;^UTILITY(U,$J,358.3,10398,0)
;;=Y36.300A^^45^450^135
;;^UTILITY(U,$J,358.3,10398,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10398,1,3,0)
;;=3^War Op Inv Unspec Fire/Conflagr/Hot Subst,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,10398,1,4,0)
;;=4^Y36.300A
;;^UTILITY(U,$J,358.3,10398,2)
;;=^5061661
;;^UTILITY(U,$J,358.3,10399,0)
;;=Y36.300D^^45^450^136
;;^UTILITY(U,$J,358.3,10399,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10399,1,3,0)
;;=3^War Op Inv Unspec Fire/Conflagr/Hot Subst,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,10399,1,4,0)
;;=4^Y36.300D
;;^UTILITY(U,$J,358.3,10399,2)
;;=^5061662
;;^UTILITY(U,$J,358.3,10400,0)
;;=Y36.410A^^45^450^130
;;^UTILITY(U,$J,358.3,10400,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10400,1,3,0)
;;=3^War Op Inv Rubber Bullets,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,10400,1,4,0)
;;=4^Y36.410A
;;^UTILITY(U,$J,358.3,10400,2)
;;=^5061691
;;^UTILITY(U,$J,358.3,10401,0)
;;=Y36.410D^^45^450^132
;;^UTILITY(U,$J,358.3,10401,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10401,1,3,0)
;;=3^War Op Inv Rubber Bullets,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,10401,1,4,0)
;;=4^Y36.410D
;;^UTILITY(U,$J,358.3,10401,2)
;;=^5061692
;;^UTILITY(U,$J,358.3,10402,0)
;;=Y36.6X0A^^45^450^122
;;^UTILITY(U,$J,358.3,10402,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10402,1,3,0)
;;=3^War Op Inv Biological Weapons,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,10402,1,4,0)
;;=4^Y36.6X0A
;;^UTILITY(U,$J,358.3,10402,2)
;;=^5061775
;;^UTILITY(U,$J,358.3,10403,0)
;;=Y36.6X0D^^45^450^124
;;^UTILITY(U,$J,358.3,10403,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10403,1,3,0)
;;=3^War Op Inv Biological Weapons,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,10403,1,4,0)
;;=4^Y36.6X0D
;;^UTILITY(U,$J,358.3,10403,2)
;;=^5061776
;;^UTILITY(U,$J,358.3,10404,0)
;;=Y36.7X0A^^45^450^137
;;^UTILITY(U,$J,358.3,10404,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10404,1,3,0)
;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,10404,1,4,0)
;;=4^Y36.7X0A
;;^UTILITY(U,$J,358.3,10404,2)
;;=^5061781
;;^UTILITY(U,$J,358.3,10405,0)
;;=Y36.7X0D^^45^450^138
;;^UTILITY(U,$J,358.3,10405,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10405,1,3,0)
;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,10405,1,4,0)
;;=4^Y36.7X0D
;;^UTILITY(U,$J,358.3,10405,2)
;;=^5061782
;;^UTILITY(U,$J,358.3,10406,0)
;;=Y36.810A^^45^450^27
;;^UTILITY(U,$J,358.3,10406,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10406,1,3,0)
;;=3^Explosn of Mine Placed During War Op but Expld Aft,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,10406,1,4,0)
;;=4^Y36.810A
;;^UTILITY(U,$J,358.3,10406,2)
;;=^5061787
;;^UTILITY(U,$J,358.3,10407,0)
;;=Y36.810D^^45^450^28
;;^UTILITY(U,$J,358.3,10407,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10407,1,3,0)
;;=3^Explosn of Mine Placed During War Op but Expld Aft,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,10407,1,4,0)
;;=4^Y36.810D
;;^UTILITY(U,$J,358.3,10407,2)
;;=^5061788
;;^UTILITY(U,$J,358.3,10408,0)
;;=Y36.820A^^45^450^24
;;^UTILITY(U,$J,358.3,10408,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10408,1,3,0)
;;=3^Explosn of Bomb Placed During War Op But Expld Aft,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,10408,1,4,0)
;;=4^Y36.820A
;;^UTILITY(U,$J,358.3,10408,2)
;;=^5061793
;;^UTILITY(U,$J,358.3,10409,0)
;;=Y36.820D^^45^450^25
;;^UTILITY(U,$J,358.3,10409,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10409,1,3,0)
;;=3^Explosn of Bomb Placed During War Op But Expld Aft,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,10409,1,4,0)
;;=4^Y36.820D
;;^UTILITY(U,$J,358.3,10409,2)
;;=^5061794
;;^UTILITY(U,$J,358.3,10410,0)
;;=Y37.200A^^45^450^96
;;^UTILITY(U,$J,358.3,10410,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10410,1,3,0)
;;=3^Miltary Op Inv Explosion/Fragments,Milt,Init Encntr
;;^UTILITY(U,$J,358.3,10410,1,4,0)
;;=4^Y37.200A
;;^UTILITY(U,$J,358.3,10410,2)
;;=^5137997
;;^UTILITY(U,$J,358.3,10411,0)
;;=Y37.200D^^45^450^97
;;^UTILITY(U,$J,358.3,10411,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10411,1,3,0)
;;=3^Miltary Op Inv Explosion/Fragments,Milt,Subs Encntr
;;^UTILITY(U,$J,358.3,10411,1,4,0)
;;=4^Y37.200D
;;^UTILITY(U,$J,358.3,10411,2)
;;=^5137999
;;^UTILITY(U,$J,358.3,10412,0)
;;=X00.1XXA^^45^450^18
;;^UTILITY(U,$J,358.3,10412,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10412,1,3,0)
;;=3^Exp to Smoke in Uncontrolled Bldg Fire,Init Encntr
;;^UTILITY(U,$J,358.3,10412,1,4,0)
;;=4^X00.1XXA
;;^UTILITY(U,$J,358.3,10412,2)
;;=^5060664
;;^UTILITY(U,$J,358.3,10413,0)
;;=X00.1XXD^^45^450^19
;;^UTILITY(U,$J,358.3,10413,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10413,1,3,0)
;;=3^Exp to Smoke in Uncontrolled Bldg Fire,Subs Encntr
;;^UTILITY(U,$J,358.3,10413,1,4,0)
;;=4^X00.1XXD
;;^UTILITY(U,$J,358.3,10413,2)
;;=^5060665
;;^UTILITY(U,$J,358.3,10414,0)
;;=Y36.820S^^45^450^26
;;^UTILITY(U,$J,358.3,10414,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10414,1,3,0)
;;=3^Explosn of Bomb Placed During War Op but Expld After,Milt,Sequela
;;^UTILITY(U,$J,358.3,10414,1,4,0)
;;=4^Y36.820S
;;^UTILITY(U,$J,358.3,10414,2)
;;=^5061795
;;^UTILITY(U,$J,358.3,10415,0)
;;=Y36.810S^^45^450^29
;;^UTILITY(U,$J,358.3,10415,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10415,1,3,0)
;;=3^Explosn of Mine Placed During War Op but Expld After,Milt,Sequela
;;^UTILITY(U,$J,358.3,10415,1,4,0)
;;=4^Y36.810S
;;^UTILITY(U,$J,358.3,10415,2)
;;=^5061789
;;^UTILITY(U,$J,358.3,10416,0)
;;=Y36.6X0S^^45^450^123
;;^UTILITY(U,$J,358.3,10416,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10416,1,3,0)
;;=3^War Op Inv Biological Weapons,Milt,Sequela
;;^UTILITY(U,$J,358.3,10416,1,4,0)
;;=4^Y36.6X0S
;;^UTILITY(U,$J,358.3,10416,2)
;;=^5061777
;;^UTILITY(U,$J,358.3,10417,0)
;;=Y36.410S^^45^450^131
;;^UTILITY(U,$J,358.3,10417,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10417,1,3,0)
;;=3^War Op Inv Rubber Bullets,Milt,Sequela
;;^UTILITY(U,$J,358.3,10417,1,4,0)
;;=4^Y36.410S
;;^UTILITY(U,$J,358.3,10417,2)
;;=^5061693
;;^UTILITY(U,$J,358.3,10418,0)
;;=Y36.200S^^45^450^128
;;^UTILITY(U,$J,358.3,10418,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10418,1,3,0)
;;=3^War Op Inv Explosion/Fragments,Unspec,Milt,Sequela
;;^UTILITY(U,$J,358.3,10418,1,4,0)
;;=4^Y36.200S
;;^UTILITY(U,$J,358.3,10418,2)
;;=^5061609
;;^UTILITY(U,$J,358.3,10419,0)
;;=Y36.300S^^45^450^129
;;^UTILITY(U,$J,358.3,10419,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10419,1,3,0)
;;=3^War Op Inv Fire/Conflagr/Hot Subst,Unspec,Milt,Sequela
;;^UTILITY(U,$J,358.3,10419,1,4,0)
;;=4^Y36.300S
;;^UTILITY(U,$J,358.3,10419,2)
;;=^5061663
;;^UTILITY(U,$J,358.3,10420,0)
;;=Y36.230A^^45^450^125
;;^UTILITY(U,$J,358.3,10420,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10420,1,3,0)
;;=3^War Op Inv Explosion of IED,Milt Pers,Init Encntr
;;^UTILITY(U,$J,358.3,10420,1,4,0)
;;=4^Y36.230A
;;^UTILITY(U,$J,358.3,10420,2)
;;=^5061625
;;^UTILITY(U,$J,358.3,10421,0)
;;=Y36.230D^^45^450^126
;;^UTILITY(U,$J,358.3,10421,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10421,1,3,0)
;;=3^War Op Inv Explosion of IED,Milt Pers,Subs Encntr
;;^UTILITY(U,$J,358.3,10421,1,4,0)
;;=4^Y36.230D
;;^UTILITY(U,$J,358.3,10421,2)
;;=^5061626
;;^UTILITY(U,$J,358.3,10422,0)
;;=Y36.230S^^45^450^127
;;^UTILITY(U,$J,358.3,10422,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10422,1,3,0)
;;=3^War Op Inv Explosion of IED,Milt Pers,Sequela
;;^UTILITY(U,$J,358.3,10422,1,4,0)
;;=4^Y36.230S
;;^UTILITY(U,$J,358.3,10422,2)
;;=^5061627
;;^UTILITY(U,$J,358.3,10423,0)
;;=Y36.7X0S^^45^450^139
;;^UTILITY(U,$J,358.3,10423,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10423,1,3,0)
;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Sequela
;;^UTILITY(U,$J,358.3,10423,1,4,0)
;;=4^Y36.7X0S
;;^UTILITY(U,$J,358.3,10423,2)
;;=^5061783
;;^UTILITY(U,$J,358.3,10424,0)
;;=V47.6XXA^^45^450^14
;;^UTILITY(U,$J,358.3,10424,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10424,1,3,0)
;;=3^Car Pasngr Injured in Collsn w/ Fixed Obj/Traffic,Init Encntr
;;^UTILITY(U,$J,358.3,10424,1,4,0)
;;=4^V47.6XXA
;;^UTILITY(U,$J,358.3,10424,2)
;;=^5140366
;;^UTILITY(U,$J,358.3,10425,0)
;;=V47.9XXA^^45^450^13
;;^UTILITY(U,$J,358.3,10425,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10425,1,3,0)
;;=3^Car Occpnt,Unspec,Injured in Collsn w/ Fixed Obj/Traffic,Init Encntr
;;^UTILITY(U,$J,358.3,10425,1,4,0)
;;=4^V47.9XXA
;;^UTILITY(U,$J,358.3,10425,2)
;;=^5140369
;;^UTILITY(U,$J,358.3,10426,0)
;;=W26.2XXA^^45^450^15
;;^UTILITY(U,$J,358.3,10426,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10426,1,3,0)
;;=3^Contact w/ Edge of Stiff Paper,Init Encntr
;;^UTILITY(U,$J,358.3,10426,1,4,0)
;;=4^W26.2XXA
;;^UTILITY(U,$J,358.3,10426,2)
;;=^5140372
;;^UTILITY(U,$J,358.3,10427,0)
;;=W26.8XXA^^45^450^16
;;^UTILITY(U,$J,358.3,10427,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10427,1,3,0)
;;=3^Contact w/ Other Sharp Object,Init Encntr
;;^UTILITY(U,$J,358.3,10427,1,4,0)
;;=4^W26.8XXA
;;^UTILITY(U,$J,358.3,10427,2)
;;=^5140375
;;^UTILITY(U,$J,358.3,10428,0)
;;=W26.9XXA^^45^450^17
;;^UTILITY(U,$J,358.3,10428,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10428,1,3,0)
;;=3^Contact w/ Unspec Sharp Object,Init Encntr
;;^UTILITY(U,$J,358.3,10428,1,4,0)
;;=4^W26.9XXA
;;^UTILITY(U,$J,358.3,10428,2)
;;=^5140378
;;^UTILITY(U,$J,358.3,10429,0)
;;=X50.0XXA^^45^450^103
;;^UTILITY(U,$J,358.3,10429,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10429,1,3,0)
;;=3^Overexertion from Strenuous Movement/Load,Init Encntr
;;^UTILITY(U,$J,358.3,10429,1,4,0)
;;=4^X50.0XXA
;;^UTILITY(U,$J,358.3,10429,2)
;;=^5140381
;;^UTILITY(U,$J,358.3,10430,0)
;;=X50.1XXA^^45^450^105
;;^UTILITY(U,$J,358.3,10430,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10430,1,3,0)
;;=3^Overextertion from Prlgd/Akwrd Postures,Init Encntr
;;^UTILITY(U,$J,358.3,10430,1,4,0)
;;=4^X50.1XXA
;;^UTILITY(U,$J,358.3,10430,2)
;;=^5140384
;;^UTILITY(U,$J,358.3,10431,0)
;;=X50.3XXA^^45^450^102
;;^UTILITY(U,$J,358.3,10431,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10431,1,3,0)
;;=3^Overexertion from Repetitive Movements,Init Encntr
;;^UTILITY(U,$J,358.3,10431,1,4,0)
;;=4^X50.3XXA
;;^UTILITY(U,$J,358.3,10431,2)
;;=^5140387
;;^UTILITY(U,$J,358.3,10432,0)
;;=X50.9XXA^^45^450^104
;;^UTILITY(U,$J,358.3,10432,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10432,1,3,0)
;;=3^Overexertion/Sten Mvmnts/Postures,Oth/Unspec,Init Encntr
;;^UTILITY(U,$J,358.3,10432,1,4,0)
;;=4^X50.9XXA
;;^UTILITY(U,$J,358.3,10432,2)
;;=^5140390
;;^UTILITY(U,$J,358.3,10433,0)
;;=F02.81^^45^451^11
;;^UTILITY(U,$J,358.3,10433,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10433,1,3,0)
;;=3^Dementia in Oth Diseases Classd Elswhr w/ Behavioral Disturbances
;;^UTILITY(U,$J,358.3,10433,1,4,0)
;;=4^F02.81
;;^UTILITY(U,$J,358.3,10433,2)
;;=^5003049
;;^UTILITY(U,$J,358.3,10434,0)
;;=F02.80^^45^451^12
;;^UTILITY(U,$J,358.3,10434,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10434,1,3,0)
;;=3^Dementia in Oth Diseases Classd Elswhr w/o Behavioral Disturbances
;;^UTILITY(U,$J,358.3,10434,1,4,0)
;;=4^F02.80
;;^UTILITY(U,$J,358.3,10434,2)
;;=^5003048
;;^UTILITY(U,$J,358.3,10435,0)
;;=F03.91^^45^451^13
;;^UTILITY(U,$J,358.3,10435,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10435,1,3,0)
;;=3^Dementia w/ Behavioral Disturbances,Unspec
;;^UTILITY(U,$J,358.3,10435,1,4,0)
;;=4^F03.91
;;^UTILITY(U,$J,358.3,10435,2)
;;=^5133350
;;^UTILITY(U,$J,358.3,10436,0)
;;=G31.83^^45^451^14
;;^UTILITY(U,$J,358.3,10436,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10436,1,3,0)
;;=3^Dementia w/ Lewy Bodies
;;^UTILITY(U,$J,358.3,10436,1,4,0)
;;=4^G31.83
;;^UTILITY(U,$J,358.3,10436,2)
;;=^329888
;;^UTILITY(U,$J,358.3,10437,0)
;;=F01.51^^45^451^30
;;^UTILITY(U,$J,358.3,10437,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10437,1,3,0)
;;=3^Vascular Dementia w/ Behavioral Disturbances
;;^UTILITY(U,$J,358.3,10437,1,4,0)
;;=4^F01.51
;;^UTILITY(U,$J,358.3,10437,2)
;;=^5003047
;;^UTILITY(U,$J,358.3,10438,0)
;;=F01.50^^45^451^31
;;^UTILITY(U,$J,358.3,10438,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10438,1,3,0)
;;=3^Vascular Dementia w/o Behavioral Disturbances
;;^UTILITY(U,$J,358.3,10438,1,4,0)
;;=4^F01.50
;;^UTILITY(U,$J,358.3,10438,2)
;;=^5003046
;;^UTILITY(U,$J,358.3,10439,0)
;;=A81.9^^45^451^6
;;^UTILITY(U,$J,358.3,10439,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10439,1,3,0)
;;=3^Atypical Virus Infection of CNS,Unspec
;;^UTILITY(U,$J,358.3,10439,1,4,0)
;;=4^A81.9
;;^UTILITY(U,$J,358.3,10439,2)
;;=^5000414
;;^UTILITY(U,$J,358.3,10440,0)
;;=A81.09^^45^451^8
;;^UTILITY(U,$J,358.3,10440,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10440,1,3,0)
;;=3^Creutzfeldt-Jakob Disease NEC
;;^UTILITY(U,$J,358.3,10440,1,4,0)
;;=4^A81.09
;;^UTILITY(U,$J,358.3,10440,2)
;;=^5000410
;;^UTILITY(U,$J,358.3,10441,0)
;;=A81.00^^45^451^9
;;^UTILITY(U,$J,358.3,10441,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10441,1,3,0)
;;=3^Creutzfeldt-Jakob Disease,Unspec
;;^UTILITY(U,$J,358.3,10441,1,4,0)
;;=4^A81.00
;;^UTILITY(U,$J,358.3,10441,2)
;;=^5000409
;;^UTILITY(U,$J,358.3,10442,0)
;;=A81.01^^45^451^10
;;^UTILITY(U,$J,358.3,10442,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10442,1,3,0)
;;=3^Creutzfeldt-Jakob Disease,Variant
;;^UTILITY(U,$J,358.3,10442,1,4,0)
;;=4^A81.01
;;^UTILITY(U,$J,358.3,10442,2)
;;=^336701
;;^UTILITY(U,$J,358.3,10443,0)
;;=A81.89^^45^451^7
;;^UTILITY(U,$J,358.3,10443,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10443,1,3,0)
;;=3^Atypical Virus Infections of CNS NEC
;;^UTILITY(U,$J,358.3,10443,1,4,0)
;;=4^A81.89
;;^UTILITY(U,$J,358.3,10443,2)
;;=^5000413
;;^UTILITY(U,$J,358.3,10444,0)
;;=A81.2^^45^451^27
;;^UTILITY(U,$J,358.3,10444,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10444,1,3,0)
;;=3^Progressive Multifocal Leukoencephalopathy
;;^UTILITY(U,$J,358.3,10444,1,4,0)
;;=4^A81.2
;;^UTILITY(U,$J,358.3,10444,2)
;;=^5000411
;;^UTILITY(U,$J,358.3,10445,0)
;;=B20.^^45^451^17
;;^UTILITY(U,$J,358.3,10445,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10445,1,3,0)
;;=3^HIV Disease w/ Dementia w/ Behavioral Disturbances
;;^UTILITY(U,$J,358.3,10445,1,4,0)
;;=4^B20.
;;^UTILITY(U,$J,358.3,10445,2)
;;=^5000555^F02.81
;;^UTILITY(U,$J,358.3,10446,0)
;;=B20.^^45^451^18
;;^UTILITY(U,$J,358.3,10446,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10446,1,3,0)
;;=3^HIV Disease w/ Dementia w/o Behavioral Disturbances
;;^UTILITY(U,$J,358.3,10446,1,4,0)
;;=4^B20.
;;^UTILITY(U,$J,358.3,10446,2)
;;=^5000555^F02.80
;;^UTILITY(U,$J,358.3,10447,0)
;;=F10.27^^45^451^1
;;^UTILITY(U,$J,358.3,10447,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10447,1,3,0)
;;=3^Alcohol Dependence w/ Alcohol-Induced Persisting Dementia
;;^UTILITY(U,$J,358.3,10447,1,4,0)
;;=4^F10.27
;;^UTILITY(U,$J,358.3,10447,2)
;;=^5003095
;;^UTILITY(U,$J,358.3,10448,0)
;;=F19.97^^45^451^29
;;^UTILITY(U,$J,358.3,10448,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10448,1,3,0)
;;=3^Psychoactive Substance Use w/ Persisting Dementia NEC
;;^UTILITY(U,$J,358.3,10448,1,4,0)
;;=4^F19.97
;;^UTILITY(U,$J,358.3,10448,2)
;;=^5003465
;;^UTILITY(U,$J,358.3,10449,0)
;;=F03.90^^45^451^15
;;^UTILITY(U,$J,358.3,10449,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10449,1,3,0)
;;=3^Dementia w/o Behavioral Disturbance,Unspec
;;^UTILITY(U,$J,358.3,10449,1,4,0)
;;=4^F03.90
;;^UTILITY(U,$J,358.3,10449,2)
;;=^5003050
;;^UTILITY(U,$J,358.3,10450,0)
;;=G30.0^^45^451^2
;;^UTILITY(U,$J,358.3,10450,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10450,1,3,0)
;;=3^Alzheimer's Disease w/ Early Onset
;;^UTILITY(U,$J,358.3,10450,1,4,0)
;;=4^G30.0
;;^UTILITY(U,$J,358.3,10450,2)
;;=^5003805
;;^UTILITY(U,$J,358.3,10451,0)
;;=G30.1^^45^451^3
;;^UTILITY(U,$J,358.3,10451,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,10451,1,3,0)
;;=3^Alzheimer's Disease w/ Late Onset
;;^UTILITY(U,$J,358.3,10451,1,4,0)
;;=4^G30.1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI04B 19778 printed Dec 13, 2024@01:41:21 Page 2
IBDEI04B ; ; 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,10387,1,4,0)
+2 ;;=4^X32.XXXD
+3 ;;^UTILITY(U,$J,358.3,10387,2)
+4 ;;=^5060848
+5 ;;^UTILITY(U,$J,358.3,10388,0)
+6 ;;=Y04.0XXA^^45^450^7
+7 ;;^UTILITY(U,$J,358.3,10388,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,10388,1,3,0)
+10 ;;=3^Assault by Unarmed Fight,Init Encntr
+11 ;;^UTILITY(U,$J,358.3,10388,1,4,0)
+12 ;;=4^Y04.0XXA
+13 ;;^UTILITY(U,$J,358.3,10388,2)
+14 ;;=^5061165
+15 ;;^UTILITY(U,$J,358.3,10389,0)
+16 ;;=Y04.0XXD^^45^450^8
+17 ;;^UTILITY(U,$J,358.3,10389,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,10389,1,3,0)
+20 ;;=3^Assault by Unarmed Fight,Subs Encntr
+21 ;;^UTILITY(U,$J,358.3,10389,1,4,0)
+22 ;;=4^Y04.0XXD
+23 ;;^UTILITY(U,$J,358.3,10389,2)
+24 ;;=^5061166
+25 ;;^UTILITY(U,$J,358.3,10390,0)
+26 ;;=Y04.1XXA^^45^450^1
+27 ;;^UTILITY(U,$J,358.3,10390,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,10390,1,3,0)
+30 ;;=3^Assault by Human Bite,Init Encntr
+31 ;;^UTILITY(U,$J,358.3,10390,1,4,0)
+32 ;;=4^Y04.1XXA
+33 ;;^UTILITY(U,$J,358.3,10390,2)
+34 ;;=^5061168
+35 ;;^UTILITY(U,$J,358.3,10391,0)
+36 ;;=Y04.1XXD^^45^450^2
+37 ;;^UTILITY(U,$J,358.3,10391,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,10391,1,3,0)
+40 ;;=3^Assault by Human Bite,Subs Encntr
+41 ;;^UTILITY(U,$J,358.3,10391,1,4,0)
+42 ;;=4^Y04.1XXD
+43 ;;^UTILITY(U,$J,358.3,10391,2)
+44 ;;=^5061169
+45 ;;^UTILITY(U,$J,358.3,10392,0)
+46 ;;=Y04.2XXA^^45^450^5
+47 ;;^UTILITY(U,$J,358.3,10392,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,10392,1,3,0)
+50 ;;=3^Assault by Strike/Bumped by Another Person,Init Encntr
+51 ;;^UTILITY(U,$J,358.3,10392,1,4,0)
+52 ;;=4^Y04.2XXA
+53 ;;^UTILITY(U,$J,358.3,10392,2)
+54 ;;=^5061171
+55 ;;^UTILITY(U,$J,358.3,10393,0)
+56 ;;=Y04.8XXA^^45^450^3
+57 ;;^UTILITY(U,$J,358.3,10393,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,10393,1,3,0)
+60 ;;=3^Assault by Oth Bodily Force,Init Encntr
+61 ;;^UTILITY(U,$J,358.3,10393,1,4,0)
+62 ;;=4^Y04.8XXA
+63 ;;^UTILITY(U,$J,358.3,10393,2)
+64 ;;=^5061174
+65 ;;^UTILITY(U,$J,358.3,10394,0)
+66 ;;=Y04.2XXD^^45^450^6
+67 ;;^UTILITY(U,$J,358.3,10394,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,10394,1,3,0)
+70 ;;=3^Assault by Strike/Bumped by Another Person,Subs Encntr
+71 ;;^UTILITY(U,$J,358.3,10394,1,4,0)
+72 ;;=4^Y04.2XXD
+73 ;;^UTILITY(U,$J,358.3,10394,2)
+74 ;;=^5061172
+75 ;;^UTILITY(U,$J,358.3,10395,0)
+76 ;;=Y04.8XXD^^45^450^4
+77 ;;^UTILITY(U,$J,358.3,10395,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,10395,1,3,0)
+80 ;;=3^Assault by Oth Bodily Force,Subs Encntr
+81 ;;^UTILITY(U,$J,358.3,10395,1,4,0)
+82 ;;=4^Y04.8XXD
+83 ;;^UTILITY(U,$J,358.3,10395,2)
+84 ;;=^5061175
+85 ;;^UTILITY(U,$J,358.3,10396,0)
+86 ;;=Y36.200A^^45^450^133
+87 ;;^UTILITY(U,$J,358.3,10396,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,10396,1,3,0)
+90 ;;=3^War Op Inv Unspec Explosion/Fragments,Milt,Init Encntr
+91 ;;^UTILITY(U,$J,358.3,10396,1,4,0)
+92 ;;=4^Y36.200A
+93 ;;^UTILITY(U,$J,358.3,10396,2)
+94 ;;=^5061607
+95 ;;^UTILITY(U,$J,358.3,10397,0)
+96 ;;=Y36.200D^^45^450^134
+97 ;;^UTILITY(U,$J,358.3,10397,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,10397,1,3,0)
+100 ;;=3^War Op Inv Unspec Explosion/Fragments,Milt,Subs Encntr
+101 ;;^UTILITY(U,$J,358.3,10397,1,4,0)
+102 ;;=4^Y36.200D
+103 ;;^UTILITY(U,$J,358.3,10397,2)
+104 ;;=^5061608
+105 ;;^UTILITY(U,$J,358.3,10398,0)
+106 ;;=Y36.300A^^45^450^135
+107 ;;^UTILITY(U,$J,358.3,10398,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,10398,1,3,0)
+110 ;;=3^War Op Inv Unspec Fire/Conflagr/Hot Subst,Milt,Init Encntr
+111 ;;^UTILITY(U,$J,358.3,10398,1,4,0)
+112 ;;=4^Y36.300A
+113 ;;^UTILITY(U,$J,358.3,10398,2)
+114 ;;=^5061661
+115 ;;^UTILITY(U,$J,358.3,10399,0)
+116 ;;=Y36.300D^^45^450^136
+117 ;;^UTILITY(U,$J,358.3,10399,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,10399,1,3,0)
+120 ;;=3^War Op Inv Unspec Fire/Conflagr/Hot Subst,Milt,Subs Encntr
+121 ;;^UTILITY(U,$J,358.3,10399,1,4,0)
+122 ;;=4^Y36.300D
+123 ;;^UTILITY(U,$J,358.3,10399,2)
+124 ;;=^5061662
+125 ;;^UTILITY(U,$J,358.3,10400,0)
+126 ;;=Y36.410A^^45^450^130
+127 ;;^UTILITY(U,$J,358.3,10400,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,10400,1,3,0)
+130 ;;=3^War Op Inv Rubber Bullets,Milt,Init Encntr
+131 ;;^UTILITY(U,$J,358.3,10400,1,4,0)
+132 ;;=4^Y36.410A
+133 ;;^UTILITY(U,$J,358.3,10400,2)
+134 ;;=^5061691
+135 ;;^UTILITY(U,$J,358.3,10401,0)
+136 ;;=Y36.410D^^45^450^132
+137 ;;^UTILITY(U,$J,358.3,10401,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,10401,1,3,0)
+140 ;;=3^War Op Inv Rubber Bullets,Milt,Subs Encntr
+141 ;;^UTILITY(U,$J,358.3,10401,1,4,0)
+142 ;;=4^Y36.410D
+143 ;;^UTILITY(U,$J,358.3,10401,2)
+144 ;;=^5061692
+145 ;;^UTILITY(U,$J,358.3,10402,0)
+146 ;;=Y36.6X0A^^45^450^122
+147 ;;^UTILITY(U,$J,358.3,10402,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,10402,1,3,0)
+150 ;;=3^War Op Inv Biological Weapons,Milt,Init Encntr
+151 ;;^UTILITY(U,$J,358.3,10402,1,4,0)
+152 ;;=4^Y36.6X0A
+153 ;;^UTILITY(U,$J,358.3,10402,2)
+154 ;;=^5061775
+155 ;;^UTILITY(U,$J,358.3,10403,0)
+156 ;;=Y36.6X0D^^45^450^124
+157 ;;^UTILITY(U,$J,358.3,10403,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,10403,1,3,0)
+160 ;;=3^War Op Inv Biological Weapons,Milt,Subs Encntr
+161 ;;^UTILITY(U,$J,358.3,10403,1,4,0)
+162 ;;=4^Y36.6X0D
+163 ;;^UTILITY(U,$J,358.3,10403,2)
+164 ;;=^5061776
+165 ;;^UTILITY(U,$J,358.3,10404,0)
+166 ;;=Y36.7X0A^^45^450^137
+167 ;;^UTILITY(U,$J,358.3,10404,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,10404,1,3,0)
+170 ;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Init Encntr
+171 ;;^UTILITY(U,$J,358.3,10404,1,4,0)
+172 ;;=4^Y36.7X0A
+173 ;;^UTILITY(U,$J,358.3,10404,2)
+174 ;;=^5061781
+175 ;;^UTILITY(U,$J,358.3,10405,0)
+176 ;;=Y36.7X0D^^45^450^138
+177 ;;^UTILITY(U,$J,358.3,10405,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,10405,1,3,0)
+180 ;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Subs Encntr
+181 ;;^UTILITY(U,$J,358.3,10405,1,4,0)
+182 ;;=4^Y36.7X0D
+183 ;;^UTILITY(U,$J,358.3,10405,2)
+184 ;;=^5061782
+185 ;;^UTILITY(U,$J,358.3,10406,0)
+186 ;;=Y36.810A^^45^450^27
+187 ;;^UTILITY(U,$J,358.3,10406,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,10406,1,3,0)
+190 ;;=3^Explosn of Mine Placed During War Op but Expld Aft,Milt,Init Encntr
+191 ;;^UTILITY(U,$J,358.3,10406,1,4,0)
+192 ;;=4^Y36.810A
+193 ;;^UTILITY(U,$J,358.3,10406,2)
+194 ;;=^5061787
+195 ;;^UTILITY(U,$J,358.3,10407,0)
+196 ;;=Y36.810D^^45^450^28
+197 ;;^UTILITY(U,$J,358.3,10407,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,10407,1,3,0)
+200 ;;=3^Explosn of Mine Placed During War Op but Expld Aft,Milt,Subs Encntr
+201 ;;^UTILITY(U,$J,358.3,10407,1,4,0)
+202 ;;=4^Y36.810D
+203 ;;^UTILITY(U,$J,358.3,10407,2)
+204 ;;=^5061788
+205 ;;^UTILITY(U,$J,358.3,10408,0)
+206 ;;=Y36.820A^^45^450^24
+207 ;;^UTILITY(U,$J,358.3,10408,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,10408,1,3,0)
+210 ;;=3^Explosn of Bomb Placed During War Op But Expld Aft,Milt,Init Encntr
+211 ;;^UTILITY(U,$J,358.3,10408,1,4,0)
+212 ;;=4^Y36.820A
+213 ;;^UTILITY(U,$J,358.3,10408,2)
+214 ;;=^5061793
+215 ;;^UTILITY(U,$J,358.3,10409,0)
+216 ;;=Y36.820D^^45^450^25
+217 ;;^UTILITY(U,$J,358.3,10409,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,10409,1,3,0)
+220 ;;=3^Explosn of Bomb Placed During War Op But Expld Aft,Milt,Subs Encntr
+221 ;;^UTILITY(U,$J,358.3,10409,1,4,0)
+222 ;;=4^Y36.820D
+223 ;;^UTILITY(U,$J,358.3,10409,2)
+224 ;;=^5061794
+225 ;;^UTILITY(U,$J,358.3,10410,0)
+226 ;;=Y37.200A^^45^450^96
+227 ;;^UTILITY(U,$J,358.3,10410,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,10410,1,3,0)
+230 ;;=3^Miltary Op Inv Explosion/Fragments,Milt,Init Encntr
+231 ;;^UTILITY(U,$J,358.3,10410,1,4,0)
+232 ;;=4^Y37.200A
+233 ;;^UTILITY(U,$J,358.3,10410,2)
+234 ;;=^5137997
+235 ;;^UTILITY(U,$J,358.3,10411,0)
+236 ;;=Y37.200D^^45^450^97
+237 ;;^UTILITY(U,$J,358.3,10411,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,10411,1,3,0)
+240 ;;=3^Miltary Op Inv Explosion/Fragments,Milt,Subs Encntr
+241 ;;^UTILITY(U,$J,358.3,10411,1,4,0)
+242 ;;=4^Y37.200D
+243 ;;^UTILITY(U,$J,358.3,10411,2)
+244 ;;=^5137999
+245 ;;^UTILITY(U,$J,358.3,10412,0)
+246 ;;=X00.1XXA^^45^450^18
+247 ;;^UTILITY(U,$J,358.3,10412,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,10412,1,3,0)
+250 ;;=3^Exp to Smoke in Uncontrolled Bldg Fire,Init Encntr
+251 ;;^UTILITY(U,$J,358.3,10412,1,4,0)
+252 ;;=4^X00.1XXA
+253 ;;^UTILITY(U,$J,358.3,10412,2)
+254 ;;=^5060664
+255 ;;^UTILITY(U,$J,358.3,10413,0)
+256 ;;=X00.1XXD^^45^450^19
+257 ;;^UTILITY(U,$J,358.3,10413,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,10413,1,3,0)
+260 ;;=3^Exp to Smoke in Uncontrolled Bldg Fire,Subs Encntr
+261 ;;^UTILITY(U,$J,358.3,10413,1,4,0)
+262 ;;=4^X00.1XXD
+263 ;;^UTILITY(U,$J,358.3,10413,2)
+264 ;;=^5060665
+265 ;;^UTILITY(U,$J,358.3,10414,0)
+266 ;;=Y36.820S^^45^450^26
+267 ;;^UTILITY(U,$J,358.3,10414,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,10414,1,3,0)
+270 ;;=3^Explosn of Bomb Placed During War Op but Expld After,Milt,Sequela
+271 ;;^UTILITY(U,$J,358.3,10414,1,4,0)
+272 ;;=4^Y36.820S
+273 ;;^UTILITY(U,$J,358.3,10414,2)
+274 ;;=^5061795
+275 ;;^UTILITY(U,$J,358.3,10415,0)
+276 ;;=Y36.810S^^45^450^29
+277 ;;^UTILITY(U,$J,358.3,10415,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,10415,1,3,0)
+280 ;;=3^Explosn of Mine Placed During War Op but Expld After,Milt,Sequela
+281 ;;^UTILITY(U,$J,358.3,10415,1,4,0)
+282 ;;=4^Y36.810S
+283 ;;^UTILITY(U,$J,358.3,10415,2)
+284 ;;=^5061789
+285 ;;^UTILITY(U,$J,358.3,10416,0)
+286 ;;=Y36.6X0S^^45^450^123
+287 ;;^UTILITY(U,$J,358.3,10416,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,10416,1,3,0)
+290 ;;=3^War Op Inv Biological Weapons,Milt,Sequela
+291 ;;^UTILITY(U,$J,358.3,10416,1,4,0)
+292 ;;=4^Y36.6X0S
+293 ;;^UTILITY(U,$J,358.3,10416,2)
+294 ;;=^5061777
+295 ;;^UTILITY(U,$J,358.3,10417,0)
+296 ;;=Y36.410S^^45^450^131
+297 ;;^UTILITY(U,$J,358.3,10417,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,10417,1,3,0)
+300 ;;=3^War Op Inv Rubber Bullets,Milt,Sequela
+301 ;;^UTILITY(U,$J,358.3,10417,1,4,0)
+302 ;;=4^Y36.410S
+303 ;;^UTILITY(U,$J,358.3,10417,2)
+304 ;;=^5061693
+305 ;;^UTILITY(U,$J,358.3,10418,0)
+306 ;;=Y36.200S^^45^450^128
+307 ;;^UTILITY(U,$J,358.3,10418,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,10418,1,3,0)
+310 ;;=3^War Op Inv Explosion/Fragments,Unspec,Milt,Sequela
+311 ;;^UTILITY(U,$J,358.3,10418,1,4,0)
+312 ;;=4^Y36.200S
+313 ;;^UTILITY(U,$J,358.3,10418,2)
+314 ;;=^5061609
+315 ;;^UTILITY(U,$J,358.3,10419,0)
+316 ;;=Y36.300S^^45^450^129
+317 ;;^UTILITY(U,$J,358.3,10419,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,10419,1,3,0)
+320 ;;=3^War Op Inv Fire/Conflagr/Hot Subst,Unspec,Milt,Sequela
+321 ;;^UTILITY(U,$J,358.3,10419,1,4,0)
+322 ;;=4^Y36.300S
+323 ;;^UTILITY(U,$J,358.3,10419,2)
+324 ;;=^5061663
+325 ;;^UTILITY(U,$J,358.3,10420,0)
+326 ;;=Y36.230A^^45^450^125
+327 ;;^UTILITY(U,$J,358.3,10420,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,10420,1,3,0)
+330 ;;=3^War Op Inv Explosion of IED,Milt Pers,Init Encntr
+331 ;;^UTILITY(U,$J,358.3,10420,1,4,0)
+332 ;;=4^Y36.230A
+333 ;;^UTILITY(U,$J,358.3,10420,2)
+334 ;;=^5061625
+335 ;;^UTILITY(U,$J,358.3,10421,0)
+336 ;;=Y36.230D^^45^450^126
+337 ;;^UTILITY(U,$J,358.3,10421,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,10421,1,3,0)
+340 ;;=3^War Op Inv Explosion of IED,Milt Pers,Subs Encntr
+341 ;;^UTILITY(U,$J,358.3,10421,1,4,0)
+342 ;;=4^Y36.230D
+343 ;;^UTILITY(U,$J,358.3,10421,2)
+344 ;;=^5061626
+345 ;;^UTILITY(U,$J,358.3,10422,0)
+346 ;;=Y36.230S^^45^450^127
+347 ;;^UTILITY(U,$J,358.3,10422,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,10422,1,3,0)
+350 ;;=3^War Op Inv Explosion of IED,Milt Pers,Sequela
+351 ;;^UTILITY(U,$J,358.3,10422,1,4,0)
+352 ;;=4^Y36.230S
+353 ;;^UTILITY(U,$J,358.3,10422,2)
+354 ;;=^5061627
+355 ;;^UTILITY(U,$J,358.3,10423,0)
+356 ;;=Y36.7X0S^^45^450^139
+357 ;;^UTILITY(U,$J,358.3,10423,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,10423,1,3,0)
+360 ;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Sequela
+361 ;;^UTILITY(U,$J,358.3,10423,1,4,0)
+362 ;;=4^Y36.7X0S
+363 ;;^UTILITY(U,$J,358.3,10423,2)
+364 ;;=^5061783
+365 ;;^UTILITY(U,$J,358.3,10424,0)
+366 ;;=V47.6XXA^^45^450^14
+367 ;;^UTILITY(U,$J,358.3,10424,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,10424,1,3,0)
+370 ;;=3^Car Pasngr Injured in Collsn w/ Fixed Obj/Traffic,Init Encntr
+371 ;;^UTILITY(U,$J,358.3,10424,1,4,0)
+372 ;;=4^V47.6XXA
+373 ;;^UTILITY(U,$J,358.3,10424,2)
+374 ;;=^5140366
+375 ;;^UTILITY(U,$J,358.3,10425,0)
+376 ;;=V47.9XXA^^45^450^13
+377 ;;^UTILITY(U,$J,358.3,10425,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,10425,1,3,0)
+380 ;;=3^Car Occpnt,Unspec,Injured in Collsn w/ Fixed Obj/Traffic,Init Encntr
+381 ;;^UTILITY(U,$J,358.3,10425,1,4,0)
+382 ;;=4^V47.9XXA
+383 ;;^UTILITY(U,$J,358.3,10425,2)
+384 ;;=^5140369
+385 ;;^UTILITY(U,$J,358.3,10426,0)
+386 ;;=W26.2XXA^^45^450^15
+387 ;;^UTILITY(U,$J,358.3,10426,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,10426,1,3,0)
+390 ;;=3^Contact w/ Edge of Stiff Paper,Init Encntr
+391 ;;^UTILITY(U,$J,358.3,10426,1,4,0)
+392 ;;=4^W26.2XXA
+393 ;;^UTILITY(U,$J,358.3,10426,2)
+394 ;;=^5140372
+395 ;;^UTILITY(U,$J,358.3,10427,0)
+396 ;;=W26.8XXA^^45^450^16
+397 ;;^UTILITY(U,$J,358.3,10427,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,10427,1,3,0)
+400 ;;=3^Contact w/ Other Sharp Object,Init Encntr
+401 ;;^UTILITY(U,$J,358.3,10427,1,4,0)
+402 ;;=4^W26.8XXA
+403 ;;^UTILITY(U,$J,358.3,10427,2)
+404 ;;=^5140375
+405 ;;^UTILITY(U,$J,358.3,10428,0)
+406 ;;=W26.9XXA^^45^450^17
+407 ;;^UTILITY(U,$J,358.3,10428,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,10428,1,3,0)
+410 ;;=3^Contact w/ Unspec Sharp Object,Init Encntr
+411 ;;^UTILITY(U,$J,358.3,10428,1,4,0)
+412 ;;=4^W26.9XXA
+413 ;;^UTILITY(U,$J,358.3,10428,2)
+414 ;;=^5140378
+415 ;;^UTILITY(U,$J,358.3,10429,0)
+416 ;;=X50.0XXA^^45^450^103
+417 ;;^UTILITY(U,$J,358.3,10429,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,10429,1,3,0)
+420 ;;=3^Overexertion from Strenuous Movement/Load,Init Encntr
+421 ;;^UTILITY(U,$J,358.3,10429,1,4,0)
+422 ;;=4^X50.0XXA
+423 ;;^UTILITY(U,$J,358.3,10429,2)
+424 ;;=^5140381
+425 ;;^UTILITY(U,$J,358.3,10430,0)
+426 ;;=X50.1XXA^^45^450^105
+427 ;;^UTILITY(U,$J,358.3,10430,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,10430,1,3,0)
+430 ;;=3^Overextertion from Prlgd/Akwrd Postures,Init Encntr
+431 ;;^UTILITY(U,$J,358.3,10430,1,4,0)
+432 ;;=4^X50.1XXA
+433 ;;^UTILITY(U,$J,358.3,10430,2)
+434 ;;=^5140384
+435 ;;^UTILITY(U,$J,358.3,10431,0)
+436 ;;=X50.3XXA^^45^450^102
+437 ;;^UTILITY(U,$J,358.3,10431,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,10431,1,3,0)
+440 ;;=3^Overexertion from Repetitive Movements,Init Encntr
+441 ;;^UTILITY(U,$J,358.3,10431,1,4,0)
+442 ;;=4^X50.3XXA
+443 ;;^UTILITY(U,$J,358.3,10431,2)
+444 ;;=^5140387
+445 ;;^UTILITY(U,$J,358.3,10432,0)
+446 ;;=X50.9XXA^^45^450^104
+447 ;;^UTILITY(U,$J,358.3,10432,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,10432,1,3,0)
+450 ;;=3^Overexertion/Sten Mvmnts/Postures,Oth/Unspec,Init Encntr
+451 ;;^UTILITY(U,$J,358.3,10432,1,4,0)
+452 ;;=4^X50.9XXA
+453 ;;^UTILITY(U,$J,358.3,10432,2)
+454 ;;=^5140390
+455 ;;^UTILITY(U,$J,358.3,10433,0)
+456 ;;=F02.81^^45^451^11
+457 ;;^UTILITY(U,$J,358.3,10433,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,10433,1,3,0)
+460 ;;=3^Dementia in Oth Diseases Classd Elswhr w/ Behavioral Disturbances
+461 ;;^UTILITY(U,$J,358.3,10433,1,4,0)
+462 ;;=4^F02.81
+463 ;;^UTILITY(U,$J,358.3,10433,2)
+464 ;;=^5003049
+465 ;;^UTILITY(U,$J,358.3,10434,0)
+466 ;;=F02.80^^45^451^12
+467 ;;^UTILITY(U,$J,358.3,10434,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,10434,1,3,0)
+470 ;;=3^Dementia in Oth Diseases Classd Elswhr w/o Behavioral Disturbances
+471 ;;^UTILITY(U,$J,358.3,10434,1,4,0)
+472 ;;=4^F02.80
+473 ;;^UTILITY(U,$J,358.3,10434,2)
+474 ;;=^5003048
+475 ;;^UTILITY(U,$J,358.3,10435,0)
+476 ;;=F03.91^^45^451^13
+477 ;;^UTILITY(U,$J,358.3,10435,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,10435,1,3,0)
+480 ;;=3^Dementia w/ Behavioral Disturbances,Unspec
+481 ;;^UTILITY(U,$J,358.3,10435,1,4,0)
+482 ;;=4^F03.91
+483 ;;^UTILITY(U,$J,358.3,10435,2)
+484 ;;=^5133350
+485 ;;^UTILITY(U,$J,358.3,10436,0)
+486 ;;=G31.83^^45^451^14
+487 ;;^UTILITY(U,$J,358.3,10436,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,10436,1,3,0)
+490 ;;=3^Dementia w/ Lewy Bodies
+491 ;;^UTILITY(U,$J,358.3,10436,1,4,0)
+492 ;;=4^G31.83
+493 ;;^UTILITY(U,$J,358.3,10436,2)
+494 ;;=^329888
+495 ;;^UTILITY(U,$J,358.3,10437,0)
+496 ;;=F01.51^^45^451^30
+497 ;;^UTILITY(U,$J,358.3,10437,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,10437,1,3,0)
+500 ;;=3^Vascular Dementia w/ Behavioral Disturbances
+501 ;;^UTILITY(U,$J,358.3,10437,1,4,0)
+502 ;;=4^F01.51
+503 ;;^UTILITY(U,$J,358.3,10437,2)
+504 ;;=^5003047
+505 ;;^UTILITY(U,$J,358.3,10438,0)
+506 ;;=F01.50^^45^451^31
+507 ;;^UTILITY(U,$J,358.3,10438,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,10438,1,3,0)
+510 ;;=3^Vascular Dementia w/o Behavioral Disturbances
+511 ;;^UTILITY(U,$J,358.3,10438,1,4,0)
+512 ;;=4^F01.50
+513 ;;^UTILITY(U,$J,358.3,10438,2)
+514 ;;=^5003046
+515 ;;^UTILITY(U,$J,358.3,10439,0)
+516 ;;=A81.9^^45^451^6
+517 ;;^UTILITY(U,$J,358.3,10439,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,10439,1,3,0)
+520 ;;=3^Atypical Virus Infection of CNS,Unspec
+521 ;;^UTILITY(U,$J,358.3,10439,1,4,0)
+522 ;;=4^A81.9
+523 ;;^UTILITY(U,$J,358.3,10439,2)
+524 ;;=^5000414
+525 ;;^UTILITY(U,$J,358.3,10440,0)
+526 ;;=A81.09^^45^451^8
+527 ;;^UTILITY(U,$J,358.3,10440,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,10440,1,3,0)
+530 ;;=3^Creutzfeldt-Jakob Disease NEC
+531 ;;^UTILITY(U,$J,358.3,10440,1,4,0)
+532 ;;=4^A81.09
+533 ;;^UTILITY(U,$J,358.3,10440,2)
+534 ;;=^5000410
+535 ;;^UTILITY(U,$J,358.3,10441,0)
+536 ;;=A81.00^^45^451^9
+537 ;;^UTILITY(U,$J,358.3,10441,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,10441,1,3,0)
+540 ;;=3^Creutzfeldt-Jakob Disease,Unspec
+541 ;;^UTILITY(U,$J,358.3,10441,1,4,0)
+542 ;;=4^A81.00
+543 ;;^UTILITY(U,$J,358.3,10441,2)
+544 ;;=^5000409
+545 ;;^UTILITY(U,$J,358.3,10442,0)
+546 ;;=A81.01^^45^451^10
+547 ;;^UTILITY(U,$J,358.3,10442,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,10442,1,3,0)
+550 ;;=3^Creutzfeldt-Jakob Disease,Variant
+551 ;;^UTILITY(U,$J,358.3,10442,1,4,0)
+552 ;;=4^A81.01
+553 ;;^UTILITY(U,$J,358.3,10442,2)
+554 ;;=^336701
+555 ;;^UTILITY(U,$J,358.3,10443,0)
+556 ;;=A81.89^^45^451^7
+557 ;;^UTILITY(U,$J,358.3,10443,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,10443,1,3,0)
+560 ;;=3^Atypical Virus Infections of CNS NEC
+561 ;;^UTILITY(U,$J,358.3,10443,1,4,0)
+562 ;;=4^A81.89
+563 ;;^UTILITY(U,$J,358.3,10443,2)
+564 ;;=^5000413
+565 ;;^UTILITY(U,$J,358.3,10444,0)
+566 ;;=A81.2^^45^451^27
+567 ;;^UTILITY(U,$J,358.3,10444,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,10444,1,3,0)
+570 ;;=3^Progressive Multifocal Leukoencephalopathy
+571 ;;^UTILITY(U,$J,358.3,10444,1,4,0)
+572 ;;=4^A81.2
+573 ;;^UTILITY(U,$J,358.3,10444,2)
+574 ;;=^5000411
+575 ;;^UTILITY(U,$J,358.3,10445,0)
+576 ;;=B20.^^45^451^17
+577 ;;^UTILITY(U,$J,358.3,10445,1,0)
+578 ;;=^358.31IA^4^2
+579 ;;^UTILITY(U,$J,358.3,10445,1,3,0)
+580 ;;=3^HIV Disease w/ Dementia w/ Behavioral Disturbances
+581 ;;^UTILITY(U,$J,358.3,10445,1,4,0)
+582 ;;=4^B20.
+583 ;;^UTILITY(U,$J,358.3,10445,2)
+584 ;;=^5000555^F02.81
+585 ;;^UTILITY(U,$J,358.3,10446,0)
+586 ;;=B20.^^45^451^18
+587 ;;^UTILITY(U,$J,358.3,10446,1,0)
+588 ;;=^358.31IA^4^2
+589 ;;^UTILITY(U,$J,358.3,10446,1,3,0)
+590 ;;=3^HIV Disease w/ Dementia w/o Behavioral Disturbances
+591 ;;^UTILITY(U,$J,358.3,10446,1,4,0)
+592 ;;=4^B20.
+593 ;;^UTILITY(U,$J,358.3,10446,2)
+594 ;;=^5000555^F02.80
+595 ;;^UTILITY(U,$J,358.3,10447,0)
+596 ;;=F10.27^^45^451^1
+597 ;;^UTILITY(U,$J,358.3,10447,1,0)
+598 ;;=^358.31IA^4^2
+599 ;;^UTILITY(U,$J,358.3,10447,1,3,0)
+600 ;;=3^Alcohol Dependence w/ Alcohol-Induced Persisting Dementia
+601 ;;^UTILITY(U,$J,358.3,10447,1,4,0)
+602 ;;=4^F10.27
+603 ;;^UTILITY(U,$J,358.3,10447,2)
+604 ;;=^5003095
+605 ;;^UTILITY(U,$J,358.3,10448,0)
+606 ;;=F19.97^^45^451^29
+607 ;;^UTILITY(U,$J,358.3,10448,1,0)
+608 ;;=^358.31IA^4^2
+609 ;;^UTILITY(U,$J,358.3,10448,1,3,0)
+610 ;;=3^Psychoactive Substance Use w/ Persisting Dementia NEC
+611 ;;^UTILITY(U,$J,358.3,10448,1,4,0)
+612 ;;=4^F19.97
+613 ;;^UTILITY(U,$J,358.3,10448,2)
+614 ;;=^5003465
+615 ;;^UTILITY(U,$J,358.3,10449,0)
+616 ;;=F03.90^^45^451^15
+617 ;;^UTILITY(U,$J,358.3,10449,1,0)
+618 ;;=^358.31IA^4^2
+619 ;;^UTILITY(U,$J,358.3,10449,1,3,0)
+620 ;;=3^Dementia w/o Behavioral Disturbance,Unspec
+621 ;;^UTILITY(U,$J,358.3,10449,1,4,0)
+622 ;;=4^F03.90
+623 ;;^UTILITY(U,$J,358.3,10449,2)
+624 ;;=^5003050
+625 ;;^UTILITY(U,$J,358.3,10450,0)
+626 ;;=G30.0^^45^451^2
+627 ;;^UTILITY(U,$J,358.3,10450,1,0)
+628 ;;=^358.31IA^4^2
+629 ;;^UTILITY(U,$J,358.3,10450,1,3,0)
+630 ;;=3^Alzheimer's Disease w/ Early Onset
+631 ;;^UTILITY(U,$J,358.3,10450,1,4,0)
+632 ;;=4^G30.0
+633 ;;^UTILITY(U,$J,358.3,10450,2)
+634 ;;=^5003805
+635 ;;^UTILITY(U,$J,358.3,10451,0)
+636 ;;=G30.1^^45^451^3
+637 ;;^UTILITY(U,$J,358.3,10451,1,0)
+638 ;;=^358.31IA^4^2
+639 ;;^UTILITY(U,$J,358.3,10451,1,3,0)
+640 ;;=3^Alzheimer's Disease w/ Late Onset
+641 ;;^UTILITY(U,$J,358.3,10451,1,4,0)
+642 ;;=4^G30.1