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

IBDEI08O.m

Go to the documentation of this file. 
  1. IBDEI08O ; ; 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,21164,1,2,0)
  1.  ;;=2^97602
  1.  ;;^UTILITY(U,$J,358.3,21164,1,3,0)
  1.  ;;=3^WOUND CARE, NON-SELECTIVE DEBRIDEMENT
  1.  ;;^UTILITY(U,$J,358.3,21165,0)
  1.  ;;=51701^^69^869^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21165,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21165,1,2,0)
  1.  ;;=2^51701
  1.  ;;^UTILITY(U,$J,358.3,21165,1,3,0)
  1.  ;;=3^INSERT CATHETER FOR RESIDUAL URINE
  1.  ;;^UTILITY(U,$J,358.3,21166,0)
  1.  ;;=51702^^69^869^12^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21166,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21166,1,2,0)
  1.  ;;=2^51702
  1.  ;;^UTILITY(U,$J,358.3,21166,1,3,0)
  1.  ;;=3^INSERT FOLEY CATH
  1.  ;;^UTILITY(U,$J,358.3,21167,0)
  1.  ;;=51798^^69^869^18^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21167,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21167,1,2,0)
  1.  ;;=2^51798
  1.  ;;^UTILITY(U,$J,358.3,21167,1,3,0)
  1.  ;;=3^US FOR RESID URINE
  1.  ;;^UTILITY(U,$J,358.3,21168,0)
  1.  ;;=96360^^69^869^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21168,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21168,1,2,0)
  1.  ;;=2^96360
  1.  ;;^UTILITY(U,$J,358.3,21168,1,3,0)
  1.  ;;=3^HYDRATION,IV,1ST HOUR
  1.  ;;^UTILITY(U,$J,358.3,21169,0)
  1.  ;;=96361^^69^869^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21169,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21169,1,2,0)
  1.  ;;=2^96361
  1.  ;;^UTILITY(U,$J,358.3,21169,1,3,0)
  1.  ;;=3^HYDRATION,IV,EA ADDL HOUR
  1.  ;;^UTILITY(U,$J,358.3,21170,0)
  1.  ;;=96365^^69^869^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21170,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21170,1,2,0)
  1.  ;;=2^96365
  1.  ;;^UTILITY(U,$J,358.3,21170,1,3,0)
  1.  ;;=3^INFUSION,IV UP TO 1 HOUR
  1.  ;;^UTILITY(U,$J,358.3,21171,0)
  1.  ;;=96366^^69^869^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21171,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21171,1,2,0)
  1.  ;;=2^96366
  1.  ;;^UTILITY(U,$J,358.3,21171,1,3,0)
  1.  ;;=3^INFUSION,IV EA ADD HR
  1.  ;;^UTILITY(U,$J,358.3,21172,0)
  1.  ;;=36593^^69^869^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21172,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21172,1,2,0)
  1.  ;;=2^36593
  1.  ;;^UTILITY(U,$J,358.3,21172,1,3,0)
  1.  ;;=3^DECLOT BY THROMBOLYTIC AGENT,VAD/CATH
  1.  ;;^UTILITY(U,$J,358.3,21173,0)
  1.  ;;=76937^^69^869^17^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21173,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21173,1,2,0)
  1.  ;;=2^76937
  1.  ;;^UTILITY(U,$J,358.3,21173,1,3,0)
  1.  ;;=3^US GUIDANCE FOR VASCULAR ACCESS SITES
  1.  ;;^UTILITY(U,$J,358.3,21174,0)
  1.  ;;=96374^^69^869^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21174,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21174,1,2,0)
  1.  ;;=2^96374
  1.  ;;^UTILITY(U,$J,358.3,21174,1,3,0)
  1.  ;;=3^IV PUSH,1ST HR
  1.  ;;^UTILITY(U,$J,358.3,21175,0)
  1.  ;;=96375^^69^869^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21175,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21175,1,2,0)
  1.  ;;=2^96375
  1.  ;;^UTILITY(U,$J,358.3,21175,1,3,0)
  1.  ;;=3^IV PUSH,EA ADDL HR
  1.  ;;^UTILITY(U,$J,358.3,21176,0)
  1.  ;;=17000^^69^870^15^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21176,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21176,1,2,0)
  1.  ;;=2^17000
  1.  ;;^UTILITY(U,$J,358.3,21176,1,3,0)
  1.  ;;=3^DESTR BEN LES, ANY METHOD, 1ST LES
  1.  ;;^UTILITY(U,$J,358.3,21177,0)
  1.  ;;=17003^^69^870^16^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21177,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21177,1,2,0)
  1.  ;;=2^17003
  1.  ;;^UTILITY(U,$J,358.3,21177,1,3,0)
  1.  ;;=3^DESTR BEN LES, ANY METHOD,EA ADDL LES (2-14)
  1.  ;;^UTILITY(U,$J,358.3,21178,0)
  1.  ;;=17004^^69^870^17^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21178,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21178,1,2,0)
  1.  ;;=2^17004
  1.  ;;^UTILITY(U,$J,358.3,21178,1,3,0)
  1.  ;;=3^DESTR BEN LES,15 OR MORE
  1.  ;;^UTILITY(U,$J,358.3,21179,0)
  1.  ;;=10060^^69^870^22^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21179,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21179,1,2,0)
  1.  ;;=2^10060
  1.  ;;^UTILITY(U,$J,358.3,21179,1,3,0)
  1.  ;;=3^I&D ABSCESS
  1.  ;;^UTILITY(U,$J,358.3,21180,0)
  1.  ;;=10061^^69^870^23^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21180,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21180,1,2,0)
  1.  ;;=2^10061
  1.  ;;^UTILITY(U,$J,358.3,21180,1,3,0)
  1.  ;;=3^I&D COMPLICATED ABSCESS
  1.  ;;^UTILITY(U,$J,358.3,21181,0)
  1.  ;;=12001^^69^870^40^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21181,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21181,1,2,0)
  1.  ;;=2^12001
  1.  ;;^UTILITY(U,$J,358.3,21181,1,3,0)
  1.  ;;=3^SUTURE SIMPLE WOUND,TRUNK/EXT 2.5 CM OR <
  1.  ;;^UTILITY(U,$J,358.3,21182,0)
  1.  ;;=12002^^69^870^41^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21182,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21182,1,2,0)
  1.  ;;=2^12002
  1.  ;;^UTILITY(U,$J,358.3,21182,1,3,0)
  1.  ;;=3^SUTURE SIMPLE WOUND,TRUNK/EXT 2.6-7.5 CM
  1.  ;;^UTILITY(U,$J,358.3,21183,0)
  1.  ;;=11042^^69^870^14^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21183,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21183,1,2,0)
  1.  ;;=2^11042
  1.  ;;^UTILITY(U,$J,358.3,21183,1,3,0)
  1.  ;;=3^DEBRIDEMENT, SKIN & SUBCU. TISSUE,1ST 20SQ CM
  1.  ;;^UTILITY(U,$J,358.3,21184,0)
  1.  ;;=20550^^69^870^26^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21184,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21184,1,2,0)
  1.  ;;=2^20550
  1.  ;;^UTILITY(U,$J,358.3,21184,1,3,0)
  1.  ;;=3^INJECTION,TENDON SHEATH,LIGAMENT,GANGLION CYST
  1.  ;;^UTILITY(U,$J,358.3,21185,0)
  1.  ;;=20551^^69^870^25^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21185,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21185,1,2,0)
  1.  ;;=2^20551
  1.  ;;^UTILITY(U,$J,358.3,21185,1,3,0)
  1.  ;;=3^INJECTION,TENDON ORIGIN/INSERTION
  1.  ;;^UTILITY(U,$J,358.3,21186,0)
  1.  ;;=20552^^69^870^27^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21186,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21186,1,2,0)
  1.  ;;=2^20552
  1.  ;;^UTILITY(U,$J,358.3,21186,1,3,0)
  1.  ;;=3^INJECTION,TRIGGER POINT, 1 OR 2 MUSCLE GROUPS
  1.  ;;^UTILITY(U,$J,358.3,21187,0)
  1.  ;;=20600^^69^870^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21187,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21187,1,2,0)
  1.  ;;=2^20600
  1.  ;;^UTILITY(U,$J,358.3,21187,1,3,0)
  1.  ;;=3^ARTHROCENTESIS,SMALL JT W/O US GUIDANCE
  1.  ;;^UTILITY(U,$J,358.3,21188,0)
  1.  ;;=20605^^69^870^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21188,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21188,1,2,0)
  1.  ;;=2^20605
  1.  ;;^UTILITY(U,$J,358.3,21188,1,3,0)
  1.  ;;=3^ARTHROCENTESIS,INTERMEDIATE JT W/O US GUIDANCE
  1.  ;;^UTILITY(U,$J,358.3,21189,0)
  1.  ;;=20610^^69^870^8^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21189,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21189,1,2,0)
  1.  ;;=2^20610
  1.  ;;^UTILITY(U,$J,358.3,21189,1,3,0)
  1.  ;;=3^ARTHROCENTESIS,MAJOR JT W/O US GUIDANCE
  1.  ;;^UTILITY(U,$J,358.3,21190,0)
  1.  ;;=92950^^69^870^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21190,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21190,1,2,0)
  1.  ;;=2^92950
  1.  ;;^UTILITY(U,$J,358.3,21190,1,3,0)
  1.  ;;=3^CPR
  1.  ;;^UTILITY(U,$J,358.3,21191,0)
  1.  ;;=11055^^69^870^46^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21191,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21191,1,2,0)
  1.  ;;=2^11055
  1.  ;;^UTILITY(U,$J,358.3,21191,1,3,0)
  1.  ;;=3^TRIM CORN/CALLOUS, ONE
  1.  ;;^UTILITY(U,$J,358.3,21192,0)
  1.  ;;=11056^^69^870^44^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21192,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21192,1,2,0)
  1.  ;;=2^11056
  1.  ;;^UTILITY(U,$J,358.3,21192,1,3,0)
  1.  ;;=3^TRIM CORN/CALLOUS, 2 TO 4
  1.  ;;^UTILITY(U,$J,358.3,21193,0)
  1.  ;;=11057^^69^870^45^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21193,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21193,1,2,0)
  1.  ;;=2^11057
  1.  ;;^UTILITY(U,$J,358.3,21193,1,3,0)
  1.  ;;=3^TRIM CORN/CALLOUS, 5 OR MORE
  1.  ;;^UTILITY(U,$J,358.3,21194,0)
  1.  ;;=12011^^69^870^38^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21194,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21194,1,2,0)
  1.  ;;=2^12011
  1.  ;;^UTILITY(U,$J,358.3,21194,1,3,0)
  1.  ;;=3^SUTURE SIMPLE WOUND,FACE,2.5 CM OR <
  1.  ;;^UTILITY(U,$J,358.3,21195,0)
  1.  ;;=97597^^69^870^12^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21195,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21195,1,2,0)
  1.  ;;=2^97597
  1.  ;;^UTILITY(U,$J,358.3,21195,1,3,0)
  1.  ;;=3^DEBRIDEMENT OPEN WND 1ST 20SQ CM
  1.  ;;^UTILITY(U,$J,358.3,21196,0)
  1.  ;;=97598^^69^870^13^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21196,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21196,1,2,0)
  1.  ;;=2^97598
  1.  ;;^UTILITY(U,$J,358.3,21196,1,3,0)
  1.  ;;=3^DEBRIDEMENT OPEN WND EA ADDL 20SQ CM
  1.  ;;^UTILITY(U,$J,358.3,21197,0)
  1.  ;;=11200^^69^870^35^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21197,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21197,1,2,0)
  1.  ;;=2^11200
  1.  ;;^UTILITY(U,$J,358.3,21197,1,3,0)
  1.  ;;=3^REMOVAL SKIN TAGS,UP TO 15 LESIONS
  1.  ;;^UTILITY(U,$J,358.3,21198,0)
  1.  ;;=11201^^69^870^34^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21198,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21198,1,2,0)
  1.  ;;=2^11201
  1.  ;;^UTILITY(U,$J,358.3,21198,1,3,0)
  1.  ;;=3^REMOVAL SKIN TAGS,EA ADDL 10 LESIONS
  1.  ;;^UTILITY(U,$J,358.3,21199,0)
  1.  ;;=10030^^69^870^24^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21199,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21199,1,2,0)
  1.  ;;=2^10030
  1.  ;;^UTILITY(U,$J,358.3,21199,1,3,0)
  1.  ;;=3^IMAGE GUIDED COLLEC BY CATH,ABSCESS
  1.  ;;^UTILITY(U,$J,358.3,21200,0)
  1.  ;;=20604^^69^870^9^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21200,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21200,1,2,0)
  1.  ;;=2^20604
  1.  ;;^UTILITY(U,$J,358.3,21200,1,3,0)
  1.  ;;=3^ARTHROCENTESIS,SMALL JT W/ US GUIDANCE
  1.  ;;^UTILITY(U,$J,358.3,21201,0)
  1.  ;;=20606^^69^870^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21201,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21201,1,2,0)
  1.  ;;=2^20606
  1.  ;;^UTILITY(U,$J,358.3,21201,1,3,0)
  1.  ;;=3^ARTHROCENTESIS,INTERMEDIATE JT W/ US GUIDANCE
  1.  ;;^UTILITY(U,$J,358.3,21202,0)
  1.  ;;=20611^^69^870^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21202,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21202,1,2,0)
  1.  ;;=2^20611
  1.  ;;^UTILITY(U,$J,358.3,21202,1,3,0)
  1.  ;;=3^ARTHROCENTESIS,MAJOR JT W/ US GUIDANCE
  1.  ;;^UTILITY(U,$J,358.3,21203,0)
  1.  ;;=10021^^69^870^20^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21203,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21203,1,2,0)
  1.  ;;=2^10021
  1.  ;;^UTILITY(U,$J,358.3,21203,1,3,0)
  1.  ;;=3^FNA BX W/O GUIDANCE,1ST LESION
  1.  ;;^UTILITY(U,$J,358.3,21204,0)
  1.  ;;=11300^^69^870^36^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21204,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21204,1,2,0)
  1.  ;;=2^11300
  1.  ;;^UTILITY(U,$J,358.3,21204,1,3,0)
  1.  ;;=3^SHAVE EPIDERMAL LESION,TRUNK/EXT,0.5 CM OR <
  1.  ;;^UTILITY(U,$J,358.3,21205,0)
  1.  ;;=11301^^69^870^37^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21205,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21205,1,2,0)
  1.  ;;=2^11301
  1.  ;;^UTILITY(U,$J,358.3,21205,1,3,0)
  1.  ;;=3^SHAVE EPIDERMAL LESION,TRUNK/EXT,0.6-1.0 CM
  1.  ;;^UTILITY(U,$J,358.3,21206,0)
  1.  ;;=12013^^69^870^39^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21206,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21206,1,2,0)
  1.  ;;=2^12013
  1.  ;;^UTILITY(U,$J,358.3,21206,1,3,0)
  1.  ;;=3^SUTURE SIMPLE WOUND,FACE,2.6-5.0 CM
  1.  ;;^UTILITY(U,$J,358.3,21207,0)
  1.  ;;=69209^^69^870^32^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21207,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21207,1,2,0)
  1.  ;;=2^69209
  1.  ;;^UTILITY(U,$J,358.3,21207,1,3,0)
  1.  ;;=3^REMOVAL IMPACTED CERUMEN/IRRIGATE/LAVAGE
  1.  ;;^UTILITY(U,$J,358.3,21208,0)
  1.  ;;=69210^^69^870^33^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21208,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21208,1,2,0)
  1.  ;;=2^69210
  1.  ;;^UTILITY(U,$J,358.3,21208,1,3,0)
  1.  ;;=3^REMOVAL IMPACTED CERUMEN/REQ INSTRUMENTS
  1.  ;;^UTILITY(U,$J,358.3,21209,0)
  1.  ;;=97810^^69^870^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21209,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21209,1,2,0)
  1.  ;;=2^97810
  1.  ;;^UTILITY(U,$J,358.3,21209,1,3,0)
  1.  ;;=3^ACUPUNCTURE,1/+ NEEDLES W/O STIM,1ST 15 MIN
  1.  ;;^UTILITY(U,$J,358.3,21210,0)
  1.  ;;=97811^^69^870^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21210,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21210,1,2,0)
  1.  ;;=2^97811
  1.  ;;^UTILITY(U,$J,358.3,21210,1,3,0)
  1.  ;;=3^ACUPUNCTURE,1/+ NEEDLES W/O STIM,EA ADDL 15 MIN
  1.  ;;^UTILITY(U,$J,358.3,21211,0)
  1.  ;;=97813^^69^870^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21211,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21211,1,2,0)
  1.  ;;=2^97813
  1.  ;;^UTILITY(U,$J,358.3,21211,1,3,0)
  1.  ;;=3^ACUPUNCTURE,1/+ NEEDLES W/ STIM,1ST 15 MIN
  1.  ;;^UTILITY(U,$J,358.3,21212,0)
  1.  ;;=97814^^69^870^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21212,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21212,1,2,0)
  1.  ;;=2^97814
  1.  ;;^UTILITY(U,$J,358.3,21212,1,3,0)
  1.  ;;=3^ACUPUNCTURE,1/+ NEEDLES W/ STIM,EA ADDL 15 MIN
  1.  ;;^UTILITY(U,$J,358.3,21213,0)
  1.  ;;=10004^^69^870^21^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21213,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21213,1,2,0)
  1.  ;;=2^10004
  1.  ;;^UTILITY(U,$J,358.3,21213,1,3,0)
  1.  ;;=3^FNA BX W/O GUIDANCE,EA ADDL LESION
  1.  ;;^UTILITY(U,$J,358.3,21214,0)
  1.  ;;=11104^^69^870^30^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21214,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21214,1,2,0)
  1.  ;;=2^11104
  1.  ;;^UTILITY(U,$J,358.3,21214,1,3,0)
  1.  ;;=3^PUNCH BX,SKIN,1ST LESION
  1.  ;;^UTILITY(U,$J,358.3,21215,0)
  1.  ;;=11105^^69^870^31^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21215,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21215,1,2,0)
  1.  ;;=2^11105
  1.  ;;^UTILITY(U,$J,358.3,21215,1,3,0)
  1.  ;;=3^PUNCH BX,SKIN,EA ADDL LESION
  1.  ;;^UTILITY(U,$J,358.3,21216,0)
  1.  ;;=11102^^69^870^42^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21216,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21216,1,2,0)
  1.  ;;=2^11102
  1.  ;;^UTILITY(U,$J,358.3,21216,1,3,0)
  1.  ;;=3^TANGENTIAL BX,SKIN,1ST LESION
  1.  ;;^UTILITY(U,$J,358.3,21217,0)
  1.  ;;=11103^^69^870^43^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21217,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21217,1,2,0)
  1.  ;;=2^11103
  1.  ;;^UTILITY(U,$J,358.3,21217,1,3,0)
  1.  ;;=3^TANGENTIAL BX,SKIN,EA ADDL LESION
  1.  ;;^UTILITY(U,$J,358.3,21218,0)
  1.  ;;=17110^^69^870^18^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21218,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21218,1,2,0)
  1.  ;;=2^17110
  1.  ;;^UTILITY(U,$J,358.3,21218,1,3,0)
  1.  ;;=3^DESTR LASER SURG,ELECTRO SURG,NOT SKIN TAGS,1-14
  1.  ;;^UTILITY(U,$J,358.3,21219,0)
  1.  ;;=17111^^69^870^19^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21219,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21219,1,2,0)
  1.  ;;=2^17111
  1.  ;;^UTILITY(U,$J,358.3,21219,1,3,0)
  1.  ;;=3^DESTR LASER SURG,ELECTRO SURG,NOT SKIN TAGS,15+
  1.  ;;^UTILITY(U,$J,358.3,21220,0)
  1.  ;;=M0076^^69^870^29^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21220,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21220,1,2,0)
  1.  ;;=2^M0076
  1.  ;;^UTILITY(U,$J,358.3,21220,1,3,0)
  1.  ;;=3^PROLOTHERAPY
  1.  ;;^UTILITY(U,$J,358.3,21221,0)
  1.  ;;=G9770^^69^870^28^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21221,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21221,1,2,0)
  1.  ;;=2^G9770
  1.  ;;^UTILITY(U,$J,358.3,21221,1,3,0)
  1.  ;;=3^PERIPHERAL NERVE BLOCK
  1.  ;;^UTILITY(U,$J,358.3,21222,0)
  1.  ;;=29105^^69^871^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21222,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21222,1,2,0)
  1.  ;;=2^29105
  1.  ;;^UTILITY(U,$J,358.3,21222,1,3,0)
  1.  ;;=3^LONG ARM SPLINT
  1.  ;;^UTILITY(U,$J,358.3,21223,0)
  1.  ;;=29125^^69^871^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21223,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21223,1,2,0)
  1.  ;;=2^29125
  1.  ;;^UTILITY(U,$J,358.3,21223,1,3,0)
  1.  ;;=3^SHORT ARM SPLINT; STATIC
  1.  ;;^UTILITY(U,$J,358.3,21224,0)
  1.  ;;=29126^^69^871^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21224,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21224,1,2,0)
  1.  ;;=2^29126
  1.  ;;^UTILITY(U,$J,358.3,21224,1,3,0)
  1.  ;;=3^SHORT ARM SPLINT; DYNAMIC
  1.  ;;^UTILITY(U,$J,358.3,21225,0)
  1.  ;;=29130^^69^871^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21225,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21225,1,2,0)
  1.  ;;=2^29130
  1.  ;;^UTILITY(U,$J,358.3,21225,1,3,0)
  1.  ;;=3^FINGER SPLINT
  1.  ;;^UTILITY(U,$J,358.3,21226,0)
  1.  ;;=99078^^69^872^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21226,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21226,1,2,0)
  1.  ;;=2^99078
  1.  ;;^UTILITY(U,$J,358.3,21226,1,3,0)
  1.  ;;=3^GROUP HEALTH EDUCATION
  1.  ;;^UTILITY(U,$J,358.3,21227,0)
  1.  ;;=G0109^^69^872^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21227,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21227,1,2,0)
  1.  ;;=2^G0109
  1.  ;;^UTILITY(U,$J,358.3,21227,1,3,0)
  1.  ;;=3^DIAB MGMT TRN,GRP,EA 30MIN
  1.  ;;^UTILITY(U,$J,358.3,21228,0)
  1.  ;;=98960^^69^872^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21228,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21228,1,2,0)
  1.  ;;=2^98960
  1.  ;;^UTILITY(U,$J,358.3,21228,1,3,0)
  1.  ;;=3^SELF-MGMT EDUC/TRAIN,1 PT,EA 30MIN
  1.  ;;^UTILITY(U,$J,358.3,21229,0)
  1.  ;;=98961^^69^872^5^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21229,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21229,1,2,0)
  1.  ;;=2^98961
  1.  ;;^UTILITY(U,$J,358.3,21229,1,3,0)
  1.  ;;=3^SELF-MGMT EDUC/TRAIN,2-4 PT,EA 30MIN
  1.  ;;^UTILITY(U,$J,358.3,21230,0)
  1.  ;;=98962^^69^872^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21230,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21230,1,2,0)
  1.  ;;=2^98962
  1.  ;;^UTILITY(U,$J,358.3,21230,1,3,0)
  1.  ;;=3^SELF-MGMT EDUC/TRAIN,5-8 PT,EA 30MIN
  1.  ;;^UTILITY(U,$J,358.3,21231,0)
  1.  ;;=G0108^^69^872^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21231,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21231,1,2,0)
  1.  ;;=2^G0108
  1.  ;;^UTILITY(U,$J,358.3,21231,1,3,0)
  1.  ;;=3^DIAB MGMT TRN,INDIV,EA 30MIN
  1.  ;;^UTILITY(U,$J,358.3,21232,0)
  1.  ;;=95115^^69^873^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21232,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21232,1,2,0)
  1.  ;;=2^95115
  1.  ;;^UTILITY(U,$J,358.3,21232,1,3,0)
  1.  ;;=3^ALLERGY SHOT,SINGLE
  1.  ;;^UTILITY(U,$J,358.3,21233,0)
  1.  ;;=95117^^69^873^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21233,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21233,1,2,0)
  1.  ;;=2^95117
  1.  ;;^UTILITY(U,$J,358.3,21233,1,3,0)
  1.  ;;=3^ALLERGY SHOT,2 OR MORE
  1.  ;;^UTILITY(U,$J,358.3,21234,0)
  1.  ;;=93005^^69^874^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21234,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21234,1,2,0)
  1.  ;;=2^93005
  1.  ;;^UTILITY(U,$J,358.3,21234,1,3,0)
  1.  ;;=3^EKG,TRACING ONLY,NO RPT
  1.  ;;^UTILITY(U,$J,358.3,21235,0)
  1.  ;;=99406^^69^875^3^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21235,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21235,1,2,0)
  1.  ;;=2^99406
  1.  ;;^UTILITY(U,$J,358.3,21235,1,3,0)
  1.  ;;=3^BEHAV CHNG TOBACCO USE 3-10 MIN
  1.  ;;^UTILITY(U,$J,358.3,21236,0)
  1.  ;;=99407^^69^875^4^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21236,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21236,1,2,0)
  1.  ;;=2^99407
  1.  ;;^UTILITY(U,$J,358.3,21236,1,3,0)
  1.  ;;=3^BEHAV CHNG TOBACCO USE > 10 MIN
  1.  ;;^UTILITY(U,$J,358.3,21237,0)
  1.  ;;=99408^^69^875^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21237,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21237,1,2,0)
  1.  ;;=2^99408
  1.  ;;^UTILITY(U,$J,358.3,21237,1,3,0)
  1.  ;;=3^BEHAV CHNG ALC/SUBS ABUSE 15-30 MIN
  1.  ;;^UTILITY(U,$J,358.3,21238,0)
  1.  ;;=99409^^69^875^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21238,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21238,1,2,0)
  1.  ;;=2^99409
  1.  ;;^UTILITY(U,$J,358.3,21238,1,3,0)
  1.  ;;=3^BEHAV CHNG ALC/SUBS ABUSE > 30 MIN
  1.  ;;^UTILITY(U,$J,358.3,21239,0)
  1.  ;;=96160^^69^876^2^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21239,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21239,1,2,0)
  1.  ;;=2^96160
  1.  ;;^UTILITY(U,$J,358.3,21239,1,3,0)
  1.  ;;=3^HLTH RISK ASSMT,PATIENT-FOCUSED
  1.  ;;^UTILITY(U,$J,358.3,21240,0)
  1.  ;;=96161^^69^876^1^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21240,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21240,1,2,0)
  1.  ;;=2^96161
  1.  ;;^UTILITY(U,$J,358.3,21240,1,3,0)
  1.  ;;=3^HLTH RISK ASSMT,CAREGIVER-FOCUSED
  1.  ;;^UTILITY(U,$J,358.3,21241,0)
  1.  ;;=G0101^^69^877^11^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21241,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21241,1,2,0)
  1.  ;;=2^G0101
  1.  ;;^UTILITY(U,$J,358.3,21241,1,3,0)
  1.  ;;=3^PELVIC EXAM & CLIN BREAST SCRN
  1.  ;;^UTILITY(U,$J,358.3,21242,0)
  1.  ;;=Q0091^^69^877^10^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21242,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21242,1,2,0)
  1.  ;;=2^Q0091
  1.  ;;^UTILITY(U,$J,358.3,21242,1,3,0)
  1.  ;;=3^PAP SMEAR
  1.  ;;^UTILITY(U,$J,358.3,21243,0)
  1.  ;;=Q0111^^69^877^14^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21243,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21243,1,2,0)
  1.  ;;=2^Q0111
  1.  ;;^UTILITY(U,$J,358.3,21243,1,3,0)
  1.  ;;=3^WET MOUNTS/ W PREPARATIONS  
  1.  ;;^UTILITY(U,$J,358.3,21244,0)
  1.  ;;=83986^^69^877^7^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21244,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21244,1,2,0)
  1.  ;;=2^83986
  1.  ;;^UTILITY(U,$J,358.3,21244,1,3,0)
  1.  ;;=3^FEMEXAM PH & AMINES TEST CARD
  1.  ;;^UTILITY(U,$J,358.3,21245,0)
  1.  ;;=58100^^69^877^6^^^^1
  1.  ;;^UTILITY(U,$J,358.3,21245,1,0)
  1.  ;;=^358.31IA^3^2
  1.  ;;^UTILITY(U,$J,358.3,21245,1,2,0)
  1.  ;;=2^58100
  1.  ;;^UTILITY(U,$J,358.3,21245,1,3,0)
  1.  ;;=3^ENDOMETRIAL BIOPSY