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
|