Routine: XT73P129

Information

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

Source file <XT73P129.m>

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

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 XT7.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)

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

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

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