Routine: AFSLSNXT

Package	Total	Call Graph
VA Fileman	6	^%DT YX^%DTC ^DIC ^DIE ^DIK ^DIR
NCR Financial System	5	CRTSETUP^AFSLCRTS ^AFSLCTLU ^AFSLSCLU READCHRS^AFSLSRDR ^AFSLYRLU
Commitment Register	1	$$NAME2^ACRFUTL1
IHS VA Utilities	1	^XBCLS

Entry Points

Name	Comments	DBIA/ICR reference
KEEPYN	;
FINI	;
SETF	;
EXTYP	;
DSPF	;
ERRSKP	;
FNDLST	;
EXPBDT	;
FYR	;
SCHD	;
SCHD2	;
FNDLST2	;
CHKOPN	;
PFX	;
CHKCO	;
CHKDT	;

External References

Name	Field # of Occurrence
^%DT	EXPBDT+9
YX^%DTC	EXPBDT+6, SETF+3
$$NAME2^ACRFUTL1	SETF+5, SETF+7
CRTSETUP^AFSLCRTS	FYR+2, FINI+3
^AFSLCTLU	FYR+8, SETF+1
^AFSLSCLU	SETF+2
READCHRS^AFSLSRDR	FYR+2, EXPBDT+1, SCHD+2
^AFSLYRLU	FYR+6
^DIC	SCHD+4, SCHD2+7
^DIE	SETF+11
^DIK	KEEPYN+1
^DIR	EXTYP+6
^XBCLS	FYR+2, DSPF+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!," FISCAL YR FOR WHICH TO OPEN A BATCH/SCHEDULE (i.e., ""1991""): " Line Location: FYR+2
Function Call: WRITE	Prompt: @AFSLRVON,"1166 APPROVALS FOR PAYMENT SYSTEM" Line Location: DSPF+2
Function Call: WRITE	Prompt: "OPEN A BATCH/SCHEDULE",@AFSLRVOF Line Location: DSPF+3
Function Call: WRITE	Prompt: "BATCH/SCHEDULE NO.: ",@AFSLRVON,AFSLSNXT,@AFSLRVOF Line Location: DSPF+4
Function Call: WRITE	Prompt: "DATE/TIME:",@AFSLRVON,AFSLSCDT,@AFSLRVOF Line Location: DSPF+5
Function Call: WRITE	Prompt: "DUE DATE: ",@AFSLRVON,AFSLEBDT,@AFSLRVOF Line Location: DSPF+6
Function Call: WRITE	Prompt: "TREASURY#: ",@AFSLRVON,AFSLTSCD,@AFSLRVOF Line Location: DSPF+7
Function Call: WRITE	Prompt: @AFSLRVON,AFSLSTAT,@AFSLRVOF Line Location: DSPF+8
Function Call: WRITE	Prompt: "CERTIFYING OFFICER: ",@AFSLRVON,AFSLCOFF,@AFSLRVOF Line Location: DSPF+9
Function Call: WRITE	Prompt: "ACCOUNTING TECHNICIAN:",@AFSLRVON,AFSLUSR,@AFSLRVOF Line Location: DSPF+10
Function Call: WRITE	Prompt: @AFSLRVON,AFSLERR,@AFSLRVOF Line Location: DSPF+11
Function Call: WRITE	Prompt: *7 Line Location: EXPBDT+3
Function Call: WRITE	Prompt: @AFSLRVON,AFSLERR,@AFSLRVOF Line Location: EXPBDT+3
Function Call: WRITE	Prompt: *7 Line Location: EXPBDT+4
Function Call: WRITE	Prompt: @AFSLRVON,AFSLERR,@AFSLRVOF Line Location: EXPBDT+4
Function Call: WRITE	Prompt: *7 Line Location: EXPBDT+5
Function Call: WRITE	Prompt: @AFSLRVON,AFSLERR,@AFSLRVOF Line Location: EXPBDT+5
Function Call: WRITE	Prompt: *7 Line Location: EXPBDT+7
Function Call: WRITE	Prompt: @AFSLRVON,AFSLERR,@AFSLRVOF Line Location: EXPBDT+7
Function Call: WRITE	Prompt: @AFSLRVON,AFSLERR,@AFSLRVOF Line Location: EXPBDT+7
Function Call: WRITE	Prompt: @AFSLRVON,"TREASURY SCHEDULE FOR WHICH THIS BATCH IS PLANNED FOR EXPORT:",@AFSLRVOF Line Location: SCHD+2
Function Call: WRITE	Prompt: " " Line Location: EXTYP+1
Function Call: WRITE	Prompt: " " Line Location: EXTYP+2
Function Call: WRITE	Prompt: " " Line Location: EXTYP+3
Function Call: WRITE	Prompt: " " Line Location: EXTYP+4
Function Call: READ	Timeout: 300 Variable: AFSLRTNX Line Location: EXTYP+11
Function Call: WRITE	Prompt: !!,@AFSLRVON,"NOTE: WHEN ENTERING INTO AN 'ACH-FORMAT-A' BATCH/SCHEDULE, YOU'LL ONLY",!," BE ALLOWED TO ENTER 1 ADDENDUM PER UNIQUE PAYEE IN BATCH.",@AFSLRVOF," <PRESS RETURN>" Line Location: EXTYP+11
Function Call: WRITE	Prompt: !!,@AFSLRVON,"NOTE: WHEN ENTERING PMTS INTO AN 'ACH-FORMAT-B' BATCH/SCHEDULE, YOU'LL BE ",!," ASKED TO ENTER AN 80-COLUMN ADDENDUM FOR EACH PAYMENT ENTERED." Line Location: EXTYP+12
Function Call: WRITE	Prompt: !!," PLEASE ENTER THE ADDENDUM FOR EACH UNIQUE PAYEE FOR THE SCHEDULE INTO THE",!," * FIRST * PAYMENT ENTERED FOR THE PAYEE.",@AFSLRVOF," <PRESS RETURN/ENTER>" Line Location: EXTYP+13
Function Call: WRITE	Prompt: !,"YOU MAY NOT EXCEED 9,999 BATCHES IN A FISCAL YEAR. NOTIFY ADP MANAGER." Line Location: SCHD2+5
Function Call: WRITE	Prompt: !,"PROBLEM ENCOUNTERED COMPUTING NEXT AVAILABLE BATCH#. NOTIFY ADP MANAGER" Line Location: SCHD2+6
Function Call: WRITE	Prompt: @AFSLRVON,AFSLERR,@AFSLRVOF,*7 Line Location: FINI+4
Function Call: WRITE	Prompt: @AFSLRVON,"<PRESS RETURN/ENTER>",@AFSLRVOF Line Location: FINI+5
Function Call: WRITE	Prompt: @AFSLRVON,"WARNING: BATCH ",AFSLSCHD," IS ALREADY OPEN FOR DUE DATE ",AFSLEBDT,".",@AFSLRVOF,*7 Line Location: CHKCO+2
Routine Call	DIE Line Location: SETF+11
Routine Call	DIC Line Location: SCHD+4 SCHD2+7
Routine Call	DIR Line Location: EXTYP+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AFSLAFP - [#9002325]	SCHD+3*, SCHD+4, FNDLST2+1, FNDLST2+2, SETF+11, CHKCO+1
^AFSLAFP("C"	CHKCO+2
^AFSLAFP("J"	CHKDT+1, CHKDT+2, CHKDT+3
^AFSLAFP("K"	CHKOPN+3
^AFSLCERT(	SETF+6
^AUTTAREA - [#9999999.21]	PFX+1
^AUTTLOC - [#9999999.06]	PFX+1
^AUTTSITE(1	PFX+1

Label References

Name	Line Occurrences
CHKCO	CHKOPN+3
CHKDT	EXPBDT+9, CHKDT+3
CHKOPN	CHKDT+1, CHKOPN+4
DSPF	FYR+8, KEEPYN+3
ERRSKP	FINI+2
EXPBDT	FYR+8, EXPBDT+3, EXPBDT+4, EXPBDT+5, EXPBDT+7
FINI	FYR+3, FYR+4, FYR+7, FYR+9, SCHD2+5, SCHD2+6
FNDLST	EXTYP+11
FNDLST2	FNDLST2+3
SCHD	FYR+9
SCHD2	FNDLST2+1
SETF	SCHD+4, SCHD2+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	EXPBDT+6, SETF+3
AFSL2OPN	AFSLSNXT+5, ERRSKP+3!, CHKCO+2
AFSLAREA	PFX+1*, SCHD2+1, ERRSKP+3!
AFSLARNM	PFX+1*, ERRSKP+3!
>> AFSLBNUM	SCHD2+4*, SCHD2+5
AFSLCERO	ERRSKP+1!, SETF+8*
AFSLCERT	ERRSKP+1!, SETF+6*, SETF+7
AFSLCHRS	FYR+2, EXPBDT+1, SCHD+2*, ERRSKP+1!
AFSLCNOD	ERRSKP+1!, SETF+6, SETF+8, CHKCO+2
AFSLCNXT	ERRSKP+1!
AFSLCOFF	AFSLSNXT+5, ERRSKP+1!, SETF+7
AFSLDFND	ERRSKP+3!
AFSLDFND(	EXPBDT+9, CHKDT+1, CHKDT+2*, CHKOPN+1, CHKOPN+2
AFSLE	ERRSKP+3!
AFSLEBDT	AFSLSNXT+5, DSPF+6, EXPBDT+1, EXPBDT+2, EXPBDT+3, EXPBDT+4, EXPBDT+5, EXPBDT+7, EXPBDT+9, SCHD+1 , ERRSKP+1!, CHKCO+2
AFSLERR	AFSLSNXT+5, FYR+3, FYR+4, FYR+7, DSPF+11, EXPBDT+2, EXPBDT+3, EXPBDT+4, EXPBDT+5, EXPBDT+7 , EXTYP+8, EXTYP+10, FINI+2, FINI+4, ERRSKP+1!
AFSLFYR	FYR+2*, FYR+3, FYR+4, ERRSKP+1!
AFSLNXSC	EXPBDT+9, ERRSKP+3!, CHKDT+1, CHKDT+2, CHKDT+3
AFSLOPN	AFSLSNXT+5*, ERRSKP+1!
AFSLOPT	ERRSKP+3!
AFSLPFX	PFX+1*, SCHD+4, ERRSKP+1!
>> AFSLRFLG	SCHD2+8, FINI+1
AFSLRTNX	EXTYP+11, EXTYP+13, FINI+5*, ERRSKP+1!
AFSLRVOF	DSPF+3, DSPF+4, DSPF+5, DSPF+6, DSPF+7, DSPF+8, DSPF+10, DSPF+11, EXPBDT+3, EXPBDT+4 , EXPBDT+5, EXPBDT+7, SCHD+2, EXTYP+11, EXTYP+13, FINI+4, FINI+5, ERRSKP+2!, CHKCO+2
AFSLRVON	DSPF+2, DSPF+4, DSPF+5, DSPF+6, DSPF+7, DSPF+8, DSPF+10, DSPF+11, EXPBDT+3, EXPBDT+4 , EXPBDT+5, EXPBDT+7, SCHD+2, EXTYP+11, EXTYP+12, FINI+3, FINI+4, FINI+5, ERRSKP+2!, CHKCO+2
AFSLSAD	ERRSKP+3!
AFSLSCDT	AFSLSNXT+5, DSPF+5, EXPBDT+6, EXPBDT+7, ERRSKP+2!, SETF+3*
AFSLSCHD	ERRSKP+1!, SETF+2, CHKCO+1, CHKCO+2
AFSLSDDT	EXPBDT+9*, ERRSKP+3!, CHKDT+1, CHKDT+2, CHKDT+3
AFSLSFND	AFSLSNXT+4!, ERRSKP+2!
AFSLSIT	PFX+1*, ERRSKP+3!
AFSLSLST	FNDLST+1, FNDLST2+1, FNDLST2+2, SCHD2+1*, SCHD2+2, ERRSKP+2!
AFSLSNOD	AFSLSNXT+4!, ERRSKP+2!, SETF+10, SETF+11
AFSLSNXT	AFSLSNXT+5, DSPF+4, SCHD+4, SCHD2+2, SCHD2+3, SCHD2+4, SCHD2+6, SCHD2+7, ERRSKP+2!, SETF+2
AFSLSOPN	ERRSKP+3!, CHKOPN+2*, CHKOPN+3, CHKCO+1, CHKCO+2
AFSLSTAT	AFSLSNXT+5, DSPF+8, ERRSKP+2!, KEEPYN+1, KEEPYN+2*
AFSLSZRO	AFSLSNXT+4!, ERRSKP+2!
>> AFSLTPEX	EXTYP+7, EXTYP+9, EXTYP+10, EXTYP+11, EXTYP+12, EXTYP+13, SETF+9*
>> AFSLTSCD	AFSLSNXT+5, DSPF+7, SCHD+2, SCHD2+3
AFSLUSER	ERRSKP+1!
AFSLUSR	AFSLSNXT+5, DSPF+10, ERRSKP+2!, SETF+5
AFSLVDTE	ERRSKP+4!
AFSLVIOL	ERRSKP+4!
AFSLVOUT	FYR+2, EXPBDT+1, SCHD+2, ERRSKP+1!
AFSLXAST	ERRSKP+3!
>> AFSLY	SCHD2+8*
AFSLYFND	ERRSKP+2!
AFSLYNOD	SCHD+3, SCHD+4, FNDLST2+1, FNDLST2+2, SCHD2+7, ERRSKP+2!, SETF+11, CHKDT+1, CHKDT+2, CHKDT+3 , CHKOPN+3, CHKCO+1, CHKCO+2
AFSLYZRO	ERRSKP+2!
AFSLZROS	AFSLSNXT+5*, ERRSKP+2!
>> DA	SETF+10*
>> DA(1	SCHD+4, SCHD2+7
DIC	SCHD+4, SCHD2+7, ERRSKP+4!, SETF+10
DIC(0	SCHD+4, SCHD2+7
DIE	ERRSKP+4!, SETF+10*, KEEPYN+1
DIK	ERRSKP+4!, KEEPYN+1*
DIR	EXTYP+5!
DIR("A"	EXTYP+5*
DIR("B"	EXTYP+5*
DIR(0	EXTYP+5*
>> DIROUT	EXTYP+8
DLAYGO	SCHD+4, SCHD2+7, ERRSKP+4!
DR	ERRSKP+4!, SETF+10*
>> DTOUT	EXTYP+8
>> DUOUT	EXTYP+8
DUZ	SETF+5
DX	DSPF+2, DSPF+3, DSPF+4, DSPF+5, DSPF+6, DSPF+7, DSPF+8, DSPF+10, DSPF+11, EXPBDT+1 , EXPBDT+3, EXPBDT+4, EXPBDT+5, EXPBDT+7, SCHD+2, EXTYP+1, EXTYP+2, EXTYP+3, EXTYP+4, FINI+4 , FINI+5, ERRSKP+4!, CHKCO+2
DY	DSPF+2, DSPF+3, DSPF+4, DSPF+7, DSPF+8, DSPF+10, DSPF+11, EXPBDT+1, EXPBDT+3, EXPBDT+4 , EXPBDT+5, EXPBDT+7, SCHD+2, EXTYP+1, EXTYP+2, EXTYP+3, EXTYP+4, FINI+4, FINI+5, ERRSKP+4! , CHKCO+2
U	PFX+1, SCHD+3, SCHD+4, SETF+6, CHKCO+1
>> X	EXPBDT+6, EXPBDT+9, SCHD+4, EXTYP+7, SCHD2+7*
>> XY	DSPF+2, DSPF+3, DSPF+4, DSPF+5, DSPF+6, DSPF+7, DSPF+8, DSPF+10, DSPF+11, EXPBDT+1 , EXPBDT+3, EXPBDT+4, EXPBDT+5, EXPBDT+7, SCHD+2, EXTYP+1, EXTYP+2, EXTYP+3, EXTYP+4, FINI+4 , FINI+5, CHKCO+2
>> Y	AFSLSNXT+5*, FYR+7, EXPBDT+9, SCHD2+8, SETF+3, KEEPYN+1
ZZ	EXPBDT+9, ERRSKP+4!, CHKDT+1, CHKDT+2, CHKDT+3, CHKOPN+1, CHKOPN+2, CHKOPN+4

Customize PDF page

Package: NCR Financial System

Routine: AFSLSNXT

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: