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 |
| 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 |