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

IBDEI07D.m

Go to the documentation of this file.
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