Routine: ACRFDT

Package	Total	Call Graph
Commitment Register	2	(DIC,DIE,DIK,DIR,FILE)^ACRFDIC PAUSE^ACRFWARN

Package	Total	Caller Graph
Commitment Register	1	ACRFIV42

Entry Points

Name	Comments	DBIA/ICR reference
DTH
VENDOR	;SELECT VENDOR
DTEND
DTSEL1	;EP;
DTDEL	;DELETE DISCOUNT TERMS
DTEDIT	;EDIT DISCOUNT TERMS
DTSEL	;EP;SELECT TERMS APPLICABLE TO THIS PAYMENT
DTH2	;EP;SET ARRAY OF VENDOR'S DISCOUNT TERMS
DT	;EP;DISCOUNT TERMS
DTADD	;ADD DISCOUNT TERMS
DT1
DTH1	;EP;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: DTH+0
Function Call: WRITE	Prompt: !?10,"Discount Terms for" Line Location: DTH1+2
Function Call: WRITE	Prompt: !?10,@ACRON,$P(^AUTTVNDR(ACRVDA,0),U),@ACROF Line Location: DTH1+3
Function Call: WRITE	Prompt: !!?10,"NO.",?15,"DAYS",?21,"PERCENT" Line Location: DTH1+4
Function Call: WRITE	Prompt: !?10,"---",?15,"----",?21,"-------" Line Location: DTH1+5
Function Call: WRITE	Prompt: !?10,"---",?15,"----",?21,"-------" Line Location: DTH1+13
Function Call: WRITE	Prompt: ! Line Location: DTSEL1+5
Function Call: WRITE	Prompt: !!?10,"Discount has been calculated " Line Location: DTSEL1+12
Function Call: WRITE	Prompt: ! Line Location: DTEDIT+9
Function Call: WRITE	Prompt: ! Line Location: DTADD+3
Function Call: WRITE	Prompt: ! Line Location: DTADD+17
Function Call: WRITE	Prompt: ! Line Location: DTDEL+7
Function Call: WRITE	Prompt: ! Line Location: VENDOR+4

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

Name	Line Occurrences (* Changed, ! Killed)
^ACRDT - [#9002198.1]	DTH2+3, DTSEL1+10
^ACRDT("AC"	DTADD+7
^ACRDT("B"	DT1, DTH2+2, DTSEL+1
^AUTTVNDR - [#9999999.11]	DT1+1, DTH1+3

Name	Field # of Occurrence
^(	DTADD+7

Name	Field # of Occurrence
ACRDAYS	DTADD+6*, DTADD+7, DTADD+16, DTADD+19!
>> ACRDTDA	DTSEL1+9, DTSEL1+10, DTEDIT+4, DTEDIT+6, DTDEL+4, DTDEL+5
>> ACRJ	DTADD+7*
>> ACROF	DTH1+3
>> ACRON	DTH1+3
>> ACROUT	DT+2, DT1, DTSEL1+7
ACRPCNT	DTADD+12*, DTADD+16, DTADD+19!
ACRQUIT	DT+1~, DT+2, DT+3!, DT1, DTSEL1+8, DTEDIT+4!, DTADD+5!, DTDEL+4!, VENDOR+6
>> ACRT	DTSEL1+11*
ACRTMP	DTSEL1+1~
ACRTYPE	DT+1~, DTSEL1+2, DTEDIT+2, DTDEL+2*
>> ACRVDA	ACRFDT+5, DT1, DT1+1, DTH1+3, DTH2+2, DTSEL+1, DTADD+7, DTADD+13, VENDOR+7*
>> DA	DTEDIT+6, DTDEL+5
>> DIC	DTADD+14, VENDOR+1
>> DIC("A"	VENDOR+3*
>> DIC("DR"	DTADD+16*
>> DIC(0	DTADD+15, VENDOR+2
>> DIE	DTEDIT+7*
>> DIK	DTDEL+6*
>> DIR("A"	DT1+11, DTSEL1+4, DTEDIT+1, DTADD+2, DTADD+9, DTDEL+1
>> DIR(0	DT1+7, DT1+8, DT1+9, DT1+10, DTSEL1+3, DTADD+1, DTADD+8*
>> DR	DTEDIT+8*
IOF	DTH
J	DT+1~, DTH1+1!, DTH1+7, DTH1+9, DTH1+10, DTH1+12, DTH2+1, DTH2+2, DTH2+3, DTH2+5 , DTH2+6, DTH2+8, DTH2+9, DTSEL1+3
J(	DTH1+8, DTH1+10, DTH1+11, DTH2+5*, DTH2+7, DTH2+9
U	DT1+1, DTH1+3, DTH1+11, DTH2+5
X	DT+1~, DTH1+1!, DTH1+7, DTH1+8, DTH1+10, DTH1+11, DTH1+12, DTH2+6, DTH2+7, DTH2+9 , DTADD+13*
X(	DTH1+10, DTH2+9, DTSEL1+8, DTSEL1+9
Y	DT+1~, DT1+13, DT1+14, DT1+15, DT1+16, DTH1+11, DTH1+12, DTH2+3, DTH2+4, DTH2+5 , DTSEL1+8, DTSEL1+9, DTADD+5, DTADD+6, DTADD+11, DTADD+12, VENDOR+6, VENDOR+7
Z	DT+1~