IBDEI07R ; ; 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,18854,2)
 ;;=^5138966
 ;;^UTILITY(U,$J,358.3,18855,0)
 ;;=R35.81^^62^748^38
 ;;^UTILITY(U,$J,358.3,18855,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18855,1,3,0)
 ;;=3^Polyuria,Nocturnal
 ;;^UTILITY(U,$J,358.3,18855,1,4,0)
 ;;=4^R35.81
 ;;^UTILITY(U,$J,358.3,18855,2)
 ;;=^5161233
 ;;^UTILITY(U,$J,358.3,18856,0)
 ;;=R35.89^^62^748^39
 ;;^UTILITY(U,$J,358.3,18856,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18856,1,3,0)
 ;;=3^Polyuria,Other
 ;;^UTILITY(U,$J,358.3,18856,1,4,0)
 ;;=4^R35.89
 ;;^UTILITY(U,$J,358.3,18856,2)
 ;;=^5161234
 ;;^UTILITY(U,$J,358.3,18857,0)
 ;;=K64.9^^62^749^4
 ;;^UTILITY(U,$J,358.3,18857,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18857,1,3,0)
 ;;=3^Hemorrhoids,Unspec
 ;;^UTILITY(U,$J,358.3,18857,1,4,0)
 ;;=4^K64.9
 ;;^UTILITY(U,$J,358.3,18857,2)
 ;;=^5008775
 ;;^UTILITY(U,$J,358.3,18858,0)
 ;;=K64.4^^62^749^7
 ;;^UTILITY(U,$J,358.3,18858,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18858,1,3,0)
 ;;=3^Residual hemorrhoidal skin tags
 ;;^UTILITY(U,$J,358.3,18858,1,4,0)
 ;;=4^K64.4
 ;;^UTILITY(U,$J,358.3,18858,2)
 ;;=^269834
 ;;^UTILITY(U,$J,358.3,18859,0)
 ;;=K64.5^^62^749^6
 ;;^UTILITY(U,$J,358.3,18859,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18859,1,3,0)
 ;;=3^Perianal venous thrombosis
 ;;^UTILITY(U,$J,358.3,18859,1,4,0)
 ;;=4^K64.5
 ;;^UTILITY(U,$J,358.3,18859,2)
 ;;=^5008773
 ;;^UTILITY(U,$J,358.3,18860,0)
 ;;=K64.8^^62^749^3
 ;;^UTILITY(U,$J,358.3,18860,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18860,1,3,0)
 ;;=3^Hemorrhoids NEC
 ;;^UTILITY(U,$J,358.3,18860,1,4,0)
 ;;=4^K64.8
 ;;^UTILITY(U,$J,358.3,18860,2)
 ;;=^5008774
 ;;^UTILITY(U,$J,358.3,18861,0)
 ;;=R10.9^^62^749^1
 ;;^UTILITY(U,$J,358.3,18861,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18861,1,3,0)
 ;;=3^Abdominal Pain,Unspec
 ;;^UTILITY(U,$J,358.3,18861,1,4,0)
 ;;=4^R10.9
 ;;^UTILITY(U,$J,358.3,18861,2)
 ;;=^5019230
 ;;^UTILITY(U,$J,358.3,18862,0)
 ;;=R63.0^^62^749^2
 ;;^UTILITY(U,$J,358.3,18862,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18862,1,3,0)
 ;;=3^Anorexia
 ;;^UTILITY(U,$J,358.3,18862,1,4,0)
 ;;=4^R63.0
 ;;^UTILITY(U,$J,358.3,18862,2)
 ;;=^7939
 ;;^UTILITY(U,$J,358.3,18863,0)
 ;;=R19.00^^62^749^5
 ;;^UTILITY(U,$J,358.3,18863,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18863,1,3,0)
 ;;=3^Intra-Abd & Pelvic Swelling,Mass & Lump,Unspec Site
 ;;^UTILITY(U,$J,358.3,18863,1,4,0)
 ;;=4^R19.00
 ;;^UTILITY(U,$J,358.3,18863,2)
 ;;=^5019254
 ;;^UTILITY(U,$J,358.3,18864,0)
 ;;=N95.2^^62^750^1
 ;;^UTILITY(U,$J,358.3,18864,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18864,1,3,0)
 ;;=3^Atrophic Vaginitis,Post Menopausal
 ;;^UTILITY(U,$J,358.3,18864,1,4,0)
 ;;=4^N95.2
 ;;^UTILITY(U,$J,358.3,18864,2)
 ;;=^270577
 ;;^UTILITY(U,$J,358.3,18865,0)
 ;;=N81.11^^62^750^3
 ;;^UTILITY(U,$J,358.3,18865,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18865,1,3,0)
 ;;=3^Cystocele,Midline
 ;;^UTILITY(U,$J,358.3,18865,1,4,0)
 ;;=4^N81.11
 ;;^UTILITY(U,$J,358.3,18865,2)
 ;;=^331534
 ;;^UTILITY(U,$J,358.3,18866,0)
 ;;=N81.5^^62^750^4
 ;;^UTILITY(U,$J,358.3,18866,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18866,1,3,0)
 ;;=3^Enterocele
 ;;^UTILITY(U,$J,358.3,18866,1,4,0)
 ;;=4^N81.5
 ;;^UTILITY(U,$J,358.3,18866,2)
 ;;=^5015842
 ;;^UTILITY(U,$J,358.3,18867,0)
 ;;=N81.6^^62^750^5
 ;;^UTILITY(U,$J,358.3,18867,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18867,1,3,0)
 ;;=3^Rectocele
 ;;^UTILITY(U,$J,358.3,18867,1,4,0)
 ;;=4^N81.6
 ;;^UTILITY(U,$J,358.3,18867,2)
 ;;=^259590
 ;;^UTILITY(U,$J,358.3,18868,0)
 ;;=N89.8^^62^750^7
 ;;^UTILITY(U,$J,358.3,18868,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18868,1,3,0)
 ;;=3^Vaginal Bleeding
 ;;^UTILITY(U,$J,358.3,18868,1,4,0)
 ;;=4^N89.8
 ;;^UTILITY(U,$J,358.3,18868,2)
 ;;=^88111
 ;;^UTILITY(U,$J,358.3,18869,0)
 ;;=R87.811^^62^750^8
 ;;^UTILITY(U,$J,358.3,18869,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18869,1,3,0)
 ;;=3^Vaginal HPV
 ;;^UTILITY(U,$J,358.3,18869,1,4,0)
 ;;=4^R87.811
 ;;^UTILITY(U,$J,358.3,18869,2)
 ;;=^5019687
 ;;^UTILITY(U,$J,358.3,18870,0)
 ;;=D28.1^^62^750^2
 ;;^UTILITY(U,$J,358.3,18870,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18870,1,3,0)
 ;;=3^Benign Neop,Vagina
 ;;^UTILITY(U,$J,358.3,18870,1,4,0)
 ;;=4^D28.1
 ;;^UTILITY(U,$J,358.3,18870,2)
 ;;=^267649
 ;;^UTILITY(U,$J,358.3,18871,0)
 ;;=N99.3^^62^750^9
 ;;^UTILITY(U,$J,358.3,18871,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18871,1,3,0)
 ;;=3^Vaginal Vault Prolapse
 ;;^UTILITY(U,$J,358.3,18871,1,4,0)
 ;;=4^N99.3
 ;;^UTILITY(U,$J,358.3,18871,2)
 ;;=^270500
 ;;^UTILITY(U,$J,358.3,18872,0)
 ;;=N89.3^^62^750^6
 ;;^UTILITY(U,$J,358.3,18872,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18872,1,3,0)
 ;;=3^VAIN
 ;;^UTILITY(U,$J,358.3,18872,1,4,0)
 ;;=4^N89.3
 ;;^UTILITY(U,$J,358.3,18872,2)
 ;;=^5015887
 ;;^UTILITY(U,$J,358.3,18873,0)
 ;;=N76.4^^62^751^1
 ;;^UTILITY(U,$J,358.3,18873,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18873,1,3,0)
 ;;=3^Abscess,Vulva
 ;;^UTILITY(U,$J,358.3,18873,1,4,0)
 ;;=4^N76.4
 ;;^UTILITY(U,$J,358.3,18873,2)
 ;;=^5015830
 ;;^UTILITY(U,$J,358.3,18874,0)
 ;;=N90.5^^62^751^2
 ;;^UTILITY(U,$J,358.3,18874,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18874,1,3,0)
 ;;=3^Atrophic Vulvitis
 ;;^UTILITY(U,$J,358.3,18874,1,4,0)
 ;;=4^N90.5
 ;;^UTILITY(U,$J,358.3,18874,2)
 ;;=^270550
 ;;^UTILITY(U,$J,358.3,18875,0)
 ;;=N75.1^^62^751^3
 ;;^UTILITY(U,$J,358.3,18875,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18875,1,3,0)
 ;;=3^Bartholin Abscess
 ;;^UTILITY(U,$J,358.3,18875,1,4,0)
 ;;=4^N75.1
 ;;^UTILITY(U,$J,358.3,18875,2)
 ;;=^5015823
 ;;^UTILITY(U,$J,358.3,18876,0)
 ;;=N75.0^^62^751^4
 ;;^UTILITY(U,$J,358.3,18876,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18876,1,3,0)
 ;;=3^Bartholin Cyst
 ;;^UTILITY(U,$J,358.3,18876,1,4,0)
 ;;=4^N75.0
 ;;^UTILITY(U,$J,358.3,18876,2)
 ;;=^5015822
 ;;^UTILITY(U,$J,358.3,18877,0)
 ;;=A63.0^^62^751^6
 ;;^UTILITY(U,$J,358.3,18877,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18877,1,3,0)
 ;;=3^Condyloma
 ;;^UTILITY(U,$J,358.3,18877,1,4,0)
 ;;=4^A63.0
 ;;^UTILITY(U,$J,358.3,18877,2)
 ;;=^5000360
 ;;^UTILITY(U,$J,358.3,18878,0)
 ;;=N90.7^^62^751^7
 ;;^UTILITY(U,$J,358.3,18878,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18878,1,3,0)
 ;;=3^Cyst,Vulvar
 ;;^UTILITY(U,$J,358.3,18878,1,4,0)
 ;;=4^N90.7
 ;;^UTILITY(U,$J,358.3,18878,2)
 ;;=^5015896
 ;;^UTILITY(U,$J,358.3,18879,0)
 ;;=N90.4^^62^751^8
 ;;^UTILITY(U,$J,358.3,18879,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18879,1,3,0)
 ;;=3^Dystrophy Vulvar/Lichen Sclerosus
 ;;^UTILITY(U,$J,358.3,18879,1,4,0)
 ;;=4^N90.4
 ;;^UTILITY(U,$J,358.3,18879,2)
 ;;=^5015894
 ;;^UTILITY(U,$J,358.3,18880,0)
 ;;=L90.0^^62^751^9
 ;;^UTILITY(U,$J,358.3,18880,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18880,1,3,0)
 ;;=3^Lichen Sclerosus,et Atrophicus
 ;;^UTILITY(U,$J,358.3,18880,1,4,0)
 ;;=4^L90.0
 ;;^UTILITY(U,$J,358.3,18880,2)
 ;;=^70699
 ;;^UTILITY(U,$J,358.3,18881,0)
 ;;=B08.1^^62^751^10
 ;;^UTILITY(U,$J,358.3,18881,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18881,1,3,0)
 ;;=3^Molluscum Contagiosum
 ;;^UTILITY(U,$J,358.3,18881,1,4,0)
 ;;=4^B08.1
 ;;^UTILITY(U,$J,358.3,18881,2)
 ;;=^78675
 ;;^UTILITY(U,$J,358.3,18882,0)
 ;;=D28.0^^62^751^5
 ;;^UTILITY(U,$J,358.3,18882,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18882,1,3,0)
 ;;=3^Benign Neop,Vulva
 ;;^UTILITY(U,$J,358.3,18882,1,4,0)
 ;;=4^D28.0
 ;;^UTILITY(U,$J,358.3,18882,2)
 ;;=^267650
 ;;^UTILITY(U,$J,358.3,18883,0)
 ;;=L29.2^^62^751^11
 ;;^UTILITY(U,$J,358.3,18883,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18883,1,3,0)
 ;;=3^Pruritus,Vulvae
 ;;^UTILITY(U,$J,358.3,18883,1,4,0)
 ;;=4^L29.2
 ;;^UTILITY(U,$J,358.3,18883,2)
 ;;=^100075
 ;;^UTILITY(U,$J,358.3,18884,0)
 ;;=N76.6^^62^751^12
 ;;^UTILITY(U,$J,358.3,18884,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18884,1,3,0)
 ;;=3^Ulcer,Vulva
 ;;^UTILITY(U,$J,358.3,18884,1,4,0)
 ;;=4^N76.6
 ;;^UTILITY(U,$J,358.3,18884,2)
 ;;=^270477
 ;;^UTILITY(U,$J,358.3,18885,0)
 ;;=N90.0^^62^751^13
 ;;^UTILITY(U,$J,358.3,18885,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18885,1,3,0)
 ;;=3^VIN 1
 ;;^UTILITY(U,$J,358.3,18885,1,4,0)
 ;;=4^N90.0
 ;;^UTILITY(U,$J,358.3,18885,2)
 ;;=^5015891
 ;;^UTILITY(U,$J,358.3,18886,0)
 ;;=N90.1^^62^751^14
 ;;^UTILITY(U,$J,358.3,18886,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18886,1,3,0)
 ;;=3^VIN 2
 ;;^UTILITY(U,$J,358.3,18886,1,4,0)
 ;;=4^N90.1
 ;;^UTILITY(U,$J,358.3,18886,2)
 ;;=^5015892
 ;;^UTILITY(U,$J,358.3,18887,0)
 ;;=D07.1^^62^751^15
 ;;^UTILITY(U,$J,358.3,18887,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18887,1,3,0)
 ;;=3^VIN 3
 ;;^UTILITY(U,$J,358.3,18887,1,4,0)
 ;;=4^D07.1
 ;;^UTILITY(U,$J,358.3,18887,2)
 ;;=^5001943
 ;;^UTILITY(U,$J,358.3,18888,0)
 ;;=Z90.710^^62^752^2
 ;;^UTILITY(U,$J,358.3,18888,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18888,1,3,0)
 ;;=3^Acquired Absense of Cervix & Uterus
 ;;^UTILITY(U,$J,358.3,18888,1,4,0)
 ;;=4^Z90.710
 ;;^UTILITY(U,$J,358.3,18888,2)
 ;;=^5063591
 ;;^UTILITY(U,$J,358.3,18889,0)
 ;;=Z90.711^^62^752^1
 ;;^UTILITY(U,$J,358.3,18889,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18889,1,3,0)
 ;;=3^Acquired Absence of Uterus w/ Remaining Cervical Stump
 ;;^UTILITY(U,$J,358.3,18889,1,4,0)
 ;;=4^Z90.711
 ;;^UTILITY(U,$J,358.3,18889,2)
 ;;=^5063592
 ;;^UTILITY(U,$J,358.3,18890,0)
 ;;=N80.0^^62^752^3
 ;;^UTILITY(U,$J,358.3,18890,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18890,1,3,0)
 ;;=3^Adenomyosis
 ;;^UTILITY(U,$J,358.3,18890,1,4,0)
 ;;=4^N80.0
 ;;^UTILITY(U,$J,358.3,18890,2)
 ;;=^270482
 ;;^UTILITY(U,$J,358.3,18891,0)
 ;;=N85.6^^62^752^4
 ;;^UTILITY(U,$J,358.3,18891,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18891,1,3,0)
 ;;=3^Asherman's Syndrome
 ;;^UTILITY(U,$J,358.3,18891,1,4,0)
 ;;=4^N85.6
 ;;^UTILITY(U,$J,358.3,18891,2)
 ;;=^270523
 ;;^UTILITY(U,$J,358.3,18892,0)
 ;;=C54.1^^62^752^5
 ;;^UTILITY(U,$J,358.3,18892,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18892,1,3,0)
 ;;=3^CA,Endometrium
 ;;^UTILITY(U,$J,358.3,18892,1,4,0)
 ;;=4^C54.1
 ;;^UTILITY(U,$J,358.3,18892,2)
 ;;=^5001206
 ;;^UTILITY(U,$J,358.3,18893,0)
 ;;=C54.3^^62^752^6
 ;;^UTILITY(U,$J,358.3,18893,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18893,1,3,0)
 ;;=3^CA,Fundus Uteri
 ;;^UTILITY(U,$J,358.3,18893,1,4,0)
 ;;=4^C54.3
 ;;^UTILITY(U,$J,358.3,18893,2)
 ;;=^5001208
 ;;^UTILITY(U,$J,358.3,18894,0)
 ;;=C54.2^^62^752^7
 ;;^UTILITY(U,$J,358.3,18894,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18894,1,3,0)
 ;;=3^CA,Myometrium
 ;;^UTILITY(U,$J,358.3,18894,1,4,0)
 ;;=4^C54.2
 ;;^UTILITY(U,$J,358.3,18894,2)
 ;;=^5001207
 ;;^UTILITY(U,$J,358.3,18895,0)
 ;;=C54.8^^62^752^8
 ;;^UTILITY(U,$J,358.3,18895,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18895,1,3,0)
 ;;=3^CA,Overlapping Sites of Uterus
 ;;^UTILITY(U,$J,358.3,18895,1,4,0)
 ;;=4^C54.8
 ;;^UTILITY(U,$J,358.3,18895,2)
 ;;=^5001209
 ;;^UTILITY(U,$J,358.3,18896,0)
 ;;=C54.9^^62^752^9
 ;;^UTILITY(U,$J,358.3,18896,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18896,1,3,0)
 ;;=3^CA,Uterus,Unspec Site
 ;;^UTILITY(U,$J,358.3,18896,1,4,0)
 ;;=4^C54.9
 ;;^UTILITY(U,$J,358.3,18896,2)
 ;;=^5001210
 ;;^UTILITY(U,$J,358.3,18897,0)
 ;;=N85.02^^62^752^10
 ;;^UTILITY(U,$J,358.3,18897,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18897,1,3,0)
 ;;=3^Endomet Hyperpla w/ Atyp
 ;;^UTILITY(U,$J,358.3,18897,1,4,0)
 ;;=4^N85.02
 ;;^UTILITY(U,$J,358.3,18897,2)
 ;;=^338265
 ;;^UTILITY(U,$J,358.3,18898,0)
 ;;=N85.00^^62^752^12
 ;;^UTILITY(U,$J,358.3,18898,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18898,1,3,0)
 ;;=3^Endometrial Hyperplasia,Unspec
 ;;^UTILITY(U,$J,358.3,18898,1,4,0)
 ;;=4^N85.00
 ;;^UTILITY(U,$J,358.3,18898,2)
 ;;=^331542
 ;;^UTILITY(U,$J,358.3,18899,0)
 ;;=N85.2^^62^752^13
 ;;^UTILITY(U,$J,358.3,18899,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18899,1,3,0)
 ;;=3^Enlarged Uterus
 ;;^UTILITY(U,$J,358.3,18899,1,4,0)
 ;;=4^N85.2
 ;;^UTILITY(U,$J,358.3,18899,2)
 ;;=^270521
 ;;^UTILITY(U,$J,358.3,18900,0)
 ;;=D25.9^^62^752^14
 ;;^UTILITY(U,$J,358.3,18900,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18900,1,3,0)
 ;;=3^Fibroid Uterus
 ;;^UTILITY(U,$J,358.3,18900,1,4,0)
 ;;=4^D25.9
 ;;^UTILITY(U,$J,358.3,18900,2)
 ;;=^5002081
 ;;^UTILITY(U,$J,358.3,18901,0)
 ;;=Z85.42^^62^752^15
 ;;^UTILITY(U,$J,358.3,18901,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18901,1,3,0)
 ;;=3^Hx of Uterine Cancer
 ;;^UTILITY(U,$J,358.3,18901,1,4,0)
 ;;=4^Z85.42
 ;;^UTILITY(U,$J,358.3,18901,2)
 ;;=^5063419
 ;;^UTILITY(U,$J,358.3,18902,0)
 ;;=N81.2^^62^752^16
 ;;^UTILITY(U,$J,358.3,18902,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18902,1,3,0)
 ;;=3^Incomplete Uterovaginal Prolapse
 ;;^UTILITY(U,$J,358.3,18902,1,4,0)
 ;;=4^N81.2
 ;;^UTILITY(U,$J,358.3,18902,2)
 ;;=^5015839
 ;;^UTILITY(U,$J,358.3,18903,0)
 ;;=N85.01^^62^752^11
 ;;^UTILITY(U,$J,358.3,18903,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18903,1,3,0)
 ;;=3^Endomet Hyperpla w/o Atyp
 ;;^UTILITY(U,$J,358.3,18903,1,4,0)
 ;;=4^N85.01
 ;;^UTILITY(U,$J,358.3,18903,2)
 ;;=^338264
 ;;^UTILITY(U,$J,358.3,18904,0)
 ;;=D25.0^^62^752^17
 ;;^UTILITY(U,$J,358.3,18904,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18904,1,3,0)
 ;;=3^Submucous Fibroid
 ;;^UTILITY(U,$J,358.3,18904,1,4,0)
 ;;=4^D25.0
 ;;^UTILITY(U,$J,358.3,18904,2)
 ;;=^267640
 ;;^UTILITY(U,$J,358.3,18905,0)
 ;;=N93.9^^62^752^18
 ;;^UTILITY(U,$J,358.3,18905,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18905,1,3,0)
 ;;=3^Uterine Bleeding
 ;;^UTILITY(U,$J,358.3,18905,1,4,0)
 ;;=4^N93.9
 ;;^UTILITY(U,$J,358.3,18905,2)
 ;;=^5015916
 ;;^UTILITY(U,$J,358.3,18906,0)
 ;;=N85.4^^62^752^19
 ;;^UTILITY(U,$J,358.3,18906,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18906,1,3,0)
 ;;=3^Uterine Malposition
 ;;^UTILITY(U,$J,358.3,18906,1,4,0)
 ;;=4^N85.4
 ;;^UTILITY(U,$J,358.3,18906,2)
 ;;=^270525
 ;;^UTILITY(U,$J,358.3,18907,0)
 ;;=N84.0^^62^752^20
 ;;^UTILITY(U,$J,358.3,18907,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18907,1,3,0)
 ;;=3^Uterine Polyps
 ;;^UTILITY(U,$J,358.3,18907,1,4,0)
 ;;=4^N84.0
 ;;^UTILITY(U,$J,358.3,18907,2)
 ;;=^270517
 ;;^UTILITY(U,$J,358.3,18908,0)
 ;;=N81.4^^62^752^21
 ;;^UTILITY(U,$J,358.3,18908,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18908,1,3,0)
 ;;=3^Uterovaginal Prolapse,Unspec
 ;;^UTILITY(U,$J,358.3,18908,1,4,0)
 ;;=4^N81.4
 ;;^UTILITY(U,$J,358.3,18908,2)
 ;;=^5015841
 ;;^UTILITY(U,$J,358.3,18909,0)
 ;;=O02.0^^62^753^3
 ;;^UTILITY(U,$J,358.3,18909,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18909,1,3,0)
 ;;=3^Blighted Ovum
 ;;^UTILITY(U,$J,358.3,18909,1,4,0)
 ;;=4^O02.0
 ;;^UTILITY(U,$J,358.3,18909,2)
 ;;=^5015978
 ;;^UTILITY(U,$J,358.3,18910,0)
 ;;=O03.9^^62^753^4
 ;;^UTILITY(U,$J,358.3,18910,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18910,1,3,0)
 ;;=3^Complete SAB
 ;;^UTILITY(U,$J,358.3,18910,1,4,0)
 ;;=4^O03.9
 ;;^UTILITY(U,$J,358.3,18910,2)
 ;;=^5016007
 ;;^UTILITY(U,$J,358.3,18911,0)
 ;;=O01.9^^62^753^5
 ;;^UTILITY(U,$J,358.3,18911,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18911,1,3,0)
 ;;=3^Hydatidiform Mole,Unspec
 ;;^UTILITY(U,$J,358.3,18911,1,4,0)
 ;;=4^O01.9
 ;;^UTILITY(U,$J,358.3,18911,2)
 ;;=^5015977
 ;;^UTILITY(U,$J,358.3,18912,0)
 ;;=O02.81^^62^753^6
 ;;^UTILITY(U,$J,358.3,18912,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18912,1,3,0)
 ;;=3^Inapp Chg HCG in Early Pregnancy
 ;;^UTILITY(U,$J,358.3,18912,1,4,0)
 ;;=4^O02.81
 ;;^UTILITY(U,$J,358.3,18912,2)
 ;;=^340611
 ;;^UTILITY(U,$J,358.3,18913,0)
 ;;=O03.4^^62^753^7
 ;;^UTILITY(U,$J,358.3,18913,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18913,1,3,0)
 ;;=3^Incomplete SAB
 ;;^UTILITY(U,$J,358.3,18913,1,4,0)
 ;;=4^O03.4
 ;;^UTILITY(U,$J,358.3,18913,2)
 ;;=^5015993
 ;;^UTILITY(U,$J,358.3,18914,0)
 ;;=O02.1^^62^753^8
 ;;^UTILITY(U,$J,358.3,18914,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18914,1,3,0)
 ;;=3^Missed Abortion
 ;;^UTILITY(U,$J,358.3,18914,1,4,0)
 ;;=4^O02.1
 ;;^UTILITY(U,$J,358.3,18914,2)
 ;;=^1259
 ;;^UTILITY(U,$J,358.3,18915,0)
 ;;=N96.^^62^753^13
 ;;^UTILITY(U,$J,358.3,18915,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18915,1,3,0)
 ;;=3^Recurrent Pregnancy Loss
 ;;^UTILITY(U,$J,358.3,18915,1,4,0)
 ;;=4^N96.
 ;;^UTILITY(U,$J,358.3,18915,2)
 ;;=^5015930
 ;;^UTILITY(U,$J,358.3,18916,0)
 ;;=O72.2^^62^753^14
 ;;^UTILITY(U,$J,358.3,18916,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18916,1,3,0)
 ;;=3^Retained Products
 ;;^UTILITY(U,$J,358.3,18916,1,4,0)
 ;;=4^O72.2
 ;;^UTILITY(U,$J,358.3,18916,2)
 ;;=^271578
 ;;^UTILITY(U,$J,358.3,18917,0)
 ;;=O20.0^^62^753^15
 ;;^UTILITY(U,$J,358.3,18917,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18917,1,3,0)
 ;;=3^Threatened Abortion
 ;;^UTILITY(U,$J,358.3,18917,1,4,0)
 ;;=4^O20.0
 ;;^UTILITY(U,$J,358.3,18917,2)
 ;;=^1287
 ;;^UTILITY(U,$J,358.3,18918,0)
 ;;=O00.00^^62^753^2
 ;;^UTILITY(U,$J,358.3,18918,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18918,1,3,0)
 ;;=3^Abdominal Pregnancy w/o IUP
 ;;^UTILITY(U,$J,358.3,18918,1,4,0)
 ;;=4^O00.00
 ;;^UTILITY(U,$J,358.3,18918,2)
 ;;=^328603
 ;;^UTILITY(U,$J,358.3,18919,0)
 ;;=O00.01^^62^753^1
 ;;^UTILITY(U,$J,358.3,18919,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18919,1,3,0)
 ;;=3^Abdominal Pregnancy w/ IUP
 ;;^UTILITY(U,$J,358.3,18919,1,4,0)
 ;;=4^O00.01
 ;;^UTILITY(U,$J,358.3,18919,2)
 ;;=^328532
 ;;^UTILITY(U,$J,358.3,18920,0)
 ;;=O00.211^^62^753^11
 ;;^UTILITY(U,$J,358.3,18920,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18920,1,3,0)
 ;;=3^Ovarian Pregnancy,Right w/ Intrauterine Pregnancy
 ;;^UTILITY(U,$J,358.3,18920,1,4,0)
 ;;=4^O00.211
 ;;^UTILITY(U,$J,358.3,18920,2)
 ;;=^5151545
 ;;^UTILITY(U,$J,358.3,18921,0)
 ;;=O00.212^^62^753^9
 ;;^UTILITY(U,$J,358.3,18921,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18921,1,3,0)
 ;;=3^Ovarian Pregnancy,Left w/ Intrauterine Pregnancy
 ;;^UTILITY(U,$J,358.3,18921,1,4,0)
 ;;=4^O00.212
 ;;^UTILITY(U,$J,358.3,18921,2)
 ;;=^5151546
 ;;^UTILITY(U,$J,358.3,18922,0)
 ;;=O00.201^^62^753^12
 ;;^UTILITY(U,$J,358.3,18922,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18922,1,3,0)
 ;;=3^Ovarian Pregnancy,Right w/o Intrauterine Pregnancy
 ;;^UTILITY(U,$J,358.3,18922,1,4,0)
 ;;=4^O00.201
 ;;^UTILITY(U,$J,358.3,18922,2)
 ;;=^5151542
 ;;^UTILITY(U,$J,358.3,18923,0)
 ;;=O00.202^^62^753^10
 ;;^UTILITY(U,$J,358.3,18923,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18923,1,3,0)
 ;;=3^Ovarian Pregnancy,Left w/o Intrauterine Pregnancy
 ;;^UTILITY(U,$J,358.3,18923,1,4,0)
 ;;=4^O00.202
 ;;^UTILITY(U,$J,358.3,18923,2)
 ;;=^5151543
 ;;^UTILITY(U,$J,358.3,18924,0)
 ;;=O00.111^^62^753^18
 ;;^UTILITY(U,$J,358.3,18924,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18924,1,3,0)
 ;;=3^Tubal Pregnancy,Right w/ Intrauterine Pregnancy
 ;;^UTILITY(U,$J,358.3,18924,1,4,0)
 ;;=4^O00.111
 ;;^UTILITY(U,$J,358.3,18924,2)
 ;;=^5151539
 ;;^UTILITY(U,$J,358.3,18925,0)
 ;;=O00.112^^62^753^16
 ;;^UTILITY(U,$J,358.3,18925,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18925,1,3,0)
 ;;=3^Tubal Pregnancy,Left w/ Intrauterine Pregnancy
 ;;^UTILITY(U,$J,358.3,18925,1,4,0)
 ;;=4^O00.112
 ;;^UTILITY(U,$J,358.3,18925,2)
 ;;=^5151540
 ;;^UTILITY(U,$J,358.3,18926,0)
 ;;=O00.101^^62^753^19
 ;;^UTILITY(U,$J,358.3,18926,1,0)
 ;;=^358.31IA^4^2
 
--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI07R   19754     printed  Sep 23, 2025@19:19:17                                                                                                                                                                                                   Page 2
IBDEI07R  ; ; 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,18854,2)
 +2       ;;=^5138966
 +3       ;;^UTILITY(U,$J,358.3,18855,0)
 +4       ;;=R35.81^^62^748^38
 +5       ;;^UTILITY(U,$J,358.3,18855,1,0)
 +6       ;;=^358.31IA^4^2
 +7       ;;^UTILITY(U,$J,358.3,18855,1,3,0)
 +8       ;;=3^Polyuria,Nocturnal
 +9       ;;^UTILITY(U,$J,358.3,18855,1,4,0)
 +10      ;;=4^R35.81
 +11      ;;^UTILITY(U,$J,358.3,18855,2)
 +12      ;;=^5161233
 +13      ;;^UTILITY(U,$J,358.3,18856,0)
 +14      ;;=R35.89^^62^748^39
 +15      ;;^UTILITY(U,$J,358.3,18856,1,0)
 +16      ;;=^358.31IA^4^2
 +17      ;;^UTILITY(U,$J,358.3,18856,1,3,0)
 +18      ;;=3^Polyuria,Other
 +19      ;;^UTILITY(U,$J,358.3,18856,1,4,0)
 +20      ;;=4^R35.89
 +21      ;;^UTILITY(U,$J,358.3,18856,2)
 +22      ;;=^5161234
 +23      ;;^UTILITY(U,$J,358.3,18857,0)
 +24      ;;=K64.9^^62^749^4
 +25      ;;^UTILITY(U,$J,358.3,18857,1,0)
 +26      ;;=^358.31IA^4^2
 +27      ;;^UTILITY(U,$J,358.3,18857,1,3,0)
 +28      ;;=3^Hemorrhoids,Unspec
 +29      ;;^UTILITY(U,$J,358.3,18857,1,4,0)
 +30      ;;=4^K64.9
 +31      ;;^UTILITY(U,$J,358.3,18857,2)
 +32      ;;=^5008775
 +33      ;;^UTILITY(U,$J,358.3,18858,0)
 +34      ;;=K64.4^^62^749^7
 +35      ;;^UTILITY(U,$J,358.3,18858,1,0)
 +36      ;;=^358.31IA^4^2
 +37      ;;^UTILITY(U,$J,358.3,18858,1,3,0)
 +38      ;;=3^Residual hemorrhoidal skin tags
 +39      ;;^UTILITY(U,$J,358.3,18858,1,4,0)
 +40      ;;=4^K64.4
 +41      ;;^UTILITY(U,$J,358.3,18858,2)
 +42      ;;=^269834
 +43      ;;^UTILITY(U,$J,358.3,18859,0)
 +44      ;;=K64.5^^62^749^6
 +45      ;;^UTILITY(U,$J,358.3,18859,1,0)
 +46      ;;=^358.31IA^4^2
 +47      ;;^UTILITY(U,$J,358.3,18859,1,3,0)
 +48      ;;=3^Perianal venous thrombosis
 +49      ;;^UTILITY(U,$J,358.3,18859,1,4,0)
 +50      ;;=4^K64.5
 +51      ;;^UTILITY(U,$J,358.3,18859,2)
 +52      ;;=^5008773
 +53      ;;^UTILITY(U,$J,358.3,18860,0)
 +54      ;;=K64.8^^62^749^3
 +55      ;;^UTILITY(U,$J,358.3,18860,1,0)
 +56      ;;=^358.31IA^4^2
 +57      ;;^UTILITY(U,$J,358.3,18860,1,3,0)
 +58      ;;=3^Hemorrhoids NEC
 +59      ;;^UTILITY(U,$J,358.3,18860,1,4,0)
 +60      ;;=4^K64.8
 +61      ;;^UTILITY(U,$J,358.3,18860,2)
 +62      ;;=^5008774
 +63      ;;^UTILITY(U,$J,358.3,18861,0)
 +64      ;;=R10.9^^62^749^1
 +65      ;;^UTILITY(U,$J,358.3,18861,1,0)
 +66      ;;=^358.31IA^4^2
 +67      ;;^UTILITY(U,$J,358.3,18861,1,3,0)
 +68      ;;=3^Abdominal Pain,Unspec
 +69      ;;^UTILITY(U,$J,358.3,18861,1,4,0)
 +70      ;;=4^R10.9
 +71      ;;^UTILITY(U,$J,358.3,18861,2)
 +72      ;;=^5019230
 +73      ;;^UTILITY(U,$J,358.3,18862,0)
 +74      ;;=R63.0^^62^749^2
 +75      ;;^UTILITY(U,$J,358.3,18862,1,0)
 +76      ;;=^358.31IA^4^2
 +77      ;;^UTILITY(U,$J,358.3,18862,1,3,0)
 +78      ;;=3^Anorexia
 +79      ;;^UTILITY(U,$J,358.3,18862,1,4,0)
 +80      ;;=4^R63.0
 +81      ;;^UTILITY(U,$J,358.3,18862,2)
 +82      ;;=^7939
 +83      ;;^UTILITY(U,$J,358.3,18863,0)
 +84      ;;=R19.00^^62^749^5
 +85      ;;^UTILITY(U,$J,358.3,18863,1,0)
 +86      ;;=^358.31IA^4^2
 +87      ;;^UTILITY(U,$J,358.3,18863,1,3,0)
 +88      ;;=3^Intra-Abd & Pelvic Swelling,Mass & Lump,Unspec Site
 +89      ;;^UTILITY(U,$J,358.3,18863,1,4,0)
 +90      ;;=4^R19.00
 +91      ;;^UTILITY(U,$J,358.3,18863,2)
 +92      ;;=^5019254
 +93      ;;^UTILITY(U,$J,358.3,18864,0)
 +94      ;;=N95.2^^62^750^1
 +95      ;;^UTILITY(U,$J,358.3,18864,1,0)
 +96      ;;=^358.31IA^4^2
 +97      ;;^UTILITY(U,$J,358.3,18864,1,3,0)
 +98      ;;=3^Atrophic Vaginitis,Post Menopausal
 +99      ;;^UTILITY(U,$J,358.3,18864,1,4,0)
 +100     ;;=4^N95.2
 +101     ;;^UTILITY(U,$J,358.3,18864,2)
 +102     ;;=^270577
 +103     ;;^UTILITY(U,$J,358.3,18865,0)
 +104     ;;=N81.11^^62^750^3
 +105     ;;^UTILITY(U,$J,358.3,18865,1,0)
 +106     ;;=^358.31IA^4^2
 +107     ;;^UTILITY(U,$J,358.3,18865,1,3,0)
 +108     ;;=3^Cystocele,Midline
 +109     ;;^UTILITY(U,$J,358.3,18865,1,4,0)
 +110     ;;=4^N81.11
 +111     ;;^UTILITY(U,$J,358.3,18865,2)
 +112     ;;=^331534
 +113     ;;^UTILITY(U,$J,358.3,18866,0)
 +114     ;;=N81.5^^62^750^4
 +115     ;;^UTILITY(U,$J,358.3,18866,1,0)
 +116     ;;=^358.31IA^4^2
 +117     ;;^UTILITY(U,$J,358.3,18866,1,3,0)
 +118     ;;=3^Enterocele
 +119     ;;^UTILITY(U,$J,358.3,18866,1,4,0)
 +120     ;;=4^N81.5
 +121     ;;^UTILITY(U,$J,358.3,18866,2)
 +122     ;;=^5015842
 +123     ;;^UTILITY(U,$J,358.3,18867,0)
 +124     ;;=N81.6^^62^750^5
 +125     ;;^UTILITY(U,$J,358.3,18867,1,0)
 +126     ;;=^358.31IA^4^2
 +127     ;;^UTILITY(U,$J,358.3,18867,1,3,0)
 +128     ;;=3^Rectocele
 +129     ;;^UTILITY(U,$J,358.3,18867,1,4,0)
 +130     ;;=4^N81.6
 +131     ;;^UTILITY(U,$J,358.3,18867,2)
 +132     ;;=^259590
 +133     ;;^UTILITY(U,$J,358.3,18868,0)
 +134     ;;=N89.8^^62^750^7
 +135     ;;^UTILITY(U,$J,358.3,18868,1,0)
 +136     ;;=^358.31IA^4^2
 +137     ;;^UTILITY(U,$J,358.3,18868,1,3,0)
 +138     ;;=3^Vaginal Bleeding
 +139     ;;^UTILITY(U,$J,358.3,18868,1,4,0)
 +140     ;;=4^N89.8
 +141     ;;^UTILITY(U,$J,358.3,18868,2)
 +142     ;;=^88111
 +143     ;;^UTILITY(U,$J,358.3,18869,0)
 +144     ;;=R87.811^^62^750^8
 +145     ;;^UTILITY(U,$J,358.3,18869,1,0)
 +146     ;;=^358.31IA^4^2
 +147     ;;^UTILITY(U,$J,358.3,18869,1,3,0)
 +148     ;;=3^Vaginal HPV
 +149     ;;^UTILITY(U,$J,358.3,18869,1,4,0)
 +150     ;;=4^R87.811
 +151     ;;^UTILITY(U,$J,358.3,18869,2)
 +152     ;;=^5019687
 +153     ;;^UTILITY(U,$J,358.3,18870,0)
 +154     ;;=D28.1^^62^750^2
 +155     ;;^UTILITY(U,$J,358.3,18870,1,0)
 +156     ;;=^358.31IA^4^2
 +157     ;;^UTILITY(U,$J,358.3,18870,1,3,0)
 +158     ;;=3^Benign Neop,Vagina
 +159     ;;^UTILITY(U,$J,358.3,18870,1,4,0)
 +160     ;;=4^D28.1
 +161     ;;^UTILITY(U,$J,358.3,18870,2)
 +162     ;;=^267649
 +163     ;;^UTILITY(U,$J,358.3,18871,0)
 +164     ;;=N99.3^^62^750^9
 +165     ;;^UTILITY(U,$J,358.3,18871,1,0)
 +166     ;;=^358.31IA^4^2
 +167     ;;^UTILITY(U,$J,358.3,18871,1,3,0)
 +168     ;;=3^Vaginal Vault Prolapse
 +169     ;;^UTILITY(U,$J,358.3,18871,1,4,0)
 +170     ;;=4^N99.3
 +171     ;;^UTILITY(U,$J,358.3,18871,2)
 +172     ;;=^270500
 +173     ;;^UTILITY(U,$J,358.3,18872,0)
 +174     ;;=N89.3^^62^750^6
 +175     ;;^UTILITY(U,$J,358.3,18872,1,0)
 +176     ;;=^358.31IA^4^2
 +177     ;;^UTILITY(U,$J,358.3,18872,1,3,0)
 +178     ;;=3^VAIN
 +179     ;;^UTILITY(U,$J,358.3,18872,1,4,0)
 +180     ;;=4^N89.3
 +181     ;;^UTILITY(U,$J,358.3,18872,2)
 +182     ;;=^5015887
 +183     ;;^UTILITY(U,$J,358.3,18873,0)
 +184     ;;=N76.4^^62^751^1
 +185     ;;^UTILITY(U,$J,358.3,18873,1,0)
 +186     ;;=^358.31IA^4^2
 +187     ;;^UTILITY(U,$J,358.3,18873,1,3,0)
 +188     ;;=3^Abscess,Vulva
 +189     ;;^UTILITY(U,$J,358.3,18873,1,4,0)
 +190     ;;=4^N76.4
 +191     ;;^UTILITY(U,$J,358.3,18873,2)
 +192     ;;=^5015830
 +193     ;;^UTILITY(U,$J,358.3,18874,0)
 +194     ;;=N90.5^^62^751^2
 +195     ;;^UTILITY(U,$J,358.3,18874,1,0)
 +196     ;;=^358.31IA^4^2
 +197     ;;^UTILITY(U,$J,358.3,18874,1,3,0)
 +198     ;;=3^Atrophic Vulvitis
 +199     ;;^UTILITY(U,$J,358.3,18874,1,4,0)
 +200     ;;=4^N90.5
 +201     ;;^UTILITY(U,$J,358.3,18874,2)
 +202     ;;=^270550
 +203     ;;^UTILITY(U,$J,358.3,18875,0)
 +204     ;;=N75.1^^62^751^3
 +205     ;;^UTILITY(U,$J,358.3,18875,1,0)
 +206     ;;=^358.31IA^4^2
 +207     ;;^UTILITY(U,$J,358.3,18875,1,3,0)
 +208     ;;=3^Bartholin Abscess
 +209     ;;^UTILITY(U,$J,358.3,18875,1,4,0)
 +210     ;;=4^N75.1
 +211     ;;^UTILITY(U,$J,358.3,18875,2)
 +212     ;;=^5015823
 +213     ;;^UTILITY(U,$J,358.3,18876,0)
 +214     ;;=N75.0^^62^751^4
 +215     ;;^UTILITY(U,$J,358.3,18876,1,0)
 +216     ;;=^358.31IA^4^2
 +217     ;;^UTILITY(U,$J,358.3,18876,1,3,0)
 +218     ;;=3^Bartholin Cyst
 +219     ;;^UTILITY(U,$J,358.3,18876,1,4,0)
 +220     ;;=4^N75.0
 +221     ;;^UTILITY(U,$J,358.3,18876,2)
 +222     ;;=^5015822
 +223     ;;^UTILITY(U,$J,358.3,18877,0)
 +224     ;;=A63.0^^62^751^6
 +225     ;;^UTILITY(U,$J,358.3,18877,1,0)
 +226     ;;=^358.31IA^4^2
 +227     ;;^UTILITY(U,$J,358.3,18877,1,3,0)
 +228     ;;=3^Condyloma
 +229     ;;^UTILITY(U,$J,358.3,18877,1,4,0)
 +230     ;;=4^A63.0
 +231     ;;^UTILITY(U,$J,358.3,18877,2)
 +232     ;;=^5000360
 +233     ;;^UTILITY(U,$J,358.3,18878,0)
 +234     ;;=N90.7^^62^751^7
 +235     ;;^UTILITY(U,$J,358.3,18878,1,0)
 +236     ;;=^358.31IA^4^2
 +237     ;;^UTILITY(U,$J,358.3,18878,1,3,0)
 +238     ;;=3^Cyst,Vulvar
 +239     ;;^UTILITY(U,$J,358.3,18878,1,4,0)
 +240     ;;=4^N90.7
 +241     ;;^UTILITY(U,$J,358.3,18878,2)
 +242     ;;=^5015896
 +243     ;;^UTILITY(U,$J,358.3,18879,0)
 +244     ;;=N90.4^^62^751^8
 +245     ;;^UTILITY(U,$J,358.3,18879,1,0)
 +246     ;;=^358.31IA^4^2
 +247     ;;^UTILITY(U,$J,358.3,18879,1,3,0)
 +248     ;;=3^Dystrophy Vulvar/Lichen Sclerosus
 +249     ;;^UTILITY(U,$J,358.3,18879,1,4,0)
 +250     ;;=4^N90.4
 +251     ;;^UTILITY(U,$J,358.3,18879,2)
 +252     ;;=^5015894
 +253     ;;^UTILITY(U,$J,358.3,18880,0)
 +254     ;;=L90.0^^62^751^9
 +255     ;;^UTILITY(U,$J,358.3,18880,1,0)
 +256     ;;=^358.31IA^4^2
 +257     ;;^UTILITY(U,$J,358.3,18880,1,3,0)
 +258     ;;=3^Lichen Sclerosus,et Atrophicus
 +259     ;;^UTILITY(U,$J,358.3,18880,1,4,0)
 +260     ;;=4^L90.0
 +261     ;;^UTILITY(U,$J,358.3,18880,2)
 +262     ;;=^70699
 +263     ;;^UTILITY(U,$J,358.3,18881,0)
 +264     ;;=B08.1^^62^751^10
 +265     ;;^UTILITY(U,$J,358.3,18881,1,0)
 +266     ;;=^358.31IA^4^2
 +267     ;;^UTILITY(U,$J,358.3,18881,1,3,0)
 +268     ;;=3^Molluscum Contagiosum
 +269     ;;^UTILITY(U,$J,358.3,18881,1,4,0)
 +270     ;;=4^B08.1
 +271     ;;^UTILITY(U,$J,358.3,18881,2)
 +272     ;;=^78675
 +273     ;;^UTILITY(U,$J,358.3,18882,0)
 +274     ;;=D28.0^^62^751^5
 +275     ;;^UTILITY(U,$J,358.3,18882,1,0)
 +276     ;;=^358.31IA^4^2
 +277     ;;^UTILITY(U,$J,358.3,18882,1,3,0)
 +278     ;;=3^Benign Neop,Vulva
 +279     ;;^UTILITY(U,$J,358.3,18882,1,4,0)
 +280     ;;=4^D28.0
 +281     ;;^UTILITY(U,$J,358.3,18882,2)
 +282     ;;=^267650
 +283     ;;^UTILITY(U,$J,358.3,18883,0)
 +284     ;;=L29.2^^62^751^11
 +285     ;;^UTILITY(U,$J,358.3,18883,1,0)
 +286     ;;=^358.31IA^4^2
 +287     ;;^UTILITY(U,$J,358.3,18883,1,3,0)
 +288     ;;=3^Pruritus,Vulvae
 +289     ;;^UTILITY(U,$J,358.3,18883,1,4,0)
 +290     ;;=4^L29.2
 +291     ;;^UTILITY(U,$J,358.3,18883,2)
 +292     ;;=^100075
 +293     ;;^UTILITY(U,$J,358.3,18884,0)
 +294     ;;=N76.6^^62^751^12
 +295     ;;^UTILITY(U,$J,358.3,18884,1,0)
 +296     ;;=^358.31IA^4^2
 +297     ;;^UTILITY(U,$J,358.3,18884,1,3,0)
 +298     ;;=3^Ulcer,Vulva
 +299     ;;^UTILITY(U,$J,358.3,18884,1,4,0)
 +300     ;;=4^N76.6
 +301     ;;^UTILITY(U,$J,358.3,18884,2)
 +302     ;;=^270477
 +303     ;;^UTILITY(U,$J,358.3,18885,0)
 +304     ;;=N90.0^^62^751^13
 +305     ;;^UTILITY(U,$J,358.3,18885,1,0)
 +306     ;;=^358.31IA^4^2
 +307     ;;^UTILITY(U,$J,358.3,18885,1,3,0)
 +308     ;;=3^VIN 1
 +309     ;;^UTILITY(U,$J,358.3,18885,1,4,0)
 +310     ;;=4^N90.0
 +311     ;;^UTILITY(U,$J,358.3,18885,2)
 +312     ;;=^5015891
 +313     ;;^UTILITY(U,$J,358.3,18886,0)
 +314     ;;=N90.1^^62^751^14
 +315     ;;^UTILITY(U,$J,358.3,18886,1,0)
 +316     ;;=^358.31IA^4^2
 +317     ;;^UTILITY(U,$J,358.3,18886,1,3,0)
 +318     ;;=3^VIN 2
 +319     ;;^UTILITY(U,$J,358.3,18886,1,4,0)
 +320     ;;=4^N90.1
 +321     ;;^UTILITY(U,$J,358.3,18886,2)
 +322     ;;=^5015892
 +323     ;;^UTILITY(U,$J,358.3,18887,0)
 +324     ;;=D07.1^^62^751^15
 +325     ;;^UTILITY(U,$J,358.3,18887,1,0)
 +326     ;;=^358.31IA^4^2
 +327     ;;^UTILITY(U,$J,358.3,18887,1,3,0)
 +328     ;;=3^VIN 3
 +329     ;;^UTILITY(U,$J,358.3,18887,1,4,0)
 +330     ;;=4^D07.1
 +331     ;;^UTILITY(U,$J,358.3,18887,2)
 +332     ;;=^5001943
 +333     ;;^UTILITY(U,$J,358.3,18888,0)
 +334     ;;=Z90.710^^62^752^2
 +335     ;;^UTILITY(U,$J,358.3,18888,1,0)
 +336     ;;=^358.31IA^4^2
 +337     ;;^UTILITY(U,$J,358.3,18888,1,3,0)
 +338     ;;=3^Acquired Absense of Cervix & Uterus
 +339     ;;^UTILITY(U,$J,358.3,18888,1,4,0)
 +340     ;;=4^Z90.710
 +341     ;;^UTILITY(U,$J,358.3,18888,2)
 +342     ;;=^5063591
 +343     ;;^UTILITY(U,$J,358.3,18889,0)
 +344     ;;=Z90.711^^62^752^1
 +345     ;;^UTILITY(U,$J,358.3,18889,1,0)
 +346     ;;=^358.31IA^4^2
 +347     ;;^UTILITY(U,$J,358.3,18889,1,3,0)
 +348     ;;=3^Acquired Absence of Uterus w/ Remaining Cervical Stump
 +349     ;;^UTILITY(U,$J,358.3,18889,1,4,0)
 +350     ;;=4^Z90.711
 +351     ;;^UTILITY(U,$J,358.3,18889,2)
 +352     ;;=^5063592
 +353     ;;^UTILITY(U,$J,358.3,18890,0)
 +354     ;;=N80.0^^62^752^3
 +355     ;;^UTILITY(U,$J,358.3,18890,1,0)
 +356     ;;=^358.31IA^4^2
 +357     ;;^UTILITY(U,$J,358.3,18890,1,3,0)
 +358     ;;=3^Adenomyosis
 +359     ;;^UTILITY(U,$J,358.3,18890,1,4,0)
 +360     ;;=4^N80.0
 +361     ;;^UTILITY(U,$J,358.3,18890,2)
 +362     ;;=^270482
 +363     ;;^UTILITY(U,$J,358.3,18891,0)
 +364     ;;=N85.6^^62^752^4
 +365     ;;^UTILITY(U,$J,358.3,18891,1,0)
 +366     ;;=^358.31IA^4^2
 +367     ;;^UTILITY(U,$J,358.3,18891,1,3,0)
 +368     ;;=3^Asherman's Syndrome
 +369     ;;^UTILITY(U,$J,358.3,18891,1,4,0)
 +370     ;;=4^N85.6
 +371     ;;^UTILITY(U,$J,358.3,18891,2)
 +372     ;;=^270523
 +373     ;;^UTILITY(U,$J,358.3,18892,0)
 +374     ;;=C54.1^^62^752^5
 +375     ;;^UTILITY(U,$J,358.3,18892,1,0)
 +376     ;;=^358.31IA^4^2
 +377     ;;^UTILITY(U,$J,358.3,18892,1,3,0)
 +378     ;;=3^CA,Endometrium
 +379     ;;^UTILITY(U,$J,358.3,18892,1,4,0)
 +380     ;;=4^C54.1
 +381     ;;^UTILITY(U,$J,358.3,18892,2)
 +382     ;;=^5001206
 +383     ;;^UTILITY(U,$J,358.3,18893,0)
 +384     ;;=C54.3^^62^752^6
 +385     ;;^UTILITY(U,$J,358.3,18893,1,0)
 +386     ;;=^358.31IA^4^2
 +387     ;;^UTILITY(U,$J,358.3,18893,1,3,0)
 +388     ;;=3^CA,Fundus Uteri
 +389     ;;^UTILITY(U,$J,358.3,18893,1,4,0)
 +390     ;;=4^C54.3
 +391     ;;^UTILITY(U,$J,358.3,18893,2)
 +392     ;;=^5001208
 +393     ;;^UTILITY(U,$J,358.3,18894,0)
 +394     ;;=C54.2^^62^752^7
 +395     ;;^UTILITY(U,$J,358.3,18894,1,0)
 +396     ;;=^358.31IA^4^2
 +397     ;;^UTILITY(U,$J,358.3,18894,1,3,0)
 +398     ;;=3^CA,Myometrium
 +399     ;;^UTILITY(U,$J,358.3,18894,1,4,0)
 +400     ;;=4^C54.2
 +401     ;;^UTILITY(U,$J,358.3,18894,2)
 +402     ;;=^5001207
 +403     ;;^UTILITY(U,$J,358.3,18895,0)
 +404     ;;=C54.8^^62^752^8
 +405     ;;^UTILITY(U,$J,358.3,18895,1,0)
 +406     ;;=^358.31IA^4^2
 +407     ;;^UTILITY(U,$J,358.3,18895,1,3,0)
 +408     ;;=3^CA,Overlapping Sites of Uterus
 +409     ;;^UTILITY(U,$J,358.3,18895,1,4,0)
 +410     ;;=4^C54.8
 +411     ;;^UTILITY(U,$J,358.3,18895,2)
 +412     ;;=^5001209
 +413     ;;^UTILITY(U,$J,358.3,18896,0)
 +414     ;;=C54.9^^62^752^9
 +415     ;;^UTILITY(U,$J,358.3,18896,1,0)
 +416     ;;=^358.31IA^4^2
 +417     ;;^UTILITY(U,$J,358.3,18896,1,3,0)
 +418     ;;=3^CA,Uterus,Unspec Site
 +419     ;;^UTILITY(U,$J,358.3,18896,1,4,0)
 +420     ;;=4^C54.9
 +421     ;;^UTILITY(U,$J,358.3,18896,2)
 +422     ;;=^5001210
 +423     ;;^UTILITY(U,$J,358.3,18897,0)
 +424     ;;=N85.02^^62^752^10
 +425     ;;^UTILITY(U,$J,358.3,18897,1,0)
 +426     ;;=^358.31IA^4^2
 +427     ;;^UTILITY(U,$J,358.3,18897,1,3,0)
 +428     ;;=3^Endomet Hyperpla w/ Atyp
 +429     ;;^UTILITY(U,$J,358.3,18897,1,4,0)
 +430     ;;=4^N85.02
 +431     ;;^UTILITY(U,$J,358.3,18897,2)
 +432     ;;=^338265
 +433     ;;^UTILITY(U,$J,358.3,18898,0)
 +434     ;;=N85.00^^62^752^12
 +435     ;;^UTILITY(U,$J,358.3,18898,1,0)
 +436     ;;=^358.31IA^4^2
 +437     ;;^UTILITY(U,$J,358.3,18898,1,3,0)
 +438     ;;=3^Endometrial Hyperplasia,Unspec
 +439     ;;^UTILITY(U,$J,358.3,18898,1,4,0)
 +440     ;;=4^N85.00
 +441     ;;^UTILITY(U,$J,358.3,18898,2)
 +442     ;;=^331542
 +443     ;;^UTILITY(U,$J,358.3,18899,0)
 +444     ;;=N85.2^^62^752^13
 +445     ;;^UTILITY(U,$J,358.3,18899,1,0)
 +446     ;;=^358.31IA^4^2
 +447     ;;^UTILITY(U,$J,358.3,18899,1,3,0)
 +448     ;;=3^Enlarged Uterus
 +449     ;;^UTILITY(U,$J,358.3,18899,1,4,0)
 +450     ;;=4^N85.2
 +451     ;;^UTILITY(U,$J,358.3,18899,2)
 +452     ;;=^270521
 +453     ;;^UTILITY(U,$J,358.3,18900,0)
 +454     ;;=D25.9^^62^752^14
 +455     ;;^UTILITY(U,$J,358.3,18900,1,0)
 +456     ;;=^358.31IA^4^2
 +457     ;;^UTILITY(U,$J,358.3,18900,1,3,0)
 +458     ;;=3^Fibroid Uterus
 +459     ;;^UTILITY(U,$J,358.3,18900,1,4,0)
 +460     ;;=4^D25.9
 +461     ;;^UTILITY(U,$J,358.3,18900,2)
 +462     ;;=^5002081
 +463     ;;^UTILITY(U,$J,358.3,18901,0)
 +464     ;;=Z85.42^^62^752^15
 +465     ;;^UTILITY(U,$J,358.3,18901,1,0)
 +466     ;;=^358.31IA^4^2
 +467     ;;^UTILITY(U,$J,358.3,18901,1,3,0)
 +468     ;;=3^Hx of Uterine Cancer
 +469     ;;^UTILITY(U,$J,358.3,18901,1,4,0)
 +470     ;;=4^Z85.42
 +471     ;;^UTILITY(U,$J,358.3,18901,2)
 +472     ;;=^5063419
 +473     ;;^UTILITY(U,$J,358.3,18902,0)
 +474     ;;=N81.2^^62^752^16
 +475     ;;^UTILITY(U,$J,358.3,18902,1,0)
 +476     ;;=^358.31IA^4^2
 +477     ;;^UTILITY(U,$J,358.3,18902,1,3,0)
 +478     ;;=3^Incomplete Uterovaginal Prolapse
 +479     ;;^UTILITY(U,$J,358.3,18902,1,4,0)
 +480     ;;=4^N81.2
 +481     ;;^UTILITY(U,$J,358.3,18902,2)
 +482     ;;=^5015839
 +483     ;;^UTILITY(U,$J,358.3,18903,0)
 +484     ;;=N85.01^^62^752^11
 +485     ;;^UTILITY(U,$J,358.3,18903,1,0)
 +486     ;;=^358.31IA^4^2
 +487     ;;^UTILITY(U,$J,358.3,18903,1,3,0)
 +488     ;;=3^Endomet Hyperpla w/o Atyp
 +489     ;;^UTILITY(U,$J,358.3,18903,1,4,0)
 +490     ;;=4^N85.01
 +491     ;;^UTILITY(U,$J,358.3,18903,2)
 +492     ;;=^338264
 +493     ;;^UTILITY(U,$J,358.3,18904,0)
 +494     ;;=D25.0^^62^752^17
 +495     ;;^UTILITY(U,$J,358.3,18904,1,0)
 +496     ;;=^358.31IA^4^2
 +497     ;;^UTILITY(U,$J,358.3,18904,1,3,0)
 +498     ;;=3^Submucous Fibroid
 +499     ;;^UTILITY(U,$J,358.3,18904,1,4,0)
 +500     ;;=4^D25.0
 +501     ;;^UTILITY(U,$J,358.3,18904,2)
 +502     ;;=^267640
 +503     ;;^UTILITY(U,$J,358.3,18905,0)
 +504     ;;=N93.9^^62^752^18
 +505     ;;^UTILITY(U,$J,358.3,18905,1,0)
 +506     ;;=^358.31IA^4^2
 +507     ;;^UTILITY(U,$J,358.3,18905,1,3,0)
 +508     ;;=3^Uterine Bleeding
 +509     ;;^UTILITY(U,$J,358.3,18905,1,4,0)
 +510     ;;=4^N93.9
 +511     ;;^UTILITY(U,$J,358.3,18905,2)
 +512     ;;=^5015916
 +513     ;;^UTILITY(U,$J,358.3,18906,0)
 +514     ;;=N85.4^^62^752^19
 +515     ;;^UTILITY(U,$J,358.3,18906,1,0)
 +516     ;;=^358.31IA^4^2
 +517     ;;^UTILITY(U,$J,358.3,18906,1,3,0)
 +518     ;;=3^Uterine Malposition
 +519     ;;^UTILITY(U,$J,358.3,18906,1,4,0)
 +520     ;;=4^N85.4
 +521     ;;^UTILITY(U,$J,358.3,18906,2)
 +522     ;;=^270525
 +523     ;;^UTILITY(U,$J,358.3,18907,0)
 +524     ;;=N84.0^^62^752^20
 +525     ;;^UTILITY(U,$J,358.3,18907,1,0)
 +526     ;;=^358.31IA^4^2
 +527     ;;^UTILITY(U,$J,358.3,18907,1,3,0)
 +528     ;;=3^Uterine Polyps
 +529     ;;^UTILITY(U,$J,358.3,18907,1,4,0)
 +530     ;;=4^N84.0
 +531     ;;^UTILITY(U,$J,358.3,18907,2)
 +532     ;;=^270517
 +533     ;;^UTILITY(U,$J,358.3,18908,0)
 +534     ;;=N81.4^^62^752^21
 +535     ;;^UTILITY(U,$J,358.3,18908,1,0)
 +536     ;;=^358.31IA^4^2
 +537     ;;^UTILITY(U,$J,358.3,18908,1,3,0)
 +538     ;;=3^Uterovaginal Prolapse,Unspec
 +539     ;;^UTILITY(U,$J,358.3,18908,1,4,0)
 +540     ;;=4^N81.4
 +541     ;;^UTILITY(U,$J,358.3,18908,2)
 +542     ;;=^5015841
 +543     ;;^UTILITY(U,$J,358.3,18909,0)
 +544     ;;=O02.0^^62^753^3
 +545     ;;^UTILITY(U,$J,358.3,18909,1,0)
 +546     ;;=^358.31IA^4^2
 +547     ;;^UTILITY(U,$J,358.3,18909,1,3,0)
 +548     ;;=3^Blighted Ovum
 +549     ;;^UTILITY(U,$J,358.3,18909,1,4,0)
 +550     ;;=4^O02.0
 +551     ;;^UTILITY(U,$J,358.3,18909,2)
 +552     ;;=^5015978
 +553     ;;^UTILITY(U,$J,358.3,18910,0)
 +554     ;;=O03.9^^62^753^4
 +555     ;;^UTILITY(U,$J,358.3,18910,1,0)
 +556     ;;=^358.31IA^4^2
 +557     ;;^UTILITY(U,$J,358.3,18910,1,3,0)
 +558     ;;=3^Complete SAB
 +559     ;;^UTILITY(U,$J,358.3,18910,1,4,0)
 +560     ;;=4^O03.9
 +561     ;;^UTILITY(U,$J,358.3,18910,2)
 +562     ;;=^5016007
 +563     ;;^UTILITY(U,$J,358.3,18911,0)
 +564     ;;=O01.9^^62^753^5
 +565     ;;^UTILITY(U,$J,358.3,18911,1,0)
 +566     ;;=^358.31IA^4^2
 +567     ;;^UTILITY(U,$J,358.3,18911,1,3,0)
 +568     ;;=3^Hydatidiform Mole,Unspec
 +569     ;;^UTILITY(U,$J,358.3,18911,1,4,0)
 +570     ;;=4^O01.9
 +571     ;;^UTILITY(U,$J,358.3,18911,2)
 +572     ;;=^5015977
 +573     ;;^UTILITY(U,$J,358.3,18912,0)
 +574     ;;=O02.81^^62^753^6
 +575     ;;^UTILITY(U,$J,358.3,18912,1,0)
 +576     ;;=^358.31IA^4^2
 +577     ;;^UTILITY(U,$J,358.3,18912,1,3,0)
 +578     ;;=3^Inapp Chg HCG in Early Pregnancy
 +579     ;;^UTILITY(U,$J,358.3,18912,1,4,0)
 +580     ;;=4^O02.81
 +581     ;;^UTILITY(U,$J,358.3,18912,2)
 +582     ;;=^340611
 +583     ;;^UTILITY(U,$J,358.3,18913,0)
 +584     ;;=O03.4^^62^753^7
 +585     ;;^UTILITY(U,$J,358.3,18913,1,0)
 +586     ;;=^358.31IA^4^2
 +587     ;;^UTILITY(U,$J,358.3,18913,1,3,0)
 +588     ;;=3^Incomplete SAB
 +589     ;;^UTILITY(U,$J,358.3,18913,1,4,0)
 +590     ;;=4^O03.4
 +591     ;;^UTILITY(U,$J,358.3,18913,2)
 +592     ;;=^5015993
 +593     ;;^UTILITY(U,$J,358.3,18914,0)
 +594     ;;=O02.1^^62^753^8
 +595     ;;^UTILITY(U,$J,358.3,18914,1,0)
 +596     ;;=^358.31IA^4^2
 +597     ;;^UTILITY(U,$J,358.3,18914,1,3,0)
 +598     ;;=3^Missed Abortion
 +599     ;;^UTILITY(U,$J,358.3,18914,1,4,0)
 +600     ;;=4^O02.1
 +601     ;;^UTILITY(U,$J,358.3,18914,2)
 +602     ;;=^1259
 +603     ;;^UTILITY(U,$J,358.3,18915,0)
 +604     ;;=N96.^^62^753^13
 +605     ;;^UTILITY(U,$J,358.3,18915,1,0)
 +606     ;;=^358.31IA^4^2
 +607     ;;^UTILITY(U,$J,358.3,18915,1,3,0)
 +608     ;;=3^Recurrent Pregnancy Loss
 +609     ;;^UTILITY(U,$J,358.3,18915,1,4,0)
 +610     ;;=4^N96.
 +611     ;;^UTILITY(U,$J,358.3,18915,2)
 +612     ;;=^5015930
 +613     ;;^UTILITY(U,$J,358.3,18916,0)
 +614     ;;=O72.2^^62^753^14
 +615     ;;^UTILITY(U,$J,358.3,18916,1,0)
 +616     ;;=^358.31IA^4^2
 +617     ;;^UTILITY(U,$J,358.3,18916,1,3,0)
 +618     ;;=3^Retained Products
 +619     ;;^UTILITY(U,$J,358.3,18916,1,4,0)
 +620     ;;=4^O72.2
 +621     ;;^UTILITY(U,$J,358.3,18916,2)
 +622     ;;=^271578
 +623     ;;^UTILITY(U,$J,358.3,18917,0)
 +624     ;;=O20.0^^62^753^15
 +625     ;;^UTILITY(U,$J,358.3,18917,1,0)
 +626     ;;=^358.31IA^4^2
 +627     ;;^UTILITY(U,$J,358.3,18917,1,3,0)
 +628     ;;=3^Threatened Abortion
 +629     ;;^UTILITY(U,$J,358.3,18917,1,4,0)
 +630     ;;=4^O20.0
 +631     ;;^UTILITY(U,$J,358.3,18917,2)
 +632     ;;=^1287
 +633     ;;^UTILITY(U,$J,358.3,18918,0)
 +634     ;;=O00.00^^62^753^2
 +635     ;;^UTILITY(U,$J,358.3,18918,1,0)
 +636     ;;=^358.31IA^4^2
 +637     ;;^UTILITY(U,$J,358.3,18918,1,3,0)
 +638     ;;=3^Abdominal Pregnancy w/o IUP
 +639     ;;^UTILITY(U,$J,358.3,18918,1,4,0)
 +640     ;;=4^O00.00
 +641     ;;^UTILITY(U,$J,358.3,18918,2)
 +642     ;;=^328603
 +643     ;;^UTILITY(U,$J,358.3,18919,0)
 +644     ;;=O00.01^^62^753^1
 +645     ;;^UTILITY(U,$J,358.3,18919,1,0)
 +646     ;;=^358.31IA^4^2
 +647     ;;^UTILITY(U,$J,358.3,18919,1,3,0)
 +648     ;;=3^Abdominal Pregnancy w/ IUP
 +649     ;;^UTILITY(U,$J,358.3,18919,1,4,0)
 +650     ;;=4^O00.01
 +651     ;;^UTILITY(U,$J,358.3,18919,2)
 +652     ;;=^328532
 +653     ;;^UTILITY(U,$J,358.3,18920,0)
 +654     ;;=O00.211^^62^753^11
 +655     ;;^UTILITY(U,$J,358.3,18920,1,0)
 +656     ;;=^358.31IA^4^2
 +657     ;;^UTILITY(U,$J,358.3,18920,1,3,0)
 +658     ;;=3^Ovarian Pregnancy,Right w/ Intrauterine Pregnancy
 +659     ;;^UTILITY(U,$J,358.3,18920,1,4,0)
 +660     ;;=4^O00.211
 +661     ;;^UTILITY(U,$J,358.3,18920,2)
 +662     ;;=^5151545
 +663     ;;^UTILITY(U,$J,358.3,18921,0)
 +664     ;;=O00.212^^62^753^9
 +665     ;;^UTILITY(U,$J,358.3,18921,1,0)
 +666     ;;=^358.31IA^4^2
 +667     ;;^UTILITY(U,$J,358.3,18921,1,3,0)
 +668     ;;=3^Ovarian Pregnancy,Left w/ Intrauterine Pregnancy
 +669     ;;^UTILITY(U,$J,358.3,18921,1,4,0)
 +670     ;;=4^O00.212
 +671     ;;^UTILITY(U,$J,358.3,18921,2)
 +672     ;;=^5151546
 +673     ;;^UTILITY(U,$J,358.3,18922,0)
 +674     ;;=O00.201^^62^753^12
 +675     ;;^UTILITY(U,$J,358.3,18922,1,0)
 +676     ;;=^358.31IA^4^2
 +677     ;;^UTILITY(U,$J,358.3,18922,1,3,0)
 +678     ;;=3^Ovarian Pregnancy,Right w/o Intrauterine Pregnancy
 +679     ;;^UTILITY(U,$J,358.3,18922,1,4,0)
 +680     ;;=4^O00.201
 +681     ;;^UTILITY(U,$J,358.3,18922,2)
 +682     ;;=^5151542
 +683     ;;^UTILITY(U,$J,358.3,18923,0)
 +684     ;;=O00.202^^62^753^10
 +685     ;;^UTILITY(U,$J,358.3,18923,1,0)
 +686     ;;=^358.31IA^4^2
 +687     ;;^UTILITY(U,$J,358.3,18923,1,3,0)
 +688     ;;=3^Ovarian Pregnancy,Left w/o Intrauterine Pregnancy
 +689     ;;^UTILITY(U,$J,358.3,18923,1,4,0)
 +690     ;;=4^O00.202
 +691     ;;^UTILITY(U,$J,358.3,18923,2)
 +692     ;;=^5151543
 +693     ;;^UTILITY(U,$J,358.3,18924,0)
 +694     ;;=O00.111^^62^753^18
 +695     ;;^UTILITY(U,$J,358.3,18924,1,0)
 +696     ;;=^358.31IA^4^2
 +697     ;;^UTILITY(U,$J,358.3,18924,1,3,0)
 +698     ;;=3^Tubal Pregnancy,Right w/ Intrauterine Pregnancy
 +699     ;;^UTILITY(U,$J,358.3,18924,1,4,0)
 +700     ;;=4^O00.111
 +701     ;;^UTILITY(U,$J,358.3,18924,2)
 +702     ;;=^5151539
 +703     ;;^UTILITY(U,$J,358.3,18925,0)
 +704     ;;=O00.112^^62^753^16
 +705     ;;^UTILITY(U,$J,358.3,18925,1,0)
 +706     ;;=^358.31IA^4^2
 +707     ;;^UTILITY(U,$J,358.3,18925,1,3,0)
 +708     ;;=3^Tubal Pregnancy,Left w/ Intrauterine Pregnancy
 +709     ;;^UTILITY(U,$J,358.3,18925,1,4,0)
 +710     ;;=4^O00.112
 +711     ;;^UTILITY(U,$J,358.3,18925,2)
 +712     ;;=^5151540
 +713     ;;^UTILITY(U,$J,358.3,18926,0)
 +714     ;;=O00.101^^62^753^19
 +715     ;;^UTILITY(U,$J,358.3,18926,1,0)
 +716     ;;=^358.31IA^4^2