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

Package: PAID

Routine: PRSATP


Information

PRSATP ;HISC/REL,WIRMFO/MGD/PLT - Timekeeper Post Time ;4/13/2012

Source Information

Source file <PRSATP.m>

Entry Points

Name Comments DBIA/ICR reference
D2
LOOP ;
NME
POST
P0
P1
P3
P31
UPD ; Update status
LP
LV
OT ; Get entitled out-of-tour types of time
EX ;clean up lock global which is set in $$AVAILREC^PRSLIB00
PTPSCR(PRSIEN,PSTDT,PTPF) ; part-time physician screen extrinsic function
; input
; PRSIEN - Employee IEN (file 450)
; PSTDT - Date being posted (FileMan internal)
; PTPF - (opt) Part-time physician flag, equals true (1) when screen
; should only allow selection of part-time physician with
; memo and false (null or 0) when screen should only
; allow selection of employees that are not part-time
; physicians with memo.
; result
; returns a boolean value (1 or 0) or null
; =1 if employee passed screen
; (PTPF true and employee is PTP with memo) OR
; (PTPF false and employee is not PTP with memo)
; =0 if employee did not pass screen
; =null value if required inputs were not provided

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRSATP+10
Function Call: WRITE
  • Prompt: !!,$C(7),"Pay Period is Not Open Yet!"
  • Line Location: PRSATP+12
Function Call: WRITE
  • Prompt: !!,"Would you like to edit the T & A RECORDs in alphabetical order"
  • Line Location: D2+0
Function Call: WRITE
  • Prompt: !!,"Answer YES if you want all RECORDs brought up for which no data"
  • Line Location: D2+1
Function Call: WRITE
  • Prompt: !,"has been entered."
  • Line Location: D2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NME+0
Function Call: WRITE
  • Prompt: !!?5,"This Employee has no tour entered for this date."
  • Line Location: POST+1
Function Call: WRITE
  • Prompt: $C(7),!
  • Line Location: POST+8
Function Call: WRITE
  • Prompt: !,"This day was auto-posted from an approved Electronic Subsidiary Record (ESR)."
  • Line Location: POST+9
Function Call: WRITE
  • Prompt: !,"Normally, changes should be accomplished by having the T & L supervisor return"
  • Line Location: POST+10
Function Call: WRITE
  • Prompt: !,"the ESR day to the part-time physician for correction."
  • Line Location: POST+11
Function Call: WRITE
  • Prompt: !,"An exception to the above is when AWOL, On Suspension, or Non-Pay must be"
  • Line Location: POST+12
Function Call: WRITE
  • Prompt: !,"posted, since those can not be entered via the ESR.",!
  • Line Location: POST+13
Function Call: READ
  • Formatting: !!
  • Prompt: "Did Employee Only Work Scheduled Tour? "
  • Variable: X
  • Timeout: DTIME
  • Line Location: P0+0
Function Call: WRITE
  • Prompt: $C(7),!?5," Answer YES or NO or R for Normal Posting with Remarks"
  • Line Location: P0+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Was Employee Absent the Entire Tour? "
  • Variable: X
  • Timeout: DTIME
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: $C(7)," Answer YES or NO"
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: !!,"Enter '^' to bypass this employee."
  • Line Location: LP+0
Function Call: WRITE
  • Prompt: " Enter '^^' to stop T&L editing."
  • Condition for execution: LP=1
  • Line Location: LP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LP+0
Function Call: WRITE
  • Prompt: or
  • Line Location: OT+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRSPC - [#450] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call