Routine: ACRFDCC

Package	Total	Call Graph
Commitment Register	2	(DIC,DIE,DIR)^ACRFDIC PAUSE^ACRFWARN
VA Fileman	2	WAIT^DICD YN^DICN

Package	Total	Caller Graph
Commitment Register	1	ACRFDFLT

Entry Points

Name	Comments	DBIA/ICR reference
ALL	;SET TEMPORARY ARRAY WITH ALL DEFAULT CAN'S
WHICH	;EP;TO CHANGE ALL OR SELECTED CANS
EN21
S
LIST	;LIST CANS
INQ	;EP;TO INQUIRE IF CHANGE SHOULD APPLY TO ALL CAN'S
O
L
EN2	;EP;CHANGE DATA
EXIT
CHOOSE	;CHOOSE CAN'S FROM LIST
W
ONE	;SELECT INDIVIDUAL CAN'S
SELECT	;SELECT CAN'S FOR CHANGE

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"You selected to make changes in CAN DEFAULT data." Line Location: EN21+0
Function Call: WRITE	Prompt: ! Line Location: EN21+4
Function Call: WRITE	Prompt: ! Line Location: EN21+9
Function Call: WRITE	Prompt: !!,"Should this change apply to other CAN's" Line Location: INQ+3
Function Call: WRITE	Prompt: !,"Change will take place after edit completed." Line Location: INQ+10
Function Call: WRITE	Prompt: ! Line Location: INQ+11
Function Call: WRITE	Prompt: Q:$D(ACRQUIT) Line Location: WHICH+1
Function Call: WRITE	Prompt: ! Line Location: W+4
Function Call: WRITE	Prompt: ! Line Location: S+5
Function Call: WRITE	Prompt: @IOF Line Location: L+0
Function Call: WRITE	Prompt: !?10,"NO." Line Location: L+1
Function Call: WRITE	Prompt: ?18,"CAN" Line Location: L+2
Function Call: WRITE	Prompt: ?27,"DEPARTMENT" Line Location: L+3
Function Call: WRITE	Prompt: !?10,"------" Line Location: L+4
Function Call: WRITE	Prompt: ?18,"-------" Line Location: L+5
Function Call: WRITE	Prompt: ?27,"------------------------------" Line Location: L+6
Function Call: WRITE	Prompt: !?27,ACRDPT Line Location: L+24
Function Call: WRITE	Prompt: ! Line Location: O+4
Function Call: WRITE	Prompt: ! Line Location: CHOOSE+2

FileNo	Call Tags
^ACRCAN - [#9002186.5]	Classic Fileman Calls
^AUTTCAN - [#9999999.57]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACRCAN - [#9002186.5]	EN21+20, ALL+2
^ACRLOCB - [#9002188]	L+14, L+15
^ACRLOCB("DCAN"	L+11, L+13
^AUTTCAN - [#9999999.57]	EN21+22
^AUTTCAN("B"	L+9, L+11
^AUTTPRG - [#9999999.62]	L+14
^DD(9002186.5	INQ+7
^TMP("ACRDCAN"	EXIT!, EN21+8, EN21+12, S+6, O+7, O+8, CHOOSE+4, ALL+2*
^TMP("ACRDCC"	EXIT!, EN21+14, EN21+15, INQ+8*

Name	Field # of Occurrence
^(	EN21+20
^(0	L+14

Name	Field # of Occurrence
%	INQ+2~, INQ+4, INQ+6, INQ+7, INQ+8
ACR	EN2+1~, INQ+9!, L+7, L+9, L+11, L+22, ALL+1, ALL+2
ACRALL	EN2+1~, W+7*
ACRCAN	EN2+1~
ACRCAN(	L+19*, CHOOSE+4
ACRCANDA	EN2+1~, L+10, L+11, L+13, L+19
ACRDA	EN2+1~, EN21+11, EN21+12, EN21+20, EN21+22, EN21+23
ACRDPT	EN2+1~, L+14*, L+23, L+24, L+25
>> ACRDPTDA	L+14*
ACRDPTX	EN2+1~, L+24, L+25*
ACRF	EN21+13, EN21+14, EN21+15, EN21+20, INQ+1, INQ+7, INQ+8, INQ+9!
ACRFR	EN2+1~, EN21+16*, INQ+8, INQ+9!
ACRI	EN2+1~, L+12, L+16, L+17, L+20, L+24, CHOOSE+4*
ACRJ	EN2+1~, L+8, L+18, L+19, L+21, CHOOSE+1
ACRLBDA	EN2+1~, L+12, L+13, L+14, L+15
ACRN	EN2+1~, EN21+18*, EN21+20, INQ+9!
ACRP	EN2+1~, EN21+15, EN21+16, EN21+17, EN21+18, EN21+19, EN21+20, INQ+9!
ACRQUIT	EN2+1~, INQ+9!, WHICH+1, WHICH+2!, W+6, SELECT+1, SELECT+2!, S+8, L+9, L+11 , L+13, L+26, L+27!, ONE+1, ONE+2!, O+6*
ACRSEL	EN2+1~, S+10*, L+15
ACRTO	EN2+1~, EN21+17*, EN21+20, INQ+8, INQ+9!
>> ACRX	CHOOSE+4*
ACRY	EN2+1~
>> DA	EN21+23*
>> DIC	O*
>> DIC("A"	O+2, O+8
>> DIC("S"	O+3*
>> DIC(0	O+1*
>> DIE	EN21+24*
>> DIR("?"	W+1, W+2, W+3, S+1, S+2, S+3, S+4*
>> DIR("A"	EN21+2, CHOOSE+1
>> DIR("B"	EN21+3*
>> DIR(0	EN21+1, W, S, CHOOSE+1
>> DR	EN21+13, EN21+20, EN21+21
IOF	L, L+26
IOSL	L+26
IOST	EN21+10
U	EN21+16, EN21+17, EN21+18, EN21+19, EN21+20, EN21+22, INQ+7, INQ+8, L+14
>> Y	EN21+6, W+6, W+7, W+8, W+9, S+8, S+9, S+10, O+6, O+7 , CHOOSE+4