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* |