Routine: IBDFQB

Information

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

Source Information

Source file <IBDFQB.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Kernel	4	HOME^%ZIS ^%ZISC (,STAT)^%ZTLOAD ($$DOW,$$FMADD,$$FMTH,$$NOW)^XLFDT
VA Fileman	3	(C,NOW)^%DTC ^DIC ^DIE
Automated Information Collection System	1	^IBDF1B1
Registration	1	PAUSE^VALM1

Caller Graph

Caller Graph Total: 3

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

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
CLEAR	; -- Clean up variables if task is not queued
UPDT	; -- Update start and finish times
ZTDTH	; -- Set up the variable ZTDTH to pass the queue date time of the ; queued job.
TASK	; -- Update Task number and last date printed
EXIT
ENTRY	; -- Calc date and do checks on special instructions
QUEUE(IBDFIFN)	; -- Set up Queue variables
SET	; -- Set up variables needed for priniting of forms
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
DQ	; -- Generic entry points to edit ; -- only called by jobs tasked by this routine

External References

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

Interaction Calls

Name	Line Occurrences
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	%ZIS Line Location: QUEUE+11
Routine Call	DIE Line Location: UPDT+2 TASK+2
Routine Call	DIC Line Location: HOLIDAY+6

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, 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, QUEUE+7
ENTRY	SET+11
EXIT	EN+9
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+9, 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~, 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+4, ZTDTH+5, ZTDTH+6, ZTDTH+7, ZTDTH+11, ZTDTH+12, ZTDTH+14, ZTDTH+15, ZTDTH+16* , ZTDTH+17
IBDFLAST	EXIT!
IBDFNAME	EN+5*, QUEUE+11, EXIT!
IBDFNODE	QUEUE+7, QUEUE+11, 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, UPDT+2, TASK+2, EXIT!, SET+1
IBDFONE	EXIT!
IBDFQ	EXIT!
IBDFQD	EN+3~, EN+6*, ZTDTH+4, ZTDTH+11, ZTDTH+14
IBDFQDT	EN+3~, EN+6*, ZTDTH+5, ZTDTH+6, ZTDTH+7, ZTDTH+12, ZTDTH+15, ZTDTH+16
IBDFQT	EN+3~, EN+6, ENTRY+4, ZTDTH+3, ZTDTH+4, ZTDTH+5, ZTDTH+6, ZTDTH+7, ZTDTH+9, ZTDTH+10 , ZTDTH+11, ZTDTH+12, ZTDTH+14, ZTDTH+15, ZTDTH+16
IBDFQTIM	ENTRY+2~, ENTRY+4*, ZTDTH+4, ZTDTH+5, ZTDTH+6, ZTDTH+7, ZTDTH+11, ZTDTH+12, ZTDTH+14, ZTDTH+15 , ZTDTH+16
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+9*, 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+17, CLEAR+5, CLEAR+8, EXIT!
IEN	SET+12~, SET+17, SET+18
QUIT	EN+5, QUEUE+4, QUEUE+7, QUEUE+18, 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+6
>> X1	ZTDTH+6*
>> X2	ZTDTH+6*
Y	QUEUE+1~, HOLIDAY+4~, HOLIDAY+6
ZTDESC	QUEUE+1~, QUEUE+11*
ZTDTH	QUEUE+1~, QUEUE+10, ZTDTH+17
>> ZTIO	QUEUE+11*
ZTION	QUEUE+1~
>> ZTQUEUED	QUEUE+18, EXIT+1
>> ZTREQ	EXIT+1*
ZTRTN	QUEUE+1~, QUEUE+11*
ZTSAVE	QUEUE+1~
ZTSAVE("IB*"	QUEUE+11*
ZTSAVE("^TMP(""IBDF"",$J,"	QUEUE+11*
ZTSK	QUEUE+1~, QUEUE+7*, QUEUE+17, CLEAR+4!, CLEAR+5
ZTSK(1	QUEUE+7, CLEAR+4

Customize PDF page

Package: Automated Information Collection System

Routine: IBDFQB

Call Graph Total: 9

Caller Graph Total: 3