IBDFQB ;ALB/MAF - MAIN QUEUE JOB FOR ENCOUNTER FORM PRINTING - FEB 2 1995
Source file <IBDFQB.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;
; -- Goes through the "SEQ" cross reference to print the ; highest priority jobs first (lowest sequence number). |
|
| UP(IBTASK) | ; -- store results of tasking
|
|
| QUEUE(IBDFIFN) | ; -- Set up Queue variables
|
|
| CLEAR | ; -- Clean up variables if task is not queued
|
|
| DQ | ; -- Generic entry points to edit
; -- only called by jobs tasked by this routine |
|
| UPDT | ; -- Update start and finish times
|
|
| TASK | ; -- Update Task number and last date printed
|
|
| EXIT | ||
| SET | ; -- Set up variables needed for priniting of forms
|
|
| ENTRY | ; -- Calc date and do checks on special instructions
|
|
| WEEKEND(DATE) | ;
; -- DATE (defaulted to current date if not passed) ; -- output = 1 if date is a weekend |
|
| HOLIDAY(DATE) | ;
; -- DATE (defaulted to current date if not passed) ; -- output = 1 if date is a holiday |
|
| ZTDTH | ; -- Set up the variable ZTDTH to pass the queue date time of the
; queued job. |
|
| DTIME |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^HOLIDAY - [#40.5] | Classic Fileman Calls |