- LEX10PLA ;ISL/KER - ICD-10 Procedure Lookup Abbreviations ;05/23/2017
- ;;2.0;LEXICON UTILITY;**80,103**;Sep 23, 1996;Build 2
- ;
- ; 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,4000)
- S X=LEX
- Q X
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLEX10PLA 6588 printed Mar 13, 2025@21:08:04 Page 2
- LEX10PLA ;ISL/KER - ICD-10 Procedure Lookup Abbreviations ;05/23/2017
- +1 ;;2.0;LEXICON UTILITY;**80,103**;Sep 23, 1996;Build 2
- +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,4000)
- +3 SET X=LEX
- +4 QUIT X
