Routine: PRSNCTL

Information

PRSNCTL ;WOIFO/DWA - Edit T&L Unit POC Entry and Approval Personnel ;11/24/09

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	5	^DDS MSG^DIALOG ^DIC (FILE,UPDATE)^DIE ^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: 2

Package	Total	Caller Graph
PAID	2	PRSN COPY ETA TO POC PRSN TL POC

Entry Points

Name	Comments	DBIA/ICR reference
EDIT	; Enter/Edit POC Entry and Approval Personnel for a T&L Unit
DISP	; Display T&L Unit
MAIN(STOP,T)	;
INIT()	;
HDR	; Header
TL2PEV	;OVERWRITE T&L TIMEKEEPERS AND SUPERVISORS TO PEV DATA ENTRY AND
SEP(IEN200)	; ; missing paid ien treated same as separated employee for this process
HDR2	; Header
HDR3	;

External References

Name	Field # of Occurrence
^DDS	MAIN+6
MSG^DIALOG	TL2PEV+51, TL2PEV+59, TL2PEV+71, TL2PEV+85
^DIC	INIT+3, TL2PEV+7
FILE^DIE	TL2PEV+51, TL2PEV+59
UPDATE^DIE	TL2PEV+71, TL2PEV+85
^DIR	TL2PEV+41

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?26,"VA TIME & ATTENDANCE SYSTEM",! Line Location: HDR+2
Function Call: WRITE	Prompt: ?24,"EDIT POC ENTRY & APPROVAL PERSONNEL",! Line Location: HDR+3
Function Call: WRITE	Prompt: ?36,"T&L UNIT",!!! Line Location: HDR+4
Function Call: WRITE	Prompt: $S($$SEP(TKIEN)="Y":"*",1:" "),$P($G(^VA(200,TKIEN,0)),U) Line Location: TL2PEV+19
Function Call: WRITE	Prompt: ?40,$S($$SEP(ENIEN)="Y":"*",1:" "),$P($G(^VA(200,ENIEN,0)),U) Line Location: TL2PEV+20
Function Call: WRITE	Prompt: $S($$SEP(SUIEN)="Y":"*",1:" "),$P($G(^VA(200,SUIEN,0)),U) Line Location: TL2PEV+29
Function Call: WRITE	Prompt: ?40,$S($$SEP(APIEN)="Y":"*",1:" "),$P($G(^VA(200,APIEN,0)),U) Line Location: TL2PEV+30
Function Call: WRITE	Prompt: ! Line Location: TL2PEV+32
Function Call: WRITE	Prompt: !,"Aborted..." Line Location: TL2PEV+43
Function Call: WRITE	Prompt: !,"Copied..." Line Location: TL2PEV+86
Function Call: WRITE	Prompt: !,"ETA TIMEKEEPER",?40,"POC DATA ENTRY" Line Location: HDR2+1
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------" Line Location: HDR2+2
Function Call: WRITE	Prompt: !!,"ETA SUPERVISOR",?40,"POC APPROVAL" Line Location: HDR3+1
Function Call: WRITE	Prompt: !,"--------------------------------------------------------------------------------" Line Location: HDR3+2
Routine Call	DDS Line Location: MAIN+6
Routine Call	DIALOG Line Location: TL2PEV+51 TL2PEV+59 TL2PEV+71 TL2PEV+85
Routine Call	DIC Line Location: INIT+3 TL2PEV+7
Routine Call	DIE Line Location: TL2PEV+51 TL2PEV+59
Routine Call	DIE Line Location: TL2PEV+71 TL2PEV+85
Routine Call	DIR Line Location: TL2PEV+41

FileNo	Call Tags
^PRST(455.5 - [#455.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PRSPC - [#450]	SEP+6
^PRST(455.5 - [#455.5]	TL2PEV+15, TL2PEV+16, TL2PEV+25, TL2PEV+26, TL2PEV+49, TL2PEV+57, TL2PEV+64, TL2PEV+78
^VA(200 - [#200]	TL2PEV+19, TL2PEV+20, TL2PEV+29, TL2PEV+30, SEP+4

Label References

Name	Line Occurrences
$$INIT	MAIN+3
$$SEP	TL2PEV+19, TL2PEV+20, TL2PEV+29, TL2PEV+30, TL2PEV+66, TL2PEV+80
HDR	INIT+1
HDR2	TL2PEV+12
HDR3	TL2PEV+22
MAIN	EDIT+4, DISP+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APIEN	TL2PEV+9~, TL2PEV+13, TL2PEV+23, TL2PEV+26*, TL2PEV+27, TL2PEV+30
CONT	TL2PEV+34~, TL2PEV+42*, TL2PEV+43
DA	MAIN+1~, MAIN+5*
DDSFILE	MAIN+1~, MAIN+5*
DIC	INIT+2~, INIT+3!, TL2PEV+5~, TL2PEV+6
DIC("A"	INIT+3, TL2PEV+6
DIC(0	INIT+3, TL2PEV+6
DIR	TL2PEV+34~
DIR("A"	TL2PEV+35, TL2PEV+36, TL2PEV+37, TL2PEV+38, TL2PEV+39, TL2PEV+40
DIR("B"	TL2PEV+35*
DIR(0	TL2PEV+35*
DIRUT	TL2PEV+34~
DR	MAIN+1~, MAIN+5*
DS	MAIN+1~, MAIN+6!
DTOUT	INIT+2~, INIT+4, TL2PEV+5~, TL2PEV+8
DUOUT	INIT+2~, INIT+4, TL2PEV+5~, TL2PEV+8
ENIEN	TL2PEV+9~, TL2PEV+13, TL2PEV+16, TL2PEV+17, TL2PEV+20, TL2PEV+23*
FDA	TL2PEV+9~, TL2PEV+47!, TL2PEV+51, TL2PEV+55!, TL2PEV+59, TL2PEV+63!, TL2PEV+71, TL2PEV+76!, TL2PEV+85
FDA(	TL2PEV+50, TL2PEV+58, TL2PEV+70, TL2PEV+84
IEN	TL2PEV+9~, TL2PEV+48, TL2PEV+49, TL2PEV+50, TL2PEV+56, TL2PEV+57, TL2PEV+58
IEN200	SEP~, SEP+4
IEN450	TL2PEV+9~, SEP+2~, SEP+4*, SEP+5, SEP+6
IENS	TL2PEV+9~, TL2PEV+63!, TL2PEV+76!
IENS(	TL2PEV+69, TL2PEV+83
IOF	HDR+1
IOST	HDR+1
J	TL2PEV+9~, TL2PEV+62, TL2PEV+68, TL2PEV+69, TL2PEV+70, TL2PEV+75, TL2PEV+82, TL2PEV+83, TL2PEV+84
SEPFLAG	TL2PEV+66, TL2PEV+67, TL2PEV+80, TL2PEV+81, SEP+2~, SEP+3, SEP+5, SEP+6*, SEP+7
STOP	EDIT+1~, EDIT+3, EDIT+4, DISP+1~, DISP+3, DISP+4, MAIN~, MAIN+2, MAIN+4, TL2PEV+9~ , TL2PEV+13, TL2PEV+14, TL2PEV+17, TL2PEV+23, TL2PEV+24, TL2PEV+27
SUIEN	TL2PEV+9~, TL2PEV+13, TL2PEV+23, TL2PEV+25, TL2PEV+27, TL2PEV+29, TL2PEV+75, TL2PEV+77, TL2PEV+78, TL2PEV+80 , TL2PEV+84
T	MAIN~, MAIN+5
TEMPLATE	EDIT+1~, EDIT+2, EDIT+4, DISP+1~, DISP+2, DISP+4
TKIEN	TL2PEV+9~, TL2PEV+13, TL2PEV+15, TL2PEV+17, TL2PEV+19, TL2PEV+23, TL2PEV+62, TL2PEV+64*, TL2PEV+66, TL2PEV+70
TLI	MAIN+1~, MAIN+3*, MAIN+4, MAIN+5
TLIEN	TL2PEV+9~, TL2PEV+10*, TL2PEV+15, TL2PEV+16, TL2PEV+25, TL2PEV+26, TL2PEV+49, TL2PEV+50, TL2PEV+57, TL2PEV+58 , TL2PEV+64, TL2PEV+70, TL2PEV+78, TL2PEV+84
U	TL2PEV+19, TL2PEV+20, TL2PEV+29, TL2PEV+30, SEP+6
X	INIT+2~, TL2PEV+5~
Y	INIT+2~, INIT+4, INIT+5, TL2PEV+5~, TL2PEV+8, TL2PEV+10, TL2PEV+34~, TL2PEV+42

Customize PDF page

Package: PAID