PRSARC06 ;WOIFO/JAH - Recess Tracking ListManger Inteface ;10/16/06
Source file <PRSARC06.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 |
|---|---|---|
| MAIN(LSTART,LISTI,LINE,PRSDT,PRSFYRNG) | ; BUILD LIST OF CALENDER FROM PP WITH PRSDT
; THROUGH PP CONTAINING SEPTEMBER 30 |
|
| ARAYMO(LISTI,LINE,PRSDT,MONTHCNT,STARTDAY,SHORT) | ;SILENT CALL TO PLACE MONTH IN ARRAY
; INPUT: PRSDT - must be fileman date ; SHORT - set to # of days to show if a short month ; is desired. i.e. to stop listing after the ; first PP then specify the # of ; days to that date from the 1st of the month |
|
| DISPMO(LISTI,LINE,DAYNO,NODAYS,SKPW1,STRTDY) | ;store a month into an array
|
|
| GETPPS(FIRSTDAY,LASTDAY) | ;
|
|
| GETHEAD(Y) | ;
|
|
| WEEKDAY1(ZDATE) | ;get the weekday of the 1st day of the month
; INPUT: ZDATE - FileMan date, used as the month to display ; OUTPUT: return - Integer corresponding to day of week ; (i.e. Sunday[1], Monday[2]) for the 1st day of ; the month |
|
| DAYSINMO(Y,M) | ; Return # of days in month based on year and month
; Input: Y = year in 4 digit format between 1700 and 3000 ; M = month expressed as an integer from 1 to 12 (Jan - Dec) |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("PRSARC" | ARAYMO+22*, DISPMO+32*, DISPMO+35*, DISPMO+39*, DISPMO+45* |
| ^TMP("PRSLI" | DISPMO+30*, DISPMO+34* |
| Name | Line Occurrences |
|---|---|
| $$DAYSINMO | ARAYMO+13 |
| $$GETHEAD | ARAYMO+20 |
| $$WEEKDAY1 | ARAYMO+19 |
| ARAYMO | MAIN+31, MAIN+43, MAIN+56 |
| DISPMO | ARAYMO+24 |
| GETPPS | ARAYMO+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | ARAYMO+7~ |
| BLNKS | DISPMO+12~, DISPMO+27*, DISPMO+32, DISPMO+35 |
| CNTDWN | DISPMO+12~, DISPMO+13*, DISPMO+37, DISPMO+40* |
| COUNT | ARAYMO+7~ |
| D1 | GETPPS+1~, GETPPS+2*, GETPPS+4, GETPPS+5, GETPPS+7, GETPPS+9, GETPPS+10 |
| DAY1 | ARAYMO+7~, ARAYMO+19*, ARAYMO+24 |
| DAYNO | DISPMO~, DISPMO+21, DISPMO+23 |
| DAYPOS | DISPMO+12~, DISPMO+23*, DISPMO+24, DISPMO+44, DISPMO+45 |
| DAYS | ARAYMO+7~, ARAYMO+11*, ARAYMO+13*, ARAYMO+14, ARAYMO+24, DISPMO+12~ |
| EOFYDT | MAIN+6~, MAIN+21*, MAIN+48, MAIN+54, MAIN+56 |
| FFPPE | MAIN+6~, MAIN+11* |
| FIRSTDAY | ARAYMO+7~, ARAYMO+14*, ARAYMO+18, GETPPS~, GETPPS+2, GETPPS+4 |
| FIRSTPP | MAIN+6~, MAIN+10*, MAIN+11, MAIN+12 |
| >> FMWKS( | MAIN+17 |
| GOODM | DAYSINMO+4~*, DAYSINMO+6*, DAYSINMO+7 |
| GOODY | DAYSINMO+4~*, DAYSINMO+5*, DAYSINMO+7 |
| HDR | ARAYMO+7~, ARAYMO+20*, ARAYMO+22, GETHEAD+1~, GETHEAD+2*, GETHEAD+3, GETHEAD+4, GETHEAD+5 |
| I | DISPMO+12~, DISPMO+22*, DISPMO+23, DISPMO+28, DISPMO+32, DISPMO+38, DISPMO+39, DISPMO+45* |
| LASTDAY | ARAYMO+7~, ARAYMO+14*, ARAYMO+18, GETPPS~, GETPPS+7, GETPPS+9 |
| LEADBLNK | DISPMO+12~, DISPMO+26*, DISPMO+32, DISPMO+35 |
| LENOFDT | GETHEAD+1~, GETHEAD+4*, GETHEAD+5 |
| LFPPE | MAIN+6~, MAIN+20* |
| LINE | MAIN~, MAIN+28*, MAIN+31, MAIN+43, MAIN+56, ARAYMO~, ARAYMO+21*, ARAYMO+22, ARAYMO+24, DISPMO~ , DISPMO+25*, DISPMO+30, DISPMO+32, DISPMO+34, DISPMO+35, DISPMO+39, DISPMO+45 |
| LISTI | MAIN~, MAIN+17*, MAIN+31, MAIN+43, MAIN+56, ARAYMO~, ARAYMO+24, DISPMO~, DISPMO+26, DISPMO+30 , DISPMO+32, DISPMO+34, DISPMO+35, DISPMO+36* |
| LSTART | MAIN~, MAIN+17* |
| M | DAYSINMO~, DAYSINMO+6 |
| MONTH | ARAYMO+7~, ARAYMO+9*, ARAYMO+13, GETHEAD+1~, GETHEAD+3*, GETHEAD+6, DAYSINMO+8 |
| MONTHCNT | MAIN+28*, MAIN+31, MAIN+42*, MAIN+43, MAIN+55*, MAIN+56, ARAYMO~ |
| NODAYS | DISPMO~, DISPMO+13, DISPMO+22 |
| OUT | MAIN+6~, MAIN+28*, MAIN+40*, MAIN+41, MAIN+48* |
| PP4Y | GETPPS+1~ |
| PPDAY | GETPPS+1~, GETPPS+5*, GETPPS+6, GETPPS+10*, GETPPS+11 |
| PPE | GETPPS+1~, GETPPS+4*, GETPPS+6, GETPPS+8*, GETPPS+11 |
| PPI | GETPPS+1~ |
| PPOFFSET | DISPMO+12~, DISPMO+13*, DISPMO+35 |
| PPS | ARAYMO+17~ |
| PPS( | DISPMO+28, DISPMO+32, GETPPS+6*, GETPPS+11* |
| PRSDT | MAIN~, MAIN+10, MAIN+12*, MAIN+17, MAIN+29, MAIN+30, MAIN+31, MAIN+32, ARAYMO~, ARAYMO+8 , ARAYMO+9, ARAYMO+14, ARAYMO+19 |
| PRSDY | MAIN+6~, MAIN+32*, MAIN+34, MAIN+44*, MAIN+46 |
| PRSFYRNG | MAIN~, MAIN+20, MAIN+21 |
| PRSMO | MAIN+6~, MAIN+32*, MAIN+33, MAIN+34, MAIN+44*, MAIN+45, MAIN+46 |
| PRSNMDT | MAIN+6~, MAIN+12*, MAIN+34*, MAIN+43, MAIN+44, MAIN+46*, MAIN+48, MAIN+54, MAIN+56 |
| PRSNXTMO | MAIN+6~, MAIN+33*, MAIN+34, MAIN+45*, MAIN+46, MAIN+48, MAIN+54 |
| PRSYR | MAIN+6~, MAIN+32*, MAIN+34, MAIN+44*, MAIN+46 |
| SHORT | ARAYMO~, ARAYMO+10, ARAYMO+11 |
| SKPW1 | DISPMO~, DISPMO+21 |
| STARTDAY | MAIN+30*, MAIN+31, ARAYMO~, ARAYMO+24 |
| STRTDY | DISPMO~, DISPMO+21*, DISPMO+22 |
| U | MAIN+11, MAIN+12, MAIN+20, MAIN+21, DAYSINMO+8 |
| WRTAB | DISPMO+12~, DISPMO+38*, DISPMO+39 |
| X | ARAYMO+7~, ARAYMO+8* |
| Y | ARAYMO+7~, ARAYMO+8, ARAYMO+20, GETHEAD~, GETHEAD+2, DAYSINMO~, DAYSINMO+5 |
| YEAR | ARAYMO+7~, ARAYMO+9*, ARAYMO+13, GETHEAD+1~, GETHEAD+5*, GETHEAD+6, DAYSINMO+8 |
| ZDATE | WEEKDAY1~, WEEKDAY1+5*, WEEKDAY1+6 |