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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: XT73P129

Package: Toolkit

Routine: XT73P129


Information

XT73P129 ;OAK/MKO-POST-INSTALL ROUTINE FOR XT*7.3*129 ;25 Jan 2011 10:17 PM

Source Information

Source file <XT73P129.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 3 ^%ZTLOAD  ($$DT,$$FMADD,$$FMTE,$$NOW)^XLFDT  (BMES,MES)^XPDUTL  
MailMan 1 ^XMD  
VA Fileman 1 ^DIK  

Entry Points

Name Comments DBIA/ICR reference
QUEUE ; Queue the purging process
EN ; **129,MPIC_2382
; This entry point is called from the POST-INSTALL of patch XT*7.3*129.
; It queues a process to purge File #15 of entries that meet the following criteria:
; - STATUS (Field #.03) = 'P' for POTENTIAL DUPLICATE, UNVERIFIED
; - MERGE STATUS (Field #.05) = 0 or ""
; - WHO CREATED (field #.09) = POSTMASTER (.5)
SETXTMP() ; Set up nodes in ^XTMP("XT73P129")
; Return the string ^XTMP("XT73P129",fmStartTime)
EMAIL(XTMPNAME) ; Send e-mail with summary information
PURGE ; Purge records. This is the entry point for the queued task.
MSG ; Display/log introductory message
ADD(ARRAY,TXT) ; Add text to an array (passed by reference)

External References

Name Field # of Occurrence
^%ZTLOAD QUEUE+7
^DIK PURGE+22
$$DT^XLFDT SETXTMP+4
$$FMADD^XLFDT SETXTMP+4
$$FMTE^XLFDT EMAIL+19, EMAIL+20
$$NOW^XLFDT PURGE+28, SETXTMP+3
^XMD EMAIL+29
BMES^XPDUTL QUEUE+9, QUEUE+12
MES^XPDUTL MSG+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Process completed successfully, "_@XTMPNAME@(0,"CNT")_" records deleted.",!
  • Line Location: PURGE+36

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(15 - [#15] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(15 - [#15] PURGE+9, PURGE+10, PURGE+12, PURGE+18
^XTMP("XT73P129" SETXTMP+4*, SETXTMP+5

Label References

Name Line Occurrences
$$SETXTMP PURGE+4
ADD MSG+2, MSG+3, MSG+4, MSG+5, MSG+6, MSG+7, MSG+8, MSG+9, MSG+10, MSG+11
, MSG+12, MSG+13, MSG+14, MSG+15, MSG+16, EMAIL+17, EMAIL+18, EMAIL+19, EMAIL+20, EMAIL+21
, EMAIL+22, EMAIL+23, EMAIL+24, EMAIL+25, EMAIL+26, EMAIL+27, EMAIL+28
EMAIL PURGE+34
MSG EN+6
QUEUE EN+7

Naked Globals

Name Field # of Occurrence
^(0 PURGE+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARRAY ADD~
ARRAY( ADD+1*
ARRAY("" ADD+1
CNT EMAIL+1~, EMAIL+6*, EMAIL+22
COMPLETE EMAIL+1~, EMAIL+8*, EMAIL+20
DA PURGE+1~, PURGE+10*, PURGE+12, PURGE+16, PURGE+18
DIFROM EMAIL+1~
DIK PURGE+1~, PURGE+8*
DUZ SETXTMP+7, QUEUE+6
MSG PURGE+1~, MSG+1~, MSG+2, MSG+3, MSG+4, MSG+5, MSG+6, MSG+7, MSG+8, MSG+9
, MSG+10, MSG+11, MSG+12, MSG+13, MSG+14, MSG+15, MSG+16, MSG+17
PAIR PURGE+1~, PURGE+9*, PURGE+10, PURGE+16
START EMAIL+1~, EMAIL+7*, EMAIL+19, EMAIL+26
STATUS EMAIL+1~, EMAIL+5*
STR PURGE+15~, PURGE+16*, PURGE+17, PURGE+19, PURGE+24
TSTAMP SETXTMP+2~, SETXTMP+3*, SETXTMP+4, SETXTMP+5, SETXTMP+9
TXT ADD~, ADD+1
U PURGE+12, SETXTMP+4
X PURGE+1~
XMDUZ EMAIL+1~, EMAIL+12*
XMMG EMAIL+1~
XMSUB EMAIL+1~, EMAIL+13*
XMTEXT EMAIL+1~, EMAIL+16*
XMY EMAIL+1~
XMY( EMAIL+14*, EMAIL+15*
>> XPDABORT EN+7, QUEUE+10*
>> XPDNM QUEUE+10
XTMPNAME PURGE+1~, PURGE+4*, PURGE+17, PURGE+18, PURGE+23, PURGE+24, PURGE+27, PURGE+28, PURGE+34, PURGE+36
, SETXTMP+2~, SETXTMP+5*, SETXTMP+6, SETXTMP+7, SETXTMP+8, SETXTMP+9, SETXTMP+10, EMAIL~, EMAIL+4, EMAIL+5
, EMAIL+6, EMAIL+7, EMAIL+8
XTQUEDUZ SETXTMP+7, QUEUE+1~, QUEUE+6*, EMAIL+1~, EMAIL+4*, EMAIL+14
XTTEXT EMAIL+1~, EMAIL+17, EMAIL+18, EMAIL+19, EMAIL+20, EMAIL+21, EMAIL+22, EMAIL+23, EMAIL+24, EMAIL+25
, EMAIL+26, EMAIL+27, EMAIL+28
Y PURGE+1~
ZTDESC QUEUE+1~, QUEUE+3*
ZTDTH QUEUE+1~, QUEUE+4*
ZTIO QUEUE+1~, QUEUE+5*
>> ZTQUEUED PURGE+19, PURGE+32
>> ZTREQ PURGE+33*
ZTRTN QUEUE+1~, QUEUE+2*
>> ZTSAVE("XTQUEDUZ" QUEUE+6*
ZTSK QUEUE+1~, QUEUE+8, QUEUE+12
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All