IBDEI07D ; ; 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,17923,0)
;;=57155^^60^717^41^^^^1
;;^UTILITY(U,$J,358.3,17923,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17923,1,2,0)
;;=2^57155
;;^UTILITY(U,$J,358.3,17923,1,3,0)
;;=3^INSERT UTERI TANDEMS/OVOIDS FOR BRACHYTHERAPY
;;^UTILITY(U,$J,358.3,17924,0)
;;=58110^^60^717^25^^^^1
;;^UTILITY(U,$J,358.3,17924,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17924,1,2,0)
;;=2^58110
;;^UTILITY(U,$J,358.3,17924,1,3,0)
;;=3^ENDO BX PERF IN CONJUN W/COLPOSCOPY
;;^UTILITY(U,$J,358.3,17925,0)
;;=58120^^60^717^18^^^^1
;;^UTILITY(U,$J,358.3,17925,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17925,1,2,0)
;;=2^58120
;;^UTILITY(U,$J,358.3,17925,1,3,0)
;;=3^D&C-DX AND/OR THERAPEUTIC (NONOBS)
;;^UTILITY(U,$J,358.3,17926,0)
;;=57460^^60^717^6^^^^1
;;^UTILITY(U,$J,358.3,17926,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17926,1,2,0)
;;=2^57460
;;^UTILITY(U,$J,358.3,17926,1,3,0)
;;=3^BX OF CERVIX W/SCOPE LEEP
;;^UTILITY(U,$J,358.3,17927,0)
;;=57461^^60^717^14^^^^1
;;^UTILITY(U,$J,358.3,17927,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17927,1,2,0)
;;=2^57461
;;^UTILITY(U,$J,358.3,17927,1,3,0)
;;=3^CONIZATION OF CERVIX W/ SCOPE LEEP
;;^UTILITY(U,$J,358.3,17928,0)
;;=57522^^60^717^13^^^^1
;;^UTILITY(U,$J,358.3,17928,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17928,1,2,0)
;;=2^57522
;;^UTILITY(U,$J,358.3,17928,1,3,0)
;;=3^CONIZATION OF CERVIX
;;^UTILITY(U,$J,358.3,17929,0)
;;=S0613^^60^717^2^^^^1
;;^UTILITY(U,$J,358.3,17929,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17929,1,2,0)
;;=2^S0613
;;^UTILITY(U,$J,358.3,17929,1,3,0)
;;=3^ANNUAL BREAST EXAM
;;^UTILITY(U,$J,358.3,17930,0)
;;=G0328^^60^717^32^^^^1
;;^UTILITY(U,$J,358.3,17930,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17930,1,2,0)
;;=2^G0328
;;^UTILITY(U,$J,358.3,17930,1,3,0)
;;=3^FECAL BLOOD SCRN IMMUNOASSAY
;;^UTILITY(U,$J,358.3,17931,0)
;;=11981^^60^717^39^^^^1
;;^UTILITY(U,$J,358.3,17931,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17931,1,2,0)
;;=2^11981
;;^UTILITY(U,$J,358.3,17931,1,3,0)
;;=3^INSERT NON-BIODEGRAD DRUG DELIVERY IMPLANT
;;^UTILITY(U,$J,358.3,17932,0)
;;=11982^^60^717^49^^^^1
;;^UTILITY(U,$J,358.3,17932,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17932,1,2,0)
;;=2^11982
;;^UTILITY(U,$J,358.3,17932,1,3,0)
;;=3^REMOVE NON-BIODEGRAD DRUG DELIVERY IMPLANT
;;^UTILITY(U,$J,358.3,17933,0)
;;=11983^^60^717^51^^^^1
;;^UTILITY(U,$J,358.3,17933,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17933,1,2,0)
;;=2^11983
;;^UTILITY(U,$J,358.3,17933,1,3,0)
;;=3^REMOVE/RE-INSERT NON-BIO DRUG DEL IMPLANT
;;^UTILITY(U,$J,358.3,17934,0)
;;=11976^^60^717^50^^^^1
;;^UTILITY(U,$J,358.3,17934,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17934,1,2,0)
;;=2^11976
;;^UTILITY(U,$J,358.3,17934,1,3,0)
;;=3^REMOVE OF CONTRACEPTIVE CAP
;;^UTILITY(U,$J,358.3,17935,0)
;;=57170^^60^717^33^^^^1
;;^UTILITY(U,$J,358.3,17935,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17935,1,2,0)
;;=2^57170
;;^UTILITY(U,$J,358.3,17935,1,3,0)
;;=3^FITTING OF DIAPHRAGM/CAP
;;^UTILITY(U,$J,358.3,17936,0)
;;=J7307^^60^717^26^^^^1
;;^UTILITY(U,$J,358.3,17936,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17936,1,2,0)
;;=2^J7307
;;^UTILITY(U,$J,358.3,17936,1,3,0)
;;=3^ETONOGESTREL IMPLANT W/ SUPPLIES
;;^UTILITY(U,$J,358.3,17937,0)
;;=S0612^^60^717^3^^^^1
;;^UTILITY(U,$J,358.3,17937,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17937,1,2,0)
;;=2^S0612
;;^UTILITY(U,$J,358.3,17937,1,3,0)
;;=3^ANNUAL GYNECOLOGICAL EXAM
;;^UTILITY(U,$J,358.3,17938,0)
;;=57455^^60^717^5^^^^1
;;^UTILITY(U,$J,358.3,17938,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17938,1,2,0)
;;=2^57455
;;^UTILITY(U,$J,358.3,17938,1,3,0)
;;=3^BX OF CERVIX W/SCOPE
;;^UTILITY(U,$J,358.3,17939,0)
;;=57100^^60^717^8^^^^1
;;^UTILITY(U,$J,358.3,17939,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17939,1,2,0)
;;=2^57100
;;^UTILITY(U,$J,358.3,17939,1,3,0)
;;=3^BX OF VAGINA
;;^UTILITY(U,$J,358.3,17940,0)
;;=56605^^60^717^9^^^^1
;;^UTILITY(U,$J,358.3,17940,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17940,1,2,0)
;;=2^56605
;;^UTILITY(U,$J,358.3,17940,1,3,0)
;;=3^BX OF VULVA/PERINEUM
;;^UTILITY(U,$J,358.3,17941,0)
;;=56606^^60^717^10^^^^1
;;^UTILITY(U,$J,358.3,17941,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17941,1,2,0)
;;=2^56606
;;^UTILITY(U,$J,358.3,17941,1,3,0)
;;=3^BX OF VULVA/PERINEUM,ADD-ON
;;^UTILITY(U,$J,358.3,17942,0)
;;=57456^^60^717^16^^^^1
;;^UTILITY(U,$J,358.3,17942,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17942,1,2,0)
;;=2^57456
;;^UTILITY(U,$J,358.3,17942,1,3,0)
;;=3^CURETTAGE W/ SCOPE,ENDOCERV
;;^UTILITY(U,$J,358.3,17943,0)
;;=51729^^60^717^17^^^^1
;;^UTILITY(U,$J,358.3,17943,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17943,1,2,0)
;;=2^51729
;;^UTILITY(U,$J,358.3,17943,1,3,0)
;;=3^CYSTOMETROGRAM W/ VP & UP
;;^UTILITY(U,$J,358.3,17944,0)
;;=57800^^60^717^22^^^^1
;;^UTILITY(U,$J,358.3,17944,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17944,1,2,0)
;;=2^57800
;;^UTILITY(U,$J,358.3,17944,1,3,0)
;;=3^DILATION OF CERVICAL CANAL
;;^UTILITY(U,$J,358.3,17945,0)
;;=51741^^60^717^24^^^^1
;;^UTILITY(U,$J,358.3,17945,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17945,1,2,0)
;;=2^51741
;;^UTILITY(U,$J,358.3,17945,1,3,0)
;;=3^ELECTRO-UROFLOWMETRY,FIRST
;;^UTILITY(U,$J,358.3,17946,0)
;;=57452^^60^717^27^^^^1
;;^UTILITY(U,$J,358.3,17946,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17946,1,2,0)
;;=2^57452
;;^UTILITY(U,$J,358.3,17946,1,3,0)
;;=3^EXAM OF CERVIX W/SCOPE
;;^UTILITY(U,$J,358.3,17947,0)
;;=57420^^60^717^28^^^^1
;;^UTILITY(U,$J,358.3,17947,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17947,1,2,0)
;;=2^57420
;;^UTILITY(U,$J,358.3,17947,1,3,0)
;;=3^EXAM OF VAGINA W/SCOPE
;;^UTILITY(U,$J,358.3,17948,0)
;;=51701^^60^717^37^^^^1
;;^UTILITY(U,$J,358.3,17948,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17948,1,2,0)
;;=2^51701
;;^UTILITY(U,$J,358.3,17948,1,3,0)
;;=3^INSERT BLADDER CATHETER
;;^UTILITY(U,$J,358.3,17949,0)
;;=51797^^60^717^42^^^^1
;;^UTILITY(U,$J,358.3,17949,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17949,1,2,0)
;;=2^51797
;;^UTILITY(U,$J,358.3,17949,1,3,0)
;;=3^INTRAABDOMINAL PRESSURE TEST
;;^UTILITY(U,$J,358.3,17950,0)
;;=51798^^60^717^54^^^^1
;;^UTILITY(U,$J,358.3,17950,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17950,1,2,0)
;;=2^51798
;;^UTILITY(U,$J,358.3,17950,1,3,0)
;;=3^US URINE CAPACITY MEASURE
;;^UTILITY(U,$J,358.3,17951,0)
;;=17000^^60^717^43^^^^1
;;^UTILITY(U,$J,358.3,17951,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17951,1,2,0)
;;=2^17000
;;^UTILITY(U,$J,358.3,17951,1,3,0)
;;=3^LIQUID N2,1ST LESION
;;^UTILITY(U,$J,358.3,17952,0)
;;=17003^^60^717^44^^^^1
;;^UTILITY(U,$J,358.3,17952,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17952,1,2,0)
;;=2^17003
;;^UTILITY(U,$J,358.3,17952,1,3,0)
;;=3^LIQUID N2,2-14 LESIONS
;;^UTILITY(U,$J,358.3,17953,0)
;;=51784^^60^717^1^^^^1
;;^UTILITY(U,$J,358.3,17953,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17953,1,2,0)
;;=2^51784
;;^UTILITY(U,$J,358.3,17953,1,3,0)
;;=3^ANAL/URINARY MUSCLE STUDY
;;^UTILITY(U,$J,358.3,17954,0)
;;=74740^^60^717^34^^^^1
;;^UTILITY(U,$J,358.3,17954,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17954,1,2,0)
;;=2^74740
;;^UTILITY(U,$J,358.3,17954,1,3,0)
;;=3^HYSTEROSALPINGOGRAM
;;^UTILITY(U,$J,358.3,17955,0)
;;=58340^^60^717^12^^^^1
;;^UTILITY(U,$J,358.3,17955,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17955,1,2,0)
;;=2^58340
;;^UTILITY(U,$J,358.3,17955,1,3,0)
;;=3^CATH FOR SIS OR HYSTEROSALPINGOGRAPHY
;;^UTILITY(U,$J,358.3,17956,0)
;;=58345^^60^717^52^^^^1
;;^UTILITY(U,$J,358.3,17956,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17956,1,2,0)
;;=2^58345
;;^UTILITY(U,$J,358.3,17956,1,3,0)
;;=3^TRANSCERVICAL INTRO OF FALLOPIAN TUBE CATH
;;^UTILITY(U,$J,358.3,17957,0)
;;=57511^^60^717^15^^^^1
;;^UTILITY(U,$J,358.3,17957,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17957,1,2,0)
;;=2^57511
;;^UTILITY(U,$J,358.3,17957,1,3,0)
;;=3^CRYOCAUTERY OF CERVIX
;;^UTILITY(U,$J,358.3,17958,0)
;;=17110^^60^717^21^^^^1
;;^UTILITY(U,$J,358.3,17958,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17958,1,2,0)
;;=2^17110
;;^UTILITY(U,$J,358.3,17958,1,3,0)
;;=3^DESTRUCT B9 LESION,UP TO 14 LESIONS
;;^UTILITY(U,$J,358.3,17959,0)
;;=56420^^60^717^23^^^^1
;;^UTILITY(U,$J,358.3,17959,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17959,1,2,0)
;;=2^56420
;;^UTILITY(U,$J,358.3,17959,1,3,0)
;;=3^DRAINAGE OF GLAND ABSCESS
;;^UTILITY(U,$J,358.3,17960,0)
;;=56405^^60^717^35^^^^1
;;^UTILITY(U,$J,358.3,17960,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17960,1,2,0)
;;=2^56405
;;^UTILITY(U,$J,358.3,17960,1,3,0)
;;=3^I&D OF VULVA/PERINEUM
;;^UTILITY(U,$J,358.3,17961,0)
;;=11980^^60^717^36^^^^1
;;^UTILITY(U,$J,358.3,17961,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17961,1,2,0)
;;=2^11980
;;^UTILITY(U,$J,358.3,17961,1,3,0)
;;=3^IMPLANT HORMONE PELLET(S)
;;^UTILITY(U,$J,358.3,17962,0)
;;=55920^^60^717^45^^^^1
;;^UTILITY(U,$J,358.3,17962,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17962,1,2,0)
;;=2^55920
;;^UTILITY(U,$J,358.3,17962,1,3,0)
;;=3^NEEDLE PLACEMENT FOR RT,PELVIC
;;^UTILITY(U,$J,358.3,17963,0)
;;=J3420^^60^718^1^^^^1
;;^UTILITY(U,$J,358.3,17963,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17963,1,2,0)
;;=2^J3420
;;^UTILITY(U,$J,358.3,17963,1,3,0)
;;=3^B12 INJ UP TO 1,000MCG
;;^UTILITY(U,$J,358.3,17964,0)
;;=J0800^^60^718^3^^^^1
;;^UTILITY(U,$J,358.3,17964,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17964,1,2,0)
;;=2^J0800
;;^UTILITY(U,$J,358.3,17964,1,3,0)
;;=3^CORTISONE INJ UP TO 40U
;;^UTILITY(U,$J,358.3,17965,0)
;;=J9202^^60^718^22^^^^1
;;^UTILITY(U,$J,358.3,17965,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17965,1,2,0)
;;=2^J9202
;;^UTILITY(U,$J,358.3,17965,1,3,0)
;;=3^ZOLADEX 3.6MG
;;^UTILITY(U,$J,358.3,17966,0)
;;=J1642^^60^718^10^^^^1
;;^UTILITY(U,$J,358.3,17966,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17966,1,2,0)
;;=2^J1642
;;^UTILITY(U,$J,358.3,17966,1,3,0)
;;=3^HEP LOCK FLUSH PER 10U
;;^UTILITY(U,$J,358.3,17967,0)
;;=J7307^^60^718^4^^^^1
;;^UTILITY(U,$J,358.3,17967,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17967,1,2,0)
;;=2^J7307
;;^UTILITY(U,$J,358.3,17967,1,3,0)
;;=3^ETONOGESTREL IMPLANT W/ SUPPLIES
;;^UTILITY(U,$J,358.3,17968,0)
;;=J1950^^60^718^16^^^^1
;;^UTILITY(U,$J,358.3,17968,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17968,1,2,0)
;;=2^J1950
;;^UTILITY(U,$J,358.3,17968,1,3,0)
;;=3^LEUPROLIDE ACETATE 3.75MG
;;^UTILITY(U,$J,358.3,17969,0)
;;=J1050^^60^718^18^^^^1
;;^UTILITY(U,$J,358.3,17969,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17969,1,2,0)
;;=2^J1050
;;^UTILITY(U,$J,358.3,17969,1,3,0)
;;=3^MEDROXYPROGESTERONE 1MG
;;^UTILITY(U,$J,358.3,17970,0)
;;=90649^^60^718^12^^^^1
;;^UTILITY(U,$J,358.3,17970,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17970,1,2,0)
;;=2^90649
;;^UTILITY(U,$J,358.3,17970,1,3,0)
;;=3^HPV VACCINE 3 DOSE
;;^UTILITY(U,$J,358.3,17971,0)
;;=90656^^60^718^9^^^^1
;;^UTILITY(U,$J,358.3,17971,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17971,1,2,0)
;;=2^90656
;;^UTILITY(U,$J,358.3,17971,1,3,0)
;;=3^FLU,TRIVALENT,SPLIT,NO PRESERVATIVES
;;^UTILITY(U,$J,358.3,17972,0)
;;=90658^^60^718^8^^^^1
;;^UTILITY(U,$J,358.3,17972,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17972,1,2,0)
;;=2^90658
;;^UTILITY(U,$J,358.3,17972,1,3,0)
;;=3^FLU,TRIVALENT,SPLIT VACCINE
;;^UTILITY(U,$J,358.3,17973,0)
;;=90732^^60^718^19^^^^1
;;^UTILITY(U,$J,358.3,17973,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17973,1,2,0)
;;=2^90732
;;^UTILITY(U,$J,358.3,17973,1,3,0)
;;=3^PNEUMOCOCCAL POLYSACCHARIDE VACCINE (PPSV23)
;;^UTILITY(U,$J,358.3,17974,0)
;;=90715^^60^718^21^^^^1
;;^UTILITY(U,$J,358.3,17974,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17974,1,2,0)
;;=2^90715
;;^UTILITY(U,$J,358.3,17974,1,3,0)
;;=3^TDAP VACCINE
;;^UTILITY(U,$J,358.3,17975,0)
;;=90686^^60^718^7^^^^1
;;^UTILITY(U,$J,358.3,17975,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17975,1,2,0)
;;=2^90686
;;^UTILITY(U,$J,358.3,17975,1,3,0)
;;=3^FLU,QUADRIVALENT,PRESERV-FREE VACCINE
;;^UTILITY(U,$J,358.3,17976,0)
;;=J0696^^60^718^2^^^^1
;;^UTILITY(U,$J,358.3,17976,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17976,1,2,0)
;;=2^J0696
;;^UTILITY(U,$J,358.3,17976,1,3,0)
;;=3^CEFTRIAXONE SODIUM 250MG
;;^UTILITY(U,$J,358.3,17977,0)
;;=90746^^60^718^11^^^^1
;;^UTILITY(U,$J,358.3,17977,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17977,1,2,0)
;;=2^90746
;;^UTILITY(U,$J,358.3,17977,1,3,0)
;;=3^HEPATITIS B VACCINE
;;^UTILITY(U,$J,358.3,17978,0)
;;=J7300^^60^718^13^^^^1
;;^UTILITY(U,$J,358.3,17978,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17978,1,2,0)
;;=2^J7300
;;^UTILITY(U,$J,358.3,17978,1,3,0)
;;=3^INTRAUTERINE COPPER CONTRACEPTIVE
;;^UTILITY(U,$J,358.3,17979,0)
;;=J1885^^60^718^14^^^^1
;;^UTILITY(U,$J,358.3,17979,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17979,1,2,0)
;;=2^J1885
;;^UTILITY(U,$J,358.3,17979,1,3,0)
;;=3^KETOROLAC TROMETHAMINE 15MG
;;^UTILITY(U,$J,358.3,17980,0)
;;=J9218^^60^718^15^^^^1
;;^UTILITY(U,$J,358.3,17980,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17980,1,2,0)
;;=2^J9218
;;^UTILITY(U,$J,358.3,17980,1,3,0)
;;=3^LEUPROLIDE ACETATE 1MG
;;^UTILITY(U,$J,358.3,17981,0)
;;=J7301^^60^718^17^^^^1
;;^UTILITY(U,$J,358.3,17981,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17981,1,2,0)
;;=2^J7301
;;^UTILITY(U,$J,358.3,17981,1,3,0)
;;=3^LEVONORGESTREL IU CONTRACEPTIVE 13.5MG
;;^UTILITY(U,$J,358.3,17982,0)
;;=90670^^60^718^20^^^^1
;;^UTILITY(U,$J,358.3,17982,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17982,1,2,0)
;;=2^90670
;;^UTILITY(U,$J,358.3,17982,1,3,0)
;;=3^PREVNAR (PCV13)
;;^UTILITY(U,$J,358.3,17983,0)
;;=90688^^60^718^6^^^^1
;;^UTILITY(U,$J,358.3,17983,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17983,1,2,0)
;;=2^90688
;;^UTILITY(U,$J,358.3,17983,1,3,0)
;;=3^FLU,QUADRIVALENT,0.5 ML,IM
;;^UTILITY(U,$J,358.3,17984,0)
;;=90662^^60^718^5^^^^1
;;^UTILITY(U,$J,358.3,17984,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17984,1,2,0)
;;=2^90662
;;^UTILITY(U,$J,358.3,17984,1,3,0)
;;=3^FLU VACCINE HIGH DOSE SYRINGE (FLUZONE)
;;^UTILITY(U,$J,358.3,17985,0)
;;=96372^^60^719^1^^^^1
;;^UTILITY(U,$J,358.3,17985,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17985,1,2,0)
;;=2^96372
;;^UTILITY(U,$J,358.3,17985,1,3,0)
;;=3^THER/PHOPH/DIAG INJECTION
;;^UTILITY(U,$J,358.3,17986,0)
;;=90471^^60^719^2^^^^1
;;^UTILITY(U,$J,358.3,17986,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17986,1,2,0)
;;=2^90471
;;^UTILITY(U,$J,358.3,17986,1,3,0)
;;=3^IMMUNIZATION ADMIN,SINGLE
;;^UTILITY(U,$J,358.3,17987,0)
;;=90472^^60^719^3^^^^1
;;^UTILITY(U,$J,358.3,17987,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17987,1,2,0)
;;=2^90472
;;^UTILITY(U,$J,358.3,17987,1,3,0)
;;=3^IMMUNIZATION ADMIN,EA ADDL
;;^UTILITY(U,$J,358.3,17988,0)
;;=10120^^60^720^1^^^^1
;;^UTILITY(U,$J,358.3,17988,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17988,1,2,0)
;;=2^10120
;;^UTILITY(U,$J,358.3,17988,1,3,0)
;;=3^INCISION & REMOVE FB
;;^UTILITY(U,$J,358.3,17989,0)
;;=81002^^60^721^2^^^^1
;;^UTILITY(U,$J,358.3,17989,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17989,1,2,0)
;;=2^81002
;;^UTILITY(U,$J,358.3,17989,1,3,0)
;;=3^URINALYSIS BY DIP STICK
;;^UTILITY(U,$J,358.3,17990,0)
;;=82948^^60^721^1^^^^1
;;^UTILITY(U,$J,358.3,17990,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17990,1,2,0)
;;=2^82948
;;^UTILITY(U,$J,358.3,17990,1,3,0)
;;=3^FINGERSTICK, GLUCOSE
;;^UTILITY(U,$J,358.3,17991,0)
;;=81025^^60^721^3^^^^1
;;^UTILITY(U,$J,358.3,17991,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17991,1,2,0)
;;=2^81025
;;^UTILITY(U,$J,358.3,17991,1,3,0)
;;=3^URINE PREGNANCY TEST BY DIPSTICK
;;^UTILITY(U,$J,358.3,17992,0)
;;=J1642^^60^722^1^^^^1
;;^UTILITY(U,$J,358.3,17992,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17992,1,2,0)
;;=2^J1642
;;^UTILITY(U,$J,358.3,17992,1,3,0)
;;=3^HEP LOCK FLUSH PER 10U
;;^UTILITY(U,$J,358.3,17993,0)
;;=A4670^^60^723^1^^^^1
;;^UTILITY(U,$J,358.3,17993,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17993,1,2,0)
;;=2^A4670
;;^UTILITY(U,$J,358.3,17993,1,3,0)
;;=3^AUTOMATIC BP MONITOR,DIAL
;;^UTILITY(U,$J,358.3,17994,0)
;;=3511F^^60^723^3^^^^1
;;^UTILITY(U,$J,358.3,17994,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17994,1,2,0)
;;=2^3511F
;;^UTILITY(U,$J,358.3,17994,1,3,0)
;;=3^CHLMYD/GONRH TSTS DOCD DONE
;;^UTILITY(U,$J,358.3,17995,0)
;;=S4989^^60^723^4^^^^1
;;^UTILITY(U,$J,358.3,17995,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17995,1,2,0)
;;=2^S4989
;;^UTILITY(U,$J,358.3,17995,1,3,0)
;;=3^CONTRACEPT IUD
;;^UTILITY(U,$J,358.3,17996,0)
;;=94760^^60^723^5^^^^1
;;^UTILITY(U,$J,358.3,17996,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17996,1,2,0)
;;=2^94760
;;^UTILITY(U,$J,358.3,17996,1,3,0)
;;=3^MEASURE BLOOD OXYGEN LEVEL
;;^UTILITY(U,$J,358.3,17997,0)
;;=99000^^60^723^7^^^^1
;;^UTILITY(U,$J,358.3,17997,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17997,1,2,0)
;;=2^99000
;;^UTILITY(U,$J,358.3,17997,1,3,0)
;;=3^SPECIMEN HANDLING OFFICE-LAB
;;^UTILITY(U,$J,358.3,17998,0)
;;=2010F^^60^723^8^^^^1
;;^UTILITY(U,$J,358.3,17998,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17998,1,2,0)
;;=2^2010F
;;^UTILITY(U,$J,358.3,17998,1,3,0)
;;=3^VITAL SIGNS RECORDED
;;^UTILITY(U,$J,358.3,17999,0)
;;=2001F^^60^723^9^^^^1
;;^UTILITY(U,$J,358.3,17999,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,17999,1,2,0)
;;=2^2001F
;;^UTILITY(U,$J,358.3,17999,1,3,0)
;;=3^WEIGHT RECORD
;;^UTILITY(U,$J,358.3,18000,0)
;;=99450^^60^723^2^^^^1
;;^UTILITY(U,$J,358.3,18000,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18000,1,2,0)
;;=2^99450
;;^UTILITY(U,$J,358.3,18000,1,3,0)
;;=3^BASIC LIFE/DISABILITY EXAM
;;^UTILITY(U,$J,358.3,18001,0)
;;=99075^^60^723^6^^^^1
;;^UTILITY(U,$J,358.3,18001,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18001,1,2,0)
;;=2^99075
;;^UTILITY(U,$J,358.3,18001,1,3,0)
;;=3^MEDICAL TESTIMONY
;;^UTILITY(U,$J,358.3,18002,0)
;;=59200^^60^724^1^^^^1
;;^UTILITY(U,$J,358.3,18002,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18002,1,2,0)
;;=2^59200
;;^UTILITY(U,$J,358.3,18002,1,3,0)
;;=3^INSERT CERVICAL DILATOR
;;^UTILITY(U,$J,358.3,18003,0)
;;=59400^^60^724^2^^^^1
;;^UTILITY(U,$J,358.3,18003,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18003,1,2,0)
;;=2^59400
;;^UTILITY(U,$J,358.3,18003,1,3,0)
;;=3^OBSTETRICAL CARE
;;^UTILITY(U,$J,358.3,18004,0)
;;=59425^^60^724^3^^^^1
;;^UTILITY(U,$J,358.3,18004,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18004,1,2,0)
;;=2^59425
;;^UTILITY(U,$J,358.3,18004,1,3,0)
;;=3^ANTEPARTUM CARE ONLY-4-6 VISITS
;;^UTILITY(U,$J,358.3,18005,0)
;;=59426^^60^724^4^^^^1
;;^UTILITY(U,$J,358.3,18005,1,0)
;;=^358.31IA^3^2
;;^UTILITY(U,$J,358.3,18005,1,2,0)
;;=2^59426
;;^UTILITY(U,$J,358.3,18005,1,3,0)
;;=3^ANTEPARTUM CARE ONLY 7+ VISITS
;;^UTILITY(U,$J,358.3,18006,0)
;;=59430^^60^724^5^^^^1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBDEI07D 19789 printed Sep 23, 2025@19:19:04 Page 2
IBDEI07D ; ; 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,17923,0)
+2 ;;=57155^^60^717^41^^^^1
+3 ;;^UTILITY(U,$J,358.3,17923,1,0)
+4 ;;=^358.31IA^3^2
+5 ;;^UTILITY(U,$J,358.3,17923,1,2,0)
+6 ;;=2^57155
+7 ;;^UTILITY(U,$J,358.3,17923,1,3,0)
+8 ;;=3^INSERT UTERI TANDEMS/OVOIDS FOR BRACHYTHERAPY
+9 ;;^UTILITY(U,$J,358.3,17924,0)
+10 ;;=58110^^60^717^25^^^^1
+11 ;;^UTILITY(U,$J,358.3,17924,1,0)
+12 ;;=^358.31IA^3^2
+13 ;;^UTILITY(U,$J,358.3,17924,1,2,0)
+14 ;;=2^58110
+15 ;;^UTILITY(U,$J,358.3,17924,1,3,0)
+16 ;;=3^ENDO BX PERF IN CONJUN W/COLPOSCOPY
+17 ;;^UTILITY(U,$J,358.3,17925,0)
+18 ;;=58120^^60^717^18^^^^1
+19 ;;^UTILITY(U,$J,358.3,17925,1,0)
+20 ;;=^358.31IA^3^2
+21 ;;^UTILITY(U,$J,358.3,17925,1,2,0)
+22 ;;=2^58120
+23 ;;^UTILITY(U,$J,358.3,17925,1,3,0)
+24 ;;=3^D&C-DX AND/OR THERAPEUTIC (NONOBS)
+25 ;;^UTILITY(U,$J,358.3,17926,0)
+26 ;;=57460^^60^717^6^^^^1
+27 ;;^UTILITY(U,$J,358.3,17926,1,0)
+28 ;;=^358.31IA^3^2
+29 ;;^UTILITY(U,$J,358.3,17926,1,2,0)
+30 ;;=2^57460
+31 ;;^UTILITY(U,$J,358.3,17926,1,3,0)
+32 ;;=3^BX OF CERVIX W/SCOPE LEEP
+33 ;;^UTILITY(U,$J,358.3,17927,0)
+34 ;;=57461^^60^717^14^^^^1
+35 ;;^UTILITY(U,$J,358.3,17927,1,0)
+36 ;;=^358.31IA^3^2
+37 ;;^UTILITY(U,$J,358.3,17927,1,2,0)
+38 ;;=2^57461
+39 ;;^UTILITY(U,$J,358.3,17927,1,3,0)
+40 ;;=3^CONIZATION OF CERVIX W/ SCOPE LEEP
+41 ;;^UTILITY(U,$J,358.3,17928,0)
+42 ;;=57522^^60^717^13^^^^1
+43 ;;^UTILITY(U,$J,358.3,17928,1,0)
+44 ;;=^358.31IA^3^2
+45 ;;^UTILITY(U,$J,358.3,17928,1,2,0)
+46 ;;=2^57522
+47 ;;^UTILITY(U,$J,358.3,17928,1,3,0)
+48 ;;=3^CONIZATION OF CERVIX
+49 ;;^UTILITY(U,$J,358.3,17929,0)
+50 ;;=S0613^^60^717^2^^^^1
+51 ;;^UTILITY(U,$J,358.3,17929,1,0)
+52 ;;=^358.31IA^3^2
+53 ;;^UTILITY(U,$J,358.3,17929,1,2,0)
+54 ;;=2^S0613
+55 ;;^UTILITY(U,$J,358.3,17929,1,3,0)
+56 ;;=3^ANNUAL BREAST EXAM
+57 ;;^UTILITY(U,$J,358.3,17930,0)
+58 ;;=G0328^^60^717^32^^^^1
+59 ;;^UTILITY(U,$J,358.3,17930,1,0)
+60 ;;=^358.31IA^3^2
+61 ;;^UTILITY(U,$J,358.3,17930,1,2,0)
+62 ;;=2^G0328
+63 ;;^UTILITY(U,$J,358.3,17930,1,3,0)
+64 ;;=3^FECAL BLOOD SCRN IMMUNOASSAY
+65 ;;^UTILITY(U,$J,358.3,17931,0)
+66 ;;=11981^^60^717^39^^^^1
+67 ;;^UTILITY(U,$J,358.3,17931,1,0)
+68 ;;=^358.31IA^3^2
+69 ;;^UTILITY(U,$J,358.3,17931,1,2,0)
+70 ;;=2^11981
+71 ;;^UTILITY(U,$J,358.3,17931,1,3,0)
+72 ;;=3^INSERT NON-BIODEGRAD DRUG DELIVERY IMPLANT
+73 ;;^UTILITY(U,$J,358.3,17932,0)
+74 ;;=11982^^60^717^49^^^^1
+75 ;;^UTILITY(U,$J,358.3,17932,1,0)
+76 ;;=^358.31IA^3^2
+77 ;;^UTILITY(U,$J,358.3,17932,1,2,0)
+78 ;;=2^11982
+79 ;;^UTILITY(U,$J,358.3,17932,1,3,0)
+80 ;;=3^REMOVE NON-BIODEGRAD DRUG DELIVERY IMPLANT
+81 ;;^UTILITY(U,$J,358.3,17933,0)
+82 ;;=11983^^60^717^51^^^^1
+83 ;;^UTILITY(U,$J,358.3,17933,1,0)
+84 ;;=^358.31IA^3^2
+85 ;;^UTILITY(U,$J,358.3,17933,1,2,0)
+86 ;;=2^11983
+87 ;;^UTILITY(U,$J,358.3,17933,1,3,0)
+88 ;;=3^REMOVE/RE-INSERT NON-BIO DRUG DEL IMPLANT
+89 ;;^UTILITY(U,$J,358.3,17934,0)
+90 ;;=11976^^60^717^50^^^^1
+91 ;;^UTILITY(U,$J,358.3,17934,1,0)
+92 ;;=^358.31IA^3^2
+93 ;;^UTILITY(U,$J,358.3,17934,1,2,0)
+94 ;;=2^11976
+95 ;;^UTILITY(U,$J,358.3,17934,1,3,0)
+96 ;;=3^REMOVE OF CONTRACEPTIVE CAP
+97 ;;^UTILITY(U,$J,358.3,17935,0)
+98 ;;=57170^^60^717^33^^^^1
+99 ;;^UTILITY(U,$J,358.3,17935,1,0)
+100 ;;=^358.31IA^3^2
+101 ;;^UTILITY(U,$J,358.3,17935,1,2,0)
+102 ;;=2^57170
+103 ;;^UTILITY(U,$J,358.3,17935,1,3,0)
+104 ;;=3^FITTING OF DIAPHRAGM/CAP
+105 ;;^UTILITY(U,$J,358.3,17936,0)
+106 ;;=J7307^^60^717^26^^^^1
+107 ;;^UTILITY(U,$J,358.3,17936,1,0)
+108 ;;=^358.31IA^3^2
+109 ;;^UTILITY(U,$J,358.3,17936,1,2,0)
+110 ;;=2^J7307
+111 ;;^UTILITY(U,$J,358.3,17936,1,3,0)
+112 ;;=3^ETONOGESTREL IMPLANT W/ SUPPLIES
+113 ;;^UTILITY(U,$J,358.3,17937,0)
+114 ;;=S0612^^60^717^3^^^^1
+115 ;;^UTILITY(U,$J,358.3,17937,1,0)
+116 ;;=^358.31IA^3^2
+117 ;;^UTILITY(U,$J,358.3,17937,1,2,0)
+118 ;;=2^S0612
+119 ;;^UTILITY(U,$J,358.3,17937,1,3,0)
+120 ;;=3^ANNUAL GYNECOLOGICAL EXAM
+121 ;;^UTILITY(U,$J,358.3,17938,0)
+122 ;;=57455^^60^717^5^^^^1
+123 ;;^UTILITY(U,$J,358.3,17938,1,0)
+124 ;;=^358.31IA^3^2
+125 ;;^UTILITY(U,$J,358.3,17938,1,2,0)
+126 ;;=2^57455
+127 ;;^UTILITY(U,$J,358.3,17938,1,3,0)
+128 ;;=3^BX OF CERVIX W/SCOPE
+129 ;;^UTILITY(U,$J,358.3,17939,0)
+130 ;;=57100^^60^717^8^^^^1
+131 ;;^UTILITY(U,$J,358.3,17939,1,0)
+132 ;;=^358.31IA^3^2
+133 ;;^UTILITY(U,$J,358.3,17939,1,2,0)
+134 ;;=2^57100
+135 ;;^UTILITY(U,$J,358.3,17939,1,3,0)
+136 ;;=3^BX OF VAGINA
+137 ;;^UTILITY(U,$J,358.3,17940,0)
+138 ;;=56605^^60^717^9^^^^1
+139 ;;^UTILITY(U,$J,358.3,17940,1,0)
+140 ;;=^358.31IA^3^2
+141 ;;^UTILITY(U,$J,358.3,17940,1,2,0)
+142 ;;=2^56605
+143 ;;^UTILITY(U,$J,358.3,17940,1,3,0)
+144 ;;=3^BX OF VULVA/PERINEUM
+145 ;;^UTILITY(U,$J,358.3,17941,0)
+146 ;;=56606^^60^717^10^^^^1
+147 ;;^UTILITY(U,$J,358.3,17941,1,0)
+148 ;;=^358.31IA^3^2
+149 ;;^UTILITY(U,$J,358.3,17941,1,2,0)
+150 ;;=2^56606
+151 ;;^UTILITY(U,$J,358.3,17941,1,3,0)
+152 ;;=3^BX OF VULVA/PERINEUM,ADD-ON
+153 ;;^UTILITY(U,$J,358.3,17942,0)
+154 ;;=57456^^60^717^16^^^^1
+155 ;;^UTILITY(U,$J,358.3,17942,1,0)
+156 ;;=^358.31IA^3^2
+157 ;;^UTILITY(U,$J,358.3,17942,1,2,0)
+158 ;;=2^57456
+159 ;;^UTILITY(U,$J,358.3,17942,1,3,0)
+160 ;;=3^CURETTAGE W/ SCOPE,ENDOCERV
+161 ;;^UTILITY(U,$J,358.3,17943,0)
+162 ;;=51729^^60^717^17^^^^1
+163 ;;^UTILITY(U,$J,358.3,17943,1,0)
+164 ;;=^358.31IA^3^2
+165 ;;^UTILITY(U,$J,358.3,17943,1,2,0)
+166 ;;=2^51729
+167 ;;^UTILITY(U,$J,358.3,17943,1,3,0)
+168 ;;=3^CYSTOMETROGRAM W/ VP & UP
+169 ;;^UTILITY(U,$J,358.3,17944,0)
+170 ;;=57800^^60^717^22^^^^1
+171 ;;^UTILITY(U,$J,358.3,17944,1,0)
+172 ;;=^358.31IA^3^2
+173 ;;^UTILITY(U,$J,358.3,17944,1,2,0)
+174 ;;=2^57800
+175 ;;^UTILITY(U,$J,358.3,17944,1,3,0)
+176 ;;=3^DILATION OF CERVICAL CANAL
+177 ;;^UTILITY(U,$J,358.3,17945,0)
+178 ;;=51741^^60^717^24^^^^1
+179 ;;^UTILITY(U,$J,358.3,17945,1,0)
+180 ;;=^358.31IA^3^2
+181 ;;^UTILITY(U,$J,358.3,17945,1,2,0)
+182 ;;=2^51741
+183 ;;^UTILITY(U,$J,358.3,17945,1,3,0)
+184 ;;=3^ELECTRO-UROFLOWMETRY,FIRST
+185 ;;^UTILITY(U,$J,358.3,17946,0)
+186 ;;=57452^^60^717^27^^^^1
+187 ;;^UTILITY(U,$J,358.3,17946,1,0)
+188 ;;=^358.31IA^3^2
+189 ;;^UTILITY(U,$J,358.3,17946,1,2,0)
+190 ;;=2^57452
+191 ;;^UTILITY(U,$J,358.3,17946,1,3,0)
+192 ;;=3^EXAM OF CERVIX W/SCOPE
+193 ;;^UTILITY(U,$J,358.3,17947,0)
+194 ;;=57420^^60^717^28^^^^1
+195 ;;^UTILITY(U,$J,358.3,17947,1,0)
+196 ;;=^358.31IA^3^2
+197 ;;^UTILITY(U,$J,358.3,17947,1,2,0)
+198 ;;=2^57420
+199 ;;^UTILITY(U,$J,358.3,17947,1,3,0)
+200 ;;=3^EXAM OF VAGINA W/SCOPE
+201 ;;^UTILITY(U,$J,358.3,17948,0)
+202 ;;=51701^^60^717^37^^^^1
+203 ;;^UTILITY(U,$J,358.3,17948,1,0)
+204 ;;=^358.31IA^3^2
+205 ;;^UTILITY(U,$J,358.3,17948,1,2,0)
+206 ;;=2^51701
+207 ;;^UTILITY(U,$J,358.3,17948,1,3,0)
+208 ;;=3^INSERT BLADDER CATHETER
+209 ;;^UTILITY(U,$J,358.3,17949,0)
+210 ;;=51797^^60^717^42^^^^1
+211 ;;^UTILITY(U,$J,358.3,17949,1,0)
+212 ;;=^358.31IA^3^2
+213 ;;^UTILITY(U,$J,358.3,17949,1,2,0)
+214 ;;=2^51797
+215 ;;^UTILITY(U,$J,358.3,17949,1,3,0)
+216 ;;=3^INTRAABDOMINAL PRESSURE TEST
+217 ;;^UTILITY(U,$J,358.3,17950,0)
+218 ;;=51798^^60^717^54^^^^1
+219 ;;^UTILITY(U,$J,358.3,17950,1,0)
+220 ;;=^358.31IA^3^2
+221 ;;^UTILITY(U,$J,358.3,17950,1,2,0)
+222 ;;=2^51798
+223 ;;^UTILITY(U,$J,358.3,17950,1,3,0)
+224 ;;=3^US URINE CAPACITY MEASURE
+225 ;;^UTILITY(U,$J,358.3,17951,0)
+226 ;;=17000^^60^717^43^^^^1
+227 ;;^UTILITY(U,$J,358.3,17951,1,0)
+228 ;;=^358.31IA^3^2
+229 ;;^UTILITY(U,$J,358.3,17951,1,2,0)
+230 ;;=2^17000
+231 ;;^UTILITY(U,$J,358.3,17951,1,3,0)
+232 ;;=3^LIQUID N2,1ST LESION
+233 ;;^UTILITY(U,$J,358.3,17952,0)
+234 ;;=17003^^60^717^44^^^^1
+235 ;;^UTILITY(U,$J,358.3,17952,1,0)
+236 ;;=^358.31IA^3^2
+237 ;;^UTILITY(U,$J,358.3,17952,1,2,0)
+238 ;;=2^17003
+239 ;;^UTILITY(U,$J,358.3,17952,1,3,0)
+240 ;;=3^LIQUID N2,2-14 LESIONS
+241 ;;^UTILITY(U,$J,358.3,17953,0)
+242 ;;=51784^^60^717^1^^^^1
+243 ;;^UTILITY(U,$J,358.3,17953,1,0)
+244 ;;=^358.31IA^3^2
+245 ;;^UTILITY(U,$J,358.3,17953,1,2,0)
+246 ;;=2^51784
+247 ;;^UTILITY(U,$J,358.3,17953,1,3,0)
+248 ;;=3^ANAL/URINARY MUSCLE STUDY
+249 ;;^UTILITY(U,$J,358.3,17954,0)
+250 ;;=74740^^60^717^34^^^^1
+251 ;;^UTILITY(U,$J,358.3,17954,1,0)
+252 ;;=^358.31IA^3^2
+253 ;;^UTILITY(U,$J,358.3,17954,1,2,0)
+254 ;;=2^74740
+255 ;;^UTILITY(U,$J,358.3,17954,1,3,0)
+256 ;;=3^HYSTEROSALPINGOGRAM
+257 ;;^UTILITY(U,$J,358.3,17955,0)
+258 ;;=58340^^60^717^12^^^^1
+259 ;;^UTILITY(U,$J,358.3,17955,1,0)
+260 ;;=^358.31IA^3^2
+261 ;;^UTILITY(U,$J,358.3,17955,1,2,0)
+262 ;;=2^58340
+263 ;;^UTILITY(U,$J,358.3,17955,1,3,0)
+264 ;;=3^CATH FOR SIS OR HYSTEROSALPINGOGRAPHY
+265 ;;^UTILITY(U,$J,358.3,17956,0)
+266 ;;=58345^^60^717^52^^^^1
+267 ;;^UTILITY(U,$J,358.3,17956,1,0)
+268 ;;=^358.31IA^3^2
+269 ;;^UTILITY(U,$J,358.3,17956,1,2,0)
+270 ;;=2^58345
+271 ;;^UTILITY(U,$J,358.3,17956,1,3,0)
+272 ;;=3^TRANSCERVICAL INTRO OF FALLOPIAN TUBE CATH
+273 ;;^UTILITY(U,$J,358.3,17957,0)
+274 ;;=57511^^60^717^15^^^^1
+275 ;;^UTILITY(U,$J,358.3,17957,1,0)
+276 ;;=^358.31IA^3^2
+277 ;;^UTILITY(U,$J,358.3,17957,1,2,0)
+278 ;;=2^57511
+279 ;;^UTILITY(U,$J,358.3,17957,1,3,0)
+280 ;;=3^CRYOCAUTERY OF CERVIX
+281 ;;^UTILITY(U,$J,358.3,17958,0)
+282 ;;=17110^^60^717^21^^^^1
+283 ;;^UTILITY(U,$J,358.3,17958,1,0)
+284 ;;=^358.31IA^3^2
+285 ;;^UTILITY(U,$J,358.3,17958,1,2,0)
+286 ;;=2^17110
+287 ;;^UTILITY(U,$J,358.3,17958,1,3,0)
+288 ;;=3^DESTRUCT B9 LESION,UP TO 14 LESIONS
+289 ;;^UTILITY(U,$J,358.3,17959,0)
+290 ;;=56420^^60^717^23^^^^1
+291 ;;^UTILITY(U,$J,358.3,17959,1,0)
+292 ;;=^358.31IA^3^2
+293 ;;^UTILITY(U,$J,358.3,17959,1,2,0)
+294 ;;=2^56420
+295 ;;^UTILITY(U,$J,358.3,17959,1,3,0)
+296 ;;=3^DRAINAGE OF GLAND ABSCESS
+297 ;;^UTILITY(U,$J,358.3,17960,0)
+298 ;;=56405^^60^717^35^^^^1
+299 ;;^UTILITY(U,$J,358.3,17960,1,0)
+300 ;;=^358.31IA^3^2
+301 ;;^UTILITY(U,$J,358.3,17960,1,2,0)
+302 ;;=2^56405
+303 ;;^UTILITY(U,$J,358.3,17960,1,3,0)
+304 ;;=3^I&D OF VULVA/PERINEUM
+305 ;;^UTILITY(U,$J,358.3,17961,0)
+306 ;;=11980^^60^717^36^^^^1
+307 ;;^UTILITY(U,$J,358.3,17961,1,0)
+308 ;;=^358.31IA^3^2
+309 ;;^UTILITY(U,$J,358.3,17961,1,2,0)
+310 ;;=2^11980
+311 ;;^UTILITY(U,$J,358.3,17961,1,3,0)
+312 ;;=3^IMPLANT HORMONE PELLET(S)
+313 ;;^UTILITY(U,$J,358.3,17962,0)
+314 ;;=55920^^60^717^45^^^^1
+315 ;;^UTILITY(U,$J,358.3,17962,1,0)
+316 ;;=^358.31IA^3^2
+317 ;;^UTILITY(U,$J,358.3,17962,1,2,0)
+318 ;;=2^55920
+319 ;;^UTILITY(U,$J,358.3,17962,1,3,0)
+320 ;;=3^NEEDLE PLACEMENT FOR RT,PELVIC
+321 ;;^UTILITY(U,$J,358.3,17963,0)
+322 ;;=J3420^^60^718^1^^^^1
+323 ;;^UTILITY(U,$J,358.3,17963,1,0)
+324 ;;=^358.31IA^3^2
+325 ;;^UTILITY(U,$J,358.3,17963,1,2,0)
+326 ;;=2^J3420
+327 ;;^UTILITY(U,$J,358.3,17963,1,3,0)
+328 ;;=3^B12 INJ UP TO 1,000MCG
+329 ;;^UTILITY(U,$J,358.3,17964,0)
+330 ;;=J0800^^60^718^3^^^^1
+331 ;;^UTILITY(U,$J,358.3,17964,1,0)
+332 ;;=^358.31IA^3^2
+333 ;;^UTILITY(U,$J,358.3,17964,1,2,0)
+334 ;;=2^J0800
+335 ;;^UTILITY(U,$J,358.3,17964,1,3,0)
+336 ;;=3^CORTISONE INJ UP TO 40U
+337 ;;^UTILITY(U,$J,358.3,17965,0)
+338 ;;=J9202^^60^718^22^^^^1
+339 ;;^UTILITY(U,$J,358.3,17965,1,0)
+340 ;;=^358.31IA^3^2
+341 ;;^UTILITY(U,$J,358.3,17965,1,2,0)
+342 ;;=2^J9202
+343 ;;^UTILITY(U,$J,358.3,17965,1,3,0)
+344 ;;=3^ZOLADEX 3.6MG
+345 ;;^UTILITY(U,$J,358.3,17966,0)
+346 ;;=J1642^^60^718^10^^^^1
+347 ;;^UTILITY(U,$J,358.3,17966,1,0)
+348 ;;=^358.31IA^3^2
+349 ;;^UTILITY(U,$J,358.3,17966,1,2,0)
+350 ;;=2^J1642
+351 ;;^UTILITY(U,$J,358.3,17966,1,3,0)
+352 ;;=3^HEP LOCK FLUSH PER 10U
+353 ;;^UTILITY(U,$J,358.3,17967,0)
+354 ;;=J7307^^60^718^4^^^^1
+355 ;;^UTILITY(U,$J,358.3,17967,1,0)
+356 ;;=^358.31IA^3^2
+357 ;;^UTILITY(U,$J,358.3,17967,1,2,0)
+358 ;;=2^J7307
+359 ;;^UTILITY(U,$J,358.3,17967,1,3,0)
+360 ;;=3^ETONOGESTREL IMPLANT W/ SUPPLIES
+361 ;;^UTILITY(U,$J,358.3,17968,0)
+362 ;;=J1950^^60^718^16^^^^1
+363 ;;^UTILITY(U,$J,358.3,17968,1,0)
+364 ;;=^358.31IA^3^2
+365 ;;^UTILITY(U,$J,358.3,17968,1,2,0)
+366 ;;=2^J1950
+367 ;;^UTILITY(U,$J,358.3,17968,1,3,0)
+368 ;;=3^LEUPROLIDE ACETATE 3.75MG
+369 ;;^UTILITY(U,$J,358.3,17969,0)
+370 ;;=J1050^^60^718^18^^^^1
+371 ;;^UTILITY(U,$J,358.3,17969,1,0)
+372 ;;=^358.31IA^3^2
+373 ;;^UTILITY(U,$J,358.3,17969,1,2,0)
+374 ;;=2^J1050
+375 ;;^UTILITY(U,$J,358.3,17969,1,3,0)
+376 ;;=3^MEDROXYPROGESTERONE 1MG
+377 ;;^UTILITY(U,$J,358.3,17970,0)
+378 ;;=90649^^60^718^12^^^^1
+379 ;;^UTILITY(U,$J,358.3,17970,1,0)
+380 ;;=^358.31IA^3^2
+381 ;;^UTILITY(U,$J,358.3,17970,1,2,0)
+382 ;;=2^90649
+383 ;;^UTILITY(U,$J,358.3,17970,1,3,0)
+384 ;;=3^HPV VACCINE 3 DOSE
+385 ;;^UTILITY(U,$J,358.3,17971,0)
+386 ;;=90656^^60^718^9^^^^1
+387 ;;^UTILITY(U,$J,358.3,17971,1,0)
+388 ;;=^358.31IA^3^2
+389 ;;^UTILITY(U,$J,358.3,17971,1,2,0)
+390 ;;=2^90656
+391 ;;^UTILITY(U,$J,358.3,17971,1,3,0)
+392 ;;=3^FLU,TRIVALENT,SPLIT,NO PRESERVATIVES
+393 ;;^UTILITY(U,$J,358.3,17972,0)
+394 ;;=90658^^60^718^8^^^^1
+395 ;;^UTILITY(U,$J,358.3,17972,1,0)
+396 ;;=^358.31IA^3^2
+397 ;;^UTILITY(U,$J,358.3,17972,1,2,0)
+398 ;;=2^90658
+399 ;;^UTILITY(U,$J,358.3,17972,1,3,0)
+400 ;;=3^FLU,TRIVALENT,SPLIT VACCINE
+401 ;;^UTILITY(U,$J,358.3,17973,0)
+402 ;;=90732^^60^718^19^^^^1
+403 ;;^UTILITY(U,$J,358.3,17973,1,0)
+404 ;;=^358.31IA^3^2
+405 ;;^UTILITY(U,$J,358.3,17973,1,2,0)
+406 ;;=2^90732
+407 ;;^UTILITY(U,$J,358.3,17973,1,3,0)
+408 ;;=3^PNEUMOCOCCAL POLYSACCHARIDE VACCINE (PPSV23)
+409 ;;^UTILITY(U,$J,358.3,17974,0)
+410 ;;=90715^^60^718^21^^^^1
+411 ;;^UTILITY(U,$J,358.3,17974,1,0)
+412 ;;=^358.31IA^3^2
+413 ;;^UTILITY(U,$J,358.3,17974,1,2,0)
+414 ;;=2^90715
+415 ;;^UTILITY(U,$J,358.3,17974,1,3,0)
+416 ;;=3^TDAP VACCINE
+417 ;;^UTILITY(U,$J,358.3,17975,0)
+418 ;;=90686^^60^718^7^^^^1
+419 ;;^UTILITY(U,$J,358.3,17975,1,0)
+420 ;;=^358.31IA^3^2
+421 ;;^UTILITY(U,$J,358.3,17975,1,2,0)
+422 ;;=2^90686
+423 ;;^UTILITY(U,$J,358.3,17975,1,3,0)
+424 ;;=3^FLU,QUADRIVALENT,PRESERV-FREE VACCINE
+425 ;;^UTILITY(U,$J,358.3,17976,0)
+426 ;;=J0696^^60^718^2^^^^1
+427 ;;^UTILITY(U,$J,358.3,17976,1,0)
+428 ;;=^358.31IA^3^2
+429 ;;^UTILITY(U,$J,358.3,17976,1,2,0)
+430 ;;=2^J0696
+431 ;;^UTILITY(U,$J,358.3,17976,1,3,0)
+432 ;;=3^CEFTRIAXONE SODIUM 250MG
+433 ;;^UTILITY(U,$J,358.3,17977,0)
+434 ;;=90746^^60^718^11^^^^1
+435 ;;^UTILITY(U,$J,358.3,17977,1,0)
+436 ;;=^358.31IA^3^2
+437 ;;^UTILITY(U,$J,358.3,17977,1,2,0)
+438 ;;=2^90746
+439 ;;^UTILITY(U,$J,358.3,17977,1,3,0)
+440 ;;=3^HEPATITIS B VACCINE
+441 ;;^UTILITY(U,$J,358.3,17978,0)
+442 ;;=J7300^^60^718^13^^^^1
+443 ;;^UTILITY(U,$J,358.3,17978,1,0)
+444 ;;=^358.31IA^3^2
+445 ;;^UTILITY(U,$J,358.3,17978,1,2,0)
+446 ;;=2^J7300
+447 ;;^UTILITY(U,$J,358.3,17978,1,3,0)
+448 ;;=3^INTRAUTERINE COPPER CONTRACEPTIVE
+449 ;;^UTILITY(U,$J,358.3,17979,0)
+450 ;;=J1885^^60^718^14^^^^1
+451 ;;^UTILITY(U,$J,358.3,17979,1,0)
+452 ;;=^358.31IA^3^2
+453 ;;^UTILITY(U,$J,358.3,17979,1,2,0)
+454 ;;=2^J1885
+455 ;;^UTILITY(U,$J,358.3,17979,1,3,0)
+456 ;;=3^KETOROLAC TROMETHAMINE 15MG
+457 ;;^UTILITY(U,$J,358.3,17980,0)
+458 ;;=J9218^^60^718^15^^^^1
+459 ;;^UTILITY(U,$J,358.3,17980,1,0)
+460 ;;=^358.31IA^3^2
+461 ;;^UTILITY(U,$J,358.3,17980,1,2,0)
+462 ;;=2^J9218
+463 ;;^UTILITY(U,$J,358.3,17980,1,3,0)
+464 ;;=3^LEUPROLIDE ACETATE 1MG
+465 ;;^UTILITY(U,$J,358.3,17981,0)
+466 ;;=J7301^^60^718^17^^^^1
+467 ;;^UTILITY(U,$J,358.3,17981,1,0)
+468 ;;=^358.31IA^3^2
+469 ;;^UTILITY(U,$J,358.3,17981,1,2,0)
+470 ;;=2^J7301
+471 ;;^UTILITY(U,$J,358.3,17981,1,3,0)
+472 ;;=3^LEVONORGESTREL IU CONTRACEPTIVE 13.5MG
+473 ;;^UTILITY(U,$J,358.3,17982,0)
+474 ;;=90670^^60^718^20^^^^1
+475 ;;^UTILITY(U,$J,358.3,17982,1,0)
+476 ;;=^358.31IA^3^2
+477 ;;^UTILITY(U,$J,358.3,17982,1,2,0)
+478 ;;=2^90670
+479 ;;^UTILITY(U,$J,358.3,17982,1,3,0)
+480 ;;=3^PREVNAR (PCV13)
+481 ;;^UTILITY(U,$J,358.3,17983,0)
+482 ;;=90688^^60^718^6^^^^1
+483 ;;^UTILITY(U,$J,358.3,17983,1,0)
+484 ;;=^358.31IA^3^2
+485 ;;^UTILITY(U,$J,358.3,17983,1,2,0)
+486 ;;=2^90688
+487 ;;^UTILITY(U,$J,358.3,17983,1,3,0)
+488 ;;=3^FLU,QUADRIVALENT,0.5 ML,IM
+489 ;;^UTILITY(U,$J,358.3,17984,0)
+490 ;;=90662^^60^718^5^^^^1
+491 ;;^UTILITY(U,$J,358.3,17984,1,0)
+492 ;;=^358.31IA^3^2
+493 ;;^UTILITY(U,$J,358.3,17984,1,2,0)
+494 ;;=2^90662
+495 ;;^UTILITY(U,$J,358.3,17984,1,3,0)
+496 ;;=3^FLU VACCINE HIGH DOSE SYRINGE (FLUZONE)
+497 ;;^UTILITY(U,$J,358.3,17985,0)
+498 ;;=96372^^60^719^1^^^^1
+499 ;;^UTILITY(U,$J,358.3,17985,1,0)
+500 ;;=^358.31IA^3^2
+501 ;;^UTILITY(U,$J,358.3,17985,1,2,0)
+502 ;;=2^96372
+503 ;;^UTILITY(U,$J,358.3,17985,1,3,0)
+504 ;;=3^THER/PHOPH/DIAG INJECTION
+505 ;;^UTILITY(U,$J,358.3,17986,0)
+506 ;;=90471^^60^719^2^^^^1
+507 ;;^UTILITY(U,$J,358.3,17986,1,0)
+508 ;;=^358.31IA^3^2
+509 ;;^UTILITY(U,$J,358.3,17986,1,2,0)
+510 ;;=2^90471
+511 ;;^UTILITY(U,$J,358.3,17986,1,3,0)
+512 ;;=3^IMMUNIZATION ADMIN,SINGLE
+513 ;;^UTILITY(U,$J,358.3,17987,0)
+514 ;;=90472^^60^719^3^^^^1
+515 ;;^UTILITY(U,$J,358.3,17987,1,0)
+516 ;;=^358.31IA^3^2
+517 ;;^UTILITY(U,$J,358.3,17987,1,2,0)
+518 ;;=2^90472
+519 ;;^UTILITY(U,$J,358.3,17987,1,3,0)
+520 ;;=3^IMMUNIZATION ADMIN,EA ADDL
+521 ;;^UTILITY(U,$J,358.3,17988,0)
+522 ;;=10120^^60^720^1^^^^1
+523 ;;^UTILITY(U,$J,358.3,17988,1,0)
+524 ;;=^358.31IA^3^2
+525 ;;^UTILITY(U,$J,358.3,17988,1,2,0)
+526 ;;=2^10120
+527 ;;^UTILITY(U,$J,358.3,17988,1,3,0)
+528 ;;=3^INCISION & REMOVE FB
+529 ;;^UTILITY(U,$J,358.3,17989,0)
+530 ;;=81002^^60^721^2^^^^1
+531 ;;^UTILITY(U,$J,358.3,17989,1,0)
+532 ;;=^358.31IA^3^2
+533 ;;^UTILITY(U,$J,358.3,17989,1,2,0)
+534 ;;=2^81002
+535 ;;^UTILITY(U,$J,358.3,17989,1,3,0)
+536 ;;=3^URINALYSIS BY DIP STICK
+537 ;;^UTILITY(U,$J,358.3,17990,0)
+538 ;;=82948^^60^721^1^^^^1
+539 ;;^UTILITY(U,$J,358.3,17990,1,0)
+540 ;;=^358.31IA^3^2
+541 ;;^UTILITY(U,$J,358.3,17990,1,2,0)
+542 ;;=2^82948
+543 ;;^UTILITY(U,$J,358.3,17990,1,3,0)
+544 ;;=3^FINGERSTICK, GLUCOSE
+545 ;;^UTILITY(U,$J,358.3,17991,0)
+546 ;;=81025^^60^721^3^^^^1
+547 ;;^UTILITY(U,$J,358.3,17991,1,0)
+548 ;;=^358.31IA^3^2
+549 ;;^UTILITY(U,$J,358.3,17991,1,2,0)
+550 ;;=2^81025
+551 ;;^UTILITY(U,$J,358.3,17991,1,3,0)
+552 ;;=3^URINE PREGNANCY TEST BY DIPSTICK
+553 ;;^UTILITY(U,$J,358.3,17992,0)
+554 ;;=J1642^^60^722^1^^^^1
+555 ;;^UTILITY(U,$J,358.3,17992,1,0)
+556 ;;=^358.31IA^3^2
+557 ;;^UTILITY(U,$J,358.3,17992,1,2,0)
+558 ;;=2^J1642
+559 ;;^UTILITY(U,$J,358.3,17992,1,3,0)
+560 ;;=3^HEP LOCK FLUSH PER 10U
+561 ;;^UTILITY(U,$J,358.3,17993,0)
+562 ;;=A4670^^60^723^1^^^^1
+563 ;;^UTILITY(U,$J,358.3,17993,1,0)
+564 ;;=^358.31IA^3^2
+565 ;;^UTILITY(U,$J,358.3,17993,1,2,0)
+566 ;;=2^A4670
+567 ;;^UTILITY(U,$J,358.3,17993,1,3,0)
+568 ;;=3^AUTOMATIC BP MONITOR,DIAL
+569 ;;^UTILITY(U,$J,358.3,17994,0)
+570 ;;=3511F^^60^723^3^^^^1
+571 ;;^UTILITY(U,$J,358.3,17994,1,0)
+572 ;;=^358.31IA^3^2
+573 ;;^UTILITY(U,$J,358.3,17994,1,2,0)
+574 ;;=2^3511F
+575 ;;^UTILITY(U,$J,358.3,17994,1,3,0)
+576 ;;=3^CHLMYD/GONRH TSTS DOCD DONE
+577 ;;^UTILITY(U,$J,358.3,17995,0)
+578 ;;=S4989^^60^723^4^^^^1
+579 ;;^UTILITY(U,$J,358.3,17995,1,0)
+580 ;;=^358.31IA^3^2
+581 ;;^UTILITY(U,$J,358.3,17995,1,2,0)
+582 ;;=2^S4989
+583 ;;^UTILITY(U,$J,358.3,17995,1,3,0)
+584 ;;=3^CONTRACEPT IUD
+585 ;;^UTILITY(U,$J,358.3,17996,0)
+586 ;;=94760^^60^723^5^^^^1
+587 ;;^UTILITY(U,$J,358.3,17996,1,0)
+588 ;;=^358.31IA^3^2
+589 ;;^UTILITY(U,$J,358.3,17996,1,2,0)
+590 ;;=2^94760
+591 ;;^UTILITY(U,$J,358.3,17996,1,3,0)
+592 ;;=3^MEASURE BLOOD OXYGEN LEVEL
+593 ;;^UTILITY(U,$J,358.3,17997,0)
+594 ;;=99000^^60^723^7^^^^1
+595 ;;^UTILITY(U,$J,358.3,17997,1,0)
+596 ;;=^358.31IA^3^2
+597 ;;^UTILITY(U,$J,358.3,17997,1,2,0)
+598 ;;=2^99000
+599 ;;^UTILITY(U,$J,358.3,17997,1,3,0)
+600 ;;=3^SPECIMEN HANDLING OFFICE-LAB
+601 ;;^UTILITY(U,$J,358.3,17998,0)
+602 ;;=2010F^^60^723^8^^^^1
+603 ;;^UTILITY(U,$J,358.3,17998,1,0)
+604 ;;=^358.31IA^3^2
+605 ;;^UTILITY(U,$J,358.3,17998,1,2,0)
+606 ;;=2^2010F
+607 ;;^UTILITY(U,$J,358.3,17998,1,3,0)
+608 ;;=3^VITAL SIGNS RECORDED
+609 ;;^UTILITY(U,$J,358.3,17999,0)
+610 ;;=2001F^^60^723^9^^^^1
+611 ;;^UTILITY(U,$J,358.3,17999,1,0)
+612 ;;=^358.31IA^3^2
+613 ;;^UTILITY(U,$J,358.3,17999,1,2,0)
+614 ;;=2^2001F
+615 ;;^UTILITY(U,$J,358.3,17999,1,3,0)
+616 ;;=3^WEIGHT RECORD
+617 ;;^UTILITY(U,$J,358.3,18000,0)
+618 ;;=99450^^60^723^2^^^^1
+619 ;;^UTILITY(U,$J,358.3,18000,1,0)
+620 ;;=^358.31IA^3^2
+621 ;;^UTILITY(U,$J,358.3,18000,1,2,0)
+622 ;;=2^99450
+623 ;;^UTILITY(U,$J,358.3,18000,1,3,0)
+624 ;;=3^BASIC LIFE/DISABILITY EXAM
+625 ;;^UTILITY(U,$J,358.3,18001,0)
+626 ;;=99075^^60^723^6^^^^1
+627 ;;^UTILITY(U,$J,358.3,18001,1,0)
+628 ;;=^358.31IA^3^2
+629 ;;^UTILITY(U,$J,358.3,18001,1,2,0)
+630 ;;=2^99075
+631 ;;^UTILITY(U,$J,358.3,18001,1,3,0)
+632 ;;=3^MEDICAL TESTIMONY
+633 ;;^UTILITY(U,$J,358.3,18002,0)
+634 ;;=59200^^60^724^1^^^^1
+635 ;;^UTILITY(U,$J,358.3,18002,1,0)
+636 ;;=^358.31IA^3^2
+637 ;;^UTILITY(U,$J,358.3,18002,1,2,0)
+638 ;;=2^59200
+639 ;;^UTILITY(U,$J,358.3,18002,1,3,0)
+640 ;;=3^INSERT CERVICAL DILATOR
+641 ;;^UTILITY(U,$J,358.3,18003,0)
+642 ;;=59400^^60^724^2^^^^1
+643 ;;^UTILITY(U,$J,358.3,18003,1,0)
+644 ;;=^358.31IA^3^2
+645 ;;^UTILITY(U,$J,358.3,18003,1,2,0)
+646 ;;=2^59400
+647 ;;^UTILITY(U,$J,358.3,18003,1,3,0)
+648 ;;=3^OBSTETRICAL CARE
+649 ;;^UTILITY(U,$J,358.3,18004,0)
+650 ;;=59425^^60^724^3^^^^1
+651 ;;^UTILITY(U,$J,358.3,18004,1,0)
+652 ;;=^358.31IA^3^2
+653 ;;^UTILITY(U,$J,358.3,18004,1,2,0)
+654 ;;=2^59425
+655 ;;^UTILITY(U,$J,358.3,18004,1,3,0)
+656 ;;=3^ANTEPARTUM CARE ONLY-4-6 VISITS
+657 ;;^UTILITY(U,$J,358.3,18005,0)
+658 ;;=59426^^60^724^4^^^^1
+659 ;;^UTILITY(U,$J,358.3,18005,1,0)
+660 ;;=^358.31IA^3^2
+661 ;;^UTILITY(U,$J,358.3,18005,1,2,0)
+662 ;;=2^59426
+663 ;;^UTILITY(U,$J,358.3,18005,1,3,0)
+664 ;;=3^ANTEPARTUM CARE ONLY 7+ VISITS
+665 ;;^UTILITY(U,$J,358.3,18006,0)
+666 ;;=59430^^60^724^5^^^^1
