Routine: ACGSVCTR

Package	Total	Call Graph
Contracts and Grants	2	DIR^ACGSDIC HOLD^ACGSMENU
VA Fileman	1	^DIR

Package	Total	Caller Graph
Contracts and Grants	1	ACGSTAR1

Entry Points

Name	Comments	DBIA/ICR reference
DISP
HEAD
EN
SEL1	;S (ACGX,ACGCNO)=ACGX(Y),ACG22=$P(ACGCNO,U,5),ACG23=$E($P(ACGCNO,U,6),2,7),ACG24=$E($P(ACGCNO,U,2),2,7),ACG25=$E($P(ACGCNO,U,3),2,7),ACGCDA=$P(ACGCNO,U,10),ACGCNO=$P(ACGCNO,U,7)
EN1
EXIT
DIR
W
DISPLAY
SELECT

Name	Line Occurrences
Function Call: WRITE	Prompt: !?10,"NO CONTRACTS ON FILE FOR ",$S(ACGXREF'=236:$P(^AUTTVNDR(ACG5DA,0),U),1:ACG5DA) H 2 S:'$D(ACGNEW) Line Location: EN1+2
Function Call: WRITE	Prompt: ! Line Location: SELECT+2
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !,ACGJ,?3,$P(ACGX,U),?19,ACGB,?28,ACGE,?37,$J($FN($P(ACGX,U,4),"P",0),12),?50,$E($P(ACGX,U,5),1,30) Line Location: W+0
Function Call: WRITE	Prompt: "CONTRACTOR: ",@ACGON,$P(^AUTTVNDR(ACG5DA,0),U),@ACGOF Line Location: HEAD+1
Function Call: WRITE	Prompt: !!,"# CONTRACT NO.",?20,"BEGIN",?30,"END",?40,"AMOUNT",?59,"DESCRIPTION",!,"-- --------------- -------- -------- ------------ ------------------------------" Line Location: HEAD+1
Function Call: WRITE	Prompt: "CONTRACTOR: ",@ACGON,ACG5DA,@ACGOF Line Location: HEAD+3
Function Call: WRITE	Prompt: !!,"# CONTRACT NO.",?20,"BEGIN",?30,"END",?40,"AMOUNT",?59,"DESCRIPTION",!,"-- --------------- -------- -------- ------------ ------------------------------" Line Location: HEAD+3
Routine Call	DIR Line Location: DIR

Name	Line Occurrences (* Changed, ! Killed)
^ACGS - [#9002330]	EN1+2, DISPLAY+2, DISPLAY+3
^AUTTVNDR - [#9999999.11]	EN1+2, EN1+4, HEAD+1

Name	Field # of Occurrence
>> ACG	DISPLAY+1, DISPLAY+2, DISPLAY+3
>> ACG0	DISPLAY+3*, DISPLAY+4
>> ACG22	SEL1+1*
>> ACG23	SEL1+1*
>> ACG24	SEL1+1*
>> ACG25	SEL1+1*
>> ACG4	EN1+1, HEAD, HEAD+2
>> ACG5DA	EN1+2, EN1+4, DISPLAY+2, HEAD+1, HEAD+3
>> ACGB	DISP, DISP+2, W
>> ACGCDA	SEL1+1*
ACGCNO	EN1!, SEL1+1*
>> ACGDT	DISPLAY+3*, DISPLAY+4
>> ACGDT1	DISPLAY+3*, DISPLAY+4
>> ACGE	DISP+1, DISP+3, W
ACGJ	EXIT!, EN1+3, EN1+4, DISPLAY+1, SELECT, SELECT+1, DISP+4, W, W+1
>> ACGNC	EN1+3
>> ACGNEW	EN1+2
>> ACGOF	HEAD+1, HEAD+3
>> ACGON	HEAD+1, HEAD+3
ACGQUIT	EN1+2, EN1+4, DISPLAY+2, DISPLAY+5!, SELECT+4, DIR*
>> ACGSP	DISPLAY+3*
>> ACGX	DISPLAY+4, SEL1+1, DISP, DISP+1, DISP+4, W
>> ACGX(	SEL1+1, DISP+4*
>> ACGXREF	EN1+1*, EN1+2, EN1+4, DISPLAY+2
DIR	DIR!
DIR("A"	SELECT+1*
DIR(0	SELECT+1*
DIRUT	DIR!
DTOUT	DIR!
DUOUT	DIR!
IOF	HEAD+1, HEAD+3
U	EN1+2, EN1+4, DISPLAY+3, DISPLAY+4, SEL1+1, DISP, DISP+1, W, HEAD+1
>> Y	SELECT*, SEL1+1