Routine: ACRFIRS4

Entry Points

Name	Comments	DBIA/ICR reference
DATES	;----- ASK FOR BEGINNING AND ENDING DATES
EN	;----- MAIN ENTRY POINT
SET(VENDOR,AMOUNT)	;
ZERO	;----- SET YTD FIELDS TO NULL
LOOP(Z)	;----- LOOP THROUGH PAYMENTS AND SET TOTALS
ENZ	;EP -- ENTRY POINT TO SET VENDOR YTD FIELDS TO NULL

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DONE" Line Location: LOOP+19
Function Call: WRITE	Prompt: ! Line Location: DATES+5
Function Call: WRITE	Prompt: !,*7,"ENDING DATE cannot be less than BEGINNING DATE!" Line Location: DATES+15
Function Call: WRITE	Prompt: !," DONE!" Line Location: ENZ+6
Routine Call	%ZIS Line Location: EN+4
Routine Call	DIE Line Location: SET+9 ZERO+8
Routine Call	DIR Line Location: LOOP+21 DATES+9 DATES+13 ENZ+5

FileNo	Call Tags
^AUTTVNDR - [#9999999.11]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AFSLAFP - [#9002325]	LOOP+13, LOOP+14
^AFSLAFP("EXP"	LOOP+7, LOOP+9, LOOP+11
^AUTTVNDR - [#9999999.11]	SET+4, ZERO+4

Name	Field # of Occurrence
AMOUNT	LOOP+4~, LOOP+17*, LOOP+18, SET~, SET+5
>> BCH	LOOP+10, LOOP+11, LOOP+13, LOOP+14
DA	SET+3~, SET+6, ZERO+2~, ZERO+5
DATA	LOOP+4~, LOOP+14*, LOOP+15, LOOP+17
DATE	LOOP+4~, LOOP+5, LOOP+7, LOOP+9, LOOP+11
DIE	SET+3~, SET+7, ZERO+2~, ZERO+6
DIR	LOOP+4~, DATES+4~
DIR("A"	DATES+8, DATES+12, ENZ+3*
DIR("B"	ENZ+4*
DIR(0	LOOP+20, DATES+7, ENZ+2*
DR	SET+3~, SET+8, ZERO+2~, ZERO+7
END	LOOP+4~, LOOP+6*, LOOP+7
FY	LOOP+4~, LOOP+8, LOOP+9, LOOP+11, LOOP+13, LOOP+14
SEQ	LOOP+4~, LOOP+12, LOOP+13, LOOP+14
U	LOOP+5, LOOP+6, LOOP+15, LOOP+17, SET+4, DATES+16
VENDOR	LOOP+4~, LOOP+15, LOOP+16, LOOP+18, SET~, SET+4, SET+6, ZERO+2~, ZERO+3, ZERO+4* , ZERO+5
X	DATES+4~, ZERO+2~
Y	DATES+4~, DATES+10, DATES+11, DATES+14, DATES+15, DATES+16, ENZ+6, ZERO+2~
YTD	SET+3~, SET+4, SET+5
Z	EN+2~, EN+6, EN+8, LOOP~, LOOP+5, LOOP+6, DATES+6, DATES+11, DATES+15, DATES+16*