Routine: LEXTRAN3

Information

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

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

Entry Points

Name	Comments	DBIA/ICR reference
CHANGE()	; check if the after data is different from the before data ; i.e. detect if any change
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
CTRL	; control
DELPLS	; remove a concept from subset
ADDPLS(PRF,SUB)	; Add the concept to the problem list subset
INPSUB(PRF,SUB)	; check if concept PRF is member of subset SUB
ACTVMAP(SRC,MAP)	; return whether active map exists for given code and ; mapping identifier
INIT	; initiate variables ; ; record data
DELIEN()	; determine IEN of record to be erased from 757.21
SUBIEN()	; get next IEN for addition to 757.21
PRFIEN(SCTCDE)	; get preferred term IEN in 757.01 for subset update

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

Customize PDF page

Package: Lexicon Utility

Routine: LEXTRAN3

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items