XTIDSET ;OAKCIOFO/JLG - SET OF CODES CONTEXT ;04/25/2005 15:12
Source file <XTIDSET.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CONTEXT(TFILE,TFIELD,CTX) | ; set up Context for "set of codes" 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 set of codes |
|
FINDTERM(CTX,TIREF,TERM) | ; find term in given context
; called from FINDTERM^XTIDCTX(CTX,TIREF,TERM) ; return TERM data as new TERM array |
|
NEWTERM(CTX,TIREF,VUID) | ; create new term index entry
; called from NEWTERM^XTIDCTX(CTX,TIREF,VUID,TERM) ; D UPDATE^DIE(FLAGS,FDA_ROOT,IEN_ROOT,MSG_ROOT) |
|
SRCHTRMS(CTX,VUID,XTSARR,MASTER) | ; search term index entries
; called from SEARCH^XTIDCTX(CTX,VUID,XTCARR,MASTER) |
|
L1 | ;
|
|
L2 | ;
|
|
GETIENS(TIREF) | ; find term's ien/IENS
; find term entry and return IENS ; $$FIND1^DIC(FILE,IENS,FLAGS,[.]VALUE,[.]INDEXES,.SCREEN,MSG_ROOT) |
|
MEMBER(FILE,FIELD,VALUE) | ; valid member in "set of codes"?
; validate VALUE for this FIELD ; for validation purposes only, RESULT not used ; D VAL^DIE(FILE,IENS,FIELD,FLAGS,VALUE,.RESULT,FDA_ROOT,MSG_ROOT) |