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. 
  1. IBDEI07D ; ; 01-AUG-2022
  1.  ;;3.0;IB ENCOUNTER FORM IMP/EXP;;AUG 01, 2022
  1.  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
  1. Q Q
  1.  ;;^UTILITY(U,$J,358.3,17923,0)
  1.  ;;=57155^^60^717^41^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17923,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17923,1,2,0)
  1.  ;;=2^57155
  1.  ;;^UTILITY(U,$J,358.3,17923,1,3,0)
  1.  ;;=3^INSERT UTERI TANDEMS/OVOIDS FOR BRACHYTHERAPY
  1.  ;;^UTILITY(U,$J,358.3,17924,0)
  1.  ;;=58110^^60^717^25^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17924,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17924,1,2,0)
  1.  ;;=2^58110
  1.  ;;^UTILITY(U,$J,358.3,17924,1,3,0)
  1.  ;;=3^ENDO BX PERF IN CONJUN W/COLPOSCOPY
  1.  ;;^UTILITY(U,$J,358.3,17925,0)
  1.  ;;=58120^^60^717^18^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17925,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17925,1,2,0)
  1.  ;;=2^58120
  1.  ;;^UTILITY(U,$J,358.3,17925,1,3,0)
  1.  ;;=3^D&C-DX AND/OR THERAPEUTIC (NONOBS)
  1.  ;;^UTILITY(U,$J,358.3,17926,0)
  1.  ;;=57460^^60^717^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17926,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17926,1,2,0)
  1.  ;;=2^57460
  1.  ;;^UTILITY(U,$J,358.3,17926,1,3,0)
  1.  ;;=3^BX OF CERVIX W/SCOPE LEEP
  1.  ;;^UTILITY(U,$J,358.3,17927,0)
  1.  ;;=57461^^60^717^14^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17927,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17927,1,2,0)
  1.  ;;=2^57461
  1.  ;;^UTILITY(U,$J,358.3,17927,1,3,0)
  1.  ;;=3^CONIZATION OF CERVIX W/ SCOPE LEEP
  1.  ;;^UTILITY(U,$J,358.3,17928,0)
  1.  ;;=57522^^60^717^13^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17928,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17928,1,2,0)
  1.  ;;=2^57522
  1.  ;;^UTILITY(U,$J,358.3,17928,1,3,0)
  1.  ;;=3^CONIZATION OF CERVIX
  1.  ;;^UTILITY(U,$J,358.3,17929,0)
  1.  ;;=S0613^^60^717^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17929,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17929,1,2,0)
  1.  ;;=2^S0613
  1.  ;;^UTILITY(U,$J,358.3,17929,1,3,0)
  1.  ;;=3^ANNUAL BREAST EXAM 
  1.  ;;^UTILITY(U,$J,358.3,17930,0)
  1.  ;;=G0328^^60^717^32^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17930,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17930,1,2,0)
  1.  ;;=2^G0328
  1.  ;;^UTILITY(U,$J,358.3,17930,1,3,0)
  1.  ;;=3^FECAL BLOOD SCRN IMMUNOASSAY
  1.  ;;^UTILITY(U,$J,358.3,17931,0)
  1.  ;;=11981^^60^717^39^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17931,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17931,1,2,0)
  1.  ;;=2^11981
  1.  ;;^UTILITY(U,$J,358.3,17931,1,3,0)
  1.  ;;=3^INSERT NON-BIODEGRAD DRUG DELIVERY IMPLANT
  1.  ;;^UTILITY(U,$J,358.3,17932,0)
  1.  ;;=11982^^60^717^49^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17932,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17932,1,2,0)
  1.  ;;=2^11982
  1.  ;;^UTILITY(U,$J,358.3,17932,1,3,0)
  1.  ;;=3^REMOVE NON-BIODEGRAD DRUG DELIVERY IMPLANT
  1.  ;;^UTILITY(U,$J,358.3,17933,0)
  1.  ;;=11983^^60^717^51^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17933,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17933,1,2,0)
  1.  ;;=2^11983
  1.  ;;^UTILITY(U,$J,358.3,17933,1,3,0)
  1.  ;;=3^REMOVE/RE-INSERT NON-BIO DRUG DEL IMPLANT
  1.  ;;^UTILITY(U,$J,358.3,17934,0)
  1.  ;;=11976^^60^717^50^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17934,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17934,1,2,0)
  1.  ;;=2^11976
  1.  ;;^UTILITY(U,$J,358.3,17934,1,3,0)
  1.  ;;=3^REMOVE OF CONTRACEPTIVE CAP
  1.  ;;^UTILITY(U,$J,358.3,17935,0)
  1.  ;;=57170^^60^717^33^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17935,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17935,1,2,0)
  1.  ;;=2^57170
  1.  ;;^UTILITY(U,$J,358.3,17935,1,3,0)
  1.  ;;=3^FITTING OF DIAPHRAGM/CAP
  1.  ;;^UTILITY(U,$J,358.3,17936,0)
  1.  ;;=J7307^^60^717^26^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17936,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17936,1,2,0)
  1.  ;;=2^J7307
  1.  ;;^UTILITY(U,$J,358.3,17936,1,3,0)
  1.  ;;=3^ETONOGESTREL IMPLANT W/ SUPPLIES
  1.  ;;^UTILITY(U,$J,358.3,17937,0)
  1.  ;;=S0612^^60^717^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17937,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17937,1,2,0)
  1.  ;;=2^S0612
  1.  ;;^UTILITY(U,$J,358.3,17937,1,3,0)
  1.  ;;=3^ANNUAL GYNECOLOGICAL EXAM
  1.  ;;^UTILITY(U,$J,358.3,17938,0)
  1.  ;;=57455^^60^717^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17938,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17938,1,2,0)
  1.  ;;=2^57455
  1.  ;;^UTILITY(U,$J,358.3,17938,1,3,0)
  1.  ;;=3^BX OF CERVIX W/SCOPE
  1.  ;;^UTILITY(U,$J,358.3,17939,0)
  1.  ;;=57100^^60^717^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17939,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17939,1,2,0)
  1.  ;;=2^57100
  1.  ;;^UTILITY(U,$J,358.3,17939,1,3,0)
  1.  ;;=3^BX OF VAGINA
  1.  ;;^UTILITY(U,$J,358.3,17940,0)
  1.  ;;=56605^^60^717^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17940,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17940,1,2,0)
  1.  ;;=2^56605
  1.  ;;^UTILITY(U,$J,358.3,17940,1,3,0)
  1.  ;;=3^BX OF VULVA/PERINEUM
  1.  ;;^UTILITY(U,$J,358.3,17941,0)
  1.  ;;=56606^^60^717^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17941,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17941,1,2,0)
  1.  ;;=2^56606
  1.  ;;^UTILITY(U,$J,358.3,17941,1,3,0)
  1.  ;;=3^BX OF VULVA/PERINEUM,ADD-ON
  1.  ;;^UTILITY(U,$J,358.3,17942,0)
  1.  ;;=57456^^60^717^16^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17942,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17942,1,2,0)
  1.  ;;=2^57456
  1.  ;;^UTILITY(U,$J,358.3,17942,1,3,0)
  1.  ;;=3^CURETTAGE W/ SCOPE,ENDOCERV
  1.  ;;^UTILITY(U,$J,358.3,17943,0)
  1.  ;;=51729^^60^717^17^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17943,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17943,1,2,0)
  1.  ;;=2^51729
  1.  ;;^UTILITY(U,$J,358.3,17943,1,3,0)
  1.  ;;=3^CYSTOMETROGRAM W/ VP & UP
  1.  ;;^UTILITY(U,$J,358.3,17944,0)
  1.  ;;=57800^^60^717^22^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17944,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17944,1,2,0)
  1.  ;;=2^57800
  1.  ;;^UTILITY(U,$J,358.3,17944,1,3,0)
  1.  ;;=3^DILATION OF CERVICAL CANAL
  1.  ;;^UTILITY(U,$J,358.3,17945,0)
  1.  ;;=51741^^60^717^24^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17945,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17945,1,2,0)
  1.  ;;=2^51741
  1.  ;;^UTILITY(U,$J,358.3,17945,1,3,0)
  1.  ;;=3^ELECTRO-UROFLOWMETRY,FIRST
  1.  ;;^UTILITY(U,$J,358.3,17946,0)
  1.  ;;=57452^^60^717^27^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17946,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17946,1,2,0)
  1.  ;;=2^57452
  1.  ;;^UTILITY(U,$J,358.3,17946,1,3,0)
  1.  ;;=3^EXAM OF CERVIX W/SCOPE
  1.  ;;^UTILITY(U,$J,358.3,17947,0)
  1.  ;;=57420^^60^717^28^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17947,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17947,1,2,0)
  1.  ;;=2^57420
  1.  ;;^UTILITY(U,$J,358.3,17947,1,3,0)
  1.  ;;=3^EXAM OF VAGINA W/SCOPE
  1.  ;;^UTILITY(U,$J,358.3,17948,0)
  1.  ;;=51701^^60^717^37^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17948,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17948,1,2,0)
  1.  ;;=2^51701
  1.  ;;^UTILITY(U,$J,358.3,17948,1,3,0)
  1.  ;;=3^INSERT BLADDER CATHETER
  1.  ;;^UTILITY(U,$J,358.3,17949,0)
  1.  ;;=51797^^60^717^42^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17949,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17949,1,2,0)
  1.  ;;=2^51797
  1.  ;;^UTILITY(U,$J,358.3,17949,1,3,0)
  1.  ;;=3^INTRAABDOMINAL PRESSURE TEST
  1.  ;;^UTILITY(U,$J,358.3,17950,0)
  1.  ;;=51798^^60^717^54^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17950,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17950,1,2,0)
  1.  ;;=2^51798
  1.  ;;^UTILITY(U,$J,358.3,17950,1,3,0)
  1.  ;;=3^US URINE CAPACITY MEASURE
  1.  ;;^UTILITY(U,$J,358.3,17951,0)
  1.  ;;=17000^^60^717^43^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17951,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17951,1,2,0)
  1.  ;;=2^17000
  1.  ;;^UTILITY(U,$J,358.3,17951,1,3,0)
  1.  ;;=3^LIQUID N2,1ST LESION
  1.  ;;^UTILITY(U,$J,358.3,17952,0)
  1.  ;;=17003^^60^717^44^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17952,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17952,1,2,0)
  1.  ;;=2^17003
  1.  ;;^UTILITY(U,$J,358.3,17952,1,3,0)
  1.  ;;=3^LIQUID N2,2-14 LESIONS
  1.  ;;^UTILITY(U,$J,358.3,17953,0)
  1.  ;;=51784^^60^717^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17953,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17953,1,2,0)
  1.  ;;=2^51784
  1.  ;;^UTILITY(U,$J,358.3,17953,1,3,0)
  1.  ;;=3^ANAL/URINARY MUSCLE STUDY
  1.  ;;^UTILITY(U,$J,358.3,17954,0)
  1.  ;;=74740^^60^717^34^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17954,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17954,1,2,0)
  1.  ;;=2^74740
  1.  ;;^UTILITY(U,$J,358.3,17954,1,3,0)
  1.  ;;=3^HYSTEROSALPINGOGRAM
  1.  ;;^UTILITY(U,$J,358.3,17955,0)
  1.  ;;=58340^^60^717^12^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17955,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17955,1,2,0)
  1.  ;;=2^58340
  1.  ;;^UTILITY(U,$J,358.3,17955,1,3,0)
  1.  ;;=3^CATH FOR SIS OR HYSTEROSALPINGOGRAPHY
  1.  ;;^UTILITY(U,$J,358.3,17956,0)
  1.  ;;=58345^^60^717^52^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17956,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17956,1,2,0)
  1.  ;;=2^58345
  1.  ;;^UTILITY(U,$J,358.3,17956,1,3,0)
  1.  ;;=3^TRANSCERVICAL INTRO OF FALLOPIAN TUBE CATH
  1.  ;;^UTILITY(U,$J,358.3,17957,0)
  1.  ;;=57511^^60^717^15^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17957,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17957,1,2,0)
  1.  ;;=2^57511
  1.  ;;^UTILITY(U,$J,358.3,17957,1,3,0)
  1.  ;;=3^CRYOCAUTERY OF CERVIX
  1.  ;;^UTILITY(U,$J,358.3,17958,0)
  1.  ;;=17110^^60^717^21^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17958,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17958,1,2,0)
  1.  ;;=2^17110
  1.  ;;^UTILITY(U,$J,358.3,17958,1,3,0)
  1.  ;;=3^DESTRUCT B9 LESION,UP TO 14 LESIONS
  1.  ;;^UTILITY(U,$J,358.3,17959,0)
  1.  ;;=56420^^60^717^23^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17959,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17959,1,2,0)
  1.  ;;=2^56420
  1.  ;;^UTILITY(U,$J,358.3,17959,1,3,0)
  1.  ;;=3^DRAINAGE OF GLAND ABSCESS
  1.  ;;^UTILITY(U,$J,358.3,17960,0)
  1.  ;;=56405^^60^717^35^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17960,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17960,1,2,0)
  1.  ;;=2^56405
  1.  ;;^UTILITY(U,$J,358.3,17960,1,3,0)
  1.  ;;=3^I&D OF VULVA/PERINEUM
  1.  ;;^UTILITY(U,$J,358.3,17961,0)
  1.  ;;=11980^^60^717^36^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17961,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17961,1,2,0)
  1.  ;;=2^11980
  1.  ;;^UTILITY(U,$J,358.3,17961,1,3,0)
  1.  ;;=3^IMPLANT HORMONE PELLET(S)
  1.  ;;^UTILITY(U,$J,358.3,17962,0)
  1.  ;;=55920^^60^717^45^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17962,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17962,1,2,0)
  1.  ;;=2^55920
  1.  ;;^UTILITY(U,$J,358.3,17962,1,3,0)
  1.  ;;=3^NEEDLE PLACEMENT FOR RT,PELVIC
  1.  ;;^UTILITY(U,$J,358.3,17963,0)
  1.  ;;=J3420^^60^718^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17963,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17963,1,2,0)
  1.  ;;=2^J3420
  1.  ;;^UTILITY(U,$J,358.3,17963,1,3,0)
  1.  ;;=3^B12 INJ UP TO 1,000MCG
  1.  ;;^UTILITY(U,$J,358.3,17964,0)
  1.  ;;=J0800^^60^718^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17964,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17964,1,2,0)
  1.  ;;=2^J0800
  1.  ;;^UTILITY(U,$J,358.3,17964,1,3,0)
  1.  ;;=3^CORTISONE INJ UP TO 40U
  1.  ;;^UTILITY(U,$J,358.3,17965,0)
  1.  ;;=J9202^^60^718^22^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17965,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17965,1,2,0)
  1.  ;;=2^J9202
  1.  ;;^UTILITY(U,$J,358.3,17965,1,3,0)
  1.  ;;=3^ZOLADEX 3.6MG
  1.  ;;^UTILITY(U,$J,358.3,17966,0)
  1.  ;;=J1642^^60^718^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17966,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17966,1,2,0)
  1.  ;;=2^J1642
  1.  ;;^UTILITY(U,$J,358.3,17966,1,3,0)
  1.  ;;=3^HEP LOCK FLUSH PER 10U
  1.  ;;^UTILITY(U,$J,358.3,17967,0)
  1.  ;;=J7307^^60^718^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17967,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17967,1,2,0)
  1.  ;;=2^J7307
  1.  ;;^UTILITY(U,$J,358.3,17967,1,3,0)
  1.  ;;=3^ETONOGESTREL IMPLANT W/ SUPPLIES
  1.  ;;^UTILITY(U,$J,358.3,17968,0)
  1.  ;;=J1950^^60^718^16^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17968,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17968,1,2,0)
  1.  ;;=2^J1950
  1.  ;;^UTILITY(U,$J,358.3,17968,1,3,0)
  1.  ;;=3^LEUPROLIDE ACETATE 3.75MG
  1.  ;;^UTILITY(U,$J,358.3,17969,0)
  1.  ;;=J1050^^60^718^18^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17969,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17969,1,2,0)
  1.  ;;=2^J1050
  1.  ;;^UTILITY(U,$J,358.3,17969,1,3,0)
  1.  ;;=3^MEDROXYPROGESTERONE 1MG
  1.  ;;^UTILITY(U,$J,358.3,17970,0)
  1.  ;;=90649^^60^718^12^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17970,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17970,1,2,0)
  1.  ;;=2^90649
  1.  ;;^UTILITY(U,$J,358.3,17970,1,3,0)
  1.  ;;=3^HPV VACCINE 3 DOSE
  1.  ;;^UTILITY(U,$J,358.3,17971,0)
  1.  ;;=90656^^60^718^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17971,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17971,1,2,0)
  1.  ;;=2^90656
  1.  ;;^UTILITY(U,$J,358.3,17971,1,3,0)
  1.  ;;=3^FLU,TRIVALENT,SPLIT,NO PRESERVATIVES
  1.  ;;^UTILITY(U,$J,358.3,17972,0)
  1.  ;;=90658^^60^718^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17972,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17972,1,2,0)
  1.  ;;=2^90658
  1.  ;;^UTILITY(U,$J,358.3,17972,1,3,0)
  1.  ;;=3^FLU,TRIVALENT,SPLIT VACCINE
  1.  ;;^UTILITY(U,$J,358.3,17973,0)
  1.  ;;=90732^^60^718^19^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17973,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17973,1,2,0)
  1.  ;;=2^90732
  1.  ;;^UTILITY(U,$J,358.3,17973,1,3,0)
  1.  ;;=3^PNEUMOCOCCAL POLYSACCHARIDE VACCINE (PPSV23)
  1.  ;;^UTILITY(U,$J,358.3,17974,0)
  1.  ;;=90715^^60^718^21^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17974,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17974,1,2,0)
  1.  ;;=2^90715
  1.  ;;^UTILITY(U,$J,358.3,17974,1,3,0)
  1.  ;;=3^TDAP VACCINE
  1.  ;;^UTILITY(U,$J,358.3,17975,0)
  1.  ;;=90686^^60^718^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17975,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17975,1,2,0)
  1.  ;;=2^90686
  1.  ;;^UTILITY(U,$J,358.3,17975,1,3,0)
  1.  ;;=3^FLU,QUADRIVALENT,PRESERV-FREE VACCINE
  1.  ;;^UTILITY(U,$J,358.3,17976,0)
  1.  ;;=J0696^^60^718^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17976,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17976,1,2,0)
  1.  ;;=2^J0696
  1.  ;;^UTILITY(U,$J,358.3,17976,1,3,0)
  1.  ;;=3^CEFTRIAXONE SODIUM 250MG
  1.  ;;^UTILITY(U,$J,358.3,17977,0)
  1.  ;;=90746^^60^718^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17977,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17977,1,2,0)
  1.  ;;=2^90746
  1.  ;;^UTILITY(U,$J,358.3,17977,1,3,0)
  1.  ;;=3^HEPATITIS B VACCINE
  1.  ;;^UTILITY(U,$J,358.3,17978,0)
  1.  ;;=J7300^^60^718^13^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17978,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17978,1,2,0)
  1.  ;;=2^J7300
  1.  ;;^UTILITY(U,$J,358.3,17978,1,3,0)
  1.  ;;=3^INTRAUTERINE COPPER CONTRACEPTIVE
  1.  ;;^UTILITY(U,$J,358.3,17979,0)
  1.  ;;=J1885^^60^718^14^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17979,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17979,1,2,0)
  1.  ;;=2^J1885
  1.  ;;^UTILITY(U,$J,358.3,17979,1,3,0)
  1.  ;;=3^KETOROLAC TROMETHAMINE 15MG
  1.  ;;^UTILITY(U,$J,358.3,17980,0)
  1.  ;;=J9218^^60^718^15^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17980,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17980,1,2,0)
  1.  ;;=2^J9218
  1.  ;;^UTILITY(U,$J,358.3,17980,1,3,0)
  1.  ;;=3^LEUPROLIDE ACETATE 1MG
  1.  ;;^UTILITY(U,$J,358.3,17981,0)
  1.  ;;=J7301^^60^718^17^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17981,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17981,1,2,0)
  1.  ;;=2^J7301
  1.  ;;^UTILITY(U,$J,358.3,17981,1,3,0)
  1.  ;;=3^LEVONORGESTREL IU CONTRACEPTIVE 13.5MG
  1.  ;;^UTILITY(U,$J,358.3,17982,0)
  1.  ;;=90670^^60^718^20^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17982,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17982,1,2,0)
  1.  ;;=2^90670
  1.  ;;^UTILITY(U,$J,358.3,17982,1,3,0)
  1.  ;;=3^PREVNAR (PCV13)
  1.  ;;^UTILITY(U,$J,358.3,17983,0)
  1.  ;;=90688^^60^718^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17983,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17983,1,2,0)
  1.  ;;=2^90688
  1.  ;;^UTILITY(U,$J,358.3,17983,1,3,0)
  1.  ;;=3^FLU,QUADRIVALENT,0.5 ML,IM
  1.  ;;^UTILITY(U,$J,358.3,17984,0)
  1.  ;;=90662^^60^718^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17984,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17984,1,2,0)
  1.  ;;=2^90662
  1.  ;;^UTILITY(U,$J,358.3,17984,1,3,0)
  1.  ;;=3^FLU VACCINE HIGH DOSE SYRINGE (FLUZONE)
  1.  ;;^UTILITY(U,$J,358.3,17985,0)
  1.  ;;=96372^^60^719^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17985,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17985,1,2,0)
  1.  ;;=2^96372
  1.  ;;^UTILITY(U,$J,358.3,17985,1,3,0)
  1.  ;;=3^THER/PHOPH/DIAG INJECTION
  1.  ;;^UTILITY(U,$J,358.3,17986,0)
  1.  ;;=90471^^60^719^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17986,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17986,1,2,0)
  1.  ;;=2^90471
  1.  ;;^UTILITY(U,$J,358.3,17986,1,3,0)
  1.  ;;=3^IMMUNIZATION ADMIN,SINGLE
  1.  ;;^UTILITY(U,$J,358.3,17987,0)
  1.  ;;=90472^^60^719^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17987,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17987,1,2,0)
  1.  ;;=2^90472
  1.  ;;^UTILITY(U,$J,358.3,17987,1,3,0)
  1.  ;;=3^IMMUNIZATION ADMIN,EA ADDL
  1.  ;;^UTILITY(U,$J,358.3,17988,0)
  1.  ;;=10120^^60^720^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17988,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17988,1,2,0)
  1.  ;;=2^10120
  1.  ;;^UTILITY(U,$J,358.3,17988,1,3,0)
  1.  ;;=3^INCISION & REMOVE FB
  1.  ;;^UTILITY(U,$J,358.3,17989,0)
  1.  ;;=81002^^60^721^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17989,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17989,1,2,0)
  1.  ;;=2^81002
  1.  ;;^UTILITY(U,$J,358.3,17989,1,3,0)
  1.  ;;=3^URINALYSIS BY DIP STICK
  1.  ;;^UTILITY(U,$J,358.3,17990,0)
  1.  ;;=82948^^60^721^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17990,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17990,1,2,0)
  1.  ;;=2^82948
  1.  ;;^UTILITY(U,$J,358.3,17990,1,3,0)
  1.  ;;=3^FINGERSTICK, GLUCOSE
  1.  ;;^UTILITY(U,$J,358.3,17991,0)
  1.  ;;=81025^^60^721^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17991,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17991,1,2,0)
  1.  ;;=2^81025
  1.  ;;^UTILITY(U,$J,358.3,17991,1,3,0)
  1.  ;;=3^URINE PREGNANCY TEST BY DIPSTICK
  1.  ;;^UTILITY(U,$J,358.3,17992,0)
  1.  ;;=J1642^^60^722^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17992,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17992,1,2,0)
  1.  ;;=2^J1642
  1.  ;;^UTILITY(U,$J,358.3,17992,1,3,0)
  1.  ;;=3^HEP LOCK FLUSH PER 10U
  1.  ;;^UTILITY(U,$J,358.3,17993,0)
  1.  ;;=A4670^^60^723^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17993,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17993,1,2,0)
  1.  ;;=2^A4670
  1.  ;;^UTILITY(U,$J,358.3,17993,1,3,0)
  1.  ;;=3^AUTOMATIC BP MONITOR,DIAL
  1.  ;;^UTILITY(U,$J,358.3,17994,0)
  1.  ;;=3511F^^60^723^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17994,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17994,1,2,0)
  1.  ;;=2^3511F
  1.  ;;^UTILITY(U,$J,358.3,17994,1,3,0)
  1.  ;;=3^CHLMYD/GONRH TSTS DOCD DONE
  1.  ;;^UTILITY(U,$J,358.3,17995,0)
  1.  ;;=S4989^^60^723^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17995,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17995,1,2,0)
  1.  ;;=2^S4989
  1.  ;;^UTILITY(U,$J,358.3,17995,1,3,0)
  1.  ;;=3^CONTRACEPT IUD
  1.  ;;^UTILITY(U,$J,358.3,17996,0)
  1.  ;;=94760^^60^723^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17996,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17996,1,2,0)
  1.  ;;=2^94760
  1.  ;;^UTILITY(U,$J,358.3,17996,1,3,0)
  1.  ;;=3^MEASURE BLOOD OXYGEN LEVEL
  1.  ;;^UTILITY(U,$J,358.3,17997,0)
  1.  ;;=99000^^60^723^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17997,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17997,1,2,0)
  1.  ;;=2^99000
  1.  ;;^UTILITY(U,$J,358.3,17997,1,3,0)
  1.  ;;=3^SPECIMEN HANDLING OFFICE-LAB
  1.  ;;^UTILITY(U,$J,358.3,17998,0)
  1.  ;;=2010F^^60^723^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17998,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17998,1,2,0)
  1.  ;;=2^2010F
  1.  ;;^UTILITY(U,$J,358.3,17998,1,3,0)
  1.  ;;=3^VITAL SIGNS RECORDED
  1.  ;;^UTILITY(U,$J,358.3,17999,0)
  1.  ;;=2001F^^60^723^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,17999,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,17999,1,2,0)
  1.  ;;=2^2001F
  1.  ;;^UTILITY(U,$J,358.3,17999,1,3,0)
  1.  ;;=3^WEIGHT RECORD
  1.  ;;^UTILITY(U,$J,358.3,18000,0)
  1.  ;;=99450^^60^723^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,18000,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,18000,1,2,0)
  1.  ;;=2^99450
  1.  ;;^UTILITY(U,$J,358.3,18000,1,3,0)
  1.  ;;=3^BASIC LIFE/DISABILITY EXAM
  1.  ;;^UTILITY(U,$J,358.3,18001,0)
  1.  ;;=99075^^60^723^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,18001,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,18001,1,2,0)
  1.  ;;=2^99075
  1.  ;;^UTILITY(U,$J,358.3,18001,1,3,0)
  1.  ;;=3^MEDICAL TESTIMONY
  1.  ;;^UTILITY(U,$J,358.3,18002,0)
  1.  ;;=59200^^60^724^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,18002,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,18002,1,2,0)
  1.  ;;=2^59200
  1.  ;;^UTILITY(U,$J,358.3,18002,1,3,0)
  1.  ;;=3^INSERT CERVICAL DILATOR
  1.  ;;^UTILITY(U,$J,358.3,18003,0)
  1.  ;;=59400^^60^724^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,18003,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,18003,1,2,0)
  1.  ;;=2^59400
  1.  ;;^UTILITY(U,$J,358.3,18003,1,3,0)
  1.  ;;=3^OBSTETRICAL CARE
  1.  ;;^UTILITY(U,$J,358.3,18004,0)
  1.  ;;=59425^^60^724^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,18004,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,18004,1,2,0)
  1.  ;;=2^59425
  1.  ;;^UTILITY(U,$J,358.3,18004,1,3,0)
  1.  ;;=3^ANTEPARTUM CARE ONLY-4-6 VISITS
  1.  ;;^UTILITY(U,$J,358.3,18005,0)
  1.  ;;=59426^^60^724^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,18005,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,18005,1,2,0)
  1.  ;;=2^59426
  1.  ;;^UTILITY(U,$J,358.3,18005,1,3,0)
  1.  ;;=3^ANTEPARTUM CARE ONLY 7+ VISITS
  1.  ;;^UTILITY(U,$J,358.3,18006,0)
  1.  ;;=59430^^60^724^5^^^^1