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) |
