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

IBDEI04B.m

Go to the documentation of this file. 
  1. IBDEI04B ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1.  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,358.3,10387,1,4,0)
  1.  ;;=4^X32.XXXD
  1.  ;;^UTILITY(U,$J,358.3,10387,2)
  1.  ;;=^5060848
  1.  ;;^UTILITY(U,$J,358.3,10388,0)
  1.  ;;=Y04.0XXA^^45^450^7
  1.  ;;^UTILITY(U,$J,358.3,10388,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10388,1,3,0)
  1.  ;;=3^Assault by Unarmed Fight,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10388,1,4,0)
  1.  ;;=4^Y04.0XXA
  1.  ;;^UTILITY(U,$J,358.3,10388,2)
  1.  ;;=^5061165
  1.  ;;^UTILITY(U,$J,358.3,10389,0)
  1.  ;;=Y04.0XXD^^45^450^8
  1.  ;;^UTILITY(U,$J,358.3,10389,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10389,1,3,0)
  1.  ;;=3^Assault by Unarmed Fight,Subs Encntr
  1.  ;;^UTILITY(U,$J,358.3,10389,1,4,0)
  1.  ;;=4^Y04.0XXD
  1.  ;;^UTILITY(U,$J,358.3,10389,2)
  1.  ;;=^5061166
  1.  ;;^UTILITY(U,$J,358.3,10390,0)
  1.  ;;=Y04.1XXA^^45^450^1
  1.  ;;^UTILITY(U,$J,358.3,10390,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10390,1,3,0)
  1.  ;;=3^Assault by Human Bite,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10390,1,4,0)
  1.  ;;=4^Y04.1XXA
  1.  ;;^UTILITY(U,$J,358.3,10390,2)
  1.  ;;=^5061168
  1.  ;;^UTILITY(U,$J,358.3,10391,0)
  1.  ;;=Y04.1XXD^^45^450^2
  1.  ;;^UTILITY(U,$J,358.3,10391,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10391,1,3,0)
  1.  ;;=3^Assault by Human Bite,Subs Encntr
  1.  ;;^UTILITY(U,$J,358.3,10391,1,4,0)
  1.  ;;=4^Y04.1XXD
  1.  ;;^UTILITY(U,$J,358.3,10391,2)
  1.  ;;=^5061169
  1.  ;;^UTILITY(U,$J,358.3,10392,0)
  1.  ;;=Y04.2XXA^^45^450^5
  1.  ;;^UTILITY(U,$J,358.3,10392,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10392,1,3,0)
  1.  ;;=3^Assault by Strike/Bumped by Another Person,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10392,1,4,0)
  1.  ;;=4^Y04.2XXA
  1.  ;;^UTILITY(U,$J,358.3,10392,2)
  1.  ;;=^5061171
  1.  ;;^UTILITY(U,$J,358.3,10393,0)
  1.  ;;=Y04.8XXA^^45^450^3
  1.  ;;^UTILITY(U,$J,358.3,10393,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10393,1,3,0)
  1.  ;;=3^Assault by Oth Bodily Force,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10393,1,4,0)
  1.  ;;=4^Y04.8XXA
  1.  ;;^UTILITY(U,$J,358.3,10393,2)
  1.  ;;=^5061174
  1.  ;;^UTILITY(U,$J,358.3,10394,0)
  1.  ;;=Y04.2XXD^^45^450^6
  1.  ;;^UTILITY(U,$J,358.3,10394,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10394,1,3,0)
  1.  ;;=3^Assault by Strike/Bumped by Another Person,Subs Encntr
  1.  ;;^UTILITY(U,$J,358.3,10394,1,4,0)
  1.  ;;=4^Y04.2XXD
  1.  ;;^UTILITY(U,$J,358.3,10394,2)
  1.  ;;=^5061172
  1.  ;;^UTILITY(U,$J,358.3,10395,0)
  1.  ;;=Y04.8XXD^^45^450^4
  1.  ;;^UTILITY(U,$J,358.3,10395,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10395,1,3,0)
  1.  ;;=3^Assault by Oth Bodily Force,Subs Encntr
  1.  ;;^UTILITY(U,$J,358.3,10395,1,4,0)
  1.  ;;=4^Y04.8XXD
  1.  ;;^UTILITY(U,$J,358.3,10395,2)
  1.  ;;=^5061175
  1.  ;;^UTILITY(U,$J,358.3,10396,0)
  1.  ;;=Y36.200A^^45^450^133
  1.  ;;^UTILITY(U,$J,358.3,10396,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10396,1,3,0)
  1.  ;;=3^War Op Inv Unspec Explosion/Fragments,Milt,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10396,1,4,0)
  1.  ;;=4^Y36.200A
  1.  ;;^UTILITY(U,$J,358.3,10396,2)
  1.  ;;=^5061607
  1.  ;;^UTILITY(U,$J,358.3,10397,0)
  1.  ;;=Y36.200D^^45^450^134
  1.  ;;^UTILITY(U,$J,358.3,10397,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10397,1,3,0)
  1.  ;;=3^War Op Inv Unspec Explosion/Fragments,Milt,Subs Encntr
  1.  ;;^UTILITY(U,$J,358.3,10397,1,4,0)
  1.  ;;=4^Y36.200D
  1.  ;;^UTILITY(U,$J,358.3,10397,2)
  1.  ;;=^5061608
  1.  ;;^UTILITY(U,$J,358.3,10398,0)
  1.  ;;=Y36.300A^^45^450^135
  1.  ;;^UTILITY(U,$J,358.3,10398,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10398,1,3,0)
  1.  ;;=3^War Op Inv Unspec Fire/Conflagr/Hot Subst,Milt,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10398,1,4,0)
  1.  ;;=4^Y36.300A
  1.  ;;^UTILITY(U,$J,358.3,10398,2)
  1.  ;;=^5061661
  1.  ;;^UTILITY(U,$J,358.3,10399,0)
  1.  ;;=Y36.300D^^45^450^136
  1.  ;;^UTILITY(U,$J,358.3,10399,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10399,1,3,0)
  1.  ;;=3^War Op Inv Unspec Fire/Conflagr/Hot Subst,Milt,Subs Encntr
  1.  ;;^UTILITY(U,$J,358.3,10399,1,4,0)
  1.  ;;=4^Y36.300D
  1.  ;;^UTILITY(U,$J,358.3,10399,2)
  1.  ;;=^5061662
  1.  ;;^UTILITY(U,$J,358.3,10400,0)
  1.  ;;=Y36.410A^^45^450^130
  1.  ;;^UTILITY(U,$J,358.3,10400,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10400,1,3,0)
  1.  ;;=3^War Op Inv Rubber Bullets,Milt,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10400,1,4,0)
  1.  ;;=4^Y36.410A
  1.  ;;^UTILITY(U,$J,358.3,10400,2)
  1.  ;;=^5061691
  1.  ;;^UTILITY(U,$J,358.3,10401,0)
  1.  ;;=Y36.410D^^45^450^132
  1.  ;;^UTILITY(U,$J,358.3,10401,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10401,1,3,0)
  1.  ;;=3^War Op Inv Rubber Bullets,Milt,Subs Encntr
  1.  ;;^UTILITY(U,$J,358.3,10401,1,4,0)
  1.  ;;=4^Y36.410D
  1.  ;;^UTILITY(U,$J,358.3,10401,2)
  1.  ;;=^5061692
  1.  ;;^UTILITY(U,$J,358.3,10402,0)
  1.  ;;=Y36.6X0A^^45^450^122
  1.  ;;^UTILITY(U,$J,358.3,10402,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10402,1,3,0)
  1.  ;;=3^War Op Inv Biological Weapons,Milt,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10402,1,4,0)
  1.  ;;=4^Y36.6X0A
  1.  ;;^UTILITY(U,$J,358.3,10402,2)
  1.  ;;=^5061775
  1.  ;;^UTILITY(U,$J,358.3,10403,0)
  1.  ;;=Y36.6X0D^^45^450^124
  1.  ;;^UTILITY(U,$J,358.3,10403,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10403,1,3,0)
  1.  ;;=3^War Op Inv Biological Weapons,Milt,Subs Encntr
  1.  ;;^UTILITY(U,$J,358.3,10403,1,4,0)
  1.  ;;=4^Y36.6X0D
  1.  ;;^UTILITY(U,$J,358.3,10403,2)
  1.  ;;=^5061776
  1.  ;;^UTILITY(U,$J,358.3,10404,0)
  1.  ;;=Y36.7X0A^^45^450^137
  1.  ;;^UTILITY(U,$J,358.3,10404,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10404,1,3,0)
  1.  ;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10404,1,4,0)
  1.  ;;=4^Y36.7X0A
  1.  ;;^UTILITY(U,$J,358.3,10404,2)
  1.  ;;=^5061781
  1.  ;;^UTILITY(U,$J,358.3,10405,0)
  1.  ;;=Y36.7X0D^^45^450^138
  1.  ;;^UTILITY(U,$J,358.3,10405,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10405,1,3,0)
  1.  ;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Subs Encntr
  1.  ;;^UTILITY(U,$J,358.3,10405,1,4,0)
  1.  ;;=4^Y36.7X0D
  1.  ;;^UTILITY(U,$J,358.3,10405,2)
  1.  ;;=^5061782
  1.  ;;^UTILITY(U,$J,358.3,10406,0)
  1.  ;;=Y36.810A^^45^450^27
  1.  ;;^UTILITY(U,$J,358.3,10406,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10406,1,3,0)
  1.  ;;=3^Explosn of Mine Placed During War Op but Expld Aft,Milt,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10406,1,4,0)
  1.  ;;=4^Y36.810A
  1.  ;;^UTILITY(U,$J,358.3,10406,2)
  1.  ;;=^5061787
  1.  ;;^UTILITY(U,$J,358.3,10407,0)
  1.  ;;=Y36.810D^^45^450^28
  1.  ;;^UTILITY(U,$J,358.3,10407,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10407,1,3,0)
  1.  ;;=3^Explosn of Mine Placed During War Op but Expld Aft,Milt,Subs Encntr
  1.  ;;^UTILITY(U,$J,358.3,10407,1,4,0)
  1.  ;;=4^Y36.810D
  1.  ;;^UTILITY(U,$J,358.3,10407,2)
  1.  ;;=^5061788
  1.  ;;^UTILITY(U,$J,358.3,10408,0)
  1.  ;;=Y36.820A^^45^450^24
  1.  ;;^UTILITY(U,$J,358.3,10408,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10408,1,3,0)
  1.  ;;=3^Explosn of Bomb Placed During War Op But Expld Aft,Milt,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10408,1,4,0)
  1.  ;;=4^Y36.820A
  1.  ;;^UTILITY(U,$J,358.3,10408,2)
  1.  ;;=^5061793
  1.  ;;^UTILITY(U,$J,358.3,10409,0)
  1.  ;;=Y36.820D^^45^450^25
  1.  ;;^UTILITY(U,$J,358.3,10409,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10409,1,3,0)
  1.  ;;=3^Explosn of Bomb Placed During War Op But Expld Aft,Milt,Subs Encntr
  1.  ;;^UTILITY(U,$J,358.3,10409,1,4,0)
  1.  ;;=4^Y36.820D
  1.  ;;^UTILITY(U,$J,358.3,10409,2)
  1.  ;;=^5061794
  1.  ;;^UTILITY(U,$J,358.3,10410,0)
  1.  ;;=Y37.200A^^45^450^96
  1.  ;;^UTILITY(U,$J,358.3,10410,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10410,1,3,0)
  1.  ;;=3^Miltary Op Inv Explosion/Fragments,Milt,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10410,1,4,0)
  1.  ;;=4^Y37.200A
  1.  ;;^UTILITY(U,$J,358.3,10410,2)
  1.  ;;=^5137997
  1.  ;;^UTILITY(U,$J,358.3,10411,0)
  1.  ;;=Y37.200D^^45^450^97
  1.  ;;^UTILITY(U,$J,358.3,10411,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10411,1,3,0)
  1.  ;;=3^Miltary Op Inv Explosion/Fragments,Milt,Subs Encntr
  1.  ;;^UTILITY(U,$J,358.3,10411,1,4,0)
  1.  ;;=4^Y37.200D
  1.  ;;^UTILITY(U,$J,358.3,10411,2)
  1.  ;;=^5137999
  1.  ;;^UTILITY(U,$J,358.3,10412,0)
  1.  ;;=X00.1XXA^^45^450^18
  1.  ;;^UTILITY(U,$J,358.3,10412,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10412,1,3,0)
  1.  ;;=3^Exp to Smoke in Uncontrolled Bldg Fire,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10412,1,4,0)
  1.  ;;=4^X00.1XXA
  1.  ;;^UTILITY(U,$J,358.3,10412,2)
  1.  ;;=^5060664
  1.  ;;^UTILITY(U,$J,358.3,10413,0)
  1.  ;;=X00.1XXD^^45^450^19
  1.  ;;^UTILITY(U,$J,358.3,10413,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10413,1,3,0)
  1.  ;;=3^Exp to Smoke in Uncontrolled Bldg Fire,Subs Encntr
  1.  ;;^UTILITY(U,$J,358.3,10413,1,4,0)
  1.  ;;=4^X00.1XXD
  1.  ;;^UTILITY(U,$J,358.3,10413,2)
  1.  ;;=^5060665
  1.  ;;^UTILITY(U,$J,358.3,10414,0)
  1.  ;;=Y36.820S^^45^450^26
  1.  ;;^UTILITY(U,$J,358.3,10414,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10414,1,3,0)
  1.  ;;=3^Explosn of Bomb Placed During War Op but Expld After,Milt,Sequela
  1.  ;;^UTILITY(U,$J,358.3,10414,1,4,0)
  1.  ;;=4^Y36.820S
  1.  ;;^UTILITY(U,$J,358.3,10414,2)
  1.  ;;=^5061795
  1.  ;;^UTILITY(U,$J,358.3,10415,0)
  1.  ;;=Y36.810S^^45^450^29
  1.  ;;^UTILITY(U,$J,358.3,10415,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10415,1,3,0)
  1.  ;;=3^Explosn of Mine Placed During War Op but Expld After,Milt,Sequela
  1.  ;;^UTILITY(U,$J,358.3,10415,1,4,0)
  1.  ;;=4^Y36.810S
  1.  ;;^UTILITY(U,$J,358.3,10415,2)
  1.  ;;=^5061789
  1.  ;;^UTILITY(U,$J,358.3,10416,0)
  1.  ;;=Y36.6X0S^^45^450^123
  1.  ;;^UTILITY(U,$J,358.3,10416,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10416,1,3,0)
  1.  ;;=3^War Op Inv Biological Weapons,Milt,Sequela
  1.  ;;^UTILITY(U,$J,358.3,10416,1,4,0)
  1.  ;;=4^Y36.6X0S
  1.  ;;^UTILITY(U,$J,358.3,10416,2)
  1.  ;;=^5061777
  1.  ;;^UTILITY(U,$J,358.3,10417,0)
  1.  ;;=Y36.410S^^45^450^131
  1.  ;;^UTILITY(U,$J,358.3,10417,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10417,1,3,0)
  1.  ;;=3^War Op Inv Rubber Bullets,Milt,Sequela
  1.  ;;^UTILITY(U,$J,358.3,10417,1,4,0)
  1.  ;;=4^Y36.410S
  1.  ;;^UTILITY(U,$J,358.3,10417,2)
  1.  ;;=^5061693
  1.  ;;^UTILITY(U,$J,358.3,10418,0)
  1.  ;;=Y36.200S^^45^450^128
  1.  ;;^UTILITY(U,$J,358.3,10418,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10418,1,3,0)
  1.  ;;=3^War Op Inv Explosion/Fragments,Unspec,Milt,Sequela
  1.  ;;^UTILITY(U,$J,358.3,10418,1,4,0)
  1.  ;;=4^Y36.200S
  1.  ;;^UTILITY(U,$J,358.3,10418,2)
  1.  ;;=^5061609
  1.  ;;^UTILITY(U,$J,358.3,10419,0)
  1.  ;;=Y36.300S^^45^450^129
  1.  ;;^UTILITY(U,$J,358.3,10419,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10419,1,3,0)
  1.  ;;=3^War Op Inv Fire/Conflagr/Hot Subst,Unspec,Milt,Sequela
  1.  ;;^UTILITY(U,$J,358.3,10419,1,4,0)
  1.  ;;=4^Y36.300S
  1.  ;;^UTILITY(U,$J,358.3,10419,2)
  1.  ;;=^5061663
  1.  ;;^UTILITY(U,$J,358.3,10420,0)
  1.  ;;=Y36.230A^^45^450^125
  1.  ;;^UTILITY(U,$J,358.3,10420,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10420,1,3,0)
  1.  ;;=3^War Op Inv Explosion of IED,Milt Pers,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10420,1,4,0)
  1.  ;;=4^Y36.230A
  1.  ;;^UTILITY(U,$J,358.3,10420,2)
  1.  ;;=^5061625
  1.  ;;^UTILITY(U,$J,358.3,10421,0)
  1.  ;;=Y36.230D^^45^450^126
  1.  ;;^UTILITY(U,$J,358.3,10421,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10421,1,3,0)
  1.  ;;=3^War Op Inv Explosion of IED,Milt Pers,Subs Encntr
  1.  ;;^UTILITY(U,$J,358.3,10421,1,4,0)
  1.  ;;=4^Y36.230D
  1.  ;;^UTILITY(U,$J,358.3,10421,2)
  1.  ;;=^5061626
  1.  ;;^UTILITY(U,$J,358.3,10422,0)
  1.  ;;=Y36.230S^^45^450^127
  1.  ;;^UTILITY(U,$J,358.3,10422,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10422,1,3,0)
  1.  ;;=3^War Op Inv Explosion of IED,Milt Pers,Sequela
  1.  ;;^UTILITY(U,$J,358.3,10422,1,4,0)
  1.  ;;=4^Y36.230S
  1.  ;;^UTILITY(U,$J,358.3,10422,2)
  1.  ;;=^5061627
  1.  ;;^UTILITY(U,$J,358.3,10423,0)
  1.  ;;=Y36.7X0S^^45^450^139
  1.  ;;^UTILITY(U,$J,358.3,10423,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10423,1,3,0)
  1.  ;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Sequela
  1.  ;;^UTILITY(U,$J,358.3,10423,1,4,0)
  1.  ;;=4^Y36.7X0S
  1.  ;;^UTILITY(U,$J,358.3,10423,2)
  1.  ;;=^5061783
  1.  ;;^UTILITY(U,$J,358.3,10424,0)
  1.  ;;=V47.6XXA^^45^450^14
  1.  ;;^UTILITY(U,$J,358.3,10424,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10424,1,3,0)
  1.  ;;=3^Car Pasngr Injured in Collsn w/ Fixed Obj/Traffic,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10424,1,4,0)
  1.  ;;=4^V47.6XXA
  1.  ;;^UTILITY(U,$J,358.3,10424,2)
  1.  ;;=^5140366
  1.  ;;^UTILITY(U,$J,358.3,10425,0)
  1.  ;;=V47.9XXA^^45^450^13
  1.  ;;^UTILITY(U,$J,358.3,10425,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10425,1,3,0)
  1.  ;;=3^Car Occpnt,Unspec,Injured in Collsn w/ Fixed Obj/Traffic,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10425,1,4,0)
  1.  ;;=4^V47.9XXA
  1.  ;;^UTILITY(U,$J,358.3,10425,2)
  1.  ;;=^5140369
  1.  ;;^UTILITY(U,$J,358.3,10426,0)
  1.  ;;=W26.2XXA^^45^450^15
  1.  ;;^UTILITY(U,$J,358.3,10426,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10426,1,3,0)
  1.  ;;=3^Contact w/ Edge of Stiff Paper,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10426,1,4,0)
  1.  ;;=4^W26.2XXA
  1.  ;;^UTILITY(U,$J,358.3,10426,2)
  1.  ;;=^5140372
  1.  ;;^UTILITY(U,$J,358.3,10427,0)
  1.  ;;=W26.8XXA^^45^450^16
  1.  ;;^UTILITY(U,$J,358.3,10427,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10427,1,3,0)
  1.  ;;=3^Contact w/ Other Sharp Object,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10427,1,4,0)
  1.  ;;=4^W26.8XXA
  1.  ;;^UTILITY(U,$J,358.3,10427,2)
  1.  ;;=^5140375
  1.  ;;^UTILITY(U,$J,358.3,10428,0)
  1.  ;;=W26.9XXA^^45^450^17
  1.  ;;^UTILITY(U,$J,358.3,10428,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10428,1,3,0)
  1.  ;;=3^Contact w/ Unspec Sharp Object,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10428,1,4,0)
  1.  ;;=4^W26.9XXA
  1.  ;;^UTILITY(U,$J,358.3,10428,2)
  1.  ;;=^5140378
  1.  ;;^UTILITY(U,$J,358.3,10429,0)
  1.  ;;=X50.0XXA^^45^450^103
  1.  ;;^UTILITY(U,$J,358.3,10429,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10429,1,3,0)
  1.  ;;=3^Overexertion from Strenuous Movement/Load,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10429,1,4,0)
  1.  ;;=4^X50.0XXA
  1.  ;;^UTILITY(U,$J,358.3,10429,2)
  1.  ;;=^5140381
  1.  ;;^UTILITY(U,$J,358.3,10430,0)
  1.  ;;=X50.1XXA^^45^450^105
  1.  ;;^UTILITY(U,$J,358.3,10430,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10430,1,3,0)
  1.  ;;=3^Overextertion from Prlgd/Akwrd Postures,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10430,1,4,0)
  1.  ;;=4^X50.1XXA
  1.  ;;^UTILITY(U,$J,358.3,10430,2)
  1.  ;;=^5140384
  1.  ;;^UTILITY(U,$J,358.3,10431,0)
  1.  ;;=X50.3XXA^^45^450^102
  1.  ;;^UTILITY(U,$J,358.3,10431,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10431,1,3,0)
  1.  ;;=3^Overexertion from Repetitive Movements,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10431,1,4,0)
  1.  ;;=4^X50.3XXA
  1.  ;;^UTILITY(U,$J,358.3,10431,2)
  1.  ;;=^5140387
  1.  ;;^UTILITY(U,$J,358.3,10432,0)
  1.  ;;=X50.9XXA^^45^450^104
  1.  ;;^UTILITY(U,$J,358.3,10432,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10432,1,3,0)
  1.  ;;=3^Overexertion/Sten Mvmnts/Postures,Oth/Unspec,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,10432,1,4,0)
  1.  ;;=4^X50.9XXA
  1.  ;;^UTILITY(U,$J,358.3,10432,2)
  1.  ;;=^5140390
  1.  ;;^UTILITY(U,$J,358.3,10433,0)
  1.  ;;=F02.81^^45^451^11
  1.  ;;^UTILITY(U,$J,358.3,10433,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10433,1,3,0)
  1.  ;;=3^Dementia in Oth Diseases Classd Elswhr w/ Behavioral Disturbances
  1.  ;;^UTILITY(U,$J,358.3,10433,1,4,0)
  1.  ;;=4^F02.81
  1.  ;;^UTILITY(U,$J,358.3,10433,2)
  1.  ;;=^5003049
  1.  ;;^UTILITY(U,$J,358.3,10434,0)
  1.  ;;=F02.80^^45^451^12
  1.  ;;^UTILITY(U,$J,358.3,10434,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10434,1,3,0)
  1.  ;;=3^Dementia in Oth Diseases Classd Elswhr w/o Behavioral Disturbances
  1.  ;;^UTILITY(U,$J,358.3,10434,1,4,0)
  1.  ;;=4^F02.80
  1.  ;;^UTILITY(U,$J,358.3,10434,2)
  1.  ;;=^5003048
  1.  ;;^UTILITY(U,$J,358.3,10435,0)
  1.  ;;=F03.91^^45^451^13
  1.  ;;^UTILITY(U,$J,358.3,10435,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10435,1,3,0)
  1.  ;;=3^Dementia w/ Behavioral Disturbances,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10435,1,4,0)
  1.  ;;=4^F03.91
  1.  ;;^UTILITY(U,$J,358.3,10435,2)
  1.  ;;=^5133350
  1.  ;;^UTILITY(U,$J,358.3,10436,0)
  1.  ;;=G31.83^^45^451^14
  1.  ;;^UTILITY(U,$J,358.3,10436,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10436,1,3,0)
  1.  ;;=3^Dementia w/ Lewy Bodies
  1.  ;;^UTILITY(U,$J,358.3,10436,1,4,0)
  1.  ;;=4^G31.83
  1.  ;;^UTILITY(U,$J,358.3,10436,2)
  1.  ;;=^329888
  1.  ;;^UTILITY(U,$J,358.3,10437,0)
  1.  ;;=F01.51^^45^451^30
  1.  ;;^UTILITY(U,$J,358.3,10437,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10437,1,3,0)
  1.  ;;=3^Vascular Dementia w/ Behavioral Disturbances
  1.  ;;^UTILITY(U,$J,358.3,10437,1,4,0)
  1.  ;;=4^F01.51
  1.  ;;^UTILITY(U,$J,358.3,10437,2)
  1.  ;;=^5003047
  1.  ;;^UTILITY(U,$J,358.3,10438,0)
  1.  ;;=F01.50^^45^451^31
  1.  ;;^UTILITY(U,$J,358.3,10438,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10438,1,3,0)
  1.  ;;=3^Vascular Dementia w/o Behavioral Disturbances
  1.  ;;^UTILITY(U,$J,358.3,10438,1,4,0)
  1.  ;;=4^F01.50
  1.  ;;^UTILITY(U,$J,358.3,10438,2)
  1.  ;;=^5003046
  1.  ;;^UTILITY(U,$J,358.3,10439,0)
  1.  ;;=A81.9^^45^451^6
  1.  ;;^UTILITY(U,$J,358.3,10439,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10439,1,3,0)
  1.  ;;=3^Atypical Virus Infection of CNS,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10439,1,4,0)
  1.  ;;=4^A81.9
  1.  ;;^UTILITY(U,$J,358.3,10439,2)
  1.  ;;=^5000414
  1.  ;;^UTILITY(U,$J,358.3,10440,0)
  1.  ;;=A81.09^^45^451^8
  1.  ;;^UTILITY(U,$J,358.3,10440,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10440,1,3,0)
  1.  ;;=3^Creutzfeldt-Jakob Disease NEC
  1.  ;;^UTILITY(U,$J,358.3,10440,1,4,0)
  1.  ;;=4^A81.09
  1.  ;;^UTILITY(U,$J,358.3,10440,2)
  1.  ;;=^5000410
  1.  ;;^UTILITY(U,$J,358.3,10441,0)
  1.  ;;=A81.00^^45^451^9
  1.  ;;^UTILITY(U,$J,358.3,10441,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10441,1,3,0)
  1.  ;;=3^Creutzfeldt-Jakob Disease,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10441,1,4,0)
  1.  ;;=4^A81.00
  1.  ;;^UTILITY(U,$J,358.3,10441,2)
  1.  ;;=^5000409
  1.  ;;^UTILITY(U,$J,358.3,10442,0)
  1.  ;;=A81.01^^45^451^10
  1.  ;;^UTILITY(U,$J,358.3,10442,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10442,1,3,0)
  1.  ;;=3^Creutzfeldt-Jakob Disease,Variant
  1.  ;;^UTILITY(U,$J,358.3,10442,1,4,0)
  1.  ;;=4^A81.01
  1.  ;;^UTILITY(U,$J,358.3,10442,2)
  1.  ;;=^336701
  1.  ;;^UTILITY(U,$J,358.3,10443,0)
  1.  ;;=A81.89^^45^451^7
  1.  ;;^UTILITY(U,$J,358.3,10443,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10443,1,3,0)
  1.  ;;=3^Atypical Virus Infections of CNS NEC
  1.  ;;^UTILITY(U,$J,358.3,10443,1,4,0)
  1.  ;;=4^A81.89
  1.  ;;^UTILITY(U,$J,358.3,10443,2)
  1.  ;;=^5000413
  1.  ;;^UTILITY(U,$J,358.3,10444,0)
  1.  ;;=A81.2^^45^451^27
  1.  ;;^UTILITY(U,$J,358.3,10444,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10444,1,3,0)
  1.  ;;=3^Progressive Multifocal Leukoencephalopathy
  1.  ;;^UTILITY(U,$J,358.3,10444,1,4,0)
  1.  ;;=4^A81.2
  1.  ;;^UTILITY(U,$J,358.3,10444,2)
  1.  ;;=^5000411
  1.  ;;^UTILITY(U,$J,358.3,10445,0)
  1.  ;;=B20.^^45^451^17
  1.  ;;^UTILITY(U,$J,358.3,10445,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10445,1,3,0)
  1.  ;;=3^HIV Disease w/ Dementia w/ Behavioral Disturbances
  1.  ;;^UTILITY(U,$J,358.3,10445,1,4,0)
  1.  ;;=4^B20.
  1.  ;;^UTILITY(U,$J,358.3,10445,2)
  1.  ;;=^5000555^F02.81
  1.  ;;^UTILITY(U,$J,358.3,10446,0)
  1.  ;;=B20.^^45^451^18
  1.  ;;^UTILITY(U,$J,358.3,10446,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10446,1,3,0)
  1.  ;;=3^HIV Disease w/ Dementia w/o Behavioral Disturbances
  1.  ;;^UTILITY(U,$J,358.3,10446,1,4,0)
  1.  ;;=4^B20.
  1.  ;;^UTILITY(U,$J,358.3,10446,2)
  1.  ;;=^5000555^F02.80
  1.  ;;^UTILITY(U,$J,358.3,10447,0)
  1.  ;;=F10.27^^45^451^1
  1.  ;;^UTILITY(U,$J,358.3,10447,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10447,1,3,0)
  1.  ;;=3^Alcohol Dependence w/ Alcohol-Induced Persisting Dementia
  1.  ;;^UTILITY(U,$J,358.3,10447,1,4,0)
  1.  ;;=4^F10.27
  1.  ;;^UTILITY(U,$J,358.3,10447,2)
  1.  ;;=^5003095
  1.  ;;^UTILITY(U,$J,358.3,10448,0)
  1.  ;;=F19.97^^45^451^29
  1.  ;;^UTILITY(U,$J,358.3,10448,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10448,1,3,0)
  1.  ;;=3^Psychoactive Substance Use w/ Persisting Dementia NEC
  1.  ;;^UTILITY(U,$J,358.3,10448,1,4,0)
  1.  ;;=4^F19.97
  1.  ;;^UTILITY(U,$J,358.3,10448,2)
  1.  ;;=^5003465
  1.  ;;^UTILITY(U,$J,358.3,10449,0)
  1.  ;;=F03.90^^45^451^15
  1.  ;;^UTILITY(U,$J,358.3,10449,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10449,1,3,0)
  1.  ;;=3^Dementia w/o Behavioral Disturbance,Unspec
  1.  ;;^UTILITY(U,$J,358.3,10449,1,4,0)
  1.  ;;=4^F03.90
  1.  ;;^UTILITY(U,$J,358.3,10449,2)
  1.  ;;=^5003050
  1.  ;;^UTILITY(U,$J,358.3,10450,0)
  1.  ;;=G30.0^^45^451^2
  1.  ;;^UTILITY(U,$J,358.3,10450,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10450,1,3,0)
  1.  ;;=3^Alzheimer's Disease w/ Early Onset
  1.  ;;^UTILITY(U,$J,358.3,10450,1,4,0)
  1.  ;;=4^G30.0
  1.  ;;^UTILITY(U,$J,358.3,10450,2)
  1.  ;;=^5003805
  1.  ;;^UTILITY(U,$J,358.3,10451,0)
  1.  ;;=G30.1^^45^451^3
  1.  ;;^UTILITY(U,$J,358.3,10451,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,10451,1,3,0)
  1.  ;;=3^Alzheimer's Disease w/ Late Onset
  1.  ;;^UTILITY(U,$J,358.3,10451,1,4,0)
  1.  ;;=4^G30.1