Call Graph
Call Graph Total: 3
| Package | Total | Call Graph |
|---|---|---|
| Lexicon Utility | 1 | $$GETSYN^LEXTRAN1 |
| Problem List | 1 | SCTMAP^GMPLX1 |
| VA FileMan | 1 | (FILE,UPDATE)^DIE |
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 |
