Routine: PRCSP1C

Information

PRCSP1C ;WISC/SAW-CONTROL POINT ACTIVITY PRINT OPTIONS CON'T ;3-25-91/13:05

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC (,KILL)^%ZTLOAD
VA FileMan	2	DD^%DT NOW^%DTC
IFCAP	1	EN4^PRCSUT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
IFCAP	1	PRCSPCCT

Entry Points

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;;Oct 20, 2000
CCT	;COST CENTER TOTALS
CCT1
CCT2
CCPR
CCPR1
CCHD
HOLD
W1
W2
W
EXIT

External References

Name	Field # of Occurrence
DD^%DT	CCHD
NOW^%DTC	CCHD
^%ZIS	CCT+1
HOME^%ZIS	CCT+1
^%ZISC	W+1, W+2
^%ZTLOAD	CCT+1
KILL^%ZTLOAD	CCT1+5
EN4^PRCSUT	CCT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: CCT+1
Function Call: WRITE	Prompt: !!,"There are no transactions for this cost center for the station and time frame",!,"you selected." Line Location: CCT1+2
Function Call: WRITE	Prompt: !!,"TOTALS FOR ALL CONTROL POINTS" Line Location: CCT1+4
Function Call: WRITE	Prompt: !,X Line Location: CCT1+4
Function Call: WRITE	Prompt: !!,"CONTROL POINT: ",PRC("CP"),! Line Location: CCPR+0
Function Call: WRITE	Prompt: X Line Location: CCPR+0
Function Call: WRITE	Prompt: !,"TOTAL COMMITTED (ESTIMATED) COST: ",$J(T(N,1),9,2),!,"TOTAL OBLIGATED (ACTUAL) COST: ",$J(T(N,2),9,2),!,"TOTAL (BEST ESTIMATE) COST: ",$J(T(N,3),9,2),! Line Location: CCPR1+0
Function Call: WRITE	Prompt: @IOF,!!,"COST CENTER TOTALS REPORT",?50 Line Location: CCHD+0
Function Call: WRITE	Prompt: Y,?73,"PAGE ",P Line Location: CCHD+0
Function Call: WRITE	Prompt: !,"STATION ",PRC("SITE"),", ",PRC("QTR")_$S(PRC("QTR")=1:"ST",PRC("QTR")=2:"ND",PRC("QTR")=3:"RD",1:"TH")," QUARTER, FY",PRC("FY") Line Location: CCHD+1
Function Call: WRITE	Prompt: !,L Line Location: CCHD+2
Function Call: WRITE	Prompt: !!,"COST CENTER: ",PRCS("CC") Line Location: CCHD+3
Function Call: READ	Variable: Z1 Timeout: DTIME Line Location: HOLD+0
Function Call: READ	Variable: X Timeout: 5 Line Location: W1+0
Function Call: WRITE	Prompt: !!,"You are not an authorized control point user.",!,"Contact your control point official." Line Location: W1+0
Function Call: WRITE	Prompt: !!,"Enter information for another report or an uparrow to return to the menu.",! Line Location: W2+0
Function Call: WRITE	Prompt: I Line Location: W+0
Function Call: WRITE	Prompt: !!,"Press return to continue: " Line Location: W+0
Routine Call	%ZIS Line Location: CCT+1
Routine Call	%ZIS Line Location: CCT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRC(420 - [#420]	CCT1, CCT1+1
^PRCS(410 - [#410]	CCT2+1

Label References

Name	Line Occurrences
CCHD	CCT1+1, CCT1+3
CCPR	CCT1+1
CCPR1	CCT1+4
CCT	CCT+1, CCT1+2, CCT1+3, CCT1+6
CCT2	CCT1
EXIT	CCT+1, CCT1+5, W1
HOLD	CCT1+1, CCT1+3
W	CCT1+6
W1	CCT+1
W2	CCT+1, CCT1+6

Naked Globals

Name	Field # of Occurrence
^(	CCT1
^(0	CCT1+1
^(3	CCT2+1
^(4	CCT2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CCHD, EXIT!
%DT	EXIT!
%ZIS	CCT+1*, EXIT!
DTIME	HOLD, W
DUZ	CCT1
I	CCT1, CCT1+1, CCT1+2, CCT1+4, EXIT!Press return to continue:
IO	CCT1+1, HOLD, W, W+1, W+2
IO("Q"	CCT+1
IO(0	HOLD, W, W+1, W+2
IOF	CCHD
IOM	CCHD+2
IOSL	CCT1+1, CCT1+3
J	CCT2+1*, EXIT!
L	CCHD+2*, EXIT!
N	CCT1, CCT1+1, CCT2, CCT2+1, CCT2+2, CCPR1, EXIT!
N(1	CCT2*, CCT2+1
N(2	CCT2+1*
P	CCT1, CCHD, EXIT!
>> POP	CCT+1
>> PRC("CP"	CCT1+1*, CCPR
>> PRC("FY"	CCT2, CCHD+1
>> PRC("QTR"	CCT2, CCHD+1
>> PRC("SITE"	CCT+1, CCT1, CCT1+1, CCT2, CCHD+1
PRCS	EXIT!
PRCS("CC"	CCT2+1, CCHD+3
T	CCT1!, EXIT!
T(	CCT1, CCT1+1, CCT2+1, CCT2+2!, CCPR1
T("T"	CCT1, CCT1+1
U	CCT1+1, CCT1+2, CCT1+3, CCT2+1, HOLD
X	CCT1+4, CCT2+1, CCPR, W1, W*, EXIT!
Y	CCT+1, CCHD*, EXIT!
Z1	CCT1, CCT1+1, CCT1+2, CCT1+3, HOLD, EXIT!
>> ZTQUEUED	HOLD, W, W+1, W+2
ZTRTN	CCT+1*, EXIT!
ZTSAVE	EXIT!
ZTSAVE("DUZ"	CCT+1*
ZTSAVE("PRC*"	CCT+1*
ZTSK	CCT1+5!

Customize PDF page

Package: IFCAP