PXRMCDUE ;SLC/PKR - Custom date due calculation routines. ;02/04/2011
Source file <PXRMCDUE.m>
| Package | Total | Call Graph | 
|---|---|---|
| Clinical Reminders | 4 | ($$FULLDATE,$$NEWDATE)^PXRMDATE $$VFREQ^PXRMINTR POSTFIX^PXRMSTAC AWRITE^PXRMUTIL | 
| VA Fileman | 2 | EN^DDIOL UPDATE^DIE | 
| Kernel | 1 | $$UP^XLFSTR | 
| Package | Total | Caller Graph | 
|---|---|---|
| Clinical Reminders | 4 | PXRMDATE PXRMOUTC PXRMP18I PXRMPTL | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| CDBUILD(STRING,DA) | ;Given a custom date due string build the data | |
| MINDATE(NARGS,DLIST) | ;Return the minimum date from a list of dates in DLIST. | |
| CDKILL(X,DA) | ; | |
| TEXT | ;Custom Date Due help text. | |
| PARSE(STRING,FUNCTION,NARGS,FILIST,FREQLIST,OPLIST) | ;Parse a custom date due | |
| VFUN(FUNCTION) | ;Make sure FUNCTION is a valid function. | |
| VCDUE(STRING,DA) | ;Make sure a custom date due string is valid. | |
| MAXDATE(NARGS,DLIST) | ;Return the maximum date from a list of dates in DLIST. | |
| RANKDATE(NARGS,DLIST) | ;Return the first non-zero date from the list of dates | |
| CDUEDATE(DEFARR,FIEVAL) | ;Do the custom date due calculation and return | |
| XHELP | ;Executable help for custom date due. | |
| OUTPUT(CDUEDATA,DEFARR) | ;Build the custom date due output text. | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^PXD(811.9 - [#811.9] | CDKILL+5!, OUTPUT+4, VCDUE+14 | 
| ^TMP( | CDUEDATE+22* | 
| Name | Line Occurrences | 
|---|---|
| $$MAXDATE | CDUEDATE+13 | 
| $$MINDATE | CDUEDATE+13 | 
| $$RANKDATE | CDUEDATE+13 | 
| $$VFUN | VCDUE+9 | 
| PARSE | CDBUILD+11, VCDUE+8 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| CDUEDATA | OUTPUT~, OUTPUT+2, OUTPUT+3, OUTPUT+8 | 
| CDUEFI | OUTPUT+1~, OUTPUT+2*, OUTPUT+4, OUTPUT+7 | 
| DA | CDBUILD~, CDBUILD+12, CDBUILD+14, CDBUILD+17, CDKILL~, CDKILL+5, VCDUE~, VCDUE+5, VCDUE+14 | 
| DATE | CDUEDATE+2~, CDUEDATE+10*, CDUEDATE+11*, CDUEDATE+12, CDUEDATE+21*, CDUEDATE+22, MINDATE+2~, MINDATE+5*, RANKDATE+2~, RANKDATE+3* , RANKDATE+4*, RANKDATE+5 | 
| DDUE | CDUEDATE+2~, CDUEDATE+14*, CDUEDATE+15, CDUEDATE+23 | 
| DEFARR | CDUEDATE~, OUTPUT~ | 
| DEFARR("IEN" | OUTPUT+4 | 
| DEFARR(46 | CDUEDATE+3, CDUEDATE+4 | 
| DEFARR(47 | CDUEDATE+6, CDUEDATE+17 | 
| >> DIUTIL | CDBUILD+5, CDKILL+2, VCDUE+2 | 
| DLIST | CDUEDATE+2~, CDUEDATE+13, MAXDATE~, MINDATE~, RANKDATE~ | 
| DLIST( | CDUEDATE+12*, MAXDATE+3, MINDATE+5, RANKDATE+4 | 
| DONE | XHELP+1~, XHELP+2*, XHELP+3, XHELP+5* | 
| ENTRY | OUTPUT+1~, OUTPUT+5*, OUTPUT+6 | 
| FDA | CDBUILD+8~ | 
| FDA( | CDBUILD+13*, CDBUILD+18*, CDBUILD+19*, CDBUILD+20* | 
| FI | CDUEDATE+2~, CDUEDATE+7*, CDUEDATE+10, CDUEDATE+18*, CDUEDATE+21, CDUEDATE+22 | 
| FIEVAL | CDUEDATE~ | 
| FIEVAL( | CDUEDATE+10, CDUEDATE+21 | 
| FILIST | CDBUILD+8~, CDBUILD+11, PARSE~, VCDUE+7~, VCDUE+8 | 
| FILIST( | CDBUILD+18, PARSE+14*, VCDUE+14, VCDUE+15 | 
| FINAME | OUTPUT+1~, OUTPUT+6*, OUTPUT+7 | 
| FREQ | CDUEDATE+2~, CDUEDATE+8*, CDUEDATE+12, CDUEDATE+19*, CDUEDATE+22 | 
| FREQLIST | CDBUILD+8~, CDBUILD+11, PARSE~, VCDUE+7~, VCDUE+8 | 
| FREQLIST( | CDBUILD+19, PARSE+15*, VCDUE+22, VCDUE+23 | 
| FUNCTION | CDBUILD+8~, CDBUILD+11, CDBUILD+13, CDUEDATE+2~, CDUEDATE+3*, CDUEDATE+13, PARSE~, PARSE+8*, VCDUE+7~, VCDUE+8 , VCDUE+9, VCDUE+11, VFUN~, VFUN+1, VFUN+2, VFUN+3 | 
| IENB | CDBUILD+8~, CDBUILD+14*, CDBUILD+16*, CDBUILD+17 | 
| IENS | CDBUILD+8~, CDBUILD+12*, CDBUILD+13, CDBUILD+17*, CDBUILD+18, CDBUILD+19, CDBUILD+20 | 
| IND | CDBUILD+8~, CDBUILD+15*, CDBUILD+18, CDBUILD+19, CDBUILD+20, CDUEDATE+2~, CDUEDATE+5*, CDUEDATE+6, CDUEDATE+12, CDUEDATE+16* , CDUEDATE+17, MAXDATE+1~, MAXDATE+3*, MINDATE+2~, MINDATE+5*, PARSE+5~, PARSE+10*, PARSE+11, PARSE+13, PARSE+14 , PARSE+15, RANKDATE+2~, RANKDATE+4*, VCDUE+7~, VCDUE+13*, VCDUE+14, VCDUE+15, VCDUE+18, VCDUE+22, VCDUE+23 , XHELP+1~, XHELP+3* | 
| INDS | MAXDATE+1~, MAXDATE+2*, MAXDATE+3*, MAXDATE+4, MINDATE+2~, MINDATE+3*, MINDATE+5*, MINDATE+7, RANKDATE+2~, RANKDATE+3* , RANKDATE+4*, RANKDATE+5 | 
| MAXDATE | MAXDATE+1~, MAXDATE+2*, MAXDATE+3*, MAXDATE+4 | 
| MINDATE | MINDATE+2~, MINDATE+4*, MINDATE+5*, MINDATE+6*, MINDATE+7 | 
| MSG | CDBUILD+8~, CDBUILD+22 | 
| NARGS | CDBUILD+9~, CDBUILD+11, CDBUILD+13, CDBUILD+15, CDUEDATE+2~, CDUEDATE+4*, CDUEDATE+5, CDUEDATE+13, MAXDATE~, MAXDATE+3 , MINDATE~, MINDATE+5, PARSE~, PARSE+9*, PARSE+12*, PARSE+14, PARSE+15, PARSE+16, RANKDATE~, RANKDATE+4 , VCDUE+7~, VCDUE+8, VCDUE+13 | 
| OPER | PARSE+5~, PARSE+6*, PARSE+7, PARSE+11 | 
| OPLIST | CDBUILD+9~, CDBUILD+11, PARSE~, VCDUE+7~, VCDUE+8 | 
| OPLIST( | CDBUILD+20, PARSE+16*, VCDUE+18 | 
| PFSTACK | CDBUILD+9~, PARSE+5~, PARSE+7 | 
| PFSTACK( | PARSE+11, PARSE+13, PARSE+14, PARSE+15 | 
| PFSTACK(0 | PARSE+10 | 
| PFSTACK(1 | PARSE+8 | 
| PM | CDUEDATE+2~, CDUEDATE+9*, CDUEDATE+12, CDUEDATE+20*, CDUEDATE+22, OUTPUT+1~, OUTPUT+3*, OUTPUT+8, PARSE+5~, PARSE+13* , PARSE+14, PARSE+15, PARSE+16 | 
| >> PXRMEXCH | CDBUILD+7, CDKILL+4, VCDUE+4 | 
| >> PXRMITEM | CDUEDATE+22 | 
| >> PXRMPID | CDUEDATE+22 | 
| STRING | CDBUILD~, CDBUILD+10*, CDBUILD+11, PARSE~, PARSE+7, VCDUE~, VCDUE+6, VCDUE+8 | 
| TEMP | CDUEDATE+2~, CDUEDATE+6*, CDUEDATE+7, CDUEDATE+8, CDUEDATE+9, CDUEDATE+13*, CDUEDATE+14, CDUEDATE+16, CDUEDATE+17*, CDUEDATE+18 , CDUEDATE+19, CDUEDATE+20 | 
| TEXT | OUTPUT+1~, OUTPUT+7*, OUTPUT+8*, OUTPUT+9, VCDUE+7~, VCDUE+11*, VCDUE+12, VCDUE+15*, VCDUE+16, VCDUE+19* , VCDUE+20, VCDUE+23*, VCDUE+24, XHELP+1~, XHELP+4*, XHELP+5, XHELP+6 | 
| U | CDUEDATE+3, CDUEDATE+4, CDUEDATE+7, CDUEDATE+8, CDUEDATE+9, CDUEDATE+14, CDUEDATE+16, CDUEDATE+18, CDUEDATE+19, CDUEDATE+20 , CDUEDATE+22, MAXDATE+4, MINDATE+7, OUTPUT+2, OUTPUT+3, OUTPUT+4, OUTPUT+6, OUTPUT+8, RANKDATE+5 | 
| VALID | VCDUE+7~, VCDUE+9*, VCDUE+10, VCDUE+17*, VCDUE+21*, VCDUE+25*, VCDUE+26 | 
| VPTR | OUTPUT+1~, OUTPUT+4*, OUTPUT+5 | 
| X | CDKILL~ | 
| Name | Field # of Occurrence | 
|---|---|
| $T(TEXT+IND | XHELP+4 |