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

Package: PAID

Routine: PRSPTM


Information

PRSPTM ;WOIFO/MGD - PTP TERMINATE MEMORANDUM ;06/15/05

Source Information

Source file <PRSPTM.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
PAID 7 ^PRSAES  PP^PRSAPPU  PTP^PRSASR1  (HDR,MEM)^PRSPUT1  PPSUM^PRSPUT2  AL^PRSPUT3  $$UPPER^PRSRUTL  
VA FileMan 7 (,DD)^%DT  (C,NOW)^%DTC  MSG^DIALOG  ^DIC  (FILE,UPDATE)^DIE  $$EXTERNAL^DILFD  ^DIR  
Kernel 1 $$FMTE^XLFDT  

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 TM  

Entry Points

Name Comments DBIA/ICR reference
MAIN ; Main Driver
TERM ; Issue Terminate Memorandum prompt
PTP ; Prompt for Part Time Physician
MEM ; Find any memorandums that meet the termination qualifications
ASK
DISPLAY ; Display memorandum info to validate the correct employee was chosen
TDATE ; Prompt for Termination Date
TCOM ; Termination Comments
ESIG ; Prompt for Electronic Signature and store fields in #458.7
KILL ; Clean up variables

External References

Name Field # of Occurrence
^%DT TDATE+15
DD^%DT TDATE+4, TDATE+7
C^%DTC ESIG+17
NOW^%DTC ESIG+9
MSG^DIALOG ESIG+12, ESIG+40
^DIC PTP+3
FILE^DIE ESIG+40
UPDATE^DIE ESIG+12
$$EXTERNAL^DILFD TDATE+45
^DIR TERM+3, DISPLAY+6, TCOM+2
^PRSAES ESIG+3
PP^PRSAPPU TDATE+21
PTP^PRSASR1 ESIG+45
HDR^PRSPUT1 DISPLAY+2
MEM^PRSPUT1 DISPLAY+3
PPSUM^PRSPUT2 DISPLAY+5
AL^PRSPUT3 DISPLAY+4
$$UPPER^PRSRUTL ASK+4
$$FMTE^XLFDT MEM+35, MEM+36

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: TERM+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PTP+1
Function Call: WRITE
  • Prompt: !!,"No memorandums meet the termination qualifications for the "
  • Line Location: MEM+25
Function Call: WRITE
  • Prompt: "selected employee."
  • Line Location: MEM+26
Function Call: WRITE
  • Prompt: !!," # ",?5,"STARTS ENDS"
  • Line Location: MEM+32
Function Call: WRITE
  • Prompt: !!,MEM,?5,START," TO ",END
  • Line Location: MEM+37
Function Call: WRITE
  • Prompt: !!,"Enter a number between 1 and ",END,": "
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: !!,"Enter a number between 1 and ",END," or ^ to exit"
  • Line Location: ASK+7
Function Call: WRITE
  • Prompt: !!,"Termination date must be the last day of a pay period."
  • Line Location: TDATE+10
Function Call: WRITE
  • Prompt: !,"Start Date: ",STDAT," End Date: ",ENDAT,!
  • Line Location: TDATE+11
Function Call: WRITE
  • Prompt: !!,"The Termination Date must be the last day of a Pay Period."
  • Line Location: TDATE+24
Function Call: WRITE
  • Prompt: !,"Please re-enter.",!
  • Line Location: TDATE+25
Function Call: WRITE
  • Prompt: !!,"The Termination Date can not be prior to the Start Date: ",STDAT
  • Line Location: TDATE+27
Function Call: WRITE
  • Prompt: !,"Please re-enter.",!
  • Line Location: TDATE+28
Function Call: WRITE
  • Prompt: !!,"The Termination Date must be prior to the End Date: ",ENDAT
  • Line Location: TDATE+30
Function Call: WRITE
  • Prompt: !,"Please re-enter.",!
  • Line Location: TDATE+31
Function Call: WRITE
  • Prompt: !,$P($G(^PRST(458,PPI,0)),U),?10,STATEX
  • Line Location: TDATE+46
Function Call: WRITE
  • Prompt: !!,"You cannot select this Pay Period because there "
  • Line Location: TDATE+50
Function Call: WRITE
  • Prompt: $S(FPPESR=1:"is ",1:"are "),FPPESR," Pay Period"
  • Line Location: TDATE+51
Function Call: WRITE
  • Prompt: $S(FPPESR>1:"s ",1:" "),"after this"
  • Line Location: TDATE+52
Function Call: WRITE
  • Prompt: !,"Pay Period where the timecard",$S(FPPESR=1:" has ",1:"s have ")
  • Line Location: TDATE+53
Function Call: WRITE
  • Prompt: "a status other than Timekeeper.",!!
  • Line Location: TDATE+54
Function Call: WRITE
  • Prompt: !
  • Line Location: TCOM+1
Routine Call
  • DIALOG
  • Line Location:
    • ESIG+12
    • ESIG+40
Routine Call
  • DIC
  • Line Location:
    • PTP+3
Routine Call
  • DIE
  • Line Location:
    • ESIG+40
Routine Call
  • DIE
  • Line Location:
    • ESIG+12
Routine Call
  • DIR
  • Line Location:
    • TERM+3
    • DISPLAY+6
    • TCOM+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRSPC - [#450] Classic Fileman Calls
458.01 EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRST(458 - [#458] MEM+15, MEM+21, TDATE+38, TDATE+39, TDATE+41, TDATE+46, ESIG+18, ESIG+22, ESIG+23, ESIG+27
, ESIG+33, ESIG+35!, ESIG+42!
^PRST(458.7 - [#458.7] MEM+3, MEM+4, MEM+14, TDATE+1, ESIG+28, ESIG+30
^TMP($J KILL+6!

Label References

Name Line Occurrences
ASK ASK+6
DISPLAY MAIN+10
ESIG TERM+12
KILL MAIN+4
MEM MAIN+7
PTP MAIN+3
TCOM TERM+9
TDATE TERM+6

Naked Globals

Name Field # of Occurrence
^(10 ESIG+35!
^(3 ESIG+35!
^(6 ESIG+42!
^(7 ESIG+42!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ESIG+10, KILL+5!
%DT TDATE+12*, KILL+5!
%DT("A" TDATE+12*
AHRS MAIN+1~
ASK ASK+3*, ASK+4*, ASK+5, ASK+6, ASK+8, KILL+2!
D1 TDATE+20*, KILL+2!
DA KILL+2!
DATA MEM+4*, MEM+5, MEM+6, MEM+8, MEM+34*, MEM+35, MEM+36, KILL+2!
DATA0 TDATE+1*, TDATE+2, KILL+2!
DAY TDATE+23, ESIG+32*, ESIG+33, ESIG+35, ESIG+39, ESIG+42, KILL+2!
DAY14 TDATE+14~, TDATE+38, TDATE+39*, TDATE+40
DIC PTP+2*, PTP+3!
DIC("A" PTP+2*
DIC(0 PTP+2*
DIR TERM+3!, KILL+2!
DIR("A" TERM+2*, DISPLAY+6*, TCOM+2*
DIR(0 TERM+2*, DISPLAY+6*, TCOM+2*
DIRUT MAIN+11, KILL+2!
DT MEM+11
DTIME ASK+3
DUZ ESIG+8
END MEM+8*, MEM+15, MEM+18, MEM+22, MEM+36*, MEM+37, ASK+1*, ASK+2, ASK+7, KILL+2!
ENDAT MAIN+1~, TDATE+2*, TDATE+6, TDATE+8*, TDATE+11, TDATE+30, KILL+2!
ENDATI TDATE+2*, TDATE+29, TDATE+38, TDATE+40, KILL+2!
ESOK MAIN+1~, ESIG+2~, ESIG+4
ESRSTAT ESIG+33*, ESIG+34, KILL+2!
FPPESR TDATE+37*, TDATE+44*, TDATE+48, TDATE+51, TDATE+52, TDATE+53, KILL+3!
I KILL+3!
ICOM MAIN+1~
INDX MEM+1~, MEM+2*, MEM+18*, MEM+22*, KILL+3!
MEM MEM+1~, MEM+2*, MEM+3*, MEM+4, MEM+14, MEM+18, MEM+22, MEM+33*, MEM+34, MEM+37
, KILL+3!
MEM( MEM+18*, MEM+22*, MEM+33, MEM+34, ASK+1, ASK+6, ASK+8
MEM(1 MEM+24, MEM+29
MEM(2 MEM+29, MEM+31
MIEN MAIN+8, MEM+27*, MEM+29*, ASK+5*, ASK+8*, DISPLAY+3, DISPLAY+5, TDATE+1, ESIG+6*, ESIG+7
, ESIG+8, ESIG+10, ESIG+11, ESIG+13*, ESIG+28, ESIG+30, KILL+3!
PPE ESIG+2~, ESIG+27*, ESIG+28, KILL+3!
PPI MEM+15*, MEM+17, MEM+21, TDATE+22, TDATE+38*, TDATE+39, TDATE+41, TDATE+46, ESIG+18*, ESIG+19
, ESIG+21*, ESIG+22*, ESIG+23, ESIG+27, ESIG+33, ESIG+35, ESIG+39, ESIG+42, ESIG+45, KILL+3!
PPNUM ESIG+2~, ESIG+28*, ESIG+29, ESIG+30
PRSFDA KILL+3!
PRSFDA( ESIG+7*, ESIG+8*, ESIG+10*, ESIG+11*, ESIG+39*
PRSIEN MAIN+5*, PTP+4*, MEM+3, MEM+21, DISPLAY+2, DISPLAY+3, DISPLAY+4, DISPLAY+5, TDATE+41, ESIG+23
, ESIG+33, ESIG+35, ESIG+39, ESIG+42, ESIG+45, KILL+3!
QUIT TDATE+12*, TDATE+13, TDATE+16*, TDATE+35*, TDATE+48*, KILL+3!
QUIT1 KILL+3!
RCALFLG ESIG+2~, ESIG+26*, ESIG+30*, ESIG+45
SCRTTL DISPLAY+1*, DISPLAY+2, KILL+4!
START MEM+8*, MEM+11, MEM+18, MEM+22, MEM+35*, MEM+37, KILL+4!
STATEX TDATE+45*, TDATE+46, KILL+4!
STATUS MEM+6*, MEM+7, TDATE+41*, TDATE+42, TDATE+45, KILL+4!
STDAT MAIN+1~, TDATE+2*, TDATE+3, TDATE+5*, TDATE+11, TDATE+27, KILL+4!
STDATI TDATE+2*, TDATE+26, KILL+4!
TCOM TERM+10, TCOM+3*, ESIG+11, KILL+4!
TDAT TDATE+9*, KILL+5!
TDATE TDATE+18*, TDATE+19, TDATE+20, TDATE+26, TDATE+29, ESIG+7, ESIG+16, KILL+5!
TDATI KILL+5!
TPPI TDATE+14~, TDATE+22*, TDATE+35, TDATE+38
U MEM+6, MEM+8, MEM+15, MEM+21, MEM+29, MEM+35, MEM+36, ASK+8, TDATE+2, TDATE+39
, TDATE+41, TDATE+42, TDATE+46, ESIG+27, ESIG+30, ESIG+33
X TERM+7, TDATE+16, ESIG+18, KILL+5!
X1 ESIG+16*, KILL+5!
X2 ESIG+16*, KILL+5!
Y MAIN+4, MAIN+5, TERM+4, PTP+4, TDATE+3*, TDATE+5, TDATE+6*, TDATE+8, TDATE+18, TCOM+3
, KILL+5!
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