PXRMSXRM ; SLC/PKR - Main driver for building indexes. ;08/14/2017
Source file <PXRMSXRM.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Name | Comments | DBIA/ICR reference |
---|---|---|
ADDERROR(GLOBAL,IDEN,NERROR) | ;Add to the error list.
|
|
ASKTASK() | ;See if this should be tasked.
|
|
BLDINDEX(FNUMLIST,START,SEQP) | ;API for building the Clinical Reminders
|
|
COMMSG(GLOBAL,START,END,NE,NERROR) | ;Send a MailMan message providing
|
|
DETIME(START,END) | ;Write out the elapsed time.
|
|
ERRMSG(NERROR,GLOBAL) | ;If there were errors send an error message.
|
|
ETIME(START,END) | ;Calculate and format the elapsed time.
|
|
INDEX | ;Driver for building the various indexes.
|
|
NDONEMSG(FNUM,ZTSK) | ;If the task to rebuild an index did not complete
|
|
RTNLIST(ROUTINE) | ;Populate the routine list.
|
|
RUNNOW(LIST,GBL,ROUTINE) | ;Run the index build routines now.
|
|
SEL(LIST,GBL) | ;Select global list
|
|
TASKIT(LIST,GBL,ROUTINE) | ;Build the indexes as a tasked job.
|
|
TASKBLD | ;Execute as tasked job. FNUM, FNUMLIST, and RTN come through ZTSAVE.
|
|
TASKJOB | ;Execute as tasked job, used by list build option.
|
|
TASKDONE(TASKNUM) | ;Return a 1 when task number TASKNUM has completed.
|
|
TASKRUN | ;Task to queue index builds for BLDINDEX API.
|
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | BLDINDEX+20, TASKIT+20, TASKRUN+17 |
$$S^%ZTLOAD | TASKJOB+11 |
STAT^%ZTLOAD | TASKDONE+7 |
$$GET1^DIQ | COMMSG+13, COMMSG+17, ERRMSG+13, ERRMSG+17, NDONEMSG+4, NDONEMSG+8 |
^DIR | ASKTASK+5, SEL+23, TASKIT+7 |
INDEXD^PXRMDIEV | RUNNOW+9, TASKBLD+2, TASKJOB+14 |
$$ASKYN^PXRMEUT | INDEX+6 |
SEND^PXRMMSG | COMMSG+19, ERRMSG+19, NDONEMSG+14 |
$$TASKDONE^PXRMSXRM | TASKRUN+22 |
$$FMTE^XLFDT | COMMSG+6, NDONEMSG+11, TASKIT+4 |
$$HDIFF^XLFDT | ETIME+3, ETIME+5 |
$$NOW^XLFDT | COMMSG+6, NDONEMSG+11, 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+15, ERRMSG+4, ERRMSG+15, NDONEMSG+6 |
^TMP("PXRMERROR" | ADDERROR+2*, ERRMSG+9, ERRMSG+11! |
^TMP("PXRMXMZ" | COMMSG+3!, COMMSG+5*, COMMSG+6*, COMMSG+7*, COMMSG+8*, COMMSG+9*, COMMSG+11*, COMMSG+12*, ERRMSG+6!, ERRMSG+9* , ERRMSG+10*, NDONEMSG+10!, NDONEMSG+11*, NDONEMSG+12*, NDONEMSG+13* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ALIST | SEL+1~, SEL+20 |
ALIST( | SEL+2*, SEL+3*, SEL+4*, SEL+5*, SEL+6*, SEL+7*, SEL+8*, SEL+9*, SEL+10*, SEL+11* , SEL+12*, SEL+13*, SEL+14*, SEL+15*, SEL+16*, SEL+17*, SEL+18*, SEL+19* |
ANS | INDEX+1~, INDEX+6*, INDEX+7 |
BUILT | TASKRUN+2~, TASKRUN+22*, TASKRUN+23 |
DESC | TASKRUN+2~, TASKRUN+14* |
DIR | ASKTASK+1~, SEL+1~, TASKIT+1~ |
DIR("A" | ASKTASK+3*, SEL+20*, SEL+21*, TASKIT+3*, TASKIT+4*, TASKIT+5* |
DIR("B" | ASKTASK+4* |
DIR(0 | ASKTASK+2*, SEL+22*, TASKIT+6* |
DIROUT | ASKTASK+1~, ASKTASK+6, SEL+1~, SEL+24, TASKIT+1~, TASKIT+8 |
DIRUT | ASKTASK+1~, ASKTASK+6, SEL+1~, SEL+24, TASKIT+1~, TASKIT+8 |
DONE | TASKDONE+1~, TASKDONE+4*, TASKDONE+5, TASKDONE+8*, TASKDONE+9*, TASKDONE+10*, TASKDONE+12*, TASKDONE+13, TASKDONE+14*, TASKDONE+15 |
DTOUT | ASKTASK+1~, ASKTASK+7, SEL+1~, SEL+25, TASKIT+1~, TASKIT+9 |
DUOUT | ASKTASK+1~, ASKTASK+7, SEL+1~, SEL+25, TASKIT+1~, TASKIT+9 |
DUZ | COMMSG+13, COMMSG+14, ERRMSG+13, ERRMSG+14, NDONEMSG+4, NDONEMSG+5 |
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 |
FNUM | BLDINDEX+4~, BLDINDEX+6*, BLDINDEX+7*, NDONEMSG~, NDONEMSG+3, NDONEMSG+12, TASKBLD+2, TASKRUN+2~, TASKRUN+4*, TASKRUN+5* , TASKRUN+6, TASKRUN+9, TASKRUN+13, TASKRUN+23 |
FNUMLIST | BLDINDEX~, TASKBLD+2 |
FNUMLIST( | BLDINDEX+7, TASKRUN+5 |
FROM | COMMSG+2~, COMMSG+13*, COMMSG+19, ERRMSG+1~, ERRMSG+13*, ERRMSG+19, NDONEMSG+2~, NDONEMSG+4*, NDONEMSG+14 |
GBL | INDEX+1~, INDEX+10, INDEX+17, INDEX+18, RUNNOW~, SEL~, TASKIT~ |
GBL( | RUNNOW+5, RUNNOW+8, RUNNOW+9, SEL+2*, SEL+3*, SEL+4*, SEL+5*, SEL+6*, SEL+7*, SEL+8* , SEL+9*, SEL+10*, SEL+11*, SEL+12*, SEL+13*, SEL+14*, SEL+15*, SEL+16*, SEL+17*, SEL+18* , SEL+19*, TASKJOB+8, TASKJOB+13, TASKJOB+14 |
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, RUNNOW+6*, RUNNOW+7, TASKJOB+2~, TASKJOB+6*, TASKJOB+7 , TASKJOB+9*, TASKJOB+11*, TASKJOB+12 |
INDEXL | RUNNOW+1~, RUNNOW+9, TASKJOB+2~, TASKJOB+14 |
INDEXL( | RUNNOW+5*, TASKJOB+8* |
INUM | SEL+1~, SEL+2*, SEL+3*, SEL+4*, SEL+5*, SEL+6*, SEL+7*, SEL+8*, SEL+9*, SEL+10* , SEL+11*, SEL+12*, SEL+13*, SEL+14*, SEL+15*, SEL+16*, SEL+17*, SEL+18*, SEL+19*, SEL+22 |
LI | RUNNOW+1~, RUNNOW+4*, RUNNOW+5, RUNNOW+7*, RUNNOW+8, RUNNOW+9, TASKJOB+2~, TASKJOB+7*, TASKJOB+8, TASKJOB+12* , TASKJOB+13, TASKJOB+14 |
LIST | INDEX+1~, INDEX+10, INDEX+11, INDEX+17, INDEX+18, RUNNOW~, RUNNOW+2, RUNNOW+4, RUNNOW+7, SEL~ , SEL+24*, SEL+25*, SEL+26*, TASKIT~, TASKJOB+5, TASKJOB+7, TASKJOB+12 |
MAXERR | ERRMSG+1~, ERRMSG+4*, ERRMSG+5*, ERRMSG+7, ERRMSG+10 |
MGIEN | COMMSG+2~, COMMSG+15*, COMMSG+16, COMMSG+17, ERRMSG+1~, ERRMSG+15*, ERRMSG+16, ERRMSG+17, NDONEMSG+2~, NDONEMSG+6* , NDONEMSG+7, NDONEMSG+8 |
MGROUP | COMMSG+2~, COMMSG+17*, COMMSG+18, ERRMSG+1~, ERRMSG+17*, ERRMSG+18, NDONEMSG+2~, NDONEMSG+8*, NDONEMSG+9 |
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 |
NT | TASKDONE+1~, TASKDONE+4*, TASKDONE+6*, TASKDONE+12, TASKDONE+14 |
NTB | BLDINDEX+4~, BLDINDEX+6*, BLDINDEX+7*, BLDINDEX+8, BLDINDEX+9 |
NUM | RUNNOW+1~, RUNNOW+2*, RUNNOW+3, RUNNOW+6, TASKJOB+2~, TASKJOB+5*, TASKJOB+6, TASKJOB+9, TASKJOB+11 |
ROUTINE | BLDINDEX+4~, BLDINDEX+10, INDEX+1~, INDEX+2, INDEX+17, INDEX+18, RTNLIST~, RUNNOW~, TASKIT~ |
ROUTINE( | RTNLIST+7*, RTNLIST+8*, RTNLIST+9*, RTNLIST+11*, RTNLIST+12*, RTNLIST+13*, RTNLIST+14*, RTNLIST+15*, RTNLIST+16*, RTNLIST+17* , RTNLIST+18*, RUNNOW+8, TASKJOB+13, TASKRUN+6 |
ROUTINE(100 | RTNLIST+6* |
ROUTINE(45 | RTNLIST+1* |
ROUTINE(52 | RTNLIST+2* |
ROUTINE(55 | RTNLIST+3* |
ROUTINE(63 | RTNLIST+4* |
ROUTINE(70 | RTNLIST+5* |
ROUTINE(9000011 | RTNLIST+10* |
RTN | RUNNOW+1~, RUNNOW+8*, RUNNOW+10, TASKBLD+3, TASKJOB+2~, TASKJOB+13*, TASKJOB+15, TASKRUN+2~, TASKRUN+6*, TASKRUN+7 , TASKRUN+11 |
SDTIME | TASKIT+1~, TASKIT+10*, TASKIT+18 |
SEQ | BLDINDEX+4~, BLDINDEX+5*, BLDINDEX+9*, BLDINDEX+14, TASKRUN+21, TASKRUN+25 |
SEQP | BLDINDEX~, BLDINDEX+5 |
START | BLDINDEX~, BLDINDEX+15, BLDINDEX+18, COMMSG~, COMMSG+8, DETIME~, DETIME+3, ETIME~, ETIME+3, ETIME+5 , TASKRUN+15 |
TASKIT | INDEX+1~, INDEX+13*, INDEX+14, INDEX+15 |
TASKNUM | TASKDONE~, TASKDONE+3 |
TEXT | DETIME+2~, DETIME+3*, DETIME+4, ETIME+2~, ETIME+6*, ETIME+7*, ETIME+8 |
TO | COMMSG+2~, COMMSG+19, ERRMSG+1~, ERRMSG+19, NDONEMSG+2~, NDONEMSG+14 |
TO( | COMMSG+14*, COMMSG+18*, ERRMSG+14*, ERRMSG+18*, NDONEMSG+5*, NDONEMSG+9* |
U | TASKIT+6 |
X | ASKTASK+1~, SEL+1~, TASKIT+1~ |
XMSUB | COMMSG+2~, COMMSG+4*, COMMSG+19, ERRMSG+1~, ERRMSG+12*, ERRMSG+19, NDONEMSG+2~, NDONEMSG+3*, NDONEMSG+14 |
Y | ASKTASK+1~, ASKTASK+8, SEL+1~, SEL+26, TASKIT+1~, TASKIT+10 |
>> ZTDESC | BLDINDEX+17*, TASKIT+17*, TASKRUN+13*, TASKRUN+14 |
>> ZTDTH | BLDINDEX+18*, TASKIT+18*, TASKRUN+15* |
>> ZTIO | BLDINDEX+19*, TASKIT+19*, TASKRUN+16* |
>> ZTREQ | TASKBLD+1*, TASKJOB+3*, TASKDONE+2*, TASKRUN+3* |
>> ZTRTN | BLDINDEX+16*, TASKIT+16*, TASKRUN+12* |
ZTSAVE | BLDINDEX+11!, TASKIT+12!, TASKRUN+8! |
ZTSAVE("FNUM" | TASKRUN+9* |
ZTSAVE("FNUMLIST(" | BLDINDEX+12*, TASKRUN+10* |
ZTSAVE("GBL(" | TASKIT+14* |
ZTSAVE("LIST" | TASKIT+13* |
ZTSAVE("ROUTINE(" | BLDINDEX+13*, TASKIT+15* |
ZTSAVE("RTN" | TASKRUN+11* |
ZTSAVE("SEQ" | BLDINDEX+14* |
ZTSAVE("START" | BLDINDEX+15* |
ZTSK | BLDINDEX+21, NDONEMSG~, NDONEMSG+12, TASKIT+21, TASKDONE+1~, TASKDONE+3*, TASKRUN+8!, TASKRUN+18, TASKRUN+22, TASKRUN+23 |
ZTSK(0 | TASKDONE+8 |
ZTSK(1 | TASKDONE+9, TASKDONE+10 |
>> ZTSTOP | TASKJOB+4*, TASKJOB+11* |