; create new term index entry
; called from NEWTERM^XTIDCTX(CTX,TIREF,VUID,TERM)
; D UPDATE^DIE(FLAGS,FDA_ROOT,IEN_ROOT,MSG_ROOT)
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
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)
FINDTERM(CTX,TIREF,TERM)
; find term in given context
; called from FINDTERM^XTIDCTX(CTX,TIREF,TERM)
; return TERM data as new TERM array
VALIDREF(CTX,TIREF)
; validate the term, internal ref
; test TIREF is a valid value in set of codes
L1
;
L2
;
SRCHTRMS(CTX,VUID,XTSARR,MASTER)
; search term index entries
; called from SEARCH^XTIDCTX(CTX,VUID,XTCARR,MASTER)
GETIENS(TIREF)
; find term's ien/IENS
; find term entry and return IENS
; $$FIND1^DIC(FILE,IENS,FLAGS,[.]VALUE,[.]INDEXES,.SCREEN,MSG_ROOT)