Routine: PRSRL1

Information

PRSRL1 ;HISC/JH,WCIOFO/JAH,SAB-ONE OR ALL EMPLOYEE LEAVE USE REPORT. ;7-AUG-2000

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
PAID	6	PP^PRSAPPU ^PRSRL11 ^PRSRL12 USE^PRSRLSOR (QUE1,TLESEL)^PRSRUT0 (CHKTLE,DUZ,ST)^PRSRUTL
VA FileMan	2	(,DD)^%DT (,IX)^DIC
Kernel	1	^%ZISC

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: 3

Package	Total	Caller Graph
PAID	3	PRSREM-LEV-USED PRSRFI-LEV-USED PRSRSU-LEV-USED

Entry Points

Name	Comments	DBIA/ICR reference
EMP	; employee entry point
SUP	;T&A supervisor entry point: select T&L unit & set up TLE array
LKUPEMP	;user selects 1 employee or all. PRSRY and Y1 ="" if all selected.
FIS
FIS1
EN1
EN2
ASK
START	; queued entry point
IND	; report results
Q	;
Q1
MSG1
MSG2
MSG3
LOOP
INXR(TLCODE,IEN450)	;check if IEN is in T&L cross reference of 450

External References

Name	Field # of Occurrence
^%DT	EN2, ASK+1, ASK+4
DD^%DT	ASK+2, ASK+7
^%ZISC	IND+4
^DIC	EMP+2, FIS1+1
IX^DIC	LKUPEMP+6
PP^PRSAPPU	START+28
^PRSRL11	IND+2
^PRSRL12	IND+3
USE^PRSRLSOR	START+30
QUE1^PRSRUT0	ASK+12
TLESEL^PRSRUT0	SUP+1
CHKTLE^PRSRUTL	EN1+1
DUZ^PRSRUTL	EMP+1, FIS
ST^PRSRUTL	ASK+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LKUPEMP+1
Function Call: WRITE	Prompt: ! Line Location: FIS1+0
Function Call: WRITE	Prompt: ! Line Location: EN2+0
Function Call: WRITE	Prompt: ! Line Location: ASK+12
Function Call: WRITE	Prompt: $C(7),!!,"*** Employee name not found." Line Location: MSG1+0
Function Call: WRITE	Prompt: $C(7),!!,"The Date was invalid." Line Location: MSG2+0
Function Call: WRITE	Prompt: $C(7),!!,"Date not found in file." Line Location: MSG3+0
Routine Call	DIC Line Location: EMP+2 FIS1+1
Routine Call	DIC Line Location: LKUPEMP+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PRSPC - [#450]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(458.1	START+1
^PRSP(454 - [#454]	ASK+10
^PRSP(454.1 - [#454.1]	ASK+10
^PRSPC - [#450]	START+18
^PRSPC("ATL"	INXR+1
^PRST(458 - [#458]	START+24, START+25, START+26
^TMP($J	START+3!, START+4*, Q1+7!

Label References

Name	Line Occurrences
ASK	ASK+6, MSG2, MSG3
EN1	LKUPEMP+9, MSG1
EN2	EMP+5
FIS1	EN1+1
LOOP	ASK+12
MSG2	ASK+1, ASK+4
Q	EMP+1, FIS
Q1	EMP+2, SUP+1, LKUPEMP+6, FIS1+1, ASK+1, ASK+4, ASK+12

Naked Globals

Name	Field # of Occurrence
^(0	INXR+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	Q1!
%DT	EN2!, ASK, ASK+3*, Q1!
%DT("A"	ASK, ASK+3
%DT("B"	ASK, ASK+3
%DT(0	ASK*
%Y	Q1!
BDT	ASK+2*, Q1+1!
C	Q1+1!
CNT	START+2*, Q1+1!
CODE	Q1!
COS	ASK+9*, ASK+10, Q1+1!
COSORG	ASK+9*, ASK+10, Q1+1!
D	LKUPEMP+2*, Q1+8!
D0	EMP+4, EN1, START+18, Q1+1!
D1	ASK+7, START+28, Q1+2!
DA	START+25*, Q1+1!
DA(1	START+25*, START+26
DA(2	START+28*
DAT	ASK+7*, Q1+1!
DAT2	Q1+1!
DATE	Q1+2!
DATES	START+26*, START+28, Q1+2!
DATT	Q1+2!
DAY	Q1+2!
DAYS	Q1+2!
DFN	Q1+2!
DIC	EMP+2, LKUPEMP+2, FIS1*, Q1+2!
DIC("A"	LKUPEMP+3, FIS1
DIC("S"	LKUPEMP+5*
DIC(0	EMP+2, LKUPEMP+2, FIS1*
DT	EN2*, ASK
DTOUT	LKUPEMP+6, FIS1+1, ASK+1, ASK+4, Q1+2!
DUOUT	LKUPEMP+6, FIS1+1, Q1+2!
EDT	ASK+5*, Q1+2!
FOOT	Q1!
FR	ASK+2*, ASK+6, Q1+3!
FRO	ASK+2, START+24, START+25, Q1+8!
FRP	Q1+3!
FRPP	Q1+3!
I	Q1+4!
IEN450	INXR~, INXR+1
II	Q1+4!
INX	Q1!
IO	IND+1
J	Q1+4!
K	Q1!
LEV	Q1+4!
LEVHR	Q1+4!
LOC	Q1+4!
LOC1	Q1+4!
LVT	START+1*, Q1!
MIS1	Q1+4!
MIS2	Q1+4!
MISC	Q1+4!
MISC1	Q1+4!
MISS	Q1+4!
NAM	EMP+4, EN1, START+19*, Q1+4!
NQ	Q1+4!
NUM	Q1+4!
ORG	ASK+9, ASK+10, Q1+5!
P1	Q1+3!
PAGE	Q1+8!
POP	ASK+12, Q1+2!
POS	Q1+5!
POUT	Q1+5!
PP	Q1+3!
PP4Y	START+28, Q1+8!
PPE	Q1+3!
PPI	Q1!
PRSAI	SUP+1*, Q1+3!
PRSR	EMP+3, SUP+1, LKUPEMP+8, FIS, EN1, EN1+1, Q1!
PRSRDUZ	EMP+1, EMP+2, Q1+8!
PRSRI	Q1!
PRSRSSN	EMP+4, EN1, Q1+8!
PRSRY	EMP+3, EMP+4, LKUPEMP+8, EN1*, Q1!
PRSRY1	EMP+3, LKUPEMP+8, EN1*, ASK+9, Q1!
PRSTLV	SUP+1*, Q1+1!
PRSV	Q1+1!
RG	Q1+5!
SCEHR	Q1+5!
SEL	Q1+3!
SSN	FIS, START+21*, Q1+5!
STFSW	EN1+1, Q1+2!
SW	EMP+3, LKUPEMP+8, EN1*, EN1+1, ASK+9, START+16, IND+2, IND+3, Q1+5!
SW(4	EMP+3, EN1+2, ASK+12
SW1	Q1+5!
SW2	Q1+5!
TC	Q1+5!
TIM	Q1+5!
TITLE	Q1+5!
TL	Q1+5!
TLCODE	INXR~, INXR+1
TLE	EMP+4, SUP+1, EN1, START+20*, Q1+1!
TLE(1	LKUPEMP+2
TLEV	Q1+5!
TLI	Q1+1!
TLUNIT	Q1+1!
TO	ASK+5*, ASK+6, ASK+7, Q1+5!
TODA	Q1+6!
TOP	ASK+5*, START+24, Q1+6!
TOPP	Q1+6!
TOUR	Q1+6!
TYL	Q1+6!
TYP	Q1+6!
TYPE	Q1+6!
U	EMP+4, START+19, START+20, START+21, START+25, START+28, INXR+1
USR	Q1!
X	EMP+2, LKUPEMP+8, EN2, ASK+1, ASK+4, ASK+7, START+17~, START+18, START+19, START+20 , START+21, START+25, Q1+6!, LOOP*
X1	Q1+2!
X2	Q1+2!
XFR	Q1+6!
XX	ASK+2*, Q1+6!
Y	EMP+2, EMP+3, FIS1+1, EN1, EN2, ASK+1, ASK+2, ASK+4, ASK+5, ASK+7* , Q1+6!
Y(0	EMP+3, EMP+4, EN1
YY	ASK+7*, Q1+6!
Z	Q1+6!
Z1	Q1+6!
ZTDESC	ASK+12*, Q1+6!
>> ZTQUEUED	Q1+9
>> ZTREQ	Q1+9*
ZTRTN	ASK+12*, Q1+6!
ZTSAVE	Q1+7!
ZTSAVE(	LOOP*
ZTSK	ASK+12, Q1+7!

Customize PDF page

Package: PAID