LEXXM ;ISL/KER - Convert Text to Mix Case ;05/23/2017
Source file <LEXXM.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
MIX(X) | ; Mix Case any length
|
|
LEG(X) | ; Mix Case (Legacy)
|
|
TXT(X,L) | ; Convert Text to Mixed Case
|
|
FULL(X) | ; Convert Text to Mixed Case
|
|
LEX(X,L) | ; Convert Expression to Mixed Case
|
|
ICDDX1(X,V,L) | ; Convert ICD Diagnosis to Mixed Case
|
|
ICDDX2(X,V,L) | ; Convert ICD Diagnosis Description to Mixed Case
|
|
ICDOP1(X,V,L) | ; Convert ICD Procedure to Mixed Case
|
|
ICDOP2(X,V,L) | ; Convert ICD Procedure Description to Mixed Case
|
|
ICPT1(X,V,L) | ; Convert CPT Procedure to Mixed Case
|
|
ICPT2(X,V,L) | ; Convert CPT Procedure Description to Mixed Case
|
|
MOD1(X,V,L) | ; Convert CPT Modifier to Mixed Case
|
|
MOD2(X,V,L) | ; Convert CPT Modifier Description to Mixed Case
|
|
EXP(X) | ; Get Case for Expression X = IEN in 757.01
|
|
CASE(X) | ; Get Case for String X = String of Text
|
|
GETC(X) | ; Set to Mixed/lower/UPPER case
|
|
SW1(X) | ; Switch Text (before setting case)
|
|
SW2(X) | ; Switch Text (after setting case)
|
|
SW3(X) | ; Switch Text (after assembling string)
|
|
EW(X) | ; Display Word Usage
|
|
USE(X) | ; Used
|
|
FN(X) | ; Footnote Removed
|
|
LO(X) | ; Lower Case
|
|
UP(X) | ; Upper Case
|
|
MX(X) | ; Mixed Case
|
|
LD(X) | ; Leading Character
|
|
TRIM(X) | ; Trim Spaces
|
|
TP(X) | ; Trim Punctuation
|
|
TM(X,Y) | ; Trim Character Y - Default " "
|
|
DBL(X) | ; Double Spaces
|
Name | Field # of Occurrence |
---|---|
$$CODEN^ICDCODE | ICDDX1+2, ICDDX2+2, ICDOP1+2, ICDOP2+2 |
$$ICDDX^ICDCODE | ICDDX1+2, ICDDX2+2 |
$$ICDOP^ICDCODE | ICDOP1+2, ICDOP2+2 |
ICDD^ICDCODE | ICDDX2+2, ICDOP2+2 |
$$CPT^ICPTCOD | ICPT1+2, ICPT2+2 |
CPTD^ICPTCOD | ICPT2+2 |
$$MOD^ICPTMOD | MOD1+3, MOD2+2 |
MODD^ICPTMOD | MOD2+2 |
PR^LEXU | TXT+1, LEX+2, ICDDX1+2, ICDDX2+4, ICDOP1+2, ICDOP2+4, ICPT1+2, ICPT2+4, MOD1+3, MOD2+4 |
$$MIX^LEXXMC | CASE+1 |
$$SW1^LEXXMM | SW1+1 |
$$SW2^LEXXMM | SW2+1 |
$$SW3^LEXXMM | SW3+1 |
$$SWAP^LEXXMM | FN+2 |
EW^LEXXMM | EW+1 |
$$DT^XLFDT | ICDDX1+1, ICDDX2+1, ICDOP1+1, ICDOP2+1, ICPT1+1, ICPT2+1, MOD1+2, MOD2+1 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LEX(757.01 - [#757.01] | LEX+1, EXP+1 |
Name | Line Occurrences |
---|---|
$$CASE | TXT+1, FULL+1, ICDDX1+2, ICDDX2+3, ICDOP1+2, ICDOP2+3, ICPT1+2, ICPT2+3, MOD1+3, MOD2+3 , EXP+1 |
$$DBL | CASE+33 |
$$EXP | LEX+2 |
$$FN | CASE+33 |
$$GETC | CASE+12, CASE+21 |
$$MIX | LEG+1 |
$$MX | GETC+5 |
$$SW1 | CASE+3 |
$$SW2 | GETC+4 |
$$SW3 | CASE+29 |
$$TM | CASE+33, GETC+2, USE+10 |
$$TP | GETC+2 |
$$TRIM | ICDDX2+3, ICDOP2+3, ICPT2+3, MOD2+3, CASE+3, CASE+27, FN+1, DBL+2 |
$$UP | CASE+3, CASE+11, CASE+20, GETC+1, GETC+2, USE+3 |
$$USE | GETC+2 |
@( | GETC+4 |
FULL | MIX+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
C | CASE+2~, CASE+13*, CASE+14, CASE+15*, CASE+18, CASE+23*, CASE+24 |
CHR | CASE+2~, CASE+29*, CASE+30, CASE+31, CASE+33* |
CODE | ICDDX1+1~*, ICDDX2+1~*, ICDDX2+2*, ICDOP1+1~*, ICDOP2+1~*, ICDOP2+2*, ICPT1+1~*, ICPT1+2*, ICPT2+1~*, ICPT2+2* , MOD1+1~*, MOD2+1~*, MOD2+2* |
CT | CASE+2~, CASE+7*, CASE+8, CASE+9, CASE+11, CASE+12, CASE+16*, CASE+17, CASE+18, CASE+20 , CASE+21, CASE+24, CASE+25*, CASE+26, CASE+27, CASE+28 |
CUR | USE+1~, USE+7*, USE+8, USE+9 |
FIR | FN+1~* |
I | LEX+1~, ICDDX2+1~, ICDDX2+3*, ICDOP2+1~, ICDOP2+3*, ICPT2+1~, ICPT2+3*, MOD2+1~, MOD2+3*, CASE+2~ , CASE+5*, CASE+6*, CASE+13, CASE+16, CASE+22*, CASE+31* |
ICDDX | ICDDX1+1~, ICDDX1+2* |
ICDOP | ICDOP1+1~, ICDOP1+2* |
ICPT | ICPT1+1~, ICPT1+2* |
IEN | LEX+1~*, ICDDX1+1~*, ICDDX1+2*, ICDDX2+1~*, ICDDX2+2*, ICDOP1+1~*, ICDOP1+2*, ICDOP2+1~*, ICDOP2+2*, ICPT1+1~* , ICPT1+2*, ICPT2+1~*, ICPT2+2, MOD1+1~*, MOD1+3, MOD2+1~*, MOD2+2, EXP+1~* |
IN | EXP+1~* |
L | TXT~, TXT+1, LEX~, LEX+1, ICDDX1~, ICDDX1+1, ICDDX2~, ICDDX2+1, ICDOP1~, ICDOP1+1 , ICDOP2~, ICDOP2+1, ICPT1~, ICPT1+1, ICPT2~, ICPT2+1, MOD1~, MOD1+1, MOD2~, MOD2+1 , CASE+2~, CASE+3*, CASE+5, FN+1~* |
LAS | FN+1~* |
LEG | LEG+1~*, CASE+1 |
LEN | TXT+1~*!, FULL+1~, LEX+1~*!, LEX+2, ICDDX1+1~*!, ICDDX1+2, ICDDX2+1~*!, ICDDX2+4, ICDOP1+1~*!, ICDOP1+2 , ICDOP2+1~*!, ICDOP2+4, ICPT1+1~*!, ICPT1+2, ICPT2+1~*!, ICPT2+4, MOD1+1~*, MOD1+2!, MOD1+3, MOD2+1~*! , MOD2+4 |
LEXCHR | CASE+2~, CASE+9*, CASE+18* |
LEXCTL | CASE+2~, CASE+9*, CASE+18* |
LEXIN | CASE+2~, CASE+3*, CASE+9*, CASE+18* |
LEXLEN | GETC+1~* |
LEXNXT | CASE+2~, CASE+12*, GETC+2* |
LEXORG | CASE+2~, CASE+11* |
LEXPRE | CASE+2~, CASE+11*, CASE+20* |
LEXRTN | GETC+1~, GETC+3*, GETC+4* |
LEXTAG | GETC+1~, GETC+3*, GETC+4* |
LEXUSE | CASE+2~, GETC+2* |
LOW | TXT+1~!, FULL+1~!, LEX+1~!, ICDDX1+1~!, ICDDX2+1~!, ICDDX2+3*!, ICDOP1+1~!, ICDOP2+1~!, ICDOP2+3*!, ICPT1+1~! , ICPT2+1~!, ICPT2+3*!, MOD1+1~!, MOD2+1~!, MOD2+3*! |
MOD | MOD1+1~, MOD1+3* |
ND | ICDDX2+1~, ICDOP2+1~, ICPT2+1~, MOD2+1~ |
ND( | ICDDX2+3, ICDOP2+3, ICPT2+3, MOD2+3 |
NUM | FN+1~, FN+2* |
NWD | CASE+11~, CASE+12*, CASE+20~, CASE+21* |
OIN | CASE+2~, CASE+3* |
ORG | FN+1~* |
OUT | FN+1~*, FN+2*, FN+3 |
PAR | EXP+1!, CASE+2!, CASE+29! |
PAR( | CASE+7*, CASE+8*, CASE+9, CASE+11, CASE+12*, CASE+16*, CASE+17*, CASE+18, CASE+20, CASE+21* , CASE+24*, CASE+25, CASE+26, CASE+27*, CASE+28!, USE+1, USE+2, USE+3, USE+6 |
PAR(" " | CASE+7, CASE+16 |
PAR("T" | CASE+3*, CASE+9, CASE+18 |
PAR("TRL" | CASE+5*, CASE+29 |
PAR(0 | CASE+3*, CASE+7*, CASE+16* |
PH | CASE+2~, CASE+8*, CASE+17* |
REM | CASE+2~, CASE+16~, CASE+22*, CASE+23* |
REP | FN+1~, FN+2* |
SEG | USE+1~*, USE+2, USE+3, USE+6 |
STO | CASE+2~, CASE+7*, CASE+10, CASE+11, CASE+16~*, CASE+19, CASE+20 |
STR | CASE+2~, CASE+3*, CASE+4*, CASE+5, CASE+6, CASE+7*, CASE+13, CASE+16, CASE+22*, CASE+23* , CASE+26~*, CASE+27*, CASE+28, USE+1~*, USE+4*, USE+5*, USE+6*, USE+8*, USE+9*, USE+10 |
TR | CASE+26~*, CASE+27 |
TRL | CASE+2~, CASE+4*, CASE+5 |
TRM | FN+1~* |
TXT | EXP+1~*, CASE+2~, CASE+25*, CASE+28*, CASE+29*, CASE+31~*, CASE+32 |
UIN | CASE+2~, CASE+3*, CASE+30, GETC+2 |
V | ICDDX1~, ICDDX1+1, ICDDX2~, ICDDX2+1, ICDOP1~, ICDOP1+1, ICDOP2~, ICDOP2+1, ICPT1~, ICPT1+1 , ICPT2~, ICPT2+1, MOD1~, MOD1+1, MOD2~, MOD2+1 |
VDT | LEX+1~, ICDDX1+1~*, ICDDX1+2, ICDDX2+1~*, ICDDX2+2, ICDOP1+1~*, ICDOP1+2, ICDOP2+1~*, ICDOP2+2, ICPT1+1~* , ICPT1+2, ICPT2+1~*, ICPT2+2, MOD1+1~*, MOD1+2*, MOD1+3, MOD2+1~*, MOD2+2 |
W | CASE+2~, CASE+10*, CASE+11, CASE+12, CASE+19*, CASE+20, CASE+21, CASE+26* |
WC | USE+2~*, USE+3 |
WD | CASE+2~, CASE+11*, CASE+12, CASE+20*, CASE+21, USE+3~*, USE+4, USE+5, USE+7 |
WTH | FN+1~, FN+2* |
X | MIX~, MIX+1*, MIX+2, LEG~, LEG+1*, LEG+2, TXT~, TXT+1, FULL~, FULL+1 , LEX~, LEX+1, LEX+2, ICDDX1~, ICDDX1+1, ICDDX1+2*, ICDDX2~, ICDDX2+1, ICDOP1~, ICDOP1+1 , ICDOP1+2*, ICDOP2~, ICDOP2+1, ICPT1~, ICPT1+1, ICPT1+2*, ICPT2~, ICPT2+1, MOD1~, MOD1+1 , MOD1+3*, MOD2~, MOD2+1, EXP~, EXP+1*, EXP+2, CASE~, CASE+1*, CASE+3, CASE+29* , CASE+30, CASE+31, CASE+32*, CASE+33*, CASE+34, GETC~, GETC+1*, GETC+3, GETC+4*, GETC+5* , GETC+6, SW1~, SW1+1*, SW2~, SW2+1*, SW3~, SW3+1*, EW~, EW+1, USE~ , USE+10*, USE+11, USE+12, FN~, FN+1*, FN+3*, FN+4, LO~, LO+1, UP~ , UP+1, MX~, MX+1, LD~, LD+1, TRIM~, TRIM+1*, TRIM+2*, TRIM+3, TP~ , TP+1*, TP+2*, TP+3, TM~, TM+1*, TM+2*, TM+3, DBL~, DBL+1*, DBL+2* , DBL+3 |
Y | MIX+1~, TXT+1!, FULL+1!*, LEX+1!, LEX+2, ICDDX1+1!, ICDDX1+2, ICDDX2+1!, ICDDX2+3!, ICDDX2+4 , ICDOP1+1!, ICDOP1+2, ICDOP2+1!, ICDOP2+3!, ICDOP2+4, ICPT1+1!, ICPT1+2, ICPT2+1!, ICPT2+3!, ICPT2+4 , MOD1+1!, MOD1+3, MOD2+1!, MOD2+3!, MOD2+4, GETC+1~*, GETC+4, TM~, TM+1*, TM+2 |
Y( | ICDDX2+3*, ICDOP2+3*, ICPT2+3*, MOD2+3* |
Y(1 | TXT+1*, LEX+2*, ICDDX1+2*, ICDOP1+2*, ICPT1+2*, MOD1+3* |