Routine: ACRFDF1

Package	Total	Call Graph
Commitment Register	1	(DIE,DIR,FILE)^ACRFDIC

Package	Total	Caller Graph
Commitment Register	1	ACRFDF

Entry Points

Name	Comments	DBIA/ICR reference
SARRAY	;EP;SELECT TYPE OF DISTIBUTION: AMOUNT OR PERCENT
PAUSE
DIST	;EP;CREATE DISTRIBUTION ENTRIES
ALCAMT	;;^ACRALC(;;.03////;;.8T//ORIGINAL;I X["O" S Y=30;.9T;30T//RECURRING;110T;900
S1
LOCBAMT	;;^ACRLOCB(;;.04////;;.8T//ORIGINAL;I X["O" S Y=.05;.9T;.05T;30T//RECURRING;110T;90T;100;140;900
ALLAMT	;;^ACRALW(;;.02////;;.8T//ORIGINAL;I X["O" S Y=30;.9T;30T//RECURRING;130;50T;80T;900
W2
W1
D1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?22,"Data for ",ACRY," distribution: " Line Location: D1+16
Function Call: WRITE	Prompt: ! Line Location: D1+17
Function Call: WRITE	Prompt: ! Line Location: PAUSE+4
Function Call: WRITE	Prompt: !!,ACRX Line Location: W1+0
Function Call: WRITE	Prompt: ?8,ACRY Line Location: W1+1
Function Call: WRITE	Prompt: ?40,"CUMM ",$S(ACRDM=1:"%",1:"AMT"),": ",ACRCUM Line Location: W1+2
Function Call: WRITE	Prompt: ?60,$S(ACRDM=3:"RMNG AMT: ",1:"RMNG %: "),$S(ACRDM=3:ACRFDX,1:100)-ACRCUM,$S(ACRDM=1:"%",1:"") Line Location: W1+3
Function Call: WRITE	Prompt: !!,*7,$S(ACRDM=3:"You cannot distribute more than "_ACRFDX,1:"Percent distributed must not exceed 100%") Line Location: W2+0

Name	Line Occurrences (* Changed, ! Killed)
^ACRDG - [#9002198]	S1

Name	Field # of Occurrence
>> ACRACTPT	S1+1, D1+4*, D1+15
>> ACRCUM	SARRAY+1, SARRAY+4, S1+2, S1+3, W1+2, W1+3, W2+2*
ACRDATA	DIST+1*, DIST+4!, D1+7, D1+9, D1+12, D1+13
ACRDFN	S1+1, DIST+4!, D1+6*, D1+14
>> ACRDGDA	S1
>> ACRDM	SARRAY+2, SARRAY+3, SARRAY+4, SARRAY+5, S1, S1+3, D1, W1+2, W1+3, W2
>> ACRFDX	SARRAY+4, S1+3, D1, W1+3, W2
ACRGLB	S1+1, DIST+4!, D1+5*, D1+14
>> ACROUT	SARRAY+7
ACRPSE	PAUSE!, PAUSE+7*
ACRQUIT	SARRAY+7, S1+4!
>> ACRX	S1, S1+1, DIST+2, DIST+3, D1, D1+2, W1, W2+1*
>> ACRX(	S1+1*, DIST+3, D1, D1+2
ACRY	S1+1, DIST+4!, D1+3*, D1+14, D1+16, W1+1
ACRZ	DIST+2*, DIST+4!
>> ACRZDA	D1+9
>> DA	D1+11*
>> DIC	D1+7*
>> DIC("DR"	D1+9*
>> DIC(0	D1+8*
>> DIE	D1+12*
>> DIE("NO^"	D1+18*
>> DIR("A"	SARRAY+5, PAUSE+2
>> DIR("B"	PAUSE+3*
>> DIR(0	SARRAY+4, PAUSE+1
>> DR	D1+13, D1+14, D1+15*
U	S1, S1+1, D1, D1+3, D1+4, D1+5, D1+6
>> X	S1, S1+1, S1+2, D1, W2+2
Y	D1+1~, D1+2*, D1+3, D1+4, D1+5, D1+6, D1+11, PAUSE+6

Name	Field # of Occurrence
$T(@ACRENTRY	DIST+1