PRSRLL ;HISC/JH-CALCULATE LENGTH OF TIME ;7-AUG-2000
Source file <PRSRLL.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 |
|---|---|---|
| H | ; Calculate Hours
|
|
| 0 | ||
| L | ; Calculate last day
|
|
| 1 | ; One Day
|
|
| TC | ; Get tour
|
|
| RG | ; Get X1,RG
|
|
| D | ; Calculate Days
|
|
| CNV | ; Convert Start/Stop to minutes
; X=start_"^"_stop Output: Y=start(min)_"^"_stop(min) |
|
| MIL | ; Convert from AM/PM to 2400
; X=time Y: 0=Mid=0,1=Mid=2400 Output: Y=time in 2400 |
|
| SEC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRST(457.1 - [#457.1] | H+4, L+1, RG+1 |
| ^PRST(457.2 - [#457.2] | H+5, L+2 |
| ^PRST(458 - [#458] | 0, 1+10, TC+1, TC+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | H+1~, H+5*, L+2*, D+1~ |
| AC | L+6!, RG+2 |
| CNX | CNV+2*, CNV+3, CNV+4! |
| >> D0 | 1+10, TC+1, TC+2 |
| D1 | H+1~*, H+2, 0+1* |
| DAY | H+1~, 0*, 1+10, TC+1, TC+2 |
| FLX | L+6!, RG+3 |
| K | H+1~, H+5*, L+2*, D+1~ |
| >> LEN | 1+10*, 1+11 |
| >> LUN | 1+5, 1+11, RG+1* |
| NH | L+6!, RG+2, RG+3 |
| PPE | H+1~ |
| >> PPI | 0*, 1+10, TC+1, TC+2* |
| >> RG | H+7, 0+2, L+4, 1+5, 1+6, RG+1*, RG+2*, RG+3* |
| T1 | L+3*, L+4*, L+5*, L+6! |
| >> TC | H+4, L+1, TC+1*, TC+2*, RG+1, SEC* |
| >> TIM | H+6*, H+7*, H+8*, 0+2*, L+6*, 1+2*, 1+3*, 1+4*, 1+5*, 1+6* , 1+11*, D+2* |
| >> TOUR | 1+9 |
| >> TYL | H+1*, D+2* |
| U | 1+2 |
| X | H+1~, H+6*, 0+1, L+3*, 1+1*, D+2, CNV+2*, CNV+3*, MIL+2, MIL+3 |
| X1 | H+1~, H+4*, H+5, H+8*, 0+1*, L+1*, L+2, L+5*, TC+1*, TC+2* , RG+1*, D+1* |
| X2 | H+1~, H+5*, H+6, 0+1*, L+2*, L+3, D+1* |
| >> X4 | 1+5, TC+1*, TC+2*, SEC |
| Y | H+1~, H+6, L+3, 1+2, 1+3, CNV+2*, CNV+3*, CNV+4*, MIL+2*, MIL+3* , MIL+4* |
| >> Z | H+1, H+2, H+6, 0+1, L+3, 1+1, 1+2, D+1 |