IBDEI0EY ; ; 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,37401,1,3,0)
;;=3^Presence of Artificial Wrist Joint,Left
;;^UTILITY(U,$J,358.3,37401,1,4,0)
;;=4^Z96.632
;;^UTILITY(U,$J,358.3,37401,2)
;;=^5063699
;;^UTILITY(U,$J,358.3,37402,0)
;;=Z96.621^^107^1488^118
;;^UTILITY(U,$J,358.3,37402,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37402,1,3,0)
;;=3^Presence of Artificial Elbow Joint,Right
;;^UTILITY(U,$J,358.3,37402,1,4,0)
;;=4^Z96.621
;;^UTILITY(U,$J,358.3,37402,2)
;;=^5063695
;;^UTILITY(U,$J,358.3,37403,0)
;;=Z96.631^^107^1488^123
;;^UTILITY(U,$J,358.3,37403,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37403,1,3,0)
;;=3^Presence of Artificial Wrist Joint,Right
;;^UTILITY(U,$J,358.3,37403,1,4,0)
;;=4^Z96.631
;;^UTILITY(U,$J,358.3,37403,2)
;;=^5063698
;;^UTILITY(U,$J,358.3,37404,0)
;;=Z93.6^^107^1488^154
;;^UTILITY(U,$J,358.3,37404,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37404,1,3,0)
;;=3^Urostomy Status
;;^UTILITY(U,$J,358.3,37404,1,4,0)
;;=4^Z93.6
;;^UTILITY(U,$J,358.3,37404,2)
;;=^5063651
;;^UTILITY(U,$J,358.3,37405,0)
;;=Z95.820^^107^1488^67
;;^UTILITY(U,$J,358.3,37405,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37405,1,3,0)
;;=3^Peripheral Vascular Angioplasty Status w/ Graft
;;^UTILITY(U,$J,358.3,37405,1,4,0)
;;=4^Z95.820
;;^UTILITY(U,$J,358.3,37405,2)
;;=^5063678
;;^UTILITY(U,$J,358.3,37406,0)
;;=Z95.0^^107^1488^126
;;^UTILITY(U,$J,358.3,37406,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37406,1,3,0)
;;=3^Presence of Cardiac Pacemaker
;;^UTILITY(U,$J,358.3,37406,1,4,0)
;;=4^Z95.0
;;^UTILITY(U,$J,358.3,37406,2)
;;=^5063668
;;^UTILITY(U,$J,358.3,37407,0)
;;=Z95.810^^107^1488^124
;;^UTILITY(U,$J,358.3,37407,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37407,1,3,0)
;;=3^Presence of Automatic Cardiac Debribrillator
;;^UTILITY(U,$J,358.3,37407,1,4,0)
;;=4^Z95.810
;;^UTILITY(U,$J,358.3,37407,2)
;;=^5063674
;;^UTILITY(U,$J,358.3,37408,0)
;;=Z91.51^^107^1488^104
;;^UTILITY(U,$J,358.3,37408,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37408,1,3,0)
;;=3^Personal Hx of Suicidal Behavior
;;^UTILITY(U,$J,358.3,37408,1,4,0)
;;=4^Z91.51
;;^UTILITY(U,$J,358.3,37408,2)
;;=^5161317
;;^UTILITY(U,$J,358.3,37409,0)
;;=A15.0^^107^1489^91
;;^UTILITY(U,$J,358.3,37409,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37409,1,3,0)
;;=3^Tuberculosis of Lung
;;^UTILITY(U,$J,358.3,37409,1,4,0)
;;=4^A15.0
;;^UTILITY(U,$J,358.3,37409,2)
;;=^5000062
;;^UTILITY(U,$J,358.3,37410,0)
;;=B20.^^107^1489^34
;;^UTILITY(U,$J,358.3,37410,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37410,1,3,0)
;;=3^HIV Disease
;;^UTILITY(U,$J,358.3,37410,1,4,0)
;;=4^B20.
;;^UTILITY(U,$J,358.3,37410,2)
;;=^5000555
;;^UTILITY(U,$J,358.3,37411,0)
;;=B02.9^^107^1489^100
;;^UTILITY(U,$J,358.3,37411,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37411,1,3,0)
;;=3^Zoster w/o Complications
;;^UTILITY(U,$J,358.3,37411,1,4,0)
;;=4^B02.9
;;^UTILITY(U,$J,358.3,37411,2)
;;=^5000501
;;^UTILITY(U,$J,358.3,37412,0)
;;=A60.9^^107^1489^2
;;^UTILITY(U,$J,358.3,37412,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37412,1,3,0)
;;=3^Anogenital Herpesviral Infection,Unspec
;;^UTILITY(U,$J,358.3,37412,1,4,0)
;;=4^A60.9
;;^UTILITY(U,$J,358.3,37412,2)
;;=^5000359
;;^UTILITY(U,$J,358.3,37413,0)
;;=A60.04^^107^1489^37
;;^UTILITY(U,$J,358.3,37413,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37413,1,3,0)
;;=3^Herpesviral Vulvovaginitis
;;^UTILITY(U,$J,358.3,37413,1,4,0)
;;=4^A60.04
;;^UTILITY(U,$J,358.3,37413,2)
;;=^5000356
;;^UTILITY(U,$J,358.3,37414,0)
;;=A60.01^^107^1489^35
;;^UTILITY(U,$J,358.3,37414,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37414,1,3,0)
;;=3^Herpesviral Infection of Penis
;;^UTILITY(U,$J,358.3,37414,1,4,0)
;;=4^A60.01
;;^UTILITY(U,$J,358.3,37414,2)
;;=^5000353
;;^UTILITY(U,$J,358.3,37415,0)
;;=B00.1^^107^1489^36
;;^UTILITY(U,$J,358.3,37415,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37415,1,3,0)
;;=3^Herpesviral Vesicular Dermatitis
;;^UTILITY(U,$J,358.3,37415,1,4,0)
;;=4^B00.1
;;^UTILITY(U,$J,358.3,37415,2)
;;=^5000468
;;^UTILITY(U,$J,358.3,37416,0)
;;=B97.89^^107^1489^96
;;^UTILITY(U,$J,358.3,37416,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37416,1,3,0)
;;=3^Viral Agent Cause of Disease
;;^UTILITY(U,$J,358.3,37416,1,4,0)
;;=4^B97.89
;;^UTILITY(U,$J,358.3,37416,2)
;;=^5000879
;;^UTILITY(U,$J,358.3,37417,0)
;;=B97.10^^107^1489^24
;;^UTILITY(U,$J,358.3,37417,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37417,1,3,0)
;;=3^Enterovirus Cause of Disease
;;^UTILITY(U,$J,358.3,37417,1,4,0)
;;=4^B97.10
;;^UTILITY(U,$J,358.3,37417,2)
;;=^5000861
;;^UTILITY(U,$J,358.3,37418,0)
;;=B34.9^^107^1489^97
;;^UTILITY(U,$J,358.3,37418,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37418,1,3,0)
;;=3^Viral Infection,Unspec
;;^UTILITY(U,$J,358.3,37418,1,4,0)
;;=4^B34.9
;;^UTILITY(U,$J,358.3,37418,2)
;;=^5000603
;;^UTILITY(U,$J,358.3,37419,0)
;;=A69.20^^107^1489^53
;;^UTILITY(U,$J,358.3,37419,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37419,1,3,0)
;;=3^Lyme Disease,Unspec
;;^UTILITY(U,$J,358.3,37419,1,4,0)
;;=4^A69.20
;;^UTILITY(U,$J,358.3,37419,2)
;;=^5000375
;;^UTILITY(U,$J,358.3,37420,0)
;;=A69.22^^107^1489^55
;;^UTILITY(U,$J,358.3,37420,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37420,1,3,0)
;;=3^Neurologic Disorders d/t Lyme Disease
;;^UTILITY(U,$J,358.3,37420,1,4,0)
;;=4^A69.22
;;^UTILITY(U,$J,358.3,37420,2)
;;=^5000377
;;^UTILITY(U,$J,358.3,37421,0)
;;=A69.21^^107^1489^54
;;^UTILITY(U,$J,358.3,37421,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37421,1,3,0)
;;=3^Meningitis d/t Lyme Disease
;;^UTILITY(U,$J,358.3,37421,1,4,0)
;;=4^A69.21
;;^UTILITY(U,$J,358.3,37421,2)
;;=^5000376
;;^UTILITY(U,$J,358.3,37422,0)
;;=A69.29^^107^1489^20
;;^UTILITY(U,$J,358.3,37422,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37422,1,3,0)
;;=3^Conditions d/t Lyme Disease
;;^UTILITY(U,$J,358.3,37422,1,4,0)
;;=4^A69.29
;;^UTILITY(U,$J,358.3,37422,2)
;;=^5000379
;;^UTILITY(U,$J,358.3,37423,0)
;;=A69.23^^107^1489^5
;;^UTILITY(U,$J,358.3,37423,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37423,1,3,0)
;;=3^Arthritis d/t Lyme Disease
;;^UTILITY(U,$J,358.3,37423,1,4,0)
;;=4^A69.23
;;^UTILITY(U,$J,358.3,37423,2)
;;=^5000378
;;^UTILITY(U,$J,358.3,37424,0)
;;=A51.0^^107^1489^32
;;^UTILITY(U,$J,358.3,37424,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37424,1,3,0)
;;=3^Genital Syphilis,Primary
;;^UTILITY(U,$J,358.3,37424,1,4,0)
;;=4^A51.0
;;^UTILITY(U,$J,358.3,37424,2)
;;=^5000272
;;^UTILITY(U,$J,358.3,37425,0)
;;=A52.3^^107^1489^57
;;^UTILITY(U,$J,358.3,37425,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37425,1,3,0)
;;=3^Neurosyphilis,Unspec
;;^UTILITY(U,$J,358.3,37425,1,4,0)
;;=4^A52.3
;;^UTILITY(U,$J,358.3,37425,2)
;;=^5000298
;;^UTILITY(U,$J,358.3,37426,0)
;;=A52.10^^107^1489^56
;;^UTILITY(U,$J,358.3,37426,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37426,1,3,0)
;;=3^Neurosyphilis Symptomatic,Unspec
;;^UTILITY(U,$J,358.3,37426,1,4,0)
;;=4^A52.10
;;^UTILITY(U,$J,358.3,37426,2)
;;=^5000291
;;^UTILITY(U,$J,358.3,37427,0)
;;=A52.9^^107^1489^52
;;^UTILITY(U,$J,358.3,37427,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37427,1,3,0)
;;=3^Late Syphilis,Unspec
;;^UTILITY(U,$J,358.3,37427,1,4,0)
;;=4^A52.9
;;^UTILITY(U,$J,358.3,37427,2)
;;=^5000308
;;^UTILITY(U,$J,358.3,37428,0)
;;=A53.9^^107^1489^84
;;^UTILITY(U,$J,358.3,37428,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37428,1,3,0)
;;=3^Syphilis,Unspec
;;^UTILITY(U,$J,358.3,37428,1,4,0)
;;=4^A53.9
;;^UTILITY(U,$J,358.3,37428,2)
;;=^5000310
;;^UTILITY(U,$J,358.3,37429,0)
;;=B37.3^^107^1489^19
;;^UTILITY(U,$J,358.3,37429,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37429,1,3,0)
;;=3^Candidiasis Vulva/Vagina
;;^UTILITY(U,$J,358.3,37429,1,4,0)
;;=4^B37.3
;;^UTILITY(U,$J,358.3,37429,2)
;;=^5000615
;;^UTILITY(U,$J,358.3,37430,0)
;;=B58.9^^107^1489^89
;;^UTILITY(U,$J,358.3,37430,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37430,1,3,0)
;;=3^Toxoplasmosis,Unspec
;;^UTILITY(U,$J,358.3,37430,1,4,0)
;;=4^B58.9
;;^UTILITY(U,$J,358.3,37430,2)
;;=^5000733
;;^UTILITY(U,$J,358.3,37431,0)
;;=A59.01^^107^1489^90
;;^UTILITY(U,$J,358.3,37431,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37431,1,3,0)
;;=3^Trichomonal Vulvovaginitis
;;^UTILITY(U,$J,358.3,37431,1,4,0)
;;=4^A59.01
;;^UTILITY(U,$J,358.3,37431,2)
;;=^121763
;;^UTILITY(U,$J,358.3,37432,0)
;;=B59.^^107^1489^70
;;^UTILITY(U,$J,358.3,37432,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37432,1,3,0)
;;=3^Pneumocystosis
;;^UTILITY(U,$J,358.3,37432,1,4,0)
;;=4^B59.
;;^UTILITY(U,$J,358.3,37432,2)
;;=^5000734
;;^UTILITY(U,$J,358.3,37433,0)
;;=H83.09^^107^1489^51
;;^UTILITY(U,$J,358.3,37433,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37433,1,3,0)
;;=3^Labyrinthitis,Unspec Ear
;;^UTILITY(U,$J,358.3,37433,1,4,0)
;;=4^H83.09
;;^UTILITY(U,$J,358.3,37433,2)
;;=^5006897
;;^UTILITY(U,$J,358.3,37434,0)
;;=H83.01^^107^1489^50
;;^UTILITY(U,$J,358.3,37434,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37434,1,3,0)
;;=3^Labyrinthitis,Right Ear
;;^UTILITY(U,$J,358.3,37434,1,4,0)
;;=4^H83.01
;;^UTILITY(U,$J,358.3,37434,2)
;;=^5006894
;;^UTILITY(U,$J,358.3,37435,0)
;;=H83.03^^107^1489^48
;;^UTILITY(U,$J,358.3,37435,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37435,1,3,0)
;;=3^Labyrinthitis,Bilateral
;;^UTILITY(U,$J,358.3,37435,1,4,0)
;;=4^H83.03
;;^UTILITY(U,$J,358.3,37435,2)
;;=^5006896
;;^UTILITY(U,$J,358.3,37436,0)
;;=H83.02^^107^1489^49
;;^UTILITY(U,$J,358.3,37436,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37436,1,3,0)
;;=3^Labyrinthitis,Left Ear
;;^UTILITY(U,$J,358.3,37436,1,4,0)
;;=4^H83.02
;;^UTILITY(U,$J,358.3,37436,2)
;;=^5006895
;;^UTILITY(U,$J,358.3,37437,0)
;;=J01.91^^107^1489^81
;;^UTILITY(U,$J,358.3,37437,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37437,1,3,0)
;;=3^Sinusitis,Acute Recurrent Unspec
;;^UTILITY(U,$J,358.3,37437,1,4,0)
;;=4^J01.91
;;^UTILITY(U,$J,358.3,37437,2)
;;=^5008128
;;^UTILITY(U,$J,358.3,37438,0)
;;=J03.90^^107^1489^88
;;^UTILITY(U,$J,358.3,37438,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37438,1,3,0)
;;=3^Tonsillitis,Acute Unspec
;;^UTILITY(U,$J,358.3,37438,1,4,0)
;;=4^J03.90
;;^UTILITY(U,$J,358.3,37438,2)
;;=^5008135
;;^UTILITY(U,$J,358.3,37439,0)
;;=J01.90^^107^1489^82
;;^UTILITY(U,$J,358.3,37439,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37439,1,3,0)
;;=3^Sinusitis,Acute Unspec
;;^UTILITY(U,$J,358.3,37439,1,4,0)
;;=4^J01.90
;;^UTILITY(U,$J,358.3,37439,2)
;;=^5008127
;;^UTILITY(U,$J,358.3,37440,0)
;;=J20.1^^107^1489^10
;;^UTILITY(U,$J,358.3,37440,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37440,1,3,0)
;;=3^Bronchitis,Acute d/t Hemophilus Influenza
;;^UTILITY(U,$J,358.3,37440,1,4,0)
;;=4^J20.1
;;^UTILITY(U,$J,358.3,37440,2)
;;=^5008187
;;^UTILITY(U,$J,358.3,37441,0)
;;=J20.0^^107^1489^11
;;^UTILITY(U,$J,358.3,37441,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37441,1,3,0)
;;=3^Bronchitis,Acute d/t Mycoplasma Pneumonia
;;^UTILITY(U,$J,358.3,37441,1,4,0)
;;=4^J20.0
;;^UTILITY(U,$J,358.3,37441,2)
;;=^5008186
;;^UTILITY(U,$J,358.3,37442,0)
;;=J20.2^^107^1489^6
;;^UTILITY(U,$J,358.3,37442,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37442,1,3,0)
;;=3^Bonchitis,Acute d/t Streptococcus
;;^UTILITY(U,$J,358.3,37442,1,4,0)
;;=4^J20.2
;;^UTILITY(U,$J,358.3,37442,2)
;;=^5008188
;;^UTILITY(U,$J,358.3,37443,0)
;;=J20.4^^107^1489^13
;;^UTILITY(U,$J,358.3,37443,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37443,1,3,0)
;;=3^Bronchitis,Acute d/t Parainfluenza Virus
;;^UTILITY(U,$J,358.3,37443,1,4,0)
;;=4^J20.4
;;^UTILITY(U,$J,358.3,37443,2)
;;=^5008190
;;^UTILITY(U,$J,358.3,37444,0)
;;=J20.3^^107^1489^8
;;^UTILITY(U,$J,358.3,37444,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37444,1,3,0)
;;=3^Bronchitis,Acute d/t Coxsackievirus
;;^UTILITY(U,$J,358.3,37444,1,4,0)
;;=4^J20.3
;;^UTILITY(U,$J,358.3,37444,2)
;;=^5008189
;;^UTILITY(U,$J,358.3,37445,0)
;;=J20.9^^107^1489^7
;;^UTILITY(U,$J,358.3,37445,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37445,1,3,0)
;;=3^Bronchitis,Acute Unspec
;;^UTILITY(U,$J,358.3,37445,1,4,0)
;;=4^J20.9
;;^UTILITY(U,$J,358.3,37445,2)
;;=^5008195
;;^UTILITY(U,$J,358.3,37446,0)
;;=J20.8^^107^1489^12
;;^UTILITY(U,$J,358.3,37446,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37446,1,3,0)
;;=3^Bronchitis,Acute d/t Oth Spec Organisms
;;^UTILITY(U,$J,358.3,37446,1,4,0)
;;=4^J20.8
;;^UTILITY(U,$J,358.3,37446,2)
;;=^5008194
;;^UTILITY(U,$J,358.3,37447,0)
;;=J20.5^^107^1489^14
;;^UTILITY(U,$J,358.3,37447,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37447,1,3,0)
;;=3^Bronchitis,Acute d/t Respiratory Syncytial Virus
;;^UTILITY(U,$J,358.3,37447,1,4,0)
;;=4^J20.5
;;^UTILITY(U,$J,358.3,37447,2)
;;=^5008191
;;^UTILITY(U,$J,358.3,37448,0)
;;=J20.7^^107^1489^9
;;^UTILITY(U,$J,358.3,37448,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37448,1,3,0)
;;=3^Bronchitis,Acute d/t Echovirus
;;^UTILITY(U,$J,358.3,37448,1,4,0)
;;=4^J20.7
;;^UTILITY(U,$J,358.3,37448,2)
;;=^5008193
;;^UTILITY(U,$J,358.3,37449,0)
;;=J20.6^^107^1489^15
;;^UTILITY(U,$J,358.3,37449,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37449,1,3,0)
;;=3^Bronchitis,Acute d/t Rhinovirus
;;^UTILITY(U,$J,358.3,37449,1,4,0)
;;=4^J20.6
;;^UTILITY(U,$J,358.3,37449,2)
;;=^5008192
;;^UTILITY(U,$J,358.3,37450,0)
;;=J18.9^^107^1489^71
;;^UTILITY(U,$J,358.3,37450,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37450,1,3,0)
;;=3^Pneumonia,Unspec Organism
;;^UTILITY(U,$J,358.3,37450,1,4,0)
;;=4^J18.9
;;^UTILITY(U,$J,358.3,37450,2)
;;=^95632
;;^UTILITY(U,$J,358.3,37451,0)
;;=J18.8^^107^1489^72
;;^UTILITY(U,$J,358.3,37451,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37451,1,3,0)
;;=3^Pneumonia,Unspec Organism NEC
;;^UTILITY(U,$J,358.3,37451,1,4,0)
;;=4^J18.8
;;^UTILITY(U,$J,358.3,37451,2)
;;=^5008185
;;^UTILITY(U,$J,358.3,37452,0)
;;=J11.00^^107^1489^31
;;^UTILITY(U,$J,358.3,37452,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37452,1,3,0)
;;=3^Flu d/t Unidentified Flu Virus w/ Unspec Type Pneumonia
;;^UTILITY(U,$J,358.3,37452,1,4,0)
;;=4^J11.00
;;^UTILITY(U,$J,358.3,37452,2)
;;=^5008156
;;^UTILITY(U,$J,358.3,37453,0)
;;=J12.9^^107^1489^73
;;^UTILITY(U,$J,358.3,37453,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37453,1,3,0)
;;=3^Pneumonia,Viral Unspec
;;^UTILITY(U,$J,358.3,37453,1,4,0)
;;=4^J12.9
;;^UTILITY(U,$J,358.3,37453,2)
;;=^5008169
;;^UTILITY(U,$J,358.3,37454,0)
;;=J10.08^^107^1489^44
;;^UTILITY(U,$J,358.3,37454,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37454,1,3,0)
;;=3^Influenza d/t Oth ID'd Influenza Virus w/ Oth Pneumonia
;;^UTILITY(U,$J,358.3,37454,1,4,0)
;;=4^J10.08
;;^UTILITY(U,$J,358.3,37454,2)
;;=^5008150
;;^UTILITY(U,$J,358.3,37455,0)
;;=J10.00^^107^1489^43
;;^UTILITY(U,$J,358.3,37455,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37455,1,3,0)
;;=3^Influenza d/t Oth ID'd Flu Virus w/ Unspec Type Pneumonia
;;^UTILITY(U,$J,358.3,37455,1,4,0)
;;=4^J10.00
;;^UTILITY(U,$J,358.3,37455,2)
;;=^5008148
;;^UTILITY(U,$J,358.3,37456,0)
;;=J11.08^^107^1489^46
;;^UTILITY(U,$J,358.3,37456,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37456,1,3,0)
;;=3^Influenza d/t Unident Flu Virus w/ Spec Pneumonia
;;^UTILITY(U,$J,358.3,37456,1,4,0)
;;=4^J11.08
;;^UTILITY(U,$J,358.3,37456,2)
;;=^5008157
;;^UTILITY(U,$J,358.3,37457,0)
;;=J10.1^^107^1489^45
;;^UTILITY(U,$J,358.3,37457,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37457,1,3,0)
;;=3^Influenza d/t Oth ID'd Influenza Virus w/ Oth Resp Manifest
;;^UTILITY(U,$J,358.3,37457,1,4,0)
;;=4^J10.1
;;^UTILITY(U,$J,358.3,37457,2)
;;=^5008151
;;^UTILITY(U,$J,358.3,37458,0)
;;=J10.01^^107^1489^42
;;^UTILITY(U,$J,358.3,37458,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37458,1,3,0)
;;=3^Influenza d/t Oth ID'd Flu Virus w/ Same Oth ID'd Flu Virus Pneumonia
;;^UTILITY(U,$J,358.3,37458,1,4,0)
;;=4^J10.01
;;^UTILITY(U,$J,358.3,37458,2)
;;=^5008149
;;^UTILITY(U,$J,358.3,37459,0)
;;=J11.1^^107^1489^47
;;^UTILITY(U,$J,358.3,37459,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37459,1,3,0)
;;=3^Influenza d/t Unident Influenza Virus w/ Oth Resp Manifest
;;^UTILITY(U,$J,358.3,37459,1,4,0)
;;=4^J11.1
;;^UTILITY(U,$J,358.3,37459,2)
;;=^5008158
;;^UTILITY(U,$J,358.3,37460,0)
;;=N12.^^107^1489^92
;;^UTILITY(U,$J,358.3,37460,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37460,1,3,0)
;;=3^Tubulo-Interstitial Nephritis
;;^UTILITY(U,$J,358.3,37460,1,4,0)
;;=4^N12.
;;^UTILITY(U,$J,358.3,37460,2)
;;=^5015575
;;^UTILITY(U,$J,358.3,37461,0)
;;=N11.9^^107^1489^93
;;^UTILITY(U,$J,358.3,37461,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37461,1,3,0)
;;=3^Tubulo-Interstitial Nephritis,Chronic
;;^UTILITY(U,$J,358.3,37461,1,4,0)
;;=4^N11.9
;;^UTILITY(U,$J,358.3,37461,2)
;;=^5015574
;;^UTILITY(U,$J,358.3,37462,0)
;;=N13.6^^107^1489^78
;;^UTILITY(U,$J,358.3,37462,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37462,1,3,0)
;;=3^Pyonephrosis
;;^UTILITY(U,$J,358.3,37462,1,4,0)
;;=4^N13.6
;;^UTILITY(U,$J,358.3,37462,2)
;;=^101552
;;^UTILITY(U,$J,358.3,37463,0)
;;=N30.91^^107^1489^22
;;^UTILITY(U,$J,358.3,37463,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37463,1,3,0)
;;=3^Cystitis w/ Hematuria,Unspec
;;^UTILITY(U,$J,358.3,37463,1,4,0)
;;=4^N30.91
;;^UTILITY(U,$J,358.3,37463,2)
;;=^5015643
;;^UTILITY(U,$J,358.3,37464,0)
;;=N30.90^^107^1489^23
;;^UTILITY(U,$J,358.3,37464,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37464,1,3,0)
;;=3^Cystitis w/o Hematuria,Unspec
;;^UTILITY(U,$J,358.3,37464,1,4,0)
;;=4^N30.90
;;^UTILITY(U,$J,358.3,37464,2)
;;=^5015642
;;^UTILITY(U,$J,358.3,37465,0)
;;=N41.9^^107^1489^41
;;^UTILITY(U,$J,358.3,37465,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37465,1,3,0)
;;=3^Inflammatory Disease of Prostate,Unspec
;;^UTILITY(U,$J,358.3,37465,1,4,0)
;;=4^N41.9
;;^UTILITY(U,$J,358.3,37465,2)
;;=^5015694
;;^UTILITY(U,$J,358.3,37466,0)
;;=N70.91^^107^1489^80
;;^UTILITY(U,$J,358.3,37466,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37466,1,3,0)
;;=3^Salpingitis,Unspec
;;^UTILITY(U,$J,358.3,37466,1,4,0)
;;=4^N70.91
;;^UTILITY(U,$J,358.3,37466,2)
;;=^5015806
;;^UTILITY(U,$J,358.3,37467,0)
;;=N70.93^^107^1489^79
;;^UTILITY(U,$J,358.3,37467,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37467,1,3,0)
;;=3^Salpingitis & Oophoritis,Unspec
;;^UTILITY(U,$J,358.3,37467,1,4,0)
;;=4^N70.93
;;^UTILITY(U,$J,358.3,37467,2)
;;=^5015808
;;^UTILITY(U,$J,358.3,37468,0)
;;=N70.92^^107^1489^58
;;^UTILITY(U,$J,358.3,37468,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37468,1,3,0)
;;=3^Oophoritis,Unspec
;;^UTILITY(U,$J,358.3,37468,1,4,0)
;;=4^N70.92
;;^UTILITY(U,$J,358.3,37468,2)
;;=^5015807
;;^UTILITY(U,$J,358.3,37469,0)
;;=N73.9^^107^1489^40
;;^UTILITY(U,$J,358.3,37469,1,0)
;;=^358.31IA^4^2
;;^UTILITY(U,$J,358.3,37469,1,3,0)
;;=3^Inflammatory Disease Female Pelvic,Unspec
;;^UTILITY(U,$J,358.3,37469,1,4,0)
;;=4^N73.9
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI0EY 19789 printed Dec 13, 2024@01:47:21 Page 2
IBDEI0EY ; ; 03-MAY-2022
+1 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;MAY 03, 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,37401,1,3,0)
+2 ;;=3^Presence of Artificial Wrist Joint,Left
+3 ;;^UTILITY(U,$J,358.3,37401,1,4,0)
+4 ;;=4^Z96.632
+5 ;;^UTILITY(U,$J,358.3,37401,2)
+6 ;;=^5063699
+7 ;;^UTILITY(U,$J,358.3,37402,0)
+8 ;;=Z96.621^^107^1488^118
+9 ;;^UTILITY(U,$J,358.3,37402,1,0)
+10 ;;=^358.31IA^4^2
+11 ;;^UTILITY(U,$J,358.3,37402,1,3,0)
+12 ;;=3^Presence of Artificial Elbow Joint,Right
+13 ;;^UTILITY(U,$J,358.3,37402,1,4,0)
+14 ;;=4^Z96.621
+15 ;;^UTILITY(U,$J,358.3,37402,2)
+16 ;;=^5063695
+17 ;;^UTILITY(U,$J,358.3,37403,0)
+18 ;;=Z96.631^^107^1488^123
+19 ;;^UTILITY(U,$J,358.3,37403,1,0)
+20 ;;=^358.31IA^4^2
+21 ;;^UTILITY(U,$J,358.3,37403,1,3,0)
+22 ;;=3^Presence of Artificial Wrist Joint,Right
+23 ;;^UTILITY(U,$J,358.3,37403,1,4,0)
+24 ;;=4^Z96.631
+25 ;;^UTILITY(U,$J,358.3,37403,2)
+26 ;;=^5063698
+27 ;;^UTILITY(U,$J,358.3,37404,0)
+28 ;;=Z93.6^^107^1488^154
+29 ;;^UTILITY(U,$J,358.3,37404,1,0)
+30 ;;=^358.31IA^4^2
+31 ;;^UTILITY(U,$J,358.3,37404,1,3,0)
+32 ;;=3^Urostomy Status
+33 ;;^UTILITY(U,$J,358.3,37404,1,4,0)
+34 ;;=4^Z93.6
+35 ;;^UTILITY(U,$J,358.3,37404,2)
+36 ;;=^5063651
+37 ;;^UTILITY(U,$J,358.3,37405,0)
+38 ;;=Z95.820^^107^1488^67
+39 ;;^UTILITY(U,$J,358.3,37405,1,0)
+40 ;;=^358.31IA^4^2
+41 ;;^UTILITY(U,$J,358.3,37405,1,3,0)
+42 ;;=3^Peripheral Vascular Angioplasty Status w/ Graft
+43 ;;^UTILITY(U,$J,358.3,37405,1,4,0)
+44 ;;=4^Z95.820
+45 ;;^UTILITY(U,$J,358.3,37405,2)
+46 ;;=^5063678
+47 ;;^UTILITY(U,$J,358.3,37406,0)
+48 ;;=Z95.0^^107^1488^126
+49 ;;^UTILITY(U,$J,358.3,37406,1,0)
+50 ;;=^358.31IA^4^2
+51 ;;^UTILITY(U,$J,358.3,37406,1,3,0)
+52 ;;=3^Presence of Cardiac Pacemaker
+53 ;;^UTILITY(U,$J,358.3,37406,1,4,0)
+54 ;;=4^Z95.0
+55 ;;^UTILITY(U,$J,358.3,37406,2)
+56 ;;=^5063668
+57 ;;^UTILITY(U,$J,358.3,37407,0)
+58 ;;=Z95.810^^107^1488^124
+59 ;;^UTILITY(U,$J,358.3,37407,1,0)
+60 ;;=^358.31IA^4^2
+61 ;;^UTILITY(U,$J,358.3,37407,1,3,0)
+62 ;;=3^Presence of Automatic Cardiac Debribrillator
+63 ;;^UTILITY(U,$J,358.3,37407,1,4,0)
+64 ;;=4^Z95.810
+65 ;;^UTILITY(U,$J,358.3,37407,2)
+66 ;;=^5063674
+67 ;;^UTILITY(U,$J,358.3,37408,0)
+68 ;;=Z91.51^^107^1488^104
+69 ;;^UTILITY(U,$J,358.3,37408,1,0)
+70 ;;=^358.31IA^4^2
+71 ;;^UTILITY(U,$J,358.3,37408,1,3,0)
+72 ;;=3^Personal Hx of Suicidal Behavior
+73 ;;^UTILITY(U,$J,358.3,37408,1,4,0)
+74 ;;=4^Z91.51
+75 ;;^UTILITY(U,$J,358.3,37408,2)
+76 ;;=^5161317
+77 ;;^UTILITY(U,$J,358.3,37409,0)
+78 ;;=A15.0^^107^1489^91
+79 ;;^UTILITY(U,$J,358.3,37409,1,0)
+80 ;;=^358.31IA^4^2
+81 ;;^UTILITY(U,$J,358.3,37409,1,3,0)
+82 ;;=3^Tuberculosis of Lung
+83 ;;^UTILITY(U,$J,358.3,37409,1,4,0)
+84 ;;=4^A15.0
+85 ;;^UTILITY(U,$J,358.3,37409,2)
+86 ;;=^5000062
+87 ;;^UTILITY(U,$J,358.3,37410,0)
+88 ;;=B20.^^107^1489^34
+89 ;;^UTILITY(U,$J,358.3,37410,1,0)
+90 ;;=^358.31IA^4^2
+91 ;;^UTILITY(U,$J,358.3,37410,1,3,0)
+92 ;;=3^HIV Disease
+93 ;;^UTILITY(U,$J,358.3,37410,1,4,0)
+94 ;;=4^B20.
+95 ;;^UTILITY(U,$J,358.3,37410,2)
+96 ;;=^5000555
+97 ;;^UTILITY(U,$J,358.3,37411,0)
+98 ;;=B02.9^^107^1489^100
+99 ;;^UTILITY(U,$J,358.3,37411,1,0)
+100 ;;=^358.31IA^4^2
+101 ;;^UTILITY(U,$J,358.3,37411,1,3,0)
+102 ;;=3^Zoster w/o Complications
+103 ;;^UTILITY(U,$J,358.3,37411,1,4,0)
+104 ;;=4^B02.9
+105 ;;^UTILITY(U,$J,358.3,37411,2)
+106 ;;=^5000501
+107 ;;^UTILITY(U,$J,358.3,37412,0)
+108 ;;=A60.9^^107^1489^2
+109 ;;^UTILITY(U,$J,358.3,37412,1,0)
+110 ;;=^358.31IA^4^2
+111 ;;^UTILITY(U,$J,358.3,37412,1,3,0)
+112 ;;=3^Anogenital Herpesviral Infection,Unspec
+113 ;;^UTILITY(U,$J,358.3,37412,1,4,0)
+114 ;;=4^A60.9
+115 ;;^UTILITY(U,$J,358.3,37412,2)
+116 ;;=^5000359
+117 ;;^UTILITY(U,$J,358.3,37413,0)
+118 ;;=A60.04^^107^1489^37
+119 ;;^UTILITY(U,$J,358.3,37413,1,0)
+120 ;;=^358.31IA^4^2
+121 ;;^UTILITY(U,$J,358.3,37413,1,3,0)
+122 ;;=3^Herpesviral Vulvovaginitis
+123 ;;^UTILITY(U,$J,358.3,37413,1,4,0)
+124 ;;=4^A60.04
+125 ;;^UTILITY(U,$J,358.3,37413,2)
+126 ;;=^5000356
+127 ;;^UTILITY(U,$J,358.3,37414,0)
+128 ;;=A60.01^^107^1489^35
+129 ;;^UTILITY(U,$J,358.3,37414,1,0)
+130 ;;=^358.31IA^4^2
+131 ;;^UTILITY(U,$J,358.3,37414,1,3,0)
+132 ;;=3^Herpesviral Infection of Penis
+133 ;;^UTILITY(U,$J,358.3,37414,1,4,0)
+134 ;;=4^A60.01
+135 ;;^UTILITY(U,$J,358.3,37414,2)
+136 ;;=^5000353
+137 ;;^UTILITY(U,$J,358.3,37415,0)
+138 ;;=B00.1^^107^1489^36
+139 ;;^UTILITY(U,$J,358.3,37415,1,0)
+140 ;;=^358.31IA^4^2
+141 ;;^UTILITY(U,$J,358.3,37415,1,3,0)
+142 ;;=3^Herpesviral Vesicular Dermatitis
+143 ;;^UTILITY(U,$J,358.3,37415,1,4,0)
+144 ;;=4^B00.1
+145 ;;^UTILITY(U,$J,358.3,37415,2)
+146 ;;=^5000468
+147 ;;^UTILITY(U,$J,358.3,37416,0)
+148 ;;=B97.89^^107^1489^96
+149 ;;^UTILITY(U,$J,358.3,37416,1,0)
+150 ;;=^358.31IA^4^2
+151 ;;^UTILITY(U,$J,358.3,37416,1,3,0)
+152 ;;=3^Viral Agent Cause of Disease
+153 ;;^UTILITY(U,$J,358.3,37416,1,4,0)
+154 ;;=4^B97.89
+155 ;;^UTILITY(U,$J,358.3,37416,2)
+156 ;;=^5000879
+157 ;;^UTILITY(U,$J,358.3,37417,0)
+158 ;;=B97.10^^107^1489^24
+159 ;;^UTILITY(U,$J,358.3,37417,1,0)
+160 ;;=^358.31IA^4^2
+161 ;;^UTILITY(U,$J,358.3,37417,1,3,0)
+162 ;;=3^Enterovirus Cause of Disease
+163 ;;^UTILITY(U,$J,358.3,37417,1,4,0)
+164 ;;=4^B97.10
+165 ;;^UTILITY(U,$J,358.3,37417,2)
+166 ;;=^5000861
+167 ;;^UTILITY(U,$J,358.3,37418,0)
+168 ;;=B34.9^^107^1489^97
+169 ;;^UTILITY(U,$J,358.3,37418,1,0)
+170 ;;=^358.31IA^4^2
+171 ;;^UTILITY(U,$J,358.3,37418,1,3,0)
+172 ;;=3^Viral Infection,Unspec
+173 ;;^UTILITY(U,$J,358.3,37418,1,4,0)
+174 ;;=4^B34.9
+175 ;;^UTILITY(U,$J,358.3,37418,2)
+176 ;;=^5000603
+177 ;;^UTILITY(U,$J,358.3,37419,0)
+178 ;;=A69.20^^107^1489^53
+179 ;;^UTILITY(U,$J,358.3,37419,1,0)
+180 ;;=^358.31IA^4^2
+181 ;;^UTILITY(U,$J,358.3,37419,1,3,0)
+182 ;;=3^Lyme Disease,Unspec
+183 ;;^UTILITY(U,$J,358.3,37419,1,4,0)
+184 ;;=4^A69.20
+185 ;;^UTILITY(U,$J,358.3,37419,2)
+186 ;;=^5000375
+187 ;;^UTILITY(U,$J,358.3,37420,0)
+188 ;;=A69.22^^107^1489^55
+189 ;;^UTILITY(U,$J,358.3,37420,1,0)
+190 ;;=^358.31IA^4^2
+191 ;;^UTILITY(U,$J,358.3,37420,1,3,0)
+192 ;;=3^Neurologic Disorders d/t Lyme Disease
+193 ;;^UTILITY(U,$J,358.3,37420,1,4,0)
+194 ;;=4^A69.22
+195 ;;^UTILITY(U,$J,358.3,37420,2)
+196 ;;=^5000377
+197 ;;^UTILITY(U,$J,358.3,37421,0)
+198 ;;=A69.21^^107^1489^54
+199 ;;^UTILITY(U,$J,358.3,37421,1,0)
+200 ;;=^358.31IA^4^2
+201 ;;^UTILITY(U,$J,358.3,37421,1,3,0)
+202 ;;=3^Meningitis d/t Lyme Disease
+203 ;;^UTILITY(U,$J,358.3,37421,1,4,0)
+204 ;;=4^A69.21
+205 ;;^UTILITY(U,$J,358.3,37421,2)
+206 ;;=^5000376
+207 ;;^UTILITY(U,$J,358.3,37422,0)
+208 ;;=A69.29^^107^1489^20
+209 ;;^UTILITY(U,$J,358.3,37422,1,0)
+210 ;;=^358.31IA^4^2
+211 ;;^UTILITY(U,$J,358.3,37422,1,3,0)
+212 ;;=3^Conditions d/t Lyme Disease
+213 ;;^UTILITY(U,$J,358.3,37422,1,4,0)
+214 ;;=4^A69.29
+215 ;;^UTILITY(U,$J,358.3,37422,2)
+216 ;;=^5000379
+217 ;;^UTILITY(U,$J,358.3,37423,0)
+218 ;;=A69.23^^107^1489^5
+219 ;;^UTILITY(U,$J,358.3,37423,1,0)
+220 ;;=^358.31IA^4^2
+221 ;;^UTILITY(U,$J,358.3,37423,1,3,0)
+222 ;;=3^Arthritis d/t Lyme Disease
+223 ;;^UTILITY(U,$J,358.3,37423,1,4,0)
+224 ;;=4^A69.23
+225 ;;^UTILITY(U,$J,358.3,37423,2)
+226 ;;=^5000378
+227 ;;^UTILITY(U,$J,358.3,37424,0)
+228 ;;=A51.0^^107^1489^32
+229 ;;^UTILITY(U,$J,358.3,37424,1,0)
+230 ;;=^358.31IA^4^2
+231 ;;^UTILITY(U,$J,358.3,37424,1,3,0)
+232 ;;=3^Genital Syphilis,Primary
+233 ;;^UTILITY(U,$J,358.3,37424,1,4,0)
+234 ;;=4^A51.0
+235 ;;^UTILITY(U,$J,358.3,37424,2)
+236 ;;=^5000272
+237 ;;^UTILITY(U,$J,358.3,37425,0)
+238 ;;=A52.3^^107^1489^57
+239 ;;^UTILITY(U,$J,358.3,37425,1,0)
+240 ;;=^358.31IA^4^2
+241 ;;^UTILITY(U,$J,358.3,37425,1,3,0)
+242 ;;=3^Neurosyphilis,Unspec
+243 ;;^UTILITY(U,$J,358.3,37425,1,4,0)
+244 ;;=4^A52.3
+245 ;;^UTILITY(U,$J,358.3,37425,2)
+246 ;;=^5000298
+247 ;;^UTILITY(U,$J,358.3,37426,0)
+248 ;;=A52.10^^107^1489^56
+249 ;;^UTILITY(U,$J,358.3,37426,1,0)
+250 ;;=^358.31IA^4^2
+251 ;;^UTILITY(U,$J,358.3,37426,1,3,0)
+252 ;;=3^Neurosyphilis Symptomatic,Unspec
+253 ;;^UTILITY(U,$J,358.3,37426,1,4,0)
+254 ;;=4^A52.10
+255 ;;^UTILITY(U,$J,358.3,37426,2)
+256 ;;=^5000291
+257 ;;^UTILITY(U,$J,358.3,37427,0)
+258 ;;=A52.9^^107^1489^52
+259 ;;^UTILITY(U,$J,358.3,37427,1,0)
+260 ;;=^358.31IA^4^2
+261 ;;^UTILITY(U,$J,358.3,37427,1,3,0)
+262 ;;=3^Late Syphilis,Unspec
+263 ;;^UTILITY(U,$J,358.3,37427,1,4,0)
+264 ;;=4^A52.9
+265 ;;^UTILITY(U,$J,358.3,37427,2)
+266 ;;=^5000308
+267 ;;^UTILITY(U,$J,358.3,37428,0)
+268 ;;=A53.9^^107^1489^84
+269 ;;^UTILITY(U,$J,358.3,37428,1,0)
+270 ;;=^358.31IA^4^2
+271 ;;^UTILITY(U,$J,358.3,37428,1,3,0)
+272 ;;=3^Syphilis,Unspec
+273 ;;^UTILITY(U,$J,358.3,37428,1,4,0)
+274 ;;=4^A53.9
+275 ;;^UTILITY(U,$J,358.3,37428,2)
+276 ;;=^5000310
+277 ;;^UTILITY(U,$J,358.3,37429,0)
+278 ;;=B37.3^^107^1489^19
+279 ;;^UTILITY(U,$J,358.3,37429,1,0)
+280 ;;=^358.31IA^4^2
+281 ;;^UTILITY(U,$J,358.3,37429,1,3,0)
+282 ;;=3^Candidiasis Vulva/Vagina
+283 ;;^UTILITY(U,$J,358.3,37429,1,4,0)
+284 ;;=4^B37.3
+285 ;;^UTILITY(U,$J,358.3,37429,2)
+286 ;;=^5000615
+287 ;;^UTILITY(U,$J,358.3,37430,0)
+288 ;;=B58.9^^107^1489^89
+289 ;;^UTILITY(U,$J,358.3,37430,1,0)
+290 ;;=^358.31IA^4^2
+291 ;;^UTILITY(U,$J,358.3,37430,1,3,0)
+292 ;;=3^Toxoplasmosis,Unspec
+293 ;;^UTILITY(U,$J,358.3,37430,1,4,0)
+294 ;;=4^B58.9
+295 ;;^UTILITY(U,$J,358.3,37430,2)
+296 ;;=^5000733
+297 ;;^UTILITY(U,$J,358.3,37431,0)
+298 ;;=A59.01^^107^1489^90
+299 ;;^UTILITY(U,$J,358.3,37431,1,0)
+300 ;;=^358.31IA^4^2
+301 ;;^UTILITY(U,$J,358.3,37431,1,3,0)
+302 ;;=3^Trichomonal Vulvovaginitis
+303 ;;^UTILITY(U,$J,358.3,37431,1,4,0)
+304 ;;=4^A59.01
+305 ;;^UTILITY(U,$J,358.3,37431,2)
+306 ;;=^121763
+307 ;;^UTILITY(U,$J,358.3,37432,0)
+308 ;;=B59.^^107^1489^70
+309 ;;^UTILITY(U,$J,358.3,37432,1,0)
+310 ;;=^358.31IA^4^2
+311 ;;^UTILITY(U,$J,358.3,37432,1,3,0)
+312 ;;=3^Pneumocystosis
+313 ;;^UTILITY(U,$J,358.3,37432,1,4,0)
+314 ;;=4^B59.
+315 ;;^UTILITY(U,$J,358.3,37432,2)
+316 ;;=^5000734
+317 ;;^UTILITY(U,$J,358.3,37433,0)
+318 ;;=H83.09^^107^1489^51
+319 ;;^UTILITY(U,$J,358.3,37433,1,0)
+320 ;;=^358.31IA^4^2
+321 ;;^UTILITY(U,$J,358.3,37433,1,3,0)
+322 ;;=3^Labyrinthitis,Unspec Ear
+323 ;;^UTILITY(U,$J,358.3,37433,1,4,0)
+324 ;;=4^H83.09
+325 ;;^UTILITY(U,$J,358.3,37433,2)
+326 ;;=^5006897
+327 ;;^UTILITY(U,$J,358.3,37434,0)
+328 ;;=H83.01^^107^1489^50
+329 ;;^UTILITY(U,$J,358.3,37434,1,0)
+330 ;;=^358.31IA^4^2
+331 ;;^UTILITY(U,$J,358.3,37434,1,3,0)
+332 ;;=3^Labyrinthitis,Right Ear
+333 ;;^UTILITY(U,$J,358.3,37434,1,4,0)
+334 ;;=4^H83.01
+335 ;;^UTILITY(U,$J,358.3,37434,2)
+336 ;;=^5006894
+337 ;;^UTILITY(U,$J,358.3,37435,0)
+338 ;;=H83.03^^107^1489^48
+339 ;;^UTILITY(U,$J,358.3,37435,1,0)
+340 ;;=^358.31IA^4^2
+341 ;;^UTILITY(U,$J,358.3,37435,1,3,0)
+342 ;;=3^Labyrinthitis,Bilateral
+343 ;;^UTILITY(U,$J,358.3,37435,1,4,0)
+344 ;;=4^H83.03
+345 ;;^UTILITY(U,$J,358.3,37435,2)
+346 ;;=^5006896
+347 ;;^UTILITY(U,$J,358.3,37436,0)
+348 ;;=H83.02^^107^1489^49
+349 ;;^UTILITY(U,$J,358.3,37436,1,0)
+350 ;;=^358.31IA^4^2
+351 ;;^UTILITY(U,$J,358.3,37436,1,3,0)
+352 ;;=3^Labyrinthitis,Left Ear
+353 ;;^UTILITY(U,$J,358.3,37436,1,4,0)
+354 ;;=4^H83.02
+355 ;;^UTILITY(U,$J,358.3,37436,2)
+356 ;;=^5006895
+357 ;;^UTILITY(U,$J,358.3,37437,0)
+358 ;;=J01.91^^107^1489^81
+359 ;;^UTILITY(U,$J,358.3,37437,1,0)
+360 ;;=^358.31IA^4^2
+361 ;;^UTILITY(U,$J,358.3,37437,1,3,0)
+362 ;;=3^Sinusitis,Acute Recurrent Unspec
+363 ;;^UTILITY(U,$J,358.3,37437,1,4,0)
+364 ;;=4^J01.91
+365 ;;^UTILITY(U,$J,358.3,37437,2)
+366 ;;=^5008128
+367 ;;^UTILITY(U,$J,358.3,37438,0)
+368 ;;=J03.90^^107^1489^88
+369 ;;^UTILITY(U,$J,358.3,37438,1,0)
+370 ;;=^358.31IA^4^2
+371 ;;^UTILITY(U,$J,358.3,37438,1,3,0)
+372 ;;=3^Tonsillitis,Acute Unspec
+373 ;;^UTILITY(U,$J,358.3,37438,1,4,0)
+374 ;;=4^J03.90
+375 ;;^UTILITY(U,$J,358.3,37438,2)
+376 ;;=^5008135
+377 ;;^UTILITY(U,$J,358.3,37439,0)
+378 ;;=J01.90^^107^1489^82
+379 ;;^UTILITY(U,$J,358.3,37439,1,0)
+380 ;;=^358.31IA^4^2
+381 ;;^UTILITY(U,$J,358.3,37439,1,3,0)
+382 ;;=3^Sinusitis,Acute Unspec
+383 ;;^UTILITY(U,$J,358.3,37439,1,4,0)
+384 ;;=4^J01.90
+385 ;;^UTILITY(U,$J,358.3,37439,2)
+386 ;;=^5008127
+387 ;;^UTILITY(U,$J,358.3,37440,0)
+388 ;;=J20.1^^107^1489^10
+389 ;;^UTILITY(U,$J,358.3,37440,1,0)
+390 ;;=^358.31IA^4^2
+391 ;;^UTILITY(U,$J,358.3,37440,1,3,0)
+392 ;;=3^Bronchitis,Acute d/t Hemophilus Influenza
+393 ;;^UTILITY(U,$J,358.3,37440,1,4,0)
+394 ;;=4^J20.1
+395 ;;^UTILITY(U,$J,358.3,37440,2)
+396 ;;=^5008187
+397 ;;^UTILITY(U,$J,358.3,37441,0)
+398 ;;=J20.0^^107^1489^11
+399 ;;^UTILITY(U,$J,358.3,37441,1,0)
+400 ;;=^358.31IA^4^2
+401 ;;^UTILITY(U,$J,358.3,37441,1,3,0)
+402 ;;=3^Bronchitis,Acute d/t Mycoplasma Pneumonia
+403 ;;^UTILITY(U,$J,358.3,37441,1,4,0)
+404 ;;=4^J20.0
+405 ;;^UTILITY(U,$J,358.3,37441,2)
+406 ;;=^5008186
+407 ;;^UTILITY(U,$J,358.3,37442,0)
+408 ;;=J20.2^^107^1489^6
+409 ;;^UTILITY(U,$J,358.3,37442,1,0)
+410 ;;=^358.31IA^4^2
+411 ;;^UTILITY(U,$J,358.3,37442,1,3,0)
+412 ;;=3^Bonchitis,Acute d/t Streptococcus
+413 ;;^UTILITY(U,$J,358.3,37442,1,4,0)
+414 ;;=4^J20.2
+415 ;;^UTILITY(U,$J,358.3,37442,2)
+416 ;;=^5008188
+417 ;;^UTILITY(U,$J,358.3,37443,0)
+418 ;;=J20.4^^107^1489^13
+419 ;;^UTILITY(U,$J,358.3,37443,1,0)
+420 ;;=^358.31IA^4^2
+421 ;;^UTILITY(U,$J,358.3,37443,1,3,0)
+422 ;;=3^Bronchitis,Acute d/t Parainfluenza Virus
+423 ;;^UTILITY(U,$J,358.3,37443,1,4,0)
+424 ;;=4^J20.4
+425 ;;^UTILITY(U,$J,358.3,37443,2)
+426 ;;=^5008190
+427 ;;^UTILITY(U,$J,358.3,37444,0)
+428 ;;=J20.3^^107^1489^8
+429 ;;^UTILITY(U,$J,358.3,37444,1,0)
+430 ;;=^358.31IA^4^2
+431 ;;^UTILITY(U,$J,358.3,37444,1,3,0)
+432 ;;=3^Bronchitis,Acute d/t Coxsackievirus
+433 ;;^UTILITY(U,$J,358.3,37444,1,4,0)
+434 ;;=4^J20.3
+435 ;;^UTILITY(U,$J,358.3,37444,2)
+436 ;;=^5008189
+437 ;;^UTILITY(U,$J,358.3,37445,0)
+438 ;;=J20.9^^107^1489^7
+439 ;;^UTILITY(U,$J,358.3,37445,1,0)
+440 ;;=^358.31IA^4^2
+441 ;;^UTILITY(U,$J,358.3,37445,1,3,0)
+442 ;;=3^Bronchitis,Acute Unspec
+443 ;;^UTILITY(U,$J,358.3,37445,1,4,0)
+444 ;;=4^J20.9
+445 ;;^UTILITY(U,$J,358.3,37445,2)
+446 ;;=^5008195
+447 ;;^UTILITY(U,$J,358.3,37446,0)
+448 ;;=J20.8^^107^1489^12
+449 ;;^UTILITY(U,$J,358.3,37446,1,0)
+450 ;;=^358.31IA^4^2
+451 ;;^UTILITY(U,$J,358.3,37446,1,3,0)
+452 ;;=3^Bronchitis,Acute d/t Oth Spec Organisms
+453 ;;^UTILITY(U,$J,358.3,37446,1,4,0)
+454 ;;=4^J20.8
+455 ;;^UTILITY(U,$J,358.3,37446,2)
+456 ;;=^5008194
+457 ;;^UTILITY(U,$J,358.3,37447,0)
+458 ;;=J20.5^^107^1489^14
+459 ;;^UTILITY(U,$J,358.3,37447,1,0)
+460 ;;=^358.31IA^4^2
+461 ;;^UTILITY(U,$J,358.3,37447,1,3,0)
+462 ;;=3^Bronchitis,Acute d/t Respiratory Syncytial Virus
+463 ;;^UTILITY(U,$J,358.3,37447,1,4,0)
+464 ;;=4^J20.5
+465 ;;^UTILITY(U,$J,358.3,37447,2)
+466 ;;=^5008191
+467 ;;^UTILITY(U,$J,358.3,37448,0)
+468 ;;=J20.7^^107^1489^9
+469 ;;^UTILITY(U,$J,358.3,37448,1,0)
+470 ;;=^358.31IA^4^2
+471 ;;^UTILITY(U,$J,358.3,37448,1,3,0)
+472 ;;=3^Bronchitis,Acute d/t Echovirus
+473 ;;^UTILITY(U,$J,358.3,37448,1,4,0)
+474 ;;=4^J20.7
+475 ;;^UTILITY(U,$J,358.3,37448,2)
+476 ;;=^5008193
+477 ;;^UTILITY(U,$J,358.3,37449,0)
+478 ;;=J20.6^^107^1489^15
+479 ;;^UTILITY(U,$J,358.3,37449,1,0)
+480 ;;=^358.31IA^4^2
+481 ;;^UTILITY(U,$J,358.3,37449,1,3,0)
+482 ;;=3^Bronchitis,Acute d/t Rhinovirus
+483 ;;^UTILITY(U,$J,358.3,37449,1,4,0)
+484 ;;=4^J20.6
+485 ;;^UTILITY(U,$J,358.3,37449,2)
+486 ;;=^5008192
+487 ;;^UTILITY(U,$J,358.3,37450,0)
+488 ;;=J18.9^^107^1489^71
+489 ;;^UTILITY(U,$J,358.3,37450,1,0)
+490 ;;=^358.31IA^4^2
+491 ;;^UTILITY(U,$J,358.3,37450,1,3,0)
+492 ;;=3^Pneumonia,Unspec Organism
+493 ;;^UTILITY(U,$J,358.3,37450,1,4,0)
+494 ;;=4^J18.9
+495 ;;^UTILITY(U,$J,358.3,37450,2)
+496 ;;=^95632
+497 ;;^UTILITY(U,$J,358.3,37451,0)
+498 ;;=J18.8^^107^1489^72
+499 ;;^UTILITY(U,$J,358.3,37451,1,0)
+500 ;;=^358.31IA^4^2
+501 ;;^UTILITY(U,$J,358.3,37451,1,3,0)
+502 ;;=3^Pneumonia,Unspec Organism NEC
+503 ;;^UTILITY(U,$J,358.3,37451,1,4,0)
+504 ;;=4^J18.8
+505 ;;^UTILITY(U,$J,358.3,37451,2)
+506 ;;=^5008185
+507 ;;^UTILITY(U,$J,358.3,37452,0)
+508 ;;=J11.00^^107^1489^31
+509 ;;^UTILITY(U,$J,358.3,37452,1,0)
+510 ;;=^358.31IA^4^2
+511 ;;^UTILITY(U,$J,358.3,37452,1,3,0)
+512 ;;=3^Flu d/t Unidentified Flu Virus w/ Unspec Type Pneumonia
+513 ;;^UTILITY(U,$J,358.3,37452,1,4,0)
+514 ;;=4^J11.00
+515 ;;^UTILITY(U,$J,358.3,37452,2)
+516 ;;=^5008156
+517 ;;^UTILITY(U,$J,358.3,37453,0)
+518 ;;=J12.9^^107^1489^73
+519 ;;^UTILITY(U,$J,358.3,37453,1,0)
+520 ;;=^358.31IA^4^2
+521 ;;^UTILITY(U,$J,358.3,37453,1,3,0)
+522 ;;=3^Pneumonia,Viral Unspec
+523 ;;^UTILITY(U,$J,358.3,37453,1,4,0)
+524 ;;=4^J12.9
+525 ;;^UTILITY(U,$J,358.3,37453,2)
+526 ;;=^5008169
+527 ;;^UTILITY(U,$J,358.3,37454,0)
+528 ;;=J10.08^^107^1489^44
+529 ;;^UTILITY(U,$J,358.3,37454,1,0)
+530 ;;=^358.31IA^4^2
+531 ;;^UTILITY(U,$J,358.3,37454,1,3,0)
+532 ;;=3^Influenza d/t Oth ID'd Influenza Virus w/ Oth Pneumonia
+533 ;;^UTILITY(U,$J,358.3,37454,1,4,0)
+534 ;;=4^J10.08
+535 ;;^UTILITY(U,$J,358.3,37454,2)
+536 ;;=^5008150
+537 ;;^UTILITY(U,$J,358.3,37455,0)
+538 ;;=J10.00^^107^1489^43
+539 ;;^UTILITY(U,$J,358.3,37455,1,0)
+540 ;;=^358.31IA^4^2
+541 ;;^UTILITY(U,$J,358.3,37455,1,3,0)
+542 ;;=3^Influenza d/t Oth ID'd Flu Virus w/ Unspec Type Pneumonia
+543 ;;^UTILITY(U,$J,358.3,37455,1,4,0)
+544 ;;=4^J10.00
+545 ;;^UTILITY(U,$J,358.3,37455,2)
+546 ;;=^5008148
+547 ;;^UTILITY(U,$J,358.3,37456,0)
+548 ;;=J11.08^^107^1489^46
+549 ;;^UTILITY(U,$J,358.3,37456,1,0)
+550 ;;=^358.31IA^4^2
+551 ;;^UTILITY(U,$J,358.3,37456,1,3,0)
+552 ;;=3^Influenza d/t Unident Flu Virus w/ Spec Pneumonia
+553 ;;^UTILITY(U,$J,358.3,37456,1,4,0)
+554 ;;=4^J11.08
+555 ;;^UTILITY(U,$J,358.3,37456,2)
+556 ;;=^5008157
+557 ;;^UTILITY(U,$J,358.3,37457,0)
+558 ;;=J10.1^^107^1489^45
+559 ;;^UTILITY(U,$J,358.3,37457,1,0)
+560 ;;=^358.31IA^4^2
+561 ;;^UTILITY(U,$J,358.3,37457,1,3,0)
+562 ;;=3^Influenza d/t Oth ID'd Influenza Virus w/ Oth Resp Manifest
+563 ;;^UTILITY(U,$J,358.3,37457,1,4,0)
+564 ;;=4^J10.1
+565 ;;^UTILITY(U,$J,358.3,37457,2)
+566 ;;=^5008151
+567 ;;^UTILITY(U,$J,358.3,37458,0)
+568 ;;=J10.01^^107^1489^42
+569 ;;^UTILITY(U,$J,358.3,37458,1,0)
+570 ;;=^358.31IA^4^2
+571 ;;^UTILITY(U,$J,358.3,37458,1,3,0)
+572 ;;=3^Influenza d/t Oth ID'd Flu Virus w/ Same Oth ID'd Flu Virus Pneumonia
+573 ;;^UTILITY(U,$J,358.3,37458,1,4,0)
+574 ;;=4^J10.01
+575 ;;^UTILITY(U,$J,358.3,37458,2)
+576 ;;=^5008149
+577 ;;^UTILITY(U,$J,358.3,37459,0)
+578 ;;=J11.1^^107^1489^47
+579 ;;^UTILITY(U,$J,358.3,37459,1,0)
+580 ;;=^358.31IA^4^2
+581 ;;^UTILITY(U,$J,358.3,37459,1,3,0)
+582 ;;=3^Influenza d/t Unident Influenza Virus w/ Oth Resp Manifest
+583 ;;^UTILITY(U,$J,358.3,37459,1,4,0)
+584 ;;=4^J11.1
+585 ;;^UTILITY(U,$J,358.3,37459,2)
+586 ;;=^5008158
+587 ;;^UTILITY(U,$J,358.3,37460,0)
+588 ;;=N12.^^107^1489^92
+589 ;;^UTILITY(U,$J,358.3,37460,1,0)
+590 ;;=^358.31IA^4^2
+591 ;;^UTILITY(U,$J,358.3,37460,1,3,0)
+592 ;;=3^Tubulo-Interstitial Nephritis
+593 ;;^UTILITY(U,$J,358.3,37460,1,4,0)
+594 ;;=4^N12.
+595 ;;^UTILITY(U,$J,358.3,37460,2)
+596 ;;=^5015575
+597 ;;^UTILITY(U,$J,358.3,37461,0)
+598 ;;=N11.9^^107^1489^93
+599 ;;^UTILITY(U,$J,358.3,37461,1,0)
+600 ;;=^358.31IA^4^2
+601 ;;^UTILITY(U,$J,358.3,37461,1,3,0)
+602 ;;=3^Tubulo-Interstitial Nephritis,Chronic
+603 ;;^UTILITY(U,$J,358.3,37461,1,4,0)
+604 ;;=4^N11.9
+605 ;;^UTILITY(U,$J,358.3,37461,2)
+606 ;;=^5015574
+607 ;;^UTILITY(U,$J,358.3,37462,0)
+608 ;;=N13.6^^107^1489^78
+609 ;;^UTILITY(U,$J,358.3,37462,1,0)
+610 ;;=^358.31IA^4^2
+611 ;;^UTILITY(U,$J,358.3,37462,1,3,0)
+612 ;;=3^Pyonephrosis
+613 ;;^UTILITY(U,$J,358.3,37462,1,4,0)
+614 ;;=4^N13.6
+615 ;;^UTILITY(U,$J,358.3,37462,2)
+616 ;;=^101552
+617 ;;^UTILITY(U,$J,358.3,37463,0)
+618 ;;=N30.91^^107^1489^22
+619 ;;^UTILITY(U,$J,358.3,37463,1,0)
+620 ;;=^358.31IA^4^2
+621 ;;^UTILITY(U,$J,358.3,37463,1,3,0)
+622 ;;=3^Cystitis w/ Hematuria,Unspec
+623 ;;^UTILITY(U,$J,358.3,37463,1,4,0)
+624 ;;=4^N30.91
+625 ;;^UTILITY(U,$J,358.3,37463,2)
+626 ;;=^5015643
+627 ;;^UTILITY(U,$J,358.3,37464,0)
+628 ;;=N30.90^^107^1489^23
+629 ;;^UTILITY(U,$J,358.3,37464,1,0)
+630 ;;=^358.31IA^4^2
+631 ;;^UTILITY(U,$J,358.3,37464,1,3,0)
+632 ;;=3^Cystitis w/o Hematuria,Unspec
+633 ;;^UTILITY(U,$J,358.3,37464,1,4,0)
+634 ;;=4^N30.90
+635 ;;^UTILITY(U,$J,358.3,37464,2)
+636 ;;=^5015642
+637 ;;^UTILITY(U,$J,358.3,37465,0)
+638 ;;=N41.9^^107^1489^41
+639 ;;^UTILITY(U,$J,358.3,37465,1,0)
+640 ;;=^358.31IA^4^2
+641 ;;^UTILITY(U,$J,358.3,37465,1,3,0)
+642 ;;=3^Inflammatory Disease of Prostate,Unspec
+643 ;;^UTILITY(U,$J,358.3,37465,1,4,0)
+644 ;;=4^N41.9
+645 ;;^UTILITY(U,$J,358.3,37465,2)
+646 ;;=^5015694
+647 ;;^UTILITY(U,$J,358.3,37466,0)
+648 ;;=N70.91^^107^1489^80
+649 ;;^UTILITY(U,$J,358.3,37466,1,0)
+650 ;;=^358.31IA^4^2
+651 ;;^UTILITY(U,$J,358.3,37466,1,3,0)
+652 ;;=3^Salpingitis,Unspec
+653 ;;^UTILITY(U,$J,358.3,37466,1,4,0)
+654 ;;=4^N70.91
+655 ;;^UTILITY(U,$J,358.3,37466,2)
+656 ;;=^5015806
+657 ;;^UTILITY(U,$J,358.3,37467,0)
+658 ;;=N70.93^^107^1489^79
+659 ;;^UTILITY(U,$J,358.3,37467,1,0)
+660 ;;=^358.31IA^4^2
+661 ;;^UTILITY(U,$J,358.3,37467,1,3,0)
+662 ;;=3^Salpingitis & Oophoritis,Unspec
+663 ;;^UTILITY(U,$J,358.3,37467,1,4,0)
+664 ;;=4^N70.93
+665 ;;^UTILITY(U,$J,358.3,37467,2)
+666 ;;=^5015808
+667 ;;^UTILITY(U,$J,358.3,37468,0)
+668 ;;=N70.92^^107^1489^58
+669 ;;^UTILITY(U,$J,358.3,37468,1,0)
+670 ;;=^358.31IA^4^2
+671 ;;^UTILITY(U,$J,358.3,37468,1,3,0)
+672 ;;=3^Oophoritis,Unspec
+673 ;;^UTILITY(U,$J,358.3,37468,1,4,0)
+674 ;;=4^N70.92
+675 ;;^UTILITY(U,$J,358.3,37468,2)
+676 ;;=^5015807
+677 ;;^UTILITY(U,$J,358.3,37469,0)
+678 ;;=N73.9^^107^1489^40
+679 ;;^UTILITY(U,$J,358.3,37469,1,0)
+680 ;;=^358.31IA^4^2
+681 ;;^UTILITY(U,$J,358.3,37469,1,3,0)
+682 ;;=3^Inflammatory Disease Female Pelvic,Unspec
+683 ;;^UTILITY(U,$J,358.3,37469,1,4,0)
+684 ;;=4^N73.9
