Routine: ABPARPCL

Package	Total	Call Graph
VA Fileman	3	(,DD)^%DT ^DIC WAIT^DICD
Kernel	2	^%ZIS ^%ZTLOAD
Third Party Tracking	2	(,END)^ABPACLHD (DTCVT,HEADER,QUEUED)^ABPAMAIN

Entry Points

Name	Comments	DBIA/ICR reference
HEAD	;PROCEDURE TO DRAW SCREEN HEADING
PRINT	;ENTRY POINT - CALLED BY TASKMAN
CLEAR	;PROCEDURE TO KILL TEMPORARY LOCAL VARIABLES
DEVICE	;PROCEDURE TO SELECT PRINTER DEVICE
DATE	;PROCEDURE TO GET LOG DATE TO USE
ACCT	;PROCEDURE TO GET ACCOUNTING POINT
MAIN	;ENTRY POINT - ROUTINE DRIVER

External References

Name	Field # of Occurrence
^%DT	DATE+2
DD^%DT	DATE+2
^%ZIS	DEVICE+2, MAIN+3
^%ZTLOAD	DEVICE+9
^ABPACLHD	PRINT+14, PRINT+22
END^ABPACLHD	PRINT+24
DTCVT^ABPAMAIN	PRINT+2
HEADER^ABPAMAIN	HEAD+1
QUEUED^ABPAMAIN	DEVICE+9
^DIC	ACCT+2
WAIT^DICD	DEVICE+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"<<< NOT AN ACCESS POINT - JOB ABORTED >>>",!! Line Location: ABPARPCL+2
Function Call: WRITE	Prompt: !! Line Location: ACCT+2
Function Call: WRITE	Prompt: ! Line Location: DEVICE+10
Function Call: WRITE	Prompt: !?16,"---------------",?65,"---------",!,"TOTAL",?65 Line Location: PRINT+23
Function Call: WRITE	Prompt: $J(ABPA("SUM"),9,2),!,"COUNT",?16,ABPA("CNT") Line Location: PRINT+24
Function Call: WRITE	Prompt: ! Line Location: MAIN+3
Routine Call	DIC Line Location: ACCT+2
Routine Call	%ZIS Line Location: DEVICE+2 MAIN+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABPACHKS - [#9002270.03]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS("C"	PRINT+25
^ABPACHKS - [#9002270.03]	PRINT+5, PRINT+6, PRINT+10
^ABPACHKS("TR"	DATE+3, PRINT+4, PRINT+9
^AUTNINS - [#9999999.18]	PRINT+7
^TMP("ABPAPCLG"	PRINT+2!, PRINT+13*, PRINT+16, PRINT+18, PRINT+20, PRINT+25!

Label References

Name	Line Occurrences
ACCT	MAIN+1
CLEAR	MAIN+1, MAIN+3
DATE	DATE+3, MAIN+2
DEVICE	DEVICE+2, DEVICE+4, MAIN+3
HEAD	MAIN+1
MAIN	MAIN+2

Naked Globals

Name	Field # of Occurrence
^(0	PRINT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	CLEAR+1!, DATE+1*
%DT("A"	DATE+1*
%DT("B"	DATE+2*
%IS	DEVICE+1!*
%ZIS	DEVICE+1!
%ZIS("A"	DEVICE+1*
>> ABPA("CAMT"	CLEAR+3!, PRINT+11, PRINT+12, PRINT+13, PRINT+20, PRINT+22
>> ABPA("CNT"	CLEAR+3!, PRINT+15, PRINT+19, PRINT+24
>> ABPA("CNUM"	CLEAR+3!, PRINT+11, PRINT+13, PRINT+17, PRINT+18*, PRINT+19, PRINT+20, PRINT+21
>> ABPA("DTIN"	PRINT+2*
>> ABPA("DTOUT"	PRINT+21
>> ABPA("INS"	CLEAR+2!, PRINT+5, PRINT+7, PRINT+13, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+20, PRINT+21
>> ABPA("IO"	CLEAR+1!
>> ABPA("SUM"	CLEAR+3!, PRINT+3, PRINT+12, PRINT+24
>> ABPADATA	PRINT+10*, PRINT+11
ABPADT	CLEAR+1!, DATE+1!, DATE+2*, DATE+3, PRINT+2, PRINT+4, PRINT+9, MAIN+2
>> ABPAHD1	HEAD+1*
ABPAPG	CLEAR+1!, PRINT+14*
>> ACCTPT	ACCT+3*
BY	CLEAR+1!
>> DA	PRINT+8, PRINT+9, PRINT+10
>> DA(1	PRINT+3, PRINT+4, PRINT+5, PRINT+6, PRINT+9, PRINT+10
DA2	CLEAR+1!, ACCT+3*, DATE+3, PRINT+2, PRINT+4, PRINT+5, PRINT+6, PRINT+9, PRINT+10, PRINT+13 , PRINT+16, PRINT+18, PRINT+20, PRINT+25
DHD	CLEAR+1!
DIC	CLEAR+1!, ACCT+1!*
DIC("A"	ACCT+2*
DIC(0	ACCT+1*
DIR	CLEAR+1!
DT	DATE+2
FINAL	CLEAR+1!
FROM	CLEAR+1!
IO	DEVICE+8, DEVICE+10
IO("Q"	DEVICE+2, DEVICE+6
IO("S"	DEVICE+2
IO(0	DEVICE+10, PRINT+25
IOP	MAIN+3*!
IOST	DEVICE+4
>> IPTR	PRINT+6*, PRINT+7
L	CLEAR+1!
>> NOACCT	ACCT+1, ACCT+2, MAIN+1
>> POP	DEVICE+2
TO	CLEAR+1!
X	CLEAR+1!
Y	CLEAR+1!, ACCT+2, ACCT+3, DATE+2*
Y(0	ACCT+3
ZTDESC	CLEAR+2!, DEVICE+7*
>> ZTIO	DEVICE+8*
ZTRTN	CLEAR+2!, DEVICE+7*
ZTSAVE	CLEAR+2!
ZTSAVE("ABPA("	DEVICE+8*
ZTSAVE("ABPADT"	DEVICE+8*
ZTSAVE("ACCTPT"	DEVICE+8*
ZTSAVE("DA2"	DEVICE+9*
ZTSK	CLEAR+2!, DEVICE+9

Customize PDF page

Package: Third Party Tracking

Routine: ABPARPCL

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: