Routine: IBDFQB

Information

IBDFQB ;ALB/MAF - MAIN QUEUE JOB FOR ENCOUNTER FORM PRINTING - FEB 2 1995

Package	Total	Call Graph
Kernel	4	HOME^%ZIS ^%ZISC ^%ZTLOAD ($$DOW,$$FMADD,$$FMTH,$$NOW)^XLFDT
VA FileMan	3	(C,NOW)^%DTC ^DIC ^DIE
Automated Information Collection System	2	^IBDF1B1 BCKGRND^IBDFFRFT
List Manager	1	PAUSE^VALM1

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Automated Information Collection System	2	IBDF BACKGRD EF PRINT QUEUE IBDFQS

Entry Points

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

External References

Name	Field # of Occurrence
C^%DTC	ZTDTH+8
NOW^%DTC	EN+6, UPDT+2
HOME^%ZIS	QUEUE+13
^%ZISC	QUEUE+20, EXIT+2
^%ZTLOAD	QUEUE+13
^DIC	HOLIDAY+6
^DIE	UPDT+2, TASK+2
^IBDF1B1	DQ+3
BCKGRND^IBDFFRFT	EN+11
PAUSE^VALM1	SET+3, SET+7
$$DOW^XLFDT	WEEKEND+4
$$FMADD^XLFDT	ENTRY+18
$$FMTH^XLFDT	DTIME
$$NOW^XLFDT	ENTRY+4, WEEKEND+3, HOLIDAY+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,ZTSK,! Line Location: QUEUE+8
Function Call: WRITE	Prompt: !!,"PRINT QUEUE ABORTED.... missing required parameters!!!!" Line Location: SET+3
Function Call: WRITE	Prompt: !!,"PRINT QUEUE ABORTED.....not an active print job... check Special Instructions" Line Location: SET+7
Routine Call	DIC Line Location: HOLIDAY+6
Routine Call	DIE Line Location: UPDT+2 TASK+2
Routine Call	%ZIS Line Location: QUEUE+13

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^HOLIDAY - [#40.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBD(357.09 - [#357.09]	EN+8, QUEUE+9*, SET+1
^IBD(357.99 - [#357.99]	SET+17, SET+18
^TMP("IB"	CLEAR+1!
^TMP("IBDF"	QUEUE+2!, QUEUE+4, CLEAR+1!, SET+17, SET+18

Label References

Name	Line Occurrences
$$HOLIDAY	ENTRY+9, ENTRY+10, ENTRY+20, ENTRY+21
$$QUEUE	EN+8
$$WEEKEND	ENTRY+8, ENTRY+10, ENTRY+19, ENTRY+21
CLEAR	QUEUE+4
DTIME	ZTDTH+3
ENTRY	SET+11
EXIT	EN+13
SET	QUEUE+3
TASK	UP+2, DQ+5
UP	EN+8
UPDT	DQ+2, DQ+4
ZTDTH	ENTRY+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+6, UPDT+2
DA	UPDT+1~, UPDT+2, TASK+1~, TASK+2
DA(1	UPDT+2, TASK+2
DATE	WEEKEND~, WEEKEND+3, WEEKEND+4, HOLIDAY~, HOLIDAY+3, HOLIDAY+5
DIC	HOLIDAY+4~, HOLIDAY+5*
DIC(0	HOLIDAY+5*
DIE	UPDT+1~, UPDT+2, TASK+1~, TASK+2
DR	UPDT+1~, UPDT+2, TASK+1~, TASK+2
GROUPS	SET+12~, SET+14, SET+16, SET+17, SET+18
GROUPS(	SET+15*, SET+16
>> IB1FLAG	TASK+3
>> IB1TASK	TASK+3*
IBADDONS	EXIT!, SET+10*
IBCLN	EXIT!, SET+17*
IBDFARY	EN+8~, ENTRY+1!
IBDFARY(	QUEUE+11, ENTRY+23*
IBDFCTR	ENTRY+2~, ENTRY+16, ENTRY+17, ENTRY+22
IBDFDATE	ENTRY+2~, ENTRY+16, ENTRY+18, ENTRY+19, ENTRY+20, ENTRY+21, ENTRY+23
IBDFDAY	EXIT!
IBDFDAY1	EXIT!
IBDFDAYS	ENTRY+2~, ENTRY+16*, ENTRY+17
>> IBDFFLD	DQ+2, DQ+4, UPDT+2
IBDFIFN	EN+5, EN+8, QUEUE~, QUEUE+9, UPDT+2, TASK+2, EXIT!, SET+1
IBDFINST	EXIT!, ENTRY+2~, ENTRY+4*, ENTRY+8, ENTRY+9, ENTRY+10, ENTRY+19, ENTRY+20, ENTRY+21
IBDFJQ	ZTDTH+2~, ZTDTH+5, ZTDTH+6, ZTDTH+7, ZTDTH+8, ZTDTH+9*, DTIME
IBDFLAST	EXIT!
IBDFNAME	EN+5*, QUEUE+13, EXIT!
IBDFNODE	QUEUE+9, QUEUE+13, EXIT!, SET+1*, SET+2, SET+6, SET+10, SET+15, ENTRY+4, ENTRY+16
IBDFNOW	EXIT!, ENTRY+2~, ENTRY+4*, ENTRY+8, ENTRY+9, ENTRY+10, ENTRY+16
IBDFNUM	EN+5, EN+8, QUEUE+9, UPDT+2, TASK+2, EXIT!, SET+1
IBDFONE	EXIT!
IBDFQ	EXIT!
IBDFQD	EN+3~, EN+6*, ZTDTH+6, ZTDTH+7
IBDFQDT	EN+3~, EN+6*, ZTDTH+5, ZTDTH+8, ZTDTH+9
IBDFQT	EN+3~, EN+6*, ENTRY+4, ZTDTH+3, ZTDTH+5, ZTDTH+7, ZTDTH+8, ZTDTH+9
IBDFQTIM	ENTRY+2~, ENTRY+4, ZTDTH+4, ZTDTH+5, ZTDTH+6, ZTDTH+7, ZTDTH+8, ZTDTH+9
IBDFQUE	EN+3~, EN+4*, SET+3, SET+7
IBDFSEQ	EN+5, EN+8, EXIT!
>> IBDFSING	ENTRY+5
IBDFTSTP	EN+3~, EN+4*
>> IBDFX	UPDT+2*
IBDFXX	EXIT!
IBDIV	EXIT!, SET+18*
IBDT	QUEUE+11*, TASK+2, EXIT!
IBREPRNT	EXIT!, SET+10*
IBSRT	EXIT!, SET+10*
IBSTRTDV	EXIT!, SET+10*
IBTASK	UP~, UP+1, DQ+5*, TASK+2, TASK+3
IBZTSK	QUEUE+19, CLEAR+5, CLEAR+8, EXIT!
IEN	SET+12~, SET+17, SET+18
QUIT	EN+5, QUEUE+4, QUEUE+20, CLEAR+3, CLEAR+7, EXIT!, SET+2, SET+4, SET+6, SET+8* , SET+11, ENTRY+8, ENTRY+9, ENTRY+10*
>> SELECTBY	SET+10*
X	QUEUE+1~, HOLIDAY+4~, HOLIDAY+5*, ZTDTH+8
>> X1	ZTDTH+8*
>> X2	ZTDTH+8*
Y	QUEUE+1~, HOLIDAY+4~, HOLIDAY+6
ZTDESC	QUEUE+1~, QUEUE+13*
ZTDTH	QUEUE+1~, QUEUE+12, DTIME
>> ZTIO	QUEUE+13*
ZTION	QUEUE+1~
>> ZTQUEUED	QUEUE+20, EXIT+1
>> ZTREQ	EXIT+1*
ZTRTN	QUEUE+1~, QUEUE+13*
ZTSAVE	QUEUE+1~
ZTSAVE("IB*"	QUEUE+13*
ZTSAVE("^TMP(""IBDF"",$J,"	QUEUE+13*
ZTSK	QUEUE+1~, QUEUE+19, CLEAR+4!, CLEAR+5
ZTSK(1	CLEAR+4

Customize PDF page

Package: Automated Information Collection System