PRSATE5 ;WCIOFO/PLT-Check for Tour Overlap ;7/8/08 14:34
Source file <PRSATE5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENT | ;tour overlap check for all 14 days in file of a pp and an employee
|
|
| PPTDOL(SRT,PPI,DFN,DAY,PRSDAY,PRSC) | ;tour check for one day in a pp, define prserr=day if overlapped
|
|
| NPP | ;next pp (no secondary tour)
|
|
| NEXIT | ||
| LCPP | ;last, current or transmitted pp
|
|
| LCEXIT | ||
| TOUR(A) | ;ef: ~1=y if two day tour, ~2,999 =tour string
|
|
| DAYT(PPI,DFN,A,B,PRSDAY) | ;ef: ~1=y if two-day tour, ~2 - tour string, ~3=y if two-day tour of secondary, ~4=secondary tour
|
|
| TOUROL(A,B,C) | ;ef: =0 if not overlapped, =1 if overlapped
|
|
| ERR(A,B,C) | ;define prserr=a
|
