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 |