LEX10PLA ;ISL/KER - ICD-10 Procedure Lookup Abbreviations ;04/21/2014
;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 10
;
; Global Variables
; None
;
Q
SH(X,Y) ; Shorten Text
S X=$G(X) N LEXL S LEXL=+($G(Y)) Q:+LEXL'>0 X
S X=$$SW(X,"Performance Intensity Phonetically Balanced Speech Discrim","Perf Inten Phonetic Bal Speech Discr") Q:$L(X)'>LEXL X
S X=$$SW(X,"Lateral Transverse Process Approach, Posterior Column","Lat Trans Proc App, Posterior Column") Q:$L(X)'>LEXL X
S X=$$SW(X,"Application/Use/Care of Assist/Adapt/Support/Protect Devices","Application/Use/Care of Devices") Q:$L(X)'>LEXL X
S X=$$SW(X,"Assistive, Adaptive, Supportive or Protective","Assist/Adapt/Support/Protect") Q:$L(X)'>LEXL X
S X=$$SW(X," and "," & ") Q:$L(X)'>LEXL X
S X=$$SW(X," / ","/") Q:$L(X)'>LEXL X
S X=$$SW(X,"Assistive, Adaptive,Supportive or Protective","Assist/Adapt/Support/Protect") Q:$L(X)'>LEXL X
S X=$$SW(X,"Application, Proper Use & Care","Application/Use/Care") Q:$L(X)'>LEXL X
S X=$$SW(X," - Lower Back/Lower Extremity","-Lower Back/Extrem") Q:$L(X)'>LEXL X
S X=$$SW(X," - Upper Back/Upper Extremity","-Upper Back/Extrem") Q:$L(X)'>LEXL X
S X=$$SW(X,"Electroacoustic","Elctacou.") Q:$L(X)'>LEXL X
S X=$$SW(X,"Acoustic","Acou.") Q:$L(X)'>LEXL X
S X=$$SW(X,"Listening","Listen") Q:$L(X)'>LEXL X
S X=$$SW(X,"Devices","Dev") Q:$L(X)'>LEXL X
S X=$$SW(X,"Device","Dev") Q:$L(X)'>LEXL X
S X=$$SW(X,"Vocational","Voc") Q:$L(X)'>LEXL X
S X=$$SW(X,"Activities","Act") Q:$L(X)'>LEXL X
S X=$$SW(X," Check"," Chk") Q:$L(X)'>LEXL X
S X=$$SW(X,"Other","Oth") Q:$L(X)'>LEXL X
S X=$$SW(X,"Alternate","Alt") Q:$L(X)'>LEXL X
S X=$$SW(X,"Nuclear","Nuc") Q:$L(X)'>LEXL X
S X=$$SW(X,"Medicine","Med") Q:$L(X)'>LEXL X
S X=$$SW(X,"Imaging","Img") Q:$L(X)'>LEXL X
S X=$$SW(X,"Balanced","Bal") Q:$L(X)'>LEXL X
S X=$$SW(X,"Balance","Bal") Q:$L(X)'>LEXL X
S X=$$SW(X,"Loudness","Loud") Q:$L(X)'>LEXL X
S X=$$SW(X,"Intraoperative","Intraoper") Q:$L(X)'>LEXL X
S X=$$SW(X,"Particulate","Particul.") Q:$L(X)'>LEXL X
S X=$$SW(X,"Substance","Subst") Q:$L(X)'>LEXL X
S X=$$SW(X,"Screening","Screen") Q:$L(X)'>LEXL X
S X=$$SW(X,"Diagnostic","Diag") Q:$L(X)'>LEXL X
S X=$$SW(X,"Endoscopic","Endo") Q:$L(X)'>LEXL X
S X=$$SW(X,"Endoscopy","Endo") Q:$L(X)'>LEXL X
S X=$$SW(X,"Circulation","Circul.") Q:$L(X)'>LEXL X
S X=$$SW(X,"Communication","Comm") Q:$L(X)'>LEXL X
S X=$$SW(X,"Community/Work","Comm") Q:$L(X)'>LEXL X
S X=$$SW(X,"Irrigation","Irrigat.") Q:$L(X)'>LEXL X
S X=$$SW(X," Systems"," Sys") Q:$L(X)'>LEXL X
S X=$$SW(X," System"," Sys") Q:$L(X)'>LEXL X
S X=$$SW(X,"Anatomical ","Anat. ") Q:$L(X)'>LEXL X
S X=$$SW(X,"Subcutaneous","Subcut.") Q:$L(X)'>LEXL X
S X=$$SW(X,"Extremity","Extrem") Q:$L(X)'>LEXL X
S X=$$SW(X,"Extremities","Extrem") Q:$L(X)'>LEXL X
S X=$$SW(X,"Musculoskeletal","Musclskel") Q:$L(X)'>LEXL X
S X=$$SW(X,"Disorders","Dis") Q:$L(X)'>LEXL X
S X=$$SW(X,"Communicative","Comm") Q:$L(X)'>LEXL X
S X=$$SW(X,"Cognitive","Cog") Q:$L(X)'>LEXL X
S X=$$SW(X,"Awareness","Aware") Q:$L(X)'>LEXL X
S X=$$SW(X,"Processing","Process") Q:$L(X)'>LEXL X
S X=$$SW(X,"Positive","Pos") Q:$L(X)'>LEXL X
S X=$$SW(X,"Negative","Neg") Q:$L(X)'>LEXL X
S X=$$SW(X,"Multiple","Mult") Q:$L(X)'>LEXL X
S X=$$SW(X,"Natural or Artificial","Nat/Artif") Q:$L(X)'>LEXL X
S X=$$SW(X,"Natural/Artificial","Nat/Artif") Q:$L(X)'>LEXL X
S X=$$SW(X,"Physical","Phys") Q:$L(X)'>LEXL X
S X=$$SW(X,"Rehabilitation","Rehab") Q:$L(X)'>LEXL X
S X=$$SW(X,"Audiology","Audio") Q:$L(X)'>LEXL X
S X=$$SW(X,"Instrumental","Instr") Q:$L(X)'>LEXL X
S X=$$SW(X,"Swalowing","Swallow") Q:$L(X)'>LEXL X
S X=$$SW(X,"Performance","Perf") Q:$L(X)'>LEXL X
S X=$$SW(X,"Phonetically","Phonetic") Q:$L(X)'>LEXL X
S X=$$SW(X,"Intensity","Inten") Q:$L(X)'>LEXL X
S X=$$SW(X,"Performance","Perf") Q:$L(X)'>LEXL X
S X=$$SW(X,"Discrim","Discr") Q:$L(X)'>LEXL X
S X=$$SW(X,"Processing","Process") Q:$L(X)'>LEXL X
S X=$$SW(X,"Central","Cent") Q:$L(X)'>LEXL X
S X=$$SW(X,"Auditory","Audi") Q:$L(X)'>LEXL X
S X=$$SW(X,"Assessment","Assess") Q:$L(X)'>LEXL X
S X=$$SW(X,"Language","Lang") Q:$L(X)'>LEXL X
S X=$$SW(X,"Pathology","Path") Q:$L(X)'>LEXL X
S X=$$SW(X,"Counseling","Coun") Q:$L(X)'>LEXL X
S X=$$SW(X,"Prevention","Prev") Q:$L(X)'>LEXL X
S X=$$SW(X,"Abdominal","Abd") Q:$L(X)'>LEXL X
S X=$$SW(X,"Unilateral","Unil") Q:$L(X)'>LEXL X
S X=$$SW(X,"Bilateral","Bil") Q:$L(X)'>LEXL X
S X=$$SW(X,"Bile Ducts & Pancreatic Ducts","Bile & Pancreatic Ducts") Q:$L(X)'>LEXL X
S X=$$SW(X,"Positron","Pos") Q:$L(X)'>LEXL X
S X=$$SW(X,"Arteries","Art") Q:$L(X)'>LEXL X
S X=$$SW(X,"Artery","Art") Q:$L(X)'>LEXL X
S X=$$SW(X,"Left","Lt") Q:$L(X)'>LEXL X
S X=$$SW(X,"Right","Rt") Q:$L(X)'>LEXL X
S X=$$SW(X,"Skeleton","Skel") Q:$L(X)'>LEXL X
S X=$$SW(X,"Tissue & Fascia","Tissue/Fascia") Q:$L(X)'>LEXL X
S X=$$SW(X,"Anterior","Ant") Q:$L(X)'>LEXL X
S X=$$SW(X,"Posterior","Post") Q:$L(X)'>LEXL X
S X=$$SW(X,"Myocutaneous","Myocut") Q:$L(X)'>LEXL X
S X=$$SW(X,"Recombinant","Recomb") Q:$L(X)'>LEXL X
S X=$$SW(X,"Except","Exc") Q:$L(X)'>LEXL X
S X=$$SW(X,"Nonautologous","Nonauto") Q:$L(X)'>LEXL X
S X=$$SW(X,"Stabilization","Stab") Q:$L(X)'>LEXL X
S X=$$SW(X,"Synthetic","Syn") Q:$L(X)'>LEXL X
S X=$$SW(X,"Substitute","Sub") Q:$L(X)'>LEXL X
S X=$$SW(X,"Percutaneous","Percut") Q:$L(X)'>LEXL X
S X=$$SW(X,"Opening","Open") Q:$L(X)'>LEXL X
S X=$$SW(X,"Single","Sin") Q:$L(X)'>LEXL X
S X=$$SW(X,"Channel","Chan") Q:$L(X)'>LEXL X
S X=$$SW(X,"Prosthesis","Prost") Q:$L(X)'>LEXL X
S X=$$SW(X,"Transverse","Transv") Q:$L(X)'>LEXL X
S X=$$SW(X,"Inferior","Infer") Q:$L(X)'>LEXL X
S X=$$SW(X,"Deep","Dp") Q:$L(X)'>LEXL X
S X=$$SW(X,"LEXLgthening","LEXLgthen") Q:$L(X)'>LEXL X
S X=$$SW(X,"Endo Assist","Endo Ast") Q:$L(X)'>LEXL X
S X=$$SW(X,"Interspinous","Interspin") Q:$L(X)'>LEXL X
S X=$$SW(X,"Mult Chan","Mul Chan") Q:$L(X)'>LEXL X
S X=$$SW(X,"Perforator","Perfor") Q:$L(X)'>LEXL X
S X=$$SW(X,"Superficial","Superfic") Q:$L(X)'>LEXL X
S X=$$SW(X,"Resynchronization","Resync") Q:$L(X)'>LEXL X
S X=$$SW(X,"Defibrillator","Defib") Q:$L(X)'>LEXL X
S X=$$SW(X,"Generator","Gen") Q:$L(X)'>LEXL X
S X=$$SW(X,"Stimulator","Stim") Q:$L(X)'>LEXL X
S X=$$SW(X,"Rechargeable","Recharg") Q:$L(X)'>LEXL X
S X=$$SW(X,"Responsive","Respon") Q:$L(X)'>LEXL X
Q X
SW(LEX,X,Y) ; Swap Word X for Word Y
S LEX=$G(LEX),X=$G(X),Y=$G(Y) Q:'$L(LEX) Q:'$L(X)
F Q:LEX'[X S:LEX[X LEX=$P(LEX,X,1)_Y_$P(LEX,X,2,299)
S X=LEX
Q X
LEX10PLA ;ISL/KER - ICD-10 Procedure Lookup Abbreviations ;04/21/2014
+1 ;;2.0;LEXICON UTILITY;**80**;Sep 23, 1996;Build 10
+2 ;
+3 ; Global Variables
+4 ; None
+5 ;
+6 QUIT
SH(X,Y) ; Shorten Text
+1 SET X=$GET(X)
NEW LEXL
SET LEXL=+($GET(Y))
IF +LEXL'>0
QUIT X
+2 SET X=$$SW(X,"Performance Intensity Phonetically Balanced Speech Discrim","Perf Inten Phonetic Bal Speech Discr")
IF $LENGTH(X)'>LEXL
QUIT X
+3 SET X=$$SW(X,"Lateral Transverse Process Approach, Posterior Column","Lat Trans Proc App, Posterior Column")
IF $LENGTH(X)'>LEXL
QUIT X
+4 SET X=$$SW(X,"Application/Use/Care of Assist/Adapt/Support/Protect Devices","Application/Use/Care of Devices")
IF $LENGTH(X)'>LEXL
QUIT X
+5 SET X=$$SW(X,"Assistive, Adaptive, Supportive or Protective","Assist/Adapt/Support/Protect")
IF $LENGTH(X)'>LEXL
QUIT X
+6 SET X=$$SW(X," and "," & ")
IF $LENGTH(X)'>LEXL
QUIT X
+7 SET X=$$SW(X," / ","/")
IF $LENGTH(X)'>LEXL
QUIT X
+8 SET X=$$SW(X,"Assistive, Adaptive,Supportive or Protective","Assist/Adapt/Support/Protect")
IF $LENGTH(X)'>LEXL
QUIT X
+9 SET X=$$SW(X,"Application, Proper Use & Care","Application/Use/Care")
IF $LENGTH(X)'>LEXL
QUIT X
+10 SET X=$$SW(X," - Lower Back/Lower Extremity","-Lower Back/Extrem")
IF $LENGTH(X)'>LEXL
QUIT X
+11 SET X=$$SW(X," - Upper Back/Upper Extremity","-Upper Back/Extrem")
IF $LENGTH(X)'>LEXL
QUIT X
+12 SET X=$$SW(X,"Electroacoustic","Elctacou.")
IF $LENGTH(X)'>LEXL
QUIT X
+13 SET X=$$SW(X,"Acoustic","Acou.")
IF $LENGTH(X)'>LEXL
QUIT X
+14 SET X=$$SW(X,"Listening","Listen")
IF $LENGTH(X)'>LEXL
QUIT X
+15 SET X=$$SW(X,"Devices","Dev")
IF $LENGTH(X)'>LEXL
QUIT X
+16 SET X=$$SW(X,"Device","Dev")
IF $LENGTH(X)'>LEXL
QUIT X
+17 SET X=$$SW(X,"Vocational","Voc")
IF $LENGTH(X)'>LEXL
QUIT X
+18 SET X=$$SW(X,"Activities","Act")
IF $LENGTH(X)'>LEXL
QUIT X
+19 SET X=$$SW(X," Check"," Chk")
IF $LENGTH(X)'>LEXL
QUIT X
+20 SET X=$$SW(X,"Other","Oth")
IF $LENGTH(X)'>LEXL
QUIT X
+21 SET X=$$SW(X,"Alternate","Alt")
IF $LENGTH(X)'>LEXL
QUIT X
+22 SET X=$$SW(X,"Nuclear","Nuc")
IF $LENGTH(X)'>LEXL
QUIT X
+23 SET X=$$SW(X,"Medicine","Med")
IF $LENGTH(X)'>LEXL
QUIT X
+24 SET X=$$SW(X,"Imaging","Img")
IF $LENGTH(X)'>LEXL
QUIT X
+25 SET X=$$SW(X,"Balanced","Bal")
IF $LENGTH(X)'>LEXL
QUIT X
+26 SET X=$$SW(X,"Balance","Bal")
IF $LENGTH(X)'>LEXL
QUIT X
+27 SET X=$$SW(X,"Loudness","Loud")
IF $LENGTH(X)'>LEXL
QUIT X
+28 SET X=$$SW(X,"Intraoperative","Intraoper")
IF $LENGTH(X)'>LEXL
QUIT X
+29 SET X=$$SW(X,"Particulate","Particul.")
IF $LENGTH(X)'>LEXL
QUIT X
+30 SET X=$$SW(X,"Substance","Subst")
IF $LENGTH(X)'>LEXL
QUIT X
+31 SET X=$$SW(X,"Screening","Screen")
IF $LENGTH(X)'>LEXL
QUIT X
+32 SET X=$$SW(X,"Diagnostic","Diag")
IF $LENGTH(X)'>LEXL
QUIT X
+33 SET X=$$SW(X,"Endoscopic","Endo")
IF $LENGTH(X)'>LEXL
QUIT X
+34 SET X=$$SW(X,"Endoscopy","Endo")
IF $LENGTH(X)'>LEXL
QUIT X
+35 SET X=$$SW(X,"Circulation","Circul.")
IF $LENGTH(X)'>LEXL
QUIT X
+36 SET X=$$SW(X,"Communication","Comm")
IF $LENGTH(X)'>LEXL
QUIT X
+37 SET X=$$SW(X,"Community/Work","Comm")
IF $LENGTH(X)'>LEXL
QUIT X
+38 SET X=$$SW(X,"Irrigation","Irrigat.")
IF $LENGTH(X)'>LEXL
QUIT X
+39 SET X=$$SW(X," Systems"," Sys")
IF $LENGTH(X)'>LEXL
QUIT X
+40 SET X=$$SW(X," System"," Sys")
IF $LENGTH(X)'>LEXL
QUIT X
+41 SET X=$$SW(X,"Anatomical ","Anat. ")
IF $LENGTH(X)'>LEXL
QUIT X
+42 SET X=$$SW(X,"Subcutaneous","Subcut.")
IF $LENGTH(X)'>LEXL
QUIT X
+43 SET X=$$SW(X,"Extremity","Extrem")
IF $LENGTH(X)'>LEXL
QUIT X
+44 SET X=$$SW(X,"Extremities","Extrem")
IF $LENGTH(X)'>LEXL
QUIT X
+45 SET X=$$SW(X,"Musculoskeletal","Musclskel")
IF $LENGTH(X)'>LEXL
QUIT X
+46 SET X=$$SW(X,"Disorders","Dis")
IF $LENGTH(X)'>LEXL
QUIT X
+47 SET X=$$SW(X,"Communicative","Comm")
IF $LENGTH(X)'>LEXL
QUIT X
+48 SET X=$$SW(X,"Cognitive","Cog")
IF $LENGTH(X)'>LEXL
QUIT X
+49 SET X=$$SW(X,"Awareness","Aware")
IF $LENGTH(X)'>LEXL
QUIT X
+50 SET X=$$SW(X,"Processing","Process")
IF $LENGTH(X)'>LEXL
QUIT X
+51 SET X=$$SW(X,"Positive","Pos")
IF $LENGTH(X)'>LEXL
QUIT X
+52 SET X=$$SW(X,"Negative","Neg")
IF $LENGTH(X)'>LEXL
QUIT X
+53 SET X=$$SW(X,"Multiple","Mult")
IF $LENGTH(X)'>LEXL
QUIT X
+54 SET X=$$SW(X,"Natural or Artificial","Nat/Artif")
IF $LENGTH(X)'>LEXL
QUIT X
+55 SET X=$$SW(X,"Natural/Artificial","Nat/Artif")
IF $LENGTH(X)'>LEXL
QUIT X
+56 SET X=$$SW(X,"Physical","Phys")
IF $LENGTH(X)'>LEXL
QUIT X
+57 SET X=$$SW(X,"Rehabilitation","Rehab")
IF $LENGTH(X)'>LEXL
QUIT X
+58 SET X=$$SW(X,"Audiology","Audio")
IF $LENGTH(X)'>LEXL
QUIT X
+59 SET X=$$SW(X,"Instrumental","Instr")
IF $LENGTH(X)'>LEXL
QUIT X
+60 SET X=$$SW(X,"Swalowing","Swallow")
IF $LENGTH(X)'>LEXL
QUIT X
+61 SET X=$$SW(X,"Performance","Perf")
IF $LENGTH(X)'>LEXL
QUIT X
+62 SET X=$$SW(X,"Phonetically","Phonetic")
IF $LENGTH(X)'>LEXL
QUIT X
+63 SET X=$$SW(X,"Intensity","Inten")
IF $LENGTH(X)'>LEXL
QUIT X
+64 SET X=$$SW(X,"Performance","Perf")
IF $LENGTH(X)'>LEXL
QUIT X
+65 SET X=$$SW(X,"Discrim","Discr")
IF $LENGTH(X)'>LEXL
QUIT X
+66 SET X=$$SW(X,"Processing","Process")
IF $LENGTH(X)'>LEXL
QUIT X
+67 SET X=$$SW(X,"Central","Cent")
IF $LENGTH(X)'>LEXL
QUIT X
+68 SET X=$$SW(X,"Auditory","Audi")
IF $LENGTH(X)'>LEXL
QUIT X
+69 SET X=$$SW(X,"Assessment","Assess")
IF $LENGTH(X)'>LEXL
QUIT X
+70 SET X=$$SW(X,"Language","Lang")
IF $LENGTH(X)'>LEXL
QUIT X
+71 SET X=$$SW(X,"Pathology","Path")
IF $LENGTH(X)'>LEXL
QUIT X
+72 SET X=$$SW(X,"Counseling","Coun")
IF $LENGTH(X)'>LEXL
QUIT X
+73 SET X=$$SW(X,"Prevention","Prev")
IF $LENGTH(X)'>LEXL
QUIT X
+74 SET X=$$SW(X,"Abdominal","Abd")
IF $LENGTH(X)'>LEXL
QUIT X
+75 SET X=$$SW(X,"Unilateral","Unil")
IF $LENGTH(X)'>LEXL
QUIT X
+76 SET X=$$SW(X,"Bilateral","Bil")
IF $LENGTH(X)'>LEXL
QUIT X
+77 SET X=$$SW(X,"Bile Ducts & Pancreatic Ducts","Bile & Pancreatic Ducts")
IF $LENGTH(X)'>LEXL
QUIT X
+78 SET X=$$SW(X,"Positron","Pos")
IF $LENGTH(X)'>LEXL
QUIT X
+79 SET X=$$SW(X,"Arteries","Art")
IF $LENGTH(X)'>LEXL
QUIT X
+80 SET X=$$SW(X,"Artery","Art")
IF $LENGTH(X)'>LEXL
QUIT X
+81 SET X=$$SW(X,"Left","Lt")
IF $LENGTH(X)'>LEXL
QUIT X
+82 SET X=$$SW(X,"Right","Rt")
IF $LENGTH(X)'>LEXL
QUIT X
+83 SET X=$$SW(X,"Skeleton","Skel")
IF $LENGTH(X)'>LEXL
QUIT X
+84 SET X=$$SW(X,"Tissue & Fascia","Tissue/Fascia")
IF $LENGTH(X)'>LEXL
QUIT X
+85 SET X=$$SW(X,"Anterior","Ant")
IF $LENGTH(X)'>LEXL
QUIT X
+86 SET X=$$SW(X,"Posterior","Post")
IF $LENGTH(X)'>LEXL
QUIT X
+87 SET X=$$SW(X,"Myocutaneous","Myocut")
IF $LENGTH(X)'>LEXL
QUIT X
+88 SET X=$$SW(X,"Recombinant","Recomb")
IF $LENGTH(X)'>LEXL
QUIT X
+89 SET X=$$SW(X,"Except","Exc")
IF $LENGTH(X)'>LEXL
QUIT X
+90 SET X=$$SW(X,"Nonautologous","Nonauto")
IF $LENGTH(X)'>LEXL
QUIT X
+91 SET X=$$SW(X,"Stabilization","Stab")
IF $LENGTH(X)'>LEXL
QUIT X
+92 SET X=$$SW(X,"Synthetic","Syn")
IF $LENGTH(X)'>LEXL
QUIT X
+93 SET X=$$SW(X,"Substitute","Sub")
IF $LENGTH(X)'>LEXL
QUIT X
+94 SET X=$$SW(X,"Percutaneous","Percut")
IF $LENGTH(X)'>LEXL
QUIT X
+95 SET X=$$SW(X,"Opening","Open")
IF $LENGTH(X)'>LEXL
QUIT X
+96 SET X=$$SW(X,"Single","Sin")
IF $LENGTH(X)'>LEXL
QUIT X
+97 SET X=$$SW(X,"Channel","Chan")
IF $LENGTH(X)'>LEXL
QUIT X
+98 SET X=$$SW(X,"Prosthesis","Prost")
IF $LENGTH(X)'>LEXL
QUIT X
+99 SET X=$$SW(X,"Transverse","Transv")
IF $LENGTH(X)'>LEXL
QUIT X
+100 SET X=$$SW(X,"Inferior","Infer")
IF $LENGTH(X)'>LEXL
QUIT X
+101 SET X=$$SW(X,"Deep","Dp")
IF $LENGTH(X)'>LEXL
QUIT X
+102 SET X=$$SW(X,"LEXLgthening","LEXLgthen")
IF $LENGTH(X)'>LEXL
QUIT X
+103 SET X=$$SW(X,"Endo Assist","Endo Ast")
IF $LENGTH(X)'>LEXL
QUIT X
+104 SET X=$$SW(X,"Interspinous","Interspin")
IF $LENGTH(X)'>LEXL
QUIT X
+105 SET X=$$SW(X,"Mult Chan","Mul Chan")
IF $LENGTH(X)'>LEXL
QUIT X
+106 SET X=$$SW(X,"Perforator","Perfor")
IF $LENGTH(X)'>LEXL
QUIT X
+107 SET X=$$SW(X,"Superficial","Superfic")
IF $LENGTH(X)'>LEXL
QUIT X
+108 SET X=$$SW(X,"Resynchronization","Resync")
IF $LENGTH(X)'>LEXL
QUIT X
+109 SET X=$$SW(X,"Defibrillator","Defib")
IF $LENGTH(X)'>LEXL
QUIT X
+110 SET X=$$SW(X,"Generator","Gen")
IF $LENGTH(X)'>LEXL
QUIT X
+111 SET X=$$SW(X,"Stimulator","Stim")
IF $LENGTH(X)'>LEXL
QUIT X
+112 SET X=$$SW(X,"Rechargeable","Recharg")
IF $LENGTH(X)'>LEXL
QUIT X
+113 SET X=$$SW(X,"Responsive","Respon")
IF $LENGTH(X)'>LEXL
QUIT X
+114 QUIT X
SW(LEX,X,Y) ; Swap Word X for Word Y
+1 SET LEX=$GET(LEX)
SET X=$GET(X)
SET Y=$GET(Y)
IF '$LENGTH(LEX)
QUIT
IF '$LENGTH(X)
QUIT
+2 FOR
IF LEX'[X
QUIT
IF LEX[X
SET LEX=$PIECE(LEX,X,1)_Y_$PIECE(LEX,X,2,299)
+3 SET X=LEX
+4 QUIT X
