IBDEI07C ; ; 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,17850,1,4,0)
;;=4^C34.91
;;^UTILITY(U,$J,358.3,17850,2)
;;=^5000967
;;^UTILITY(U,$J,358.3,17851,0)
;;=C34.92^^59^712^12
;;^UTILITY(U,$J,358.3,17851,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17851,1,3,0)
;;=3^Malig Neop of Left Bronchus/Lung,Unspec Part
;;^UTILITY(U,$J,358.3,17851,1,4,0)
;;=4^C34.92
;;^UTILITY(U,$J,358.3,17851,2)
;;=^5000968
;;^UTILITY(U,$J,358.3,17852,0)
;;=G47.33^^59^712^14
;;^UTILITY(U,$J,358.3,17852,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17852,1,3,0)
;;=3^Obstructive Sleep Apnea
;;^UTILITY(U,$J,358.3,17852,1,4,0)
;;=4^G47.33
;;^UTILITY(U,$J,358.3,17852,2)
;;=^332763
;;^UTILITY(U,$J,358.3,17853,0)
;;=J01.90^^59^712^6
;;^UTILITY(U,$J,358.3,17853,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17853,1,3,0)
;;=3^Acute Sinusitis,Unspec
;;^UTILITY(U,$J,358.3,17853,1,4,0)
;;=4^J01.90
;;^UTILITY(U,$J,358.3,17853,2)
;;=^5008127
;;^UTILITY(U,$J,358.3,17854,0)
;;=J02.9^^59^712^4
;;^UTILITY(U,$J,358.3,17854,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17854,1,3,0)
;;=3^Acute Pharyngitis,Unspec
;;^UTILITY(U,$J,358.3,17854,1,4,0)
;;=4^J02.9
;;^UTILITY(U,$J,358.3,17854,2)
;;=^5008130
;;^UTILITY(U,$J,358.3,17855,0)
;;=J06.9^^59^712^7
;;^UTILITY(U,$J,358.3,17855,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17855,1,3,0)
;;=3^Acute URI,Unspec
;;^UTILITY(U,$J,358.3,17855,1,4,0)
;;=4^J06.9
;;^UTILITY(U,$J,358.3,17855,2)
;;=^5008143
;;^UTILITY(U,$J,358.3,17856,0)
;;=J20.9^^59^712^2
;;^UTILITY(U,$J,358.3,17856,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17856,1,3,0)
;;=3^Acute Bronchitis,Unspec
;;^UTILITY(U,$J,358.3,17856,1,4,0)
;;=4^J20.9
;;^UTILITY(U,$J,358.3,17856,2)
;;=^5008195
;;^UTILITY(U,$J,358.3,17857,0)
;;=J32.9^^59^712^11
;;^UTILITY(U,$J,358.3,17857,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17857,1,3,0)
;;=3^Chr Sinusitis,Unspec
;;^UTILITY(U,$J,358.3,17857,1,4,0)
;;=4^J32.9
;;^UTILITY(U,$J,358.3,17857,2)
;;=^5008207
;;^UTILITY(U,$J,358.3,17858,0)
;;=J41.0^^59^712^9
;;^UTILITY(U,$J,358.3,17858,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17858,1,3,0)
;;=3^Bronchitis,Simple Chr
;;^UTILITY(U,$J,358.3,17858,1,4,0)
;;=4^J41.0
;;^UTILITY(U,$J,358.3,17858,2)
;;=^269946
;;^UTILITY(U,$J,358.3,17859,0)
;;=J45.909^^59^712^8
;;^UTILITY(U,$J,358.3,17859,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17859,1,3,0)
;;=3^Asthma,Uncomplicated,Unspec
;;^UTILITY(U,$J,358.3,17859,1,4,0)
;;=4^J45.909
;;^UTILITY(U,$J,358.3,17859,2)
;;=^5008256
;;^UTILITY(U,$J,358.3,17860,0)
;;=J44.9^^59^712^10
;;^UTILITY(U,$J,358.3,17860,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17860,1,3,0)
;;=3^COPD,Unspec
;;^UTILITY(U,$J,358.3,17860,1,4,0)
;;=4^J44.9
;;^UTILITY(U,$J,358.3,17860,2)
;;=^5008241
;;^UTILITY(U,$J,358.3,17861,0)
;;=J91.8^^59^712^15
;;^UTILITY(U,$J,358.3,17861,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17861,1,3,0)
;;=3^Pleural Effusion,Classified Elsewhere
;;^UTILITY(U,$J,358.3,17861,1,4,0)
;;=4^J91.8
;;^UTILITY(U,$J,358.3,17861,2)
;;=^5008311
;;^UTILITY(U,$J,358.3,17862,0)
;;=J20.8^^59^712^1
;;^UTILITY(U,$J,358.3,17862,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17862,1,3,0)
;;=3^Acute Bronchitis d/t Oth Spec Organisms
;;^UTILITY(U,$J,358.3,17862,1,4,0)
;;=4^J20.8
;;^UTILITY(U,$J,358.3,17862,2)
;;=^5008194
;;^UTILITY(U,$J,358.3,17863,0)
;;=J22.^^59^712^3
;;^UTILITY(U,$J,358.3,17863,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17863,1,3,0)
;;=3^Acute Lower Respiratory Infection,Unspec
;;^UTILITY(U,$J,358.3,17863,1,4,0)
;;=4^J22.
;;^UTILITY(U,$J,358.3,17863,2)
;;=^5008200
;;^UTILITY(U,$J,358.3,17864,0)
;;=J98.9^^59^712^5
;;^UTILITY(U,$J,358.3,17864,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17864,1,3,0)
;;=3^Acute Respiratory Distress Syndrome
;;^UTILITY(U,$J,358.3,17864,1,4,0)
;;=4^J98.9
;;^UTILITY(U,$J,358.3,17864,2)
;;=^5008366
;;^UTILITY(U,$J,358.3,17865,0)
;;=J12.89^^59^712^16
;;^UTILITY(U,$J,358.3,17865,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17865,1,3,0)
;;=3^Viral Pneumonia,Other
;;^UTILITY(U,$J,358.3,17865,1,4,0)
;;=4^J12.89
;;^UTILITY(U,$J,358.3,17865,2)
;;=^5008168
;;^UTILITY(U,$J,358.3,17866,0)
;;=F41.9^^59^713^3
;;^UTILITY(U,$J,358.3,17866,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17866,1,3,0)
;;=3^Anxiety Disorder,Unspec
;;^UTILITY(U,$J,358.3,17866,1,4,0)
;;=4^F41.9
;;^UTILITY(U,$J,358.3,17866,2)
;;=^5003567
;;^UTILITY(U,$J,358.3,17867,0)
;;=F10.20^^59^713^2
;;^UTILITY(U,$J,358.3,17867,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17867,1,3,0)
;;=3^Alcohol Dependence,Uncomplicated
;;^UTILITY(U,$J,358.3,17867,1,4,0)
;;=4^F10.20
;;^UTILITY(U,$J,358.3,17867,2)
;;=^5003081
;;^UTILITY(U,$J,358.3,17868,0)
;;=F10.10^^59^713^1
;;^UTILITY(U,$J,358.3,17868,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17868,1,3,0)
;;=3^Alcohol Abuse,Uncomplicated
;;^UTILITY(U,$J,358.3,17868,1,4,0)
;;=4^F10.10
;;^UTILITY(U,$J,358.3,17868,2)
;;=^5003068
;;^UTILITY(U,$J,358.3,17869,0)
;;=F17.200^^59^713^8
;;^UTILITY(U,$J,358.3,17869,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17869,1,3,0)
;;=3^Nicotine Dependence,Unspec
;;^UTILITY(U,$J,358.3,17869,1,4,0)
;;=4^F17.200
;;^UTILITY(U,$J,358.3,17869,2)
;;=^5003360
;;^UTILITY(U,$J,358.3,17870,0)
;;=F45.41^^59^713^11
;;^UTILITY(U,$J,358.3,17870,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17870,1,3,0)
;;=3^Pain Disorder d/t Psychological Factors
;;^UTILITY(U,$J,358.3,17870,1,4,0)
;;=4^F45.41
;;^UTILITY(U,$J,358.3,17870,2)
;;=^5003590
;;^UTILITY(U,$J,358.3,17871,0)
;;=F43.10^^59^713^10
;;^UTILITY(U,$J,358.3,17871,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17871,1,3,0)
;;=3^PTSD,Unspec
;;^UTILITY(U,$J,358.3,17871,1,4,0)
;;=4^F43.10
;;^UTILITY(U,$J,358.3,17871,2)
;;=^5003570
;;^UTILITY(U,$J,358.3,17872,0)
;;=F43.12^^59^713^9
;;^UTILITY(U,$J,358.3,17872,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17872,1,3,0)
;;=3^PTSD,Chronic
;;^UTILITY(U,$J,358.3,17872,1,4,0)
;;=4^F43.12
;;^UTILITY(U,$J,358.3,17872,2)
;;=^5003572
;;^UTILITY(U,$J,358.3,17873,0)
;;=F32.9^^59^713^4
;;^UTILITY(U,$J,358.3,17873,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17873,1,3,0)
;;=3^MDD,Single Episode,Unspec
;;^UTILITY(U,$J,358.3,17873,1,4,0)
;;=4^F32.9
;;^UTILITY(U,$J,358.3,17873,2)
;;=^5003528
;;^UTILITY(U,$J,358.3,17874,0)
;;=F17.210^^59^713^6
;;^UTILITY(U,$J,358.3,17874,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17874,1,3,0)
;;=3^Nicotine Dependence,Cigarettes,Uncomp
;;^UTILITY(U,$J,358.3,17874,1,4,0)
;;=4^F17.210
;;^UTILITY(U,$J,358.3,17874,2)
;;=^5003365
;;^UTILITY(U,$J,358.3,17875,0)
;;=F17.220^^59^713^5
;;^UTILITY(U,$J,358.3,17875,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17875,1,3,0)
;;=3^Nicotine Dependence,Chewing Tobacco,Uncomp
;;^UTILITY(U,$J,358.3,17875,1,4,0)
;;=4^F17.220
;;^UTILITY(U,$J,358.3,17875,2)
;;=^5003370
;;^UTILITY(U,$J,358.3,17876,0)
;;=F17.290^^59^713^7
;;^UTILITY(U,$J,358.3,17876,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17876,1,3,0)
;;=3^Nicotine Dependence,Oth Tobacco Product,Uncomp
;;^UTILITY(U,$J,358.3,17876,1,4,0)
;;=4^F17.290
;;^UTILITY(U,$J,358.3,17876,2)
;;=^5003375
;;^UTILITY(U,$J,358.3,17877,0)
;;=R45.851^^59^714^3
;;^UTILITY(U,$J,358.3,17877,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17877,1,3,0)
;;=3^Suicidal Ideations
;;^UTILITY(U,$J,358.3,17877,1,4,0)
;;=4^R45.851
;;^UTILITY(U,$J,358.3,17877,2)
;;=^5019474
;;^UTILITY(U,$J,358.3,17878,0)
;;=T14.91XA^^59^714^4
;;^UTILITY(U,$J,358.3,17878,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17878,1,3,0)
;;=3^Suicide Attempt,Initial Encntr
;;^UTILITY(U,$J,358.3,17878,1,4,0)
;;=4^T14.91XA
;;^UTILITY(U,$J,358.3,17878,2)
;;=^5151779
;;^UTILITY(U,$J,358.3,17879,0)
;;=T14.91XD^^59^714^6
;;^UTILITY(U,$J,358.3,17879,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17879,1,3,0)
;;=3^Suicide Attempt,Subsequent Encntr
;;^UTILITY(U,$J,358.3,17879,1,4,0)
;;=4^T14.91XD
;;^UTILITY(U,$J,358.3,17879,2)
;;=^5151780
;;^UTILITY(U,$J,358.3,17880,0)
;;=T14.91XS^^59^714^5
;;^UTILITY(U,$J,358.3,17880,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17880,1,3,0)
;;=3^Suicide Attempt,Sequela
;;^UTILITY(U,$J,358.3,17880,1,4,0)
;;=4^T14.91XS
;;^UTILITY(U,$J,358.3,17880,2)
;;=^5151781
;;^UTILITY(U,$J,358.3,17881,0)
;;=Z91.52^^59^714^1
;;^UTILITY(U,$J,358.3,17881,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17881,1,3,0)
;;=3^Personal Hx of Non-Suicidal Self-Harm
;;^UTILITY(U,$J,358.3,17881,1,4,0)
;;=4^Z91.52
;;^UTILITY(U,$J,358.3,17881,2)
;;=^5161318
;;^UTILITY(U,$J,358.3,17882,0)
;;=Z91.51^^59^714^2
;;^UTILITY(U,$J,358.3,17882,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17882,1,3,0)
;;=3^Personal Hx of Suicidal Behavior
;;^UTILITY(U,$J,358.3,17882,1,4,0)
;;=4^Z91.51
;;^UTILITY(U,$J,358.3,17882,2)
;;=^5161317
;;^UTILITY(U,$J,358.3,17883,0)
;;=Z93.52^^59^715^1
;;^UTILITY(U,$J,358.3,17883,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17883,1,3,0)
;;=3^Appendico-Vesicostomy Status
;;^UTILITY(U,$J,358.3,17883,1,4,0)
;;=4^Z93.52
;;^UTILITY(U,$J,358.3,17883,2)
;;=^5063649
;;^UTILITY(U,$J,358.3,17884,0)
;;=Z93.3^^59^715^9
;;^UTILITY(U,$J,358.3,17884,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17884,1,3,0)
;;=3^Colostomy Status
;;^UTILITY(U,$J,358.3,17884,1,4,0)
;;=4^Z93.3
;;^UTILITY(U,$J,358.3,17884,2)
;;=^5063645
;;^UTILITY(U,$J,358.3,17885,0)
;;=Z93.51^^59^715^10
;;^UTILITY(U,$J,358.3,17885,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17885,1,3,0)
;;=3^Cutaneous-Vesicostomy Status
;;^UTILITY(U,$J,358.3,17885,1,4,0)
;;=4^Z93.51
;;^UTILITY(U,$J,358.3,17885,2)
;;=^5063648
;;^UTILITY(U,$J,358.3,17886,0)
;;=Z93.1^^59^715^12
;;^UTILITY(U,$J,358.3,17886,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17886,1,3,0)
;;=3^Gastrostomy Status
;;^UTILITY(U,$J,358.3,17886,1,4,0)
;;=4^Z93.1
;;^UTILITY(U,$J,358.3,17886,2)
;;=^5063643
;;^UTILITY(U,$J,358.3,17887,0)
;;=Z93.2^^59^715^13
;;^UTILITY(U,$J,358.3,17887,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17887,1,3,0)
;;=3^Ileostomy Status
;;^UTILITY(U,$J,358.3,17887,1,4,0)
;;=4^Z93.2
;;^UTILITY(U,$J,358.3,17887,2)
;;=^5063644
;;^UTILITY(U,$J,358.3,17888,0)
;;=Z93.59^^59^715^11
;;^UTILITY(U,$J,358.3,17888,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17888,1,3,0)
;;=3^Cystostomy Status,Other
;;^UTILITY(U,$J,358.3,17888,1,4,0)
;;=4^Z93.59
;;^UTILITY(U,$J,358.3,17888,2)
;;=^5063650
;;^UTILITY(U,$J,358.3,17889,0)
;;=Z93.0^^59^715^14
;;^UTILITY(U,$J,358.3,17889,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17889,1,3,0)
;;=3^Tracheostomy Status
;;^UTILITY(U,$J,358.3,17889,1,4,0)
;;=4^Z93.0
;;^UTILITY(U,$J,358.3,17889,2)
;;=^5063642
;;^UTILITY(U,$J,358.3,17890,0)
;;=Z43.4^^59^715^2
;;^UTILITY(U,$J,358.3,17890,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17890,1,3,0)
;;=3^Attention to Artif Opening of Digestive Tract NEC
;;^UTILITY(U,$J,358.3,17890,1,4,0)
;;=4^Z43.4
;;^UTILITY(U,$J,358.3,17890,2)
;;=^5062962
;;^UTILITY(U,$J,358.3,17891,0)
;;=Z43.3^^59^715^4
;;^UTILITY(U,$J,358.3,17891,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17891,1,3,0)
;;=3^Attention to Colostomy
;;^UTILITY(U,$J,358.3,17891,1,4,0)
;;=4^Z43.3
;;^UTILITY(U,$J,358.3,17891,2)
;;=^5062961
;;^UTILITY(U,$J,358.3,17892,0)
;;=Z43.6^^59^715^3
;;^UTILITY(U,$J,358.3,17892,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17892,1,3,0)
;;=3^Attention to Artif Opening of Urinary Tract NEC
;;^UTILITY(U,$J,358.3,17892,1,4,0)
;;=4^Z43.6
;;^UTILITY(U,$J,358.3,17892,2)
;;=^5062964
;;^UTILITY(U,$J,358.3,17893,0)
;;=Z43.5^^59^715^5
;;^UTILITY(U,$J,358.3,17893,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17893,1,3,0)
;;=3^Attention to Cystostomy
;;^UTILITY(U,$J,358.3,17893,1,4,0)
;;=4^Z43.5
;;^UTILITY(U,$J,358.3,17893,2)
;;=^5062963
;;^UTILITY(U,$J,358.3,17894,0)
;;=Z43.1^^59^715^6
;;^UTILITY(U,$J,358.3,17894,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17894,1,3,0)
;;=3^Attention to Gastrostomy
;;^UTILITY(U,$J,358.3,17894,1,4,0)
;;=4^Z43.1
;;^UTILITY(U,$J,358.3,17894,2)
;;=^5062959
;;^UTILITY(U,$J,358.3,17895,0)
;;=Z43.2^^59^715^7
;;^UTILITY(U,$J,358.3,17895,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17895,1,3,0)
;;=3^Attention to Ileostomy
;;^UTILITY(U,$J,358.3,17895,1,4,0)
;;=4^Z43.2
;;^UTILITY(U,$J,358.3,17895,2)
;;=^5062960
;;^UTILITY(U,$J,358.3,17896,0)
;;=Z43.0^^59^715^8
;;^UTILITY(U,$J,358.3,17896,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17896,1,3,0)
;;=3^Attention to Tracheostomy
;;^UTILITY(U,$J,358.3,17896,1,4,0)
;;=4^Z43.0
;;^UTILITY(U,$J,358.3,17896,2)
;;=^5062958
;;^UTILITY(U,$J,358.3,17897,0)
;;=Z03.818^^59^716^2
;;^UTILITY(U,$J,358.3,17897,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17897,1,3,0)
;;=3^Obs Susp Expsr to Oth Biolog Agents Ruled Out
;;^UTILITY(U,$J,358.3,17897,1,4,0)
;;=4^Z03.818
;;^UTILITY(U,$J,358.3,17897,2)
;;=^5062655
;;^UTILITY(U,$J,358.3,17898,0)
;;=Z20.828^^59^716^1
;;^UTILITY(U,$J,358.3,17898,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17898,1,3,0)
;;=3^Contact w/ & Exposure to Oth Viral Communicalbe Diseases
;;^UTILITY(U,$J,358.3,17898,1,4,0)
;;=4^Z20.828
;;^UTILITY(U,$J,358.3,17898,2)
;;=^5062774
;;^UTILITY(U,$J,358.3,17899,0)
;;=Z11.52^^59^716^3
;;^UTILITY(U,$J,358.3,17899,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17899,1,3,0)
;;=3^Screening,COVID-19
;;^UTILITY(U,$J,358.3,17899,1,4,0)
;;=4^Z11.52
;;^UTILITY(U,$J,358.3,17899,2)
;;=^5160186
;;^UTILITY(U,$J,358.3,17900,0)
;;=Z13.6^^59^716^4
;;^UTILITY(U,$J,358.3,17900,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17900,1,3,0)
;;=3^Screening,Cardiovascular Disease
;;^UTILITY(U,$J,358.3,17900,1,4,0)
;;=4^Z13.6
;;^UTILITY(U,$J,358.3,17900,2)
;;=^5062707
;;^UTILITY(U,$J,358.3,17901,0)
;;=Z13.1^^59^716^5
;;^UTILITY(U,$J,358.3,17901,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17901,1,3,0)
;;=3^Screening,Diabetes Mellitus
;;^UTILITY(U,$J,358.3,17901,1,4,0)
;;=4^Z13.1
;;^UTILITY(U,$J,358.3,17901,2)
;;=^5062700
;;^UTILITY(U,$J,358.3,17902,0)
;;=Z13.220^^59^716^6
;;^UTILITY(U,$J,358.3,17902,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17902,1,3,0)
;;=3^Screening,Lipoid Disorders
;;^UTILITY(U,$J,358.3,17902,1,4,0)
;;=4^Z13.220
;;^UTILITY(U,$J,358.3,17902,2)
;;=^5062702
;;^UTILITY(U,$J,358.3,17903,0)
;;=Z12.39^^59^716^7
;;^UTILITY(U,$J,358.3,17903,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17903,1,3,0)
;;=3^Screening,Malig Neop of Breast NEC
;;^UTILITY(U,$J,358.3,17903,1,4,0)
;;=4^Z12.39
;;^UTILITY(U,$J,358.3,17903,2)
;;=^5062686
;;^UTILITY(U,$J,358.3,17904,0)
;;=Z12.5^^59^716^8
;;^UTILITY(U,$J,358.3,17904,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17904,1,3,0)
;;=3^Screening,Malig Neop of Prostate
;;^UTILITY(U,$J,358.3,17904,1,4,0)
;;=4^Z12.5
;;^UTILITY(U,$J,358.3,17904,2)
;;=^5062688
;;^UTILITY(U,$J,358.3,17905,0)
;;=Z12.12^^59^716^9
;;^UTILITY(U,$J,358.3,17905,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17905,1,3,0)
;;=3^Screening,Malig Neop of Rectum
;;^UTILITY(U,$J,358.3,17905,1,4,0)
;;=4^Z12.12
;;^UTILITY(U,$J,358.3,17905,2)
;;=^5062682
;;^UTILITY(U,$J,358.3,17906,0)
;;=Z11.1^^59^716^10
;;^UTILITY(U,$J,358.3,17906,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17906,1,3,0)
;;=3^Screening,Respiratory Tuberculosis
;;^UTILITY(U,$J,358.3,17906,1,4,0)
;;=4^Z11.1
;;^UTILITY(U,$J,358.3,17906,2)
;;=^5062670
;;^UTILITY(U,$J,358.3,17907,0)
;;=Z11.59^^59^716^11
;;^UTILITY(U,$J,358.3,17907,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,17907,1,3,0)
;;=3^Screening,Viral Diseases NEC
;;^UTILITY(U,$J,358.3,17907,1,4,0)
;;=4^Z11.59
;;^UTILITY(U,$J,358.3,17907,2)
;;=^5062675
;;^UTILITY(U,$J,358.3,17908,0)
;;=G0101^^60^717^47^^^^1
;;^UTILITY(U,$J,358.3,17908,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17908,1,2,0)
;;=2^G0101
;;^UTILITY(U,$J,358.3,17908,1,3,0)
;;=3^PELVIC EXAM
;;^UTILITY(U,$J,358.3,17909,0)
;;=Q0091^^60^717^46^^^^1
;;^UTILITY(U,$J,358.3,17909,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17909,1,2,0)
;;=2^Q0091
;;^UTILITY(U,$J,358.3,17909,1,3,0)
;;=3^PAP SMEAR
;;^UTILITY(U,$J,358.3,17910,0)
;;=Q0111^^60^717^55^^^^1
;;^UTILITY(U,$J,358.3,17910,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17910,1,2,0)
;;=2^Q0111
;;^UTILITY(U,$J,358.3,17910,1,3,0)
;;=3^WET MOUNTS/ W PREPARATIONS
;;^UTILITY(U,$J,358.3,17911,0)
;;=58100^^60^717^7^^^^1
;;^UTILITY(U,$J,358.3,17911,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17911,1,2,0)
;;=2^58100
;;^UTILITY(U,$J,358.3,17911,1,3,0)
;;=3^BX OF ENDOMETRIAL
;;^UTILITY(U,$J,358.3,17912,0)
;;=57500^^60^717^4^^^^1
;;^UTILITY(U,$J,358.3,17912,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17912,1,2,0)
;;=2^57500
;;^UTILITY(U,$J,358.3,17912,1,3,0)
;;=3^BX OF CERVICAL
;;^UTILITY(U,$J,358.3,17913,0)
;;=57454^^60^717^11^^^^1
;;^UTILITY(U,$J,358.3,17913,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17913,1,2,0)
;;=2^57454
;;^UTILITY(U,$J,358.3,17913,1,3,0)
;;=3^BX/CURETT OF CERVIX W/SCOPE
;;^UTILITY(U,$J,358.3,17914,0)
;;=56515^^60^717^19^^^^1
;;^UTILITY(U,$J,358.3,17914,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17914,1,2,0)
;;=2^56515
;;^UTILITY(U,$J,358.3,17914,1,3,0)
;;=3^DESTROY VULVA LESION(S),COMPL
;;^UTILITY(U,$J,358.3,17915,0)
;;=56501^^60^717^20^^^^1
;;^UTILITY(U,$J,358.3,17915,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17915,1,2,0)
;;=2^56501
;;^UTILITY(U,$J,358.3,17915,1,3,0)
;;=3^DESTROY VULVA LESION(S),SIMPLE
;;^UTILITY(U,$J,358.3,17916,0)
;;=56820^^60^717^29^^^^1
;;^UTILITY(U,$J,358.3,17916,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17916,1,2,0)
;;=2^56820
;;^UTILITY(U,$J,358.3,17916,1,3,0)
;;=3^EXAM OF VULVA W/SCOPE
;;^UTILITY(U,$J,358.3,17917,0)
;;=57421^^60^717^30^^^^1
;;^UTILITY(U,$J,358.3,17917,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17917,1,2,0)
;;=2^57421
;;^UTILITY(U,$J,358.3,17917,1,3,0)
;;=3^EXAM/BIOPSY OF VAG W/SCOPE
;;^UTILITY(U,$J,358.3,17918,0)
;;=56821^^60^717^31^^^^1
;;^UTILITY(U,$J,358.3,17918,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17918,1,2,0)
;;=2^56821
;;^UTILITY(U,$J,358.3,17918,1,3,0)
;;=3^EXAM/BIOPSY OF VULVA W/SCOPE
;;^UTILITY(U,$J,358.3,17919,0)
;;=58300^^60^717^38^^^^1
;;^UTILITY(U,$J,358.3,17919,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17919,1,2,0)
;;=2^58300
;;^UTILITY(U,$J,358.3,17919,1,3,0)
;;=3^INSERT INTRAUTERINE DEVICE
;;^UTILITY(U,$J,358.3,17920,0)
;;=57160^^60^717^40^^^^1
;;^UTILITY(U,$J,358.3,17920,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17920,1,2,0)
;;=2^57160
;;^UTILITY(U,$J,358.3,17920,1,3,0)
;;=3^INSERT PESSARY/OTHER DEVICE
;;^UTILITY(U,$J,358.3,17921,0)
;;=58301^^60^717^48^^^^1
;;^UTILITY(U,$J,358.3,17921,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17921,1,2,0)
;;=2^58301
;;^UTILITY(U,$J,358.3,17921,1,3,0)
;;=3^REMOVE INTRAUTERINE DEVICE
;;^UTILITY(U,$J,358.3,17922,0)
;;=57150^^60^717^53^^^^1
;;^UTILITY(U,$J,358.3,17922,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17922,1,2,0)
;;=2^57150
;;^UTILITY(U,$J,358.3,17922,1,3,0)
;;=3^TREAT VAGINA INFECTION
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI07C 19802 printed Dec 13, 2024@01:43:04 Page 2
IBDEI07C ; ; 01-AUG-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
+2 if 'DIFQR(358.3)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,999)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^UTILITY(U,$J,358.3,17850,1,4,0)
+2 ;;=4^C34.91
+3 ;;^UTILITY(U,$J,358.3,17850,2)
+4 ;;=^5000967
+5 ;;^UTILITY(U,$J,358.3,17851,0)
+6 ;;=C34.92^^59^712^12
+7 ;;^UTILITY(U,$J,358.3,17851,1,0)
+8 ;;=^358.31IA^4^2
+9 ;;^UTILITY(U,$J,358.3,17851,1,3,0)
+10 ;;=3^Malig Neop of Left Bronchus/Lung,Unspec Part
+11 ;;^UTILITY(U,$J,358.3,17851,1,4,0)
+12 ;;=4^C34.92
+13 ;;^UTILITY(U,$J,358.3,17851,2)
+14 ;;=^5000968
+15 ;;^UTILITY(U,$J,358.3,17852,0)
+16 ;;=G47.33^^59^712^14
+17 ;;^UTILITY(U,$J,358.3,17852,1,0)
+18 ;;=^358.31IA^4^2
+19 ;;^UTILITY(U,$J,358.3,17852,1,3,0)
+20 ;;=3^Obstructive Sleep Apnea
+21 ;;^UTILITY(U,$J,358.3,17852,1,4,0)
+22 ;;=4^G47.33
+23 ;;^UTILITY(U,$J,358.3,17852,2)
+24 ;;=^332763
+25 ;;^UTILITY(U,$J,358.3,17853,0)
+26 ;;=J01.90^^59^712^6
+27 ;;^UTILITY(U,$J,358.3,17853,1,0)
+28 ;;=^358.31IA^4^2
+29 ;;^UTILITY(U,$J,358.3,17853,1,3,0)
+30 ;;=3^Acute Sinusitis,Unspec
+31 ;;^UTILITY(U,$J,358.3,17853,1,4,0)
+32 ;;=4^J01.90
+33 ;;^UTILITY(U,$J,358.3,17853,2)
+34 ;;=^5008127
+35 ;;^UTILITY(U,$J,358.3,17854,0)
+36 ;;=J02.9^^59^712^4
+37 ;;^UTILITY(U,$J,358.3,17854,1,0)
+38 ;;=^358.31IA^4^2
+39 ;;^UTILITY(U,$J,358.3,17854,1,3,0)
+40 ;;=3^Acute Pharyngitis,Unspec
+41 ;;^UTILITY(U,$J,358.3,17854,1,4,0)
+42 ;;=4^J02.9
+43 ;;^UTILITY(U,$J,358.3,17854,2)
+44 ;;=^5008130
+45 ;;^UTILITY(U,$J,358.3,17855,0)
+46 ;;=J06.9^^59^712^7
+47 ;;^UTILITY(U,$J,358.3,17855,1,0)
+48 ;;=^358.31IA^4^2
+49 ;;^UTILITY(U,$J,358.3,17855,1,3,0)
+50 ;;=3^Acute URI,Unspec
+51 ;;^UTILITY(U,$J,358.3,17855,1,4,0)
+52 ;;=4^J06.9
+53 ;;^UTILITY(U,$J,358.3,17855,2)
+54 ;;=^5008143
+55 ;;^UTILITY(U,$J,358.3,17856,0)
+56 ;;=J20.9^^59^712^2
+57 ;;^UTILITY(U,$J,358.3,17856,1,0)
+58 ;;=^358.31IA^4^2
+59 ;;^UTILITY(U,$J,358.3,17856,1,3,0)
+60 ;;=3^Acute Bronchitis,Unspec
+61 ;;^UTILITY(U,$J,358.3,17856,1,4,0)
+62 ;;=4^J20.9
+63 ;;^UTILITY(U,$J,358.3,17856,2)
+64 ;;=^5008195
+65 ;;^UTILITY(U,$J,358.3,17857,0)
+66 ;;=J32.9^^59^712^11
+67 ;;^UTILITY(U,$J,358.3,17857,1,0)
+68 ;;=^358.31IA^4^2
+69 ;;^UTILITY(U,$J,358.3,17857,1,3,0)
+70 ;;=3^Chr Sinusitis,Unspec
+71 ;;^UTILITY(U,$J,358.3,17857,1,4,0)
+72 ;;=4^J32.9
+73 ;;^UTILITY(U,$J,358.3,17857,2)
+74 ;;=^5008207
+75 ;;^UTILITY(U,$J,358.3,17858,0)
+76 ;;=J41.0^^59^712^9
+77 ;;^UTILITY(U,$J,358.3,17858,1,0)
+78 ;;=^358.31IA^4^2
+79 ;;^UTILITY(U,$J,358.3,17858,1,3,0)
+80 ;;=3^Bronchitis,Simple Chr
+81 ;;^UTILITY(U,$J,358.3,17858,1,4,0)
+82 ;;=4^J41.0
+83 ;;^UTILITY(U,$J,358.3,17858,2)
+84 ;;=^269946
+85 ;;^UTILITY(U,$J,358.3,17859,0)
+86 ;;=J45.909^^59^712^8
+87 ;;^UTILITY(U,$J,358.3,17859,1,0)
+88 ;;=^358.31IA^4^2
+89 ;;^UTILITY(U,$J,358.3,17859,1,3,0)
+90 ;;=3^Asthma,Uncomplicated,Unspec
+91 ;;^UTILITY(U,$J,358.3,17859,1,4,0)
+92 ;;=4^J45.909
+93 ;;^UTILITY(U,$J,358.3,17859,2)
+94 ;;=^5008256
+95 ;;^UTILITY(U,$J,358.3,17860,0)
+96 ;;=J44.9^^59^712^10
+97 ;;^UTILITY(U,$J,358.3,17860,1,0)
+98 ;;=^358.31IA^4^2
+99 ;;^UTILITY(U,$J,358.3,17860,1,3,0)
+100 ;;=3^COPD,Unspec
+101 ;;^UTILITY(U,$J,358.3,17860,1,4,0)
+102 ;;=4^J44.9
+103 ;;^UTILITY(U,$J,358.3,17860,2)
+104 ;;=^5008241
+105 ;;^UTILITY(U,$J,358.3,17861,0)
+106 ;;=J91.8^^59^712^15
+107 ;;^UTILITY(U,$J,358.3,17861,1,0)
+108 ;;=^358.31IA^4^2
+109 ;;^UTILITY(U,$J,358.3,17861,1,3,0)
+110 ;;=3^Pleural Effusion,Classified Elsewhere
+111 ;;^UTILITY(U,$J,358.3,17861,1,4,0)
+112 ;;=4^J91.8
+113 ;;^UTILITY(U,$J,358.3,17861,2)
+114 ;;=^5008311
+115 ;;^UTILITY(U,$J,358.3,17862,0)
+116 ;;=J20.8^^59^712^1
+117 ;;^UTILITY(U,$J,358.3,17862,1,0)
+118 ;;=^358.31IA^4^2
+119 ;;^UTILITY(U,$J,358.3,17862,1,3,0)
+120 ;;=3^Acute Bronchitis d/t Oth Spec Organisms
+121 ;;^UTILITY(U,$J,358.3,17862,1,4,0)
+122 ;;=4^J20.8
+123 ;;^UTILITY(U,$J,358.3,17862,2)
+124 ;;=^5008194
+125 ;;^UTILITY(U,$J,358.3,17863,0)
+126 ;;=J22.^^59^712^3
+127 ;;^UTILITY(U,$J,358.3,17863,1,0)
+128 ;;=^358.31IA^4^2
+129 ;;^UTILITY(U,$J,358.3,17863,1,3,0)
+130 ;;=3^Acute Lower Respiratory Infection,Unspec
+131 ;;^UTILITY(U,$J,358.3,17863,1,4,0)
+132 ;;=4^J22.
+133 ;;^UTILITY(U,$J,358.3,17863,2)
+134 ;;=^5008200
+135 ;;^UTILITY(U,$J,358.3,17864,0)
+136 ;;=J98.9^^59^712^5
+137 ;;^UTILITY(U,$J,358.3,17864,1,0)
+138 ;;=^358.31IA^4^2
+139 ;;^UTILITY(U,$J,358.3,17864,1,3,0)
+140 ;;=3^Acute Respiratory Distress Syndrome
+141 ;;^UTILITY(U,$J,358.3,17864,1,4,0)
+142 ;;=4^J98.9
+143 ;;^UTILITY(U,$J,358.3,17864,2)
+144 ;;=^5008366
+145 ;;^UTILITY(U,$J,358.3,17865,0)
+146 ;;=J12.89^^59^712^16
+147 ;;^UTILITY(U,$J,358.3,17865,1,0)
+148 ;;=^358.31IA^4^2
+149 ;;^UTILITY(U,$J,358.3,17865,1,3,0)
+150 ;;=3^Viral Pneumonia,Other
+151 ;;^UTILITY(U,$J,358.3,17865,1,4,0)
+152 ;;=4^J12.89
+153 ;;^UTILITY(U,$J,358.3,17865,2)
+154 ;;=^5008168
+155 ;;^UTILITY(U,$J,358.3,17866,0)
+156 ;;=F41.9^^59^713^3
+157 ;;^UTILITY(U,$J,358.3,17866,1,0)
+158 ;;=^358.31IA^4^2
+159 ;;^UTILITY(U,$J,358.3,17866,1,3,0)
+160 ;;=3^Anxiety Disorder,Unspec
+161 ;;^UTILITY(U,$J,358.3,17866,1,4,0)
+162 ;;=4^F41.9
+163 ;;^UTILITY(U,$J,358.3,17866,2)
+164 ;;=^5003567
+165 ;;^UTILITY(U,$J,358.3,17867,0)
+166 ;;=F10.20^^59^713^2
+167 ;;^UTILITY(U,$J,358.3,17867,1,0)
+168 ;;=^358.31IA^4^2
+169 ;;^UTILITY(U,$J,358.3,17867,1,3,0)
+170 ;;=3^Alcohol Dependence,Uncomplicated
+171 ;;^UTILITY(U,$J,358.3,17867,1,4,0)
+172 ;;=4^F10.20
+173 ;;^UTILITY(U,$J,358.3,17867,2)
+174 ;;=^5003081
+175 ;;^UTILITY(U,$J,358.3,17868,0)
+176 ;;=F10.10^^59^713^1
+177 ;;^UTILITY(U,$J,358.3,17868,1,0)
+178 ;;=^358.31IA^4^2
+179 ;;^UTILITY(U,$J,358.3,17868,1,3,0)
+180 ;;=3^Alcohol Abuse,Uncomplicated
+181 ;;^UTILITY(U,$J,358.3,17868,1,4,0)
+182 ;;=4^F10.10
+183 ;;^UTILITY(U,$J,358.3,17868,2)
+184 ;;=^5003068
+185 ;;^UTILITY(U,$J,358.3,17869,0)
+186 ;;=F17.200^^59^713^8
+187 ;;^UTILITY(U,$J,358.3,17869,1,0)
+188 ;;=^358.31IA^4^2
+189 ;;^UTILITY(U,$J,358.3,17869,1,3,0)
+190 ;;=3^Nicotine Dependence,Unspec
+191 ;;^UTILITY(U,$J,358.3,17869,1,4,0)
+192 ;;=4^F17.200
+193 ;;^UTILITY(U,$J,358.3,17869,2)
+194 ;;=^5003360
+195 ;;^UTILITY(U,$J,358.3,17870,0)
+196 ;;=F45.41^^59^713^11
+197 ;;^UTILITY(U,$J,358.3,17870,1,0)
+198 ;;=^358.31IA^4^2
+199 ;;^UTILITY(U,$J,358.3,17870,1,3,0)
+200 ;;=3^Pain Disorder d/t Psychological Factors
+201 ;;^UTILITY(U,$J,358.3,17870,1,4,0)
+202 ;;=4^F45.41
+203 ;;^UTILITY(U,$J,358.3,17870,2)
+204 ;;=^5003590
+205 ;;^UTILITY(U,$J,358.3,17871,0)
+206 ;;=F43.10^^59^713^10
+207 ;;^UTILITY(U,$J,358.3,17871,1,0)
+208 ;;=^358.31IA^4^2
+209 ;;^UTILITY(U,$J,358.3,17871,1,3,0)
+210 ;;=3^PTSD,Unspec
+211 ;;^UTILITY(U,$J,358.3,17871,1,4,0)
+212 ;;=4^F43.10
+213 ;;^UTILITY(U,$J,358.3,17871,2)
+214 ;;=^5003570
+215 ;;^UTILITY(U,$J,358.3,17872,0)
+216 ;;=F43.12^^59^713^9
+217 ;;^UTILITY(U,$J,358.3,17872,1,0)
+218 ;;=^358.31IA^4^2
+219 ;;^UTILITY(U,$J,358.3,17872,1,3,0)
+220 ;;=3^PTSD,Chronic
+221 ;;^UTILITY(U,$J,358.3,17872,1,4,0)
+222 ;;=4^F43.12
+223 ;;^UTILITY(U,$J,358.3,17872,2)
+224 ;;=^5003572
+225 ;;^UTILITY(U,$J,358.3,17873,0)
+226 ;;=F32.9^^59^713^4
+227 ;;^UTILITY(U,$J,358.3,17873,1,0)
+228 ;;=^358.31IA^4^2
+229 ;;^UTILITY(U,$J,358.3,17873,1,3,0)
+230 ;;=3^MDD,Single Episode,Unspec
+231 ;;^UTILITY(U,$J,358.3,17873,1,4,0)
+232 ;;=4^F32.9
+233 ;;^UTILITY(U,$J,358.3,17873,2)
+234 ;;=^5003528
+235 ;;^UTILITY(U,$J,358.3,17874,0)
+236 ;;=F17.210^^59^713^6
+237 ;;^UTILITY(U,$J,358.3,17874,1,0)
+238 ;;=^358.31IA^4^2
+239 ;;^UTILITY(U,$J,358.3,17874,1,3,0)
+240 ;;=3^Nicotine Dependence,Cigarettes,Uncomp
+241 ;;^UTILITY(U,$J,358.3,17874,1,4,0)
+242 ;;=4^F17.210
+243 ;;^UTILITY(U,$J,358.3,17874,2)
+244 ;;=^5003365
+245 ;;^UTILITY(U,$J,358.3,17875,0)
+246 ;;=F17.220^^59^713^5
+247 ;;^UTILITY(U,$J,358.3,17875,1,0)
+248 ;;=^358.31IA^4^2
+249 ;;^UTILITY(U,$J,358.3,17875,1,3,0)
+250 ;;=3^Nicotine Dependence,Chewing Tobacco,Uncomp
+251 ;;^UTILITY(U,$J,358.3,17875,1,4,0)
+252 ;;=4^F17.220
+253 ;;^UTILITY(U,$J,358.3,17875,2)
+254 ;;=^5003370
+255 ;;^UTILITY(U,$J,358.3,17876,0)
+256 ;;=F17.290^^59^713^7
+257 ;;^UTILITY(U,$J,358.3,17876,1,0)
+258 ;;=^358.31IA^4^2
+259 ;;^UTILITY(U,$J,358.3,17876,1,3,0)
+260 ;;=3^Nicotine Dependence,Oth Tobacco Product,Uncomp
+261 ;;^UTILITY(U,$J,358.3,17876,1,4,0)
+262 ;;=4^F17.290
+263 ;;^UTILITY(U,$J,358.3,17876,2)
+264 ;;=^5003375
+265 ;;^UTILITY(U,$J,358.3,17877,0)
+266 ;;=R45.851^^59^714^3
+267 ;;^UTILITY(U,$J,358.3,17877,1,0)
+268 ;;=^358.31IA^4^2
+269 ;;^UTILITY(U,$J,358.3,17877,1,3,0)
+270 ;;=3^Suicidal Ideations
+271 ;;^UTILITY(U,$J,358.3,17877,1,4,0)
+272 ;;=4^R45.851
+273 ;;^UTILITY(U,$J,358.3,17877,2)
+274 ;;=^5019474
+275 ;;^UTILITY(U,$J,358.3,17878,0)
+276 ;;=T14.91XA^^59^714^4
+277 ;;^UTILITY(U,$J,358.3,17878,1,0)
+278 ;;=^358.31IA^4^2
+279 ;;^UTILITY(U,$J,358.3,17878,1,3,0)
+280 ;;=3^Suicide Attempt,Initial Encntr
+281 ;;^UTILITY(U,$J,358.3,17878,1,4,0)
+282 ;;=4^T14.91XA
+283 ;;^UTILITY(U,$J,358.3,17878,2)
+284 ;;=^5151779
+285 ;;^UTILITY(U,$J,358.3,17879,0)
+286 ;;=T14.91XD^^59^714^6
+287 ;;^UTILITY(U,$J,358.3,17879,1,0)
+288 ;;=^358.31IA^4^2
+289 ;;^UTILITY(U,$J,358.3,17879,1,3,0)
+290 ;;=3^Suicide Attempt,Subsequent Encntr
+291 ;;^UTILITY(U,$J,358.3,17879,1,4,0)
+292 ;;=4^T14.91XD
+293 ;;^UTILITY(U,$J,358.3,17879,2)
+294 ;;=^5151780
+295 ;;^UTILITY(U,$J,358.3,17880,0)
+296 ;;=T14.91XS^^59^714^5
+297 ;;^UTILITY(U,$J,358.3,17880,1,0)
+298 ;;=^358.31IA^4^2
+299 ;;^UTILITY(U,$J,358.3,17880,1,3,0)
+300 ;;=3^Suicide Attempt,Sequela
+301 ;;^UTILITY(U,$J,358.3,17880,1,4,0)
+302 ;;=4^T14.91XS
+303 ;;^UTILITY(U,$J,358.3,17880,2)
+304 ;;=^5151781
+305 ;;^UTILITY(U,$J,358.3,17881,0)
+306 ;;=Z91.52^^59^714^1
+307 ;;^UTILITY(U,$J,358.3,17881,1,0)
+308 ;;=^358.31IA^4^2
+309 ;;^UTILITY(U,$J,358.3,17881,1,3,0)
+310 ;;=3^Personal Hx of Non-Suicidal Self-Harm
+311 ;;^UTILITY(U,$J,358.3,17881,1,4,0)
+312 ;;=4^Z91.52
+313 ;;^UTILITY(U,$J,358.3,17881,2)
+314 ;;=^5161318
+315 ;;^UTILITY(U,$J,358.3,17882,0)
+316 ;;=Z91.51^^59^714^2
+317 ;;^UTILITY(U,$J,358.3,17882,1,0)
+318 ;;=^358.31IA^4^2
+319 ;;^UTILITY(U,$J,358.3,17882,1,3,0)
+320 ;;=3^Personal Hx of Suicidal Behavior
+321 ;;^UTILITY(U,$J,358.3,17882,1,4,0)
+322 ;;=4^Z91.51
+323 ;;^UTILITY(U,$J,358.3,17882,2)
+324 ;;=^5161317
+325 ;;^UTILITY(U,$J,358.3,17883,0)
+326 ;;=Z93.52^^59^715^1
+327 ;;^UTILITY(U,$J,358.3,17883,1,0)
+328 ;;=^358.31IA^4^2
+329 ;;^UTILITY(U,$J,358.3,17883,1,3,0)
+330 ;;=3^Appendico-Vesicostomy Status
+331 ;;^UTILITY(U,$J,358.3,17883,1,4,0)
+332 ;;=4^Z93.52
+333 ;;^UTILITY(U,$J,358.3,17883,2)
+334 ;;=^5063649
+335 ;;^UTILITY(U,$J,358.3,17884,0)
+336 ;;=Z93.3^^59^715^9
+337 ;;^UTILITY(U,$J,358.3,17884,1,0)
+338 ;;=^358.31IA^4^2
+339 ;;^UTILITY(U,$J,358.3,17884,1,3,0)
+340 ;;=3^Colostomy Status
+341 ;;^UTILITY(U,$J,358.3,17884,1,4,0)
+342 ;;=4^Z93.3
+343 ;;^UTILITY(U,$J,358.3,17884,2)
+344 ;;=^5063645
+345 ;;^UTILITY(U,$J,358.3,17885,0)
+346 ;;=Z93.51^^59^715^10
+347 ;;^UTILITY(U,$J,358.3,17885,1,0)
+348 ;;=^358.31IA^4^2
+349 ;;^UTILITY(U,$J,358.3,17885,1,3,0)
+350 ;;=3^Cutaneous-Vesicostomy Status
+351 ;;^UTILITY(U,$J,358.3,17885,1,4,0)
+352 ;;=4^Z93.51
+353 ;;^UTILITY(U,$J,358.3,17885,2)
+354 ;;=^5063648
+355 ;;^UTILITY(U,$J,358.3,17886,0)
+356 ;;=Z93.1^^59^715^12
+357 ;;^UTILITY(U,$J,358.3,17886,1,0)
+358 ;;=^358.31IA^4^2
+359 ;;^UTILITY(U,$J,358.3,17886,1,3,0)
+360 ;;=3^Gastrostomy Status
+361 ;;^UTILITY(U,$J,358.3,17886,1,4,0)
+362 ;;=4^Z93.1
+363 ;;^UTILITY(U,$J,358.3,17886,2)
+364 ;;=^5063643
+365 ;;^UTILITY(U,$J,358.3,17887,0)
+366 ;;=Z93.2^^59^715^13
+367 ;;^UTILITY(U,$J,358.3,17887,1,0)
+368 ;;=^358.31IA^4^2
+369 ;;^UTILITY(U,$J,358.3,17887,1,3,0)
+370 ;;=3^Ileostomy Status
+371 ;;^UTILITY(U,$J,358.3,17887,1,4,0)
+372 ;;=4^Z93.2
+373 ;;^UTILITY(U,$J,358.3,17887,2)
+374 ;;=^5063644
+375 ;;^UTILITY(U,$J,358.3,17888,0)
+376 ;;=Z93.59^^59^715^11
+377 ;;^UTILITY(U,$J,358.3,17888,1,0)
+378 ;;=^358.31IA^4^2
+379 ;;^UTILITY(U,$J,358.3,17888,1,3,0)
+380 ;;=3^Cystostomy Status,Other
+381 ;;^UTILITY(U,$J,358.3,17888,1,4,0)
+382 ;;=4^Z93.59
+383 ;;^UTILITY(U,$J,358.3,17888,2)
+384 ;;=^5063650
+385 ;;^UTILITY(U,$J,358.3,17889,0)
+386 ;;=Z93.0^^59^715^14
+387 ;;^UTILITY(U,$J,358.3,17889,1,0)
+388 ;;=^358.31IA^4^2
+389 ;;^UTILITY(U,$J,358.3,17889,1,3,0)
+390 ;;=3^Tracheostomy Status
+391 ;;^UTILITY(U,$J,358.3,17889,1,4,0)
+392 ;;=4^Z93.0
+393 ;;^UTILITY(U,$J,358.3,17889,2)
+394 ;;=^5063642
+395 ;;^UTILITY(U,$J,358.3,17890,0)
+396 ;;=Z43.4^^59^715^2
+397 ;;^UTILITY(U,$J,358.3,17890,1,0)
+398 ;;=^358.31IA^4^2
+399 ;;^UTILITY(U,$J,358.3,17890,1,3,0)
+400 ;;=3^Attention to Artif Opening of Digestive Tract NEC
+401 ;;^UTILITY(U,$J,358.3,17890,1,4,0)
+402 ;;=4^Z43.4
+403 ;;^UTILITY(U,$J,358.3,17890,2)
+404 ;;=^5062962
+405 ;;^UTILITY(U,$J,358.3,17891,0)
+406 ;;=Z43.3^^59^715^4
+407 ;;^UTILITY(U,$J,358.3,17891,1,0)
+408 ;;=^358.31IA^4^2
+409 ;;^UTILITY(U,$J,358.3,17891,1,3,0)
+410 ;;=3^Attention to Colostomy
+411 ;;^UTILITY(U,$J,358.3,17891,1,4,0)
+412 ;;=4^Z43.3
+413 ;;^UTILITY(U,$J,358.3,17891,2)
+414 ;;=^5062961
+415 ;;^UTILITY(U,$J,358.3,17892,0)
+416 ;;=Z43.6^^59^715^3
+417 ;;^UTILITY(U,$J,358.3,17892,1,0)
+418 ;;=^358.31IA^4^2
+419 ;;^UTILITY(U,$J,358.3,17892,1,3,0)
+420 ;;=3^Attention to Artif Opening of Urinary Tract NEC
+421 ;;^UTILITY(U,$J,358.3,17892,1,4,0)
+422 ;;=4^Z43.6
+423 ;;^UTILITY(U,$J,358.3,17892,2)
+424 ;;=^5062964
+425 ;;^UTILITY(U,$J,358.3,17893,0)
+426 ;;=Z43.5^^59^715^5
+427 ;;^UTILITY(U,$J,358.3,17893,1,0)
+428 ;;=^358.31IA^4^2
+429 ;;^UTILITY(U,$J,358.3,17893,1,3,0)
+430 ;;=3^Attention to Cystostomy
+431 ;;^UTILITY(U,$J,358.3,17893,1,4,0)
+432 ;;=4^Z43.5
+433 ;;^UTILITY(U,$J,358.3,17893,2)
+434 ;;=^5062963
+435 ;;^UTILITY(U,$J,358.3,17894,0)
+436 ;;=Z43.1^^59^715^6
+437 ;;^UTILITY(U,$J,358.3,17894,1,0)
+438 ;;=^358.31IA^4^2
+439 ;;^UTILITY(U,$J,358.3,17894,1,3,0)
+440 ;;=3^Attention to Gastrostomy
+441 ;;^UTILITY(U,$J,358.3,17894,1,4,0)
+442 ;;=4^Z43.1
+443 ;;^UTILITY(U,$J,358.3,17894,2)
+444 ;;=^5062959
+445 ;;^UTILITY(U,$J,358.3,17895,0)
+446 ;;=Z43.2^^59^715^7
+447 ;;^UTILITY(U,$J,358.3,17895,1,0)
+448 ;;=^358.31IA^4^2
+449 ;;^UTILITY(U,$J,358.3,17895,1,3,0)
+450 ;;=3^Attention to Ileostomy
+451 ;;^UTILITY(U,$J,358.3,17895,1,4,0)
+452 ;;=4^Z43.2
+453 ;;^UTILITY(U,$J,358.3,17895,2)
+454 ;;=^5062960
+455 ;;^UTILITY(U,$J,358.3,17896,0)
+456 ;;=Z43.0^^59^715^8
+457 ;;^UTILITY(U,$J,358.3,17896,1,0)
+458 ;;=^358.31IA^4^2
+459 ;;^UTILITY(U,$J,358.3,17896,1,3,0)
+460 ;;=3^Attention to Tracheostomy
+461 ;;^UTILITY(U,$J,358.3,17896,1,4,0)
+462 ;;=4^Z43.0
+463 ;;^UTILITY(U,$J,358.3,17896,2)
+464 ;;=^5062958
+465 ;;^UTILITY(U,$J,358.3,17897,0)
+466 ;;=Z03.818^^59^716^2
+467 ;;^UTILITY(U,$J,358.3,17897,1,0)
+468 ;;=^358.31IA^4^2
+469 ;;^UTILITY(U,$J,358.3,17897,1,3,0)
+470 ;;=3^Obs Susp Expsr to Oth Biolog Agents Ruled Out
+471 ;;^UTILITY(U,$J,358.3,17897,1,4,0)
+472 ;;=4^Z03.818
+473 ;;^UTILITY(U,$J,358.3,17897,2)
+474 ;;=^5062655
+475 ;;^UTILITY(U,$J,358.3,17898,0)
+476 ;;=Z20.828^^59^716^1
+477 ;;^UTILITY(U,$J,358.3,17898,1,0)
+478 ;;=^358.31IA^4^2
+479 ;;^UTILITY(U,$J,358.3,17898,1,3,0)
+480 ;;=3^Contact w/ & Exposure to Oth Viral Communicalbe Diseases
+481 ;;^UTILITY(U,$J,358.3,17898,1,4,0)
+482 ;;=4^Z20.828
+483 ;;^UTILITY(U,$J,358.3,17898,2)
+484 ;;=^5062774
+485 ;;^UTILITY(U,$J,358.3,17899,0)
+486 ;;=Z11.52^^59^716^3
+487 ;;^UTILITY(U,$J,358.3,17899,1,0)
+488 ;;=^358.31IA^4^2
+489 ;;^UTILITY(U,$J,358.3,17899,1,3,0)
+490 ;;=3^Screening,COVID-19
+491 ;;^UTILITY(U,$J,358.3,17899,1,4,0)
+492 ;;=4^Z11.52
+493 ;;^UTILITY(U,$J,358.3,17899,2)
+494 ;;=^5160186
+495 ;;^UTILITY(U,$J,358.3,17900,0)
+496 ;;=Z13.6^^59^716^4
+497 ;;^UTILITY(U,$J,358.3,17900,1,0)
+498 ;;=^358.31IA^4^2
+499 ;;^UTILITY(U,$J,358.3,17900,1,3,0)
+500 ;;=3^Screening,Cardiovascular Disease
+501 ;;^UTILITY(U,$J,358.3,17900,1,4,0)
+502 ;;=4^Z13.6
+503 ;;^UTILITY(U,$J,358.3,17900,2)
+504 ;;=^5062707
+505 ;;^UTILITY(U,$J,358.3,17901,0)
+506 ;;=Z13.1^^59^716^5
+507 ;;^UTILITY(U,$J,358.3,17901,1,0)
+508 ;;=^358.31IA^4^2
+509 ;;^UTILITY(U,$J,358.3,17901,1,3,0)
+510 ;;=3^Screening,Diabetes Mellitus
+511 ;;^UTILITY(U,$J,358.3,17901,1,4,0)
+512 ;;=4^Z13.1
+513 ;;^UTILITY(U,$J,358.3,17901,2)
+514 ;;=^5062700
+515 ;;^UTILITY(U,$J,358.3,17902,0)
+516 ;;=Z13.220^^59^716^6
+517 ;;^UTILITY(U,$J,358.3,17902,1,0)
+518 ;;=^358.31IA^4^2
+519 ;;^UTILITY(U,$J,358.3,17902,1,3,0)
+520 ;;=3^Screening,Lipoid Disorders
+521 ;;^UTILITY(U,$J,358.3,17902,1,4,0)
+522 ;;=4^Z13.220
+523 ;;^UTILITY(U,$J,358.3,17902,2)
+524 ;;=^5062702
+525 ;;^UTILITY(U,$J,358.3,17903,0)
+526 ;;=Z12.39^^59^716^7
+527 ;;^UTILITY(U,$J,358.3,17903,1,0)
+528 ;;=^358.31IA^4^2
+529 ;;^UTILITY(U,$J,358.3,17903,1,3,0)
+530 ;;=3^Screening,Malig Neop of Breast NEC
+531 ;;^UTILITY(U,$J,358.3,17903,1,4,0)
+532 ;;=4^Z12.39
+533 ;;^UTILITY(U,$J,358.3,17903,2)
+534 ;;=^5062686
+535 ;;^UTILITY(U,$J,358.3,17904,0)
+536 ;;=Z12.5^^59^716^8
+537 ;;^UTILITY(U,$J,358.3,17904,1,0)
+538 ;;=^358.31IA^4^2
+539 ;;^UTILITY(U,$J,358.3,17904,1,3,0)
+540 ;;=3^Screening,Malig Neop of Prostate
+541 ;;^UTILITY(U,$J,358.3,17904,1,4,0)
+542 ;;=4^Z12.5
+543 ;;^UTILITY(U,$J,358.3,17904,2)
+544 ;;=^5062688
+545 ;;^UTILITY(U,$J,358.3,17905,0)
+546 ;;=Z12.12^^59^716^9
+547 ;;^UTILITY(U,$J,358.3,17905,1,0)
+548 ;;=^358.31IA^4^2
+549 ;;^UTILITY(U,$J,358.3,17905,1,3,0)
+550 ;;=3^Screening,Malig Neop of Rectum
+551 ;;^UTILITY(U,$J,358.3,17905,1,4,0)
+552 ;;=4^Z12.12
+553 ;;^UTILITY(U,$J,358.3,17905,2)
+554 ;;=^5062682
+555 ;;^UTILITY(U,$J,358.3,17906,0)
+556 ;;=Z11.1^^59^716^10
+557 ;;^UTILITY(U,$J,358.3,17906,1,0)
+558 ;;=^358.31IA^4^2
+559 ;;^UTILITY(U,$J,358.3,17906,1,3,0)
+560 ;;=3^Screening,Respiratory Tuberculosis
+561 ;;^UTILITY(U,$J,358.3,17906,1,4,0)
+562 ;;=4^Z11.1
+563 ;;^UTILITY(U,$J,358.3,17906,2)
+564 ;;=^5062670
+565 ;;^UTILITY(U,$J,358.3,17907,0)
+566 ;;=Z11.59^^59^716^11
+567 ;;^UTILITY(U,$J,358.3,17907,1,0)
+568 ;;=^358.31IA^4^2
+569 ;;^UTILITY(U,$J,358.3,17907,1,3,0)
+570 ;;=3^Screening,Viral Diseases NEC
+571 ;;^UTILITY(U,$J,358.3,17907,1,4,0)
+572 ;;=4^Z11.59
+573 ;;^UTILITY(U,$J,358.3,17907,2)
+574 ;;=^5062675
+575 ;;^UTILITY(U,$J,358.3,17908,0)
+576 ;;=G0101^^60^717^47^^^^1
+577 ;;^UTILITY(U,$J,358.3,17908,1,0)
+578 ;;=^358.31IA^3^2
+579 ;;^UTILITY(U,$J,358.3,17908,1,2,0)
+580 ;;=2^G0101
+581 ;;^UTILITY(U,$J,358.3,17908,1,3,0)
+582 ;;=3^PELVIC EXAM
+583 ;;^UTILITY(U,$J,358.3,17909,0)
+584 ;;=Q0091^^60^717^46^^^^1
+585 ;;^UTILITY(U,$J,358.3,17909,1,0)
+586 ;;=^358.31IA^3^2
+587 ;;^UTILITY(U,$J,358.3,17909,1,2,0)
+588 ;;=2^Q0091
+589 ;;^UTILITY(U,$J,358.3,17909,1,3,0)
+590 ;;=3^PAP SMEAR
+591 ;;^UTILITY(U,$J,358.3,17910,0)
+592 ;;=Q0111^^60^717^55^^^^1
+593 ;;^UTILITY(U,$J,358.3,17910,1,0)
+594 ;;=^358.31IA^3^2
+595 ;;^UTILITY(U,$J,358.3,17910,1,2,0)
+596 ;;=2^Q0111
+597 ;;^UTILITY(U,$J,358.3,17910,1,3,0)
+598 ;;=3^WET MOUNTS/ W PREPARATIONS
+599 ;;^UTILITY(U,$J,358.3,17911,0)
+600 ;;=58100^^60^717^7^^^^1
+601 ;;^UTILITY(U,$J,358.3,17911,1,0)
+602 ;;=^358.31IA^3^2
+603 ;;^UTILITY(U,$J,358.3,17911,1,2,0)
+604 ;;=2^58100
+605 ;;^UTILITY(U,$J,358.3,17911,1,3,0)
+606 ;;=3^BX OF ENDOMETRIAL
+607 ;;^UTILITY(U,$J,358.3,17912,0)
+608 ;;=57500^^60^717^4^^^^1
+609 ;;^UTILITY(U,$J,358.3,17912,1,0)
+610 ;;=^358.31IA^3^2
+611 ;;^UTILITY(U,$J,358.3,17912,1,2,0)
+612 ;;=2^57500
+613 ;;^UTILITY(U,$J,358.3,17912,1,3,0)
+614 ;;=3^BX OF CERVICAL
+615 ;;^UTILITY(U,$J,358.3,17913,0)
+616 ;;=57454^^60^717^11^^^^1
+617 ;;^UTILITY(U,$J,358.3,17913,1,0)
+618 ;;=^358.31IA^3^2
+619 ;;^UTILITY(U,$J,358.3,17913,1,2,0)
+620 ;;=2^57454
+621 ;;^UTILITY(U,$J,358.3,17913,1,3,0)
+622 ;;=3^BX/CURETT OF CERVIX W/SCOPE
+623 ;;^UTILITY(U,$J,358.3,17914,0)
+624 ;;=56515^^60^717^19^^^^1
+625 ;;^UTILITY(U,$J,358.3,17914,1,0)
+626 ;;=^358.31IA^3^2
+627 ;;^UTILITY(U,$J,358.3,17914,1,2,0)
+628 ;;=2^56515
+629 ;;^UTILITY(U,$J,358.3,17914,1,3,0)
+630 ;;=3^DESTROY VULVA LESION(S),COMPL
+631 ;;^UTILITY(U,$J,358.3,17915,0)
+632 ;;=56501^^60^717^20^^^^1
+633 ;;^UTILITY(U,$J,358.3,17915,1,0)
+634 ;;=^358.31IA^3^2
+635 ;;^UTILITY(U,$J,358.3,17915,1,2,0)
+636 ;;=2^56501
+637 ;;^UTILITY(U,$J,358.3,17915,1,3,0)
+638 ;;=3^DESTROY VULVA LESION(S),SIMPLE
+639 ;;^UTILITY(U,$J,358.3,17916,0)
+640 ;;=56820^^60^717^29^^^^1
+641 ;;^UTILITY(U,$J,358.3,17916,1,0)
+642 ;;=^358.31IA^3^2
+643 ;;^UTILITY(U,$J,358.3,17916,1,2,0)
+644 ;;=2^56820
+645 ;;^UTILITY(U,$J,358.3,17916,1,3,0)
+646 ;;=3^EXAM OF VULVA W/SCOPE
+647 ;;^UTILITY(U,$J,358.3,17917,0)
+648 ;;=57421^^60^717^30^^^^1
+649 ;;^UTILITY(U,$J,358.3,17917,1,0)
+650 ;;=^358.31IA^3^2
+651 ;;^UTILITY(U,$J,358.3,17917,1,2,0)
+652 ;;=2^57421
+653 ;;^UTILITY(U,$J,358.3,17917,1,3,0)
+654 ;;=3^EXAM/BIOPSY OF VAG W/SCOPE
+655 ;;^UTILITY(U,$J,358.3,17918,0)
+656 ;;=56821^^60^717^31^^^^1
+657 ;;^UTILITY(U,$J,358.3,17918,1,0)
+658 ;;=^358.31IA^3^2
+659 ;;^UTILITY(U,$J,358.3,17918,1,2,0)
+660 ;;=2^56821
+661 ;;^UTILITY(U,$J,358.3,17918,1,3,0)
+662 ;;=3^EXAM/BIOPSY OF VULVA W/SCOPE
+663 ;;^UTILITY(U,$J,358.3,17919,0)
+664 ;;=58300^^60^717^38^^^^1
+665 ;;^UTILITY(U,$J,358.3,17919,1,0)
+666 ;;=^358.31IA^3^2
+667 ;;^UTILITY(U,$J,358.3,17919,1,2,0)
+668 ;;=2^58300
+669 ;;^UTILITY(U,$J,358.3,17919,1,3,0)
+670 ;;=3^INSERT INTRAUTERINE DEVICE
+671 ;;^UTILITY(U,$J,358.3,17920,0)
+672 ;;=57160^^60^717^40^^^^1
+673 ;;^UTILITY(U,$J,358.3,17920,1,0)
+674 ;;=^358.31IA^3^2
+675 ;;^UTILITY(U,$J,358.3,17920,1,2,0)
+676 ;;=2^57160
+677 ;;^UTILITY(U,$J,358.3,17920,1,3,0)
+678 ;;=3^INSERT PESSARY/OTHER DEVICE
+679 ;;^UTILITY(U,$J,358.3,17921,0)
+680 ;;=58301^^60^717^48^^^^1
+681 ;;^UTILITY(U,$J,358.3,17921,1,0)
+682 ;;=^358.31IA^3^2
+683 ;;^UTILITY(U,$J,358.3,17921,1,2,0)
+684 ;;=2^58301
+685 ;;^UTILITY(U,$J,358.3,17921,1,3,0)
+686 ;;=3^REMOVE INTRAUTERINE DEVICE
+687 ;;^UTILITY(U,$J,358.3,17922,0)
+688 ;;=57150^^60^717^53^^^^1
+689 ;;^UTILITY(U,$J,358.3,17922,1,0)
+690 ;;=^358.31IA^3^2
+691 ;;^UTILITY(U,$J,358.3,17922,1,2,0)
+692 ;;=2^57150
+693 ;;^UTILITY(U,$J,358.3,17922,1,3,0)
+694 ;;=3^TREAT VAGINA INFECTION