ORWDVAL ; SLC/KCM - Validate procedures
Source file <ORWDVAL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VALSCHED(ERR,SCHED) | ; Validate a schedule
; Set up 'interval^repeat count', if no interval assume QD |
|
| 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 |
|
| DATE | ; Validate a date/time (allow visits)
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP($J | VALSCHED+5!, VALSCHED+7!, VALSCHED+8!, EXPSCHED+5!, EXPSCHED+6, EXPSCHED+7, EXPSCHED+8, EXPSCHED+16! |
| Name | Line Occurrences |
|---|---|
| VALSCHED | EXPSCHED+3 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADATE | STOPDT~ |
| ERR | VALSCHED~, VALSCHED+2*, VALSCHED+7*, VALSCHED+9*, EXPSCHED+3 |
| >> FREQ | EXPSCHED+8* |
| IEN | EXPSCHED+2~, EXPSCHED+6*, EXPSCHED+7, EXPSCHED+8 |
| INTERVAL | VALSCHED+3*, VALSCHED+6, VALSCHED+7, EXPSCHED+2~, EXPSCHED+4*, EXPSCHED+5, EXPSCHED+6 |
| LST | EXPSCHED~, EXPSCHED+3* |
| MAX | EXPSCHED~ |
| REPEAT | VALSCHED+3*, EXPSCHED+2~, EXPSCHED+4* |
| SCHED | VALSCHED~, VALSCHED+3, STOPDT~, EXPSCHED~, EXPSCHED+4 |
| START | EXPSCHED~ |
| STOP | EXPSCHED~ |
| TYP | EXPSCHED+2~, EXPSCHED+7*, EXPSCHED+9, EXPSCHED+11, EXPSCHED+13 |
| U | EXPSCHED+7 |
| >> X | VALSCHED+9 |
