Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSX(550 - [#550] Classic Fileman Calls
^PSX(552.2 - [#552.2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call