DGENCDU ;ALB/CJM,Zoltan,TGH - Catastrophic Disability Utilities;May 24, 1999
Source file <DGENCDU.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 |
|---|---|---|
| EXT(SUB,VAL) | ;
|
|
| FILE(SUB) | ; Return file/subfile number associated with this subscript.
; SUB = text subscript (such as VCD, BY, DATE, FACDET, etc.) |
|
| FLD(SUB) | ; Return field/subfield number associated with this subscript.
; SUB = text subscript (such as VCD, BY, DATE, FACDET, etc.) |
|
| SUB(FLD,FILE) | ; Return subscript for this field (and file) number.
|
|
| SETVARS | ; NOTE -- for easy future maintenance, just modify the following 3 variables.
|
| Name | Field # of Occurrence |
|---|---|
| $$EXTERNAL^DILFD | EXT+18 |
| Name | Line Occurrences |
|---|---|
| $$FILE | EXT+16 |
| $$FLD | EXT+14 |
| SETVARS | FILE+3, FLD+3, SUB+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| FILE | EXT+13~, EXT+16*, EXT+17, EXT+18, FILE+2~, FILE+7*, FILE+8, SUB~, SUB+1*, SUB+4 |
| FILELST | FILE+2~, FILE+7, FLD+2~, SUB+2~, SUB+4, SETVARS+2* |
| FLD | EXT+13~, EXT+14*, EXT+15, EXT+18, FLD+2~, FLD+7*, FLD+8, SUB~, SUB+4 |
| FLDLST | FILE+2~, FLD+2~, FLD+7, SUB+2~, SUB+4, SETVARS+3* |
| PC | FILE+2~, FILE+6*, FILE+7, FLD+2~, FLD+6*, FLD+7, SUB+2~, SUB+4* |
| SUB | EXT~, EXT+11, EXT+14, EXT+16, FILE~, FILE+4*, FILE+5, FILE+6, FLD~, FLD+4* , FLD+5, FLD+6, SUB+2~, SUB+4*, SUB+5 |
| SUBLST | FILE+2~, FILE+5, FILE+6, FLD+2~, FLD+5, FLD+6, SUB+2~, SUB+4, SETVARS+1* |
| VAL | EXT~, EXT+11, EXT+18 |
