Routine: ACGSEDIT

Information

ACGSEDIT ;IHS/OIRM/DSD/THL - EDIT CONTRACT/CONTRACT ACTION; [ 03/27/2000 2:22 PM ]

Package	Total	Call Graph
Contracts and Grants	4	^ACGSCS (DIE,DIR)^ACGSDIC HOLD^ACGSMENU VND^ACGSTAR1
VA Fileman	1	^DIK

Package	Total	Caller Graph
Contracts and Grants	1	ACGSTART

Name	Comments	DBIA/ICR reference
COUNT
WEC
EN
EDIT
EDIT1	;EP;TO SELECT CONTRACT OR MODIFICATION TO EDIT
EXIT
E1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?13,"CONTRACT/",!,"NO.",?5,"TYPE",?11,"MODIFICATION",?30,"AMOUNT",!,"---",?5,"----",?11,"--------------",?27,"------------ --------------------------------------" Line Location: EDIT1+2
Function Call: WRITE	Prompt: !!,"NO CONTRACT ACTIONS ON FILE FOR THIS CONTRACT" Line Location: EDIT1+20
Function Call: WRITE	Prompt: !?27,"------------",!?18,"TOTAL:",?27,$J($FN(ACGTOT,"P",0),12),! Line Location: EDIT1+21
Function Call: WRITE	Prompt: 7,7,!!,"THIS RECORD HAS ALREADY BEEN EXPORTED AND CANNOT BE EDITED" Line Location: E1+3
Function Call: WRITE	Prompt: 7,7,!!,"ORIGINAL CONTRACT ACTION CANNOT BE DELETED." Line Location: E1+5
Function Call: WRITE	Prompt: !,ACGJ,?6,$P(^ACGTPA(+ACGDT,0),U),?11,$S("^15^17^"'[(U_+ACGDT_U):$P(^ACGS(ACG,"DT"),U,2),1:$P(^ACGS(ACG,"SP"),U)),?27,$J($FN($P(ACGDT1,U,5),"P",0),12),?41,$S("^15^17^"'[(U_+ACGDT_U):$E($P(ACGDT1,U),1,38),1:"SMALL PURCHASE") Line Location: WEC+2

FileNo	Call Tags
^ACGS - [#9002330]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACGS - [#9002330]	EDIT1+4, EDIT1+16, EDIT1+17, E1+1, E1+3, E1+5, COUNT, WEC, WEC+1, WEC+2 , WEC+3
^ACGS("C"	EDIT1+4
^ACGTPA - [#9002330.1]	E1+1, WEC+2

Name	Field # of Occurrence
^("DT"	EDIT1+4
^("DT1"	WEC, WEC+1

Name	Field # of Occurrence
ACG	EXIT!, EDIT1+3, EDIT1+4, EDIT1+5, EDIT1+6, EDIT1+7, EDIT1+9, EDIT1+14, EDIT1+15, EDIT1+16 , EDIT1+17, E1+6, COUNT, WEC, WEC+1, WEC+2, WEC+3
ACG(	EDIT1+9*, EDIT1+12, EDIT1+14, E1, E1+1
>> ACG2	COUNT*
>> ACG5DA	EDIT+1
ACGCNO	EXIT!, EDIT1+1, EDIT1+4
>> ACGDELET	E1+4
>> ACGDT	EDIT1+4, EDIT1+5, WEC+1, WEC+2
>> ACGDT1	WEC+1*, WEC+2
ACGFLDS	EXIT!, E1+1*
ACGFLDSS	EXIT!, E1+1*
>> ACGFY	E1+2*
ACGI	EXIT!, EDIT1+6, EDIT1+9, EDIT1+11, EDIT1+12, EDIT1+13, EDIT1+14
ACGJ	EXIT!, EDIT1+3, EDIT1+5, EDIT1+8, EDIT1+9, EDIT1+13*, EDIT1+17, EDIT1+19, EDIT1+20, EDIT1+23 , EDIT1+24, COUNT, WEC+2
ACGN	EXIT!, EDIT1+16*, EDIT1+17
ACGNEW	EN!, EDIT1+22!
ACGOUT	EN+1, EXIT!, EDIT, EDIT+1
ACGQUIT	EN+1, EXIT!, EDIT+1, EDIT+2, EDIT+3!, EDIT1+20, EDIT1+23, EDIT1+26, E1+6
ACGRDA	EXIT!, E1+1*, E1+3, E1+5, E1+6
ACGTOT	EXIT!, EDIT1+3, EDIT1+21, WEC+3
ACGXX	EXIT!, EDIT1+10!
ACGXX(	EDIT1+5*, EDIT1+7, EDIT1+9
>> DA	E1+6, COUNT
>> DIE	COUNT*
>> DIK	E1+6*
>> DIR("A"	EDIT1+24, E1+6
>> DIR("B"	E1+6*
>> DIR(0	EDIT1+24, E1+6
>> DR	COUNT*
DT	COUNT
U	EDIT1+5, EDIT1+17, E1+1, E1+3, E1+5, COUNT, WEC+2, WEC+3
>> Y	EDIT1+23*, EDIT1+26, E1, E1+1, E1+6