; Validate a schedule
; Set up 'interval^repeat count', if no interval assume QD
DATE
; Validate a date/time (allow visits)
STOPDT(ADATE,SCHED)
; Return stop date given a schedule
; Look at max days continuous orders
; set numdays to lesser of Xnn and LR MAX...
; calculate stop date from collection time
EXPSCHED(LST,SCHED,START,STOP,MAX)
; procedure
; Expand schedule into start/stop times