Routine: LA7CHKF1

Information

LA7CHKF1 ;DALOI/LMT - Check SNOMED CT mappings against Lexicon for exceptions ;01/10/13 08:56

Package	Total	Call Graph
Kernel	4	$$NOW^XLFDT ($$REPEAT,$$UP)^XLFSTR $$NAME^XUAF4 $$KSP^XUPARAM
VA FileMan	3	(FILE,UPDATE,WP)^DIE $$GET1^DIQ ^DIWP
Lab Service	2	$$CODE^LRSCT $$NOTIFY^LRSCTF1
MailMan	2	SENDMSG^XMXAPI $$GOTLOCAL^XMXAPIG

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Automated Lab Instruments	1	LA7TASK SCT MAPPINGS CHECK

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point
CHECK(LAFILE,LAFIEN,LASCT)	; Check Entry against Lexicon
SNDALERT(LAFILE,LAFIEN,LANAME,LASCT,LACODEINFO)	; Build alert that will be sent to STS. Return alert status.
BLDMSG(LAFILE,LAFIEN,LANAME,LALEX,LACODEINFO,LAALRTST)	; Build additional message text
UPDSTAT(LAFILE,LAFIEN,LASTATUS,LALEXERR,LATNUM)	; Update SCT CODE STATUS field
SCTUPD(LAFILE,LAFIEN,LASTATUS,LALEXERR,LATNUM)	; Update SCT STATUS DATE multiple
SENDMSG()	; Send MailMan message. Return message ID.
FRMTTXT(TEXT,LMARGIN,RMARGIN,LARSLT)	;Format Text
LN(SUB)	; Increment the line counter.
CLEAN	; Clean up tmp global(s)

External References

Name	Field # of Occurrence
FILE^DIE	UPDSTAT+15
UPDATE^DIE	SCTUPD+14
WP^DIE	SCTUPD+28
$$GET1^DIQ	CHECK+12
^DIWP	FRMTTXT+21
$$CODE^LRSCT	CHECK+6
$$NOTIFY^LRSCTF1	SNDALERT+7
$$NOW^XLFDT	SCTUPD+8
$$REPEAT^XLFSTR	BLDMSG+12
$$UP^XLFSTR	CHECK+20, CHECK+21, CHECK+25
SENDMSG^XMXAPI	SENDMSG+47
$$GOTLOCAL^XMXAPIG	SENDMSG+43, SENDMSG+44
$$NAME^XUAF4	SENDMSG+31
$$KSP^XUPARAM	SENDMSG+31

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(	EN+13, EN+16, CHECK+4, UPDSTAT+6, UPDSTAT+20
^TMP("LA7CHK"	EN+25, BLDMSG+11, BLDMSG+12, BLDMSG+13, BLDMSG+14, BLDMSG+15, BLDMSG+16, BLDMSG+17, BLDMSG+19, BLDMSG+23* , BLDMSG+24, BLDMSG+26, BLDMSG+28, SENDMSG+6, SENDMSG+7, SENDMSG+8, SENDMSG+9, SENDMSG+10, SENDMSG+13, SENDMSG+14* , SENDMSG+15, SENDMSG+16, SENDMSG+19, SENDMSG+20, SENDMSG+21, SENDMSG+22, SENDMSG+23, SENDMSG+24, SENDMSG+25, SENDMSG+26* , SENDMSG+27, SENDMSG+29, SENDMSG+30, SENDMSG+31, SENDMSG+35, SENDMSG+36*, CLEAN+2!
^TMP("XMERR"	SENDMSG+49!
^UTILITY($J	FRMTTXT+14!, FRMTTXT+22, FRMTTXT+23!
^XUSEC("LRLIASON"	SENDMSG+45

Label References

Name	Line Occurrences
$$LN	BLDMSG+11, BLDMSG+12, BLDMSG+13, BLDMSG+14, BLDMSG+15, BLDMSG+16, BLDMSG+17, BLDMSG+19, BLDMSG+23, BLDMSG+24 , BLDMSG+26, BLDMSG+28, SENDMSG+6, SENDMSG+7, SENDMSG+8, SENDMSG+9, SENDMSG+10, SENDMSG+14, SENDMSG+15, SENDMSG+16 , SENDMSG+20, SENDMSG+21, SENDMSG+22, SENDMSG+23, SENDMSG+24, SENDMSG+25, SENDMSG+26, SENDMSG+27, SENDMSG+29, SENDMSG+30 , SENDMSG+31, SENDMSG+36
$$SENDMSG	EN+25
$$SNDALERT	CHECK+30
BLDMSG	CHECK+31
CHECK	EN+22
CLEAN	EN+6, EN+27
FRMTTXT	BLDMSG+9
SCTUPD	UPDSTAT+18
UPDSTAT	CHECK+27, CHECK+32

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DILOCKTM	UPDSTAT+6
DIWF	FRMTTXT+12~, FRMTTXT+19*
DIWL	FRMTTXT+12~, FRMTTXT+15, FRMTTXT+17, FRMTTXT+22
DIWR	FRMTTXT+12~, FRMTTXT+16, FRMTTXT+18
DT	CHECK+6
DUZ	SCTUPD+10, SENDMSG+47
EXCDATA	SNDALERT+2~, SNDALERT+7
EXCDATA("TNUM"	SNDALERT+8
EXCDATA("TXT"	SNDALERT+5*
I	CHECK+23~, CHECK+24, CHECK+25, BLDMSG+2~, BLDMSG+20, BLDMSG+21, BLDMSG+22, BLDMSG+23, SENDMSG+2~, SENDMSG+34* , SENDMSG+35*, SENDMSG+36
LAALRTST	CHECK+2~, CHECK+30, CHECK+31, CHECK+32, SNDALERT+2~, SNDALERT+7, SNDALERT+9*, SNDALERT+11, BLDMSG~, BLDMSG+6 , BLDMSG+26, BLDMSG+27, BLDMSG+28
LABODY	SENDMSG+2~, SENDMSG+39*, SENDMSG+47
LACNT	EN+4~, EN+8, EN+18, EN+19, EN+20, SCTUPD+2~, SCTUPD+18, SCTUPD+19, SCTUPD+20, SCTUPD+23 , SCTUPD+24, SCTUPD+25, SCTUPD+26
LACODEINFO	CHECK+2~, CHECK+6*, CHECK+7, CHECK+9, CHECK+30, CHECK+31, SNDALERT~, SNDALERT+5, BLDMSG~, BLDMSG+24
LACODETXT	BLDMSG+2~, BLDMSG+9
LACODETXT(	BLDMSG+21, BLDMSG+22, BLDMSG+23
LACODETXT(1	BLDMSG+19
LADATA	SNDALERT+2~
LAERR	UPDSTAT+2~, SCTUPD+2~
LAERROR	BLDMSG+2~, BLDMSG+6*, BLDMSG+25, BLDMSG+27
LAFDA	UPDSTAT+2~, SCTUPD+2~
LAFDA(1	UPDSTAT+14*
LAFDA(2	SCTUPD+8, SCTUPD+9, SCTUPD+10, SCTUPD+12
LAFIEN	EN+4~, EN+15, EN+16, EN+22, CHECK~, CHECK+4, CHECK+12, CHECK+27, CHECK+30, CHECK+31 , CHECK+32, SNDALERT~, SNDALERT+7, BLDMSG~, BLDMSG+15, UPDSTAT~, UPDSTAT+6, UPDSTAT+14, UPDSTAT+18, UPDSTAT+20 , SCTUPD~, SCTUPD+8, SCTUPD+9, SCTUPD+10, SCTUPD+12, SCTUPD+28
LAFIEN(2	SCTUPD+16, SCTUPD+28
LAFILE	EN+4~, EN+11*, EN+13, EN+16, EN+22, CHECK~, CHECK+4, CHECK+12, CHECK+27, CHECK+30 , CHECK+31, CHECK+32, SNDALERT~, SNDALERT+7, BLDMSG~, BLDMSG+14, UPDSTAT~, UPDSTAT+6, UPDSTAT+14, UPDSTAT+18 , UPDSTAT+20, SCTUPD~, SCTUPD+4
LALEX	CHECK+2~, CHECK+31, BLDMSG~
LALEX("F"	CHECK+21, BLDMSG+9, BLDMSG+18
LALEX("P"	CHECK+20
LALEX("S"	CHECK+22, CHECK+25
LALEX(0	CHECK+10*, BLDMSG+17
LALEXERR	CHECK+2~, CHECK+8, CHECK+9, CHECK+32, UPDSTAT~, UPDSTAT+18, SCTUPD~, SCTUPD+22, SCTUPD+25
LALEXSTAT	CHECK+2~, CHECK+7*, CHECK+9, CHECK+15, CHECK+16, CHECK+29
LALINE	EN+4~
LALINE(	LN+4*, LN+5
LAMSGSUB	BLDMSG+2~, BLDMSG+4, BLDMSG+6, BLDMSG+11, BLDMSG+12, BLDMSG+13, BLDMSG+14, BLDMSG+15, BLDMSG+16, BLDMSG+17 , BLDMSG+19, BLDMSG+23, BLDMSG+24, BLDMSG+26, BLDMSG+28, SENDMSG+2~, SENDMSG+4*, SENDMSG+6, SENDMSG+7, SENDMSG+8 , SENDMSG+9, SENDMSG+10, SENDMSG+14, SENDMSG+15, SENDMSG+16, SENDMSG+20, SENDMSG+21, SENDMSG+22, SENDMSG+23, SENDMSG+24 , SENDMSG+25, SENDMSG+26, SENDMSG+27, SENDMSG+29, SENDMSG+30, SENDMSG+31, SENDMSG+36, SENDMSG+39
LANAME	CHECK+2~, CHECK+4*, CHECK+20, CHECK+21, CHECK+25, CHECK+30, CHECK+31, SNDALERT~, SNDALERT+7, BLDMSG~ , BLDMSG+16
LARSLT	FRMTTXT~, FRMTTXT+22*
LASCT	EN+4~, EN+12, EN+13, EN+16, EN+22, CHECK~, CHECK+6, CHECK+10, CHECK+30, SNDALERT~ , SNDALERT+7
LASCTSTAT	CHECK+2~, CHECK+12*, CHECK+13, CHECK+15, CHECK+16
LASTATUS	CHECK+17~, CHECK+19, CHECK+20, CHECK+21, CHECK+22, CHECK+25, CHECK+27, UPDSTAT~, UPDSTAT+4, UPDSTAT+14 , UPDSTAT+18, SCTUPD~, SCTUPD+9
LASUB	SENDMSG+2~, SENDMSG+33*, SENDMSG+35, SENDMSG+36
LASUBFILE	SCTUPD+2~, SCTUPD+4*, SCTUPD+5, SCTUPD+8, SCTUPD+9, SCTUPD+10, SCTUPD+12, SCTUPD+28
LATNUM	UPDSTAT~, UPDSTAT+18, SCTUPD~, SCTUPD+12
LAWP	SCTUPD+2~, SCTUPD+28
LAWP(	SCTUPD+19, SCTUPD+23, SCTUPD+25*
LMARGIN	FRMTTXT~, FRMTTXT+15
LRFMERTS	UPDSTAT+2~, UPDSTAT+9*
LRFMERTS("STS"	UPDSTAT+10, UPDSTAT+11
RMARGIN	FRMTTXT~, FRMTTXT+16
SUB	LN~, LN+4, LN+5
TEXT	FRMTTXT~, FRMTTXT+20
TNUM	SNDALERT+2~, SNDALERT+8*, SNDALERT+9
U	CHECK+4, CHECK+7, CHECK+9, CHECK+10, CHECK+32, SNDALERT+5, SNDALERT+9, BLDMSG+6, BLDMSG+17, BLDMSG+24 , BLDMSG+27, BLDMSG+28
X	EN+4~, EN+25, SNDALERT+2~, FRMTTXT+12~, FRMTTXT+20
XMERR	SENDMSG+2~
XMINSTR	SENDMSG+2~, SENDMSG+47
XMINSTR("ADDR	FLAGS" , SENDMSG+40*
XMINSTR("FROM"	SENDMSG+41*
XMSUBJ	SENDMSG+2~, SENDMSG+38*, SENDMSG+47
XMTO	SENDMSG+2~, SENDMSG+45*, SENDMSG+47
XMTO("G.LAB M	ESSAGING" , SENDMSG+43*
XMTO("G.LMI"	SENDMSG+44*
XMZ	SENDMSG+2~, SENDMSG+47, SENDMSG+51
>> ZTQUEUED	EN+20

Customize PDF page

Package: Automated Lab Instruments