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