Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
PAID 8 ^PRSAES  ^PRSAPPH  PP^PRSAPPU  SILMO^PRSLIB01  PEAPP^PRSPEAA  PLPP^PRSPLVA  ($$MIEN,HDR)^PRSPUT1  ESRUPDT^PRSPUT3  
VA FileMan 8 DD^%DT  (C,NOW)^%DTC  MSG^DIALOG  (,$$FIND1)^DIC  (FILE,UPDATE)^DIE  $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
PAID 1 PRSP HR EM  

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

External References

Name Field # of Occurrence
DD^%DT END+5, OVRLAP+3, OVRLAP+6
C^%DTC END+3, CALPP+7
NOW^%DTC ESIG+19
MSG^DIALOG ESIG+8, ESIG+21, ESIG+26, ESIG+36
^DIC PTP+4
$$FIND1^DIC ESIG+31
FILE^DIE ESIG+21
UPDATE^DIE ESIG+8, ESIG+26, ESIG+36
$$EXTERNAL^DILFD START+15
$$GET1^DIQ PTP+9
^DIR START+8, AHRS+5, ICOM+2
^PRSAES ESIG+4
^PRSAPPH ESIG+56
PP^PRSAPPU START+12, CALPP+3, CALPP+9
SILMO^PRSLIB01 START+14
PEAPP^PRSPEAA ESIG+61
PLPP^PRSPLVA ESIG+59
$$MIEN^PRSPUT1 ESIG+39
HDR^PRSPUT1 HDR+2
ESRUPDT^PRSPUT3 ESIG+57

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
Routine Call
  • DIALOG
  • Line Location:
    • ESIG+8
    • ESIG+21
    • ESIG+26
    • ESIG+36
Routine Call
  • DIC
  • Line Location:
    • PTP+4
Routine Call
  • DIC
  • Line Location:
    • ESIG+31
Routine Call
  • DIE
  • Line Location:
    • ESIG+21
Routine Call
  • DIE
  • Line Location:
    • ESIG+8
    • ESIG+26
    • ESIG+36
Routine Call
  • DIR
  • Line Location:
    • START+8
    • AHRS+5
    • ICOM+2

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRST(458 - [#458] START+21, START+28, START+35, ESIG+17, ESIG+40, ESIG+44, ESIG+49, ESIG+51, ESIG+54!
^PRST(458.7 - [#458.7] END+10, END+11, END+14
^VA(200 - [#200] PTP+10
^XUSEC("PRSP EMP" ESIG+29

Label References

Name Line Occurrences
AHRS MAIN+17, AHRS+7
CALPP END+19
END MAIN+13
ESIG MAIN+23
HDR MAIN+6
ICOM MAIN+20
KILL MAIN+4, MAIN+14, MAIN+18, MAIN+21
OVRLAP END+16, END+17
PTP MAIN+3
START MAIN+11

Naked Globals

Name Field # of Occurrence
^(10 ESIG+54!
^(3 ESIG+54!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ESIG+20, KILL+4!
%DT KILL+4!
AHRS MAIN+1~, AHRS+8*, ESIG+12, KILL+2!
D1 START+11*, START+14, START+15, START+18, START+21, START+22, START+28, START+35, END+2, END+7!
, CALPP+2*, CALPP+8*
DATA END+11*, END+12, END+13, KILL+2!
DAY START+13, KILL+2!
DFN MAIN+1~
DIC PTP+3*, PTP+4!
DIC("A" PTP+3*
DIC(0 PTP+3*
DIR START+8~, KILL+2!
DIR("A" START+8*, AHRS+4*, ICOM+2*
DIR(0 START+8*, AHRS+4*, ICOM+2*
DIRUT START+8~, START+10
DT START+22, START+28, START+35
DUZ ESIG+18
END END+13*, END+15*, END+17, OVRLAP+5, OVRLAP+7*, OVRLAP+10, KILL+2!
ENDAT MAIN+1~
ENDDAT END+4*, END+16, END+17, ESIG+11, KILL+2!
ESOK MAIN+1~, ESIG+2~, ESIG+5
HOL ESIG+2~
I ESIG+24*, ESIG+25, CALPP+5*, CALPP+10, KILL+2!
ICOM MAIN+1~, ICOM+3*, ESIG+13, KILL+2!
IEN END+9*, END+10*, END+11, END+14, KILL+2!
IEN200 PTP+10*, PTP+11, ESIG+29, ESIG+34, KILL+2!
IEN4587 ESIG+3!, ESIG+9*, ESIG+10, ESIG+11, ESIG+12, ESIG+13, ESIG+17, ESIG+18, ESIG+20, ESIG+25
, KILL+2!
IEN4587(1 ESIG+9
KEYIEN ESIG+30~, ESIG+31*, ESIG+32, ESIG+34, ESIG+35
OVERLAP MAIN+9, MAIN+10*, OVRLAP+11*, KILL+2!
PPE END+19, CALPP+4, CALPP+10, KILL+3!
PPESTR ESIG+25, CALPP+1*, CALPP+4*, CALPP+10*, KILL+3!
PPI START+21*, START+22, START+28, START+35, ESIG+40*, ESIG+41, ESIG+43*, ESIG+44*, ESIG+49, ESIG+51
, ESIG+54, ESIG+57, ESIG+59, ESIG+61, KILL+3!
PRSD ESIG+45~, ESIG+54*
PRSFDA ESIG+3!, KILL+3!
PRSFDA( ESIG+7*, ESIG+10*, ESIG+11*, ESIG+12*, ESIG+13*, ESIG+17*, ESIG+18*, ESIG+20*, ESIG+25*, ESIG+34*
PRSIEN MAIN+4, PTP+5*, PTP+6, PTP+9, PTP+14*, HDR+2, START+28, START+35, END+10, ESIG+7
, ESIG+39, ESIG+49, ESIG+51, ESIG+54, ESIG+57, ESIG+59, ESIG+61, KILL+3!
PRSIENS KILL+3!
PRSIENS(1 ESIG+35*
QUIT MAIN+8*, MAIN+9, MAIN+12, MAIN+14, START+7, START+10*, END+10, KILL+3!
SCRTTL HDR+1*, HDR+2, KILL+3!
SSN PTP+1~, PTP+9*, PTP+10
START END+13*, END+16, OVRLAP+2, OVRLAP+4*, OVRLAP+9, KILL+3!
STATUS END+13*, KILL+3!
STDAT MAIN+1~, START+18*, END+16, END+17, ESIG+10, ESIG+17, ESIG+39, ESIG+40, CALPP+2, KILL+4!
STDATX CALPP+2*, CALPP+6, CALPP+8*, KILL+4!
TDAT END+14*, END+15, OVRLAP+10, KILL+4!
U START+21, START+28, START+35, END+13, END+14, ESIG+25, ESIG+51, CALPP+4
VALID START+6~*, START+7, START+42*
X END+1~, END+4, CALPP+8, KILL+4!
X1 END+1~, END+2*, CALPP+6*
X2 END+1~, END+2*, CALPP+6*
Y MAIN+18, MAIN+21, PTP+5, START+8~, START+11, END+1~, END+4*, END+6, OVRLAP+2*, OVRLAP+4
, OVRLAP+5*, OVRLAP+7, AHRS+7, AHRS+8, ICOM+3, KILL+4!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All