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

IBDEI07C.m

Go to the documentation of this file. 
  1. IBDEI07C ; ; 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,17850,1,4,0)
  1.  ;;=4^C34.91
  1.  ;;^UTILITY(U,$J,358.3,17850,2)
  1.  ;;=^5000967
  1.  ;;^UTILITY(U,$J,358.3,17851,0)
  1.  ;;=C34.92^^59^712^12
  1.  ;;^UTILITY(U,$J,358.3,17851,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17851,1,3,0)
  1.  ;;=3^Malig Neop of Left Bronchus/Lung,Unspec Part
  1.  ;;^UTILITY(U,$J,358.3,17851,1,4,0)
  1.  ;;=4^C34.92
  1.  ;;^UTILITY(U,$J,358.3,17851,2)
  1.  ;;=^5000968
  1.  ;;^UTILITY(U,$J,358.3,17852,0)
  1.  ;;=G47.33^^59^712^14
  1.  ;;^UTILITY(U,$J,358.3,17852,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17852,1,3,0)
  1.  ;;=3^Obstructive Sleep Apnea
  1.  ;;^UTILITY(U,$J,358.3,17852,1,4,0)
  1.  ;;=4^G47.33
  1.  ;;^UTILITY(U,$J,358.3,17852,2)
  1.  ;;=^332763
  1.  ;;^UTILITY(U,$J,358.3,17853,0)
  1.  ;;=J01.90^^59^712^6
  1.  ;;^UTILITY(U,$J,358.3,17853,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17853,1,3,0)
  1.  ;;=3^Acute Sinusitis,Unspec
  1.  ;;^UTILITY(U,$J,358.3,17853,1,4,0)
  1.  ;;=4^J01.90
  1.  ;;^UTILITY(U,$J,358.3,17853,2)
  1.  ;;=^5008127
  1.  ;;^UTILITY(U,$J,358.3,17854,0)
  1.  ;;=J02.9^^59^712^4
  1.  ;;^UTILITY(U,$J,358.3,17854,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17854,1,3,0)
  1.  ;;=3^Acute Pharyngitis,Unspec
  1.  ;;^UTILITY(U,$J,358.3,17854,1,4,0)
  1.  ;;=4^J02.9
  1.  ;;^UTILITY(U,$J,358.3,17854,2)
  1.  ;;=^5008130
  1.  ;;^UTILITY(U,$J,358.3,17855,0)
  1.  ;;=J06.9^^59^712^7
  1.  ;;^UTILITY(U,$J,358.3,17855,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17855,1,3,0)
  1.  ;;=3^Acute URI,Unspec
  1.  ;;^UTILITY(U,$J,358.3,17855,1,4,0)
  1.  ;;=4^J06.9
  1.  ;;^UTILITY(U,$J,358.3,17855,2)
  1.  ;;=^5008143
  1.  ;;^UTILITY(U,$J,358.3,17856,0)
  1.  ;;=J20.9^^59^712^2
  1.  ;;^UTILITY(U,$J,358.3,17856,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17856,1,3,0)
  1.  ;;=3^Acute Bronchitis,Unspec
  1.  ;;^UTILITY(U,$J,358.3,17856,1,4,0)
  1.  ;;=4^J20.9
  1.  ;;^UTILITY(U,$J,358.3,17856,2)
  1.  ;;=^5008195
  1.  ;;^UTILITY(U,$J,358.3,17857,0)
  1.  ;;=J32.9^^59^712^11
  1.  ;;^UTILITY(U,$J,358.3,17857,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17857,1,3,0)
  1.  ;;=3^Chr Sinusitis,Unspec
  1.  ;;^UTILITY(U,$J,358.3,17857,1,4,0)
  1.  ;;=4^J32.9
  1.  ;;^UTILITY(U,$J,358.3,17857,2)
  1.  ;;=^5008207
  1.  ;;^UTILITY(U,$J,358.3,17858,0)
  1.  ;;=J41.0^^59^712^9
  1.  ;;^UTILITY(U,$J,358.3,17858,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17858,1,3,0)
  1.  ;;=3^Bronchitis,Simple Chr
  1.  ;;^UTILITY(U,$J,358.3,17858,1,4,0)
  1.  ;;=4^J41.0
  1.  ;;^UTILITY(U,$J,358.3,17858,2)
  1.  ;;=^269946
  1.  ;;^UTILITY(U,$J,358.3,17859,0)
  1.  ;;=J45.909^^59^712^8
  1.  ;;^UTILITY(U,$J,358.3,17859,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17859,1,3,0)
  1.  ;;=3^Asthma,Uncomplicated,Unspec
  1.  ;;^UTILITY(U,$J,358.3,17859,1,4,0)
  1.  ;;=4^J45.909
  1.  ;;^UTILITY(U,$J,358.3,17859,2)
  1.  ;;=^5008256
  1.  ;;^UTILITY(U,$J,358.3,17860,0)
  1.  ;;=J44.9^^59^712^10
  1.  ;;^UTILITY(U,$J,358.3,17860,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17860,1,3,0)
  1.  ;;=3^COPD,Unspec
  1.  ;;^UTILITY(U,$J,358.3,17860,1,4,0)
  1.  ;;=4^J44.9
  1.  ;;^UTILITY(U,$J,358.3,17860,2)
  1.  ;;=^5008241
  1.  ;;^UTILITY(U,$J,358.3,17861,0)
  1.  ;;=J91.8^^59^712^15
  1.  ;;^UTILITY(U,$J,358.3,17861,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17861,1,3,0)
  1.  ;;=3^Pleural Effusion,Classified Elsewhere
  1.  ;;^UTILITY(U,$J,358.3,17861,1,4,0)
  1.  ;;=4^J91.8
  1.  ;;^UTILITY(U,$J,358.3,17861,2)
  1.  ;;=^5008311
  1.  ;;^UTILITY(U,$J,358.3,17862,0)
  1.  ;;=J20.8^^59^712^1
  1.  ;;^UTILITY(U,$J,358.3,17862,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17862,1,3,0)
  1.  ;;=3^Acute Bronchitis d/t Oth Spec Organisms
  1.  ;;^UTILITY(U,$J,358.3,17862,1,4,0)
  1.  ;;=4^J20.8
  1.  ;;^UTILITY(U,$J,358.3,17862,2)
  1.  ;;=^5008194
  1.  ;;^UTILITY(U,$J,358.3,17863,0)
  1.  ;;=J22.^^59^712^3
  1.  ;;^UTILITY(U,$J,358.3,17863,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17863,1,3,0)
  1.  ;;=3^Acute Lower Respiratory Infection,Unspec
  1.  ;;^UTILITY(U,$J,358.3,17863,1,4,0)
  1.  ;;=4^J22.
  1.  ;;^UTILITY(U,$J,358.3,17863,2)
  1.  ;;=^5008200
  1.  ;;^UTILITY(U,$J,358.3,17864,0)
  1.  ;;=J98.9^^59^712^5
  1.  ;;^UTILITY(U,$J,358.3,17864,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17864,1,3,0)
  1.  ;;=3^Acute Respiratory Distress Syndrome
  1.  ;;^UTILITY(U,$J,358.3,17864,1,4,0)
  1.  ;;=4^J98.9
  1.  ;;^UTILITY(U,$J,358.3,17864,2)
  1.  ;;=^5008366
  1.  ;;^UTILITY(U,$J,358.3,17865,0)
  1.  ;;=J12.89^^59^712^16
  1.  ;;^UTILITY(U,$J,358.3,17865,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17865,1,3,0)
  1.  ;;=3^Viral Pneumonia,Other
  1.  ;;^UTILITY(U,$J,358.3,17865,1,4,0)
  1.  ;;=4^J12.89
  1.  ;;^UTILITY(U,$J,358.3,17865,2)
  1.  ;;=^5008168
  1.  ;;^UTILITY(U,$J,358.3,17866,0)
  1.  ;;=F41.9^^59^713^3
  1.  ;;^UTILITY(U,$J,358.3,17866,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17866,1,3,0)
  1.  ;;=3^Anxiety Disorder,Unspec
  1.  ;;^UTILITY(U,$J,358.3,17866,1,4,0)
  1.  ;;=4^F41.9
  1.  ;;^UTILITY(U,$J,358.3,17866,2)
  1.  ;;=^5003567
  1.  ;;^UTILITY(U,$J,358.3,17867,0)
  1.  ;;=F10.20^^59^713^2
  1.  ;;^UTILITY(U,$J,358.3,17867,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17867,1,3,0)
  1.  ;;=3^Alcohol Dependence,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,17867,1,4,0)
  1.  ;;=4^F10.20
  1.  ;;^UTILITY(U,$J,358.3,17867,2)
  1.  ;;=^5003081
  1.  ;;^UTILITY(U,$J,358.3,17868,0)
  1.  ;;=F10.10^^59^713^1
  1.  ;;^UTILITY(U,$J,358.3,17868,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17868,1,3,0)
  1.  ;;=3^Alcohol Abuse,Uncomplicated
  1.  ;;^UTILITY(U,$J,358.3,17868,1,4,0)
  1.  ;;=4^F10.10
  1.  ;;^UTILITY(U,$J,358.3,17868,2)
  1.  ;;=^5003068
  1.  ;;^UTILITY(U,$J,358.3,17869,0)
  1.  ;;=F17.200^^59^713^8
  1.  ;;^UTILITY(U,$J,358.3,17869,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17869,1,3,0)
  1.  ;;=3^Nicotine Dependence,Unspec
  1.  ;;^UTILITY(U,$J,358.3,17869,1,4,0)
  1.  ;;=4^F17.200
  1.  ;;^UTILITY(U,$J,358.3,17869,2)
  1.  ;;=^5003360
  1.  ;;^UTILITY(U,$J,358.3,17870,0)
  1.  ;;=F45.41^^59^713^11
  1.  ;;^UTILITY(U,$J,358.3,17870,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17870,1,3,0)
  1.  ;;=3^Pain Disorder d/t Psychological Factors
  1.  ;;^UTILITY(U,$J,358.3,17870,1,4,0)
  1.  ;;=4^F45.41
  1.  ;;^UTILITY(U,$J,358.3,17870,2)
  1.  ;;=^5003590
  1.  ;;^UTILITY(U,$J,358.3,17871,0)
  1.  ;;=F43.10^^59^713^10
  1.  ;;^UTILITY(U,$J,358.3,17871,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17871,1,3,0)
  1.  ;;=3^PTSD,Unspec
  1.  ;;^UTILITY(U,$J,358.3,17871,1,4,0)
  1.  ;;=4^F43.10
  1.  ;;^UTILITY(U,$J,358.3,17871,2)
  1.  ;;=^5003570
  1.  ;;^UTILITY(U,$J,358.3,17872,0)
  1.  ;;=F43.12^^59^713^9
  1.  ;;^UTILITY(U,$J,358.3,17872,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17872,1,3,0)
  1.  ;;=3^PTSD,Chronic
  1.  ;;^UTILITY(U,$J,358.3,17872,1,4,0)
  1.  ;;=4^F43.12
  1.  ;;^UTILITY(U,$J,358.3,17872,2)
  1.  ;;=^5003572
  1.  ;;^UTILITY(U,$J,358.3,17873,0)
  1.  ;;=F32.9^^59^713^4
  1.  ;;^UTILITY(U,$J,358.3,17873,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17873,1,3,0)
  1.  ;;=3^MDD,Single Episode,Unspec
  1.  ;;^UTILITY(U,$J,358.3,17873,1,4,0)
  1.  ;;=4^F32.9
  1.  ;;^UTILITY(U,$J,358.3,17873,2)
  1.  ;;=^5003528
  1.  ;;^UTILITY(U,$J,358.3,17874,0)
  1.  ;;=F17.210^^59^713^6
  1.  ;;^UTILITY(U,$J,358.3,17874,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17874,1,3,0)
  1.  ;;=3^Nicotine Dependence,Cigarettes,Uncomp
  1.  ;;^UTILITY(U,$J,358.3,17874,1,4,0)
  1.  ;;=4^F17.210
  1.  ;;^UTILITY(U,$J,358.3,17874,2)
  1.  ;;=^5003365
  1.  ;;^UTILITY(U,$J,358.3,17875,0)
  1.  ;;=F17.220^^59^713^5
  1.  ;;^UTILITY(U,$J,358.3,17875,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17875,1,3,0)
  1.  ;;=3^Nicotine Dependence,Chewing Tobacco,Uncomp
  1.  ;;^UTILITY(U,$J,358.3,17875,1,4,0)
  1.  ;;=4^F17.220
  1.  ;;^UTILITY(U,$J,358.3,17875,2)
  1.  ;;=^5003370
  1.  ;;^UTILITY(U,$J,358.3,17876,0)
  1.  ;;=F17.290^^59^713^7
  1.  ;;^UTILITY(U,$J,358.3,17876,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17876,1,3,0)
  1.  ;;=3^Nicotine Dependence,Oth Tobacco Product,Uncomp
  1.  ;;^UTILITY(U,$J,358.3,17876,1,4,0)
  1.  ;;=4^F17.290
  1.  ;;^UTILITY(U,$J,358.3,17876,2)
  1.  ;;=^5003375
  1.  ;;^UTILITY(U,$J,358.3,17877,0)
  1.  ;;=R45.851^^59^714^3
  1.  ;;^UTILITY(U,$J,358.3,17877,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17877,1,3,0)
  1.  ;;=3^Suicidal Ideations
  1.  ;;^UTILITY(U,$J,358.3,17877,1,4,0)
  1.  ;;=4^R45.851
  1.  ;;^UTILITY(U,$J,358.3,17877,2)
  1.  ;;=^5019474
  1.  ;;^UTILITY(U,$J,358.3,17878,0)
  1.  ;;=T14.91XA^^59^714^4
  1.  ;;^UTILITY(U,$J,358.3,17878,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17878,1,3,0)
  1.  ;;=3^Suicide Attempt,Initial Encntr
  1.  ;;^UTILITY(U,$J,358.3,17878,1,4,0)
  1.  ;;=4^T14.91XA
  1.  ;;^UTILITY(U,$J,358.3,17878,2)
  1.  ;;=^5151779
  1.  ;;^UTILITY(U,$J,358.3,17879,0)
  1.  ;;=T14.91XD^^59^714^6
  1.  ;;^UTILITY(U,$J,358.3,17879,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17879,1,3,0)
  1.  ;;=3^Suicide Attempt,Subsequent Encntr
  1.  ;;^UTILITY(U,$J,358.3,17879,1,4,0)
  1.  ;;=4^T14.91XD
  1.  ;;^UTILITY(U,$J,358.3,17879,2)
  1.  ;;=^5151780
  1.  ;;^UTILITY(U,$J,358.3,17880,0)
  1.  ;;=T14.91XS^^59^714^5
  1.  ;;^UTILITY(U,$J,358.3,17880,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17880,1,3,0)
  1.  ;;=3^Suicide Attempt,Sequela
  1.  ;;^UTILITY(U,$J,358.3,17880,1,4,0)
  1.  ;;=4^T14.91XS
  1.  ;;^UTILITY(U,$J,358.3,17880,2)
  1.  ;;=^5151781
  1.  ;;^UTILITY(U,$J,358.3,17881,0)
  1.  ;;=Z91.52^^59^714^1
  1.  ;;^UTILITY(U,$J,358.3,17881,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17881,1,3,0)
  1.  ;;=3^Personal Hx of Non-Suicidal Self-Harm
  1.  ;;^UTILITY(U,$J,358.3,17881,1,4,0)
  1.  ;;=4^Z91.52
  1.  ;;^UTILITY(U,$J,358.3,17881,2)
  1.  ;;=^5161318
  1.  ;;^UTILITY(U,$J,358.3,17882,0)
  1.  ;;=Z91.51^^59^714^2
  1.  ;;^UTILITY(U,$J,358.3,17882,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17882,1,3,0)
  1.  ;;=3^Personal Hx of Suicidal Behavior     
  1.  ;;^UTILITY(U,$J,358.3,17882,1,4,0)
  1.  ;;=4^Z91.51
  1.  ;;^UTILITY(U,$J,358.3,17882,2)
  1.  ;;=^5161317
  1.  ;;^UTILITY(U,$J,358.3,17883,0)
  1.  ;;=Z93.52^^59^715^1
  1.  ;;^UTILITY(U,$J,358.3,17883,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17883,1,3,0)
  1.  ;;=3^Appendico-Vesicostomy Status
  1.  ;;^UTILITY(U,$J,358.3,17883,1,4,0)
  1.  ;;=4^Z93.52
  1.  ;;^UTILITY(U,$J,358.3,17883,2)
  1.  ;;=^5063649
  1.  ;;^UTILITY(U,$J,358.3,17884,0)
  1.  ;;=Z93.3^^59^715^9
  1.  ;;^UTILITY(U,$J,358.3,17884,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17884,1,3,0)
  1.  ;;=3^Colostomy Status
  1.  ;;^UTILITY(U,$J,358.3,17884,1,4,0)
  1.  ;;=4^Z93.3
  1.  ;;^UTILITY(U,$J,358.3,17884,2)
  1.  ;;=^5063645
  1.  ;;^UTILITY(U,$J,358.3,17885,0)
  1.  ;;=Z93.51^^59^715^10
  1.  ;;^UTILITY(U,$J,358.3,17885,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17885,1,3,0)
  1.  ;;=3^Cutaneous-Vesicostomy Status
  1.  ;;^UTILITY(U,$J,358.3,17885,1,4,0)
  1.  ;;=4^Z93.51
  1.  ;;^UTILITY(U,$J,358.3,17885,2)
  1.  ;;=^5063648
  1.  ;;^UTILITY(U,$J,358.3,17886,0)
  1.  ;;=Z93.1^^59^715^12
  1.  ;;^UTILITY(U,$J,358.3,17886,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17886,1,3,0)
  1.  ;;=3^Gastrostomy Status
  1.  ;;^UTILITY(U,$J,358.3,17886,1,4,0)
  1.  ;;=4^Z93.1
  1.  ;;^UTILITY(U,$J,358.3,17886,2)
  1.  ;;=^5063643
  1.  ;;^UTILITY(U,$J,358.3,17887,0)
  1.  ;;=Z93.2^^59^715^13
  1.  ;;^UTILITY(U,$J,358.3,17887,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17887,1,3,0)
  1.  ;;=3^Ileostomy Status
  1.  ;;^UTILITY(U,$J,358.3,17887,1,4,0)
  1.  ;;=4^Z93.2
  1.  ;;^UTILITY(U,$J,358.3,17887,2)
  1.  ;;=^5063644
  1.  ;;^UTILITY(U,$J,358.3,17888,0)
  1.  ;;=Z93.59^^59^715^11
  1.  ;;^UTILITY(U,$J,358.3,17888,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17888,1,3,0)
  1.  ;;=3^Cystostomy Status,Other
  1.  ;;^UTILITY(U,$J,358.3,17888,1,4,0)
  1.  ;;=4^Z93.59
  1.  ;;^UTILITY(U,$J,358.3,17888,2)
  1.  ;;=^5063650
  1.  ;;^UTILITY(U,$J,358.3,17889,0)
  1.  ;;=Z93.0^^59^715^14
  1.  ;;^UTILITY(U,$J,358.3,17889,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17889,1,3,0)
  1.  ;;=3^Tracheostomy Status
  1.  ;;^UTILITY(U,$J,358.3,17889,1,4,0)
  1.  ;;=4^Z93.0
  1.  ;;^UTILITY(U,$J,358.3,17889,2)
  1.  ;;=^5063642
  1.  ;;^UTILITY(U,$J,358.3,17890,0)
  1.  ;;=Z43.4^^59^715^2
  1.  ;;^UTILITY(U,$J,358.3,17890,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17890,1,3,0)
  1.  ;;=3^Attention to Artif Opening of Digestive Tract NEC
  1.  ;;^UTILITY(U,$J,358.3,17890,1,4,0)
  1.  ;;=4^Z43.4
  1.  ;;^UTILITY(U,$J,358.3,17890,2)
  1.  ;;=^5062962
  1.  ;;^UTILITY(U,$J,358.3,17891,0)
  1.  ;;=Z43.3^^59^715^4
  1.  ;;^UTILITY(U,$J,358.3,17891,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17891,1,3,0)
  1.  ;;=3^Attention to Colostomy
  1.  ;;^UTILITY(U,$J,358.3,17891,1,4,0)
  1.  ;;=4^Z43.3
  1.  ;;^UTILITY(U,$J,358.3,17891,2)
  1.  ;;=^5062961
  1.  ;;^UTILITY(U,$J,358.3,17892,0)
  1.  ;;=Z43.6^^59^715^3
  1.  ;;^UTILITY(U,$J,358.3,17892,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17892,1,3,0)
  1.  ;;=3^Attention to Artif Opening of Urinary Tract NEC
  1.  ;;^UTILITY(U,$J,358.3,17892,1,4,0)
  1.  ;;=4^Z43.6
  1.  ;;^UTILITY(U,$J,358.3,17892,2)
  1.  ;;=^5062964
  1.  ;;^UTILITY(U,$J,358.3,17893,0)
  1.  ;;=Z43.5^^59^715^5
  1.  ;;^UTILITY(U,$J,358.3,17893,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17893,1,3,0)
  1.  ;;=3^Attention to Cystostomy
  1.  ;;^UTILITY(U,$J,358.3,17893,1,4,0)
  1.  ;;=4^Z43.5
  1.  ;;^UTILITY(U,$J,358.3,17893,2)
  1.  ;;=^5062963
  1.  ;;^UTILITY(U,$J,358.3,17894,0)
  1.  ;;=Z43.1^^59^715^6
  1.  ;;^UTILITY(U,$J,358.3,17894,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17894,1,3,0)
  1.  ;;=3^Attention to Gastrostomy
  1.  ;;^UTILITY(U,$J,358.3,17894,1,4,0)
  1.  ;;=4^Z43.1
  1.  ;;^UTILITY(U,$J,358.3,17894,2)
  1.  ;;=^5062959
  1.  ;;^UTILITY(U,$J,358.3,17895,0)
  1.  ;;=Z43.2^^59^715^7
  1.  ;;^UTILITY(U,$J,358.3,17895,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17895,1,3,0)
  1.  ;;=3^Attention to Ileostomy
  1.  ;;^UTILITY(U,$J,358.3,17895,1,4,0)
  1.  ;;=4^Z43.2
  1.  ;;^UTILITY(U,$J,358.3,17895,2)
  1.  ;;=^5062960
  1.  ;;^UTILITY(U,$J,358.3,17896,0)
  1.  ;;=Z43.0^^59^715^8
  1.  ;;^UTILITY(U,$J,358.3,17896,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17896,1,3,0)
  1.  ;;=3^Attention to Tracheostomy
  1.  ;;^UTILITY(U,$J,358.3,17896,1,4,0)
  1.  ;;=4^Z43.0
  1.  ;;^UTILITY(U,$J,358.3,17896,2)
  1.  ;;=^5062958
  1.  ;;^UTILITY(U,$J,358.3,17897,0)
  1.  ;;=Z03.818^^59^716^2
  1.  ;;^UTILITY(U,$J,358.3,17897,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17897,1,3,0)
  1.  ;;=3^Obs Susp Expsr to Oth Biolog Agents Ruled Out
  1.  ;;^UTILITY(U,$J,358.3,17897,1,4,0)
  1.  ;;=4^Z03.818
  1.  ;;^UTILITY(U,$J,358.3,17897,2)
  1.  ;;=^5062655
  1.  ;;^UTILITY(U,$J,358.3,17898,0)
  1.  ;;=Z20.828^^59^716^1
  1.  ;;^UTILITY(U,$J,358.3,17898,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17898,1,3,0)
  1.  ;;=3^Contact w/ & Exposure to Oth Viral Communicalbe Diseases
  1.  ;;^UTILITY(U,$J,358.3,17898,1,4,0)
  1.  ;;=4^Z20.828
  1.  ;;^UTILITY(U,$J,358.3,17898,2)
  1.  ;;=^5062774
  1.  ;;^UTILITY(U,$J,358.3,17899,0)
  1.  ;;=Z11.52^^59^716^3
  1.  ;;^UTILITY(U,$J,358.3,17899,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17899,1,3,0)
  1.  ;;=3^Screening,COVID-19
  1.  ;;^UTILITY(U,$J,358.3,17899,1,4,0)
  1.  ;;=4^Z11.52
  1.  ;;^UTILITY(U,$J,358.3,17899,2)
  1.  ;;=^5160186
  1.  ;;^UTILITY(U,$J,358.3,17900,0)
  1.  ;;=Z13.6^^59^716^4
  1.  ;;^UTILITY(U,$J,358.3,17900,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17900,1,3,0)
  1.  ;;=3^Screening,Cardiovascular Disease
  1.  ;;^UTILITY(U,$J,358.3,17900,1,4,0)
  1.  ;;=4^Z13.6
  1.  ;;^UTILITY(U,$J,358.3,17900,2)
  1.  ;;=^5062707
  1.  ;;^UTILITY(U,$J,358.3,17901,0)
  1.  ;;=Z13.1^^59^716^5
  1.  ;;^UTILITY(U,$J,358.3,17901,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17901,1,3,0)
  1.  ;;=3^Screening,Diabetes Mellitus
  1.  ;;^UTILITY(U,$J,358.3,17901,1,4,0)
  1.  ;;=4^Z13.1
  1.  ;;^UTILITY(U,$J,358.3,17901,2)
  1.  ;;=^5062700
  1.  ;;^UTILITY(U,$J,358.3,17902,0)
  1.  ;;=Z13.220^^59^716^6
  1.  ;;^UTILITY(U,$J,358.3,17902,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17902,1,3,0)
  1.  ;;=3^Screening,Lipoid Disorders
  1.  ;;^UTILITY(U,$J,358.3,17902,1,4,0)
  1.  ;;=4^Z13.220
  1.  ;;^UTILITY(U,$J,358.3,17902,2)
  1.  ;;=^5062702
  1.  ;;^UTILITY(U,$J,358.3,17903,0)
  1.  ;;=Z12.39^^59^716^7
  1.  ;;^UTILITY(U,$J,358.3,17903,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17903,1,3,0)
  1.  ;;=3^Screening,Malig Neop of Breast NEC
  1.  ;;^UTILITY(U,$J,358.3,17903,1,4,0)
  1.  ;;=4^Z12.39
  1.  ;;^UTILITY(U,$J,358.3,17903,2)
  1.  ;;=^5062686
  1.  ;;^UTILITY(U,$J,358.3,17904,0)
  1.  ;;=Z12.5^^59^716^8
  1.  ;;^UTILITY(U,$J,358.3,17904,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17904,1,3,0)
  1.  ;;=3^Screening,Malig Neop of Prostate
  1.  ;;^UTILITY(U,$J,358.3,17904,1,4,0)
  1.  ;;=4^Z12.5
  1.  ;;^UTILITY(U,$J,358.3,17904,2)
  1.  ;;=^5062688
  1.  ;;^UTILITY(U,$J,358.3,17905,0)
  1.  ;;=Z12.12^^59^716^9
  1.  ;;^UTILITY(U,$J,358.3,17905,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17905,1,3,0)
  1.  ;;=3^Screening,Malig Neop of Rectum
  1.  ;;^UTILITY(U,$J,358.3,17905,1,4,0)
  1.  ;;=4^Z12.12
  1.  ;;^UTILITY(U,$J,358.3,17905,2)
  1.  ;;=^5062682
  1.  ;;^UTILITY(U,$J,358.3,17906,0)
  1.  ;;=Z11.1^^59^716^10
  1.  ;;^UTILITY(U,$J,358.3,17906,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17906,1,3,0)
  1.  ;;=3^Screening,Respiratory Tuberculosis
  1.  ;;^UTILITY(U,$J,358.3,17906,1,4,0)
  1.  ;;=4^Z11.1
  1.  ;;^UTILITY(U,$J,358.3,17906,2)
  1.  ;;=^5062670
  1.  ;;^UTILITY(U,$J,358.3,17907,0)
  1.  ;;=Z11.59^^59^716^11
  1.  ;;^UTILITY(U,$J,358.3,17907,1,0)
  1.  ;;=^358.31IA^4^2
  1.  ;;^UTILITY(U,$J,358.3,17907,1,3,0)
  1.  ;;=3^Screening,Viral Diseases NEC
  1.  ;;^UTILITY(U,$J,358.3,17907,1,4,0)
  1.  ;;=4^Z11.59
  1.  ;;^UTILITY(U,$J,358.3,17907,2)
  1.  ;;=^5062675
  1.  ;;^UTILITY(U,$J,358.3,17908,0)
  1.  ;;=G0101^^60^717^47^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17908,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17908,1,2,0)
  1.  ;;=2^G0101
  1.  ;;^UTILITY(U,$J,358.3,17908,1,3,0)
  1.  ;;=3^PELVIC EXAM
  1.  ;;^UTILITY(U,$J,358.3,17909,0)
  1.  ;;=Q0091^^60^717^46^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17909,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17909,1,2,0)
  1.  ;;=2^Q0091
  1.  ;;^UTILITY(U,$J,358.3,17909,1,3,0)
  1.  ;;=3^PAP SMEAR
  1.  ;;^UTILITY(U,$J,358.3,17910,0)
  1.  ;;=Q0111^^60^717^55^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17910,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17910,1,2,0)
  1.  ;;=2^Q0111
  1.  ;;^UTILITY(U,$J,358.3,17910,1,3,0)
  1.  ;;=3^WET MOUNTS/ W PREPARATIONS  
  1.  ;;^UTILITY(U,$J,358.3,17911,0)
  1.  ;;=58100^^60^717^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17911,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17911,1,2,0)
  1.  ;;=2^58100
  1.  ;;^UTILITY(U,$J,358.3,17911,1,3,0)
  1.  ;;=3^BX OF ENDOMETRIAL
  1.  ;;^UTILITY(U,$J,358.3,17912,0)
  1.  ;;=57500^^60^717^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17912,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17912,1,2,0)
  1.  ;;=2^57500
  1.  ;;^UTILITY(U,$J,358.3,17912,1,3,0)
  1.  ;;=3^BX OF CERVICAL
  1.  ;;^UTILITY(U,$J,358.3,17913,0)
  1.  ;;=57454^^60^717^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17913,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17913,1,2,0)
  1.  ;;=2^57454
  1.  ;;^UTILITY(U,$J,358.3,17913,1,3,0)
  1.  ;;=3^BX/CURETT OF CERVIX W/SCOPE
  1.  ;;^UTILITY(U,$J,358.3,17914,0)
  1.  ;;=56515^^60^717^19^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17914,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17914,1,2,0)
  1.  ;;=2^56515
  1.  ;;^UTILITY(U,$J,358.3,17914,1,3,0)
  1.  ;;=3^DESTROY VULVA LESION(S),COMPL
  1.  ;;^UTILITY(U,$J,358.3,17915,0)
  1.  ;;=56501^^60^717^20^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17915,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17915,1,2,0)
  1.  ;;=2^56501
  1.  ;;^UTILITY(U,$J,358.3,17915,1,3,0)
  1.  ;;=3^DESTROY VULVA LESION(S),SIMPLE
  1.  ;;^UTILITY(U,$J,358.3,17916,0)
  1.  ;;=56820^^60^717^29^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17916,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17916,1,2,0)
  1.  ;;=2^56820
  1.  ;;^UTILITY(U,$J,358.3,17916,1,3,0)
  1.  ;;=3^EXAM OF VULVA W/SCOPE
  1.  ;;^UTILITY(U,$J,358.3,17917,0)
  1.  ;;=57421^^60^717^30^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17917,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17917,1,2,0)
  1.  ;;=2^57421
  1.  ;;^UTILITY(U,$J,358.3,17917,1,3,0)
  1.  ;;=3^EXAM/BIOPSY OF VAG W/SCOPE
  1.  ;;^UTILITY(U,$J,358.3,17918,0)
  1.  ;;=56821^^60^717^31^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17918,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17918,1,2,0)
  1.  ;;=2^56821
  1.  ;;^UTILITY(U,$J,358.3,17918,1,3,0)
  1.  ;;=3^EXAM/BIOPSY OF VULVA W/SCOPE
  1.  ;;^UTILITY(U,$J,358.3,17919,0)
  1.  ;;=58300^^60^717^38^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17919,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17919,1,2,0)
  1.  ;;=2^58300
  1.  ;;^UTILITY(U,$J,358.3,17919,1,3,0)
  1.  ;;=3^INSERT INTRAUTERINE DEVICE
  1.  ;;^UTILITY(U,$J,358.3,17920,0)
  1.  ;;=57160^^60^717^40^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17920,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17920,1,2,0)
  1.  ;;=2^57160
  1.  ;;^UTILITY(U,$J,358.3,17920,1,3,0)
  1.  ;;=3^INSERT PESSARY/OTHER DEVICE
  1.  ;;^UTILITY(U,$J,358.3,17921,0)
  1.  ;;=58301^^60^717^48^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17921,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17921,1,2,0)
  1.  ;;=2^58301
  1.  ;;^UTILITY(U,$J,358.3,17921,1,3,0)
  1.  ;;=3^REMOVE INTRAUTERINE DEVICE
  1.  ;;^UTILITY(U,$J,358.3,17922,0)
  1.  ;;=57150^^60^717^53^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17922,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17922,1,2,0)
  1.  ;;=2^57150
  1.  ;;^UTILITY(U,$J,358.3,17922,1,3,0)
  1.  ;;=3^TREAT VAGINA INFECTION