XTIDTBL ;OAKCIOFO/JLG - TABLE CONTEXT ;04/21/2005 15:12
Source file <XTIDTBL.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 |
|---|---|---|
| CONTEXT(TFILE,TFIELD,CTX) | ; set up Context for "table" type
; called from CONTEXT^XTIDCTX(TFILE,TFIELD,CTX) ; returns a valid new CTX array |
|
| VALIDREF(CTX,TIREF) | ; validate the term, internal ref
; test TIREF is a valid value in given context (table) ; TIREF must be in IENS form, but will be checked ; later as VDUI related data is retrieved ; would be nice if we can do an earlier check ; based on IENS and the CTX("SOURCE FILE#") |
|
| FINDTERM(CTX,TIREF,TERM) | ; find term
; called from FINDTERM^XTIDCTX(CTX,TIREF,TERM) ; find term for given term IREF ; return TERM data as new TERM array |
|
| SRCHTRMS(CTX,VUID,XTTBARR,MASTER) | ; search term index entries
; called from SEARCH^XTIDCTX(CTX,VUID,ARRAY,MASTER) ; FIND^DIC(FILE,IENS,FIELDS,FLAGS,[.]VALUE,NUMBER,[.]INDEXES, ; [.]SCREEN,IDENTIFIER,TARGET_ROOT,MSG_ROOT) |
|
| GETSUBF(FILE,MFIELD) | ; get subfile #
; get subfile for the given file and multiple-valued field |
| Name | Line Occurrences |
|---|---|
| $$GETSUBF | CONTEXT+8 |
| $$VALIDREF | FINDTERM+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ATTR | GETSUBF+2~ |
| ATTR("MULTIPLE-VALUED" | GETSUBF+5 |
| ATTR("SPECIFIER" | GETSUBF+6 |
| ATTR("TYPE" | GETSUBF+5 |
| CTX | CONTEXT~, CONTEXT+5, VALIDREF~, VALIDREF+7, FINDTERM~, FINDTERM+5, FINDTERM+6, FINDTERM+9, SRCHTRMS~ |
| CTX("SOURCE F | ILE#" , CONTEXT+13*, FINDTERM+9, SRCHTRMS+8 |
| CTX("TERM FIE | LD#" , CONTEXT+12*, SRCHTRMS+23, SRCHTRMS+25 |
| CTX("TERM FIL | E#" , CONTEXT+11*, SRCHTRMS+23, SRCHTRMS+25 |
| CTX("TERMSTAT | US SUBFILE#" , CONTEXT+14* |
| CTX("TYPE" | CONTEXT+10*, SRCHTRMS+7 |
| DIERR | SRCHTRMS+4~, GETSUBF+2~ |
| FIELDS | SRCHTRMS+5~, SRCHTRMS+9*, SRCHTRMS+13 |
| FILE | SRCHTRMS+4~, SRCHTRMS+8*, SRCHTRMS+13, GETSUBF~, GETSUBF+4 |
| FLAGS | SRCHTRMS+4~, SRCHTRMS+8*, SRCHTRMS+13 |
| IENS | FINDTERM+4~, FINDTERM+7*, FINDTERM+8, FINDTERM+9, SRCHTRMS+21~, SRCHTRMS+22*, SRCHTRMS+23, SRCHTRMS+25 |
| INDEXES | SRCHTRMS+4~, SRCHTRMS+8*, SRCHTRMS+13 |
| ITM | SRCHTRMS+17~, SRCHTRMS+20*, SRCHTRMS+22, SRCHTRMS+24 |
| MASTER | SRCHTRMS~, SRCHTRMS+6*, SRCHTRMS+11 |
| MFIELD | GETSUBF~, GETSUBF+4 |
| MSG | SRCHTRMS+4~ |
| MSG("DIERR" | SRCHTRMS+14 |
| NUMFND | SRCHTRMS+4~, SRCHTRMS+15*, SRCHTRMS+16, SRCHTRMS+20 |
| RIEN | SRCHTRMS+4~ |
| SCREEN | SRCHTRMS+5~, SRCHTRMS+11*, SRCHTRMS+13 |
| STATUS | SRCHTRMS+21~, SRCHTRMS+23*, SRCHTRMS+24*, SRCHTRMS+25 |
| SUBFILE | CONTEXT+3~, CONTEXT+8*, CONTEXT+9, CONTEXT+14, GETSUBF+2~, GETSUBF+3*, GETSUBF+6*, GETSUBF+8 |
| TARG | SRCHTRMS+4~ |
| TARG("DILIST" | SRCHTRMS+15, SRCHTRMS+18, SRCHTRMS+19 |
| TEMP | SRCHTRMS+17~, SRCHTRMS+18*, SRCHTRMS+19* |
| TEMP( | SRCHTRMS+22, SRCHTRMS+24 |
| TERM | FINDTERM~, FINDTERM+5, FINDTERM+9 |
| TFIELD | CONTEXT~ |
| TFILE | CONTEXT~, CONTEXT+4*, CONTEXT+5, CONTEXT+8, CONTEXT+11, CONTEXT+13, SRCHTRMS+4~ |
| TIREF | VALIDREF~, VALIDREF+7, VALIDREF+8, FINDTERM~, FINDTERM+6, FINDTERM+7 |
| VALID | VALIDREF+6~, VALIDREF+8*, VALIDREF+9 |
| VALUE | SRCHTRMS+4~, SRCHTRMS+13 |
| VALUE(1 | SRCHTRMS+10* |
| VUID | SRCHTRMS~, SRCHTRMS+6*, SRCHTRMS+7, SRCHTRMS+10 |
| XTTBARR | SRCHTRMS~, SRCHTRMS+25 |
