Routine: ACRFDISA

Package	Total	Call Graph
Commitment Register	3	DIR^ACRFDIC ($$NAME2,$$NAME3)^ACRFUTL1 PAUSE^ACRFWARN

Package	Total	Caller Graph
Commitment Register	3	ACRFEA4 ACRFPRC9 ACRFRESP

Entry Points

Name	Comments	DBIA/ICR reference
EN
MESS	;EP;TO PRINT MESSAGE
EN1
APDA	;EP;TO DISPLAY REMARKS FOR SELECTED APPROVAL
EXIT
YES

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: YES+3
Function Call: WRITE	Prompt: @IOF Line Location: APDA+1
Function Call: WRITE	Prompt: !!?10,"COMMENTS REGARDING THIS APPROVAL" Line Location: APDA+2
Function Call: WRITE	Prompt: !?10,"--------------------------------" Line Location: APDA+3
Function Call: WRITE	Prompt: !?10 Line Location: APDA+19
Function Call: WRITE	Prompt: $S($P(^ACRAPVS(ACRAPDA,0),U,11):"TRAVEL ADVANCE ",1:"")_"DISAPPROVED BY " Line Location: APDA+20
Function Call: WRITE	Prompt: "SIGNED/REVIEWED BY: " Line Location: APDA+21
Function Call: WRITE	Prompt: ACRIANAM," FOR " Line Location: APDA+22
Function Call: WRITE	Prompt: ACRINAM Line Location: APDA+23
Function Call: WRITE	Prompt: ! Line Location: APDA+29
Function Call: WRITE	Prompt: !!?4,"MESSAGE NO.: ",ACRZ Line Location: MESS+3
Function Call: WRITE	Prompt: !?4,"DATE: ",Y Line Location: MESS+4
Function Call: WRITE	Prompt: !?10,"----------" Line Location: MESS+7
Function Call: WRITE	Prompt: ?46,"------------------------------" Line Location: MESS+8

Name	Line Occurrences (* Changed, ! Killed)
^ACRAPVS - [#9002190]	EN1+4, EN1+5, EN1+6, EN1+13, EN1+14, EN1+15, APDA+4, APDA+5, APDA+6, APDA+7 , APDA+20, APDA+31, APDA+32, APDA+33, APDA+34, APDA+35, APDA+37, APDA+38
^ACRAPVS("AB"	EN1+3, EN1+12
^ACROBL - [#9002189]	EN1+17, EN1+18, EN1+19, APDA+11, APDA+12, APDA+13
^DD("DD"	APDA+27, MESS+2, MESS+13

Name	Field # of Occurrence
>> ACR0	EN1+21, APDA+32, APDA+38*, MESS+1, MESS+6, MESS+12, MESS+17
ACRAPDA	EN1+1~, EN1+2, EN1+3, EN1+4, EN1+5, EN1+6, EN1+11, EN1+12, EN1+13, EN1+14 , EN1+15, APDA+4, APDA+5, APDA+6, APDA+7, APDA+20, APDA+31, APDA+32, APDA+33, APDA+34 , APDA+35, APDA+37, APDA+38
ACRCNG	EN1+10~, EN1+18, EN1+20, APDA+5, APDA+12, APDA+33, APDA+36, APDA+37
ACRDATE	EN1+10~, APDA+8*, APDA+26
>> ACRDOCDA	EN1+3, EN1+12, EN1+17, EN1+18, EN1+19, APDA+11, APDA+12, APDA+13
ACRI	EN1+10~, APDA+30, APDA+40, MESS+10, MESS+19, MESS+21
ACRIANAM	EXIT!, APDA+16*, APDA+22
ACRINAM	EXIT!, APDA+17*, APDA+23
ACRINDV	EN1+10~, APDA+9*, APDA+16, APDA+17
ACRINDVA	EXIT!, APDA+10*, APDA+16
ACRNO	EXIT!, APDA+7, APDA+8, APDA+9, APDA+10, APDA+18, APDA+20, APDA+24
>> ACROUT	EN1+9
ACRQUIT	EN1!, EN1+9!, YES+5*
ACRRESP	EN1+10~, EN1+19, EN1+20, APDA+6, APDA+13, APDA+35, APDA+36, APDA+37, MESS+11, MESS+19
ACRRSN	EN1+10~, EN1+17, EN1+20, APDA+4, APDA+11, APDA+34, APDA+36, APDA+37
ACRX	EN1+10~, MESS+9*, MESS+10
ACRYES	EN1+1~, EN1+2, EN1+7, EN1+8
>> ACRZ	EN1+21, APDA+30, APDA+31, APDA+32, APDA+33, APDA+34, APDA+35, APDA+40, MESS+3, MESS+21
>> DIR("A"	YES+1*
>> DIR("B"	YES+2*
>> DIR(0	YES*
IOF	APDA+1
U	EN1+6, EN1+15, APDA+8, APDA+9, APDA+10, APDA+18, APDA+20, APDA+38, MESS+1, MESS+6 , MESS+10, MESS+12, MESS+17, MESS+19
>> Y	YES+5, APDA+26, APDA+28, MESS+1, MESS+4, MESS+12*, MESS+15