©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DG737PST ;BAY/JAT ;file #45 cleanup
Source file <DG737PST.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RETRY | ||
| SEND(XMSUB,USER) | ;Send a MailMan message to the user. The text of the message is in
|
|
| ETIME(START,END) | ;Calculate and format the elapsed time.
|
|
| CNTPTF(FILENUM,NSD) | ;Check for string dates for PTF indexes where the
|
|
| UPDATE | ; strip trailing zeros from date,e.g., 3031005.1340 or 3010816.134050
|
|
| TASKIT(LIST,GBL,ROUTINE) | ;Check the indexes as a tasked job.
|
|
| RUNNOW(LIST,GBL) | ;Run the routine now.
|
|
| MESSAGE(FILENUM,NSD,START,END) | ;Build the MailMan message giving the
|
|
| TASKJOB | ;Execute as tasked job. LIST and GBL come through ZTSAVE.
|
|
| CHECK | ;Driver for making index date checks & stripping trailing zeros
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | TASKIT+20 |
| $$S^%ZTLOAD | TASKJOB+7 |
| $$ETIME^DG737PST | MESSAGE+10 |
| RUNNOW^DG737PST | TASKJOB+9 |
| SEND^DG737PST | MESSAGE+22 |
| $$GET1^DID | MESSAGE+5 |
| FILE^DIE | UPDATE+12 |
| $$IENS^DILF | UPDATE+10 |
| ^DIR | TASKIT+7 |
| $$FMTE^XLFDT | MESSAGE+9, TASKIT+4 |
| $$HDIFF^XLFDT | ETIME+3, ETIME+5 |
| $$NOW^XLFDT | MESSAGE+9, TASKIT+2 |
| XMZ^XMA2 | RETRY+1 |
| ENT1^XMD | RETRY+9 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PXRMINDX( | CNTPTF+11, CNTPTF+15, CNTPTF+17, CNTPTF+19, CNTPTF+22, MESSAGE+12, RUNNOW+12 |
| ^TMP("PXRMXMZ" | CNTPTF+3!, MESSAGE+3!, MESSAGE+8*, MESSAGE+9*, MESSAGE+10*, MESSAGE+11*, MESSAGE+13*, MESSAGE+14*, MESSAGE+16*, MESSAGE+20* , MESSAGE+21*, RETRY+4, RETRY+5! |
| ^TMP($J | CNTPTF+3!, CNTPTF+24*, MESSAGE+20, RUNNOW+2! |
| ^XMB(3.9 - [#3.9] | RETRY+4*, RETRY+6, RETRY+7* |
| Name | Line Occurrences |
|---|---|
| @( | RUNNOW+12 |
| MESSAGE | RUNNOW+14 |
| RETRY | RETRY+2 |
| TASKIT | CHECK+6 |
| UPDATE | CNTPTF+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DAS | CNTPTF+4~, CNTPTF+21*, CNTPTF+22*, CNTPTF+24, UPDATE+3, UPDATE+8, UPDATE+9 |
| DATE | CNTPTF+4~, CNTPTF+18*, CNTPTF+19*, CNTPTF+20, CNTPTF+22, CNTPTF+24, UPDATE+2 |
| DFN | CNTPTF+4~, CNTPTF+10*, CNTPTF+11*, CNTPTF+15, CNTPTF+17, CNTPTF+19, CNTPTF+22, CNTPTF+24 |
| DGDA | UPDATE+1~, UPDATE+8*, UPDATE+10 |
| DGDA(1 | UPDATE+9* |
| DGFILE | UPDATE+1~, UPDATE+3*, UPDATE+4, UPDATE+5*, UPDATE+6*, UPDATE+11 |
| DGIENS | UPDATE+1~, UPDATE+10*, UPDATE+11 |
| DGNEWDT | UPDATE+1~, UPDATE+2*, UPDATE+11 |
| DIR | TASKIT+1~, TASKIT+11! |
| DIR("A" | TASKIT+3*, TASKIT+4*, TASKIT+5* |
| DIR(0 | TASKIT+6* |
| DIROUT | TASKIT+1~, TASKIT+8 |
| DIRUT | TASKIT+1~, TASKIT+8 |
| DT | RETRY+7 |
| DTOUT | TASKIT+1~, TASKIT+9 |
| DUOUT | TASKIT+1~, TASKIT+9 |
| DUZ | MESSAGE+22, RETRY+9 |
| END | MESSAGE~, MESSAGE+10, RUNNOW+1~, RUNNOW+13*, RUNNOW+14, ETIME~, ETIME+3, ETIME+5 |
| ETIME | ETIME+2~, ETIME+3*, ETIME+4, ETIME+5*, ETIME+6, ETIME+7 |
| FDA | UPDATE+1~ |
| FDA( | UPDATE+11* |
| FILENUM | CNTPTF~, CNTPTF+5, CNTPTF+11, CNTPTF+15, CNTPTF+17, CNTPTF+19, CNTPTF+22, CNTPTF+24, MESSAGE~, MESSAGE+4 , MESSAGE+5, MESSAGE+12, MESSAGE+13 |
| FN | RUNNOW+1~, RUNNOW+8*, RUNNOW+9, RUNNOW+10, RUNNOW+12, RUNNOW+14 |
| GBL | CHECK+1~, CHECK+6, RUNNOW~, TASKIT~, TASKJOB+9 |
| GBL( | RUNNOW+8 |
| GBL(4 | CHECK+3* |
| IND | CNTPTF+4~, CNTPTF+6*, CNTPTF+12*, CNTPTF+13, MESSAGE+2~, MESSAGE+18*, MESSAGE+20, RUNNOW+1~, RUNNOW+5*, RUNNOW+6 , TASKJOB+1~, TASKJOB+5*, TASKJOB+7*, TASKJOB+8 |
| ITEM | CNTPTF+4~, CNTPTF+16*, CNTPTF+17*, CNTPTF+19, CNTPTF+22, CNTPTF+24 |
| LI | RUNNOW+1~, RUNNOW+6*, RUNNOW+8, TASKJOB+1~, TASKJOB+8*, TASKJOB+9 |
| LIST | CHECK+1~, CHECK+4*, CHECK+6, RUNNOW~, RUNNOW+4, RUNNOW+6, TASKIT~, TASKJOB+4, TASKJOB+8 |
| MGIEN | SEND+3~ |
| MGROUP | SEND+3~ |
| MINDT | TASKIT+1~, TASKIT+2*, TASKIT+4, TASKIT+6 |
| NAME | MESSAGE+2~, MESSAGE+5*, MESSAGE+6, MESSAGE+7 |
| NL | MESSAGE+2~, MESSAGE+17*, MESSAGE+19*, MESSAGE+20, MESSAGE+21*, SEND+3~, RETRY+6*, RETRY+7 |
| NODE | CNTPTF+4~, CNTPTF+14*, CNTPTF+15*, CNTPTF+17, CNTPTF+19, CNTPTF+22, CNTPTF+24 |
| NSD | CNTPTF~, CNTPTF+23*, CNTPTF+24, MESSAGE~, MESSAGE+6, MESSAGE+7, MESSAGE+12, MESSAGE+15, MESSAGE+18, RUNNOW+1~ , RUNNOW+7*, RUNNOW+14 |
| NUM | RUNNOW+1~, RUNNOW+4*, RUNNOW+5, TASKJOB+1~, TASKJOB+4*, TASKJOB+5, TASKJOB+7 |
| REF | SEND+3~ |
| ROUTINE | CHECK+1~, CHECK+6, RUNNOW+1~, TASKIT~ |
| ROUTINE( | RUNNOW+9 |
| ROUTINE(45 | CHECK+5*, RUNNOW+3* |
| RTN | RUNNOW+1~, RUNNOW+9*, RUNNOW+10*, RUNNOW+12 |
| SDTIME | TASKIT+1~, TASKIT+10*, TASKIT+18 |
| START | MESSAGE~, MESSAGE+10, RUNNOW+1~, RUNNOW+11*, RUNNOW+14, ETIME~, ETIME+3, ETIME+5 |
| TEXT | MESSAGE+2~, MESSAGE+6*, MESSAGE+7*, MESSAGE+8, ETIME+2~, ETIME+6*, ETIME+7*, ETIME+8 |
| TOTAL | RUNNOW+1~ |
| TYPE | CNTPTF+4~, CNTPTF+9*, CNTPTF+11, CNTPTF+15, CNTPTF+17, CNTPTF+19, CNTPTF+22, CNTPTF+24 |
| U | TASKIT+6, RETRY+7 |
| USER | SEND~, RETRY+9 |
| X | TASKIT+1~ |
| XMDUZ | SEND+3~, SEND+11* |
| XMSUB | MESSAGE+2~, MESSAGE+4*, MESSAGE+22, SEND~, SEND+9* |
| XMY | SEND+3~ |
| XMY( | RETRY+9* |
| XMZ | SEND+3~, RETRY+2, RETRY+4, RETRY+6, RETRY+7 |
| Y | TASKIT+1~, TASKIT+10 |
| >> ZTDESC | TASKIT+17* |
| >> ZTDTH | TASKIT+18* |
| >> ZTIO | TASKIT+19* |
| >> ZTQUEUED | CNTPTF+5, CNTPTF+13 |
| >> ZTREQ | TASKJOB+2* |
| >> ZTRTN | TASKIT+16* |
| ZTSAVE | TASKIT+13! |
| ZTSAVE("GBL(" | TASKIT+15* |
| ZTSAVE("LIST" | TASKIT+14* |
| >> ZTSK | TASKIT+21 |
| >> ZTSTOP | TASKJOB+3*, TASKJOB+7* |