©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
XTIDSET ;OAKCIOFO/JLG - SET OF CODES CONTEXT ;04/25/2005 15:12
Source file <XTIDSET.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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) |
|
| 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) |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XTID( | GETIENS+10 |
| ^XTID(8985.1 - [#8985.1] | SRCHTRMS+8, SRCHTRMS+9, L2+5 |
| Name | Line Occurrences |
|---|---|
| $$GETIENS | FINDTERM+6 |
| $$VALIDREF | FINDTERM+5, NEWTERM+6 |
| L1 | SRCHTRMS+12, SRCHTRMS+14 |
| L2 | SRCHTRMS+15, L1+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CTX | CONTEXT~, CONTEXT+4, VALIDREF~, VALIDREF+2, FINDTERM~, FINDTERM+4, FINDTERM+5, FINDTERM+8, NEWTERM~, NEWTERM+5 , NEWTERM+6, SRCHTRMS~ |
| CTX("SOURCE F | ILE#" , CONTEXT+9*, FINDTERM+8, NEWTERM+11, GETIENS+4 |
| CTX("TERM FIE | LD#" , CONTEXT+7*, NEWTERM+9, NEWTERM+14, SRCHTRMS+6, GETIENS+6, MEMBER+7 |
| CTX("TERM FIL | E#" , CONTEXT+6*, NEWTERM+9, NEWTERM+13, SRCHTRMS+5, GETIENS+5, MEMBER+7 |
| CTX("TERMSTAT | US SUBFILE#" , CONTEXT+11*, NEWTERM+12 |
| CTX("TYPE" | CONTEXT+5*, SRCHTRMS+4 |
| DIERR | NEWTERM+3~, SRCHTRMS+2~, GETIENS+3~, MEMBER+4~ |
| FIELD | SRCHTRMS+2~, SRCHTRMS+6*, SRCHTRMS+14, SRCHTRMS+15, L1+1~, L1+2*, L2+2, L2+3, L2+6, L2+8 , MEMBER~ |
| FILE | NEWTERM+3~, NEWTERM+11*, NEWTERM+13, NEWTERM+14, NEWTERM+15, NEWTERM+16, NEWTERM+17, SRCHTRMS+2~, SRCHTRMS+5*, SRCHTRMS+11 , SRCHTRMS+12*, SRCHTRMS+14, SRCHTRMS+15, L1+2, L2+2, L2+3, L2+6, L2+8, GETIENS+3~, GETIENS+4* , GETIENS+10, MEMBER~ |
| FLAGS | NEWTERM+3~, NEWTERM+7*, NEWTERM+18, GETIENS+3~, GETIENS+4*, MEMBER+4~, MEMBER+6*, MEMBER+7 |
| IEN | L2+1~, L2+3*, L2+5 |
| IENS | FINDTERM+3~, FINDTERM+6*, FINDTERM+7, FINDTERM+8, MEMBER+4~, MEMBER+6*, MEMBER+7 |
| INDEXES | GETIENS+3~, GETIENS+4* |
| IREF | L2+1~, L2+5*, L2+6, L2+8 |
| MASTER | NEWTERM+3~, NEWTERM+8*, NEWTERM+10*, NEWTERM+17, SRCHTRMS~, SRCHTRMS+3*, L2+4 |
| MSG | NEWTERM+3~, GETIENS+3~, MEMBER+4~ |
| MSG("DIERR" | NEWTERM+19, MEMBER+8 |
| MSTR | L2+1~, L2+2*, L2+3, L2+4, L2+7 |
| MYFDA | NEWTERM+3~ |
| MYFDA( | NEWTERM+13*, NEWTERM+14*, NEWTERM+15*, NEWTERM+16*, NEWTERM+17* |
| MYIEN | NEWTERM+3~ |
| RESULT | MEMBER+4~, MEMBER+7 |
| RIEN | GETIENS+3~, GETIENS+4*, GETIENS+10*, GETIENS+11, GETIENS+12 |
| SFILE | NEWTERM+3~, NEWTERM+12* |
| STATUS | L2+1~, L2+6*, L2+7*, L2+8 |
| SUCCESS | NEWTERM+3~, NEWTERM+7*, NEWTERM+19*, NEWTERM+21, MEMBER+4~, MEMBER+5*, MEMBER+8*, MEMBER+9 |
| TERM | FINDTERM~, FINDTERM+4, FINDTERM+8, NEWTERM+5 |
| TFIELD | CONTEXT~, CONTEXT+3*, CONTEXT+7 |
| TFILE | CONTEXT~, CONTEXT+3*, CONTEXT+4, CONTEXT+6 |
| TIREF | VALIDREF~, VALIDREF+2, FINDTERM~, FINDTERM+5, FINDTERM+6, NEWTERM~, NEWTERM+4*, NEWTERM+6, NEWTERM+15, GETIENS~ , GETIENS+7 |
| VALUE | GETIENS+3~, MEMBER~, MEMBER+7 |
| VALUE(1 | GETIENS+5*, GETIENS+10 |
| VALUE(2 | GETIENS+6*, GETIENS+10 |
| VALUE(3 | GETIENS+7*, GETIENS+10 |
| VUID | NEWTERM~, NEWTERM+4*, NEWTERM+5, NEWTERM+9, NEWTERM+16, SRCHTRMS~, SRCHTRMS+3*, SRCHTRMS+4, SRCHTRMS+8, SRCHTRMS+9 |
| XTC | SRCHTRMS+2~, SRCHTRMS+9* |
| XTC( | SRCHTRMS+12, L1+2, L2+2, L2+3 |
| XTSARR | SRCHTRMS~, L2+8 |