alias REG_ACRO {
VAR %REG_ACRO_INPUT $1-, %REG_ACRO_TOK $HGET(REG_ACRO_TABLE,0).DATA, %REG_ACRO_TEMP, %REG_ACRO_OUTPUT
WHILE (%REG_ACRO_TOK) {
IF ($REGEX(REG_ACRO_EX,%REG_ACRO_INPUT,$+(/\b,$CHR(40),$HGET(REG_ACRO_TABLE,%REG_ACRO_TOK).ITEM,$CHR(41),\b/ig))) {
%REG_ACRO_TEMP = $REGSUB(%REG_ACRO_INPUT,$+(/\b,$CHR(40),$HGET(REG_ACRO_TABLE,%REG_ACRO_TOK).ITEM,$CHR(41),\b/ig),$HGET(REG_ACRO_TABLE,%REG_ACRO_TOK).DATA,%REG_ACRO_OUTPUT)
%REG_ACRO_TEMP = $REGSUB(%REG_ACRO_OUTPUT,$+(/\b,$CHR(40),$HGET(REG_ACRO_TABLE,%REG_ACRO_TOK).ITEM,$CHR(41),\b/ig),$HGET(REG_ACRO_TABLE,%REG_ACRO_TOK).DATA,%REG_ACRO_INPUT)
}
DEC %REG_ACRO_TOK
}
TOKENIZE 32 $IIF(%REG_ACRO_OUTPUT,$v1,%REG_ACRO_INPUT)
RETURN $+($UPPER($LEFT($1,1)),$MID($1-,2))
}