Routine: PRSARC03

Package	Total	Call Graph
PAID	10	PP^PRSAPPU HDR^PRSARC (DSELALL,SELRWK)^PRSARC01 VWMSG^PRSARC03 ($$ALLFYAWS,$$FYDAYS,$$GETAVHRS,$$GETFSCYR)^PRSARC04 MAIN^PRSARC06 TOURHRS^PRSARC07 $$ASK^PRSLIB00 $$GET8B^PRSPUT3 $$CD8B^PRSU1B2
VA FileMan	3	^%DT C^%DTC ^DIR
List Manager	2	FULL^VALM1 (CLEAN,FLDCTRL,FLDTEXT)^VALM10

Package	Total	Caller Graph
PAID	6	PRSA SET RECESS HOURS PRSARC PRSARC01 PRSARC03 PRSARC09 PRSARCS

Name	Comments	DBIA/ICR reference
NEWSTART(OUT,PRSDT)	; change alternate work schedule start date.
AWSTART(FD,LD,PROMPT)	;function returns date within range FD-LD using PROMPT.
FYRDATA(RWIEN)	; build a record of data for the Fiscal Year Recess for the viewer ; INPUT: Recess record IEN
VWMSG(MSG)	; roll and scroll message from listmanager call.
OTHERHRS(CTHW1,CTHW2,PRSNURSE)	; are any tour hours selected different than ; current tour hours.
GETFLWKS(IEN,PRSDT)	; Get weeks/recess hours from 458.8 and any posted recess ; by way of the TT8b string. Update the list columns.
RPOSTED	; Get weeks posted ; get 8b from 5 node unless corrected timecard--then re decomp
EVEODDWK(ODD,EVEN)	; CHECK SELECTION INDEX FOR ODD AND EVEN PP WEEKS
CHANGE(IEN)	; funtion true if file record is different than current data
SETRECES	;SET HOURS FOR A WEEK AT A TIME
HRSLEFT()	; Get remaining hours available for recess for the FY
HRSFILED(IEN)	; funtion returns number of recess hours on file

Name	Field # of Occurrence
^%DT	FYRDATA+22
C^%DTC	NEWSTART+17, GETFLWKS+6, RPOSTED+5
^DIR	AWSTART+8, SETRECES+33
PP^PRSAPPU	NEWSTART+16, FYRDATA+24, OTHERHRS+6, SETRECES+15
HDR^PRSARC	NEWSTART+40
DSELALL^PRSARC01	SETRECES+51
SELRWK^PRSARC01	SETRECES+9
VWMSG^PRSARC03	SETRECES+3
$$ALLFYAWS^PRSARC04	NEWSTART+6
$$FYDAYS^PRSARC04	FYRDATA+13
$$GETAVHRS^PRSARC04	NEWSTART+28, HRSLEFT+8
$$GETFSCYR^PRSARC04	NEWSTART+23, FYRDATA+19
MAIN^PRSARC06	NEWSTART+39
TOURHRS^PRSARC07	OTHERHRS+8, SETRECES+16
$$ASK^PRSLIB00	VWMSG+5, VWMSG+7
$$GET8B^PRSPUT3	RPOSTED+10
$$CD8B^PRSU1B2	RPOSTED+13
FULL^VALM1	VWMSG+1
CLEAN^VALM10	NEWSTART+32
FLDCTRL^VALM10	GETFLWKS+17
FLDTEXT^VALM10	GETFLWKS+16, RPOSTED+17, SETRECES+40

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This is a view only option. You may not make any changes to the" Line Location: VWMSG+3
Function Call: WRITE	Prompt: !,"recess schedule. The Recess Hours Summary action is available.",! Line Location: VWMSG+4
Function Call: WRITE	Prompt: !!,"Recess Schedule not saved." Line Location: VWMSG+7
Function Call: WRITE	Prompt: !,"Recess hours remaining to schedule: ",HRSLEFT,! Line Location: SETRECES+29
Routine Call	DIR Line Location: AWSTART+8 SETRECES+33

Name	Line Occurrences (* Changed, ! Killed)
^PRST(458 - [#458]	RPOSTED+8
^PRST(458.8 - [#458.8]	FYRDATA+11, GETFLWKS+8, GETFLWKS+9, GETFLWKS+10, CHANGE+6, CHANGE+7, HRSFILED+6, HRSFILED+7
^TMP("PRSARC"	NEWSTART+34!
^TMP("PRSLI"	NEWSTART+36!, GETFLWKS+15, RPOSTED+16
^TMP("PRSRW"	NEWSTART+38!, GETFLWKS+18, RPOSTED+18, RPOSTED+19, RPOSTED+21, CHANGE+15, CHANGE+16, SETRECES+20, SETRECES+45!, SETRECES+47 , SETRECES+48, SETRECES+49, HRSLEFT+4, HRSLEFT+6
^TMP("PRSSW"	NEWSTART+37!, OTHERHRS+4, EVEODDWK+4, SETRECES+14, SETRECES+39

Name	Line Occurrences
$$AWSTART	NEWSTART+11
$$HRSLEFT	SETRECES+19

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%H	NEWSTART+17~, GETFLWKS+6~, RPOSTED+5~
ALLFY	NEWSTART+2~, NEWSTART+6*, NEWSTART+7, NEWSTART+8
CRH	SETRECES+6~, SETRECES+13, SETRECES+20, SETRECES+21, SETRECES+22, SETRECES+37
CTHW1	OTHERHRS~, OTHERHRS+11
CTHW2	OTHERHRS~, OTHERHRS+12
CTRH1	SETRECES+5~, SETRECES+17*, SETRECES+18
>> CTRH2	SETRECES+17*, SETRECES+18
D1	NEWSTART+16~, NEWSTART+17, FYRDATA+24~, OTHERHRS+2~, OTHERHRS+6, GETFLWKS+5~, SETRECES+6~, SETRECES+15
DAY	NEWSTART+16~, NEWSTART+17, FYRDATA+24~, OTHERHRS+2~
DIR	AWSTART+5~, SETRECES+26~
DIR("A"	AWSTART+6, SETRECES+30
DIR("B"	SETRECES+28*
DIR(0	AWSTART+7, SETRECES+27
DIRUT	AWSTART+5~, AWSTART+10, SETRECES+26~, SETRECES+37
EN	FYRDATA+10~, FYRDATA+15, FYRDATA+17, FYRDATA+18
EVEN	EVEODDWK~, EVEODDWK+2, EVEODDWK+4, EVEODDWK+6
EXTRANGE	FYRDATA+10~, FYRDATA+18*, FYRDATA+20
EXTSTDT	FYRDATA+10~, FYRDATA+25*, FYRDATA+26
FD	NEWSTART+2~, NEWSTART+4*, NEWSTART+11, AWSTART~, AWSTART+7
>> FMWKS	NEWSTART+28, HRSLEFT+8
>> FMWKS(	RPOSTED+6, RPOSTED+7
FY	FYRDATA+10~, FYRDATA+12*, FYRDATA+13, FYRDATA+19, FYRDATA+20
FYE	FYRDATA+10~, FYRDATA+19*, FYRDATA+20
GOOD	NEWSTART+2~
HRDEFALT	SETRECES+6~, SETRECES+22, SETRECES+24, SETRECES+25*, SETRECES+28
HRSFILED	HRSFILED+2~, HRSFILED+3, HRSFILED+4, HRSFILED+9, HRSFILED+10
HRSLEFT	SETRECES+6~, SETRECES+19*, SETRECES+21, SETRECES+22, SETRECES+29
HRSUSED	HRSLEFT+2~, HRSLEFT+3, HRSLEFT+7, HRSLEFT+10
HRSWK	HRSLEFT+2~, HRSLEFT+6*, HRSLEFT+7
IEN	GETFLWKS~, GETFLWKS+8, GETFLWKS+9, GETFLWKS+10, CHANGE~, CHANGE+3, CHANGE+6, CHANGE+7, HRSFILED~, HRSFILED+4 , HRSFILED+6, HRSFILED+7
ITEM	OTHERHRS+2~, OTHERHRS+3, OTHERHRS+4, OTHERHRS+6, EVEODDWK+1~, EVEODDWK+3, EVEODDWK+4, EVEODDWK+5, CHANGE+4~, CHANGE+14* , CHANGE+15, CHANGE+16, CHANGE+17, SETRECES+6~, SETRECES+13, SETRECES+14*, SETRECES+15, SETRECES+18, SETRECES+20, SETRECES+30 , SETRECES+39, SETRECES+45, SETRECES+47, SETRECES+48, SETRECES+49
K	OTHERHRS+2~
LD	NEWSTART+2~, NEWSTART+5*, NEWSTART+11, AWSTART~, AWSTART+7
LINE	NEWSTART+2~, NEWSTART+33*, NEWSTART+39, NEWSTART+42
LISTI	NEWSTART+2~, NEWSTART+33*, NEWSTART+39, NEWSTART+41
LSTITEM	GETFLWKS+5~, GETFLWKS+15, GETFLWKS+16, GETFLWKS+17, GETFLWKS+18, RPOSTED+3~, RPOSTED+16, RPOSTED+17, RPOSTED+21, SETRECES+5~ , SETRECES+39*, SETRECES+40
MISMATCH	OTHERHRS+2~, OTHERHRS+3, OTHERHRS+4, OTHERHRS+11, OTHERHRS+12*, OTHERHRS+13
MSG	VWMSG~, VWMSG+2
NODE3	FYRDATA+10~, FYRDATA+11*, FYRDATA+12, FYRDATA+21
ODD	EVEODDWK~, EVEODDWK+2, EVEODDWK+4, EVEODDWK+5
OUT	NEWSTART~, NEWSTART+3, NEWSTART+7, NEWSTART+12, NEWSTART+13, NEWSTART+24, VWMSG+5, VWMSG+7, SETRECES+6~, SETRECES+9 , SETRECES+10, SETRECES+14, SETRECES+32, SETRECES+37*
PAD	GETFLWKS+5~, RPOSTED+3~, RPOSTED+12*, RPOSTED+13
PP4Y	OTHERHRS+2~
PPE	NEWSTART+18, FYRDATA+26, OTHERHRS+2~, SETRECES+6~
PPI	OTHERHRS+2~, OTHERHRS+7, OTHERHRS+8, GETFLWKS+5~, RPOSTED+8*, RPOSTED+9, RPOSTED+10, SETRECES+6~, SETRECES+16
PROMPT	AWSTART~, AWSTART+6
PRSDT	NEWSTART~, NEWSTART+9, NEWSTART+11, NEWSTART+12, NEWSTART+16, NEWSTART+17, NEWSTART+19, NEWSTART+20, NEWSTART+23, NEWSTART+24 , NEWSTART+28, NEWSTART+39, AWSTART+5~, AWSTART+9, AWSTART+10*, AWSTART+11, GETFLWKS~, GETFLWKS+6, RPOSTED+4, RPOSTED+5 , HRSLEFT+8
PRSFILED	CHANGE+4~, CHANGE+5, CHANGE+12, CHANGE+18, HRSFILED+5*
>> PRSFSCYR	NEWSTART+23*
>> PRSFY	NEWSTART+9, NEWSTART+18, NEWSTART+19, NEWSTART+20*
>> PRSFYRNG	NEWSTART+4, NEWSTART+5, NEWSTART+39
PRSLIST	CHANGE+4~, CHANGE+5, CHANGE+17, CHANGE+18, HRSFILED+5*
>> PRSLSTRT	NEWSTART+39
PRSNURSE	OTHERHRS~, OTHERHRS+8, RPOSTED+10, SETRECES+16
PRSRWHRS	NEWSTART+28, HRSLEFT+2~, HRSLEFT+8, HRSLEFT+9
>> PRSVIEW	VWMSG+7, SETRECES+3
>> PRSWKLST	NEWSTART+41*
RANGE	FYRDATA+10~, FYRDATA+13*, FYRDATA+14, FYRDATA+15, FYRDATA+20
RCPOSTED	GETFLWKS+5~, RPOSTED+3~, RPOSTED+13, RPOSTED+14, RPOSTED+15, RPOSTED+17, RPOSTED+19, RPOSTED+21
REW	GETFLWKS+5~, GETFLWKS+13, GETFLWKS+18, CHANGE+4~, CHANGE+11
RH	GETFLWKS+5~, GETFLWKS+11, GETFLWKS+18, CHANGE+4~, CHANGE+9, CHANGE+12, CHANGE+16, CHANGE+17, SETRECES+36, SETRECES+37* , SETRECES+40, SETRECES+44, SETRECES+47, HRSFILED+2~, HRSFILED+8*, HRSFILED+9
RH1	SETRECES+6~
RH2	SETRECES+6~
RW	GETFLWKS+5~, GETFLWKS+9, GETFLWKS+10, RPOSTED+3~, RPOSTED+7, RPOSTED+14, RPOSTED+16, RPOSTED+18, RPOSTED+19, RPOSTED+21 , CHANGE+4~, CHANGE+5, CHANGE+6, CHANGE+7, HRSFILED+2~, HRSFILED+5, HRSFILED+6, HRSFILED+7
RWD1	GETFLWKS+5~, GETFLWKS+12, GETFLWKS+18, CHANGE+4~, CHANGE+10
RWDATA	GETFLWKS+5~, GETFLWKS+10, GETFLWKS+11, GETFLWKS+12, GETFLWKS+13, GETFLWKS+15, GETFLWKS+16, GETFLWKS+18, CHANGE+4~, CHANGE+7 , CHANGE+8, CHANGE+9, CHANGE+10, CHANGE+11, HRSFILED+2~, HRSFILED+7*, HRSFILED+8
RWIEN	FYRDATA~, FYRDATA+11, FYRDATA+26
SELFY	FYRDATA+10~, FYRDATA+20, FYRDATA+26, FYRDATA+27
ST	FYRDATA+10~, FYRDATA+14, FYRDATA+16, FYRDATA+18
STARTDT	RPOSTED+3~, RPOSTED+4*
STDT	FYRDATA+10~, FYRDATA+23*, FYRDATA+24, FYRDATA+26
STR8B	GETFLWKS+5~, RPOSTED+3~, RPOSTED+10*, RPOSTED+13
TH	OTHERHRS+2~, OTHERHRS+8!, SETRECES+16~
TH("W1"	OTHERHRS+9, SETRECES+17
TH("W2"	OTHERHRS+10, SETRECES+17
TMPDT	GETFLWKS+5~, GETFLWKS+6, GETFLWKS+8, GETFLWKS+9
TOURHRS	SETRECES+6~, SETRECES+18*, SETRECES+21, SETRECES+24
TRHA	HRSLEFT+2~, HRSLEFT+9*, HRSLEFT+10
U	NEWSTART+4, NEWSTART+5, NEWSTART+9, NEWSTART+18, NEWSTART+19, NEWSTART+20, FYRDATA+12, FYRDATA+14, FYRDATA+15, FYRDATA+18 , FYRDATA+20, FYRDATA+21, FYRDATA+26, GETFLWKS+11, GETFLWKS+12, GETFLWKS+13, GETFLWKS+16, GETFLWKS+18, RPOSTED+14, RPOSTED+19 , RPOSTED+21, CHANGE+9, CHANGE+10, CHANGE+11, CHANGE+12, CHANGE+16, CHANGE+17, SETRECES+20, SETRECES+47, SETRECES+48 , SETRECES+49, HRSLEFT+6, HRSLEFT+9, HRSFILED+8
VALID	SETRECES+26~, SETRECES+31, SETRECES+32, SETRECES+34
>> VALMBCK	CHANGE+2, SETRECES+2, SETRECES+8, SETRECES+52
>> VALMCNT	NEWSTART+42*
W1TMP	OTHERHRS+2~, OTHERHRS+9*, OTHERHRS+11
W2TMP	OTHERHRS+2~, OTHERHRS+10*, OTHERHRS+12
WK	CHANGE+4~, CHANGE+8, CHANGE+12, HRSLEFT+2~, HRSLEFT+3, HRSLEFT+4*, HRSLEFT+6
WKDT	RPOSTED+3~, RPOSTED+5, RPOSTED+6, RPOSTED+7, RPOSTED+8
>> WKSFM(	OTHERHRS+6, SETRECES+15, SETRECES+48
X	NEWSTART+17~, AWSTART+5~, FYRDATA+10~, FYRDATA+21*, GETFLWKS+6~, RPOSTED+5~
X1	NEWSTART+17~, GETFLWKS+6~, RPOSTED+5~*
X2	NEWSTART+17~, GETFLWKS+6~, RPOSTED+5~*
Y	AWSTART+5~, AWSTART+9, FYRDATA+10~, FYRDATA+23, FYRDATA+25, OTHERHRS+2~, SETRECES+6~, SETRECES+26~, SETRECES+34, SETRECES+35* , SETRECES+36

Customize PDF page

Package: PAID

Routine: PRSARC03

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: