Routine: XUEPCSRT

Information

XUEPCSRT ;FO-OAKAND/REM - EPCS Utilities and Reports; [5/7/02 5:53am] ;08/06/2012

Source Information

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	5	($$FMADD,$$HTE)^XLFDT $$LKUP^XPDKEY ($$PRESCBR,$$PRIVS)^XUEPCSRT $$ACTIVE^XUSER OWNSKEY^XUSRB
VA Fileman	5	(C,NOW)^%DTC ^DIC UPDATE^DIE ^DIK EN1^DIP
Toolkit	1	$$GET^XPAR

Caller Graph

Caller Graph Total: 10

Package	Total	Caller Graph
Kernel	10	XU EPCS DISUSER EXP DATE XU EPCS DISUSER PRIVS XU EPCS DISUSER XDATE EXPIRES XU EPCS EXP DATE XU EPCS LOGICAL ACCESS XU EPCS PRIVS XU EPCS PSDRPH AUDIT XU EPCS PSDRPH KEY XU EPCS XDATE EXPIRES XUEPCSRT

Entry Points

Name	Comments	DBIA/ICR reference
RPT2	;ePCS report - allocation history for PSDRPH key
RPT1	;ePCS report - setting or modifing to logical access controls.
PRESCBR(XUSD0)	;called from print option - XU EPCS PRIVS
PRIVS(XUSD0)	;called from print option - XU EPCS PRIVS
RECORD(LINE,NOW)	;Record the edited data into audit file #8991.7
XT30(XUSD0,ACT)	;called from print option - XU EPCS XDATE EXPIRES
VUSER2(XUSD0,ACT)	;called from option - XU EPCS PRIVS,XU EPCS DISUSER PRIVS
ASK(TYPE,NAME)	;Ask user if Allocate/De-allocate - returns y/n
VUSER1(XUSD0,ACT)	;called from option - XU EPCS DISUSER EXP DATE,XU EPCS EXP DATE
PSDKEY	;Allocated/de-allocate the PSDRPH key option

External References

Name	Field # of Occurrence
C^%DTC	RPT1+6, RPT2+6
NOW^%DTC	RPT1+6, RPT2+6
^DIC	PSDKEY+6
UPDATE^DIE	PSDKEY+13, RECORD+4
^DIK	PSDKEY+11
EN1^DIP	RPT1+16, RPT2+17
$$FMADD^XLFDT	XT30+5
$$HTE^XLFDT	PSDKEY+15
$$GET^XPAR	RPT1+10, RPT2+10
$$LKUP^XPDKEY	PSDKEY+5
$$PRESCBR^XUEPCSRT	VUSER2+5
$$PRIVS^XUEPCSRT	VUSER2+6
$$ACTIVE^XUSER	XT30+8, XT30+10, VUSER1+8, VUSER1+10, VUSER2+8, VUSER2+10
OWNSKEY^XUSRB	PSDKEY+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"DEVICE NOT DEFINED! Set the parameter XUEPCS REPORT DEVICE." Line Location: RPT1+11
Function Call: WRITE	Prompt: !!,"DEVICE NOT DEFINED! Set the parameter XUEPCS REPORT DEVICE." Line Location: RPT2+11
Function Call: WRITE	Prompt: !,"You don't have privileges. See your package coordinator or site manager." Line Location: PSDKEY+4
Function Call: WRITE	Prompt: !,"PSDRPH key does not exist" Line Location: PSDKEY+5
Function Call: WRITE	Prompt: !,"Nothing done..." Line Location: PSDKEY+9
Function Call: WRITE	Prompt: $C(7)," ??",!,"Please enter 'Y' or 'N'" Line Location: ASK+7
Routine Call	DIE Line Location: PSDKEY+13 RECORD+4
Routine Call	DIC Line Location: PSDKEY+6

Name	Line Occurrences (* Changed, ! Killed)
^VA(200 - [#200]	PRESCBR+4, PRIVS+5, XT30+5, VUSER1+5, VUSER1+6
^XTV(8991.6 - [#8991.6]	RPT1+7
^XTV(8991.7 - [#8991.7]	RPT2+7
^XUSEC("XUMGR"	PSDKEY+3

Name	Line Occurrences
$$ASK	PSDKEY+9
RECORD	PSDKEY+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	RPT1+4~, RPT1+5, RPT1+7, RPT1+8, RPT2+4~, RPT2+5, RPT2+7, RPT2+8, ASK+3~, ASK+4* , ASK+8, ASK+9, ASK+10
ACT	XT30~, XT30+7, XT30+9, VUSER1~, VUSER1+7, VUSER1+9, VUSER2~, VUSER2+7, VUSER2+9
>> BY	RPT1+15, RPT2+16
CNT	XT30+3~, XT30+4, XT30+6, XT30+8, XT30+10, XT30+11, VUSER1+3~, VUSER1+4, VUSER1+5, VUSER1+6* , VUSER1+8, VUSER1+10, VUSER1+11, VUSER2+3~, VUSER2+4, VUSER2+5, VUSER2+6, VUSER2+8, VUSER2+10*, VUSER2+11
>> DA	PSDKEY+11*
>> DA(1	PSDKEY+11*
DEA	XT30+3~, XT30+5*, XT30+6
DEV	RPT1+4~, RPT1+10, RPT1+11, RPT1+12, RPT2+4~, RPT2+10, RPT2+11, RPT2+12
DIC	RPT1+14!, RPT1+15, RPT2+15!, RPT2+16, PSDKEY+6!*
DIC("A"	PSDKEY+6*
DIC(0	PSDKEY+6*
DIK	PSDKEY+11!*
>> DISUPNO	RPT1+13, RPT2+13
DT	XT30+5, XT30+6
DT30	XT30+3~, XT30+5*, XT30+6
DTIME	ASK+7
DUZ	PSDKEY+3, PSDKEY+16
DUZ(0	PSDKEY+3
FDA	RECORD+1~
FDA(	PSDKEY+13, RECORD+2, RECORD+3*
FL	ASK+3~, ASK+4, ASK+5, ASK+7, ASK+8, ASK+9
>> FLDS	RPT1+15, RPT2+16
FLG	RPT1+4~, RPT1+5, RPT1+7, RPT1+8, RPT1+9, RPT2+4~, RPT2+5, RPT2+7, RPT2+8, RPT2+9
>> FR	RPT1+15, RPT2+16
I	RECORD+1~, RECORD+2*
IEN	PSDKEY+2~, RECORD+1~
INPUT	PSDKEY+2~, PSDKEY+16*
>> IOP	RPT1+12, RPT2+12
>> L	RPT1+15, RPT2+16
LINE	RECORD~, RECORD+2
MSG	PSDKEY+2~, RECORD+1~
NAME	ASK~, ASK+6
NOW	PSDKEY+2~, PSDKEY+15*, PSDKEY+16, RECORD~, RECORD+3
OK	PSDKEY+2~, PSDKEY+9*
>> TO	RPT1+15, RPT2+16
TYPE	ASK~, ASK+6
U	PRESCBR+5, PRIVS+6, PRIVS+7, XT30+5, PSDKEY+7, ASK+7, RECORD+2, VUSER1+5, VUSER1+6
VALUE	RECORD+1~, RECORD+2*
X	RPT1+4~, RPT1+6, RPT2+4~, RPT2+6, ASK+7*, ASK+8, ASK+9
X1	RPT1+4~, RPT1+6, RPT2+4~, RPT2+6
X2	RPT1+4~, RPT1+6, RPT2+4~, RPT2+6
XDT	XT30+3~, XT30+5*, XT30+6
XUBOSS	PSDKEY+2~, PSDKEY+3*, PSDKEY+4
XUDA	PSDKEY+2~, PSDKEY+7*, PSDKEY+8, PSDKEY+11, PSDKEY+13, PSDKEY+16
XUKEY	PSDKEY+2~, PSDKEY+5*, PSDKEY+11
XUNAME	PSDKEY+2~, PSDKEY+7*, PSDKEY+9
XURET	PSDKEY+2~, PSDKEY+8*, PSDKEY+9, PSDKEY+11, PSDKEY+13, PSDKEY+16
XUSD0	PRESCBR~, PRESCBR+4, PRIVS~, PRIVS+5, XT30~, XT30+5, XT30+8, XT30+10, VUSER1~, VUSER1+5 , VUSER1+6, VUSER1+8, VUSER1+10, VUSER2~, VUSER2+5, VUSER2+6, VUSER2+8, VUSER2+10
XUSPS	PRESCBR+3~, PRESCBR+4*, PRESCBR+5
XUSPS3	PRIVS+4~, PRIVS+5*, PRIVS+6, PRIVS+7
>> Y	PSDKEY+6, PSDKEY+7
YT	RPT1+4~, RPT1+6, RPT1+8, RPT1+15, RPT2+4~, RPT2+6, RPT2+8, RPT2+16
ZZ	PSDKEY+2~, PSDKEY+8
ZZ(0	PSDKEY+8

Customize PDF page

Package: Kernel

Routine: XUEPCSRT

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: