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

IBDEI06W.m

Go to the documentation of this file.
IBDEI06W ; ; 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,16726,1,4,0)
 ;;=4^Y36.7X0A
 ;;^UTILITY(U,$J,358.3,16726,2)
 ;;=^5061781
 ;;^UTILITY(U,$J,358.3,16727,0)
 ;;=Y36.7X0D^^56^663^138
 ;;^UTILITY(U,$J,358.3,16727,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16727,1,3,0)
 ;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16727,1,4,0)
 ;;=4^Y36.7X0D
 ;;^UTILITY(U,$J,358.3,16727,2)
 ;;=^5061782
 ;;^UTILITY(U,$J,358.3,16728,0)
 ;;=Y36.810A^^56^663^27
 ;;^UTILITY(U,$J,358.3,16728,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16728,1,3,0)
 ;;=3^Explosn of Mine Placed During War Op but Expld Aft,Milt,Init Encntr
 ;;^UTILITY(U,$J,358.3,16728,1,4,0)
 ;;=4^Y36.810A
 ;;^UTILITY(U,$J,358.3,16728,2)
 ;;=^5061787
 ;;^UTILITY(U,$J,358.3,16729,0)
 ;;=Y36.810D^^56^663^28
 ;;^UTILITY(U,$J,358.3,16729,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16729,1,3,0)
 ;;=3^Explosn of Mine Placed During War Op but Expld Aft,Milt,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16729,1,4,0)
 ;;=4^Y36.810D
 ;;^UTILITY(U,$J,358.3,16729,2)
 ;;=^5061788
 ;;^UTILITY(U,$J,358.3,16730,0)
 ;;=Y36.820A^^56^663^24
 ;;^UTILITY(U,$J,358.3,16730,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16730,1,3,0)
 ;;=3^Explosn of Bomb Placed During War Op But Expld Aft,Milt,Init Encntr
 ;;^UTILITY(U,$J,358.3,16730,1,4,0)
 ;;=4^Y36.820A
 ;;^UTILITY(U,$J,358.3,16730,2)
 ;;=^5061793
 ;;^UTILITY(U,$J,358.3,16731,0)
 ;;=Y36.820D^^56^663^25
 ;;^UTILITY(U,$J,358.3,16731,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16731,1,3,0)
 ;;=3^Explosn of Bomb Placed During War Op But Expld Aft,Milt,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16731,1,4,0)
 ;;=4^Y36.820D
 ;;^UTILITY(U,$J,358.3,16731,2)
 ;;=^5061794
 ;;^UTILITY(U,$J,358.3,16732,0)
 ;;=Y37.200A^^56^663^96
 ;;^UTILITY(U,$J,358.3,16732,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16732,1,3,0)
 ;;=3^Miltary Op Inv Explosion/Fragments,Milt,Init Encntr
 ;;^UTILITY(U,$J,358.3,16732,1,4,0)
 ;;=4^Y37.200A
 ;;^UTILITY(U,$J,358.3,16732,2)
 ;;=^5137997
 ;;^UTILITY(U,$J,358.3,16733,0)
 ;;=Y37.200D^^56^663^97
 ;;^UTILITY(U,$J,358.3,16733,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16733,1,3,0)
 ;;=3^Miltary Op Inv Explosion/Fragments,Milt,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16733,1,4,0)
 ;;=4^Y37.200D
 ;;^UTILITY(U,$J,358.3,16733,2)
 ;;=^5137999
 ;;^UTILITY(U,$J,358.3,16734,0)
 ;;=X00.1XXA^^56^663^18
 ;;^UTILITY(U,$J,358.3,16734,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16734,1,3,0)
 ;;=3^Exp to Smoke in Uncontrolled Bldg Fire,Init Encntr
 ;;^UTILITY(U,$J,358.3,16734,1,4,0)
 ;;=4^X00.1XXA
 ;;^UTILITY(U,$J,358.3,16734,2)
 ;;=^5060664
 ;;^UTILITY(U,$J,358.3,16735,0)
 ;;=X00.1XXD^^56^663^19
 ;;^UTILITY(U,$J,358.3,16735,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16735,1,3,0)
 ;;=3^Exp to Smoke in Uncontrolled Bldg Fire,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16735,1,4,0)
 ;;=4^X00.1XXD
 ;;^UTILITY(U,$J,358.3,16735,2)
 ;;=^5060665
 ;;^UTILITY(U,$J,358.3,16736,0)
 ;;=Y36.820S^^56^663^26
 ;;^UTILITY(U,$J,358.3,16736,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16736,1,3,0)
 ;;=3^Explosn of Bomb Placed During War Op but Expld After,Milt,Sequela
 ;;^UTILITY(U,$J,358.3,16736,1,4,0)
 ;;=4^Y36.820S
 ;;^UTILITY(U,$J,358.3,16736,2)
 ;;=^5061795
 ;;^UTILITY(U,$J,358.3,16737,0)
 ;;=Y36.810S^^56^663^29
 ;;^UTILITY(U,$J,358.3,16737,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16737,1,3,0)
 ;;=3^Explosn of Mine Placed During War Op but Expld After,Milt,Sequela
 ;;^UTILITY(U,$J,358.3,16737,1,4,0)
 ;;=4^Y36.810S
 ;;^UTILITY(U,$J,358.3,16737,2)
 ;;=^5061789
 ;;^UTILITY(U,$J,358.3,16738,0)
 ;;=Y36.6X0S^^56^663^123
 ;;^UTILITY(U,$J,358.3,16738,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16738,1,3,0)
 ;;=3^War Op Inv Biological Weapons,Milt,Sequela
 ;;^UTILITY(U,$J,358.3,16738,1,4,0)
 ;;=4^Y36.6X0S
 ;;^UTILITY(U,$J,358.3,16738,2)
 ;;=^5061777
 ;;^UTILITY(U,$J,358.3,16739,0)
 ;;=Y36.410S^^56^663^131
 ;;^UTILITY(U,$J,358.3,16739,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16739,1,3,0)
 ;;=3^War Op Inv Rubber Bullets,Milt,Sequela
 ;;^UTILITY(U,$J,358.3,16739,1,4,0)
 ;;=4^Y36.410S
 ;;^UTILITY(U,$J,358.3,16739,2)
 ;;=^5061693
 ;;^UTILITY(U,$J,358.3,16740,0)
 ;;=Y36.200S^^56^663^128
 ;;^UTILITY(U,$J,358.3,16740,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16740,1,3,0)
 ;;=3^War Op Inv Explosion/Fragments,Unspec,Milt,Sequela
 ;;^UTILITY(U,$J,358.3,16740,1,4,0)
 ;;=4^Y36.200S
 ;;^UTILITY(U,$J,358.3,16740,2)
 ;;=^5061609
 ;;^UTILITY(U,$J,358.3,16741,0)
 ;;=Y36.300S^^56^663^129
 ;;^UTILITY(U,$J,358.3,16741,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16741,1,3,0)
 ;;=3^War Op Inv Fire/Conflagr/Hot Subst,Unspec,Milt,Sequela
 ;;^UTILITY(U,$J,358.3,16741,1,4,0)
 ;;=4^Y36.300S
 ;;^UTILITY(U,$J,358.3,16741,2)
 ;;=^5061663
 ;;^UTILITY(U,$J,358.3,16742,0)
 ;;=Y36.230A^^56^663^125
 ;;^UTILITY(U,$J,358.3,16742,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16742,1,3,0)
 ;;=3^War Op Inv Explosion of IED,Milt Pers,Init Encntr
 ;;^UTILITY(U,$J,358.3,16742,1,4,0)
 ;;=4^Y36.230A
 ;;^UTILITY(U,$J,358.3,16742,2)
 ;;=^5061625
 ;;^UTILITY(U,$J,358.3,16743,0)
 ;;=Y36.230D^^56^663^126
 ;;^UTILITY(U,$J,358.3,16743,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16743,1,3,0)
 ;;=3^War Op Inv Explosion of IED,Milt Pers,Subs Encntr
 ;;^UTILITY(U,$J,358.3,16743,1,4,0)
 ;;=4^Y36.230D
 ;;^UTILITY(U,$J,358.3,16743,2)
 ;;=^5061626
 ;;^UTILITY(U,$J,358.3,16744,0)
 ;;=Y36.230S^^56^663^127
 ;;^UTILITY(U,$J,358.3,16744,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16744,1,3,0)
 ;;=3^War Op Inv Explosion of IED,Milt Pers,Sequela
 ;;^UTILITY(U,$J,358.3,16744,1,4,0)
 ;;=4^Y36.230S
 ;;^UTILITY(U,$J,358.3,16744,2)
 ;;=^5061627
 ;;^UTILITY(U,$J,358.3,16745,0)
 ;;=Y36.7X0S^^56^663^139
 ;;^UTILITY(U,$J,358.3,16745,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16745,1,3,0)
 ;;=3^War Op w/ Chem Weapons/Unconvtl Warfare,Milt,Sequela
 ;;^UTILITY(U,$J,358.3,16745,1,4,0)
 ;;=4^Y36.7X0S
 ;;^UTILITY(U,$J,358.3,16745,2)
 ;;=^5061783
 ;;^UTILITY(U,$J,358.3,16746,0)
 ;;=V47.6XXA^^56^663^14
 ;;^UTILITY(U,$J,358.3,16746,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16746,1,3,0)
 ;;=3^Car Pasngr Injured in Collsn w/ Fixed Obj/Traffic,Init Encntr
 ;;^UTILITY(U,$J,358.3,16746,1,4,0)
 ;;=4^V47.6XXA
 ;;^UTILITY(U,$J,358.3,16746,2)
 ;;=^5140366
 ;;^UTILITY(U,$J,358.3,16747,0)
 ;;=V47.9XXA^^56^663^13
 ;;^UTILITY(U,$J,358.3,16747,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16747,1,3,0)
 ;;=3^Car Occpnt,Unspec,Injured in Collsn w/ Fixed Obj/Traffic,Init Encntr
 ;;^UTILITY(U,$J,358.3,16747,1,4,0)
 ;;=4^V47.9XXA
 ;;^UTILITY(U,$J,358.3,16747,2)
 ;;=^5140369
 ;;^UTILITY(U,$J,358.3,16748,0)
 ;;=W26.2XXA^^56^663^15
 ;;^UTILITY(U,$J,358.3,16748,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16748,1,3,0)
 ;;=3^Contact w/ Edge of Stiff Paper,Init Encntr
 ;;^UTILITY(U,$J,358.3,16748,1,4,0)
 ;;=4^W26.2XXA
 ;;^UTILITY(U,$J,358.3,16748,2)
 ;;=^5140372
 ;;^UTILITY(U,$J,358.3,16749,0)
 ;;=W26.8XXA^^56^663^16
 ;;^UTILITY(U,$J,358.3,16749,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16749,1,3,0)
 ;;=3^Contact w/ Other Sharp Object,Init Encntr
 ;;^UTILITY(U,$J,358.3,16749,1,4,0)
 ;;=4^W26.8XXA
 ;;^UTILITY(U,$J,358.3,16749,2)
 ;;=^5140375
 ;;^UTILITY(U,$J,358.3,16750,0)
 ;;=W26.9XXA^^56^663^17
 ;;^UTILITY(U,$J,358.3,16750,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16750,1,3,0)
 ;;=3^Contact w/ Unspec Sharp Object,Init Encntr
 ;;^UTILITY(U,$J,358.3,16750,1,4,0)
 ;;=4^W26.9XXA
 ;;^UTILITY(U,$J,358.3,16750,2)
 ;;=^5140378
 ;;^UTILITY(U,$J,358.3,16751,0)
 ;;=X50.0XXA^^56^663^103
 ;;^UTILITY(U,$J,358.3,16751,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16751,1,3,0)
 ;;=3^Overexertion from Strenuous Movement/Load,Init Encntr
 ;;^UTILITY(U,$J,358.3,16751,1,4,0)
 ;;=4^X50.0XXA
 ;;^UTILITY(U,$J,358.3,16751,2)
 ;;=^5140381
 ;;^UTILITY(U,$J,358.3,16752,0)
 ;;=X50.1XXA^^56^663^105
 ;;^UTILITY(U,$J,358.3,16752,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16752,1,3,0)
 ;;=3^Overextertion from Prlgd/Akwrd Postures,Init Encntr
 ;;^UTILITY(U,$J,358.3,16752,1,4,0)
 ;;=4^X50.1XXA
 ;;^UTILITY(U,$J,358.3,16752,2)
 ;;=^5140384
 ;;^UTILITY(U,$J,358.3,16753,0)
 ;;=X50.3XXA^^56^663^102
 ;;^UTILITY(U,$J,358.3,16753,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16753,1,3,0)
 ;;=3^Overexertion from Repetitive Movements,Init Encntr
 ;;^UTILITY(U,$J,358.3,16753,1,4,0)
 ;;=4^X50.3XXA
 ;;^UTILITY(U,$J,358.3,16753,2)
 ;;=^5140387
 ;;^UTILITY(U,$J,358.3,16754,0)
 ;;=X50.9XXA^^56^663^104
 ;;^UTILITY(U,$J,358.3,16754,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16754,1,3,0)
 ;;=3^Overexertion/Sten Mvmnts/Postures,Oth/Unspec,Init Encntr
 ;;^UTILITY(U,$J,358.3,16754,1,4,0)
 ;;=4^X50.9XXA
 ;;^UTILITY(U,$J,358.3,16754,2)
 ;;=^5140390
 ;;^UTILITY(U,$J,358.3,16755,0)
 ;;=F02.81^^56^664^11
 ;;^UTILITY(U,$J,358.3,16755,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16755,1,3,0)
 ;;=3^Dementia in Oth Diseases Classd Elswhr w/ Behavioral Disturbances
 ;;^UTILITY(U,$J,358.3,16755,1,4,0)
 ;;=4^F02.81
 ;;^UTILITY(U,$J,358.3,16755,2)
 ;;=^5003049
 ;;^UTILITY(U,$J,358.3,16756,0)
 ;;=F02.80^^56^664^12
 ;;^UTILITY(U,$J,358.3,16756,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16756,1,3,0)
 ;;=3^Dementia in Oth Diseases Classd Elswhr w/o Behavioral Disturbances
 ;;^UTILITY(U,$J,358.3,16756,1,4,0)
 ;;=4^F02.80
 ;;^UTILITY(U,$J,358.3,16756,2)
 ;;=^5003048
 ;;^UTILITY(U,$J,358.3,16757,0)
 ;;=F03.91^^56^664^13
 ;;^UTILITY(U,$J,358.3,16757,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16757,1,3,0)
 ;;=3^Dementia w/ Behavioral Disturbances,Unspec
 ;;^UTILITY(U,$J,358.3,16757,1,4,0)
 ;;=4^F03.91
 ;;^UTILITY(U,$J,358.3,16757,2)
 ;;=^5133350
 ;;^UTILITY(U,$J,358.3,16758,0)
 ;;=G31.83^^56^664^14
 ;;^UTILITY(U,$J,358.3,16758,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16758,1,3,0)
 ;;=3^Dementia w/ Lewy Bodies
 ;;^UTILITY(U,$J,358.3,16758,1,4,0)
 ;;=4^G31.83
 ;;^UTILITY(U,$J,358.3,16758,2)
 ;;=^329888
 ;;^UTILITY(U,$J,358.3,16759,0)
 ;;=F01.51^^56^664^30
 ;;^UTILITY(U,$J,358.3,16759,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16759,1,3,0)
 ;;=3^Vascular Dementia w/ Behavioral Disturbances
 ;;^UTILITY(U,$J,358.3,16759,1,4,0)
 ;;=4^F01.51
 ;;^UTILITY(U,$J,358.3,16759,2)
 ;;=^5003047
 ;;^UTILITY(U,$J,358.3,16760,0)
 ;;=F01.50^^56^664^31
 ;;^UTILITY(U,$J,358.3,16760,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16760,1,3,0)
 ;;=3^Vascular Dementia w/o Behavioral Disturbances
 ;;^UTILITY(U,$J,358.3,16760,1,4,0)
 ;;=4^F01.50
 ;;^UTILITY(U,$J,358.3,16760,2)
 ;;=^5003046
 ;;^UTILITY(U,$J,358.3,16761,0)
 ;;=A81.9^^56^664^6
 ;;^UTILITY(U,$J,358.3,16761,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16761,1,3,0)
 ;;=3^Atypical Virus Infection of CNS,Unspec
 ;;^UTILITY(U,$J,358.3,16761,1,4,0)
 ;;=4^A81.9
 ;;^UTILITY(U,$J,358.3,16761,2)
 ;;=^5000414
 ;;^UTILITY(U,$J,358.3,16762,0)
 ;;=A81.09^^56^664^8
 ;;^UTILITY(U,$J,358.3,16762,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16762,1,3,0)
 ;;=3^Creutzfeldt-Jakob Disease NEC
 ;;^UTILITY(U,$J,358.3,16762,1,4,0)
 ;;=4^A81.09
 ;;^UTILITY(U,$J,358.3,16762,2)
 ;;=^5000410
 ;;^UTILITY(U,$J,358.3,16763,0)
 ;;=A81.00^^56^664^9
 ;;^UTILITY(U,$J,358.3,16763,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16763,1,3,0)
 ;;=3^Creutzfeldt-Jakob Disease,Unspec
 ;;^UTILITY(U,$J,358.3,16763,1,4,0)
 ;;=4^A81.00
 ;;^UTILITY(U,$J,358.3,16763,2)
 ;;=^5000409
 ;;^UTILITY(U,$J,358.3,16764,0)
 ;;=A81.01^^56^664^10
 ;;^UTILITY(U,$J,358.3,16764,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16764,1,3,0)
 ;;=3^Creutzfeldt-Jakob Disease,Variant
 ;;^UTILITY(U,$J,358.3,16764,1,4,0)
 ;;=4^A81.01
 ;;^UTILITY(U,$J,358.3,16764,2)
 ;;=^336701
 ;;^UTILITY(U,$J,358.3,16765,0)
 ;;=A81.89^^56^664^7
 ;;^UTILITY(U,$J,358.3,16765,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16765,1,3,0)
 ;;=3^Atypical Virus Infections of CNS NEC
 ;;^UTILITY(U,$J,358.3,16765,1,4,0)
 ;;=4^A81.89
 ;;^UTILITY(U,$J,358.3,16765,2)
 ;;=^5000413
 ;;^UTILITY(U,$J,358.3,16766,0)
 ;;=A81.2^^56^664^27
 ;;^UTILITY(U,$J,358.3,16766,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16766,1,3,0)
 ;;=3^Progressive Multifocal Leukoencephalopathy
 ;;^UTILITY(U,$J,358.3,16766,1,4,0)
 ;;=4^A81.2
 ;;^UTILITY(U,$J,358.3,16766,2)
 ;;=^5000411
 ;;^UTILITY(U,$J,358.3,16767,0)
 ;;=B20.^^56^664^17
 ;;^UTILITY(U,$J,358.3,16767,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16767,1,3,0)
 ;;=3^HIV Disease w/ Dementia w/ Behavioral Disturbances
 ;;^UTILITY(U,$J,358.3,16767,1,4,0)
 ;;=4^B20.
 ;;^UTILITY(U,$J,358.3,16767,2)
 ;;=^5000555^F02.81
 ;;^UTILITY(U,$J,358.3,16768,0)
 ;;=B20.^^56^664^18
 ;;^UTILITY(U,$J,358.3,16768,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16768,1,3,0)
 ;;=3^HIV Disease w/ Dementia w/o Behavioral Disturbances
 ;;^UTILITY(U,$J,358.3,16768,1,4,0)
 ;;=4^B20.
 ;;^UTILITY(U,$J,358.3,16768,2)
 ;;=^5000555^F02.80
 ;;^UTILITY(U,$J,358.3,16769,0)
 ;;=F10.27^^56^664^1
 ;;^UTILITY(U,$J,358.3,16769,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16769,1,3,0)
 ;;=3^Alcohol Dependence w/ Alcohol-Induced Persisting Dementia
 ;;^UTILITY(U,$J,358.3,16769,1,4,0)
 ;;=4^F10.27
 ;;^UTILITY(U,$J,358.3,16769,2)
 ;;=^5003095
 ;;^UTILITY(U,$J,358.3,16770,0)
 ;;=F19.97^^56^664^29
 ;;^UTILITY(U,$J,358.3,16770,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16770,1,3,0)
 ;;=3^Psychoactive Substance Use w/ Persisting Dementia NEC
 ;;^UTILITY(U,$J,358.3,16770,1,4,0)
 ;;=4^F19.97
 ;;^UTILITY(U,$J,358.3,16770,2)
 ;;=^5003465
 ;;^UTILITY(U,$J,358.3,16771,0)
 ;;=F03.90^^56^664^15
 ;;^UTILITY(U,$J,358.3,16771,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16771,1,3,0)
 ;;=3^Dementia w/o Behavioral Disturbance,Unspec
 ;;^UTILITY(U,$J,358.3,16771,1,4,0)
 ;;=4^F03.90
 ;;^UTILITY(U,$J,358.3,16771,2)
 ;;=^5003050
 ;;^UTILITY(U,$J,358.3,16772,0)
 ;;=G30.0^^56^664^2
 ;;^UTILITY(U,$J,358.3,16772,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16772,1,3,0)
 ;;=3^Alzheimer's Disease w/ Early Onset
 ;;^UTILITY(U,$J,358.3,16772,1,4,0)
 ;;=4^G30.0
 ;;^UTILITY(U,$J,358.3,16772,2)
 ;;=^5003805
 ;;^UTILITY(U,$J,358.3,16773,0)
 ;;=G30.1^^56^664^3
 ;;^UTILITY(U,$J,358.3,16773,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16773,1,3,0)
 ;;=3^Alzheimer's Disease w/ Late Onset
 ;;^UTILITY(U,$J,358.3,16773,1,4,0)
 ;;=4^G30.1
 ;;^UTILITY(U,$J,358.3,16773,2)
 ;;=^5003806
 ;;^UTILITY(U,$J,358.3,16774,0)
 ;;=G30.9^^56^664^4
 ;;^UTILITY(U,$J,358.3,16774,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16774,1,3,0)
 ;;=3^Alzheimer's Disease,Unspec
 ;;^UTILITY(U,$J,358.3,16774,1,4,0)
 ;;=4^G30.9
 ;;^UTILITY(U,$J,358.3,16774,2)
 ;;=^5003808
 ;;^UTILITY(U,$J,358.3,16775,0)
 ;;=G10.^^56^664^19
 ;;^UTILITY(U,$J,358.3,16775,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16775,1,3,0)
 ;;=3^Huntington's Disease w/ Dementia w/ Behavioral Disturbance
 ;;^UTILITY(U,$J,358.3,16775,1,4,0)
 ;;=4^G10.
 ;;^UTILITY(U,$J,358.3,16775,2)
 ;;=^5003751^F02.81
 ;;^UTILITY(U,$J,358.3,16776,0)
 ;;=G10.^^56^664^20
 ;;^UTILITY(U,$J,358.3,16776,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16776,1,3,0)
 ;;=3^Huntington's Disease w/ Dementia w/o Behavioral Disturbances
 ;;^UTILITY(U,$J,358.3,16776,1,4,0)
 ;;=4^G10.
 ;;^UTILITY(U,$J,358.3,16776,2)
 ;;=^5003751^F02.80
 ;;^UTILITY(U,$J,358.3,16777,0)
 ;;=G90.3^^56^664^21
 ;;^UTILITY(U,$J,358.3,16777,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16777,1,3,0)
 ;;=3^Multi-System Degeneration of the Autonomic Nervous System
 ;;^UTILITY(U,$J,358.3,16777,1,4,0)
 ;;=4^G90.3
 ;;^UTILITY(U,$J,358.3,16777,2)
 ;;=^5004162
 ;;^UTILITY(U,$J,358.3,16778,0)
 ;;=G91.2^^56^664^22
 ;;^UTILITY(U,$J,358.3,16778,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16778,1,3,0)
 ;;=3^NPH w/ Dementia w/ Behavioral Disturbances
 ;;^UTILITY(U,$J,358.3,16778,1,4,0)
 ;;=4^G91.2
 ;;^UTILITY(U,$J,358.3,16778,2)
 ;;=^5004174^F02.81
 ;;^UTILITY(U,$J,358.3,16779,0)
 ;;=G91.2^^56^664^23
 ;;^UTILITY(U,$J,358.3,16779,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16779,1,3,0)
 ;;=3^NPH w/ Dementia w/o Behavioral Disturbances
 ;;^UTILITY(U,$J,358.3,16779,1,4,0)
 ;;=4^G91.2
 ;;^UTILITY(U,$J,358.3,16779,2)
 ;;=^5004174^F02.80
 ;;^UTILITY(U,$J,358.3,16780,0)
 ;;=G30.8^^56^664^5
 ;;^UTILITY(U,$J,358.3,16780,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16780,1,3,0)
 ;;=3^Alzheimer's Diseases NEC
 ;;^UTILITY(U,$J,358.3,16780,1,4,0)
 ;;=4^G30.8
 ;;^UTILITY(U,$J,358.3,16780,2)
 ;;=^5003807
 ;;^UTILITY(U,$J,358.3,16781,0)
 ;;=G31.09^^56^664^16
 ;;^UTILITY(U,$J,358.3,16781,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16781,1,3,0)
 ;;=3^Frontotemporal Dementia NEC
 ;;^UTILITY(U,$J,358.3,16781,1,4,0)
 ;;=4^G31.09
 ;;^UTILITY(U,$J,358.3,16781,2)
 ;;=^329916
 ;;^UTILITY(U,$J,358.3,16782,0)
 ;;=G20.^^56^664^24
 ;;^UTILITY(U,$J,358.3,16782,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16782,1,3,0)
 ;;=3^Parkinson's Disease w/ Dementia w/ Behavioral Disturbances
 ;;^UTILITY(U,$J,358.3,16782,1,4,0)
 ;;=4^G20.
 ;;^UTILITY(U,$J,358.3,16782,2)
 ;;=^5003770^F02.81
 ;;^UTILITY(U,$J,358.3,16783,0)
 ;;=G20.^^56^664^25
 ;;^UTILITY(U,$J,358.3,16783,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16783,1,3,0)
 ;;=3^Parkinson's Disease w/ Dementia w/o Behavioral Disturbances
 ;;^UTILITY(U,$J,358.3,16783,1,4,0)
 ;;=4^G20.
 ;;^UTILITY(U,$J,358.3,16783,2)
 ;;=^5003770^F02.80
 ;;^UTILITY(U,$J,358.3,16784,0)
 ;;=G31.01^^56^664^26
 ;;^UTILITY(U,$J,358.3,16784,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16784,1,3,0)
 ;;=3^Pick's Disease
 ;;^UTILITY(U,$J,358.3,16784,1,4,0)
 ;;=4^G31.01
 ;;^UTILITY(U,$J,358.3,16784,2)
 ;;=^329915
 ;;^UTILITY(U,$J,358.3,16785,0)
 ;;=G23.1^^56^664^28
 ;;^UTILITY(U,$J,358.3,16785,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16785,1,3,0)
 ;;=3^Progressive Supranuclear Ophthalmoplegia
 ;;^UTILITY(U,$J,358.3,16785,1,4,0)
 ;;=4^G23.1
 ;;^UTILITY(U,$J,358.3,16785,2)
 ;;=^5003780
 ;;^UTILITY(U,$J,358.3,16786,0)
 ;;=Z79.2^^56^665^1
 ;;^UTILITY(U,$J,358.3,16786,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16786,1,3,0)
 ;;=3^Antibiotics
 ;;^UTILITY(U,$J,358.3,16786,1,4,0)
 ;;=4^Z79.2
 ;;^UTILITY(U,$J,358.3,16786,2)
 ;;=^321546
 ;;^UTILITY(U,$J,358.3,16787,0)
 ;;=Z79.01^^56^665^2
 ;;^UTILITY(U,$J,358.3,16787,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16787,1,3,0)
 ;;=3^Anticoagulants
 ;;^UTILITY(U,$J,358.3,16787,1,4,0)
 ;;=4^Z79.01
 ;;^UTILITY(U,$J,358.3,16787,2)
 ;;=^5063330
 ;;^UTILITY(U,$J,358.3,16788,0)
 ;;=Z79.02^^56^665^3
 ;;^UTILITY(U,$J,358.3,16788,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16788,1,3,0)
 ;;=3^Antiplatelets/Antithrombotics
 ;;^UTILITY(U,$J,358.3,16788,1,4,0)
 ;;=4^Z79.02
 ;;^UTILITY(U,$J,358.3,16788,2)
 ;;=^5063331
 ;;^UTILITY(U,$J,358.3,16789,0)
 ;;=Z79.82^^56^665^4
 ;;^UTILITY(U,$J,358.3,16789,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16789,1,3,0)
 ;;=3^Aspirin
 ;;^UTILITY(U,$J,358.3,16789,1,4,0)
 ;;=4^Z79.82
 ;;^UTILITY(U,$J,358.3,16789,2)
 ;;=^5063340
 ;;^UTILITY(U,$J,358.3,16790,0)
 ;;=Z79.4^^56^665^6
 ;;^UTILITY(U,$J,358.3,16790,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16790,1,3,0)
 ;;=3^Insulin
 ;;^UTILITY(U,$J,358.3,16790,1,4,0)
 ;;=4^Z79.4
 ;;^UTILITY(U,$J,358.3,16790,2)
 ;;=^5063334
 ;;^UTILITY(U,$J,358.3,16791,0)
 ;;=Z79.1^^56^665^9
 ;;^UTILITY(U,$J,358.3,16791,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,16791,1,3,0)
 ;;=3^NSAID
 ;;^UTILITY(U,$J,358.3,16791,1,4,0)
 ;;=4^Z79.1