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

Package: PAID

Routine: PRSPEM


Information

PRSPEM ;WOIFO/MGD - PTP ENTER MEMORANDUM ;06/01/05

Source Information

Source file <PRSPEM.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Main Driver
PTP ; Prompt for Part Time Physician
HDR ; Display PTP info
START ; Prompt for Start Date
; This subroutine prompts for the date then goes through several
; checks if any check fails we give an explanation message and
; reprompt for the date. If no checks fail we set valid to
; quit. The user must ^ or timeout to quit.
END ; Calculate and display End Date
OVRLAP ; Display warning when dates cover an existing memo
AHRS ; Display list of Agreed Hours
ICOM ; Prompt for Initial Comments
ESIG ; Prompt for Electronic Signature and store fields in #458.7
CALPP ; Calculate the PPs covered by the memorandum
KILL ; Clean up variables

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PTP+2
Function Call: WRITE
  • Prompt: $C(7),!!,"Can't find an entry in the NEW PERSON file for this employee."
  • Line Location: PTP+12
Function Call: WRITE
  • Prompt: !,"They must be added as a user before the memorandum is created."
  • Line Location: PTP+13
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"You entered ",$$EXTERNAL^DILFD(458.7,1,,D1)
  • Line Location: START+15
Function Call: WRITE
  • Prompt: !!,"The Start Date must be the first day of a Pay Period."
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !,"Please re-enter.",!
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !!,?3,"There is no pay period on file for that past date."
  • Line Location: START+23
Function Call: WRITE
  • Prompt: !!,?3,"To enter memos for past dates, the employee must have a"
  • Line Location: START+29
Function Call: WRITE
  • Prompt: !,?3,"timecard in Timekeeper status."
  • Line Location: START+30
Function Call: WRITE
  • Prompt: !!,?3,"This employee's timecard has a status other than "
  • Line Location: START+36
Function Call: WRITE
  • Prompt: !,?3,"Timekeeper. It will have to be returned to the Timekeeper "
  • Line Location: START+37
Function Call: WRITE
  • Prompt: !,?3,"before a memo covering this pay period can be entered."
  • Line Location: START+38
Function Call: WRITE
  • Prompt: !," End Date: ",Y
  • Line Location: END+6
Function Call: WRITE
  • Prompt: !!,"These dates overlap the following memorandum:"
  • Line Location: OVRLAP+8
Function Call: WRITE
  • Prompt: !,"Start Date: ",START," - "
  • Line Location: OVRLAP+9
Function Call: WRITE
  • Prompt: $S(TDAT:"Termination Date: ",1:"End Date: "),END
  • Line Location: OVRLAP+10
Function Call: WRITE
  • Prompt: !!,"Agreed Hours must be equally divisible by 26 Pay Periods."
  • Line Location: AHRS+1
Function Call: WRITE
  • Prompt: !!,"1/8 = 260, 1/4 = 520, 3/8 = 780, 1/2 = 1040, 5/8 = 1300, "
  • Line Location: AHRS+2
Function Call: WRITE
  • Prompt: "3/4 = 1560, 7/8 = 1820",!
  • Line Location: AHRS+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ICOM+1
Function Call: WRITE
  • Prompt: !!,"PRSP EMP key was not found in the 19.1 file."
  • Line Location: ESIG+33

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19.1 - [#19.1] FIND1^DIC
^PRSPC - [#450] Classic Fileman Calls,  GET1^DIQ
^PRST(458.7 - [#458.7] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call