Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PRSPEAU

Package: PAID

Routine: PRSPEAU


Information

PRSPEAU ;WOIFO/SAB - EXTENDED ABSENCE UTILITIES ;10/19/2004

Source Information

Source file <PRSPEAU.m>

Entry Points

Name Comments DBIA/ICR reference
CONFLICT(PRSIEN,NFDT,NTDT,XEAIEN) ; check for conflict with existing EAs
; input
; PRSIEN - employee ien (file 450)
; NFDT - new from date in fileman format
; NTDT - (optional) new to date in fileman format
; XEAIEN - (optional) existing extended absense ien, passed if dates
; for an existing record are being checked so that entry does
; not conflict with itself.
; returns string with value =
; list of Extended Absence iens (delimited by ^) that conflict OR
; null when no conflict found
RCON(LIST,WRITE,PRSARRN) ; Report Conflicts
; input
; LIST - string of conflicting Ext Absence IENs delimited by ^
; WRITE - (optional) true (=1) if text should be written (default)
; false (=0) if array should be returned instead
; PRSARRN - (optional) array name, default value is "PRSARR"
; output
; If WRITE is True, the input array name (or "PRSARR" if not
; specified) will be killed.
; If WRITE is False, the input array name will contain the text
CHKRG(PRSIEN) ; Check for RG Posted to Today's ESR
; Input
; PRSIEN - Employee IEN (file 450)
; Returns
; boolean value, true (=1) if RG already posted on ESR for Today
DISEA(EAIEN,IC) ; Display EA
; input
; EAIEN - Extended Absence IEN (file 458.4)
; IC - (optional) item count, number to be included in display
; result
; Writes information to current device (2-4 lines)
BLDLST(PRSIEN,MINTDT,OKSTAT) ; Build List of Extended Absence Entries
; input
; PRSIEN - Employee IEN (file 450)
; MINTDT - Minumum To Date (FileMan Internal)
; OKSTAT - String of acceptable EA status values to place in list
; delimited by ^ (e.g. "A" or "^A^" or "A^X"...)
; ARRN - (optional) name of an array that will contain the list
; default value is "EALIST"
; output
; local array EALIST with format
; EALIST(0)=count of items in list
; EALIST(1)=1st extended absence IEN in list
; EALIST(n)=nth extended absence IEN in list
DISLST() ; Display List of Extended Absences
; input
; local array EALIST with format
; EALIST(0)=count of items in list
; EALIST(1)=1st extended absence IEN in list
; EALIST(n)=nth extended absence IEN in list
; returns 1 if user entered an up-arrow or time-out

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,@PRSARRN@(LN)
  • Line Location: RCON+31
Function Call: WRITE
  • Prompt: !
  • Line Location: DISEA+16
Function Call: WRITE
  • Prompt: $$RJ^XLFSTR(IC_") ",4)
  • Line Location: DISEA+17
Function Call: WRITE
  • Prompt: PRSV(458.4,PRSIENS,.01)_" to "_PRSV(458.4,PRSIENS,1)
  • Line Location: DISEA+18
Function Call: WRITE
  • Prompt: ?33,"Status: ",PRSV(458.4,PRSIENS,5)
  • Line Location: DISEA+19
Function Call: WRITE
  • Prompt: !,?4,PRSV(458.4,PRSIENS,6)
  • Line Location: DISEA+20
Function Call: WRITE
  • Prompt: !,?33,"Entered: ",PRSV(458.4,PRSIENS,3)
  • Line Location: DISEA+21
Function Call: WRITE
  • Prompt: !,?33,"Updated: ",PRSV(458.4,PRSIENS,4)
  • Line Location: DISEA+22
Function Call: WRITE
  • Prompt: !,"No extended absences were found."
  • Line Location: DISLST+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: DISLST+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRST(458.4 - [#458.4] GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call