PXRMSXRM ; SLC/PKR - Main driver for building indexes. ;29-Apr-2015 12:46;DU
Source file <PXRMSXRM.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
INDEX | ;Driver for building the various indexes.
|
|
SEL(LIST,GBL) | ;Select global list
|
|
ETIME(START,END) | ;Calculate and format the elapsed time.
|
|
ERRMSG(NERROR,GLOBAL) | ;If there were errors send an error message.
|
|
TASKIT(LIST,GBL,ROUTINE) | ;Build the indexes as a tasked job.
|
|
COMMSG(GLOBAL,START,END,NE,NERROR) | ;Send a MailMan message providing
|
|
TASKJOB | ;Execute as tasked job. LIST, GBL, and ROUTINE come through
|
|
ADDERROR(GLOBAL,IDEN,NERROR) | ;Add to the error list.
|
|
RUNNOW(LIST,GBL,ROUTINE) | ;Run the routines now.
|
|
ASKTASK() | ;See if this should be tasked.
|
|
DETIME(START,END) | ;Write out the elapsed time.
|
|
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | TASKIT+20 |
$$S^%ZTLOAD | TASKJOB+8 |
$$GET1^DIQ | COMMSG+11, COMMSG+15, ERRMSG+13, ERRMSG+17 |
^DIR | ASKTASK+5, SEL+25, TASKIT+7 |
INDEXD^PXRMDIEV | RUNNOW+7, TASKJOB+12 |
OPTIONS^PXRMDIEV | INDEX+36, RUNNOW+9 |
PROTCOLS^PXRMDIEV | INDEX+37, RUNNOW+10 |
$$ASKYN^PXRMEUT | INDEX+26 |
SEND^PXRMMSG | COMMSG+17, ERRMSG+19 |
$$FMTE^XLFDT | COMMSG+6, TASKIT+4 |
$$HDIFF^XLFDT | ETIME+3, ETIME+5 |
$$NOW^XLFDT | COMMSG+6, TASKIT+2 |
MES^XPDUTL | DETIME+4 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | GET1^DIQ |
^XMB(3.8 - [#3.8] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PXRM(800 - [#800] | COMMSG+13, ERRMSG+4, ERRMSG+15 |
^TMP("PXRMERROR" | ADDERROR+2*, ERRMSG+9, ERRMSG+11! |
^TMP("PXRMXMZ" | COMMSG+3!, COMMSG+5*, COMMSG+6*, COMMSG+7*, COMMSG+8*, COMMSG+9*, COMMSG+10*, ERRMSG+6!, ERRMSG+9*, ERRMSG+10* |
Name | Line Occurrences |
---|---|
$$ASKTASK | INDEX+33 |
$$ETIME | COMMSG+8, DETIME+3 |
@( | RUNNOW+6, TASKJOB+11 |
RUNNOW | INDEX+41 |
SEL | INDEX+30 |
TASKIT | INDEX+40 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ALIST | SEL+2~, SEL+22 |
ALIST( | SEL+3*, SEL+6*, SEL+8*, SEL+9*, SEL+10*, SEL+11*, SEL+12*, SEL+13*, SEL+14*, SEL+15* , SEL+16*, SEL+17*, SEL+18*, SEL+20*, SEL+21* |
ANS | INDEX+1~, INDEX+26*, INDEX+27 |
DIR | ASKTASK+1~, SEL+2~, TASKIT+1~ |
DIR("A" | ASKTASK+3*, SEL+22*, SEL+23*, TASKIT+3*, TASKIT+4*, TASKIT+5* |
DIR("B" | ASKTASK+4* |
DIR(0 | ASKTASK+2*, SEL+24*, TASKIT+6* |
DIROUT | ASKTASK+1~, ASKTASK+6, SEL+2~, SEL+26, TASKIT+1~, TASKIT+8 |
DIRUT | ASKTASK+1~, ASKTASK+6, SEL+2~, SEL+26, TASKIT+1~, TASKIT+8 |
DTOUT | ASKTASK+1~, ASKTASK+7, SEL+2~, SEL+27, TASKIT+1~, TASKIT+9 |
DUOUT | ASKTASK+1~, ASKTASK+7, SEL+2~, SEL+27, TASKIT+1~, TASKIT+9 |
DUZ | COMMSG+11, COMMSG+12, ERRMSG+13, ERRMSG+14 |
END | COMMSG~, COMMSG+8, DETIME~, DETIME+3, ERRMSG+1~, ERRMSG+7*, ERRMSG+9, ERRMSG+10, ETIME~, ETIME+3 , ETIME+5 |
ETIME | ETIME+2~, ETIME+3*, ETIME+4, ETIME+5*, ETIME+6, ETIME+7 |
FROM | COMMSG+2~, COMMSG+11*, COMMSG+17, ERRMSG+1~, ERRMSG+13*, ERRMSG+19 |
GBL | INDEX+1~, INDEX+30, INDEX+40, INDEX+41, RUNNOW~, SEL~, TASKIT~ |
GBL( | RUNNOW+5, RUNNOW+7, SEL+3*, SEL+6*, SEL+8*, SEL+9*, SEL+10*, SEL+11*, SEL+12*, SEL+13* , SEL+14*, SEL+15*, SEL+16*, SEL+17*, SEL+18*, SEL+20*, SEL+21*, TASKJOB+10, TASKJOB+12 |
GLOBAL | ADDERROR~, ADDERROR+2, COMMSG~, COMMSG+4, COMMSG+5, ERRMSG~, ERRMSG+10, ERRMSG+12 |
IDEN | ADDERROR~, ADDERROR+2 |
IND | ERRMSG+1~, ERRMSG+9*, RUNNOW+1~, RUNNOW+3*, RUNNOW+4, TASKJOB+2~, TASKJOB+6*, TASKJOB+8*, TASKJOB+9 |
INUM | SEL+2~, SEL+3*, SEL+6*, SEL+8*, SEL+9*, SEL+10*, SEL+11*, SEL+12*, SEL+13*, SEL+14* , SEL+15*, SEL+16*, SEL+17*, SEL+18*, SEL+20*, SEL+21*, SEL+24 |
LI | RUNNOW+1~, RUNNOW+4*, RUNNOW+5, RUNNOW+7, TASKJOB+2~, TASKJOB+9*, TASKJOB+10, TASKJOB+12 |
LIST | INDEX+1~, INDEX+30, INDEX+31, INDEX+40, INDEX+41, RUNNOW~, RUNNOW+2, RUNNOW+4, SEL~, SEL+26* , SEL+27*, SEL+28*, TASKIT~, TASKJOB+5, TASKJOB+9 |
MAXERR | ERRMSG+1~, ERRMSG+4*, ERRMSG+5*, ERRMSG+7, ERRMSG+10 |
MGIEN | COMMSG+2~, COMMSG+13*, COMMSG+14, COMMSG+15, ERRMSG+1~, ERRMSG+15*, ERRMSG+16, ERRMSG+17 |
MGROUP | COMMSG+2~, COMMSG+15*, COMMSG+16, ERRMSG+1~, ERRMSG+17*, ERRMSG+18 |
MINDT | TASKIT+1~, TASKIT+2*, TASKIT+4, TASKIT+6 |
NE | COMMSG~, COMMSG+7, ERRMSG+1~, ERRMSG+8*, ERRMSG+9* |
NERROR | ADDERROR~, ADDERROR+1*, ADDERROR+2, COMMSG~, COMMSG+9, COMMSG+10, ERRMSG~, ERRMSG+2, ERRMSG+7, ERRMSG+8 |
NUM | RUNNOW+1~, RUNNOW+2*, RUNNOW+3, TASKJOB+2~, TASKJOB+5*, TASKJOB+6, TASKJOB+8 |
ROUTINE | INDEX+1~, INDEX+40, INDEX+41, RUNNOW~, TASKIT~ |
ROUTINE( | INDEX+11*, INDEX+13*, INDEX+14*, INDEX+15*, INDEX+16*, INDEX+17*, INDEX+18*, INDEX+19*, INDEX+21*, INDEX+22* , RUNNOW+5, TASKJOB+10 |
ROUTINE(100 | INDEX+7* |
ROUTINE(45 | INDEX+2* |
ROUTINE(52 | INDEX+3* |
ROUTINE(55 | INDEX+4* |
ROUTINE(63 | INDEX+5* |
ROUTINE(70 | INDEX+6* |
ROUTINE(9000011 | INDEX+12* |
RTN | RUNNOW+1~, RUNNOW+5*, RUNNOW+6, TASKJOB+2~, TASKJOB+10*, TASKJOB+11 |
SDTIME | TASKIT+1~, TASKIT+10*, TASKIT+18 |
START | COMMSG~, COMMSG+8, DETIME~, DETIME+3, ETIME~, ETIME+3, ETIME+5 |
TASKIT | INDEX+1~, INDEX+33*, INDEX+34, INDEX+38 |
TEXT | DETIME+2~, DETIME+3*, DETIME+4, ETIME+2~, ETIME+6*, ETIME+7*, ETIME+8 |
TO | COMMSG+2~, COMMSG+17, ERRMSG+1~, ERRMSG+19 |
TO( | COMMSG+12*, COMMSG+16*, ERRMSG+14*, ERRMSG+18* |
U | TASKIT+6 |
X | ASKTASK+1~, SEL+2~, TASKIT+1~ |
XMSUB | COMMSG+2~, COMMSG+4*, COMMSG+17, ERRMSG+1~, ERRMSG+12*, ERRMSG+19 |
Y | ASKTASK+1~, ASKTASK+8, SEL+2~, SEL+28, TASKIT+1~, TASKIT+10 |
>> ZTDESC | TASKIT+17* |
>> ZTDTH | TASKIT+18* |
>> ZTIO | TASKIT+19* |
>> ZTREQ | TASKJOB+3* |
>> ZTRTN | TASKIT+16* |
ZTSAVE | TASKIT+12! |
ZTSAVE("GBL(" | TASKIT+14* |
ZTSAVE("LIST" | TASKIT+13* |
ZTSAVE("ROUTINE(" | TASKIT+15* |
>> ZTSK | TASKIT+21 |
>> ZTSTOP | TASKJOB+4*, TASKJOB+8* |