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 |