Routine: BARDBQ02

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC $$VERSION^%ZOSV (,KILL)^%ZTLOAD
IHS VA Utilities	1	$$VALI^XBDIQ1
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Accounts Receivable	1	BARPPY02

Entry Points

Name	Comments	DBIA/ICR reference
END1	;EP clean out xb as passed in
END0	;EP - from compute cycle when XB("RP") EXISTS
COMPUTE	;>do computing \| routine
ZIS	;
ZISQ	;
NORC	;used if no XBRC identified
SETIOPN	;EP Set IOP parameters with (N)o open
QUE1	;
START	;
ENDC	;EP - end computing cycle
QUE2	;
DEQUE2	;EP - 2nd Deque \| printing
END	;>End \| cleanup
DEQUE1	;EP - > 1st deque From TaskMan.
SUB	;>Subroutines

External References

Name	Field # of Occurrence
^%ZIS	START+3, ZIS+5, QUE1+1, DEQUE2+6, END1+3, SETIOPN+6, SETIOPN+28
^%ZISC	QUE1+1, DEQUE2+6, END1+1
$$VERSION^%ZOSV	DEQUE2+6, SETIOPN+4
^%ZTLOAD	QUE1+10, QUE2+8
KILL^%ZTLOAD	END0+1
^DIR	ZISQ+8, ZISQ+18
$$VALI^XBDIQ1	ZISQ+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"REPORTING-ABORTED",*7 Line Location: ZIS+6
Function Call: WRITE	Prompt: !,"Queing to slave printer not allowed ... Report Aborting" Line Location: QUE1+2
Function Call: WRITE	Prompt: @IOF Line Location: DEQUE2+14
Function Call: WRITE	Prompt: @IOF Line Location: DEQUE2+20
Routine Call	DIR Line Location: ZISQ+8 ZISQ+18
Routine Call	%ZIS Line Location: START+3 ZIS+5 QUE1+1 DEQUE2+6 END1+3 SETIOPN+6 SETIOPN+28

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("ERRTN"	QUE2+9

Label References

Name	Line Occurrences
@(	COMPUTE+2, QUE2+9, DEQUE2+16, DEQUE2+21, END+2
END	DEQUE2+4, ENDC+1
END0	ENDC+2
END1	ZIS+6, ZISQ+18, QUE1+1
ENDC	QUE2+2
SETIOPN	QUE2+7
ZISQ	ZIS+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	ZIS+3, ZIS+4, SETIOPN+5, SETIOPN+27
>> %ZIS("HFSMODE"	START+24, DEQUE2+6, SETIOPN+5, SETIOPN+24
>> %ZIS("HFSNAME"	START+24, DEQUE2+6, SETIOPN+5, SETIOPN+24
>> %ZIS("IOPAR"	START+20, SETIOPN+5, SETIOPN+10*
A	SETIOPN+14~, SETIOPN+15, SETIOPN+16
>> BAR("MULTI"	DEQUE2+16, DEQUE2+18, DEQUE2+19
>> BAR("NOQUE"	ZIS+4, ZISQ+2
BARPRT	DEQUE2+18, DEQUE2+19, DEQUE2+22, DEQUE2+23!
>> C	SETIOPN+16*
DIR	ZISQ+6!, ZISQ+9!, ZISQ+18!
DIR("A"	ZISQ+7, ZISQ+18
DIR("B"	ZISQ+7*
DIR(0	ZISQ+7, ZISQ+18
I	SETIOPN+14~, SETIOPN+15, SETIOPN+16, SETIOPN+19, SETIOPN+21, SETIOPN+23
IO	START+3, ZIS+7, ZISQ+4, QUE1+2, DEQUE2+7
IO("Q"	ZIS+1!, ZISQ+1, ZISQ+11*, QUE1+1!
IO(0	ZISQ+4, QUE1+2
>> IOCPU	ZIS+7
IOF	DEQUE2+17*, DEQUE2+20
IOM	START+6, ZIS+7
ION	START+6, ZIS+7, DEQUE2+6
IOP	START+3, START+18, QUE1+1, DEQUE2+6, END1+2, END1+4!, SETIOPN+2, SETIOPN+5*
IOPAR	START+7, ZIS+7, END1+4!
>> IOS	ZISQ+5
IOSL	START+6, ZIS+7
IOST	START+6, ZIS+7
IOUPAR	END1+4!
>> POP	ZIS+6
>> X	ZISQ+10
XB	START+1~, END1+5!
XB("CPU"	ZIS+7*, QUE1+5
XB("IO"	ZIS+7*, QUE2+4, DEQUE2+6, SETIOPN+5
XB("ION"	ZIS+7*, SETIOPN+4
XB("IOP"	START+17, ZIS+7, SETIOPN+1, SETIOPN+2, SETIOPN+5*
XB("IOP1"	START+6*, QUE1+1, END1+2
XB("IOPAR"	START+7, START+20, START+21, START+22, START+23, ZIS+7, SETIOPN+10, SETIOPN+11, SETIOPN+16, SETIOPN+19 , SETIOPN+21, SETIOPN+23
XB("NS"	START+11, START+12, START+15*, QUE1+7, QUE2+6
XB("RC"	START+9*, COMPUTE+2, QUE2+4
XB("RP"	START+9*, QUE2+3, QUE2+4, DEQUE2+4, DEQUE2+16, DEQUE2+21, ENDC+1
XB("RX"	START+9*, END+2
XB("ZTSK"	ZISQ+14!, ZISQ+15, QUE1+1, DEQUE1+3!, DEQUE1+4, DEQUE2+1!, DEQUE2+2*, END0+1
XBDBQUE	QUE2+10*, END1+5!
XBDTH	START+4*, QUE1+4, QUE1+8!, DEQUE1+2!, END1+5!
XBERR	QUE2+9*, END1+5!
XBFQ	START+4, ZISQ+1, ZISQ+3, QUE1+1, QUE1+8!, DEQUE1+2!, END1+5!
>> XBHFSMD	START+23, START+24, SETIOPN+23, SETIOPN+24
>> XBHFSNM	START+22, START+24, SETIOPN+19, SETIOPN+21*, SETIOPN+24
XBI	START+11*, QUE1+8!, END1+5!
XBIOP	START+17, START+18, QUE1+8!, DEQUE1+2!, END1+5!
XBNS	START+11, QUE1+8!, DEQUE1+2!, END1+5!
XBNS(	START+15
XBNSX	START+11, START+14, START+15, QUE1+6, QUE1+7, QUE1+8!, QUE2+5, QUE2+6*, END1+5!
XBPAR	QUE1+8!, DEQUE1+2!, END1+5!
XBQUIT	ZISQ+10*, ZISQ+18, END1+5!
XBRC	START+5, START+8*, START+9, ZIS+2, QUE1+3, QUE1+8!, DEQUE1+2!, END1+5!
XBRP	START+5, START+9, ZIS+2, ZISQ+4, QUE1+2, QUE1+3, QUE1+8!, DEQUE1+2!, END1+5!
XBRX	START+9, QUE1+8!, DEQUE1+2!, END1+5!
XBTZTSK	END0+1*!
>> Y	ZISQ+11
>> ZTCPU	QUE1+5*
>> ZTDESC	QUE1+3, QUE2+4
>> ZTDTH	QUE1+4, QUE2+4
ZTIO	QUE1+3, QUE1+9, QUE2+4*, QUE2+7!
>> ZTQUEUED	START+4, ZISQ+3, ZISQ+15, QUE1+2, DEQUE1+4, QUE2+2, DEQUE2+2, DEQUE2+6
>> ZTRTN	QUE1+3, QUE2+4
>> ZTSAVE(	QUE1+7, QUE2+6
ZTSK	ZISQ+15, ZISQ+16!, QUE1+1, DEQUE1+4, QUE2+9, DEQUE2+2, END0+1*!

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARDBQ02

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: