Routine: ACGSICR

Information

ACGSICR ;IHS/OIRM/DSD/THL,AEF - INDIRECT COST REPORT; [ 03/27/2000 2:22 PM ]

Package	Total	Call Graph
Contracts and Grants	3	(CO,QT)^ACGSCPAR HOLD^ACGSMENU (,DONE)^ACGSZIS
Kernel	1	^%ZIS

Package	Total	Caller Graph
Contracts and Grants	3	ACGSSPR ACGSSWS ACGSUNIC

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"TYPE OF BUSINESS",?43,"TOTAL COSTS",?59,"TOTAL INDIRECT COSTS",!?5,"---------------------------------",?41,"----------------",?59,"---------------------" Line Location: EN3+2
Function Call: WRITE	Prompt: !?41,"----------------",?60,"----------------",!?30,"TOTALS",?41,$J($FN($P(ACGT,U),"P,",2),16),?60,$J($FN($P(ACGT,U,2),"P,",2),16) Line Location: EN3+6
Function Call: WRITE	Prompt: !!?5,$P(ACG(ACG),U,3),?41,$J($FN($P(ACG(ACG),U),"P,",2),16),?60,$J($FN($P(ACG(ACG),U,2),"P,",2),16) Line Location: EN3+7
Function Call: WRITE	Prompt: !?15,"IHS CONTRACT INFORMATION SYSTEM",?50,"REPORT DATE: ",Y,!!?15,ACGX,!!?15,"BEGINNING DATE: ",$E(ACGBEGIN,2,7),!?15,"ENDING DATE...: ",$E(ACGEND,2,7) Line Location: RDATE+2
Function Call: WRITE	Prompt: !?15,"PROCUREMENT OFFICE: ",$S($D(^ACGPO("C",ACG4)):ACG4_" "_$P(^ACGPO($O(^ACGPO("C",ACG4,0)),0),U),1:"COMBINED REPORT") Line Location: RDATE+3
Routine Call	%ZIS Line Location: EN2

Name	Line Occurrences (* Changed, ! Killed)
^ACGPO - [#9002334]	RDATE+3
^ACGPO("C"	RDATE+3
^ACGS - [#9002330]	ENX+2, ENX+3
^ACGS("T"	ENX+2
^AUTTTOB - [#9999999.76]	ENX+7, ENX+8
^DD("DD"	RDATE+1

Name	Field # of Occurrence
ACG	EXIT!, ENX!, ENX+2, ENX+3, EN3+3, EN3+4, EN3+7
ACG(	ENX+8, ENX+9, EN3+4, EN3+7
ACG(1	ENX+1, ENX+10
ACG(2	ENX+1, ENX+11
ACG(3	ENX+1, ENX+12
ACG(4	ENX+1, ENX+13
ACG(5	ENX+1, ENX+14
ACG13	EXIT!, ENX+3, ENX+6, ENX+7, ENX+8, ENX+9, ENX+10, ENX+11, ENX+12, ENX+13 , ENX+14
>> ACG15	ENX+2*
ACG2	EXIT!, ENX+3*, ENX+4, ENX+5
ACG26	EXIT!, ENX+3*, ENX+9, ENX+10, ENX+11, ENX+12, ENX+13, ENX+14, ENX+15
ACG36	EXIT!, ENX+3*, ENX+9, ENX+10, ENX+11, ENX+12, ENX+13, ENX+14, ENX+15
ACG4	EXIT!, EN1+3, EN1+4, EN2+2, ENX+4, ENX+5, RDATE+3
ACG4X	EXIT!, EN1+4*, EN2+2, EN2+3, R1+3, ENX+4
ACG5	EXIT!
ACGBEG	EXIT!, ENX+1, ENX+2
ACGBEGIN	EXIT!, ENX+1, RDATE+2
ACGEND	EXIT!, ENX+2, RDATE+2
ACGFY	EXIT!
ACGION	EXIT!
>> ACGIOP	EN2*
ACGQT	EXIT!
ACGQUIT	EXIT!, EN1!, EN1+2!, EN1+3, ZIS+2, EN2*, EN2+2!, R1
ACGT	EXIT!, ENX+1, ENX+15, EN3+6
ACGX	EXIT!, EN3, EN3+4, EN3+5, RDATE+2
DT	RDATE+1
IO	EN2+1
IOF	R1+2
ION	EN2
>> IOP	EN2*
IOST	ENX+17
>> POP	EN2
U	ENX+2, ENX+3, ENX+8, ENX+9, ENX+10, ENX+11, ENX+12, ENX+13, ENX+14, ENX+15 , EN3+5, EN3+6, EN3+7, RDATE+3
>> Y	RDATE+1*, RDATE+2
>> ZTDESC	ZIS*
>> ZTQUEUED	EN2
>> ZTRTN	ZIS*
>> ZTSAVE("ACG*"	ZIS*