LEXNDX9 ;ISL/KER - Set/kill indexes 757.07/757.33 ;05/23/2017
Source file <LEXNDX9.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 |
Package | Total | Caller Graph |
---|---|---|
Lexicon Utility | 1 | ^LEX(757.07 |
Name | Comments | DBIA/ICR reference |
---|---|---|
SAHC | ; Set new value when Code is Edited
|
|
KAHC | ; Kill old value when Code is Edited
|
|
SAHD | ; Set new value when Effective Date is Edited
|
|
KAHD | ; Kill old value when Effective Date is Edited
|
|
SAHS | ; Set new value when Status is Edited
|
|
KAHS | ; Kill old value when Status is Edited
|
|
SHIS | ; Set "G" Index
|
|
SDHIS | ; Set "G" Index Default
|
|
KHIS | ; Kill "G" Index
|
|
KDHIS | ; Kill "G" Index Default
|
|
SD(X,IENS) | ; Set "D" KWIC Index
|
|
KD(X,IENS) | ; Kill "D" KWIC Index
|
|
SAED(X,Y,IENS) | ; Set "AED" Phrase Index
|
|
KAED(X,Y,IENS) | ; Kill "AED" Phrase Index
|
|
HDC | ; Set Common Variables (Status and Effective Date)
|
|
DF(X,CODE) | ; Default Status
|
|
DDTBR(SYS,STA) | ; Default Date Business Rules
; Input: ; SYS - System ; STA - Status ; Output: ; If Status = 1 (Give) ; If SYS = ICD/ICP use October 1, 1978 2781001 ; If SYS = CPT/CPC use January 1, 1989 2890101 ; If SYS is not listed above, use 2960923 ; If Status = 0 (InGive) ; If SYS = ICD/ICP use October 2, 1978 2791001 ; If SYS = CPT/CPC use January 2, 1989 2900101 ; If SYS is not listed above, use 2960924 |
|
PR(X,ARY) | ; Parse Expression into Tokens
|
|
TM(X,Y) | ; Trim Character Y - Default " "
|
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARY | SD+1~, SD+3!, KD+1~, KD+3!, PR~, PR+1! |
ARY( | SD+1, SD+2, KD+1, KD+2, PR+6*, PR+8, PR+9*, PR+13, PR+14* |
CC | PR+8~*, PR+9 |
CHR | PR+4~*, PR+5, PR+6, PR+7, PR+9 |
CODE | DF~ |
CT | PR+1~, PR+3* |
CTL | PR+1~, PR+2*, PR+5, PR+7, PR+11 |
CUR | PR+1~, PR+3*, PR+4*, PR+6, PR+12 |
DA | SAHC+1, SAHC+4~*, KAHC+1, KAHC+4~*, SHIS+1, KHIS+1, KHIS+2, HDC+1, HDC+2 |
DA(1 | SAHC+4*, KAHC+4*, SHIS+1, SHIS+2, KHIS+1, KHIS+2, HDC+1, HDC+2 |
EXM | SAED+1~, SAED+2*, SAED+3, KAED+1~, KAED+2*, KAED+3 |
EXP | PR+1~*, PR+3, PR+4, PR+10 |
I | SD+1~*, SD+2, KD+1~*, KD+2, SAED+1~, SAED+2*, KAED+1~, KAED+2* |
IENS | SD~, SD+1, SD+2, KD~, KD+1, KD+2, SAED~, SAED+1, SAED+3, KAED~ , KAED+1, KAED+3 |
IENS(1 | SD+1, SD+2, KD+1, KD+2, SAED+1, SAED+3, KAED+1, KAED+3 |
LEXC | DF+1~ |
LEXDDT | SAHC+1~, KAHC+1~, SAHD+1~, KAHD+1~, SAHS+1~, KAHS+1~, SHIS+2, HDC+1*, HDC+3* |
LEXDSTA | SAHC+1~, KAHC+1~, SAHD+1~, KAHD+1~, SAHS+1~, KAHS+1~, HDC+1* |
LEXDSYS | SAHC+1~, KAHC+1~, SAHD+1~, KAHD+1~, SAHS+1~, KAHS+1~, HDC+1*, HDC+3 |
LEXDT | DDTBR+13~, DDTBR+14*, DDTBR+16, DDTBR+17*, DDTBR+18, DDTBR+19*, DDTBR+20, DDTBR+21*, DDTBR+22, DDTBR+23* , DDTBR+24*, DDTBR+25 |
LEXEFF | SAHC+1~, SAHC+4, KAHC+1~, KAHC+4, SAHD+1~, SAHD+2, KAHD+1~, KAHD+2*, SAHS+1~, SAHS+2 , KAHS+1~, KAHS+2, SHIS+1, SHIS+2, SDHIS+1, SDHIS+2, KHIS+1, KHIS+2, KDHIS+1, KDHIS+2 , HDC+1*, HDC+2*, DF+1~*, DF+2 |
LEXHIS | SAHC+1~, SAHC+2*, SAHC+3*, SAHC+4, KAHC+1~, KAHC+2*, KAHC+3*, KAHC+4, SAHD+1~, KAHD+1~ , SAHS+1~, KAHS+1~ |
LEXI | DF+1~*, DF+2 |
LEXIEN | SAHC+1~*, SAHC+2, SAHC+3, SAHC+4, KAHC+1~*, KAHC+2, KAHC+3, KAHC+4, SAHD+1~, KAHD+1~ , SAHS+1~, KAHS+1~, SDHIS+1, SDHIS+2, KDHIS+1, KDHIS+2 |
LEXL | DF+1~, DF+2* |
LEXMAP | SAHC+1~, KAHC+1~, SAHD+1~, KAHD+1~, SAHS+1~, KAHS+1~, SHIS+2, SDHIS+2, KHIS+2, KDHIS+2 , HDC+1*, HDC+2* |
LEXNF | DF+1~ |
LEXNOD | SAHC+1~, KAHC+1~, SAHD+1~, KAHD+1~, SAHS+1~, KAHS+1~, HDC+2* |
LEXSTA | SAHC+1~, SAHC+4, KAHC+1~, KAHC+4, SAHD+1~, SAHD+2, KAHD+1~, KAHD+2, SAHS+1~, SAHS+2* , KAHS+1~, KAHS+2*, SHIS+1, SHIS+2, SDHIS+1, SDHIS+2, KHIS+1, KHIS+2, KDHIS+1, KDHIS+2 , HDC+1*, HDC+2*, HDC+3*, DDTBR+13~, DDTBR+14*, DDTBR+15*, DDTBR+17, DDTBR+19, DDTBR+21, DDTBR+23 , DDTBR+24 |
LEXSYS | SAHS+1~, DDTBR+13~, DDTBR+14*, DDTBR+15, DDTBR+16, DDTBR+18, DDTBR+20, DDTBR+22 |
NXT | PR+8~, PR+10*, PR+11 |
OUT | PR+1~, PR+3* |
P1 | PR+1~, PR+3* |
P2 | PR+1~, PR+3* |
PC | PR+1~, PR+3*, PR+4, PR+10 |
PIE | SAED+1~, SAED+2*, SAED+3, KAED+1~, KAED+2*, KAED+3 |
PRE | PR+1~, PR+3*, PR+6*, PR+12* |
ST | PR+1~, PR+3* |
STA | DDTBR~, DDTBR+14 |
STR | SAED+1~, SAED+2*, KAED+1~, KAED+2* |
SYS | DDTBR~, DDTBR+14 |
TC | PR+1~, PR+3*, PR+6, PR+8, PR+9, PR+11*, PR+13*, PR+14 |
TKN | SD+2~*, KD+2~*, PR+14~* |
U | HDC+2, DF+2 |
X | SAHC+4~, KAHC+4~, KAHD+2, SAHS+2, KAHS+2, SD~, SD+1, KD~, KD+1, SAED~ , SAED+1, SAED+2, KAED~, KAED+1, KAED+2, DF~, DF+1, DF+2*, DF+3, PR~ , PR+1, TM~, TM+1*, TM+2*, TM+3 |
Y | SAED~, SAED+1, SAED+2, KAED~, KAED+1, KAED+2, TM~, TM+1*, TM+2 |