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

Package: PAID

Routine: PRSARC04


Information

PRSARC04 ;WOIFO/JAH - Recess Tracking Functions ;11/1/06

Source Information

Source file <PRSARC04.m>

Entry Points

Name Comments DBIA/ICR reference
GETFSCYR(PRSDT) ; Given a date get the 9-month AWS fiscal year.
; This is the fiscal year during which the 9-month AWS is effective.
; The fiscal year for 2006 (FY06, sometimes written FY05-06) is from
; October 1, 2005 through September 30, 2006. However, the fiscal
; year for purposes of the 9-month AWS will be governed also by
; complete pay periods, since the nurses normal hours=80 and duty
; basis = part-time, must be in effect for the entire pay period.
; Thus some 9-month AWS fiscal years may have 50, 52 or 54 weeks.
; The fiscal year is defined as the 12 months from the first full
; pay period after October 1 through the pay period that contains
; September 30. In the example below September 30, 2007 is the
; first day of the pay period 20 and thus the entire pay period is
; included in the weeks for the 9-month AWS schedule for FY07.
;
; Week PayPd Sun Mon Tue Wed Thu Fri Sat
;
; =============Oct 2006============
; 1 06-20 1 2 3 4 5 6 7
; 2 8 9 10 11 12 13 14
; 3 06-21 15 16 17 18 19 20 21
; ...
;
; 51 07-19 16 17 18 19 20 21 22
; 52 23 24 25 26 27 28 29
; 53 07-20 30 1 2 3 4 5 6
; =============Oct 2007============
; 54 7 8 9 10 11 12 13
FYDAYS(FSCYR) ; Given a fiscal year get the PAID ETA start and stop
; dates (i.e. the first day of the first pay period of the fiscal
; year and the last day of the last pay period in the fiscal year.
; see GETFSCYR for fiscal year info
GETPPDY(PRSDT) ; Given FM date--PRSDT--Get pay period + 1st day of that pp
ALLFYAWS() ; Ask user if AWS will cover the entire Fiscal Year
FYWEEKS(WKARRAY,FY,SD) ; RETURN ARRAY WITH WEEKS
; INPUT:
; FY - fiscal year in 4 digit format
; SD - (optional) set to 1 if you want week numbers in the subscript
; otherwise subscript will be fmdates.
GETAVHRS(FMWKS,PRSDT) ; calculate the number of weeks in the AWS fiscal year
; from the input date and the hours available for recess from that
; date
; INPUT: PRSDT-must be a first day of a pay period in the input array
; FMWKS-array produced from FYWEEKS call in this routine.
; OUTPUT:
; # of FY weeks from PRSDT ^ available recess hrs ^ avail recess weeks
WKSDAY1(WKARRAY,FD,LD,SF) ;Build FY week array
ALLOKEY(PRSNURSE) ; Allocate security key to the NURSE if they don't hold it

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!!,"Can't find this nurse in the NEW PERSON file. This must"
  • Line Location: ALLOKEY+9
Function Call: WRITE
  • Prompt: !,"be corrected before they can view their schedule and the"
  • Line Location: ALLOKEY+10
Function Call: WRITE
  • Prompt: !,"PRSAWS9 security key may need to be allocated to this nurse."
  • Line Location: ALLOKEY+11
Function Call: WRITE
  • Prompt: !,"... allocating PRSAWS9 security key for this nurse."
  • Line Location: ALLOKEY+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: ALLOKEY+15
Function Call: WRITE
  • Prompt: !!,"The PRSAWS9 key is missing from file 19.1."
  • Line Location: ALLOKEY+19

FileMan Files Accessed Via FileMan Db Call

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