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

IBDEI0FA.m

Go to the documentation of this file.
IBDEI0FA ; ; 03-MAY-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,38214,1,4,0)
 ;;=4^F10.931
 ;;^UTILITY(U,$J,358.3,38214,2)
 ;;=^5159135
 ;;^UTILITY(U,$J,358.3,38215,0)
 ;;=F10.932^^107^1501^11
 ;;^UTILITY(U,$J,358.3,38215,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38215,1,3,0)
 ;;=3^Alcohol Use,Unspec w/ Withdrawal w/ Perceptual Disturbance
 ;;^UTILITY(U,$J,358.3,38215,1,4,0)
 ;;=4^F10.932
 ;;^UTILITY(U,$J,358.3,38215,2)
 ;;=^5159136
 ;;^UTILITY(U,$J,358.3,38216,0)
 ;;=F10.939^^107^1501^13
 ;;^UTILITY(U,$J,358.3,38216,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38216,1,3,0)
 ;;=3^Alcohol Use,Unspec w/ Withdrawal,Unspec
 ;;^UTILITY(U,$J,358.3,38216,1,4,0)
 ;;=4^F10.939
 ;;^UTILITY(U,$J,358.3,38216,2)
 ;;=^5159137
 ;;^UTILITY(U,$J,358.3,38217,0)
 ;;=F12.13^^107^1501^14
 ;;^UTILITY(U,$J,358.3,38217,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38217,1,3,0)
 ;;=3^Cannabis Abuse w/ Withdrawal
 ;;^UTILITY(U,$J,358.3,38217,1,4,0)
 ;;=4^F12.13
 ;;^UTILITY(U,$J,358.3,38217,2)
 ;;=^5159139
 ;;^UTILITY(U,$J,358.3,38218,0)
 ;;=F11.13^^107^1501^47
 ;;^UTILITY(U,$J,358.3,38218,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38218,1,3,0)
 ;;=3^Opioid Abuse w/ Withdrawal
 ;;^UTILITY(U,$J,358.3,38218,1,4,0)
 ;;=4^F11.13
 ;;^UTILITY(U,$J,358.3,38218,2)
 ;;=^5159138
 ;;^UTILITY(U,$J,358.3,38219,0)
 ;;=I83.019^^107^1502^3
 ;;^UTILITY(U,$J,358.3,38219,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38219,1,3,0)
 ;;=3^Varicose Veins Right Lower Extrem w/ Ulcer,Unspec
 ;;^UTILITY(U,$J,358.3,38219,1,4,0)
 ;;=4^I83.019
 ;;^UTILITY(U,$J,358.3,38219,2)
 ;;=^5007979
 ;;^UTILITY(U,$J,358.3,38220,0)
 ;;=I83.219^^107^1502^4
 ;;^UTILITY(U,$J,358.3,38220,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38220,1,3,0)
 ;;=3^Varicose Veins Right Lower Extrem w/ Ulcer & Inflam,Unspec
 ;;^UTILITY(U,$J,358.3,38220,1,4,0)
 ;;=4^I83.219
 ;;^UTILITY(U,$J,358.3,38220,2)
 ;;=^5008003
 ;;^UTILITY(U,$J,358.3,38221,0)
 ;;=I83.029^^107^1502^1
 ;;^UTILITY(U,$J,358.3,38221,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38221,1,3,0)
 ;;=3^Varicose Veins Left Lower Extrem w/ Ulcer,Unspec
 ;;^UTILITY(U,$J,358.3,38221,1,4,0)
 ;;=4^I83.029
 ;;^UTILITY(U,$J,358.3,38221,2)
 ;;=^5007986
 ;;^UTILITY(U,$J,358.3,38222,0)
 ;;=I83.229^^107^1502^2
 ;;^UTILITY(U,$J,358.3,38222,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38222,1,3,0)
 ;;=3^Varicose Veins Left Lower Extrem w/ Ulcer & Inflam,Unspec
 ;;^UTILITY(U,$J,358.3,38222,1,4,0)
 ;;=4^I83.229
 ;;^UTILITY(U,$J,358.3,38222,2)
 ;;=^5008010
 ;;^UTILITY(U,$J,358.3,38223,0)
 ;;=B00.81^^107^1503^55
 ;;^UTILITY(U,$J,358.3,38223,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38223,1,3,0)
 ;;=3^Herpesviral Hepatitis
 ;;^UTILITY(U,$J,358.3,38223,1,4,0)
 ;;=4^B00.81
 ;;^UTILITY(U,$J,358.3,38223,2)
 ;;=^5000478
 ;;^UTILITY(U,$J,358.3,38224,0)
 ;;=D25.9^^107^1503^64
 ;;^UTILITY(U,$J,358.3,38224,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38224,1,3,0)
 ;;=3^Leiomyoma of Uterus,Unspec
 ;;^UTILITY(U,$J,358.3,38224,1,4,0)
 ;;=4^D25.9
 ;;^UTILITY(U,$J,358.3,38224,2)
 ;;=^5002081
 ;;^UTILITY(U,$J,358.3,38225,0)
 ;;=F52.9^^107^1503^103
 ;;^UTILITY(U,$J,358.3,38225,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38225,1,3,0)
 ;;=3^Sexual Dysfnct Not d/t a Sub/Known Physiol Cond,Unspec
 ;;^UTILITY(U,$J,358.3,38225,1,4,0)
 ;;=4^F52.9
 ;;^UTILITY(U,$J,358.3,38225,2)
 ;;=^5003625
 ;;^UTILITY(U,$J,358.3,38226,0)
 ;;=R37.^^107^1503^104
 ;;^UTILITY(U,$J,358.3,38226,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38226,1,3,0)
 ;;=3^Sexual Dysfunction,Unspec
 ;;^UTILITY(U,$J,358.3,38226,1,4,0)
 ;;=4^R37.
 ;;^UTILITY(U,$J,358.3,38226,2)
 ;;=^5019339
 ;;^UTILITY(U,$J,358.3,38227,0)
 ;;=N60.01^^107^1503^107
 ;;^UTILITY(U,$J,358.3,38227,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38227,1,3,0)
 ;;=3^Solitary Cyst of Right Breast
 ;;^UTILITY(U,$J,358.3,38227,1,4,0)
 ;;=4^N60.01
 ;;^UTILITY(U,$J,358.3,38227,2)
 ;;=^5015770
 ;;^UTILITY(U,$J,358.3,38228,0)
 ;;=N60.02^^107^1503^106
 ;;^UTILITY(U,$J,358.3,38228,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38228,1,3,0)
 ;;=3^Solitary Cyst of Left Breast
 ;;^UTILITY(U,$J,358.3,38228,1,4,0)
 ;;=4^N60.02
 ;;^UTILITY(U,$J,358.3,38228,2)
 ;;=^5015771
 ;;^UTILITY(U,$J,358.3,38229,0)
 ;;=N60.09^^107^1503^108
 ;;^UTILITY(U,$J,358.3,38229,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38229,1,3,0)
 ;;=3^Solitary Cyst of Unspec Breast
 ;;^UTILITY(U,$J,358.3,38229,1,4,0)
 ;;=4^N60.09
 ;;^UTILITY(U,$J,358.3,38229,2)
 ;;=^5015772
 ;;^UTILITY(U,$J,358.3,38230,0)
 ;;=N60.11^^107^1503^27
 ;;^UTILITY(U,$J,358.3,38230,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38230,1,3,0)
 ;;=3^Diffuse Cystic Mastopathy of Right Breast
 ;;^UTILITY(U,$J,358.3,38230,1,4,0)
 ;;=4^N60.11
 ;;^UTILITY(U,$J,358.3,38230,2)
 ;;=^5015773
 ;;^UTILITY(U,$J,358.3,38231,0)
 ;;=N60.12^^107^1503^26
 ;;^UTILITY(U,$J,358.3,38231,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38231,1,3,0)
 ;;=3^Diffuse Cystic Mastopathy of Left Breast
 ;;^UTILITY(U,$J,358.3,38231,1,4,0)
 ;;=4^N60.12
 ;;^UTILITY(U,$J,358.3,38231,2)
 ;;=^5015774
 ;;^UTILITY(U,$J,358.3,38232,0)
 ;;=N64.4^^107^1503^68
 ;;^UTILITY(U,$J,358.3,38232,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38232,1,3,0)
 ;;=3^Mastodynia
 ;;^UTILITY(U,$J,358.3,38232,1,4,0)
 ;;=4^N64.4
 ;;^UTILITY(U,$J,358.3,38232,2)
 ;;=^5015794
 ;;^UTILITY(U,$J,358.3,38233,0)
 ;;=N64.51^^107^1503^60
 ;;^UTILITY(U,$J,358.3,38233,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38233,1,3,0)
 ;;=3^Induration of Breast
 ;;^UTILITY(U,$J,358.3,38233,1,4,0)
 ;;=4^N64.51
 ;;^UTILITY(U,$J,358.3,38233,2)
 ;;=^5015795
 ;;^UTILITY(U,$J,358.3,38234,0)
 ;;=N64.59^^107^1503^105
 ;;^UTILITY(U,$J,358.3,38234,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38234,1,3,0)
 ;;=3^Signs and Symptoms in Breast,Other
 ;;^UTILITY(U,$J,358.3,38234,1,4,0)
 ;;=4^N64.59
 ;;^UTILITY(U,$J,358.3,38234,2)
 ;;=^5015797
 ;;^UTILITY(U,$J,358.3,38235,0)
 ;;=N64.52^^107^1503^71
 ;;^UTILITY(U,$J,358.3,38235,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38235,1,3,0)
 ;;=3^Nipple Discharge
 ;;^UTILITY(U,$J,358.3,38235,1,4,0)
 ;;=4^N64.52
 ;;^UTILITY(U,$J,358.3,38235,2)
 ;;=^259531
 ;;^UTILITY(U,$J,358.3,38236,0)
 ;;=N64.53^^107^1503^99
 ;;^UTILITY(U,$J,358.3,38236,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38236,1,3,0)
 ;;=3^Retraction of Nipple
 ;;^UTILITY(U,$J,358.3,38236,1,4,0)
 ;;=4^N64.53
 ;;^UTILITY(U,$J,358.3,38236,2)
 ;;=^5015796
 ;;^UTILITY(U,$J,358.3,38237,0)
 ;;=N75.1^^107^1503^8
 ;;^UTILITY(U,$J,358.3,38237,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38237,1,3,0)
 ;;=3^Abscess of Bartholin's Gland
 ;;^UTILITY(U,$J,358.3,38237,1,4,0)
 ;;=4^N75.1
 ;;^UTILITY(U,$J,358.3,38237,2)
 ;;=^5015823
 ;;^UTILITY(U,$J,358.3,38238,0)
 ;;=N80.9^^107^1503^37
 ;;^UTILITY(U,$J,358.3,38238,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38238,1,3,0)
 ;;=3^Endometriosis,Unspec
 ;;^UTILITY(U,$J,358.3,38238,1,4,0)
 ;;=4^N80.9
 ;;^UTILITY(U,$J,358.3,38238,2)
 ;;=^5015837
 ;;^UTILITY(U,$J,358.3,38239,0)
 ;;=N81.4^^107^1503^112
 ;;^UTILITY(U,$J,358.3,38239,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38239,1,3,0)
 ;;=3^Uterovaginal Prolapse,Unspec
 ;;^UTILITY(U,$J,358.3,38239,1,4,0)
 ;;=4^N81.4
 ;;^UTILITY(U,$J,358.3,38239,2)
 ;;=^5015841
 ;;^UTILITY(U,$J,358.3,38240,0)
 ;;=N84.8^^107^1503^87
 ;;^UTILITY(U,$J,358.3,38240,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38240,1,3,0)
 ;;=3^Polyp of Other Parts of Female Genital Tract
 ;;^UTILITY(U,$J,358.3,38240,1,4,0)
 ;;=4^N84.8
 ;;^UTILITY(U,$J,358.3,38240,2)
 ;;=^5015868
 ;;^UTILITY(U,$J,358.3,38241,0)
 ;;=N84.0^^107^1503^85
 ;;^UTILITY(U,$J,358.3,38241,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38241,1,3,0)
 ;;=3^Polyp of Corpus Uteri
 ;;^UTILITY(U,$J,358.3,38241,1,4,0)
 ;;=4^N84.0
 ;;^UTILITY(U,$J,358.3,38241,2)
 ;;=^270517
 ;;^UTILITY(U,$J,358.3,38242,0)
 ;;=N84.9^^107^1503^86
 ;;^UTILITY(U,$J,358.3,38242,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38242,1,3,0)
 ;;=3^Polyp of Female Genital Tract,Unspec
 ;;^UTILITY(U,$J,358.3,38242,1,4,0)
 ;;=4^N84.9
 ;;^UTILITY(U,$J,358.3,38242,2)
 ;;=^5015869
 ;;^UTILITY(U,$J,358.3,38243,0)
 ;;=N84.1^^107^1503^84
 ;;^UTILITY(U,$J,358.3,38243,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38243,1,3,0)
 ;;=3^Polyp of Cervix Uteri
 ;;^UTILITY(U,$J,358.3,38243,1,4,0)
 ;;=4^N84.1
 ;;^UTILITY(U,$J,358.3,38243,2)
 ;;=^5015866
 ;;^UTILITY(U,$J,358.3,38244,0)
 ;;=N89.1^^107^1503^114
 ;;^UTILITY(U,$J,358.3,38244,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38244,1,3,0)
 ;;=3^Vaginal Dysplasia,Moderate
 ;;^UTILITY(U,$J,358.3,38244,1,4,0)
 ;;=4^N89.1
 ;;^UTILITY(U,$J,358.3,38244,2)
 ;;=^5015886
 ;;^UTILITY(U,$J,358.3,38245,0)
 ;;=N89.0^^107^1503^113
 ;;^UTILITY(U,$J,358.3,38245,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38245,1,3,0)
 ;;=3^Vaginal Dysplasia,Mild
 ;;^UTILITY(U,$J,358.3,38245,1,4,0)
 ;;=4^N89.0
 ;;^UTILITY(U,$J,358.3,38245,2)
 ;;=^5015885
 ;;^UTILITY(U,$J,358.3,38246,0)
 ;;=N89.3^^107^1503^115
 ;;^UTILITY(U,$J,358.3,38246,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38246,1,3,0)
 ;;=3^Vaginal Dysplasia,Unspec
 ;;^UTILITY(U,$J,358.3,38246,1,4,0)
 ;;=4^N89.3
 ;;^UTILITY(U,$J,358.3,38246,2)
 ;;=^5015887
 ;;^UTILITY(U,$J,358.3,38247,0)
 ;;=N90.4^^107^1503^65
 ;;^UTILITY(U,$J,358.3,38247,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38247,1,3,0)
 ;;=3^Leukoplakia of Vulva
 ;;^UTILITY(U,$J,358.3,38247,1,4,0)
 ;;=4^N90.4
 ;;^UTILITY(U,$J,358.3,38247,2)
 ;;=^5015894
 ;;^UTILITY(U,$J,358.3,38248,0)
 ;;=N94.2^^107^1503^116
 ;;^UTILITY(U,$J,358.3,38248,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38248,1,3,0)
 ;;=3^Vaginismus
 ;;^UTILITY(U,$J,358.3,38248,1,4,0)
 ;;=4^N94.2
 ;;^UTILITY(U,$J,358.3,38248,2)
 ;;=^5015918
 ;;^UTILITY(U,$J,358.3,38249,0)
 ;;=N94.0^^107^1503^70
 ;;^UTILITY(U,$J,358.3,38249,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38249,1,3,0)
 ;;=3^Mittelschmerz
 ;;^UTILITY(U,$J,358.3,38249,1,4,0)
 ;;=4^N94.0
 ;;^UTILITY(U,$J,358.3,38249,2)
 ;;=^265259
 ;;^UTILITY(U,$J,358.3,38250,0)
 ;;=N94.6^^107^1503^30
 ;;^UTILITY(U,$J,358.3,38250,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38250,1,3,0)
 ;;=3^Dysmenorrhea,Unspec
 ;;^UTILITY(U,$J,358.3,38250,1,4,0)
 ;;=4^N94.6
 ;;^UTILITY(U,$J,358.3,38250,2)
 ;;=^5015922
 ;;^UTILITY(U,$J,358.3,38251,0)
 ;;=N94.5^^107^1503^29
 ;;^UTILITY(U,$J,358.3,38251,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38251,1,3,0)
 ;;=3^Dysmenorrhea,Secondary
 ;;^UTILITY(U,$J,358.3,38251,1,4,0)
 ;;=4^N94.5
 ;;^UTILITY(U,$J,358.3,38251,2)
 ;;=^5015921
 ;;^UTILITY(U,$J,358.3,38252,0)
 ;;=N94.4^^107^1503^28
 ;;^UTILITY(U,$J,358.3,38252,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38252,1,3,0)
 ;;=3^Dysmenorrhea,Primary
 ;;^UTILITY(U,$J,358.3,38252,1,4,0)
 ;;=4^N94.4
 ;;^UTILITY(U,$J,358.3,38252,2)
 ;;=^5015920
 ;;^UTILITY(U,$J,358.3,38253,0)
 ;;=N94.3^^107^1503^95
 ;;^UTILITY(U,$J,358.3,38253,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38253,1,3,0)
 ;;=3^Premenstrual Tension Syndrome
 ;;^UTILITY(U,$J,358.3,38253,1,4,0)
 ;;=4^N94.3
 ;;^UTILITY(U,$J,358.3,38253,2)
 ;;=^5015919
 ;;^UTILITY(U,$J,358.3,38254,0)
 ;;=N91.0^^107^1503^9
 ;;^UTILITY(U,$J,358.3,38254,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38254,1,3,0)
 ;;=3^Amenorrhea,Primary
 ;;^UTILITY(U,$J,358.3,38254,1,4,0)
 ;;=4^N91.0
 ;;^UTILITY(U,$J,358.3,38254,2)
 ;;=^5015902
 ;;^UTILITY(U,$J,358.3,38255,0)
 ;;=N91.1^^107^1503^10
 ;;^UTILITY(U,$J,358.3,38255,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38255,1,3,0)
 ;;=3^Amenorrhea,Secondary
 ;;^UTILITY(U,$J,358.3,38255,1,4,0)
 ;;=4^N91.1
 ;;^UTILITY(U,$J,358.3,38255,2)
 ;;=^5015903
 ;;^UTILITY(U,$J,358.3,38256,0)
 ;;=N91.2^^107^1503^11
 ;;^UTILITY(U,$J,358.3,38256,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38256,1,3,0)
 ;;=3^Amenorrhea,Unspec
 ;;^UTILITY(U,$J,358.3,38256,1,4,0)
 ;;=4^N91.2
 ;;^UTILITY(U,$J,358.3,38256,2)
 ;;=^5015904
 ;;^UTILITY(U,$J,358.3,38257,0)
 ;;=N91.3^^107^1503^73
 ;;^UTILITY(U,$J,358.3,38257,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38257,1,3,0)
 ;;=3^Oligomenorrhea,Primary
 ;;^UTILITY(U,$J,358.3,38257,1,4,0)
 ;;=4^N91.3
 ;;^UTILITY(U,$J,358.3,38257,2)
 ;;=^5015905
 ;;^UTILITY(U,$J,358.3,38258,0)
 ;;=N91.4^^107^1503^74
 ;;^UTILITY(U,$J,358.3,38258,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38258,1,3,0)
 ;;=3^Oligomenorrhea,Secondary
 ;;^UTILITY(U,$J,358.3,38258,1,4,0)
 ;;=4^N91.4
 ;;^UTILITY(U,$J,358.3,38258,2)
 ;;=^5015906
 ;;^UTILITY(U,$J,358.3,38259,0)
 ;;=N91.5^^107^1503^75
 ;;^UTILITY(U,$J,358.3,38259,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38259,1,3,0)
 ;;=3^Oligomenorrhea,Unspec
 ;;^UTILITY(U,$J,358.3,38259,1,4,0)
 ;;=4^N91.5
 ;;^UTILITY(U,$J,358.3,38259,2)
 ;;=^5015907
 ;;^UTILITY(U,$J,358.3,38260,0)
 ;;=N92.0^^107^1503^40
 ;;^UTILITY(U,$J,358.3,38260,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38260,1,3,0)
 ;;=3^Excessive/Frequent Menstruation w/ Regular Cycle
 ;;^UTILITY(U,$J,358.3,38260,1,4,0)
 ;;=4^N92.0
 ;;^UTILITY(U,$J,358.3,38260,2)
 ;;=^5015908
 ;;^UTILITY(U,$J,358.3,38261,0)
 ;;=N92.6^^107^1503^62
 ;;^UTILITY(U,$J,358.3,38261,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38261,1,3,0)
 ;;=3^Irregular Menstruation,Unspec
 ;;^UTILITY(U,$J,358.3,38261,1,4,0)
 ;;=4^N92.6
 ;;^UTILITY(U,$J,358.3,38261,2)
 ;;=^5015913
 ;;^UTILITY(U,$J,358.3,38262,0)
 ;;=N92.5^^107^1503^61
 ;;^UTILITY(U,$J,358.3,38262,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38262,1,3,0)
 ;;=3^Irregular Menstruation,Other Spec
 ;;^UTILITY(U,$J,358.3,38262,1,4,0)
 ;;=4^N92.5
 ;;^UTILITY(U,$J,358.3,38262,2)
 ;;=^5015912
 ;;^UTILITY(U,$J,358.3,38263,0)
 ;;=N92.3^^107^1503^80
 ;;^UTILITY(U,$J,358.3,38263,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38263,1,3,0)
 ;;=3^Ovulation Bleeding
 ;;^UTILITY(U,$J,358.3,38263,1,4,0)
 ;;=4^N92.3
 ;;^UTILITY(U,$J,358.3,38263,2)
 ;;=^270570
 ;;^UTILITY(U,$J,358.3,38264,0)
 ;;=N89.7^^107^1503^54
 ;;^UTILITY(U,$J,358.3,38264,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38264,1,3,0)
 ;;=3^Hematocolpos
 ;;^UTILITY(U,$J,358.3,38264,1,4,0)
 ;;=4^N89.7
 ;;^UTILITY(U,$J,358.3,38264,2)
 ;;=^5015889
 ;;^UTILITY(U,$J,358.3,38265,0)
 ;;=N93.8^^107^1503^5
 ;;^UTILITY(U,$J,358.3,38265,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38265,1,3,0)
 ;;=3^Abnormal Uterine/Vaginal Bleeding,Other Spec
 ;;^UTILITY(U,$J,358.3,38265,1,4,0)
 ;;=4^N93.8
 ;;^UTILITY(U,$J,358.3,38265,2)
 ;;=^5015915
 ;;^UTILITY(U,$J,358.3,38266,0)
 ;;=N93.9^^107^1503^6
 ;;^UTILITY(U,$J,358.3,38266,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38266,1,3,0)
 ;;=3^Abnormal Uterine/Vaginal Bleeding,Unspec
 ;;^UTILITY(U,$J,358.3,38266,1,4,0)
 ;;=4^N93.9
 ;;^UTILITY(U,$J,358.3,38266,2)
 ;;=^5015916
 ;;^UTILITY(U,$J,358.3,38267,0)
 ;;=N92.4^^107^1503^38
 ;;^UTILITY(U,$J,358.3,38267,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38267,1,3,0)
 ;;=3^Excessive Bleeding in Premenopausal Period
 ;;^UTILITY(U,$J,358.3,38267,1,4,0)
 ;;=4^N92.4
 ;;^UTILITY(U,$J,358.3,38267,2)
 ;;=^5015911
 ;;^UTILITY(U,$J,358.3,38268,0)
 ;;=N95.0^^107^1503^89
 ;;^UTILITY(U,$J,358.3,38268,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38268,1,3,0)
 ;;=3^Postmenopausal Bleeding
 ;;^UTILITY(U,$J,358.3,38268,1,4,0)
 ;;=4^N95.0
 ;;^UTILITY(U,$J,358.3,38268,2)
 ;;=^97040
 ;;^UTILITY(U,$J,358.3,38269,0)
 ;;=N95.1^^107^1503^69
 ;;^UTILITY(U,$J,358.3,38269,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38269,1,3,0)
 ;;=3^Menopausal/Female Climacteric States
 ;;^UTILITY(U,$J,358.3,38269,1,4,0)
 ;;=4^N95.1
 ;;^UTILITY(U,$J,358.3,38269,2)
 ;;=^5015927
 ;;^UTILITY(U,$J,358.3,38270,0)
 ;;=N97.0^^107^1503^45
 ;;^UTILITY(U,$J,358.3,38270,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38270,1,3,0)
 ;;=3^Female Infertility Associated w/ Anovulation
 ;;^UTILITY(U,$J,358.3,38270,1,4,0)
 ;;=4^N97.0
 ;;^UTILITY(U,$J,358.3,38270,2)
 ;;=^5015931
 ;;^UTILITY(U,$J,358.3,38271,0)
 ;;=N97.9^^107^1503^46
 ;;^UTILITY(U,$J,358.3,38271,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38271,1,3,0)
 ;;=3^Female Infertility,Unspec
 ;;^UTILITY(U,$J,358.3,38271,1,4,0)
 ;;=4^N97.9
 ;;^UTILITY(U,$J,358.3,38271,2)
 ;;=^5015935
 ;;^UTILITY(U,$J,358.3,38272,0)
 ;;=L29.2^^107^1503^96
 ;;^UTILITY(U,$J,358.3,38272,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38272,1,3,0)
 ;;=3^Pruritus Vulvae
 ;;^UTILITY(U,$J,358.3,38272,1,4,0)
 ;;=4^L29.2
 ;;^UTILITY(U,$J,358.3,38272,2)
 ;;=^100075
 ;;^UTILITY(U,$J,358.3,38273,0)
 ;;=R92.8^^107^1503^7
 ;;^UTILITY(U,$J,358.3,38273,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38273,1,3,0)
 ;;=3^Abnormal/Inconclusive Findings on Dx Imaging of Breast
 ;;^UTILITY(U,$J,358.3,38273,1,4,0)
 ;;=4^R92.8
 ;;^UTILITY(U,$J,358.3,38273,2)
 ;;=^5019712
 ;;^UTILITY(U,$J,358.3,38274,0)
 ;;=R87.619^^107^1503^4
 ;;^UTILITY(U,$J,358.3,38274,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38274,1,3,0)
 ;;=3^Abnormal Cytology Findings in Specimen of Cervix Uteri,Unspec
 ;;^UTILITY(U,$J,358.3,38274,1,4,0)
 ;;=4^R87.619
 ;;^UTILITY(U,$J,358.3,38274,2)
 ;;=^5019676
 ;;^UTILITY(U,$J,358.3,38275,0)
 ;;=Z79.890^^107^1503^56
 ;;^UTILITY(U,$J,358.3,38275,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38275,1,3,0)
 ;;=3^Hormone Replacement Therapy,Postmenopausal
 ;;^UTILITY(U,$J,358.3,38275,1,4,0)
 ;;=4^Z79.890
 ;;^UTILITY(U,$J,358.3,38275,2)
 ;;=^331975
 ;;^UTILITY(U,$J,358.3,38276,0)
 ;;=Z33.1^^107^1503^94
 ;;^UTILITY(U,$J,358.3,38276,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38276,1,3,0)
 ;;=3^Pregnant State,Incidental
 ;;^UTILITY(U,$J,358.3,38276,1,4,0)
 ;;=4^Z33.1
 ;;^UTILITY(U,$J,358.3,38276,2)
 ;;=^5062853
 ;;^UTILITY(U,$J,358.3,38277,0)
 ;;=Z39.2^^107^1503^90
 ;;^UTILITY(U,$J,358.3,38277,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38277,1,3,0)
 ;;=3^Postpartum Follow-up Routine Encounter
 ;;^UTILITY(U,$J,358.3,38277,1,4,0)
 ;;=4^Z39.2
 ;;^UTILITY(U,$J,358.3,38277,2)
 ;;=^5062906
 ;;^UTILITY(U,$J,358.3,38278,0)
 ;;=Z30.09^^107^1503^21
 ;;^UTILITY(U,$J,358.3,38278,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38278,1,3,0)
 ;;=3^Counsel/Advice on Contraception Encounter
 ;;^UTILITY(U,$J,358.3,38278,1,4,0)
 ;;=4^Z30.09
 ;;^UTILITY(U,$J,358.3,38278,2)
 ;;=^5062817
 ;;^UTILITY(U,$J,358.3,38279,0)
 ;;=Z30.9^^107^1503^20
 ;;^UTILITY(U,$J,358.3,38279,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38279,1,3,0)
 ;;=3^Contraceptive Management Encounter
 ;;^UTILITY(U,$J,358.3,38279,1,4,0)
 ;;=4^Z30.9
 ;;^UTILITY(U,$J,358.3,38279,2)
 ;;=^5062828
 ;;^UTILITY(U,$J,358.3,38280,0)
 ;;=N64.3^^107^1503^52
 ;;^UTILITY(U,$J,358.3,38280,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38280,1,3,0)
 ;;=3^Galactorrhea Not Associated w/ Childbirth
 ;;^UTILITY(U,$J,358.3,38280,1,4,0)
 ;;=4^N64.3
 ;;^UTILITY(U,$J,358.3,38280,2)
 ;;=^270460
 ;;^UTILITY(U,$J,358.3,38281,0)
 ;;=R92.2^^107^1503^59
 ;;^UTILITY(U,$J,358.3,38281,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38281,1,3,0)
 ;;=3^Inconclusive Mammogram
 ;;^UTILITY(U,$J,358.3,38281,1,4,0)
 ;;=4^R92.2
 ;;^UTILITY(U,$J,358.3,38281,2)
 ;;=^5019711
 ;;^UTILITY(U,$J,358.3,38282,0)
 ;;=Z30.432^^107^1503^98
 ;;^UTILITY(U,$J,358.3,38282,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,38282,1,3,0)
 ;;=3^Removal of IUD
 ;;^UTILITY(U,$J,358.3,38282,1,4,0)
 ;;=4^Z30.432
 ;;^UTILITY(U,$J,358.3,38282,2)
 ;;=^5062824
 ;;^UTILITY(U,$J,358.3,38283,0)
 ;;=A63.0^^107^1503^12
 ;;^UTILITY(U,$J,358.3,38283,1,0)
 ;;=^358.31IA^4^2