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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: DG737PST

Package: Registration

Routine: DG737PST


Information

DG737PST ;BAY/JAT ;file #45 cleanup

Source Information

Source file <DG737PST.m>

Call Graph

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 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*

Label References

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