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

IBDEI05R.m

Go to the documentation of this file. 
  1. IBDEI05R ; ; 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,13915,1,3,0)
  1.  ;;=3^Osteomyelitis,Acute Hematogenous,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,13915,1,4,0)
  1.  ;;=4^M86.00
  1.  ;;^UTILITY(U,$J,358.3,13915,2)
  1.  ;;=^5014497
  1.  ;;^UTILITY(U,$J,358.3,13916,0)
  1.  ;;=M86.50^^53^590^104
  1.  ;;^UTILITY(U,$J,358.3,13916,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13916,1,3,0)
  1.  ;;=3^Osteomyelitis,Chronic Hematogenous,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,13916,1,4,0)
  1.  ;;=4^M86.50
  1.  ;;^UTILITY(U,$J,358.3,13916,2)
  1.  ;;=^5014607
  1.  ;;^UTILITY(U,$J,358.3,13917,0)
  1.  ;;=M86.30^^53^590^105
  1.  ;;^UTILITY(U,$J,358.3,13917,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13917,1,3,0)
  1.  ;;=3^Osteomyelitis,Chronic Multifocal,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,13917,1,4,0)
  1.  ;;=4^M86.30
  1.  ;;^UTILITY(U,$J,358.3,13917,2)
  1.  ;;=^5014559
  1.  ;;^UTILITY(U,$J,358.3,13918,0)
  1.  ;;=M86.20^^53^590^106
  1.  ;;^UTILITY(U,$J,358.3,13918,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13918,1,3,0)
  1.  ;;=3^Osteomyelitis,Subacute,Unspec Site
  1.  ;;^UTILITY(U,$J,358.3,13918,1,4,0)
  1.  ;;=4^M86.20
  1.  ;;^UTILITY(U,$J,358.3,13918,2)
  1.  ;;=^5014535
  1.  ;;^UTILITY(U,$J,358.3,13919,0)
  1.  ;;=M86.8X9^^53^590^107
  1.  ;;^UTILITY(U,$J,358.3,13919,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13919,1,3,0)
  1.  ;;=3^Osteomyelitis,Unspec Sites
  1.  ;;^UTILITY(U,$J,358.3,13919,1,4,0)
  1.  ;;=4^M86.8X9
  1.  ;;^UTILITY(U,$J,358.3,13919,2)
  1.  ;;=^5014655
  1.  ;;^UTILITY(U,$J,358.3,13920,0)
  1.  ;;=N73.5^^53^590^110
  1.  ;;^UTILITY(U,$J,358.3,13920,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13920,1,3,0)
  1.  ;;=3^Peritonitis,Female Pelvic,Unspec
  1.  ;;^UTILITY(U,$J,358.3,13920,1,4,0)
  1.  ;;=4^N73.5
  1.  ;;^UTILITY(U,$J,358.3,13920,2)
  1.  ;;=^5015817
  1.  ;;^UTILITY(U,$J,358.3,13921,0)
  1.  ;;=M00.10^^53^590^111
  1.  ;;^UTILITY(U,$J,358.3,13921,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13921,1,3,0)
  1.  ;;=3^Pneumococcal Arthritis,Unspec Joint
  1.  ;;^UTILITY(U,$J,358.3,13921,1,4,0)
  1.  ;;=4^M00.10
  1.  ;;^UTILITY(U,$J,358.3,13921,2)
  1.  ;;=^5009621
  1.  ;;^UTILITY(U,$J,358.3,13922,0)
  1.  ;;=A92.5^^53^590^181
  1.  ;;^UTILITY(U,$J,358.3,13922,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13922,1,3,0)
  1.  ;;=3^Zika Virus Disease (Confirmed)
  1.  ;;^UTILITY(U,$J,358.3,13922,1,4,0)
  1.  ;;=4^A92.5
  1.  ;;^UTILITY(U,$J,358.3,13922,2)
  1.  ;;=^7006765
  1.  ;;^UTILITY(U,$J,358.3,13923,0)
  1.  ;;=R78.81^^53^590^7
  1.  ;;^UTILITY(U,$J,358.3,13923,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13923,1,3,0)
  1.  ;;=3^Bacteremia
  1.  ;;^UTILITY(U,$J,358.3,13923,1,4,0)
  1.  ;;=4^R78.81
  1.  ;;^UTILITY(U,$J,358.3,13923,2)
  1.  ;;=^12280
  1.  ;;^UTILITY(U,$J,358.3,13924,0)
  1.  ;;=J15.9^^53^590^113
  1.  ;;^UTILITY(U,$J,358.3,13924,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13924,1,3,0)
  1.  ;;=3^Pneumonia, Bacterial,Unspec
  1.  ;;^UTILITY(U,$J,358.3,13924,1,4,0)
  1.  ;;=4^J15.9
  1.  ;;^UTILITY(U,$J,358.3,13924,2)
  1.  ;;=^5008178
  1.  ;;^UTILITY(U,$J,358.3,13925,0)
  1.  ;;=J95.851^^53^590^118
  1.  ;;^UTILITY(U,$J,358.3,13925,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13925,1,3,0)
  1.  ;;=3^Pneumonia, Vent-Associated
  1.  ;;^UTILITY(U,$J,358.3,13925,1,4,0)
  1.  ;;=4^J95.851
  1.  ;;^UTILITY(U,$J,358.3,13925,2)
  1.  ;;=^336692
  1.  ;;^UTILITY(U,$J,358.3,13926,0)
  1.  ;;=J12.9^^53^590^119
  1.  ;;^UTILITY(U,$J,358.3,13926,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13926,1,3,0)
  1.  ;;=3^Pneumonia, Viral,Unspec
  1.  ;;^UTILITY(U,$J,358.3,13926,1,4,0)
  1.  ;;=4^J12.9
  1.  ;;^UTILITY(U,$J,358.3,13926,2)
  1.  ;;=^5008169
  1.  ;;^UTILITY(U,$J,358.3,13927,0)
  1.  ;;=J69.0^^53^590^120
  1.  ;;^UTILITY(U,$J,358.3,13927,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13927,1,3,0)
  1.  ;;=3^Pneumonitis,Aspiration,Unspec
  1.  ;;^UTILITY(U,$J,358.3,13927,1,4,0)
  1.  ;;=4^J69.0
  1.  ;;^UTILITY(U,$J,358.3,13927,2)
  1.  ;;=^5008288
  1.  ;;^UTILITY(U,$J,358.3,13928,0)
  1.  ;;=T85.79XA^^53^590^135
  1.  ;;^UTILITY(U,$J,358.3,13928,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13928,1,3,0)
  1.  ;;=3^Sepsis d/t Device,Implant or Graft,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,13928,1,4,0)
  1.  ;;=4^T85.79XA
  1.  ;;^UTILITY(U,$J,358.3,13928,2)
  1.  ;;=^5055676
  1.  ;;^UTILITY(U,$J,358.3,13929,0)
  1.  ;;=A41.9^^53^590^136
  1.  ;;^UTILITY(U,$J,358.3,13929,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13929,1,3,0)
  1.  ;;=3^Sepsis d/t Urinary Source
  1.  ;;^UTILITY(U,$J,358.3,13929,1,4,0)
  1.  ;;=4^A41.9
  1.  ;;^UTILITY(U,$J,358.3,13929,2)
  1.  ;;=^5000214^N39.0
  1.  ;;^UTILITY(U,$J,358.3,13930,0)
  1.  ;;=R65.21^^53^590^140
  1.  ;;^UTILITY(U,$J,358.3,13930,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13930,1,3,0)
  1.  ;;=3^Septic Shock d/t Severe Sepsis
  1.  ;;^UTILITY(U,$J,358.3,13930,1,4,0)
  1.  ;;=4^R65.21
  1.  ;;^UTILITY(U,$J,358.3,13930,2)
  1.  ;;=^5019548
  1.  ;;^UTILITY(U,$J,358.3,13931,0)
  1.  ;;=T83.511A^^53^590^174
  1.  ;;^UTILITY(U,$J,358.3,13931,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13931,1,3,0)
  1.  ;;=3^UTI d/t Indwelling Urethral Catheter,Init Encntr
  1.  ;;^UTILITY(U,$J,358.3,13931,1,4,0)
  1.  ;;=4^T83.511A
  1.  ;;^UTILITY(U,$J,358.3,13931,2)
  1.  ;;=^5140138
  1.  ;;^UTILITY(U,$J,358.3,13932,0)
  1.  ;;=T83.511D^^53^590^173
  1.  ;;^UTILITY(U,$J,358.3,13932,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13932,1,3,0)
  1.  ;;=3^UTI d/t Indwelling Urethral Catheter,Healing/Subs
  1.  ;;^UTILITY(U,$J,358.3,13932,1,4,0)
  1.  ;;=4^T83.511D
  1.  ;;^UTILITY(U,$J,358.3,13932,2)
  1.  ;;=^5140139
  1.  ;;^UTILITY(U,$J,358.3,13933,0)
  1.  ;;=T83.511S^^53^590^175
  1.  ;;^UTILITY(U,$J,358.3,13933,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13933,1,3,0)
  1.  ;;=3^UTI d/t Indwelling Urethral Catheter,Sequela
  1.  ;;^UTILITY(U,$J,358.3,13933,1,4,0)
  1.  ;;=4^T83.511S
  1.  ;;^UTILITY(U,$J,358.3,13933,2)
  1.  ;;=^5140140
  1.  ;;^UTILITY(U,$J,358.3,13934,0)
  1.  ;;=A04.71^^53^590^26
  1.  ;;^UTILITY(U,$J,358.3,13934,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13934,1,3,0)
  1.  ;;=3^Colitis,C. Difficile,Recurrent
  1.  ;;^UTILITY(U,$J,358.3,13934,1,4,0)
  1.  ;;=4^A04.71
  1.  ;;^UTILITY(U,$J,358.3,13934,2)
  1.  ;;=^5151291
  1.  ;;^UTILITY(U,$J,358.3,13935,0)
  1.  ;;=A04.72^^53^590^25
  1.  ;;^UTILITY(U,$J,358.3,13935,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13935,1,3,0)
  1.  ;;=3^Colitis,C. Difficile,Not Spec as Recurrent
  1.  ;;^UTILITY(U,$J,358.3,13935,1,4,0)
  1.  ;;=4^A04.72
  1.  ;;^UTILITY(U,$J,358.3,13935,2)
  1.  ;;=^5151292
  1.  ;;^UTILITY(U,$J,358.3,13936,0)
  1.  ;;=T81.40XD^^53^590^66
  1.  ;;^UTILITY(U,$J,358.3,13936,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13936,1,3,0)
  1.  ;;=3^Infect Following Proced,Unspec,Subs
  1.  ;;^UTILITY(U,$J,358.3,13936,1,4,0)
  1.  ;;=4^T81.40XD
  1.  ;;^UTILITY(U,$J,358.3,13936,2)
  1.  ;;=^5157585
  1.  ;;^UTILITY(U,$J,358.3,13937,0)
  1.  ;;=T81.40XS^^53^590^65
  1.  ;;^UTILITY(U,$J,358.3,13937,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13937,1,3,0)
  1.  ;;=3^Infect Following Proced,Unspec,Sequela
  1.  ;;^UTILITY(U,$J,358.3,13937,1,4,0)
  1.  ;;=4^T81.40XS
  1.  ;;^UTILITY(U,$J,358.3,13937,2)
  1.  ;;=^5157586
  1.  ;;^UTILITY(U,$J,358.3,13938,0)
  1.  ;;=T81.41XA^^53^590^60
  1.  ;;^UTILITY(U,$J,358.3,13938,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13938,1,3,0)
  1.  ;;=3^Infect Following Proced,Superfic Incis Surg Site,Init
  1.  ;;^UTILITY(U,$J,358.3,13938,1,4,0)
  1.  ;;=4^T81.41XA
  1.  ;;^UTILITY(U,$J,358.3,13938,2)
  1.  ;;=^5157587
  1.  ;;^UTILITY(U,$J,358.3,13939,0)
  1.  ;;=T81.41XD^^53^590^61
  1.  ;;^UTILITY(U,$J,358.3,13939,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13939,1,3,0)
  1.  ;;=3^Infect Following Proced,Superfic Incis Surg Site,Subs
  1.  ;;^UTILITY(U,$J,358.3,13939,1,4,0)
  1.  ;;=4^T81.41XD
  1.  ;;^UTILITY(U,$J,358.3,13939,2)
  1.  ;;=^5157588
  1.  ;;^UTILITY(U,$J,358.3,13940,0)
  1.  ;;=T81.42XD^^53^590^52
  1.  ;;^UTILITY(U,$J,358.3,13940,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13940,1,3,0)
  1.  ;;=3^Infect Following Proced,Deep Incis Surg Site,Subs
  1.  ;;^UTILITY(U,$J,358.3,13940,1,4,0)
  1.  ;;=4^T81.42XD
  1.  ;;^UTILITY(U,$J,358.3,13940,2)
  1.  ;;=^5157591
  1.  ;;^UTILITY(U,$J,358.3,13941,0)
  1.  ;;=T81.42XA^^53^590^51
  1.  ;;^UTILITY(U,$J,358.3,13941,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13941,1,3,0)
  1.  ;;=3^Infect Following Proced,Deep Incis Surg Site,Init
  1.  ;;^UTILITY(U,$J,358.3,13941,1,4,0)
  1.  ;;=4^T81.42XA
  1.  ;;^UTILITY(U,$J,358.3,13941,2)
  1.  ;;=^5157590
  1.  ;;^UTILITY(U,$J,358.3,13942,0)
  1.  ;;=T81.42XS^^53^590^53
  1.  ;;^UTILITY(U,$J,358.3,13942,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13942,1,3,0)
  1.  ;;=3^Infect Following Proced,Deep Incis Surg Site,Sequela
  1.  ;;^UTILITY(U,$J,358.3,13942,1,4,0)
  1.  ;;=4^T81.42XS
  1.  ;;^UTILITY(U,$J,358.3,13942,2)
  1.  ;;=^5157592
  1.  ;;^UTILITY(U,$J,358.3,13943,0)
  1.  ;;=T81.43XA^^53^590^54
  1.  ;;^UTILITY(U,$J,358.3,13943,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13943,1,3,0)
  1.  ;;=3^Infect Following Proced,Organ/Space Surg Site,Init
  1.  ;;^UTILITY(U,$J,358.3,13943,1,4,0)
  1.  ;;=4^T81.43XA
  1.  ;;^UTILITY(U,$J,358.3,13943,2)
  1.  ;;=^5157593
  1.  ;;^UTILITY(U,$J,358.3,13944,0)
  1.  ;;=T81.43XD^^53^590^55
  1.  ;;^UTILITY(U,$J,358.3,13944,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13944,1,3,0)
  1.  ;;=3^Infect Following Proced,Organ/Space Surg Site,Subs
  1.  ;;^UTILITY(U,$J,358.3,13944,1,4,0)
  1.  ;;=4^T81.43XD
  1.  ;;^UTILITY(U,$J,358.3,13944,2)
  1.  ;;=^5157594
  1.  ;;^UTILITY(U,$J,358.3,13945,0)
  1.  ;;=T81.43XS^^53^590^56
  1.  ;;^UTILITY(U,$J,358.3,13945,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13945,1,3,0)
  1.  ;;=3^Infect Following Proced,Organ/Space Surg Site,Sequela
  1.  ;;^UTILITY(U,$J,358.3,13945,1,4,0)
  1.  ;;=4^T81.43XS
  1.  ;;^UTILITY(U,$J,358.3,13945,2)
  1.  ;;=^5157595
  1.  ;;^UTILITY(U,$J,358.3,13946,0)
  1.  ;;=T81.49XA^^53^590^57
  1.  ;;^UTILITY(U,$J,358.3,13946,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13946,1,3,0)
  1.  ;;=3^Infect Following Proced,Oth Surg Site,Init
  1.  ;;^UTILITY(U,$J,358.3,13946,1,4,0)
  1.  ;;=4^T81.49XA
  1.  ;;^UTILITY(U,$J,358.3,13946,2)
  1.  ;;=^5157599
  1.  ;;^UTILITY(U,$J,358.3,13947,0)
  1.  ;;=T81.49XD^^53^590^58
  1.  ;;^UTILITY(U,$J,358.3,13947,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13947,1,3,0)
  1.  ;;=3^Infect Following Proced,Oth Surg Site,Subs
  1.  ;;^UTILITY(U,$J,358.3,13947,1,4,0)
  1.  ;;=4^T81.49XD
  1.  ;;^UTILITY(U,$J,358.3,13947,2)
  1.  ;;=^5157600
  1.  ;;^UTILITY(U,$J,358.3,13948,0)
  1.  ;;=T81.49XS^^53^590^59
  1.  ;;^UTILITY(U,$J,358.3,13948,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13948,1,3,0)
  1.  ;;=3^Infect Following Proced,Oth Surg Site,Sequela
  1.  ;;^UTILITY(U,$J,358.3,13948,1,4,0)
  1.  ;;=4^T81.49XS
  1.  ;;^UTILITY(U,$J,358.3,13948,2)
  1.  ;;=^5157601
  1.  ;;^UTILITY(U,$J,358.3,13949,0)
  1.  ;;=T81.44XA^^53^590^132
  1.  ;;^UTILITY(U,$J,358.3,13949,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13949,1,3,0)
  1.  ;;=3^Sepsis Following Proced,Init
  1.  ;;^UTILITY(U,$J,358.3,13949,1,4,0)
  1.  ;;=4^T81.44XA
  1.  ;;^UTILITY(U,$J,358.3,13949,2)
  1.  ;;=^5157596
  1.  ;;^UTILITY(U,$J,358.3,13950,0)
  1.  ;;=T81.44XD^^53^590^134
  1.  ;;^UTILITY(U,$J,358.3,13950,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13950,1,3,0)
  1.  ;;=3^Sepsis Following Proced,Subs
  1.  ;;^UTILITY(U,$J,358.3,13950,1,4,0)
  1.  ;;=4^T81.44XD
  1.  ;;^UTILITY(U,$J,358.3,13950,2)
  1.  ;;=^5157597
  1.  ;;^UTILITY(U,$J,358.3,13951,0)
  1.  ;;=T81.44XS^^53^590^133
  1.  ;;^UTILITY(U,$J,358.3,13951,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13951,1,3,0)
  1.  ;;=3^Sepsis Following Proced,Sequela
  1.  ;;^UTILITY(U,$J,358.3,13951,1,4,0)
  1.  ;;=4^T81.44XS
  1.  ;;^UTILITY(U,$J,358.3,13951,2)
  1.  ;;=^5157598
  1.  ;;^UTILITY(U,$J,358.3,13952,0)
  1.  ;;=T81.41XS^^53^590^63
  1.  ;;^UTILITY(U,$J,358.3,13952,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13952,1,3,0)
  1.  ;;=3^Infect Following Proced,Superfic Incis Surg Site,Sequela
  1.  ;;^UTILITY(U,$J,358.3,13952,1,4,0)
  1.  ;;=4^T81.41XS
  1.  ;;^UTILITY(U,$J,358.3,13952,2)
  1.  ;;=^5157589
  1.  ;;^UTILITY(U,$J,358.3,13953,0)
  1.  ;;=T81.40XA^^53^590^64
  1.  ;;^UTILITY(U,$J,358.3,13953,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13953,1,3,0)
  1.  ;;=3^Infect Following Proced,Unspec,Init
  1.  ;;^UTILITY(U,$J,358.3,13953,1,4,0)
  1.  ;;=4^T81.40XA
  1.  ;;^UTILITY(U,$J,358.3,13953,2)
  1.  ;;=^5157584
  1.  ;;^UTILITY(U,$J,358.3,13954,0)
  1.  ;;=F10.10^^53^591^7
  1.  ;;^UTILITY(U,$J,358.3,13954,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13954,1,3,0)
  1.  ;;=3^Alcohol Use Disorder,Mild
  1.  ;;^UTILITY(U,$J,358.3,13954,1,4,0)
  1.  ;;=4^F10.10
  1.  ;;^UTILITY(U,$J,358.3,13954,2)
  1.  ;;=^5003068
  1.  ;;^UTILITY(U,$J,358.3,13955,0)
  1.  ;;=F10.14^^53^591^17
  1.  ;;^UTILITY(U,$J,358.3,13955,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13955,1,3,0)
  1.  ;;=3^Alcohol-Induced Bipolar & Related Disorder/Depressive Disorder w/ Mild Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,13955,1,4,0)
  1.  ;;=4^F10.14
  1.  ;;^UTILITY(U,$J,358.3,13955,2)
  1.  ;;=^5003072
  1.  ;;^UTILITY(U,$J,358.3,13956,0)
  1.  ;;=F10.182^^53^591^19
  1.  ;;^UTILITY(U,$J,358.3,13956,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13956,1,3,0)
  1.  ;;=3^Alcohol-Induced Sleep Disorder w/ Mild Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,13956,1,4,0)
  1.  ;;=4^F10.182
  1.  ;;^UTILITY(U,$J,358.3,13956,2)
  1.  ;;=^5003078
  1.  ;;^UTILITY(U,$J,358.3,13957,0)
  1.  ;;=F10.20^^53^591^8
  1.  ;;^UTILITY(U,$J,358.3,13957,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13957,1,3,0)
  1.  ;;=3^Alcohol Use Disorder,Moderate-Severe
  1.  ;;^UTILITY(U,$J,358.3,13957,1,4,0)
  1.  ;;=4^F10.20
  1.  ;;^UTILITY(U,$J,358.3,13957,2)
  1.  ;;=^5003081
  1.  ;;^UTILITY(U,$J,358.3,13958,0)
  1.  ;;=F10.21^^53^591^9
  1.  ;;^UTILITY(U,$J,358.3,13958,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13958,1,3,0)
  1.  ;;=3^Alcohol Use Disorder,Moderate-Severe In Remission
  1.  ;;^UTILITY(U,$J,358.3,13958,1,4,0)
  1.  ;;=4^F10.21
  1.  ;;^UTILITY(U,$J,358.3,13958,2)
  1.  ;;=^5003082
  1.  ;;^UTILITY(U,$J,358.3,13959,0)
  1.  ;;=F10.230^^53^591^10
  1.  ;;^UTILITY(U,$J,358.3,13959,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13959,1,3,0)
  1.  ;;=3^Alcohol Use Disorder,Moderate-Severe w/ Withdrawal
  1.  ;;^UTILITY(U,$J,358.3,13959,1,4,0)
  1.  ;;=4^F10.230
  1.  ;;^UTILITY(U,$J,358.3,13959,2)
  1.  ;;=^5003086
  1.  ;;^UTILITY(U,$J,358.3,13960,0)
  1.  ;;=F10.231^^53^591^11
  1.  ;;^UTILITY(U,$J,358.3,13960,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13960,1,3,0)
  1.  ;;=3^Alcohol Use Disorder,Moderate-Severe w/ Withdrawal Delirium
  1.  ;;^UTILITY(U,$J,358.3,13960,1,4,0)
  1.  ;;=4^F10.231
  1.  ;;^UTILITY(U,$J,358.3,13960,2)
  1.  ;;=^5003087
  1.  ;;^UTILITY(U,$J,358.3,13961,0)
  1.  ;;=F10.232^^53^591^12
  1.  ;;^UTILITY(U,$J,358.3,13961,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13961,1,3,0)
  1.  ;;=3^Alcohol Use Disorder,Moderate-Severe w/ Withdrawal Perceptual Disturbances
  1.  ;;^UTILITY(U,$J,358.3,13961,1,4,0)
  1.  ;;=4^F10.232
  1.  ;;^UTILITY(U,$J,358.3,13961,2)
  1.  ;;=^5003088
  1.  ;;^UTILITY(U,$J,358.3,13962,0)
  1.  ;;=F10.239^^53^591^6
  1.  ;;^UTILITY(U,$J,358.3,13962,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13962,1,3,0)
  1.  ;;=3^Alcohol Dependence w/ Withdrawal,Unspec
  1.  ;;^UTILITY(U,$J,358.3,13962,1,4,0)
  1.  ;;=4^F10.239
  1.  ;;^UTILITY(U,$J,358.3,13962,2)
  1.  ;;=^5003089
  1.  ;;^UTILITY(U,$J,358.3,13963,0)
  1.  ;;=F10.24^^53^591^18
  1.  ;;^UTILITY(U,$J,358.3,13963,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13963,1,3,0)
  1.  ;;=3^Alcohol-Induced Depressive & Related Disorder w/ Moderate-Severe Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,13963,1,4,0)
  1.  ;;=4^F10.24
  1.  ;;^UTILITY(U,$J,358.3,13963,2)
  1.  ;;=^5003090
  1.  ;;^UTILITY(U,$J,358.3,13964,0)
  1.  ;;=F10.29^^53^591^20
  1.  ;;^UTILITY(U,$J,358.3,13964,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13964,1,3,0)
  1.  ;;=3^Alcohol-Related Disorder,Unspec
  1.  ;;^UTILITY(U,$J,358.3,13964,1,4,0)
  1.  ;;=4^F10.29
  1.  ;;^UTILITY(U,$J,358.3,13964,2)
  1.  ;;=^5003100
  1.  ;;^UTILITY(U,$J,358.3,13965,0)
  1.  ;;=F10.11^^53^591^5
  1.  ;;^UTILITY(U,$J,358.3,13965,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13965,1,3,0)
  1.  ;;=3^Alcohol Abuse,In Remission
  1.  ;;^UTILITY(U,$J,358.3,13965,1,4,0)
  1.  ;;=4^F10.11
  1.  ;;^UTILITY(U,$J,358.3,13965,2)
  1.  ;;=^268230
  1.  ;;^UTILITY(U,$J,358.3,13966,0)
  1.  ;;=F10.130^^53^591^3
  1.  ;;^UTILITY(U,$J,358.3,13966,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13966,1,3,0)
  1.  ;;=3^Alcohol Abuse w/ Withdrawal,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,13966,1,4,0)
  1.  ;;=4^F10.130
  1.  ;;^UTILITY(U,$J,358.3,13966,2)
  1.  ;;=^5159130
  1.  ;;^UTILITY(U,$J,358.3,13967,0)
  1.  ;;=F10.131^^53^591^1
  1.  ;;^UTILITY(U,$J,358.3,13967,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13967,1,3,0)
  1.  ;;=3^Alcohol Abuse w/ Withdrawal Delirium
  1.  ;;^UTILITY(U,$J,358.3,13967,1,4,0)
  1.  ;;=4^F10.131
  1.  ;;^UTILITY(U,$J,358.3,13967,2)
  1.  ;;=^5159131
  1.  ;;^UTILITY(U,$J,358.3,13968,0)
  1.  ;;=F10.132^^53^591^2
  1.  ;;^UTILITY(U,$J,358.3,13968,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13968,1,3,0)
  1.  ;;=3^Alcohol Abuse w/ Withdrawal Perceptual Disturbance
  1.  ;;^UTILITY(U,$J,358.3,13968,1,4,0)
  1.  ;;=4^F10.132
  1.  ;;^UTILITY(U,$J,358.3,13968,2)
  1.  ;;=^5159132
  1.  ;;^UTILITY(U,$J,358.3,13969,0)
  1.  ;;=F10.139^^53^591^4
  1.  ;;^UTILITY(U,$J,358.3,13969,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13969,1,3,0)
  1.  ;;=3^Alcohol Abuse w/ Withdrawal,Unspec
  1.  ;;^UTILITY(U,$J,358.3,13969,1,4,0)
  1.  ;;=4^F10.139
  1.  ;;^UTILITY(U,$J,358.3,13969,2)
  1.  ;;=^5159133
  1.  ;;^UTILITY(U,$J,358.3,13970,0)
  1.  ;;=F10.930^^53^591^15
  1.  ;;^UTILITY(U,$J,358.3,13970,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13970,1,3,0)
  1.  ;;=3^Alcohol Use,Unspec w/ Withdrawal,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,13970,1,4,0)
  1.  ;;=4^F10.930
  1.  ;;^UTILITY(U,$J,358.3,13970,2)
  1.  ;;=^5159134
  1.  ;;^UTILITY(U,$J,358.3,13971,0)
  1.  ;;=F10.931^^53^591^13
  1.  ;;^UTILITY(U,$J,358.3,13971,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13971,1,3,0)
  1.  ;;=3^Alcohol Use,Unspec w/ Withdrawal,Delirium
  1.  ;;^UTILITY(U,$J,358.3,13971,1,4,0)
  1.  ;;=4^F10.931
  1.  ;;^UTILITY(U,$J,358.3,13971,2)
  1.  ;;=^5159135
  1.  ;;^UTILITY(U,$J,358.3,13972,0)
  1.  ;;=F10.932^^53^591^14
  1.  ;;^UTILITY(U,$J,358.3,13972,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13972,1,3,0)
  1.  ;;=3^Alcohol Use,Unspec w/ Withdrawal,Perceptual Disturbances
  1.  ;;^UTILITY(U,$J,358.3,13972,1,4,0)
  1.  ;;=4^F10.932
  1.  ;;^UTILITY(U,$J,358.3,13972,2)
  1.  ;;=^5159136
  1.  ;;^UTILITY(U,$J,358.3,13973,0)
  1.  ;;=F10.939^^53^591^16
  1.  ;;^UTILITY(U,$J,358.3,13973,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13973,1,3,0)
  1.  ;;=3^Alcohol Use,Unspec w/ Withdrawal,Unspec
  1.  ;;^UTILITY(U,$J,358.3,13973,1,4,0)
  1.  ;;=4^F10.939
  1.  ;;^UTILITY(U,$J,358.3,13973,2)
  1.  ;;=^5159137
  1.  ;;^UTILITY(U,$J,358.3,13974,0)
  1.  ;;=F15.10^^53^592^5
  1.  ;;^UTILITY(U,$J,358.3,13974,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13974,1,3,0)
  1.  ;;=3^Amphetamine-Type Disorder,Mild
  1.  ;;^UTILITY(U,$J,358.3,13974,1,4,0)
  1.  ;;=4^F15.10
  1.  ;;^UTILITY(U,$J,358.3,13974,2)
  1.  ;;=^5003282
  1.  ;;^UTILITY(U,$J,358.3,13975,0)
  1.  ;;=F15.14^^53^592^3
  1.  ;;^UTILITY(U,$J,358.3,13975,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13975,1,3,0)
  1.  ;;=3^Amphetamine-Induced Depressive,Bipolar & Related Disorder w/ Mild Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,13975,1,4,0)
  1.  ;;=4^F15.14
  1.  ;;^UTILITY(U,$J,358.3,13975,2)
  1.  ;;=^5003287
  1.  ;;^UTILITY(U,$J,358.3,13976,0)
  1.  ;;=F15.182^^53^592^4
  1.  ;;^UTILITY(U,$J,358.3,13976,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13976,1,3,0)
  1.  ;;=3^Amphetamine-Induced Sleep Disorder w/ Mild Use Disorder
  1.  ;;^UTILITY(U,$J,358.3,13976,1,4,0)
  1.  ;;=4^F15.182
  1.  ;;^UTILITY(U,$J,358.3,13976,2)
  1.  ;;=^5003293
  1.  ;;^UTILITY(U,$J,358.3,13977,0)
  1.  ;;=F15.20^^53^592^6
  1.  ;;^UTILITY(U,$J,358.3,13977,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13977,1,3,0)
  1.  ;;=3^Amphetamine-Type Disorder,Moderate-Severe
  1.  ;;^UTILITY(U,$J,358.3,13977,1,4,0)
  1.  ;;=4^F15.20
  1.  ;;^UTILITY(U,$J,358.3,13977,2)
  1.  ;;=^5003295
  1.  ;;^UTILITY(U,$J,358.3,13978,0)
  1.  ;;=F15.21^^53^592^7
  1.  ;;^UTILITY(U,$J,358.3,13978,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13978,1,3,0)
  1.  ;;=3^Amphetamine-Type Disorder,Moderate-Severe In Remission
  1.  ;;^UTILITY(U,$J,358.3,13978,1,4,0)
  1.  ;;=4^F15.21
  1.  ;;^UTILITY(U,$J,358.3,13978,2)
  1.  ;;=^5003296
  1.  ;;^UTILITY(U,$J,358.3,13979,0)
  1.  ;;=F15.23^^53^592^2
  1.  ;;^UTILITY(U,$J,358.3,13979,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13979,1,3,0)
  1.  ;;=3^Amphetamine or Other Stimulant Withdrawal
  1.  ;;^UTILITY(U,$J,358.3,13979,1,4,0)
  1.  ;;=4^F15.23
  1.  ;;^UTILITY(U,$J,358.3,13979,2)
  1.  ;;=^5003301
  1.  ;;^UTILITY(U,$J,358.3,13980,0)
  1.  ;;=F15.11^^53^592^1
  1.  ;;^UTILITY(U,$J,358.3,13980,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,13980,1,3,0)
  1.  ;;=3^Amphetamine or Other Stimulalant Abuse,In Remission
  1.  ;;^UTILITY(U,$J,358.3,13980,1,4,0)
  1.  ;;=4^F15.11
  1.  ;;^UTILITY(U,$J,358.3,13980,2)
  1.  ;;=^5151304