Routine: PSXPURG

Package	Total	Call Graph
VA Fileman	7	^%DT NOW^%DTC ^DIC FILE^DICN ^DIE ^DIK ^DIR
CMOP	2	^PSXPURG1 RALRT^PSXUTL
Kernel	2	(,KILL,REQ,STAT)^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT
MailMan	1	REMSBMSG^XMA1C

Package

Total

Call Graph

VA Fileman

^%DT NOW^%DTC ^DIC FILE^DICN ^DIE ^DIK ^DIR

CMOP

^PSXPURG1 RALRT^PSXUTL

Kernel

(,KILL,REQ,STAT)^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT

MailMan

REMSBMSG^XMA1C

Package	Total	Caller Graph
CMOP	2	PSXR PURGE PSXRXQU

Package

Total

Caller Graph

CMOP

PSXR PURGE PSXRXQU

Entry Points

External References

Name	Field # of Occurrence
^%DT	QUE+3
NOW^%DTC	PURG+8, LOG+2, NEXT+1, UNSCH+9
^%ZTLOAD	QUE+4
KILL^%ZTLOAD	UNSCH+7
REQ^%ZTLOAD	NEXT
STAT^%ZTLOAD	UNSCH+5
^DIC	REPT
FILE^DICN	LOG+5, QUE+8
^DIE	LOG, ENHOST+13, UNSCH+10
^DIK	PURG+5, ENHOST+12
^DIR	QUE+2
^PSXPURG1	ENHOST+16
RALRT^PSXUTL	PURG+4
$$FMADD^XLFDT	PURG+2
$$FMTE^XLFDT	REPT+5
REMSBMSG^XMA1C	LOG+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!! Line Location: REPT+2
Function Call: WRITE	Prompt: ?24,"Purge Status of CMOP Rx Queue" Line Location: REPT+3
Function Call: WRITE	Prompt: !!,SYSTEM_" does not have any purge data to report." Line Location: REPT+4
Function Call: WRITE	Prompt: !!,"Date/Time of Last Purge: ",$P($G(DTTM),":",1,2) Line Location: REPT+6
Function Call: WRITE	Prompt: !,"Starting Message Number: ",$P($G(^PSX(550,SYS,"P",LAST,0)),U,4) Line Location: REPT+7
Function Call: WRITE	Prompt: !,"Ending Message Number : ",$P($G(^PSX(550,SYS,"P",LAST,0)),U,5) Line Location: REPT+8
Function Call: WRITE	Prompt: !,"Total Orders Purged : ",$P($G(^PSX(550,SYS,"P",LAST,0)),U,2) Line Location: REPT+9
Function Call: WRITE	Prompt: !! Line Location: QUE+0
Function Call: WRITE	Prompt: !,"Job Queued." Line Location: QUE+5
Function Call: WRITE	Prompt: !,"This job doesn't exist.",! Line Location: UNSCH+4
Function Call: WRITE	Prompt: !,"This task is currently running, wait until the task has finished before stopping the job.",! Line Location: UNSCH+6
Function Call: WRITE	Prompt: !,"Job stopped.",! Line Location: UNSCH+8
Routine Call	DIE Line Location: LOG ENHOST+13 UNSCH+10
Routine Call	DIC Line Location: REPT
Routine Call	DIR Line Location: QUE+2

FileNo	Call Tags
^PSX(550 - [#550]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSX(550 - [#550]	PURG+3, PURG+4, PURG+6, LOGACK+1*, LOGACK+2, LOG+1, REPT+1, REPT+5, REPT+7, REPT+8 , REPT+9
^PSX(552.1	ENHOST+3, ENHOST+4, ENHOST+5, ENHOST+6, ENHOST+8!, ENHOST+13
^PSX(552.2	ENHOST+7, ENHOST+10, ENHOST+11
^PSX(554	QUE+1, QUE+7, NEXT+2, UNSCH+2, UNSCH+3, UNSCH+10

Name	Line Occurrences
EX	REPT, REPT+4
EXIT1	QUE+2, QUE+3
LOG	LOG+5
NEXT	ENHOST+2
UNSCH	QUE+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PURG+8, LOG+2, EXIT!, NEXT+2, EXIT1!, UNSCH+10
%DT	QUE+3*!
%DT("A"	QUE+3*
%DT("B"	QUE+3*
BAT	ENHOST+6*, ENHOST+7, ENHOST+10, ENHOST+14!
BEG	ENHOST+6*, ENHOST+7, ENHOST+10, ENHOST+14!
BMSG	LOG+2, LOG+4, LOG+6!
BTM	PURG+8, LOG+2, LOG+3, LOG+6!
DA	PURG+3!, PURG+4, PURG+6, PURG+7!, LOG, LOG+1!, LOG+6!, ENHOST+12!, ENHOST+13, ENHOST+14! , ENHOST+15!, UNSCH+10*!
DA(1	PURG+3, PURG+4, PURG+6, LOG+3, QUE+8, UNSCH+10
DD	LOG+1!, QUE+6!
DIC	LOG+3, LOG+6!, REPT!, EX!, QUE+8*!
DIC("A"	REPT*
DIC("DR"	LOG+4, QUE+8!
DIC(0	LOG+3, REPT, QUE+8*!
DIE	LOG, LOG+1!, ENHOST+13, ENHOST+14!, ENHOST+15!, UNSCH+10*!
DIK	PURG+3, PURG+7!, ENHOST+9, ENHOST+15!
DIR	QUE+2!, EXIT1!
DIR("A"	QUE+2*
DIR("B"	QUE+2*
DIR(0	QUE+2*
DIROUT	EXIT1!
DIRUT	QUE+2, EXIT1!
DO	LOG+1!, QUE+6!
DR	LOG, LOG+1!, ENHOST+13, ENHOST+14!, ENHOST+15!, UNSCH+10*!
DT	PURG+2
DTOUT	LOG+6!, REPT, EX!, QUE+3, EXIT1!
DTTM	REPT+5*, REPT+6, EX!, EXIT!
DUOUT	LOG+6!, REPT, EX!, EXIT1!
DUZ	QUE+8, UNSCH+10
EMSG	LOG+2, LOG+4, LOG+6!
END	ENHOST+6*, ENHOST+7, ENHOST+10, ENHOST+14!
FREQ	NEXT*, EXIT1!
I	PURG+4~, ENHOST+4, ENHOST+5, ENHOST+6, ENHOST+8, ENHOST+13, ENHOST+15!
IOF	REPT+2
J	ENHOST+10*, ENHOST+14!
LAST	PURG+2, PURG+3, REPT+1, REPT+4, REPT+5, REPT+7, REPT+8, REPT+9, EX!, EXIT!
MM	EXIT!
MSG	ENHOST+10*, ENHOST+12!, ENHOST+14!
N	QUE+9!
NN	EXIT!
P514	EXIT!
PSXBAT	LOG, EXIT!
PSXCNT	PURG+3*, PURG+7!
PSXDATE	QUE+3*, QUE+4, QUE+8, QUE+9!
PSXER	EXIT!
>> PSXFILE	PURG+4*
PSXPURG	PURG+3*, PURG+7!, EXIT!
PSXSER	LOG+7, EXIT!
PSXSYST	EN+1, PURG+3, LOGACK+1, LOGACK+2, LOG, LOG+1, LOG+3, LOG+6!
PSXXMZ	LOG+7, EXIT!
PSXZTSK	ENHOST+1*, ENHOST+15!, NEXT, EXIT1!
QUECNT	PURG+8, LOG+2, LOG+4, LOG+6!
RE	NEXT+2*, EXIT1!
REC	LOG+6!, ENHOST+10, ENHOST+11, ENHOST+12!, UNSCH+2, UNSCH+3, UNSCH+10, UNSCH+11!
RX1	EXIT!
STDATE	QUE+3*, QUE+9!
SYS	REPT*, REPT+1, REPT+5, REPT+7, REPT+8, REPT+9, EX!, EXIT!
SYSTEM	REPT*, REPT+4, EX!, EXIT!
TIME	QUE+9!
U	LOG+5, REPT, REPT+5, REPT+7, REPT+8, REPT+9
X	LOG+3, LOG+6!, EX!, QUE+8!, QUE+9!
XMSER	LOG+7*, EXIT!
XMZ	LOG+7*, EXIT!
XX	REPT+1*, EX!, EXIT!
XX1	EXIT!
XXX	LOG+6!, EXIT!
Y	LOG+5, LOG+6!, REPT, EX!, QUE+2, QUE+3, QUE+8!, QUE+9!, UNSCH+11!
YY	EXIT!
Z	EXIT!
ZTDESC	QUE+4, QUE+9!, NEXT, EXIT1!
ZTDTH	QUE+4, QUE+9!, NEXT, EXIT1!
ZTIO	QUE+4, QUE+9!, NEXT, EXIT1!
ZTREQ	ENHOST+1*, EXIT1!
ZTRTN	QUE+4, QUE+9!, NEXT, EXIT1!
>> ZTSAVE("DUZ"	QUE+4*, QUE+9!, EXIT1!
ZTSK	QUE+5, QUE+8, ENHOST+1, NEXT, EXIT1!, UNSCH+1~, UNSCH+3, UNSCH+4, UNSCH+11!
ZTSK(0	UNSCH+8
ZTSK(1	UNSCH+6, UNSCH+7
ZZ	EXIT!

Customize PDF page

Package: CMOP

Routine: PSXPURG

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
LOGACK	; called from acknowledgement process
EXIT1
LOG
QUE
REPT
NEXT
EN	;
PURG	;Purge CMOP System file purge multiple of all but last ten days entries ; now called by PSXBLD
EX
UNSCH	;kills the background purge of the database file (552.1)
ENHOST	;Called by Taskman to purge and close the files at the host site, job tasked every 24 hours
EXIT