XTIDCTX ;OAKCIOFO/JLG - TERM/CONCEPT CONTEXT directories ;04/20/2005 15:12
Source file <XTIDCTX.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GETTYPE(FILE,FIELD) | ; determine type of context
; based on FILE and FIELD combination ; D FIELD^DID(FILE,FIELD,FLAGS,ATTRIBUTES,TARGET_ROOT,MSG_ROOT) |
|
NEWTERM(CTX,TIREF,VUID) | ; create a new term reference with given VUID
; only for "set of codes" ; on success (term entry), new TERM array is returned ; create a new entry in the Kernel (8985.1) file only (set of codes) |
|
CONTEXT(TFILE,TFIELD,CTX) | ; determine and create context impl
; returns new CTX array ; CTX("TYPE")=<"SET" or "TABLE" or "ROOT"> ; CTX("TERM FILE#")=<TFILE or ""> ; CTX("TERM FIELD#")=<TFIELD or ""> ; CTX("SOURCE FILE#")=<8985.1 or TFILE or ""> ; CTX("TERMSTATUS SUBFILE#")= ; <subfile for the multi-valued field ; 99.991, EFFECTIVE DATE/TIME or ""> |
|
SRCHTRMS(CTX,VUID,XTCARR,MASTER) | ; search term reference entries
; search term reference entries based on VUID and its context |
|
ADDTARRY(XTC2ARR,FILE,FIELD,IREF,VALUE) | ;
; adds element and value to XTC2ARR array (by name) ; called by CTX implementations of SRCHTRMS() ; increased count |
|
FINDTERM(CTX,TIREF,TERM) | ; find term
; find the single term reference for given term IREF ; return TERM data as new TERM array ; IREF is unique within a given CTX, except for "RO0T" context ; on success, attach CTX to TERM array |
|
VALIDREF(CTX,TIREF) | ; validate IREF
; validate internal reference against given CTX |
|
GETTERM(CTX,FILE,IENS,TERM) | ; get term
; return TERM data as new TERM array ; called from CTX implementations only ; subroutine might be moved to XTIDTERM ; D GETS^DIQ(FILE,IENS,FIELD,FLAGS,TARGET_ROOT,MSG_ROOT) |
|
ROOTCTX(CTX) | ; set up Context for "ROOT" type
; called from CONTEXT^XTIDCTX(TFILE,TFIELD,CTX) ; called only when TFILE is not defined |
Name | Field # of Occurrence |
---|---|
FIELD^DID | GETTYPE+12 |
GETS^DIQ | GETTERM+9 |
$$NEWTERM^XTIDSET | NEWTERM+9 |
$$VALIDREF^XTIDSET | VALIDREF+5 |
CONTEXT^XTIDSET | CONTEXT+14 |
FINDTERM^XTIDSET | FINDTERM+6 |
SRCHTRMS^XTIDSET | SRCHTRMS+5, SRCHTRMS+14 |
$$VALIDREF^XTIDTBL | VALIDREF+8 |
CONTEXT^XTIDTBL | CONTEXT+15 |
FINDTERM^XTIDTBL | FINDTERM+7 |
SRCHTRMS^XTIDTBL | SRCHTRMS+6, SRCHTRMS+25 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DD( | SRCHTRMS+20 |
^DIC - [#1] | SRCHTRMS+19 |
Name | Line Occurrences |
---|---|
$$GETTYPE | CONTEXT+12 |
ROOTCTX | CONTEXT+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ATTR | GETTYPE+3~ |
ATTR("LABEL" | GETTYPE+14 |
COUNT | ADDTARRY+4~, ADDTARRY+5*, ADDTARRY+7 |
CTX | CONTEXT~, CONTEXT+10, CONTEXT+14, CONTEXT+15, CONTEXT+16, VALIDREF~, VALIDREF+3, VALIDREF+5, VALIDREF+8, FINDTERM~ , FINDTERM+5, FINDTERM+6, FINDTERM+7, FINDTERM+10, NEWTERM~, NEWTERM+6, NEWTERM+9, GETTERM~, GETTERM+8, SRCHTRMS~ , SRCHTRMS+4, SRCHTRMS+5, SRCHTRMS+6, SRCHTRMS+14, SRCHTRMS+25, ROOTCTX~ |
CTX("SOURCE F | ILE#" , SRCHTRMS+13*, SRCHTRMS+22*, SRCHTRMS+29*, ROOTCTX+7* |
CTX("TERM FIE | LD#" , SRCHTRMS+24*, SRCHTRMS+31*, ROOTCTX+5* |
CTX("TERM FIL | E#" , SRCHTRMS+23*, SRCHTRMS+30*, ROOTCTX+4* |
CTX("TERMSTAT | US SUBFILE#" , ROOTCTX+9* |
CTX("TYPE" | VALIDREF+4, VALIDREF+7, FINDTERM+6, FINDTERM+7, NEWTERM+8, SRCHTRMS+5, SRCHTRMS+6, SRCHTRMS+7, SRCHTRMS+12*, SRCHTRMS+17* , SRCHTRMS+28*, ROOTCTX+3* |
DIERR | GETTERM+5~, GETTYPE+3~ |
FIELD | ADDTARRY~, ADDTARRY+6, GETTYPE~, GETTYPE+4*, GETTYPE+9 |
FILE | GETTERM~, GETTERM+6*, GETTERM+8, GETTERM+9, ADDTARRY~, ADDTARRY+6, GETTYPE~, GETTYPE+4*, GETTYPE+7, GETTYPE+12 |
FL | SRCHTRMS+9~, SRCHTRMS+18*, SRCHTRMS+19*, SRCHTRMS+20, SRCHTRMS+21, SRCHTRMS+22, SRCHTRMS+23 |
IENS | GETTERM~, GETTERM+6*, GETTERM+8, GETTERM+9 |
IREF | ADDTARRY~, ADDTARRY+6 |
MASTER | SRCHTRMS~, SRCHTRMS+2*, SRCHTRMS+5, SRCHTRMS+6, SRCHTRMS+14, SRCHTRMS+25 |
MSG | GETTERM+5~, GETTYPE+3~ |
MSG("DIERR" | GETTERM+10 |
SUCCESS | NEWTERM+4~ |
TERM | FINDTERM~, FINDTERM+5, FINDTERM+6, FINDTERM+7, FINDTERM+10, GETTERM~, GETTERM+8 |
TERM("CTX" | FINDTERM+10* |
TFIELD | CONTEXT~, CONTEXT+11*, CONTEXT+12, CONTEXT+14 |
TFILE | CONTEXT~, CONTEXT+11*, CONTEXT+12, CONTEXT+14, CONTEXT+15 |
TIREF | VALIDREF~, VALIDREF+5, VALIDREF+8, FINDTERM~, FINDTERM+6, FINDTERM+7, NEWTERM~, NEWTERM+5*, NEWTERM+9 |
TTYPE | CONTEXT+9~, CONTEXT+12*, CONTEXT+13, CONTEXT+14, CONTEXT+15, CONTEXT+16 |
TYPE | GETTYPE+3~, GETTYPE+5*, GETTYPE+7*, GETTYPE+14*, GETTYPE+16, GETTYPE+22*, GETTYPE+23 |
VALID | VALIDREF+2~*, VALIDREF+3, VALIDREF+4, VALIDREF+5*, VALIDREF+7, VALIDREF+8*, VALIDREF+10 |
VALUE | ADDTARRY~, ADDTARRY+6 |
VFIELD | GETTYPE+10~, GETTYPE+11*, GETTYPE+12 |
VUID | NEWTERM~, NEWTERM+5*, NEWTERM+6, NEWTERM+9, SRCHTRMS~, SRCHTRMS+2*, SRCHTRMS+4, SRCHTRMS+5, SRCHTRMS+6, SRCHTRMS+14 , SRCHTRMS+25 |
XTC2ARR | ADDTARRY~, ADDTARRY+5, ADDTARRY+6, ADDTARRY+7 |
XTCARR | SRCHTRMS~, SRCHTRMS+2*, SRCHTRMS+4, SRCHTRMS+5, SRCHTRMS+6, SRCHTRMS+14, SRCHTRMS+25 |