Routine: LA7CHKF

Information

LA7CHKF ;DALOI/JMC - Check Lab Messaging File Integrity ;11/16/11 10:49

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZTLOAD ($$DT,$$FMADD,$$NOW)^XLFDT SETUP^XQALERT
VA FileMan	2	ENALL^DIK ^DIR
Automated Lab Instruments	1	DEL^LA7UXQA
MailMan	1	$$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: 3

Package	Total	Caller Graph
Automated Lab Instruments	3	LA7 CHECK FILES LA7ADL2 LA7PURG

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Run an integrity check
DQ	; Entry point from taskman
IC	; File 62.49 Integrity checker and fix-er-upper.
CHKBX	; Check "B" index on selected Lab files
FILE	; Check "B" index on this file
LOG(X)	; Log error in XTMP global. ; Call with X = error message to store.
LOCK(LA7DA)	; Lock entry in #62.49 ; Call with LA7DA = entry to lock ; Returns 0 = failure to obtain lock ; 1 = lock obtained
UNLOCK(LA7DA)	; Unlock entry in #62.49 ; Call with LA7DA = entry to lock
LACHK()	; Check ^LA("ADL","Q") for build up of entries. ; Send alert to mail group LAB MESSAGING warning about large # of entries.
CHECKMG	; Check if LAB MESSAGING and LMI mail groups has active members. ; Check mail groups specified for alerts in file #62.48 are valid and have active members.
INIT	; Initialize variables

External References

Name	Field # of Occurrence
^%ZIS	EN+22
HOME^%ZIS	EN+25, EN+29
^%ZTLOAD	EN+29, DQ+31
ENALL^DIK	FILE+12, FILE+14
^DIR	EN+10, EN+17
DEL^LA7UXQA	CHECKMG+47, CHECKMG+63
$$DT^XLFDT	INIT+8
$$FMADD^XLFDT	INIT+9
$$NOW^XLFDT	DQ+9, INIT+7, INIT+9
$$GOTLOCAL^XMXAPIG	CHECKMG+19, CHECKMG+33, CHECKMG+60
SETUP^XQALERT	DQ+19, LACHK+11, CHECKMG+50, CHECKMG+68

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Request ",$S($G(ZTSK):"",1:"NOT "),"Queued" Line Location: EN+30
Routine Call	%ZIS Line Location: EN+22
Routine Call	%ZIS Line Location: EN+25 EN+29
Routine Call	DIR Line Location: EN+10 EN+17

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LA("ADL"	LACHK+4
^LAB(	FILE+7, FILE+8
^LAHM(62.48 - [#62.48]	CHECKMG+53, CHECKMG+55, CHECKMG+56, CHECKMG+57
^LAHM(62.49 - [#62.49]	IC+13, IC+26, IC+36, IC+48, IC+49, IC+60, IC+63, IC+64, IC+67!, IC+70 , IC+71, IC+74, IC+75, IC+78, IC+79, IC+82, IC+83, LOCK+9, UNLOCK+4
^TMP("XMERR"	CHECKMG+10!, CHECKMG+22, CHECKMG+25, CHECKMG+29!, CHECKMG+38, CHECKMG+40!, CHECKMG+59!, CHECKMG+65, CHECKMG+71, CHECKMG+78!
^XTMP(	DQ+9, DQ+10, IC+88, IC+89, LOG+7, CHECKMG+76, INIT+7, INIT+9
^XTMP("LA7CHECKMG"	CHECKMG+8*
^XUSEC("LRLIASON"	CHECKMG+48

Label References

Name	Line Occurrences
$$LOCK	IC+12, IC+22, IC+35, IC+47, IC+61
CHECKMG	DQ+6
CHKBX	DQ+23
FILE	CHKBX+5
IC	DQ+6
INIT	DQ+6
LOG	IC+15, IC+25, IC+28, IC+38, IC+51, IC+68, IC+72, IC+76, IC+80, IC+84 , LOCK+11, CHECKMG+27, CHECKMG+28, CHECKMG+38, CHECKMG+39, CHECKMG+71, CHECKMG+72
UNLOCK	IC+16, IC+29, IC+36, IC+39, IC+53, IC+85

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	EN+20~, EN+21*
%ZIS("A"	EN+21*
%ZIS("B"	EN+21*
DIK	FILE+4~, FILE+12, FILE+13!, FILE+14
DIK(1	FILE+12, FILE+14
DIR	EN+4~, EN+15!
DIR("?"	EN+16*
DIR("A"	EN+9, EN+16
DIR("B"	EN+9, EN+16
DIR(0	EN+8, EN+16
DIROUT	EN+4~, EN+15!
DIRUT	EN+4~, EN+11, EN+15!, EN+18
DT	DQ+22, CHECKMG+8, INIT+8*, INIT+9
DTOUT	EN+4~, EN+15!
DUOUT	EN+4~, EN+15!
DUZ	DQ+17, LACHK+9
ION	EN+24
LA76248	CHECKMG+5~, CHECKMG+52, CHECKMG+53, CHECKMG+55, CHECKMG+56, CHECKMG+57
LA7CFG	IC+6~, IC+44*, IC+50
LA7CHKBX	EN+5~, EN+7, DQ+22, DQ+23, DQ+24!
LA7CNT	LACHK+2~, LACHK+3, LACHK+4, LACHK+5, LACHK+7, LACHK+12
LA7DA	IC+6~, IC+11, IC+12, IC+13, IC+15, IC+16, IC+21, IC+22, IC+23, IC+26 , IC+28, IC+29, IC+34, IC+35, IC+36, IC+38, IC+39, IC+46, IC+47, IC+48 , IC+49, IC+51, IC+53, IC+59, IC+60, IC+61, IC+63, IC+64, IC+67, IC+68 , IC+70, IC+71, IC+72, IC+74, IC+75, IC+76, IC+78, IC+79, IC+80, IC+82 , IC+83, IC+84, IC+85, LOCK~, LOCK+8, LOCK+9, LOCK+11, UNLOCK~, UNLOCK+3, UNLOCK+4 , LACHK+2~, LACHK+3, LACHK+4
LA7DAT	IC+6~, IC+11*, IC+13
LA7ECNT	DQ+4~, DQ+12, DQ+14, IC+88, LOG+5, LOG+7, CHECKMG+11, CHECKMG+75, INIT+12
LA7FIX	EN+5~, EN+12, EN+13, IC+14, IC+24, IC+27, IC+37, IC+52, IC+67, IC+71 , IC+75, IC+79, IC+83, IC+89, LOG+6, CHECKMG+5~, CHECKMG+11, INIT+4
LA7I	CHECKMG+5~, CHECKMG+54, CHECKMG+55, CHECKMG+57
LA7I(0	CHECKMG+56*, CHECKMG+71, CHECKMG+72
LA7IC	DQ+4~, DQ+9, DQ+10, DQ+15, DQ+16, IC+88, IC+89, LOG+7, CHECKMG+76, INIT+7* , INIT+9
LA7INAME	IC+6~, IC+34*, IC+36
LA7ION	EN+5~, EN+24*, DQ+27, DQ+29
LA7LOG	EN+5~, EN+7, DQ+8, DQ+15, IC+15, IC+25, IC+28, IC+38, IC+51, IC+68 , IC+72, IC+76, IC+80, IC+84, IC+87, LOCK+11, CHECKMG+24, CHECKMG+37, CHECKMG+70, CHECKMG+74 , INIT+5, INIT+6
LA7MGERRORS	CHECKMG+5~, CHECKMG+11, CHECKMG+75, CHECKMG+76
LA7MGERRORS(	CHECKMG+61, CHECKMG+69*
LA7MGERRORS("	LAB MESSAGING" , CHECKMG+20*
LA7MGERRORS("LMI"	CHECKMG+34*
LA7Q	IC+6~, IC+45*, IC+50
LA7QUIT	EN+5~, EN+23*, EN+25
LA7ROOT	IC+6~, IC+9, IC+10, IC+11, IC+14, IC+15, IC+19, IC+20, IC+21, IC+23 , IC+24, IC+25, IC+27, IC+28, IC+32, IC+33, IC+34, IC+37, IC+38, IC+42* , IC+43*, IC+44, IC+45, IC+46, IC+51, IC+52
>> LA7TCNT	IC+59, IC+62, IC+88
LA7X	CHECKMG+5~
LA7XQA	DQ+4~, DQ+18, CHECKMG+48*, CHECKMG+49, CHECKMG+67
LA7XQA(""	CHECKMG+48
LA7XQA("G.LAB	MESSAGING" , CHECKMG+30*
LA7XQA("G.LMI"	CHECKMG+23, CHECKMG+40!, CHECKMG+41
LA7Y	LOCK+7~, LOCK+8, LOCK+10, LOCK+11, LOCK+12, CHECKMG+5~, CHECKMG+57*, CHECKMG+58, CHECKMG+60, CHECKMG+61 , CHECKMG+62, CHECKMG+64, CHECKMG+65, CHECKMG+69, CHECKMG+71, CHECKMG+72
LRFN	CHKBX+2~, CHKBX+3*, CHKBX+4, FILE+7, FILE+8, FILE+12, FILE+14
LRIEN	FILE+4~, FILE+6*, FILE+7, FILE+8
LRNAME	FILE+4~, FILE+7, FILE+8, FILE+9
LRROOT	CHKBX+2~, CHKBX+4, FILE+5, FILE+6, FILE+7, FILE+9
>> POP	EN+23
X	EN+4~, EN+15!, IC+6~, LOG~, LOG+6*, LOG+7, LACHK+2~
X(	IC+49, IC+50, IC+64, IC+82, IC+83, IC+84
X(0	IC+48, IC+50, IC+63, IC+65, IC+69, IC+73, IC+77, IC+81
XMERR	CHECKMG+5~
XQA	DQ+13~, DQ+18, LACHK+6~, CHECKMG+5~, CHECKMG+49, CHECKMG+66!, CHECKMG+67*
XQA(	DQ+17, LACHK+9
XQA("G.LAB ME	SSAGING" , LACHK+10*
XQADATA	DQ+13~, DQ+15*, LACHK+6~
XQAID	DQ+13~, DQ+16, LACHK+6~, LACHK+8, CHECKMG+5~, CHECKMG+46, CHECKMG+47, CHECKMG+62, CHECKMG+63
XQAMSG	DQ+13~, DQ+14, LACHK+6~, LACHK+7, CHECKMG+5~, CHECKMG+11, CHECKMG+21, CHECKMG+22, CHECKMG+26, CHECKMG+35* , CHECKMG+36, CHECKMG+45, CHECKMG+64, CHECKMG+65*
XQAOPT	DQ+13~, LACHK+6~
XQAROU	DQ+13~, DQ+15*, LACHK+6~
Y	EN+4~, EN+12, EN+13, EN+15!, EN+19, IC+6~, IC+65, IC+66, IC+69, IC+70 , IC+71, IC+72, IC+73, IC+74, IC+75, IC+77, IC+78, IC+79, IC+80, IC+81* , IC+82, IC+83, IC+84, LACHK+2~
ZTDESC	EN+4~, EN+27, DQ+28~, DQ+30
ZTDTH	DQ+28~, DQ+29*
ZTIO	EN+4~, EN+28, DQ+28~, DQ+29
>> ZTQUEUED	DQ+33
>> ZTREQ	DQ+33*
ZTRTN	EN+4~, EN+27, DQ+28~, DQ+29
ZTSAVE	EN+4~, DQ+28~
ZTSAVE("LA7*"	EN+28*
ZTSAVE("LA7IC"	DQ+29*
ZTSK	EN+4~, EN+30, DQ+28~

Customize PDF page

Package: Automated Lab Instruments