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 |