Routine: ACRFIRS5

Entry Points

Name	Comments	DBIA/ICR reference
NEWYR(ACRVEND,ACRYR)
AMTCD(ACRCD)
SET(ACRVEND,ACRYR,ACRYTD,ACRCD)
EN	;EP -- MAIN ENTRY POINT
LOOP(ACRYR,ACRCD)
A	;----- LOOP
MSG	;----- WRITES MESSAGE
YEAR(ACRYR)
NEWVEND(ACRVEND)

Name	Line Occurrences
Function Call: WRITE	Prompt: " ??" Line Location: A+8
Function Call: WRITE	Prompt: " ??" Line Location: A+9
Function Call: WRITE	Prompt: " ??" Line Location: A+10
Function Call: WRITE	Prompt: !!,"This option transfers vendor information from the master Vendor file" Line Location: MSG+2
Function Call: WRITE	Prompt: !,"to the ARMS 1099 Vendors file. It will be used to control the exporting" Line Location: MSG+3
Function Call: WRITE	Prompt: !,"to download files. Only vendors with YTD PAID > 599.99 will be" Line Location: MSG+4
Function Call: WRITE	Prompt: !,"transferred." Line Location: MSG+5
Function Call: WRITE	Prompt: ! Line Location: MSG+6
Routine Call	%ZIS Line Location: EN+3
Routine Call	DIE Line Location: SET+12 SET+17
Routine Call	DIR Line Location: YEAR+7 AMTCD+8 A+6

FileNo	Call Tags
^ACR1099V - [#9002198.2]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACR1099V - [#9002198.2]	SET+4, SET+5, SET+6, SET+7
^AUTTVNDR - [#9999999.11]	LOOP+5, LOOP+6, LOOP+7
^DD(9002198.2	NEWYR+8

Name	Field # of Occurrence
ACRCD	EN+2~, EN+8, EN+9, LOOP~, LOOP+8, SET~, SET+16, AMTCD~, AMTCD+4, A+11
ACRISDT	EN+2~
ACRVEND	LOOP+3~, LOOP+4, LOOP+5, LOOP+6, LOOP+7, LOOP+8, SET~, SET+4, SET+5, SET+6 , SET+7, SET+9, SET+15, NEWYR~, NEWYR+5, NEWVEND~, NEWVEND+4
ACRYR	EN+2~, EN+6, EN+7, EN+9, LOOP~, LOOP+8, SET~, SET+6, SET+7, SET+8 , NEWYR~, NEWYR+4, YEAR~, YEAR+10*
ACRYTD	LOOP+7*, LOOP+8, SET~
DA	SET+3~, SET+8, SET+13!, SET+15, NEWYR+3~
DA(1	SET+9, SET+10, NEWYR+5, NEWYR+6
DD	NEWYR+3~, NEWYR+10!, NEWVEND+3~, NEWVEND+8!
DIC	NEWYR+3~, NEWYR+6, NEWVEND+3~, NEWVEND+5
DIC("P"	NEWYR+8*
DIC(0	NEWYR+7, NEWVEND+6
DIE	SET+3~, SET+10, SET+13!, SET+14
DINUM	NEWYR+4, NEWVEND+3~, NEWVEND+4
DIR	YEAR+3~, AMTCD+3!, A+2~
DIR("A"	YEAR+5, AMTCD+6, A+4*
DIR("B"	YEAR+6, AMTCD+7, A+5*
DIR(0	YEAR+4, AMTCD+5, A+3*
DIRUT	YEAR+3~, YEAR+8, A+2~, A+7
DLAYGO	NEWYR+3~, NEWYR+9, NEWVEND+3~, NEWVEND+7
DO	NEWYR+3~, NEWYR+10!, NEWVEND+3~, NEWVEND+8!
DR	SET+3~, SET+11, SET+13!, SET+16
DT	YEAR+6
DTOUT	YEAR+3~, YEAR+8, A+2~, A+7
DUOUT	YEAR+3~, YEAR+8, A+2~, A+7
U	LOOP+6, LOOP+7, NEWYR+8
X	SET+3~, NEWYR+3~, NEWYR+4, NEWVEND+3~, NEWVEND+4, YEAR+3~, AMTCD+3!, A+2~
Y	SET+3~, NEWYR+3~, NEWVEND+3~, YEAR+3~, YEAR+9, YEAR+10, AMTCD+3!, AMTCD+9, A+2~, A+8 , A+9, A+10, A+11