Routine: PSSEXLST

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

Information

PSSEXLST ; SLC/SS - One-time administration schedules excluded from start stop dates modifications ;Jan 09, 2024@15:08:20

Source file <PSSEXLST.m>

Name	Comments	DBIA/ICR reference
EN	;set One-time administration schedules excluded from start stop dates modifications for division and site
ENTER	; Enter One-time administration schedules excluded from start stop dates modifications for Division and Site"
DSPLY	; Display parameter for Division and System
GETDATA(ORARY)	; Sort and filter entries for display
HDR	; header
GET	; get the values for parameter PSS EXCLUDE 1TIME STRSTP MODS
VALIDAT(PSSVAL,PSSENT,CURINST)	;
IFEXISTS(PSSLST,PSSENTIT,PSSVAL)	;
CHK1TIME(SCHED,HOSPLOC)	;	ICR #7347 Status: Active Usage: Private
SCHEDIEN(WARDIEN,SCHNAME)	;
PRESSKEY()	;
DIVSYS(PTR44)	;

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN+2
Function Call: WRITE	Prompt: "ONE-TIME administration schedules that would be excluded" Line Location: EN+3
Function Call: WRITE	Prompt: !,"from start/stop date and time modifications in CPRS.",! Line Location: EN+4
Function Call: WRITE	Prompt: ! Line Location: DSPLY+2
Function Call: WRITE	Prompt: !,"Nothing to display" Line Location: DSPLY+12
Function Call: WRITE	Prompt: ! Line Location: DSPLY+17
Function Call: WRITE	Prompt: !,LOCTYP,?14,LOCNAM,?43,$P(DISP,U),?58,$P(DISP,U,3) Line Location: DSPLY+19
Function Call: WRITE	Prompt: @IOF Line Location: HDR+1
Function Call: WRITE	Prompt: "Location type",?14,"Location Name",?43,"Schedule",?58,"Entry #" Line Location: HDR+2
Function Call: WRITE	Prompt: !,"-------------",?14,"----------------------------",?43,"--------------",?58,"-------" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"Was added previously." Line Location: VALIDAT+6
Function Call: WRITE	Prompt: ! Line Location: PRESSKEY+1