Routine: DG737PST

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA Fileman	4	$$GET1^DID FILE^DIE $$IENS^DILF ^DIR
Kernel	2	(,$$S)^%ZTLOAD ($$FMTE,$$HDIFF,$$NOW)^XLFDT
MailMan	2	XMZ^XMA2 ENT1^XMD
Registration	1	($$ETIME,RUNNOW,SEND)^DG737PST

Package	Total	Caller Graph
Registration	1	DG737PST

Package

Total

Caller Graph

Registration

DG737PST

Entry Points

Name	Comments	DBIA/ICR reference
RETRY
SEND(XMSUB,USER)	;Send a MailMan message to the user. The text of the message is in
ETIME(START,END)	;Calculate and format the elapsed time.
CNTPTF(FILENUM,NSD)	;Check for string dates for PTF indexes where the
UPDATE	; strip trailing zeros from date,e.g., 3031005.1340 or 3010816.134050
TASKIT(LIST,GBL,ROUTINE)	;Check the indexes as a tasked job.
RUNNOW(LIST,GBL)	;Run the routine now.
MESSAGE(FILENUM,NSD,START,END)	;Build the MailMan message giving the
TASKJOB	;Execute as tasked job. LIST and GBL come through ZTSAVE.
CHECK	;Driver for making index date checks & stripping trailing zeros

External References

Name	Field # of Occurrence
^%ZTLOAD	TASKIT+20
$$S^%ZTLOAD	TASKJOB+7
$$ETIME^DG737PST	MESSAGE+10
RUNNOW^DG737PST	TASKJOB+9
SEND^DG737PST	MESSAGE+22
$$GET1^DID	MESSAGE+5
FILE^DIE	UPDATE+12
$$IENS^DILF	UPDATE+10
^DIR	TASKIT+7
$$FMTE^XLFDT	MESSAGE+9, TASKIT+4
$$HDIFF^XLFDT	ETIME+3, ETIME+5
$$NOW^XLFDT	MESSAGE+9, TASKIT+2
XMZ^XMA2	RETRY+1
ENT1^XMD	RETRY+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Queue the Clinical Reminders Index date check and update." Line Location: CHECK+2
Function Call: WRITE	Prompt: !,"Checking file number "_FILENUM Line Location: CNTPTF+5
Function Call: WRITE	Prompt: "." Line Location: CNTPTF+13
Function Call: WRITE	Prompt: !,"Task number ",ZTSK," queued." Line Location: TASKIT+21
Routine Call	DIE Line Location: UPDATE+12
Routine Call	DIR Line Location: TASKIT+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PXRMINDX(	CNTPTF+11, CNTPTF+15, CNTPTF+17, CNTPTF+19, CNTPTF+22, MESSAGE+12, RUNNOW+12
^TMP("PXRMXMZ"	CNTPTF+3!, MESSAGE+3!, MESSAGE+8, MESSAGE+9, MESSAGE+10, MESSAGE+11, MESSAGE+13, MESSAGE+14, MESSAGE+16, MESSAGE+20 , MESSAGE+21*, RETRY+4, RETRY+5!
^TMP($J	CNTPTF+3!, CNTPTF+24*, MESSAGE+20, RUNNOW+2!
^XMB(3.9 - [#3.9]	RETRY+4, RETRY+6, RETRY+7

Name	Line Occurrences
@(	RUNNOW+12
MESSAGE	RUNNOW+14
RETRY	RETRY+2
TASKIT	CHECK+6
UPDATE	CNTPTF+25

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DAS	CNTPTF+4~, CNTPTF+21, CNTPTF+22, CNTPTF+24, UPDATE+3, UPDATE+8, UPDATE+9
DATE	CNTPTF+4~, CNTPTF+18, CNTPTF+19, CNTPTF+20, CNTPTF+22, CNTPTF+24, UPDATE+2
DFN	CNTPTF+4~, CNTPTF+10, CNTPTF+11, CNTPTF+15, CNTPTF+17, CNTPTF+19, CNTPTF+22, CNTPTF+24
DGDA	UPDATE+1~, UPDATE+8*, UPDATE+10
DGDA(1	UPDATE+9*
DGFILE	UPDATE+1~, UPDATE+3, UPDATE+4, UPDATE+5, UPDATE+6*, UPDATE+11
DGIENS	UPDATE+1~, UPDATE+10*, UPDATE+11
DGNEWDT	UPDATE+1~, UPDATE+2*, UPDATE+11
DIR	TASKIT+1~, TASKIT+11!
DIR("A"	TASKIT+3, TASKIT+4, TASKIT+5*
DIR(0	TASKIT+6*
DIROUT	TASKIT+1~, TASKIT+8
DIRUT	TASKIT+1~, TASKIT+8
DT	RETRY+7
DTOUT	TASKIT+1~, TASKIT+9
DUOUT	TASKIT+1~, TASKIT+9
DUZ	MESSAGE+22, RETRY+9
END	MESSAGE~, MESSAGE+10, RUNNOW+1~, RUNNOW+13*, RUNNOW+14, ETIME~, ETIME+3, ETIME+5
ETIME	ETIME+2~, ETIME+3, ETIME+4, ETIME+5, ETIME+6, ETIME+7
FDA	UPDATE+1~
FDA(	UPDATE+11*
FILENUM	CNTPTF~, CNTPTF+5, CNTPTF+11, CNTPTF+15, CNTPTF+17, CNTPTF+19, CNTPTF+22, CNTPTF+24, MESSAGE~, MESSAGE+4 , MESSAGE+5, MESSAGE+12, MESSAGE+13
FN	RUNNOW+1~, RUNNOW+8*, RUNNOW+9, RUNNOW+10, RUNNOW+12, RUNNOW+14
GBL	CHECK+1~, CHECK+6, RUNNOW~, TASKIT~, TASKJOB+9
GBL(	RUNNOW+8
GBL(4	CHECK+3*
IND	CNTPTF+4~, CNTPTF+6, CNTPTF+12, CNTPTF+13, MESSAGE+2~, MESSAGE+18, MESSAGE+20, RUNNOW+1~, RUNNOW+5, RUNNOW+6 , TASKJOB+1~, TASKJOB+5, TASKJOB+7, TASKJOB+8
ITEM	CNTPTF+4~, CNTPTF+16, CNTPTF+17, CNTPTF+19, CNTPTF+22, CNTPTF+24
LI	RUNNOW+1~, RUNNOW+6, RUNNOW+8, TASKJOB+1~, TASKJOB+8, TASKJOB+9
LIST	CHECK+1~, CHECK+4*, CHECK+6, RUNNOW~, RUNNOW+4, RUNNOW+6, TASKIT~, TASKJOB+4, TASKJOB+8
MGIEN	SEND+3~
MGROUP	SEND+3~
MINDT	TASKIT+1~, TASKIT+2*, TASKIT+4, TASKIT+6
NAME	MESSAGE+2~, MESSAGE+5*, MESSAGE+6, MESSAGE+7
NL	MESSAGE+2~, MESSAGE+17, MESSAGE+19, MESSAGE+20, MESSAGE+21, SEND+3~, RETRY+6, RETRY+7
NODE	CNTPTF+4~, CNTPTF+14, CNTPTF+15, CNTPTF+17, CNTPTF+19, CNTPTF+22, CNTPTF+24
NSD	CNTPTF~, CNTPTF+23, CNTPTF+24, MESSAGE~, MESSAGE+6, MESSAGE+7, MESSAGE+12, MESSAGE+15, MESSAGE+18, RUNNOW+1~ , RUNNOW+7, RUNNOW+14
NUM	RUNNOW+1~, RUNNOW+4, RUNNOW+5, TASKJOB+1~, TASKJOB+4, TASKJOB+5, TASKJOB+7
REF	SEND+3~
ROUTINE	CHECK+1~, CHECK+6, RUNNOW+1~, TASKIT~
ROUTINE(	RUNNOW+9
ROUTINE(45	CHECK+5, RUNNOW+3
RTN	RUNNOW+1~, RUNNOW+9, RUNNOW+10, RUNNOW+12
SDTIME	TASKIT+1~, TASKIT+10*, TASKIT+18
START	MESSAGE~, MESSAGE+10, RUNNOW+1~, RUNNOW+11*, RUNNOW+14, ETIME~, ETIME+3, ETIME+5
TEXT	MESSAGE+2~, MESSAGE+6, MESSAGE+7, MESSAGE+8, ETIME+2~, ETIME+6, ETIME+7, ETIME+8
TOTAL	RUNNOW+1~
TYPE	CNTPTF+4~, CNTPTF+9*, CNTPTF+11, CNTPTF+15, CNTPTF+17, CNTPTF+19, CNTPTF+22, CNTPTF+24
U	TASKIT+6, RETRY+7
USER	SEND~, RETRY+9
X	TASKIT+1~
XMDUZ	SEND+3~, SEND+11*
XMSUB	MESSAGE+2~, MESSAGE+4, MESSAGE+22, SEND~, SEND+9
XMY	SEND+3~
XMY(	RETRY+9*
XMZ	SEND+3~, RETRY+2, RETRY+4, RETRY+6, RETRY+7
Y	TASKIT+1~, TASKIT+10
>> ZTDESC	TASKIT+17*
>> ZTDTH	TASKIT+18*
>> ZTIO	TASKIT+19*
>> ZTQUEUED	CNTPTF+5, CNTPTF+13
>> ZTREQ	TASKJOB+2*
>> ZTRTN	TASKIT+16*
ZTSAVE	TASKIT+13!
ZTSAVE("GBL("	TASKIT+15*
ZTSAVE("LIST"	TASKIT+14*
>> ZTSK	TASKIT+21
>> ZTSTOP	TASKJOB+3, TASKJOB+7

Customize PDF page

Package: Registration

Routine: DG737PST

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: