IBDEI06R ; ; 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,16391,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16391,1,3,0)
;;=3^Alcohol Abuse w/ Intoxication,Uncomplicated
;;^UTILITY(U,$J,358.3,16391,1,4,0)
;;=4^F10.120
;;^UTILITY(U,$J,358.3,16391,2)
;;=^5003069
;;^UTILITY(U,$J,358.3,16392,0)
;;=F10.10^^56^658^7
;;^UTILITY(U,$J,358.3,16392,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16392,1,3,0)
;;=3^Alcohol Abuse,Uncomplicated
;;^UTILITY(U,$J,358.3,16392,1,4,0)
;;=4^F10.10
;;^UTILITY(U,$J,358.3,16392,2)
;;=^5003068
;;^UTILITY(U,$J,358.3,16393,0)
;;=F17.201^^56^658^41
;;^UTILITY(U,$J,358.3,16393,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16393,1,3,0)
;;=3^Nicotine Dependence In Remission,Unspec
;;^UTILITY(U,$J,358.3,16393,1,4,0)
;;=4^F17.201
;;^UTILITY(U,$J,358.3,16393,2)
;;=^5003361
;;^UTILITY(U,$J,358.3,16394,0)
;;=F17.210^^56^658^40
;;^UTILITY(U,$J,358.3,16394,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16394,1,3,0)
;;=3^Nicotine Dependence Cigarettes,Uncomplicated
;;^UTILITY(U,$J,358.3,16394,1,4,0)
;;=4^F17.210
;;^UTILITY(U,$J,358.3,16394,2)
;;=^5003365
;;^UTILITY(U,$J,358.3,16395,0)
;;=F17.291^^56^658^42
;;^UTILITY(U,$J,358.3,16395,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16395,1,3,0)
;;=3^Nicotine Dependence Oth Tobacco Product,In Remission
;;^UTILITY(U,$J,358.3,16395,1,4,0)
;;=4^F17.291
;;^UTILITY(U,$J,358.3,16395,2)
;;=^5003376
;;^UTILITY(U,$J,358.3,16396,0)
;;=F17.290^^56^658^43
;;^UTILITY(U,$J,358.3,16396,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16396,1,3,0)
;;=3^Nicotine Dependence Oth Tobacco Product,Uncomplicated
;;^UTILITY(U,$J,358.3,16396,1,4,0)
;;=4^F17.290
;;^UTILITY(U,$J,358.3,16396,2)
;;=^5003375
;;^UTILITY(U,$J,358.3,16397,0)
;;=F17.221^^56^658^37
;;^UTILITY(U,$J,358.3,16397,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16397,1,3,0)
;;=3^Nicotine Dependence Chewing Tobacco,In Remission
;;^UTILITY(U,$J,358.3,16397,1,4,0)
;;=4^F17.221
;;^UTILITY(U,$J,358.3,16397,2)
;;=^5003371
;;^UTILITY(U,$J,358.3,16398,0)
;;=F17.220^^56^658^38
;;^UTILITY(U,$J,358.3,16398,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16398,1,3,0)
;;=3^Nicotine Dependence Chewing Tobacco,Uncomplicated
;;^UTILITY(U,$J,358.3,16398,1,4,0)
;;=4^F17.220
;;^UTILITY(U,$J,358.3,16398,2)
;;=^5003370
;;^UTILITY(U,$J,358.3,16399,0)
;;=F17.211^^56^658^39
;;^UTILITY(U,$J,358.3,16399,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16399,1,3,0)
;;=3^Nicotine Dependence Cigarettes,In Remission
;;^UTILITY(U,$J,358.3,16399,1,4,0)
;;=4^F17.211
;;^UTILITY(U,$J,358.3,16399,2)
;;=^5003366
;;^UTILITY(U,$J,358.3,16400,0)
;;=F17.200^^56^658^44
;;^UTILITY(U,$J,358.3,16400,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16400,1,3,0)
;;=3^Nicotine Dependence,Unspec,Uncomplicated
;;^UTILITY(U,$J,358.3,16400,1,4,0)
;;=4^F17.200
;;^UTILITY(U,$J,358.3,16400,2)
;;=^5003360
;;^UTILITY(U,$J,358.3,16401,0)
;;=F11.120^^56^658^45
;;^UTILITY(U,$J,358.3,16401,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16401,1,3,0)
;;=3^Opioid Abuse w/ Intoxication,Uncomplicated
;;^UTILITY(U,$J,358.3,16401,1,4,0)
;;=4^F11.120
;;^UTILITY(U,$J,358.3,16401,2)
;;=^5003115
;;^UTILITY(U,$J,358.3,16402,0)
;;=F11.10^^56^658^49
;;^UTILITY(U,$J,358.3,16402,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16402,1,3,0)
;;=3^Opioid Abuse,Uncomplicated
;;^UTILITY(U,$J,358.3,16402,1,4,0)
;;=4^F11.10
;;^UTILITY(U,$J,358.3,16402,2)
;;=^5003114
;;^UTILITY(U,$J,358.3,16403,0)
;;=F11.129^^56^658^46
;;^UTILITY(U,$J,358.3,16403,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16403,1,3,0)
;;=3^Opioid Abuse w/ Intoxication,Unspec
;;^UTILITY(U,$J,358.3,16403,1,4,0)
;;=4^F11.129
;;^UTILITY(U,$J,358.3,16403,2)
;;=^5003118
;;^UTILITY(U,$J,358.3,16404,0)
;;=F10.21^^56^658^8
;;^UTILITY(U,$J,358.3,16404,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16404,1,3,0)
;;=3^Alcohol Dependence,In Remission
;;^UTILITY(U,$J,358.3,16404,1,4,0)
;;=4^F10.21
;;^UTILITY(U,$J,358.3,16404,2)
;;=^5003082
;;^UTILITY(U,$J,358.3,16405,0)
;;=F12.10^^56^658^16
;;^UTILITY(U,$J,358.3,16405,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16405,1,3,0)
;;=3^Cannabis Abuse,Uncomplicated
;;^UTILITY(U,$J,358.3,16405,1,4,0)
;;=4^F12.10
;;^UTILITY(U,$J,358.3,16405,2)
;;=^5003155
;;^UTILITY(U,$J,358.3,16406,0)
;;=F12.20^^56^658^18
;;^UTILITY(U,$J,358.3,16406,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16406,1,3,0)
;;=3^Cannabis Dependence,Uncomplicated
;;^UTILITY(U,$J,358.3,16406,1,4,0)
;;=4^F12.20
;;^UTILITY(U,$J,358.3,16406,2)
;;=^5003166
;;^UTILITY(U,$J,358.3,16407,0)
;;=F12.21^^56^658^17
;;^UTILITY(U,$J,358.3,16407,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16407,1,3,0)
;;=3^Cannabis Dependence,In Remission
;;^UTILITY(U,$J,358.3,16407,1,4,0)
;;=4^F12.21
;;^UTILITY(U,$J,358.3,16407,2)
;;=^5003167
;;^UTILITY(U,$J,358.3,16408,0)
;;=F12.90^^56^658^20
;;^UTILITY(U,$J,358.3,16408,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16408,1,3,0)
;;=3^Cannabis Use,Unspec,Uncomplicated
;;^UTILITY(U,$J,358.3,16408,1,4,0)
;;=4^F12.90
;;^UTILITY(U,$J,358.3,16408,2)
;;=^5003178
;;^UTILITY(U,$J,358.3,16409,0)
;;=F10.11^^56^658^6
;;^UTILITY(U,$J,358.3,16409,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16409,1,3,0)
;;=3^Alcohol Abuse,In Remission
;;^UTILITY(U,$J,358.3,16409,1,4,0)
;;=4^F10.11
;;^UTILITY(U,$J,358.3,16409,2)
;;=^268230
;;^UTILITY(U,$J,358.3,16410,0)
;;=F12.11^^56^658^15
;;^UTILITY(U,$J,358.3,16410,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16410,1,3,0)
;;=3^Cannabis Abuse,In Remission
;;^UTILITY(U,$J,358.3,16410,1,4,0)
;;=4^F12.11
;;^UTILITY(U,$J,358.3,16410,2)
;;=^268236
;;^UTILITY(U,$J,358.3,16411,0)
;;=F14.11^^56^658^21
;;^UTILITY(U,$J,358.3,16411,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16411,1,3,0)
;;=3^Cocaine Abuse,In Remission
;;^UTILITY(U,$J,358.3,16411,1,4,0)
;;=4^F14.11
;;^UTILITY(U,$J,358.3,16411,2)
;;=^268249
;;^UTILITY(U,$J,358.3,16412,0)
;;=F11.11^^56^658^48
;;^UTILITY(U,$J,358.3,16412,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16412,1,3,0)
;;=3^Opioid Abuse,In Remission
;;^UTILITY(U,$J,358.3,16412,1,4,0)
;;=4^F11.11
;;^UTILITY(U,$J,358.3,16412,2)
;;=^268246
;;^UTILITY(U,$J,358.3,16413,0)
;;=F12.93^^56^658^19
;;^UTILITY(U,$J,358.3,16413,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16413,1,3,0)
;;=3^Cannabis Use,Unspec w/ Withdrawal
;;^UTILITY(U,$J,358.3,16413,1,4,0)
;;=4^F12.93
;;^UTILITY(U,$J,358.3,16413,2)
;;=^5157302
;;^UTILITY(U,$J,358.3,16414,0)
;;=F10.130^^56^658^4
;;^UTILITY(U,$J,358.3,16414,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16414,1,3,0)
;;=3^Alcohol Abuse w/ Withdrawal,Uncomp
;;^UTILITY(U,$J,358.3,16414,1,4,0)
;;=4^F10.130
;;^UTILITY(U,$J,358.3,16414,2)
;;=^5159130
;;^UTILITY(U,$J,358.3,16415,0)
;;=F10.131^^56^658^2
;;^UTILITY(U,$J,358.3,16415,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16415,1,3,0)
;;=3^Alcohol Abuse w/ Withdrawal Delirium
;;^UTILITY(U,$J,358.3,16415,1,4,0)
;;=4^F10.131
;;^UTILITY(U,$J,358.3,16415,2)
;;=^5159131
;;^UTILITY(U,$J,358.3,16416,0)
;;=F10.132^^56^658^3
;;^UTILITY(U,$J,358.3,16416,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16416,1,3,0)
;;=3^Alcohol Abuse w/ Withdrawal w/ Perceptual Disturbance
;;^UTILITY(U,$J,358.3,16416,1,4,0)
;;=4^F10.132
;;^UTILITY(U,$J,358.3,16416,2)
;;=^5159132
;;^UTILITY(U,$J,358.3,16417,0)
;;=F10.139^^56^658^5
;;^UTILITY(U,$J,358.3,16417,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16417,1,3,0)
;;=3^Alcohol Abuse w/ Withdrawal,Unspec
;;^UTILITY(U,$J,358.3,16417,1,4,0)
;;=4^F10.139
;;^UTILITY(U,$J,358.3,16417,2)
;;=^5159133
;;^UTILITY(U,$J,358.3,16418,0)
;;=F10.930^^56^658^12
;;^UTILITY(U,$J,358.3,16418,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16418,1,3,0)
;;=3^Alcohol Use,Unspec w/ Withdrawal,Uncomp
;;^UTILITY(U,$J,358.3,16418,1,4,0)
;;=4^F10.930
;;^UTILITY(U,$J,358.3,16418,2)
;;=^5159134
;;^UTILITY(U,$J,358.3,16419,0)
;;=F10.931^^56^658^10
;;^UTILITY(U,$J,358.3,16419,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16419,1,3,0)
;;=3^Alcohol Use,Unspec w/ Withdrawal Delirium
;;^UTILITY(U,$J,358.3,16419,1,4,0)
;;=4^F10.931
;;^UTILITY(U,$J,358.3,16419,2)
;;=^5159135
;;^UTILITY(U,$J,358.3,16420,0)
;;=F10.932^^56^658^11
;;^UTILITY(U,$J,358.3,16420,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16420,1,3,0)
;;=3^Alcohol Use,Unspec w/ Withdrawal w/ Perceptual Disturbance
;;^UTILITY(U,$J,358.3,16420,1,4,0)
;;=4^F10.932
;;^UTILITY(U,$J,358.3,16420,2)
;;=^5159136
;;^UTILITY(U,$J,358.3,16421,0)
;;=F10.939^^56^658^13
;;^UTILITY(U,$J,358.3,16421,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16421,1,3,0)
;;=3^Alcohol Use,Unspec w/ Withdrawal,Unspec
;;^UTILITY(U,$J,358.3,16421,1,4,0)
;;=4^F10.939
;;^UTILITY(U,$J,358.3,16421,2)
;;=^5159137
;;^UTILITY(U,$J,358.3,16422,0)
;;=F12.13^^56^658^14
;;^UTILITY(U,$J,358.3,16422,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16422,1,3,0)
;;=3^Cannabis Abuse w/ Withdrawal
;;^UTILITY(U,$J,358.3,16422,1,4,0)
;;=4^F12.13
;;^UTILITY(U,$J,358.3,16422,2)
;;=^5159139
;;^UTILITY(U,$J,358.3,16423,0)
;;=F11.13^^56^658^47
;;^UTILITY(U,$J,358.3,16423,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16423,1,3,0)
;;=3^Opioid Abuse w/ Withdrawal
;;^UTILITY(U,$J,358.3,16423,1,4,0)
;;=4^F11.13
;;^UTILITY(U,$J,358.3,16423,2)
;;=^5159138
;;^UTILITY(U,$J,358.3,16424,0)
;;=I83.019^^56^659^3
;;^UTILITY(U,$J,358.3,16424,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16424,1,3,0)
;;=3^Varicose Veins Right Lower Extrem w/ Ulcer,Unspec
;;^UTILITY(U,$J,358.3,16424,1,4,0)
;;=4^I83.019
;;^UTILITY(U,$J,358.3,16424,2)
;;=^5007979
;;^UTILITY(U,$J,358.3,16425,0)
;;=I83.219^^56^659^4
;;^UTILITY(U,$J,358.3,16425,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16425,1,3,0)
;;=3^Varicose Veins Right Lower Extrem w/ Ulcer & Inflam,Unspec
;;^UTILITY(U,$J,358.3,16425,1,4,0)
;;=4^I83.219
;;^UTILITY(U,$J,358.3,16425,2)
;;=^5008003
;;^UTILITY(U,$J,358.3,16426,0)
;;=I83.029^^56^659^1
;;^UTILITY(U,$J,358.3,16426,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16426,1,3,0)
;;=3^Varicose Veins Left Lower Extrem w/ Ulcer,Unspec
;;^UTILITY(U,$J,358.3,16426,1,4,0)
;;=4^I83.029
;;^UTILITY(U,$J,358.3,16426,2)
;;=^5007986
;;^UTILITY(U,$J,358.3,16427,0)
;;=I83.229^^56^659^2
;;^UTILITY(U,$J,358.3,16427,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16427,1,3,0)
;;=3^Varicose Veins Left Lower Extrem w/ Ulcer & Inflam,Unspec
;;^UTILITY(U,$J,358.3,16427,1,4,0)
;;=4^I83.229
;;^UTILITY(U,$J,358.3,16427,2)
;;=^5008010
;;^UTILITY(U,$J,358.3,16428,0)
;;=B00.81^^56^660^55
;;^UTILITY(U,$J,358.3,16428,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16428,1,3,0)
;;=3^Herpesviral Hepatitis
;;^UTILITY(U,$J,358.3,16428,1,4,0)
;;=4^B00.81
;;^UTILITY(U,$J,358.3,16428,2)
;;=^5000478
;;^UTILITY(U,$J,358.3,16429,0)
;;=D25.9^^56^660^64
;;^UTILITY(U,$J,358.3,16429,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16429,1,3,0)
;;=3^Leiomyoma of Uterus,Unspec
;;^UTILITY(U,$J,358.3,16429,1,4,0)
;;=4^D25.9
;;^UTILITY(U,$J,358.3,16429,2)
;;=^5002081
;;^UTILITY(U,$J,358.3,16430,0)
;;=F52.9^^56^660^103
;;^UTILITY(U,$J,358.3,16430,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16430,1,3,0)
;;=3^Sexual Dysfnct Not d/t a Sub/Known Physiol Cond,Unspec
;;^UTILITY(U,$J,358.3,16430,1,4,0)
;;=4^F52.9
;;^UTILITY(U,$J,358.3,16430,2)
;;=^5003625
;;^UTILITY(U,$J,358.3,16431,0)
;;=R37.^^56^660^104
;;^UTILITY(U,$J,358.3,16431,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16431,1,3,0)
;;=3^Sexual Dysfunction,Unspec
;;^UTILITY(U,$J,358.3,16431,1,4,0)
;;=4^R37.
;;^UTILITY(U,$J,358.3,16431,2)
;;=^5019339
;;^UTILITY(U,$J,358.3,16432,0)
;;=N60.01^^56^660^107
;;^UTILITY(U,$J,358.3,16432,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16432,1,3,0)
;;=3^Solitary Cyst of Right Breast
;;^UTILITY(U,$J,358.3,16432,1,4,0)
;;=4^N60.01
;;^UTILITY(U,$J,358.3,16432,2)
;;=^5015770
;;^UTILITY(U,$J,358.3,16433,0)
;;=N60.02^^56^660^106
;;^UTILITY(U,$J,358.3,16433,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16433,1,3,0)
;;=3^Solitary Cyst of Left Breast
;;^UTILITY(U,$J,358.3,16433,1,4,0)
;;=4^N60.02
;;^UTILITY(U,$J,358.3,16433,2)
;;=^5015771
;;^UTILITY(U,$J,358.3,16434,0)
;;=N60.09^^56^660^108
;;^UTILITY(U,$J,358.3,16434,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16434,1,3,0)
;;=3^Solitary Cyst of Unspec Breast
;;^UTILITY(U,$J,358.3,16434,1,4,0)
;;=4^N60.09
;;^UTILITY(U,$J,358.3,16434,2)
;;=^5015772
;;^UTILITY(U,$J,358.3,16435,0)
;;=N60.11^^56^660^27
;;^UTILITY(U,$J,358.3,16435,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16435,1,3,0)
;;=3^Diffuse Cystic Mastopathy of Right Breast
;;^UTILITY(U,$J,358.3,16435,1,4,0)
;;=4^N60.11
;;^UTILITY(U,$J,358.3,16435,2)
;;=^5015773
;;^UTILITY(U,$J,358.3,16436,0)
;;=N60.12^^56^660^26
;;^UTILITY(U,$J,358.3,16436,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16436,1,3,0)
;;=3^Diffuse Cystic Mastopathy of Left Breast
;;^UTILITY(U,$J,358.3,16436,1,4,0)
;;=4^N60.12
;;^UTILITY(U,$J,358.3,16436,2)
;;=^5015774
;;^UTILITY(U,$J,358.3,16437,0)
;;=N64.4^^56^660^68
;;^UTILITY(U,$J,358.3,16437,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16437,1,3,0)
;;=3^Mastodynia
;;^UTILITY(U,$J,358.3,16437,1,4,0)
;;=4^N64.4
;;^UTILITY(U,$J,358.3,16437,2)
;;=^5015794
;;^UTILITY(U,$J,358.3,16438,0)
;;=N64.51^^56^660^60
;;^UTILITY(U,$J,358.3,16438,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16438,1,3,0)
;;=3^Induration of Breast
;;^UTILITY(U,$J,358.3,16438,1,4,0)
;;=4^N64.51
;;^UTILITY(U,$J,358.3,16438,2)
;;=^5015795
;;^UTILITY(U,$J,358.3,16439,0)
;;=N64.59^^56^660^105
;;^UTILITY(U,$J,358.3,16439,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16439,1,3,0)
;;=3^Signs and Symptoms in Breast,Other
;;^UTILITY(U,$J,358.3,16439,1,4,0)
;;=4^N64.59
;;^UTILITY(U,$J,358.3,16439,2)
;;=^5015797
;;^UTILITY(U,$J,358.3,16440,0)
;;=N64.52^^56^660^71
;;^UTILITY(U,$J,358.3,16440,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16440,1,3,0)
;;=3^Nipple Discharge
;;^UTILITY(U,$J,358.3,16440,1,4,0)
;;=4^N64.52
;;^UTILITY(U,$J,358.3,16440,2)
;;=^259531
;;^UTILITY(U,$J,358.3,16441,0)
;;=N64.53^^56^660^99
;;^UTILITY(U,$J,358.3,16441,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16441,1,3,0)
;;=3^Retraction of Nipple
;;^UTILITY(U,$J,358.3,16441,1,4,0)
;;=4^N64.53
;;^UTILITY(U,$J,358.3,16441,2)
;;=^5015796
;;^UTILITY(U,$J,358.3,16442,0)
;;=N75.1^^56^660^8
;;^UTILITY(U,$J,358.3,16442,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16442,1,3,0)
;;=3^Abscess of Bartholin's Gland
;;^UTILITY(U,$J,358.3,16442,1,4,0)
;;=4^N75.1
;;^UTILITY(U,$J,358.3,16442,2)
;;=^5015823
;;^UTILITY(U,$J,358.3,16443,0)
;;=N80.9^^56^660^37
;;^UTILITY(U,$J,358.3,16443,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16443,1,3,0)
;;=3^Endometriosis,Unspec
;;^UTILITY(U,$J,358.3,16443,1,4,0)
;;=4^N80.9
;;^UTILITY(U,$J,358.3,16443,2)
;;=^5015837
;;^UTILITY(U,$J,358.3,16444,0)
;;=N81.4^^56^660^112
;;^UTILITY(U,$J,358.3,16444,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16444,1,3,0)
;;=3^Uterovaginal Prolapse,Unspec
;;^UTILITY(U,$J,358.3,16444,1,4,0)
;;=4^N81.4
;;^UTILITY(U,$J,358.3,16444,2)
;;=^5015841
;;^UTILITY(U,$J,358.3,16445,0)
;;=N84.8^^56^660^87
;;^UTILITY(U,$J,358.3,16445,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16445,1,3,0)
;;=3^Polyp of Other Parts of Female Genital Tract
;;^UTILITY(U,$J,358.3,16445,1,4,0)
;;=4^N84.8
;;^UTILITY(U,$J,358.3,16445,2)
;;=^5015868
;;^UTILITY(U,$J,358.3,16446,0)
;;=N84.0^^56^660^85
;;^UTILITY(U,$J,358.3,16446,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16446,1,3,0)
;;=3^Polyp of Corpus Uteri
;;^UTILITY(U,$J,358.3,16446,1,4,0)
;;=4^N84.0
;;^UTILITY(U,$J,358.3,16446,2)
;;=^270517
;;^UTILITY(U,$J,358.3,16447,0)
;;=N84.9^^56^660^86
;;^UTILITY(U,$J,358.3,16447,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16447,1,3,0)
;;=3^Polyp of Female Genital Tract,Unspec
;;^UTILITY(U,$J,358.3,16447,1,4,0)
;;=4^N84.9
;;^UTILITY(U,$J,358.3,16447,2)
;;=^5015869
;;^UTILITY(U,$J,358.3,16448,0)
;;=N84.1^^56^660^84
;;^UTILITY(U,$J,358.3,16448,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16448,1,3,0)
;;=3^Polyp of Cervix Uteri
;;^UTILITY(U,$J,358.3,16448,1,4,0)
;;=4^N84.1
;;^UTILITY(U,$J,358.3,16448,2)
;;=^5015866
;;^UTILITY(U,$J,358.3,16449,0)
;;=N89.1^^56^660^114
;;^UTILITY(U,$J,358.3,16449,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16449,1,3,0)
;;=3^Vaginal Dysplasia,Moderate
;;^UTILITY(U,$J,358.3,16449,1,4,0)
;;=4^N89.1
;;^UTILITY(U,$J,358.3,16449,2)
;;=^5015886
;;^UTILITY(U,$J,358.3,16450,0)
;;=N89.0^^56^660^113
;;^UTILITY(U,$J,358.3,16450,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16450,1,3,0)
;;=3^Vaginal Dysplasia,Mild
;;^UTILITY(U,$J,358.3,16450,1,4,0)
;;=4^N89.0
;;^UTILITY(U,$J,358.3,16450,2)
;;=^5015885
;;^UTILITY(U,$J,358.3,16451,0)
;;=N89.3^^56^660^115
;;^UTILITY(U,$J,358.3,16451,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16451,1,3,0)
;;=3^Vaginal Dysplasia,Unspec
;;^UTILITY(U,$J,358.3,16451,1,4,0)
;;=4^N89.3
;;^UTILITY(U,$J,358.3,16451,2)
;;=^5015887
;;^UTILITY(U,$J,358.3,16452,0)
;;=N90.4^^56^660^65
;;^UTILITY(U,$J,358.3,16452,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16452,1,3,0)
;;=3^Leukoplakia of Vulva
;;^UTILITY(U,$J,358.3,16452,1,4,0)
;;=4^N90.4
;;^UTILITY(U,$J,358.3,16452,2)
;;=^5015894
;;^UTILITY(U,$J,358.3,16453,0)
;;=N94.2^^56^660^116
;;^UTILITY(U,$J,358.3,16453,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16453,1,3,0)
;;=3^Vaginismus
;;^UTILITY(U,$J,358.3,16453,1,4,0)
;;=4^N94.2
;;^UTILITY(U,$J,358.3,16453,2)
;;=^5015918
;;^UTILITY(U,$J,358.3,16454,0)
;;=N94.0^^56^660^70
;;^UTILITY(U,$J,358.3,16454,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16454,1,3,0)
;;=3^Mittelschmerz
;;^UTILITY(U,$J,358.3,16454,1,4,0)
;;=4^N94.0
;;^UTILITY(U,$J,358.3,16454,2)
;;=^265259
;;^UTILITY(U,$J,358.3,16455,0)
;;=N94.6^^56^660^30
;;^UTILITY(U,$J,358.3,16455,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16455,1,3,0)
;;=3^Dysmenorrhea,Unspec
;;^UTILITY(U,$J,358.3,16455,1,4,0)
;;=4^N94.6
;;^UTILITY(U,$J,358.3,16455,2)
;;=^5015922
;;^UTILITY(U,$J,358.3,16456,0)
;;=N94.5^^56^660^29
;;^UTILITY(U,$J,358.3,16456,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16456,1,3,0)
;;=3^Dysmenorrhea,Secondary
;;^UTILITY(U,$J,358.3,16456,1,4,0)
;;=4^N94.5
;;^UTILITY(U,$J,358.3,16456,2)
;;=^5015921
;;^UTILITY(U,$J,358.3,16457,0)
;;=N94.4^^56^660^28
;;^UTILITY(U,$J,358.3,16457,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16457,1,3,0)
;;=3^Dysmenorrhea,Primary
;;^UTILITY(U,$J,358.3,16457,1,4,0)
;;=4^N94.4
;;^UTILITY(U,$J,358.3,16457,2)
;;=^5015920
;;^UTILITY(U,$J,358.3,16458,0)
;;=N94.3^^56^660^95
;;^UTILITY(U,$J,358.3,16458,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16458,1,3,0)
;;=3^Premenstrual Tension Syndrome
;;^UTILITY(U,$J,358.3,16458,1,4,0)
;;=4^N94.3
;;^UTILITY(U,$J,358.3,16458,2)
;;=^5015919
;;^UTILITY(U,$J,358.3,16459,0)
;;=N91.0^^56^660^9
;;^UTILITY(U,$J,358.3,16459,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,16459,1,3,0)
;;=3^Amenorrhea,Primary
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI06R 19800 printed Sep 23, 2025@19:18:43 Page 2
IBDEI06R ; ; 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,16391,1,0)
+2 ;;=^358.31IA^4^2
+3 ;;^UTILITY(U,$J,358.3,16391,1,3,0)
+4 ;;=3^Alcohol Abuse w/ Intoxication,Uncomplicated
+5 ;;^UTILITY(U,$J,358.3,16391,1,4,0)
+6 ;;=4^F10.120
+7 ;;^UTILITY(U,$J,358.3,16391,2)
+8 ;;=^5003069
+9 ;;^UTILITY(U,$J,358.3,16392,0)
+10 ;;=F10.10^^56^658^7
+11 ;;^UTILITY(U,$J,358.3,16392,1,0)
+12 ;;=^358.31IA^4^2
+13 ;;^UTILITY(U,$J,358.3,16392,1,3,0)
+14 ;;=3^Alcohol Abuse,Uncomplicated
+15 ;;^UTILITY(U,$J,358.3,16392,1,4,0)
+16 ;;=4^F10.10
+17 ;;^UTILITY(U,$J,358.3,16392,2)
+18 ;;=^5003068
+19 ;;^UTILITY(U,$J,358.3,16393,0)
+20 ;;=F17.201^^56^658^41
+21 ;;^UTILITY(U,$J,358.3,16393,1,0)
+22 ;;=^358.31IA^4^2
+23 ;;^UTILITY(U,$J,358.3,16393,1,3,0)
+24 ;;=3^Nicotine Dependence In Remission,Unspec
+25 ;;^UTILITY(U,$J,358.3,16393,1,4,0)
+26 ;;=4^F17.201
+27 ;;^UTILITY(U,$J,358.3,16393,2)
+28 ;;=^5003361
+29 ;;^UTILITY(U,$J,358.3,16394,0)
+30 ;;=F17.210^^56^658^40
+31 ;;^UTILITY(U,$J,358.3,16394,1,0)
+32 ;;=^358.31IA^4^2
+33 ;;^UTILITY(U,$J,358.3,16394,1,3,0)
+34 ;;=3^Nicotine Dependence Cigarettes,Uncomplicated
+35 ;;^UTILITY(U,$J,358.3,16394,1,4,0)
+36 ;;=4^F17.210
+37 ;;^UTILITY(U,$J,358.3,16394,2)
+38 ;;=^5003365
+39 ;;^UTILITY(U,$J,358.3,16395,0)
+40 ;;=F17.291^^56^658^42
+41 ;;^UTILITY(U,$J,358.3,16395,1,0)
+42 ;;=^358.31IA^4^2
+43 ;;^UTILITY(U,$J,358.3,16395,1,3,0)
+44 ;;=3^Nicotine Dependence Oth Tobacco Product,In Remission
+45 ;;^UTILITY(U,$J,358.3,16395,1,4,0)
+46 ;;=4^F17.291
+47 ;;^UTILITY(U,$J,358.3,16395,2)
+48 ;;=^5003376
+49 ;;^UTILITY(U,$J,358.3,16396,0)
+50 ;;=F17.290^^56^658^43
+51 ;;^UTILITY(U,$J,358.3,16396,1,0)
+52 ;;=^358.31IA^4^2
+53 ;;^UTILITY(U,$J,358.3,16396,1,3,0)
+54 ;;=3^Nicotine Dependence Oth Tobacco Product,Uncomplicated
+55 ;;^UTILITY(U,$J,358.3,16396,1,4,0)
+56 ;;=4^F17.290
+57 ;;^UTILITY(U,$J,358.3,16396,2)
+58 ;;=^5003375
+59 ;;^UTILITY(U,$J,358.3,16397,0)
+60 ;;=F17.221^^56^658^37
+61 ;;^UTILITY(U,$J,358.3,16397,1,0)
+62 ;;=^358.31IA^4^2
+63 ;;^UTILITY(U,$J,358.3,16397,1,3,0)
+64 ;;=3^Nicotine Dependence Chewing Tobacco,In Remission
+65 ;;^UTILITY(U,$J,358.3,16397,1,4,0)
+66 ;;=4^F17.221
+67 ;;^UTILITY(U,$J,358.3,16397,2)
+68 ;;=^5003371
+69 ;;^UTILITY(U,$J,358.3,16398,0)
+70 ;;=F17.220^^56^658^38
+71 ;;^UTILITY(U,$J,358.3,16398,1,0)
+72 ;;=^358.31IA^4^2
+73 ;;^UTILITY(U,$J,358.3,16398,1,3,0)
+74 ;;=3^Nicotine Dependence Chewing Tobacco,Uncomplicated
+75 ;;^UTILITY(U,$J,358.3,16398,1,4,0)
+76 ;;=4^F17.220
+77 ;;^UTILITY(U,$J,358.3,16398,2)
+78 ;;=^5003370
+79 ;;^UTILITY(U,$J,358.3,16399,0)
+80 ;;=F17.211^^56^658^39
+81 ;;^UTILITY(U,$J,358.3,16399,1,0)
+82 ;;=^358.31IA^4^2
+83 ;;^UTILITY(U,$J,358.3,16399,1,3,0)
+84 ;;=3^Nicotine Dependence Cigarettes,In Remission
+85 ;;^UTILITY(U,$J,358.3,16399,1,4,0)
+86 ;;=4^F17.211
+87 ;;^UTILITY(U,$J,358.3,16399,2)
+88 ;;=^5003366
+89 ;;^UTILITY(U,$J,358.3,16400,0)
+90 ;;=F17.200^^56^658^44
+91 ;;^UTILITY(U,$J,358.3,16400,1,0)
+92 ;;=^358.31IA^4^2
+93 ;;^UTILITY(U,$J,358.3,16400,1,3,0)
+94 ;;=3^Nicotine Dependence,Unspec,Uncomplicated
+95 ;;^UTILITY(U,$J,358.3,16400,1,4,0)
+96 ;;=4^F17.200
+97 ;;^UTILITY(U,$J,358.3,16400,2)
+98 ;;=^5003360
+99 ;;^UTILITY(U,$J,358.3,16401,0)
+100 ;;=F11.120^^56^658^45
+101 ;;^UTILITY(U,$J,358.3,16401,1,0)
+102 ;;=^358.31IA^4^2
+103 ;;^UTILITY(U,$J,358.3,16401,1,3,0)
+104 ;;=3^Opioid Abuse w/ Intoxication,Uncomplicated
+105 ;;^UTILITY(U,$J,358.3,16401,1,4,0)
+106 ;;=4^F11.120
+107 ;;^UTILITY(U,$J,358.3,16401,2)
+108 ;;=^5003115
+109 ;;^UTILITY(U,$J,358.3,16402,0)
+110 ;;=F11.10^^56^658^49
+111 ;;^UTILITY(U,$J,358.3,16402,1,0)
+112 ;;=^358.31IA^4^2
+113 ;;^UTILITY(U,$J,358.3,16402,1,3,0)
+114 ;;=3^Opioid Abuse,Uncomplicated
+115 ;;^UTILITY(U,$J,358.3,16402,1,4,0)
+116 ;;=4^F11.10
+117 ;;^UTILITY(U,$J,358.3,16402,2)
+118 ;;=^5003114
+119 ;;^UTILITY(U,$J,358.3,16403,0)
+120 ;;=F11.129^^56^658^46
+121 ;;^UTILITY(U,$J,358.3,16403,1,0)
+122 ;;=^358.31IA^4^2
+123 ;;^UTILITY(U,$J,358.3,16403,1,3,0)
+124 ;;=3^Opioid Abuse w/ Intoxication,Unspec
+125 ;;^UTILITY(U,$J,358.3,16403,1,4,0)
+126 ;;=4^F11.129
+127 ;;^UTILITY(U,$J,358.3,16403,2)
+128 ;;=^5003118
+129 ;;^UTILITY(U,$J,358.3,16404,0)
+130 ;;=F10.21^^56^658^8
+131 ;;^UTILITY(U,$J,358.3,16404,1,0)
+132 ;;=^358.31IA^4^2
+133 ;;^UTILITY(U,$J,358.3,16404,1,3,0)
+134 ;;=3^Alcohol Dependence,In Remission
+135 ;;^UTILITY(U,$J,358.3,16404,1,4,0)
+136 ;;=4^F10.21
+137 ;;^UTILITY(U,$J,358.3,16404,2)
+138 ;;=^5003082
+139 ;;^UTILITY(U,$J,358.3,16405,0)
+140 ;;=F12.10^^56^658^16
+141 ;;^UTILITY(U,$J,358.3,16405,1,0)
+142 ;;=^358.31IA^4^2
+143 ;;^UTILITY(U,$J,358.3,16405,1,3,0)
+144 ;;=3^Cannabis Abuse,Uncomplicated
+145 ;;^UTILITY(U,$J,358.3,16405,1,4,0)
+146 ;;=4^F12.10
+147 ;;^UTILITY(U,$J,358.3,16405,2)
+148 ;;=^5003155
+149 ;;^UTILITY(U,$J,358.3,16406,0)
+150 ;;=F12.20^^56^658^18
+151 ;;^UTILITY(U,$J,358.3,16406,1,0)
+152 ;;=^358.31IA^4^2
+153 ;;^UTILITY(U,$J,358.3,16406,1,3,0)
+154 ;;=3^Cannabis Dependence,Uncomplicated
+155 ;;^UTILITY(U,$J,358.3,16406,1,4,0)
+156 ;;=4^F12.20
+157 ;;^UTILITY(U,$J,358.3,16406,2)
+158 ;;=^5003166
+159 ;;^UTILITY(U,$J,358.3,16407,0)
+160 ;;=F12.21^^56^658^17
+161 ;;^UTILITY(U,$J,358.3,16407,1,0)
+162 ;;=^358.31IA^4^2
+163 ;;^UTILITY(U,$J,358.3,16407,1,3,0)
+164 ;;=3^Cannabis Dependence,In Remission
+165 ;;^UTILITY(U,$J,358.3,16407,1,4,0)
+166 ;;=4^F12.21
+167 ;;^UTILITY(U,$J,358.3,16407,2)
+168 ;;=^5003167
+169 ;;^UTILITY(U,$J,358.3,16408,0)
+170 ;;=F12.90^^56^658^20
+171 ;;^UTILITY(U,$J,358.3,16408,1,0)
+172 ;;=^358.31IA^4^2
+173 ;;^UTILITY(U,$J,358.3,16408,1,3,0)
+174 ;;=3^Cannabis Use,Unspec,Uncomplicated
+175 ;;^UTILITY(U,$J,358.3,16408,1,4,0)
+176 ;;=4^F12.90
+177 ;;^UTILITY(U,$J,358.3,16408,2)
+178 ;;=^5003178
+179 ;;^UTILITY(U,$J,358.3,16409,0)
+180 ;;=F10.11^^56^658^6
+181 ;;^UTILITY(U,$J,358.3,16409,1,0)
+182 ;;=^358.31IA^4^2
+183 ;;^UTILITY(U,$J,358.3,16409,1,3,0)
+184 ;;=3^Alcohol Abuse,In Remission
+185 ;;^UTILITY(U,$J,358.3,16409,1,4,0)
+186 ;;=4^F10.11
+187 ;;^UTILITY(U,$J,358.3,16409,2)
+188 ;;=^268230
+189 ;;^UTILITY(U,$J,358.3,16410,0)
+190 ;;=F12.11^^56^658^15
+191 ;;^UTILITY(U,$J,358.3,16410,1,0)
+192 ;;=^358.31IA^4^2
+193 ;;^UTILITY(U,$J,358.3,16410,1,3,0)
+194 ;;=3^Cannabis Abuse,In Remission
+195 ;;^UTILITY(U,$J,358.3,16410,1,4,0)
+196 ;;=4^F12.11
+197 ;;^UTILITY(U,$J,358.3,16410,2)
+198 ;;=^268236
+199 ;;^UTILITY(U,$J,358.3,16411,0)
+200 ;;=F14.11^^56^658^21
+201 ;;^UTILITY(U,$J,358.3,16411,1,0)
+202 ;;=^358.31IA^4^2
+203 ;;^UTILITY(U,$J,358.3,16411,1,3,0)
+204 ;;=3^Cocaine Abuse,In Remission
+205 ;;^UTILITY(U,$J,358.3,16411,1,4,0)
+206 ;;=4^F14.11
+207 ;;^UTILITY(U,$J,358.3,16411,2)
+208 ;;=^268249
+209 ;;^UTILITY(U,$J,358.3,16412,0)
+210 ;;=F11.11^^56^658^48
+211 ;;^UTILITY(U,$J,358.3,16412,1,0)
+212 ;;=^358.31IA^4^2
+213 ;;^UTILITY(U,$J,358.3,16412,1,3,0)
+214 ;;=3^Opioid Abuse,In Remission
+215 ;;^UTILITY(U,$J,358.3,16412,1,4,0)
+216 ;;=4^F11.11
+217 ;;^UTILITY(U,$J,358.3,16412,2)
+218 ;;=^268246
+219 ;;^UTILITY(U,$J,358.3,16413,0)
+220 ;;=F12.93^^56^658^19
+221 ;;^UTILITY(U,$J,358.3,16413,1,0)
+222 ;;=^358.31IA^4^2
+223 ;;^UTILITY(U,$J,358.3,16413,1,3,0)
+224 ;;=3^Cannabis Use,Unspec w/ Withdrawal
+225 ;;^UTILITY(U,$J,358.3,16413,1,4,0)
+226 ;;=4^F12.93
+227 ;;^UTILITY(U,$J,358.3,16413,2)
+228 ;;=^5157302
+229 ;;^UTILITY(U,$J,358.3,16414,0)
+230 ;;=F10.130^^56^658^4
+231 ;;^UTILITY(U,$J,358.3,16414,1,0)
+232 ;;=^358.31IA^4^2
+233 ;;^UTILITY(U,$J,358.3,16414,1,3,0)
+234 ;;=3^Alcohol Abuse w/ Withdrawal,Uncomp
+235 ;;^UTILITY(U,$J,358.3,16414,1,4,0)
+236 ;;=4^F10.130
+237 ;;^UTILITY(U,$J,358.3,16414,2)
+238 ;;=^5159130
+239 ;;^UTILITY(U,$J,358.3,16415,0)
+240 ;;=F10.131^^56^658^2
+241 ;;^UTILITY(U,$J,358.3,16415,1,0)
+242 ;;=^358.31IA^4^2
+243 ;;^UTILITY(U,$J,358.3,16415,1,3,0)
+244 ;;=3^Alcohol Abuse w/ Withdrawal Delirium
+245 ;;^UTILITY(U,$J,358.3,16415,1,4,0)
+246 ;;=4^F10.131
+247 ;;^UTILITY(U,$J,358.3,16415,2)
+248 ;;=^5159131
+249 ;;^UTILITY(U,$J,358.3,16416,0)
+250 ;;=F10.132^^56^658^3
+251 ;;^UTILITY(U,$J,358.3,16416,1,0)
+252 ;;=^358.31IA^4^2
+253 ;;^UTILITY(U,$J,358.3,16416,1,3,0)
+254 ;;=3^Alcohol Abuse w/ Withdrawal w/ Perceptual Disturbance
+255 ;;^UTILITY(U,$J,358.3,16416,1,4,0)
+256 ;;=4^F10.132
+257 ;;^UTILITY(U,$J,358.3,16416,2)
+258 ;;=^5159132
+259 ;;^UTILITY(U,$J,358.3,16417,0)
+260 ;;=F10.139^^56^658^5
+261 ;;^UTILITY(U,$J,358.3,16417,1,0)
+262 ;;=^358.31IA^4^2
+263 ;;^UTILITY(U,$J,358.3,16417,1,3,0)
+264 ;;=3^Alcohol Abuse w/ Withdrawal,Unspec
+265 ;;^UTILITY(U,$J,358.3,16417,1,4,0)
+266 ;;=4^F10.139
+267 ;;^UTILITY(U,$J,358.3,16417,2)
+268 ;;=^5159133
+269 ;;^UTILITY(U,$J,358.3,16418,0)
+270 ;;=F10.930^^56^658^12
+271 ;;^UTILITY(U,$J,358.3,16418,1,0)
+272 ;;=^358.31IA^4^2
+273 ;;^UTILITY(U,$J,358.3,16418,1,3,0)
+274 ;;=3^Alcohol Use,Unspec w/ Withdrawal,Uncomp
+275 ;;^UTILITY(U,$J,358.3,16418,1,4,0)
+276 ;;=4^F10.930
+277 ;;^UTILITY(U,$J,358.3,16418,2)
+278 ;;=^5159134
+279 ;;^UTILITY(U,$J,358.3,16419,0)
+280 ;;=F10.931^^56^658^10
+281 ;;^UTILITY(U,$J,358.3,16419,1,0)
+282 ;;=^358.31IA^4^2
+283 ;;^UTILITY(U,$J,358.3,16419,1,3,0)
+284 ;;=3^Alcohol Use,Unspec w/ Withdrawal Delirium
+285 ;;^UTILITY(U,$J,358.3,16419,1,4,0)
+286 ;;=4^F10.931
+287 ;;^UTILITY(U,$J,358.3,16419,2)
+288 ;;=^5159135
+289 ;;^UTILITY(U,$J,358.3,16420,0)
+290 ;;=F10.932^^56^658^11
+291 ;;^UTILITY(U,$J,358.3,16420,1,0)
+292 ;;=^358.31IA^4^2
+293 ;;^UTILITY(U,$J,358.3,16420,1,3,0)
+294 ;;=3^Alcohol Use,Unspec w/ Withdrawal w/ Perceptual Disturbance
+295 ;;^UTILITY(U,$J,358.3,16420,1,4,0)
+296 ;;=4^F10.932
+297 ;;^UTILITY(U,$J,358.3,16420,2)
+298 ;;=^5159136
+299 ;;^UTILITY(U,$J,358.3,16421,0)
+300 ;;=F10.939^^56^658^13
+301 ;;^UTILITY(U,$J,358.3,16421,1,0)
+302 ;;=^358.31IA^4^2
+303 ;;^UTILITY(U,$J,358.3,16421,1,3,0)
+304 ;;=3^Alcohol Use,Unspec w/ Withdrawal,Unspec
+305 ;;^UTILITY(U,$J,358.3,16421,1,4,0)
+306 ;;=4^F10.939
+307 ;;^UTILITY(U,$J,358.3,16421,2)
+308 ;;=^5159137
+309 ;;^UTILITY(U,$J,358.3,16422,0)
+310 ;;=F12.13^^56^658^14
+311 ;;^UTILITY(U,$J,358.3,16422,1,0)
+312 ;;=^358.31IA^4^2
+313 ;;^UTILITY(U,$J,358.3,16422,1,3,0)
+314 ;;=3^Cannabis Abuse w/ Withdrawal
+315 ;;^UTILITY(U,$J,358.3,16422,1,4,0)
+316 ;;=4^F12.13
+317 ;;^UTILITY(U,$J,358.3,16422,2)
+318 ;;=^5159139
+319 ;;^UTILITY(U,$J,358.3,16423,0)
+320 ;;=F11.13^^56^658^47
+321 ;;^UTILITY(U,$J,358.3,16423,1,0)
+322 ;;=^358.31IA^4^2
+323 ;;^UTILITY(U,$J,358.3,16423,1,3,0)
+324 ;;=3^Opioid Abuse w/ Withdrawal
+325 ;;^UTILITY(U,$J,358.3,16423,1,4,0)
+326 ;;=4^F11.13
+327 ;;^UTILITY(U,$J,358.3,16423,2)
+328 ;;=^5159138
+329 ;;^UTILITY(U,$J,358.3,16424,0)
+330 ;;=I83.019^^56^659^3
+331 ;;^UTILITY(U,$J,358.3,16424,1,0)
+332 ;;=^358.31IA^4^2
+333 ;;^UTILITY(U,$J,358.3,16424,1,3,0)
+334 ;;=3^Varicose Veins Right Lower Extrem w/ Ulcer,Unspec
+335 ;;^UTILITY(U,$J,358.3,16424,1,4,0)
+336 ;;=4^I83.019
+337 ;;^UTILITY(U,$J,358.3,16424,2)
+338 ;;=^5007979
+339 ;;^UTILITY(U,$J,358.3,16425,0)
+340 ;;=I83.219^^56^659^4
+341 ;;^UTILITY(U,$J,358.3,16425,1,0)
+342 ;;=^358.31IA^4^2
+343 ;;^UTILITY(U,$J,358.3,16425,1,3,0)
+344 ;;=3^Varicose Veins Right Lower Extrem w/ Ulcer & Inflam,Unspec
+345 ;;^UTILITY(U,$J,358.3,16425,1,4,0)
+346 ;;=4^I83.219
+347 ;;^UTILITY(U,$J,358.3,16425,2)
+348 ;;=^5008003
+349 ;;^UTILITY(U,$J,358.3,16426,0)
+350 ;;=I83.029^^56^659^1
+351 ;;^UTILITY(U,$J,358.3,16426,1,0)
+352 ;;=^358.31IA^4^2
+353 ;;^UTILITY(U,$J,358.3,16426,1,3,0)
+354 ;;=3^Varicose Veins Left Lower Extrem w/ Ulcer,Unspec
+355 ;;^UTILITY(U,$J,358.3,16426,1,4,0)
+356 ;;=4^I83.029
+357 ;;^UTILITY(U,$J,358.3,16426,2)
+358 ;;=^5007986
+359 ;;^UTILITY(U,$J,358.3,16427,0)
+360 ;;=I83.229^^56^659^2
+361 ;;^UTILITY(U,$J,358.3,16427,1,0)
+362 ;;=^358.31IA^4^2
+363 ;;^UTILITY(U,$J,358.3,16427,1,3,0)
+364 ;;=3^Varicose Veins Left Lower Extrem w/ Ulcer & Inflam,Unspec
+365 ;;^UTILITY(U,$J,358.3,16427,1,4,0)
+366 ;;=4^I83.229
+367 ;;^UTILITY(U,$J,358.3,16427,2)
+368 ;;=^5008010
+369 ;;^UTILITY(U,$J,358.3,16428,0)
+370 ;;=B00.81^^56^660^55
+371 ;;^UTILITY(U,$J,358.3,16428,1,0)
+372 ;;=^358.31IA^4^2
+373 ;;^UTILITY(U,$J,358.3,16428,1,3,0)
+374 ;;=3^Herpesviral Hepatitis
+375 ;;^UTILITY(U,$J,358.3,16428,1,4,0)
+376 ;;=4^B00.81
+377 ;;^UTILITY(U,$J,358.3,16428,2)
+378 ;;=^5000478
+379 ;;^UTILITY(U,$J,358.3,16429,0)
+380 ;;=D25.9^^56^660^64
+381 ;;^UTILITY(U,$J,358.3,16429,1,0)
+382 ;;=^358.31IA^4^2
+383 ;;^UTILITY(U,$J,358.3,16429,1,3,0)
+384 ;;=3^Leiomyoma of Uterus,Unspec
+385 ;;^UTILITY(U,$J,358.3,16429,1,4,0)
+386 ;;=4^D25.9
+387 ;;^UTILITY(U,$J,358.3,16429,2)
+388 ;;=^5002081
+389 ;;^UTILITY(U,$J,358.3,16430,0)
+390 ;;=F52.9^^56^660^103
+391 ;;^UTILITY(U,$J,358.3,16430,1,0)
+392 ;;=^358.31IA^4^2
+393 ;;^UTILITY(U,$J,358.3,16430,1,3,0)
+394 ;;=3^Sexual Dysfnct Not d/t a Sub/Known Physiol Cond,Unspec
+395 ;;^UTILITY(U,$J,358.3,16430,1,4,0)
+396 ;;=4^F52.9
+397 ;;^UTILITY(U,$J,358.3,16430,2)
+398 ;;=^5003625
+399 ;;^UTILITY(U,$J,358.3,16431,0)
+400 ;;=R37.^^56^660^104
+401 ;;^UTILITY(U,$J,358.3,16431,1,0)
+402 ;;=^358.31IA^4^2
+403 ;;^UTILITY(U,$J,358.3,16431,1,3,0)
+404 ;;=3^Sexual Dysfunction,Unspec
+405 ;;^UTILITY(U,$J,358.3,16431,1,4,0)
+406 ;;=4^R37.
+407 ;;^UTILITY(U,$J,358.3,16431,2)
+408 ;;=^5019339
+409 ;;^UTILITY(U,$J,358.3,16432,0)
+410 ;;=N60.01^^56^660^107
+411 ;;^UTILITY(U,$J,358.3,16432,1,0)
+412 ;;=^358.31IA^4^2
+413 ;;^UTILITY(U,$J,358.3,16432,1,3,0)
+414 ;;=3^Solitary Cyst of Right Breast
+415 ;;^UTILITY(U,$J,358.3,16432,1,4,0)
+416 ;;=4^N60.01
+417 ;;^UTILITY(U,$J,358.3,16432,2)
+418 ;;=^5015770
+419 ;;^UTILITY(U,$J,358.3,16433,0)
+420 ;;=N60.02^^56^660^106
+421 ;;^UTILITY(U,$J,358.3,16433,1,0)
+422 ;;=^358.31IA^4^2
+423 ;;^UTILITY(U,$J,358.3,16433,1,3,0)
+424 ;;=3^Solitary Cyst of Left Breast
+425 ;;^UTILITY(U,$J,358.3,16433,1,4,0)
+426 ;;=4^N60.02
+427 ;;^UTILITY(U,$J,358.3,16433,2)
+428 ;;=^5015771
+429 ;;^UTILITY(U,$J,358.3,16434,0)
+430 ;;=N60.09^^56^660^108
+431 ;;^UTILITY(U,$J,358.3,16434,1,0)
+432 ;;=^358.31IA^4^2
+433 ;;^UTILITY(U,$J,358.3,16434,1,3,0)
+434 ;;=3^Solitary Cyst of Unspec Breast
+435 ;;^UTILITY(U,$J,358.3,16434,1,4,0)
+436 ;;=4^N60.09
+437 ;;^UTILITY(U,$J,358.3,16434,2)
+438 ;;=^5015772
+439 ;;^UTILITY(U,$J,358.3,16435,0)
+440 ;;=N60.11^^56^660^27
+441 ;;^UTILITY(U,$J,358.3,16435,1,0)
+442 ;;=^358.31IA^4^2
+443 ;;^UTILITY(U,$J,358.3,16435,1,3,0)
+444 ;;=3^Diffuse Cystic Mastopathy of Right Breast
+445 ;;^UTILITY(U,$J,358.3,16435,1,4,0)
+446 ;;=4^N60.11
+447 ;;^UTILITY(U,$J,358.3,16435,2)
+448 ;;=^5015773
+449 ;;^UTILITY(U,$J,358.3,16436,0)
+450 ;;=N60.12^^56^660^26
+451 ;;^UTILITY(U,$J,358.3,16436,1,0)
+452 ;;=^358.31IA^4^2
+453 ;;^UTILITY(U,$J,358.3,16436,1,3,0)
+454 ;;=3^Diffuse Cystic Mastopathy of Left Breast
+455 ;;^UTILITY(U,$J,358.3,16436,1,4,0)
+456 ;;=4^N60.12
+457 ;;^UTILITY(U,$J,358.3,16436,2)
+458 ;;=^5015774
+459 ;;^UTILITY(U,$J,358.3,16437,0)
+460 ;;=N64.4^^56^660^68
+461 ;;^UTILITY(U,$J,358.3,16437,1,0)
+462 ;;=^358.31IA^4^2
+463 ;;^UTILITY(U,$J,358.3,16437,1,3,0)
+464 ;;=3^Mastodynia
+465 ;;^UTILITY(U,$J,358.3,16437,1,4,0)
+466 ;;=4^N64.4
+467 ;;^UTILITY(U,$J,358.3,16437,2)
+468 ;;=^5015794
+469 ;;^UTILITY(U,$J,358.3,16438,0)
+470 ;;=N64.51^^56^660^60
+471 ;;^UTILITY(U,$J,358.3,16438,1,0)
+472 ;;=^358.31IA^4^2
+473 ;;^UTILITY(U,$J,358.3,16438,1,3,0)
+474 ;;=3^Induration of Breast
+475 ;;^UTILITY(U,$J,358.3,16438,1,4,0)
+476 ;;=4^N64.51
+477 ;;^UTILITY(U,$J,358.3,16438,2)
+478 ;;=^5015795
+479 ;;^UTILITY(U,$J,358.3,16439,0)
+480 ;;=N64.59^^56^660^105
+481 ;;^UTILITY(U,$J,358.3,16439,1,0)
+482 ;;=^358.31IA^4^2
+483 ;;^UTILITY(U,$J,358.3,16439,1,3,0)
+484 ;;=3^Signs and Symptoms in Breast,Other
+485 ;;^UTILITY(U,$J,358.3,16439,1,4,0)
+486 ;;=4^N64.59
+487 ;;^UTILITY(U,$J,358.3,16439,2)
+488 ;;=^5015797
+489 ;;^UTILITY(U,$J,358.3,16440,0)
+490 ;;=N64.52^^56^660^71
+491 ;;^UTILITY(U,$J,358.3,16440,1,0)
+492 ;;=^358.31IA^4^2
+493 ;;^UTILITY(U,$J,358.3,16440,1,3,0)
+494 ;;=3^Nipple Discharge
+495 ;;^UTILITY(U,$J,358.3,16440,1,4,0)
+496 ;;=4^N64.52
+497 ;;^UTILITY(U,$J,358.3,16440,2)
+498 ;;=^259531
+499 ;;^UTILITY(U,$J,358.3,16441,0)
+500 ;;=N64.53^^56^660^99
+501 ;;^UTILITY(U,$J,358.3,16441,1,0)
+502 ;;=^358.31IA^4^2
+503 ;;^UTILITY(U,$J,358.3,16441,1,3,0)
+504 ;;=3^Retraction of Nipple
+505 ;;^UTILITY(U,$J,358.3,16441,1,4,0)
+506 ;;=4^N64.53
+507 ;;^UTILITY(U,$J,358.3,16441,2)
+508 ;;=^5015796
+509 ;;^UTILITY(U,$J,358.3,16442,0)
+510 ;;=N75.1^^56^660^8
+511 ;;^UTILITY(U,$J,358.3,16442,1,0)
+512 ;;=^358.31IA^4^2
+513 ;;^UTILITY(U,$J,358.3,16442,1,3,0)
+514 ;;=3^Abscess of Bartholin's Gland
+515 ;;^UTILITY(U,$J,358.3,16442,1,4,0)
+516 ;;=4^N75.1
+517 ;;^UTILITY(U,$J,358.3,16442,2)
+518 ;;=^5015823
+519 ;;^UTILITY(U,$J,358.3,16443,0)
+520 ;;=N80.9^^56^660^37
+521 ;;^UTILITY(U,$J,358.3,16443,1,0)
+522 ;;=^358.31IA^4^2
+523 ;;^UTILITY(U,$J,358.3,16443,1,3,0)
+524 ;;=3^Endometriosis,Unspec
+525 ;;^UTILITY(U,$J,358.3,16443,1,4,0)
+526 ;;=4^N80.9
+527 ;;^UTILITY(U,$J,358.3,16443,2)
+528 ;;=^5015837
+529 ;;^UTILITY(U,$J,358.3,16444,0)
+530 ;;=N81.4^^56^660^112
+531 ;;^UTILITY(U,$J,358.3,16444,1,0)
+532 ;;=^358.31IA^4^2
+533 ;;^UTILITY(U,$J,358.3,16444,1,3,0)
+534 ;;=3^Uterovaginal Prolapse,Unspec
+535 ;;^UTILITY(U,$J,358.3,16444,1,4,0)
+536 ;;=4^N81.4
+537 ;;^UTILITY(U,$J,358.3,16444,2)
+538 ;;=^5015841
+539 ;;^UTILITY(U,$J,358.3,16445,0)
+540 ;;=N84.8^^56^660^87
+541 ;;^UTILITY(U,$J,358.3,16445,1,0)
+542 ;;=^358.31IA^4^2
+543 ;;^UTILITY(U,$J,358.3,16445,1,3,0)
+544 ;;=3^Polyp of Other Parts of Female Genital Tract
+545 ;;^UTILITY(U,$J,358.3,16445,1,4,0)
+546 ;;=4^N84.8
+547 ;;^UTILITY(U,$J,358.3,16445,2)
+548 ;;=^5015868
+549 ;;^UTILITY(U,$J,358.3,16446,0)
+550 ;;=N84.0^^56^660^85
+551 ;;^UTILITY(U,$J,358.3,16446,1,0)
+552 ;;=^358.31IA^4^2
+553 ;;^UTILITY(U,$J,358.3,16446,1,3,0)
+554 ;;=3^Polyp of Corpus Uteri
+555 ;;^UTILITY(U,$J,358.3,16446,1,4,0)
+556 ;;=4^N84.0
+557 ;;^UTILITY(U,$J,358.3,16446,2)
+558 ;;=^270517
+559 ;;^UTILITY(U,$J,358.3,16447,0)
+560 ;;=N84.9^^56^660^86
+561 ;;^UTILITY(U,$J,358.3,16447,1,0)
+562 ;;=^358.31IA^4^2
+563 ;;^UTILITY(U,$J,358.3,16447,1,3,0)
+564 ;;=3^Polyp of Female Genital Tract,Unspec
+565 ;;^UTILITY(U,$J,358.3,16447,1,4,0)
+566 ;;=4^N84.9
+567 ;;^UTILITY(U,$J,358.3,16447,2)
+568 ;;=^5015869
+569 ;;^UTILITY(U,$J,358.3,16448,0)
+570 ;;=N84.1^^56^660^84
+571 ;;^UTILITY(U,$J,358.3,16448,1,0)
+572 ;;=^358.31IA^4^2
+573 ;;^UTILITY(U,$J,358.3,16448,1,3,0)
+574 ;;=3^Polyp of Cervix Uteri
+575 ;;^UTILITY(U,$J,358.3,16448,1,4,0)
+576 ;;=4^N84.1
+577 ;;^UTILITY(U,$J,358.3,16448,2)
+578 ;;=^5015866
+579 ;;^UTILITY(U,$J,358.3,16449,0)
+580 ;;=N89.1^^56^660^114
+581 ;;^UTILITY(U,$J,358.3,16449,1,0)
+582 ;;=^358.31IA^4^2
+583 ;;^UTILITY(U,$J,358.3,16449,1,3,0)
+584 ;;=3^Vaginal Dysplasia,Moderate
+585 ;;^UTILITY(U,$J,358.3,16449,1,4,0)
+586 ;;=4^N89.1
+587 ;;^UTILITY(U,$J,358.3,16449,2)
+588 ;;=^5015886
+589 ;;^UTILITY(U,$J,358.3,16450,0)
+590 ;;=N89.0^^56^660^113
+591 ;;^UTILITY(U,$J,358.3,16450,1,0)
+592 ;;=^358.31IA^4^2
+593 ;;^UTILITY(U,$J,358.3,16450,1,3,0)
+594 ;;=3^Vaginal Dysplasia,Mild
+595 ;;^UTILITY(U,$J,358.3,16450,1,4,0)
+596 ;;=4^N89.0
+597 ;;^UTILITY(U,$J,358.3,16450,2)
+598 ;;=^5015885
+599 ;;^UTILITY(U,$J,358.3,16451,0)
+600 ;;=N89.3^^56^660^115
+601 ;;^UTILITY(U,$J,358.3,16451,1,0)
+602 ;;=^358.31IA^4^2
+603 ;;^UTILITY(U,$J,358.3,16451,1,3,0)
+604 ;;=3^Vaginal Dysplasia,Unspec
+605 ;;^UTILITY(U,$J,358.3,16451,1,4,0)
+606 ;;=4^N89.3
+607 ;;^UTILITY(U,$J,358.3,16451,2)
+608 ;;=^5015887
+609 ;;^UTILITY(U,$J,358.3,16452,0)
+610 ;;=N90.4^^56^660^65
+611 ;;^UTILITY(U,$J,358.3,16452,1,0)
+612 ;;=^358.31IA^4^2
+613 ;;^UTILITY(U,$J,358.3,16452,1,3,0)
+614 ;;=3^Leukoplakia of Vulva
+615 ;;^UTILITY(U,$J,358.3,16452,1,4,0)
+616 ;;=4^N90.4
+617 ;;^UTILITY(U,$J,358.3,16452,2)
+618 ;;=^5015894
+619 ;;^UTILITY(U,$J,358.3,16453,0)
+620 ;;=N94.2^^56^660^116
+621 ;;^UTILITY(U,$J,358.3,16453,1,0)
+622 ;;=^358.31IA^4^2
+623 ;;^UTILITY(U,$J,358.3,16453,1,3,0)
+624 ;;=3^Vaginismus
+625 ;;^UTILITY(U,$J,358.3,16453,1,4,0)
+626 ;;=4^N94.2
+627 ;;^UTILITY(U,$J,358.3,16453,2)
+628 ;;=^5015918
+629 ;;^UTILITY(U,$J,358.3,16454,0)
+630 ;;=N94.0^^56^660^70
+631 ;;^UTILITY(U,$J,358.3,16454,1,0)
+632 ;;=^358.31IA^4^2
+633 ;;^UTILITY(U,$J,358.3,16454,1,3,0)
+634 ;;=3^Mittelschmerz
+635 ;;^UTILITY(U,$J,358.3,16454,1,4,0)
+636 ;;=4^N94.0
+637 ;;^UTILITY(U,$J,358.3,16454,2)
+638 ;;=^265259
+639 ;;^UTILITY(U,$J,358.3,16455,0)
+640 ;;=N94.6^^56^660^30
+641 ;;^UTILITY(U,$J,358.3,16455,1,0)
+642 ;;=^358.31IA^4^2
+643 ;;^UTILITY(U,$J,358.3,16455,1,3,0)
+644 ;;=3^Dysmenorrhea,Unspec
+645 ;;^UTILITY(U,$J,358.3,16455,1,4,0)
+646 ;;=4^N94.6
+647 ;;^UTILITY(U,$J,358.3,16455,2)
+648 ;;=^5015922
+649 ;;^UTILITY(U,$J,358.3,16456,0)
+650 ;;=N94.5^^56^660^29
+651 ;;^UTILITY(U,$J,358.3,16456,1,0)
+652 ;;=^358.31IA^4^2
+653 ;;^UTILITY(U,$J,358.3,16456,1,3,0)
+654 ;;=3^Dysmenorrhea,Secondary
+655 ;;^UTILITY(U,$J,358.3,16456,1,4,0)
+656 ;;=4^N94.5
+657 ;;^UTILITY(U,$J,358.3,16456,2)
+658 ;;=^5015921
+659 ;;^UTILITY(U,$J,358.3,16457,0)
+660 ;;=N94.4^^56^660^28
+661 ;;^UTILITY(U,$J,358.3,16457,1,0)
+662 ;;=^358.31IA^4^2
+663 ;;^UTILITY(U,$J,358.3,16457,1,3,0)
+664 ;;=3^Dysmenorrhea,Primary
+665 ;;^UTILITY(U,$J,358.3,16457,1,4,0)
+666 ;;=4^N94.4
+667 ;;^UTILITY(U,$J,358.3,16457,2)
+668 ;;=^5015920
+669 ;;^UTILITY(U,$J,358.3,16458,0)
+670 ;;=N94.3^^56^660^95
+671 ;;^UTILITY(U,$J,358.3,16458,1,0)
+672 ;;=^358.31IA^4^2
+673 ;;^UTILITY(U,$J,358.3,16458,1,3,0)
+674 ;;=3^Premenstrual Tension Syndrome
+675 ;;^UTILITY(U,$J,358.3,16458,1,4,0)
+676 ;;=4^N94.3
+677 ;;^UTILITY(U,$J,358.3,16458,2)
+678 ;;=^5015919
+679 ;;^UTILITY(U,$J,358.3,16459,0)
+680 ;;=N91.0^^56^660^9
+681 ;;^UTILITY(U,$J,358.3,16459,1,0)
+682 ;;=^358.31IA^4^2
+683 ;;^UTILITY(U,$J,358.3,16459,1,3,0)
+684 ;;=3^Amenorrhea,Primary
