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

Package: PAID

Routine: PRSPSAP1


Information

PRSPSAP1 ;WOIFO/JAH - part time physician, supervisory approvals ;10/22/04

Source Information

Source file <PRSPSAP1.m>

Entry Points

Name Comments DBIA/ICR reference
HDRESR(PRSIEN,PPI,LINES) ; Display a Supervisor Header
; PRSIEN - users 450 number
; PPI - what pay period
COLHDRS ; JUST THE COLUMN HEADERS
PUSH(PPI,PRSIEN,PRSD,CNT) ; ADD record to approval list
; set up a xref on the day. This enables quick access to the
; day number when the pick list has 4 items spread over the
; pay period. (e.g. the first item is day 4, the 2nd item
; is day 12, etc.)
GETESR(ESR,PPI,PRSIEN,PRSD) ; GET ESR RELATED DATA
; RETURN DATA IN ESR ARRAY BY REFERENCE
ASALIST(OUT) ; ADD record to approval list
HDROPT ; MAIN OPTION HEADING
ANYACT(ACTCNT) ; RETURN NUMBER OF ESR DAILY ACTIONS TO UPDATE
; THIS IS A COUNT OF ALL THE RESUBMITS AND APPROVES
MARKCNT(MC,PRSIEN,PPI) ; return items marked AND total items in MC array
; MC = items marked with any status
; MC(1) = available items to mark count
MOVEON(PRSIEN,PPI) ; return users choice (MOVE ON OR REDISPLAY CURR PTP)
; return 0 for abort
; if the number of days available for approval matches the number
; of days that have some status marked then we will not ask the
; user whether they want to move on or not.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF," VA TIME & ATTENDANCE SYSTEM"
  • Line Location: HDRESR+14
Function Call: WRITE
  • Prompt: !,PPTXT,?20,"Supervisory Review for Part Time Physicians in "_TL
  • Line Location: HDRESR+15
Function Call: WRITE
  • Prompt: !,$E(NM,1,30),?32,SSN,?56,INCD
  • Line Location: HDRESR+16
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRESR+17
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRESR+18
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDRESR+18
Function Call: WRITE
  • Prompt: !,"Item",?8,"Date",?17,"Scheduled Tour",?36,"Work/Leave Posted"
  • Line Location: COLHDRS+1
Function Call: WRITE
  • Prompt: ?61,"Hours",?67,"Meal",?73,"Status"
  • Line Location: COLHDRS+2
Function Call: WRITE
  • Prompt: !?26,"VA TIME & ATTENDANCE SYSTEM",!?TAB,TITLE
  • Line Location: HDROPT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
458.02 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call