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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 6 C^%DTC  MSG^DIALOG  $$FIND1^DIC  UPDATE^DIE  $$GET1^DIQ  ^DIR  
PAID 2 PP^PRSAPPU  $$ASK^PRSLIB00  

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 PRSALVS  PRSARC  PRSARC01  PRSARC02  PRSARC03  PRSARC06  PRSARCS  

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

External References

Name Field # of Occurrence
C^%DTC GETFSCYR+32, FYDAYS+13, FYDAYS+22, GETPPDY+4, WKSDAY1+17
MSG^DIALOG ALLOKEY+22
$$FIND1^DIC ALLOKEY+17
UPDATE^DIE ALLOKEY+22
$$GET1^DIQ ALLOKEY+6
^DIR ALLFYAWS+10
PP^PRSAPPU GETFSCYR+30, FYDAYS+12, FYDAYS+14, FYDAYS+20, GETPPDY+2
$$ASK^PRSLIB00 ALLOKEY+12

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
Routine Call
  • DIALOG
  • Line Location:
    • ALLOKEY+22
Routine Call
  • DIC
  • Line Location:
    • ALLOKEY+17
Routine Call
  • DIE
  • Line Location:
    • ALLOKEY+22
Routine Call
  • DIR
  • Line Location:
    • ALLFYAWS+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19.1 - [#19.1] FIND1^DIC
^PRSPC - [#450] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRST(458.8 - [#458.8] ALLOKEY+4
^VA(200 - [#200] ALLOKEY+7
^XUSEC("PRSAWS9" ALLOKEY+14

Label References

Name Line Occurrences
$$FYDAYS FYWEEKS+11
WKSDAY1 FYWEEKS+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%H GETFSCYR+29~, FYDAYS+7~, GETPPDY+1~
AVWKS GETAVHRS+8~, GETAVHRS+14*, GETAVHRS+15
D1 GETFSCYR+29~, GETFSCYR+30*, FYDAYS+7~, FYDAYS+12*, FYDAYS+13, FYDAYS+14*, FYDAYS+20*, FYDAYS+22, GETPPDY+1~, GETPPDY+2*
DAY GETFSCYR+29~, GETFSCYR+32, FYDAYS+7~, FYDAYS+13, FYDAYS+22, GETPPDY+4
DIR ALLFYAWS+1~
DIR("?" ALLFYAWS+5*, ALLFYAWS+6*, ALLFYAWS+7*, ALLFYAWS+8*, ALLFYAWS+9*
DIR("A" ALLFYAWS+4*
DIR("B" ALLFYAWS+3*
DIR(0 ALLFYAWS+2*
DIROUT ALLFYAWS+1~
DIRUT ALLFYAWS+1~, ALLFYAWS+11
DTOUT ALLFYAWS+1~
DUOUT ALLFYAWS+1~
END FYDAYS+7~, FYDAYS+19*, FYDAYS+20
ENDPPE FYDAYS+7~, FYDAYS+21*, FYDAYS+24
FD FYWEEKS+6~, FYWEEKS+13*, FYWEEKS+17, WKSDAY1~, WKSDAY1+13
FFPPE GETFSCYR+29~, GETFSCYR+31*, GETPPDY+3*
FISCALYR GETFSCYR+29~, GETFSCYR+34*, GETFSCYR+35, GETFSCYR+39
FMWKS GETAVHRS~
FMWKS( GETAVHRS+9, GETAVHRS+10, GETAVHRS+11
FMWKS(9999999 GETAVHRS+11
FRSTWK GETAVHRS+8~, GETAVHRS+10*, GETAVHRS+12
FSCYR FYDAYS~, FYDAYS+5, FYDAYS+11, FYDAYS+19
FY ALLFYAWS+1~, FYWEEKS~, FYWEEKS+11
FY1 GETFSCYR+29~, GETFSCYR+36*, GETFSCYR+39
FY2 GETFSCYR+29~, GETFSCYR+38*, GETFSCYR+39
FYENDT FYDAYS+7~, FYDAYS+22*, FYDAYS+24
FYLONG GETFSCYR+29~, GETFSCYR+37*, GETFSCYR+39
FYSTDT FYDAYS+7~, FYDAYS+13*, FYDAYS+14, FYDAYS+24
HRS GETAVHRS+8~, GETAVHRS+13*, GETAVHRS+15
IEN200 ALLOKEY+5~, ALLOKEY+7*, ALLOKEY+8, ALLOKEY+14, ALLOKEY+20
KEYIEN ALLOKEY+16~, ALLOKEY+17*, ALLOKEY+18, ALLOKEY+20, ALLOKEY+21
LASTWK GETAVHRS+8~, GETAVHRS+11*, GETAVHRS+12
LD FYWEEKS+6~, FYWEEKS+14*, FYWEEKS+17, WKSDAY1~, WKSDAY1+14
PPD1 GETPPDY+1~, GETPPDY+4*, GETPPDY+5
PPDT1 GETFSCYR+29~, GETFSCYR+32*, GETFSCYR+33, GETFSCYR+34
PPE GETFSCYR+29~, GETFSCYR+31, FYDAYS+7~, FYDAYS+15, FYDAYS+21, GETPPDY+1~, GETPPDY+3, GETPPDY+5
PRSDT GETFSCYR~, GETFSCYR+30, GETFSCYR+32, GETPPDY~, GETPPDY+2, GETPPDY+4, GETAVHRS~, GETAVHRS+9, GETAVHRS+10
PRSFDA ALLOKEY+16~
PRSFDA( ALLOKEY+20*
PRSFYRNG FYWEEKS+6~, FYWEEKS+11*, FYWEEKS+13, FYWEEKS+14
PRSIENS ALLOKEY+16~
PRSIENS(1 ALLOKEY+21*
PRSNURSE ALLOKEY~, ALLOKEY+3, ALLOKEY+4, ALLOKEY+6
SD FYWEEKS~, FYWEEKS+17
SF WKSDAY1~, WKSDAY1+11
SSN ALLOKEY+5~, ALLOKEY+6*, ALLOKEY+7, ALLOKEY+12*
START FYDAYS+7~, FYDAYS+11*, FYDAYS+12
STRTPPE FYDAYS+7~, FYDAYS+15*, FYDAYS+24
SUBS WKSDAY1+10~, WKSDAY1+11*, WKSDAY1+12*, WKSDAY1+15
TMPYR GETFSCYR+29~, GETFSCYR+33*, GETFSCYR+34
U GETPPDY+5, FYWEEKS+13, FYWEEKS+14, GETAVHRS+15
VALUE WKSDAY1+10~, WKSDAY1+11*, WKSDAY1+12*, WKSDAY1+15
WEEK WKSDAY1+10~, WKSDAY1+13*, WKSDAY1+16*
WKARRAY FYWEEKS~, FYWEEKS+17, WKSDAY1~
WKARRAY( WKSDAY1+15*
WKD1 WKSDAY1+10~, WKSDAY1+13*, WKSDAY1+14, WKSDAY1+17*
WKS GETAVHRS+8~, GETAVHRS+12*, GETAVHRS+13, GETAVHRS+14, GETAVHRS+15
X GETFSCYR+29~, GETFSCYR+32, FYDAYS+7~, FYDAYS+13, FYDAYS+22, GETPPDY+1~, GETPPDY+4, ALLFYAWS+1~, WKSDAY1+10~, WKSDAY1+17
X1 GETFSCYR+29~, GETFSCYR+32*, FYDAYS+7~, FYDAYS+13*, FYDAYS+22*, GETPPDY+1~, GETPPDY+4*, WKSDAY1+10~, WKSDAY1+17*
X2 GETFSCYR+29~, GETFSCYR+32*, FYDAYS+7~, FYDAYS+13*, FYDAYS+22*, GETPPDY+1~, GETPPDY+4*, WKSDAY1+10~, WKSDAY1+17*
Y ALLFYAWS+1~, ALLFYAWS+12
YR GETFSCYR+29~, GETFSCYR+35*, GETFSCYR+36, GETFSCYR+37, GETFSCYR+38
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 |  Local Variables  | All