Routine: ABSVNIT1

Information

ABSVNIT1 ;VAMC ALTOONA/CTB_CLH - NIGHTLY BACKROUND JOB ;1/11/01 10:19 AM

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
VA FileMan	4	^%DT NOW^%DTC ^DIK EN1^DIP
Voluntary Timekeeping	4	(,CNVD,MSG)^ABSVQ ^ABSVSITE $$FULLDAT^ABSVU2 ^ABSVYN
Kernel	1	KILL^%ZTLOAD

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
Voluntary Timekeeping	2	ABSVL2 ABSVLS

Entry Points

Name	Comments	DBIA/ICR reference
V	;;4.0;VOLUNTARY TIMEKEEPING;7,10,13,15,17,23;JULY 6, 1994
DQ
ERR
REMOVE
EN1
LIST	;CREATE AND GENERATE CANTEEN LUNCH LIST
L1
OUT
PURGE	;PURGE ALL ENTRIES IN FILE 503330.2 OLDER THAT 7 DAYS
PURG1
LINE
HDR
FTR
PRINT	;PRINT LIST OF VOLUNTEERS ON MEAL LIST

External References

Name	Field # of Occurrence
^%DT	LIST+2, PURG1+1, PRINT+2
NOW^%DTC	V+3, L1+2
KILL^%ZTLOAD	L1
^ABSVQ	V+7, LIST+3
CNVD^ABSVQ	L1+1
MSG^ABSVQ	V+5, PURGE+4
^ABSVSITE	V+2, LIST+1, PURGE+6, PRINT+1
$$FULLDAT^ABSVU2	PRINT+4
^ABSVYN	V+4, PURGE+4
^DIK	DQ+5, REMOVE, PURG1+6
EN1^DIP	DQ+3, DQ+4, PRINT+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"DAILY TIME RECORD FILE HAS NOT BEEN DEFINED. CALL SITE MANAGER",# Line Location: V+1
Function Call: WRITE	Prompt: ! Line Location: V+4
Function Call: WRITE	Prompt: "NO ERRORS FOUND DURING TRANSFER - "_ABSV("SITE") Line Location: DQ+6
Function Call: WRITE	Prompt: !,KOUNT," RECORDS TRANSFERRED AND DELETED -"_ABSV("SITE"),@IOF Line Location: DQ+7
Function Call: WRITE	Prompt: ! Line Location: PURGE+5
Function Call: WRITE	Prompt: !,LN,".",?30,"\|",?50,"\|",!,ABSVX("NAME"),?30,"\|",?35,DATE,?50,"\|",!,?30,"\|",?50,"\|",!,?30,"\|",?50,"\|",!,LINE Line Location: LINE+2
Function Call: WRITE	Prompt: !,?29,"VETERANS CANTEEN SERVICE",!,?34,"EMPLOYEE MEALS",!,LINE Line Location: HDR+0
Function Call: WRITE	Prompt: !,?10,"NAME",?30,"\|",?38,"DATE",?50,"\|",?64,"AMOUNT",!,LINE,! Line Location: HDR+1
Function Call: WRITE	Prompt: "MAY 1977" Line Location: FTR+0
Function Call: WRITE	Prompt: @IOF Line Location: FTR+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ABS(503330.1 - [#503330.1]	Classic Fileman Calls
^ABS(503330.2 - [#503330.2]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABS("DAILY TRANSFER"	DQ, DQ+12
^ABS(503330 - [#503330]	EN1+3, EN1+6, L1+5
^ABS(503330.1 - [#503330.1]	DQ+1, DQ+5, DQ+8, DQ+9, ERR, EN1+20*
^ABS(503330.2 - [#503330.2]	L1+3, L1+4, L1+5, L1+9, PURG1+2, PURG1+3
^ABS(503331 - [#503331]	V+1, EN1+7, EN1+9, EN1+10, EN1+11, EN1+13, EN1+14, EN1+18, EN1+19*
^ABS(503332 - [#503332]	EN1+4
^ABS(503334 - [#503334]	EN1+5
^TMP($J	L1+3!, L1+7*, L1+9

Label References

Name	Line Occurrences
EN1	DQ+1
ERR	EN1+3, EN1+4, EN1+5, EN1+6
FTR	L1+11, LINE
HDR	LINE+1
LINE	L1+9, L1+10
OUT	PURGE+4, PURG1+8
PURG1	L1+11, PURGE+1
REMOVE	EN1, EN1+1

Naked Globals

Name	Field # of Occurrence
^(	DQ+1, DQ+5
^(0	DQ+1, DQ+5, EN1+3, EN1+20*, PURG1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	V+2, V+4, V+5, V+6, LIST+1, PURGE+3, PURGE+4, PURGE+6, PRINT+1
>> %DT	LIST+2, PURG1+1, PRINT+2*
>> %DT("A"	LIST+2, PRINT+2
%X	V+9!
%Y	V+9!
>> ABIOP	DQ+3, DQ+4
>> ABSV("REQUEUE"	V+6*, DQ, DQ+10
>> ABSV("SITE"	V+2, DQ, DQ+3, DQ+4, DQ+5, DQ+6, DQ+7, DQ+12, EN1+2, EN1+16 , L1+9, PURG1+5
>> ABSVQ("FORCEQ"	V+7*, V+8!
ABSVX	OUT!
ABSVX("DATE"	LIST+2*, L1+1, L1+3
ABSVX("ERROR"	DQ+4, DQ+6, DQ+11!, ERR*
ABSVX("KDATE"	PURG1+1*, PURG1+4
ABSVX("NAME"	L1+4, L1+5, L1+6, L1+7, L1+9, L1+10*, LINE+2
>> ABSVXA	V+4, PURGE+2
>> ABSVXA(1	PURGE+3*
>> ABSVXA(2	PURGE+3*
>> ABSVXA(3	PURGE+3*
>> ABSVXB	V+4, PURGE+3
BY	DQ+3!, DQ+4!, PRINT+3*
COMB	DQ+2!, EN1+3*, EN1+4, EN1+5, EN1+7, EN1+16, EN1+20
COUNT	DQ+8*, DQ+9!
DA	V+1!, DQ+2!, DQ+5, DQ+6!, EN1, EN1+1, L1+3, L1+4, L1+5, L1+6 , L1+7, L1+9, OUT!, PURG1+2, PURG1+3
DA1	DQ+2!
DATE	L1+1, L1+10, OUT!, LINE+2, PRINT+2*, PRINT+3, PRINT+4
>> DHD	DQ+3, DQ+4, PRINT+4*
>> DHIT	PRINT+4*
DIC	DQ+3!, DQ+4!, PRINT+3*
DIK	DQ+5, REMOVE!, PURG1*
>> DIOBEG	PRINT+4*
>> DIOEND	PRINT+4*
>> DIS(0	PRINT+3*
DONE	EN1+9!, EN1+14*
DT	V+3, L1+2
ERROR	V+1!, DQ+2!
FLDS	DQ+3!, DQ+4!, PRINT+3*
>> FR	DQ+3, DQ+4, PRINT+3*
HI	DQ+8*, DQ+9!
I	DQ+8, DQ+9!, EN1+1, L1+10, PURG1+2
IOF	DQ+7, FTR+1
IOM	L1+1
>> IOP	DQ+3, DQ+4
IOSL	FTR
KOUNT	DQ+5*, DQ+7, DQ+11!
L	DQ+3!, DQ+4!, PRINT+3*
>> LINE	L1+1*, LINE+2, HDR, HDR+1
LN	L1+9, L1+10, OUT!, LINE, LINE+1, LINE+2*
N	DQ+8*, DQ+9!
NAME	OUT!
>> NDA	EN1+8, EN1+9, EN1+10*, EN1+11, EN1+12, EN1+18, EN1+19
NREC	DQ+2!, EN1+16, EN1+17, EN1+18, EN1+19
>> ORG	EN1+5*, EN1+16
QT	V+1!, DQ+2!
REC	V+1!, DQ+1*, DQ+2!, EN1, EN1+1, EN1+2, EN1+3, EN1+6, EN1+7, EN1+16 , EN1+17
>> SERV	EN1+4, EN1+5, EN1+16, EN1+19
ST	V+1!, DQ+2!
TDA	DQ+1*, DQ+2!, ERR, EN1, EN1+1, EN1+20
TH	V+1!, DQ+2!
>> TO	DQ+3, DQ+4, PRINT+3*
WDT	DQ+1*, DQ+2!, EN1+7
X	V+3, V+5, ERR, EN1+3, EN1+4, EN1+5, EN1+6, EN1+7, EN1+9, EN1+12 , EN1+13, L1+1, L1+2, L1+5, L1+6, L1+9, OUT!, PURGE+4, PURG1+1, PURG1+3 , PURG1+4, PURG1+5
>> Y	EN1+4, EN1+5, EN1+7, EN1+8, LIST+2, L1+1, PURG1+1, PRINT+2
>> ZTDESC	V+7, LIST+3
ZTDTH	V+7!, DQ+10
ZTIO	V+7!
>> ZTQUEUED	PURGE+1, PURGE+6, PURG1+5, PURG1+6
>> ZTREQ	DQ, DQ+10
>> ZTRTN	V+7, LIST+3
>> ZTSAVE("ABSV*"	V+7, LIST+3
>> ZTSK	L1
ZZI	DQ+1, DQ+2!, DQ+5

Customize PDF page

Package: Voluntary Timekeeping