Routine: ECTPP

Information

ECTPP ;B'ham ISC/PTD-Enter/Edit Staffing Data for Pay Period ;01/29/91 08:00

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	5	^%DT ^DIC ^DIE ^DIK ^DIR

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
Interim Management Support	1	ECTP INPUT PP

Entry Points

Name	Comments	DBIA/ICR reference
V	;;1.05;INTERIM MANAGEMENT SUPPORT;;
CHS
ENTER	;IF CHOICE 1 WAS SELECTED, CREATE NEW ENTRY WITH ASSOCIATED SERVICES
PP
YR
DIC
EXIT
EDIT
DIE
DIK
LOOP

External References

Name	Field # of Occurrence
^%DT	YR
^DIC	DIC, EDIT+1, DIK+1, LOOP
^DIE	DIC, DIE, LOOP
^DIK	DIK+3
^DIR	YR+1, DIK+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!?29,"OPTION IS UNAVAILABLE!",!,"Local services have not been identified!",!,"Use the 'Identify Station's Services' option.",!! Line Location: V+1
Function Call: WRITE	Prompt: *7,!!?25,"WARNING",!,"You have only ",CNT," services defined for your station!",!,"Use the 'Identify Station's Services' option to verify before you continue." Line Location: V+3
Function Call: WRITE	Prompt: !!,"At this time, you may:",!!,"1. Enter data for a new pay period",!,"2. Edit existing data for a previously entered pay period",!,"3. Delete a pay period entered in error",!!,"Choose a number (1 - 3): " Line Location: CHS+0
Function Call: READ	Variable: CHS Timeout: DTIME Line Location: CHS+1
Function Call: WRITE	Prompt: !!,*7,"You MUST answer with a number between 1 and 3." Line Location: CHS+1
Function Call: READ	Formatting: !! Prompt: "Enter Pay Period: " Variable: PP Timeout: DTIME Line Location: PP+0
Function Call: WRITE	Prompt: !!,*7,"You MUST answer with a number between 1 and 27." Line Location: PP+0
Function Call: WRITE	Prompt: ! Line Location: YR+0
Function Call: WRITE	Prompt: ! Line Location: YR+1
Function Call: WRITE	Prompt: !!,"This is an EXISTING entry. You may edit if you wish.",!! Line Location: YR+3
Function Call: WRITE	Prompt: *7,!!,"File contains NO pay period data." Line Location: EDIT+0
Function Call: WRITE	Prompt: ! Line Location: EDIT+1
Function Call: WRITE	Prompt: *7,!!,"File contains NO pay period data." Line Location: DIK+0
Function Call: WRITE	Prompt: ! Line Location: DIK+1
Function Call: WRITE	Prompt: !!,"Service: ",SRVNM,! Line Location: LOOP+0
Routine Call	DIC Line Location: DIC EDIT+1 DIK+1 LOOP
Routine Call	DIE Line Location: DIC DIE LOOP
Routine Call	DIR Line Location: YR+1 DIK+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ECT(731.7 - [#731.7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ECC(730 - [#730]	V+1, V+2, DIC+2
^ECT(731.7 - [#731.7]	YR+3, DIC+1*, EDIT, DIK

Label References

Name	Line Occurrences
CHS	CHS+1
DIE	YR+3
DIK	CHS+4
EDIT	CHS+3
EXIT	CHS+1, CHS+3, CHS+4, PP, YR, YR+2, YR+3, DIC
LOOP	DIC+2
PP	PP

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EXIT!
%DT	YR*, EXIT!
%DT("A"	YR*
%DT(0	YR*
%X	EXIT!
%Y	EXIT!
C	EXIT!
CHS	CHS+1*, CHS+3, CHS+4, EXIT!
CNT	V+2*, V+3, EXIT!
D	EXIT!
DA	YR+3, DIC, EXIT!, EDIT+1, DIK+1, LOOP*
DA(1	LOOP*
DIC	DIC!, EXIT!, EDIT+1!, DIK+1!, LOOP!
DIC("A"	EDIT+1, DIK+1
DIC(0	DIC, EDIT+1, DIK+1, LOOP
DIE	DIC!, EXIT!, DIE!, LOOP*!
DIK	EXIT!, DIK+1*, DIK+3!
DIR	EXIT!
DIR("?"	YR+1, DIK+2
DIR("A"	YR+1, DIK+2
DIR("B"	YR+1, DIK+2
DIR(0	YR+1, DIK+2
DLAYGO	DIC*, EXIT!
DR	DIC, EXIT!, DIE, LOOP*
DTIME	CHS+1, PP
DTOUT	YR, YR+2, EXIT!, DIK+3
DUOUT	YR+2, EXIT!, DIK+3
I	EXIT!
J	V+2*, EXIT!
PP	PP, PP+1, YR, YR+1, EXIT!
RESP	DIC+2, EXIT!, LOOP
SRV	DIC+2*, EXIT!
SRVNM	DIC+2*, EXIT!, LOOP
X	YR, DIC, EXIT!, LOOP
>> XQUIT	V+1*
Y	YR, YR+2, DIC, EXIT!, EDIT+1, DIK+1, DIK+3, LOOP
YR	YR*, YR+1, EXIT!
YRPP	YR*, YR+3, DIC, DIC+1, EXIT!, LOOP

Customize PDF page

Package: Interim Management Support