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