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