PXRMINDC ; SLC/PKR - Index counting routines. ;23-Mar-2015 10:36;DU
Source file <PXRMINDC.m>
| Package | Total | Caller Graph | 
|---|---|---|
| Clinical Reminders | 2 | PXRM INDEX COUNT PXRMINDC | 
| PCE Patient Care Encounter | 1 | PXRM INDEX COUNT | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| COUNT | ;Driver for making index counts. | |
| TOTAL(COUNT,TOTAL) | ;Convert the FileMan years in COUNT to regular | |
| CNTPL(FILENUM,COUNT) | ;Get date counts for Problem List indexes where the | |
| CNT6(FILENUM,COUNT) | ;Get date counts for indexes where the date | |
| TASKIT(LIST,GBL,ROUTINE) | ;Count the indexes as a tasked job. | |
| RUNNOW(LIST,GBL) | ;Run the routines now. | |
| TASKJOB | ;Execute as tasked job. LIST and GBL come through ZTSAVE. | |
| CNTPTF(FILENUM,COUNT) | ;Get date counts for PTF indexes where the | |
| CNTSS(FILENUM,COUNT) | ;Get date counts for indexes where the start date | |
| CNT5(FILENUM,COUNT) | ;Get date counts for indexes where the date | |
| MESSAGE(FILENUM,COUNT,TOTAL,START,END) | ;Build the MailMan message giving the | 
| Name | Field # of Occurrence | 
|---|---|
| ^%ZTLOAD | TASKIT+20 | 
| $$S^%ZTLOAD | TASKJOB+7 | 
| $$GET1^DID | MESSAGE+6 | 
| $$GET1^DIQ | MESSAGE+28 | 
| ^DIR | TASKIT+7 | 
| $$INSCHR^PXRMEXLC | MESSAGE+12, MESSAGE+13 | 
| RUNNOW^PXRMINDC | TASKJOB+9 | 
| SEND^PXRMMSG | MESSAGE+30 | 
| $$ASKTASK^PXRMSXRM | COUNT+6 | 
| $$ETIME^PXRMSXRM | MESSAGE+10 | 
| SEL^PXRMSXRM | COUNT+3 | 
| $$FMTE^XLFDT | MESSAGE+9, TASKIT+4 | 
| $$NOW^XLFDT | MESSAGE+9, TASKIT+2 | 
| $$MAX^XLFMTH | MESSAGE+4 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| 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 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^PXRMINDX( | CNT5+8, CNT5+12, CNT5+14, CNT5+17, CNT6+6, CNT6+10, CNT6+12, CNT6+14, CNT6+16, CNT6+20 , CNT6+23, CNT6+27, CNT6+29, CNT6+31, CNT6+33, CNTPL+6, CNTPL+8, CNTPL+12, CNTPL+14, CNTPL+16 , CNTPL+18, CNTPL+21, CNTPTF+7, CNTPTF+9, CNTPTF+13, CNTPTF+15, CNTPTF+17, CNTPTF+20, CNTSS+7, CNTSS+11 , CNTSS+13, CNTSS+16, CNTSS+18, MESSAGE+23, MESSAGE+25, RUNNOW+30 | 
| ^TMP("PXRMXMZ" | MESSAGE+3!, MESSAGE+8*, MESSAGE+9*, MESSAGE+10*, MESSAGE+11*, MESSAGE+12*, MESSAGE+13*, MESSAGE+18*, MESSAGE+19*, MESSAGE+21* , MESSAGE+24*, MESSAGE+27*, MESSAGE+31! | 
| Name | Line Occurrences | 
|---|---|
| @( | RUNNOW+30 | 
| MESSAGE | RUNNOW+33 | 
| RUNNOW | COUNT+10 | 
| TASKIT | COUNT+9 | 
| TOTAL | RUNNOW+32 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| CODESYS | CNT6+3~, CNT6+19*, CNT6+20*, CNT6+21, CNT6+23, CNT6+27, CNT6+29, CNT6+31, CNT6+33, CNTPL+3~ , CNTPL+5*, CNTPL+6*, CNTPL+8, CNTPL+12, CNTPL+14, CNTPL+16, CNTPL+18, CNTPL+21, CNTPTF+3~, CNTPTF+5* , CNTPTF+7*, CNTPTF+9, CNTPTF+13, CNTPTF+15, CNTPTF+17, CNTPTF+20 | 
| COFF | MESSAGE+2~, MESSAGE+5*, MESSAGE+12, MESSAGE+13 | 
| COUNT | CNT5~, CNT6~, CNTPL~, CNTPTF~, CNTSS~, MESSAGE~, RUNNOW+1~, RUNNOW+29!, RUNNOW+32, RUNNOW+33 , TOTAL~, TOTAL+7!, TOTAL+8* | 
| COUNT( | CNT5+18*, CNT6+17*, CNT6+34*, CNTPL+22*, CNTPTF+21*, CNTSS+19*, MESSAGE+15, MESSAGE+16, MESSAGE+17, TOTAL+4 , TOTAL+5, TOTAL+6 | 
| DAS | CNT5+4~, CNT5+16*, CNT5+17*, CNT6+3~, CNT6+15*, CNT6+16*, CNT6+32*, CNT6+33*, CNTPL+3~, CNTPL+20* , CNTPL+21*, CNTPTF+3~, CNTPTF+19*, CNTPTF+20*, CNTSS+3~, CNTSS+17*, CNTSS+18* | 
| DATE | CNT5+4~, CNT5+13*, CNT5+14*, CNT5+15, CNT5+17, CNT6+3~, CNT6+13*, CNT6+14*, CNT6+15, CNT6+16 , CNT6+30*, CNT6+31*, CNT6+32, CNT6+33, CNTPL+3~, CNTPL+17*, CNTPL+18*, CNTPL+19, CNTPL+21, CNTPTF+3~ , CNTPTF+16*, CNTPTF+17*, CNTPTF+18, CNTPTF+20 | 
| DFN | CNT5+4~, CNT5+7*, CNT5+8*, CNT5+12, CNT5+14, CNT5+17, CNT6+3~, CNT6+5*, CNT6+6*, CNT6+10 , CNT6+12, CNT6+14, CNT6+16, CNT6+22*, CNT6+23*, CNT6+27, CNT6+29, CNT6+31, CNT6+33, CNTPL+3~ , CNTPL+7*, CNTPL+8*, CNTPL+12, CNTPL+14, CNTPL+16, CNTPL+18, CNTPL+21, CNTPTF+3~, CNTPTF+8*, CNTPTF+9* , CNTPTF+13, CNTPTF+15, CNTPTF+17, CNTPTF+20, CNTSS+3~, CNTSS+6*, CNTSS+7*, CNTSS+11, CNTSS+13, CNTSS+16 , CNTSS+18 | 
| 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 | 
| DTOUT | TASKIT+1~, TASKIT+9 | 
| DUOUT | TASKIT+1~, TASKIT+9 | 
| DUZ | MESSAGE+28, MESSAGE+29 | 
| END | MESSAGE~, MESSAGE+10, RUNNOW+1~, RUNNOW+31*, RUNNOW+33 | 
| FILENUM | CNT5~, CNT5+5, CNT5+8, CNT5+12, CNT5+14, CNT5+17, CNT6~, CNT6+4, CNT6+6, CNT6+10 , CNT6+12, CNT6+14, CNT6+16, CNT6+18, CNT6+20, CNT6+23, CNT6+27, CNT6+29, CNT6+31, CNT6+33 , CNTPL~, CNTPL+4, CNTPL+6, CNTPL+8, CNTPL+12, CNTPL+14, CNTPL+16, CNTPL+18, CNTPL+21, CNTPTF~ , CNTPTF+4, CNTPTF+7, CNTPTF+9, CNTPTF+13, CNTPTF+15, CNTPTF+17, CNTPTF+20, CNTSS~, CNTSS+4, CNTSS+7 , CNTSS+11, CNTSS+13, CNTSS+16, CNTSS+18, MESSAGE~, MESSAGE+6, MESSAGE+23, MESSAGE+25 | 
| FN | RUNNOW+1~, RUNNOW+25*, RUNNOW+26, RUNNOW+27, RUNNOW+30, RUNNOW+33 | 
| FROM | MESSAGE+2~, MESSAGE+28*, MESSAGE+30 | 
| GBL | COUNT+1~, COUNT+3, COUNT+9, COUNT+10, RUNNOW~, TASKIT~, TASKJOB+9 | 
| GBL( | RUNNOW+25 | 
| IND | CNT5+4~, CNT5+6*, CNT5+9*, CNT5+10, CNT6+3~, CNT6+5*, CNT6+7*, CNT6+8, CNT6+24*, CNT6+25 , CNTPL+3~, CNTPL+5*, CNTPL+9*, CNTPL+10, CNTPTF+3~, CNTPTF+5*, CNTPTF+10*, CNTPTF+11, CNTSS+3~, CNTSS+5* , CNTSS+8*, CNTSS+9, RUNNOW+1~, RUNNOW+23*, RUNNOW+24, TASKJOB+1~, TASKJOB+5*, TASKJOB+7*, TASKJOB+8 | 
| ITEM | CNT5+4~, CNT5+11*, CNT5+12*, CNT5+14, CNT5+17, CNT6+3~, CNT6+11*, CNT6+12*, CNT6+14, CNT6+16 , CNT6+28*, CNT6+29*, CNT6+31, CNT6+33, CNTPL+3~, CNTPL+15*, CNTPL+16*, CNTPL+18, CNTPL+21, CNTPTF+3~ , CNTPTF+14*, CNTPTF+15*, CNTPTF+17, CNTPTF+20, CNTSS+3~, CNTSS+10*, CNTSS+11*, CNTSS+13, CNTSS+16, CNTSS+18 | 
| LI | RUNNOW+1~, RUNNOW+24*, RUNNOW+25, TASKJOB+1~, TASKJOB+8*, TASKJOB+9 | 
| LIST | COUNT+1~, COUNT+3, COUNT+4, COUNT+9, COUNT+10, RUNNOW~, RUNNOW+22, RUNNOW+24, TASKIT~, TASKJOB+4 , TASKJOB+8 | 
| MINDT | TASKIT+1~, TASKIT+2*, TASKIT+4, TASKIT+6 | 
| ML | MESSAGE+2~, MESSAGE+4*, MESSAGE+5, MESSAGE+17 | 
| NAME | MESSAGE+2~, MESSAGE+6*, MESSAGE+7, MESSAGE+8, MESSAGE+23, MESSAGE+26 | 
| NL | MESSAGE+2~, MESSAGE+14*, MESSAGE+18*, MESSAGE+19*, MESSAGE+21*, MESSAGE+24*, MESSAGE+27* | 
| NODE | CNTPTF+3~, CNTPTF+12*, CNTPTF+13*, CNTPTF+15, CNTPTF+17, CNTPTF+20 | 
| NUM | RUNNOW+1~, RUNNOW+22*, RUNNOW+23, TASKJOB+1~, TASKJOB+4*, TASKJOB+5, TASKJOB+7 | 
| PERC | MESSAGE+2~, MESSAGE+16*, MESSAGE+17 | 
| PRIORITY | CNTPL+3~, CNTPL+13*, CNTPL+14*, CNTPL+16, CNTPL+18, CNTPL+21 | 
| ROUTINE | COUNT+9, RUNNOW+1~, TASKIT~ | 
| ROUTINE( | RUNNOW+8*, RUNNOW+9*, RUNNOW+10*, RUNNOW+12*, RUNNOW+13*, RUNNOW+14*, RUNNOW+15*, RUNNOW+16*, RUNNOW+17*, RUNNOW+18* , RUNNOW+20*, RUNNOW+21*, RUNNOW+26 | 
| ROUTINE(100 | RUNNOW+7* | 
| ROUTINE(45 | RUNNOW+2* | 
| ROUTINE(52 | RUNNOW+3* | 
| ROUTINE(55 | RUNNOW+4* | 
| ROUTINE(63 | RUNNOW+5* | 
| ROUTINE(70 | RUNNOW+6* | 
| ROUTINE(9000011 | RUNNOW+11* | 
| RTN | RUNNOW+1~, RUNNOW+26*, RUNNOW+27*, RUNNOW+30 | 
| SDTIME | TASKIT+1~, TASKIT+10*, TASKIT+18 | 
| START | CNTSS+3~, CNTSS+12*, CNTSS+13*, CNTSS+14, CNTSS+16, CNTSS+18, MESSAGE~, MESSAGE+10, RUNNOW+1~, RUNNOW+28* , RUNNOW+33 | 
| STATUS | CNTPL+3~, CNTPL+11*, CNTPL+12*, CNTPL+14, CNTPL+16, CNTPL+18, CNTPL+21 | 
| STOP | CNTSS+3~, CNTSS+15*, CNTSS+16*, CNTSS+18 | 
| TASKIT | COUNT+1~, COUNT+6*, COUNT+7 | 
| TC | TOTAL+2~, TOTAL+8 | 
| TC( | TOTAL+6* | 
| TEXT | MESSAGE+2~, MESSAGE+17*, MESSAGE+18, MESSAGE+20*, MESSAGE+21, MESSAGE+23*, MESSAGE+24, MESSAGE+26*, MESSAGE+27 | 
| TO | MESSAGE+2~, MESSAGE+30 | 
| TO( | MESSAGE+29* | 
| TOTAL | MESSAGE~, MESSAGE+4, MESSAGE+16, MESSAGE+20, MESSAGE+22, MESSAGE+25, RUNNOW+1~, RUNNOW+32, RUNNOW+33, TOTAL~ , TOTAL+3*, TOTAL+5* | 
| TYPE | CNT6+3~, CNT6+9*, CNT6+10*, CNT6+12, CNT6+14, CNT6+16, CNT6+26*, CNT6+27*, CNT6+29, CNT6+31 , CNT6+33, CNTPL+3~ | 
| U | TASKIT+6 | 
| X | TASKIT+1~ | 
| XMSUB | MESSAGE+2~, MESSAGE+7*, MESSAGE+30 | 
| Y | TASKIT+1~, TASKIT+10 | 
| YEAR | CNT5+4~, CNT5+15*, CNT5+18, CNT6+3~, CNT6+15*, CNT6+17, CNT6+32*, CNT6+34, CNTPL+3~, CNTPL+19* , CNTPL+22, CNTPTF+3~, CNTPTF+18*, CNTPTF+21, CNTSS+3~, CNTSS+14*, CNTSS+19, MESSAGE+2~, MESSAGE+14*, MESSAGE+15* , MESSAGE+16, MESSAGE+17, TOTAL+2~, TOTAL+3*, TOTAL+4*, TOTAL+5, TOTAL+6 | 
| >> ZTDESC | TASKIT+17* | 
| >> ZTDTH | TASKIT+18* | 
| >> ZTIO | TASKIT+19* | 
| >> ZTQUEUED | CNT5+5, CNT5+10, CNT6+4, CNT6+8, CNT6+25, CNTPL+4, CNTPL+10, CNTPTF+4, CNTPTF+11, CNTSS+4 , CNTSS+9 | 
| >> 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* |