Routine: ACRFALT

Package	Total	Call Graph
Commitment Register	3	DIR^ACRFDIC (EN21,LIST2)^ACRFPRCS $$NAME2^ACRFUTL1
VA Fileman	1	%XY^%RCR

Package	Total	Caller Graph
Commitment Register	1	ACRFPRCS

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;DISPLAYS LIST OF ALL INDIVIDUALS FOR WHOM CURRENT USER IS ALTERNATE
RELIST	;RELISTS DOCUMENTS WHICH CURRENT USER NEEDS TO SIGN
EN	;EP;TO DISPLAY, SELECT AND PROCESS DOCUMENTS PENDING FOR ALTERNATES
R1	;CHANGE DATE ORDER ARRAY OF DOCS TO BE SIGNED TO NUMERIC ORDERED ARRAY
EN1
SIGS	;PROCESS DOCUMENTS PENDING FOR USER TO SIGN AS ALTERNATE
XY	;SETS LOCAL ARRAY 'ACRDATA'
EXIT
SELECT	;SELECT INDIVIDUAL FOR WHOM USER WILL SIGN AS ALTERNATE

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN1+0
Function Call: WRITE	Prompt: !,"Documents are pending for:" Line Location: EN1+1
Function Call: WRITE	Prompt: ! Line Location: EN1+2
Function Call: WRITE	Prompt: !!,"Indicate number of the individual for whom you are an authorized" Line Location: SELECT+3
Function Call: WRITE	Prompt: !,"alternate and for whom you want to review/authorize for incumbent." Line Location: SELECT+4
Function Call: WRITE	Prompt: ! Line Location: SELECT+5

Name	Line Occurrences (* Changed, ! Killed)
^TMP("ACRALT"	DISP+3, RELIST+6, RELIST+7, RELIST+9, RELIST+10, RELIST+11, RELIST+12!, R1+9, R1+12, R1+13
^TMP("ACRALTDT"	DISP+1, RELIST+1, R1+3, R1+5, R1+7, R1+9, R1+11, R1+12, R1+14!, R1+15!
^TMP("ACRDATA"	RELIST+12!
^VA(200 - [#200]	DISP+4

Name	Field # of Occurrence
%X	XY+1*, XY+4!
%Y	XY+2*, XY+4!
ACR	EXIT!, DISP+2, DISP+3, DISP+4, DISP+7, DISP+9, RELIST+4!, RELIST+5, RELIST+6, RELIST+7 , RELIST+9, RELIST+10, RELIST+12, R1+1~, R1+4, R1+5, R1+7, R1+9, R1+11, R1+12 , R1+14
ACR1	R1+1~, R1+6, R1+7, R1+9, R1+11, R1+12, R1+14
ACRALTX	EXIT!
ACRALTX(	SELECT+9, DISP+9*, SIGS+1
ACRALTY	EXIT!, SELECT+8*, SELECT+9, SIGS+1
ACRDOC	RELIST+8~, RELIST+9, RELIST+10, RELIST+11, R1+10~, R1+11, R1+12, R1+13
ACRDUZ	SELECT+9, SIGS+1, XY+1, XY+2, RELIST+6, RELIST+7, RELIST+9, RELIST+10, RELIST+11, RELIST+12 , R1+1~, R1+2, R1+3, R1+5, R1+7, R1+9, R1+11, R1+12, R1+13, R1+14
ACRI	SIGS+2, R1+1~, R1+4, R1+8*, R1+9, R1+13
ACRJ	EXIT!, EN1+4, SELECT+1, DISP+3, DISP+9, DISP+10, RELIST+6, RELIST+7, RELIST+11
>> ACRNAM	DISP+8*, DISP+11
>> ACROUT	EN+2, SELECT+7, SELECT+11
ACRQUIT	EN+2, EXIT!, EN1+5*, SELECT+7, SELECT+11, SELECT+12!, SIGS+4, SIGS+5
>> DIR("A"	SELECT+2*
>> DIR(0	SELECT+1*
IOF	EN1
U	RELIST+9, RELIST+11, R1+11, R1+13
X	DISP+5~, DISP+7*, DISP+8
>> Y	SELECT+8