Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSXPURG

Package: CMOP

Routine: PSXPURG


Information

PSXPURG ;BIR/WPB-Purges Files at Host and Remote Facilities ;12 Dec 2001

Source Information

Source file <PSXPURG.m>

Call Graph

Call Graph Total: 12

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  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
CMOP 2 PSXR PURGE  PSXRXQU  

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

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

Label References

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!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All