Routine: ABPAAGE1

Information

ABPAAGE1 ;COMPILE DETAILED OPEN ITEMS; [ 05/21/91 11:22 AM ]

Package	Total	Call Graph
Kernel	1	^%ZTLOAD

Name	Comments	DBIA/ICR reference
ZTLOAD	;PROCEDURE TO LOAD BACKGROUND TASK MANAGER WITH JOB REQUEST
MAIN	;ENTRY POINT - CALLED BY TASK MANAGER
EXTRACT	;PROCEDURE TO LOOP THROUGH ALL OPEN CLAIMS
ZTLEND	;PROCEDURE TO KILL ALL LOCALLY USED TEMPORARY VARIABLES

Name	Field # of Occurrence
^%ZTLOAD	ZTLOAD+4

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"<<< NOT AN ENTRY POINT - ACCESS DENIED >>>",!! Line Location: ABPAAGE1+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZTSK - [#14.4]	EXTRACT+24, EXTRACT+25
^ABPVAO - [#9002270.02]	EXTRACT+5, EXTRACT+6, EXTRACT+16, EXTRACT+19, EXTRACT+20
^ABPVAO("CS"	EXTRACT+2, EXTRACT+4
^AUTNINS - [#9999999.18]	EXTRACT+15
^AUTTLOC - [#9999999.06]	EXTRACT+17, EXTRACT+18
^DIC(4 - [#4]	EXTRACT+23

Name	Field # of Occurrence
%	ZTLEND+2!
%DT	ZTLEND+1!
%IS	ZTLEND+1!
%ZIS	ZTLEND+1!
ABPA	ZTLEND+1!
ABPA("INS"	EXTRACT+11, EXTRACT+13, EXTRACT+14
ABPA("IO"	ZTLOAD+1
>> ABPAOPT(9	EXTRACT+7
>> AMT	EXTRACT+22*, EXTRACT+23
BDT	EXTRACT+9, ZTLEND+1!
>> DATA	EXTRACT+6, EXTRACT+7, EXTRACT+8, EXTRACT+10, EXTRACT+19, EXTRACT+22, EXTRACT+23, EXTRACT+24
DIC	ZTLEND+2!
>> DOS	EXTRACT+19*, EXTRACT+23
EDT	EXTRACT+9, ZTLEND+1!
>> FACILITY	EXTRACT+16, EXTRACT+18, EXTRACT+24
>> FACPTR	EXTRACT+16*, EXTRACT+17, EXTRACT+18, EXTRACT+23
FOUND	EXTRACT+11, EXTRACT+12, EXTRACT+13, EXTRACT+14, ZTLEND+2!
>> HRN	EXTRACT+19*, EXTRACT+24
I	EXTRACT+1*, ZTLEND+2!
>> INSPTR	EXTRACT+10*, EXTRACT+14, EXTRACT+15, EXTRACT+24, EXTRACT+25
>> INSURER	EXTRACT+10, EXTRACT+15, EXTRACT+25
IOP	ZTLEND+2!
>> J	EXTRACT+3*
K	EXTRACT+13*, EXTRACT+14, ZTLEND+2!
>> PAT	EXTRACT+19*, EXTRACT+24
>> R	EXTRACT+1, EXTRACT+2, EXTRACT+4, EXTRACT+5, EXTRACT+6, EXTRACT+16, EXTRACT+19, EXTRACT+20
>> RR	EXTRACT+3, EXTRACT+4, EXTRACT+5, EXTRACT+6, EXTRACT+24
>> SSN	EXTRACT+20, EXTRACT+21, EXTRACT+23
X	ZTLEND+1!
>> X2	EXTRACT+7, EXTRACT+8, EXTRACT+9
Y	ZTLEND+1!
ZTDESC	ZTLOAD+2*, ZTLEND+1!
>> ZTDTH	ZTLOAD+1*
ZTIO	ZTLOAD+1*, ZTLEND+1!
>> ZTN	ZTLOAD+1*
ZTRTN	ZTLOAD+1*, ZTLEND+1!
ZTSAVE	ZTLEND+1!
ZTSAVE("ABPA("	ZTLOAD+4*
ZTSAVE("ABPATLE"	ZTLOAD+4*
ZTSAVE("BDT"	ZTLOAD+3*
ZTSAVE("EDT"	ZTLOAD+3*
ZTSAVE("ZTN"	ZTLOAD+3*
ZTSK	EXTRACT+24, EXTRACT+25, ZTLOAD+1, ZTLEND+1!