LEXNDX9 ;ISL/KER - Set/kill indexes 757.07/757.33 ;05/23/2017
Source file <LEXNDX9.m>
| 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 " "
|
