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
Print Page as PDF
Routine: DG737PST

Package: Registration

Routine: DG737PST


Information

DG737PST ;BAY/JAT ;file #45 cleanup

Source Information

Source file <DG737PST.m>

Entry Points

Name Comments DBIA/ICR reference
CHECK ;Driver for making index date checks & stripping trailing zeros
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
MESSAGE(FILENUM,NSD,START,END) ;Build the MailMan message giving the
RUNNOW(LIST,GBL) ;Run the routine now.
TASKIT(LIST,GBL,ROUTINE) ;Check the indexes as a tasked job.
TASKJOB ;Execute as tasked job. LIST and GBL come through ZTSAVE.
ETIME(START,END) ;Calculate and format the elapsed time.
SEND(XMSUB,USER) ;Send a MailMan message to the user. The text of the message is in
RETRY

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
Info |  Source |  Entry Points |  Interaction Calls