Routine: ACRFDA

Package	Total	Call Graph
Commitment Register	5	(DIC,DIR)^ACRFDIC $$NAME3^ACRFUTL1 PAUSE^ACRFWARN ^ACRFZIS ^ACRPRCA

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP;
P
S	;DISPLAY APPROVAL IEN'S
EN1
SIGS	;EP;TO RECOUP DELETED SIGS
P1	;EP;TO PRINT DA HISTORY REPORT
EXIT
PRINT	;PRINT REPORT
SELECT	;SELECT DOCUMENT FOR DA HISTORY REPORT
OUT

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?20,"DELETED Signature History Report" Line Location: SELECT+5
Function Call: WRITE	Prompt: !!,"The report which follows lists all DELETED approvals for the selected document." Line Location: SELECT+6
Function Call: WRITE	Prompt: !,"The approvals listed may have been deleted because the document was DISAPPROVED" Line Location: SELECT+7
Function Call: WRITE	Prompt: !,"or becuase accounting or item information was changed or because the document" Line Location: SELECT+8
Function Call: WRITE	Prompt: !,"was re-sent for approval. ARMS does not know WHY these signatures were" Line Location: SELECT+9
Function Call: WRITE	Prompt: !,"deleted but the listing below will indicate who deleted them and when.",!! Line Location: SELECT+10
Function Call: WRITE	Prompt: !! Line Location: SIGS+23
Function Call: WRITE	Prompt: !!,"ID NO's: Set number ",ACRDAT,! Line Location: S+2
Function Call: WRITE	Prompt: X,", " Line Location: S+5

FileNo	Call Tags
^ACRDOC - [#9002196]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACRAPVS - [#9002190]	P1+2, P, P+1, P+2, P+3, SIGS+33
^ACRAPVS("AB"	SIGS+4, SIGS+11!, SIGS+20!, SIGS+31*
^ACRAPVS("AORDR"	SIGS+33*
^ACRAPVS("D"	P1+2, SIGS+32!
^ACRDOC - [#9002196]	PRINT+3
^DD("DD"	P+18
^TMP("ACRDA"	EXIT+1!, P1+5*, P1+6, P1+8, P1+10, P1+12, P1+15

Name	Field # of Occurrence
^(0	P1+2

Name	Field # of Occurrence
ACR0	EXIT!, P*, P+10, P+11
ACRAPDA	EXIT!, P1+1, P1+2, P1+5, P1+14, P1+15, P, P+1, P+2, P+3 , P+21, P+23
ACRCNG	EXIT!, P+3*
ACRDAT	EXIT!, P+5, P+8*, P+23, SIGS+21, S+2, S+5
ACRDATE	EXIT!, P1+3, P1+4, P1+5
ACRDOCDA	EXIT!, SELECT+13*, PRINT+3, P1+2, SIGS+4, SIGS+11, SIGS+20, SIGS+30, SIGS+31, SIGS+32 , SIGS+33
ACRDT	EXIT!, P+1*
ACRI	EXIT!, P1+9, P1+13
ACRINAM	EXIT!
ACRINDV	EXIT!
ACRINDVA	EXIT!
ACRJ	EXIT!, P1+1, P1+9, P1+10*, P1+12, P1+15
ACRNO	EXIT!
ACROUT	EN+1, EXIT!, EN1+2
ACRPAI	EXIT!, P1+11, P1+12, P1+13, P1+15, P+4
ACRQUIT	EN+1, EXIT!, EN1+2, SELECT+12*, PRINT+7!, SIGS+4, SIGS+12!
>> ACRREFDA	P1+7, P1+8, P1+10, P1+12, P1+15
ACRRESP	EXIT!
ACRRSN	EXIT!, P+2*
ACRRTN	EXIT!, PRINT+2*
ACRSIGS	P1+18, P+23, SIGS+1!, SIGS+2*, OUT+1!
ACRSIGS(	P+23*, SIGS+29, S+5
ACRSIGS(0	S+1
ACRX	EXIT!, SIGS+26*, SIGS+29
ACRY	EXIT!
ACRZ	EXIT!
>> D0	P+21*
>> DIC	SELECT+1*
>> DIC("A"	SELECT+3*
>> DIC("S"	SELECT+4*
>> DIC(0	SELECT+2*
>> DIR("A"	SIGS+6, SIGS+7, SIGS+14, SIGS+15, SIGS+22*
>> DIR("B"	SIGS+8, SIGS+16
>> DIR(0	SIGS+5, SIGS+13, SIGS+21*
IOF	SELECT+5
U	PRINT+3, PRINT+4, P1+3, P1+5, P+10, P+11, SIGS+33
X	PRINT+1~, PRINT+3, PRINT+4, PRINT+5, P+9~, P+10, P+15, P+16, SIGS+27~, SIGS+28* , SIGS+29, SIGS+30, SIGS+31, SIGS+32, SIGS+33, S+3~, S+4, S+5*
Y	SELECT+12, SELECT+13, P1+2, P1+3, P1+5, P+9~, P+11, P+17, P+18, P+19 , SIGS+11, SIGS+19, SIGS+25, SIGS+26
>> ZTDESC	PRINT+5*
>> ZTRTN	PRINT+2*