Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: LEXTRAN3

Package: Lexicon Utility

Routine: LEXTRAN3


Information

LEXTRAN3 ;ISL/FJF - Lexicon Process MFS Mapping Update Change ; 30 Aug 2011 12:27 AM

Source Information

Source file <LEXTRAN3.m>

Call Graph

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Kernel 1 ^ORD(101  
Lexicon Utility 1 LEX MAPPING CHANGE EVENT  

Entry Points

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

External References

Name Field # of Occurrence
FILE^DIE DELPLS+4
UPDATE^DIE ADDPLS+7
SCTMAP^GMPLX1 UPDPLP+6, UPDPLP+7
$$GETSYN^LEXTRAN1 PRFIEN+2

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$ACTVMAP CTRL+35
$$CHANGE CTRL+7
$$DELIEN DELPLS+3
$$INPSUB CTRL+25
$$PRFIEN CTRL+18
$$SUBIEN ADDPLS+6
ADDPLS CTRL+25
DELPLS CTRL+37
INIT CTRL+12
UPDPLP CTRL+28

Local Variables

Legend:

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

Marked Items

Name Field # of Occurrence
$T(SCTMAP^GMPLX1 UPDPLP+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All