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

Package: PAID

Routine: PRSATP


Information

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

Source Information

Source file <PRSATP.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
PAID 12 ^PRSADP1  ^PRSAENT  S0^PRSAPPH  (,A2)^PRSATP0  ^PRSATP2  (HENCAP,UPDT)^PRSATP3  (CLEANTW,TELEWORK)^PRSATPTW  ^PRSAUTL  
($$AVAILREC,UNLOCK)^PRSLIB00  NURSEPOC^PRSNEETP  $$MIEN^PRSPUT1  $$RSHR^PRSU1B2  
VA FileMan 6 ^%DT  NOW^%DTC  ^DDS  IX^DIC  YN^DICN  ^DIR  
Kernel 1 KILL^XUSCLEAN  

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

Package Total Caller Graph
PAID 7 PRSA TK POST  PRSATE  PRSATE0  PRSATE4  PRSATP0  PRSATPP  PRSP TK POST  

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

External References

Name Field # of Occurrence
^%DT PRSATP+9, PRSATP+10
NOW^%DTC P0+5, UPD+2
^DDS P31+2
IX^DIC NME
YN^DICN D2
^DIR POST+17
^PRSADP1 POST+21
^PRSAENT POST+21
S0^PRSAPPH P0+5
^PRSATP0 P1+2
A2^PRSATP0 P0+6
^PRSATP2 POST+21
HENCAP^PRSATP3 UPD+8
UPDT^PRSATP3 UPD+10
CLEANTW^PRSATPTW P1+9, P31+11
TELEWORK^PRSATPTW UPD+1
^PRSAUTL PRSATP+9
$$AVAILREC^PRSLIB00 POST+20
UNLOCK^PRSLIB00 LOOP+2, NME+1
NURSEPOC^PRSNEETP LOOP+2, NME+1
$$MIEN^PRSPUT1 PTPSCR+22
$$RSHR^PRSU1B2 LV+7
KILL^XUSCLEAN EX+3

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
Routine Call
  • DDS
  • Line Location:
    • P31+2
Routine Call
  • DIC
  • Line Location:
    • NME
Routine Call
  • DIR
  • Line Location:
    • POST+17

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRSPC("ATL" LOOP+2
^PRST(458 - [#458] PRSATP+11, PRSATP+13, POST, POST+2, POST+3, POST+7, P0+3!, P0+4*, P0+5, P1+8!
, P3+1, P3+2, P3+3, P31+1, P31+4, P31+5*, P31+9, UPD+3*
^TMP($J EX+1!

Label References

Name Line Occurrences
$$PTPSCR LOOP+2
D2 D2+2
EX PRSATP+9, PRSATP+11, PRSATP+12, D2, LOOP+2, LOOP+3, NME+1
LOOP D2
LP POST+21
LV P3+2, P3+3
NME D2, NME+1
OT P3+1, P3+2, P3+3
P0 POST+22, P0+1
P1 POST+22, P0+2, P1+1
P3 POST+22
P31 P3+1, P3+2
POST LOOP+2, NME+1
UPD P0+6, P1+2, P31+4, P31+5

Naked Globals

Name Field # of Occurrence
^(0 POST
^(1 PRSATP+13
^(10 P1+8!, P31+10!
^(2 P31+10!
^(3 P0+3!, P1+8!, P31+10!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % D2*, P0+5, UPD+3
>> %DT PRSATP+9*, PRSATP+10*
>> %DT("A" PRSATP+10*
>> %DT("B" PRSATP+10*
>> %DT(0 PRSATP+10*
>> AC P3+1
>> D NME*
>> D1 PRSATP+11*
>> DA P31*
>> DA(1 P31*
>> DA(2 P31*
DAH UPD+4~, UPD+5*, UPD+8, UPD+10, UPD+11!
>> DAY PRSATP+11*, PRSATP+13, POST, POST+3, POST+7, P0+3, P0+4, P0+5, P1+8, P1+9
, P3+1, P3+2, P3+3, P31, P31+1, P31+4, P31+5, P31+9, P31+11, UPD+1
, UPD+3, UPD+8, LV+7
DBH UPD+4~, UPD+5*, UPD+8, UPD+10, UPD+11!
>> DDSFILE P31*
>> DDSFILE(1 P31*
>> DFN LOOP+2*, NME*, NME+1, POST, POST+2, POST+3, POST+7, P0+3, P0+4, P0+5
, P1+8, P1+9, P3+1, P3+2, P3+3, P31, P31+1, P31+4, P31+5, P31+9
, P31+11, UPD+1, UPD+3, UPD+8, UPD+10, LV+7
DIC NME!*
DIC("A" NME*
DIC("S" NME*
DIC(0 NME*
DIR POST+17!
DIR("A" POST+15*
DIR("B" POST+16*
DIR(0 POST+14*
>> DIRUT POST+7
>> DR P31+2*
DS P31+2!
>> DTE PRSATP+13*
>> DTI PRSATP+13*
DTIME P0, P1
DUZ UPD+3
>> ENT P1+7, P3, P3+2, LV+5, LV+7, LV+8, OT+1, OT+2, OT+4
GLOB PRSATP+7~, LOOP+2*, NME+1*, POST+20
HOL UPD+4~, UPD+5*, UPD+8, UPD+10, UPD+11!
>> K LV+8*, OT+1*
>> LP D2*, LOOP+1*, LOOP+2, POST+1, POST+2, POST+4, POST+20*, P0*, LP
>> LV P0+6*
>> NN LOOP+1*, LOOP+2*
>> NOW P0+5*
>> PMP OT+4
>> PPE PRSATP+13*, LV+7
>> PPI PRSATP+11*, PRSATP+12, PRSATP+13, LOOP+2, NME+1, POST, POST+2, POST+3, POST+7, P0+3
, P0+4, P0+5, P1+8, P1+9, P3+1, P3+2, P3+3, P31, P31+1, P31+4
, P31+5, P31+9, P31+11, UPD+1, UPD+3, UPD+8
PRSDT PRSATP+8~, PRSATP+11*, LOOP+2, NME+1
PRSIEN PTPSCR~, PTPSCR+20, PTPSCR+22
PRSRET PTPSCR+17~, PTPSCR+19*, PTPSCR+24*, PTPSCR+26
>> PRSTLV PRSATP+9*
PSTDT PTPSCR~, PTPSCR+20, PTPSCR+22
PTPF LOOP+2, POST+7, P3, PTPSCR~, PTPSCR+18*, PTPSCR+24
PTPM PTPSCR+17~, PTPSCR+22*, PTPSCR+24
>> PTY P0+3*, P31+4*, P31+5*, UPD+1, UPD+3
QUIT UPD+4~, UPD+5*, UPD+8, UPD+9, UPD+11!
>> STAT POST+3*, POST+4, P0+3, P0+4*, P0+5, UPD+1
>> STOP POST+20
>> TC POST*, POST+1, POST+4, POST+22, P0+4, P3+1, P3+2, UPD+1
>> TC2 POST*
>> TLE LOOP+2, NME
>> TLI PRSATP+9, LOOP+2, NME+1
>> TT P0+5*
U POST+7, LV+7, OT+4
>> X PRSATP+9*, P0*, P0+1*, P0+2*, P0+6, P1*, P1+1*, P1+2
>> Y PRSATP+10, PRSATP+11*, NME, POST+7
>> Z P31+1*
>> Z1 LV*, LV+5*, LV+7*, LV+8, OT+1*
>> Z2 LV*, LV+5*, LV+7*, LV+8, OT+1*
>> ZENT P3*, P3+1*, P3+2*, P3+3*, LV+8*, OT+1*, OT+2*, OT+4*
ZS P31+1!, P31+4, P31+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