LEXTRAN3 ;ISL/FJF - Lexicon Process MFS Mapping Update Change ; 30 Aug 2011 12:27 AM
Source file <LEXTRAN3.m>
Package | Total | Call Graph |
---|---|---|
Lexicon Utility | 1 | $$GETSYN^LEXTRAN1 |
Problem List | 1 | SCTMAP^GMPLX1 |
VA FileMan | 1 | (FILE,UPDATE)^DIE |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Kernel | 1 | ^ORD(101 |
Lexicon Utility | 1 | LEX MAPPING CHANGE EVENT |
Name | Comments | DBIA/ICR reference |
---|---|---|
CTRL | ; control
|
|
INIT | ; initiate variables
; ; record data |
|
PRFIEN(SCTCDE) | ; get preferred term IEN in 757.01 for subset update
|
|
INPSUB(PRF,SUB) | ; check if concept PRF is member of subset SUB
|
|
CHANGE() | ; check if the after data is different from the before data
; i.e. detect if any change |
|
ADDPLS(PRF,SUB) | ; Add the concept to the problem list subset
|
|
UPDPLP(SCT,ICD,ORD) | ; update patient problem list file
; SCTMAP^GMPLX1 is a CPRS problem list function which scans the patient ; data file and updates the SNOMED CT code field on the basis of the ; mapping change ; ; check for existence of function; if not found do not attempt to call |
|
DELPLS | ; remove a concept from subset
|
|
ACTVMAP(SRC,MAP) | ; return whether active map exists for given code and
; mapping identifier |
|
SUBIEN() | ; get next IEN for addition to 757.21
|
|
DELIEN() | ; determine IEN of record to be erased from 757.21
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LEX(757.21 - [#757.21] | INPSUB+4, INPSUB+5, SUBIEN+4, DELIEN+4, DELIEN+5 |
^LEX(757.33 - [#757.33] | INIT+6, INIT+10, ACTVMAP+6, ACTVMAP+7, ACTVMAP+8, ACTVMAP+9, ACTVMAP+10, ACTVMAP+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACT | ACTVMAP+3~, ACTVMAP+5*, ACTVMAP+6, ACTVMAP+7, ACTVMAP+8, ACTVMAP+12*, ACTVMAP+13 |
BASE | SUBIEN+2~, SUBIEN+3*, SUBIEN+4 |
C | SUBIEN+2~, SUBIEN+3*, SUBIEN+4 |
CHANGE | CHANGE+2~, CHANGE+3*, CHANGE+4, CHANGE+5*, CHANGE+6 |
DIEN | DELIEN+2~, DELIEN+3*, DELIEN+4, DELIEN+5*, DELIEN+6 |
FDA | ADDPLS+3~, DELPLS+2~ |
FDA( | ADDPLS+4*, ADDPLS+5*, DELPLS+3* |
ICD | UPDPLP~, UPDPLP+7 |
ICDCDE | CTRL+10~, CTRL+28, INIT+8* |
IEN | ACTVMAP+3~, ACTVMAP+4*, ACTVMAP+8*, ACTVMAP+9, ACTVMAP+10, ACTVMAP+11 |
IMIEN | INIT+3~, INIT+5*, INIT+6, INIT+10 |
IN | INPSUB+2~, INPSUB+3*, INPSUB+4, INPSUB+5*, INPSUB+6 |
LDAT | ACTVMAP+3~, ACTVMAP+9*, ACTVMAP+10 |
LEX | PRFIEN+1~ |
LEX("P" | PRFIEN+3 |
MAP | ACTVMAP~, ACTVMAP+6, ACTVMAP+7, ACTVMAP+8 |
MAPID | CTRL+10~, CTRL+15, CTRL+35, INIT+9* |
MAPORD | CTRL+10~, CTRL+28, INIT+10* |
NOSYNS | PRFIEN+1~, PRFIEN+2* |
ORD | UPDPLP~, UPDPLP+7, ACTVMAP+3~, ACTVMAP+4*, ACTVMAP+6*, ACTVMAP+7, ACTVMAP+8 |
ORIEN | ADDPLS+3~ |
ORIEN(1 | ADDPLS+6* |
PLSUB | CTRL+10~, CTRL+25, INIT+14*, DELIEN+5 |
PRF | INPSUB~, INPSUB+4, ADDPLS~, ADDPLS+4 |
PRFIEN | CTRL+10~, CTRL+18*, CTRL+25, PRFIEN+1~, PRFIEN+3*, PRFIEN+4, DELIEN+4 |
RECORD | CTRL+10~, INIT+6*, INIT+7, INIT+8, INIT+9 |
SCT | UPDPLP~, UPDPLP+7 |
SCTCDE | CTRL+10~, CTRL+18, CTRL+28, CTRL+35, INIT+7*, PRFIEN~, PRFIEN+2 |
SCTMAPID | CTRL+10~, CTRL+15, INIT+15* |
SIEN | INPSUB+2~, INPSUB+3*, INPSUB+4*, INPSUB+5, ACTVMAP+3~, ACTVMAP+10*, ACTVMAP+11 |
SRC | ACTVMAP~, ACTVMAP+6, ACTVMAP+7, ACTVMAP+8 |
SSIEN | DELIEN+2~, DELIEN+3*, DELIEN+4*, DELIEN+5 |
STAT | ACTVMAP+3~, ACTVMAP+11*, ACTVMAP+12 |
STATUS | CTRL+10~, CTRL+22, INIT+4* |
SUB | INPSUB~, INPSUB+5, ADDPLS~, ADDPLS+5 |
SUBERR | ADDPLS+3~, DELPLS+2~ |
TAR | ACTVMAP+3~, ACTVMAP+4*, ACTVMAP+7*, ACTVMAP+8 |
U | INIT+7, INIT+8, INIT+9, INIT+10, PRFIEN+3, INPSUB+5, ACTVMAP+11, DELIEN+5 |
XSUB | CHANGE+2~, CHANGE+3*, CHANGE+4*, CHANGE+5 |
>> XUHUIDA | INIT+5 |
>> XUHUIDA(1 | INIT+5 |
>> XUHUIX(2 | INIT+4 |
>> XUHUIX1( | CHANGE+4, CHANGE+5 |
>> XUHUIX2( | CHANGE+5 |
Name | Field # of Occurrence |
---|---|
$T(SCTMAP^GMPLX1 | UPDPLP+6 |