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

Package: PAID

Routine: PRSALVB


Information

PRSALVB ;WOIFO/JAH/PLT - Leave Balances ;02/01/08

Source Information

Source file <PRSALVB.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ($$FMADD,$$FMTE)^XLFDT  KILL^XUSCLEAN  
PAID 4 $$MLINHRS^PRSAENT  (,QUE)^PRSAUTL  ($$ASK,$$BLDYR)^PRSLIB00  ($$DTPP,$$PPDT)^PRSU1B2  
VA FileMan 2 IX^DIC  ^DIR  

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

Package Total Caller Graph
PAID 3 PRSA LV BAL-EMP  PRSA LV BAL-SUP  PRSA LV BAL-TK  

Entry Points

Name Comments DBIA/ICR reference
EMP ; Employee Entry Point
TK ; Timekeeper Entry Point
SUP ; Supervisor Entry Point
S0
S1
D
Q1 ; Show Balances
PGHD
Q2
C1(A,B) ;ef - ^1=pp in format yy-pp or pp, ^2=expiration date
PGBRK() ;ev - 1 if quit, "" if continue
EX

External References

Name Field # of Occurrence
^%ZIS D+1
^%ZISC D+3
IX^DIC S1
^DIR PGBRK+2
$$MLINHRS^PRSAENT Q2+60
^PRSAUTL S0
QUE^PRSAUTL D+2
$$ASK^PRSLIB00 Q2+64
$$BLDYR^PRSLIB00 Q2+49, Q2+54
$$DTPP^PRSU1B2 Q2+31
$$PPDT^PRSU1B2 Q2+31, C1+5
$$FMADD^XLFDT C1+5
$$FMTE^XLFDT Q2+29, Q2+33
KILL^XUSCLEAN EX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"Your SSN was not found in both the New Person & Employee File!"
  • Line Location: EMP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: S1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: D+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: Q1+3
Function Call: WRITE
  • Prompt: !?29,"EMPLOYEE LEAVE BALANCES"
  • Line Location: Q1+3
Function Call: WRITE
  • Prompt: !!,$P(X,"^",1),?48,"Leave Group: ",LVG
  • Line Location: PGHD+1
Function Call: WRITE
  • Prompt: ?67,"XXX-XX-",$E(X,6,9)
  • Line Location: PGHD+3
Function Call: WRITE
  • Prompt: ?67,$E(X),"XX-XX-",$E(X,6,9)
  • Line Location: PGHD+4
Function Call: WRITE
  • Prompt: !!,"Balances are as of Pay Period ",PPE," (",D1,")"
  • Line Location: Q2+9
Function Call: WRITE
  • Prompt: !,"Annual Leave Balance:",?30,$S(Y="":"",1:$J(Y,8,3))
  • Line Location: Q2+20
Function Call: WRITE
  • Prompt: !,"Sick Leave Balance:",?30,$S(Y="":"",1:$J(Y,8,3))
  • Line Location: Q2+22
Function Call: WRITE
  • Prompt: !!?10,"Comp Time/Credit Hours (CT/CH) Pay Period Balances",!?10,"Pay Period Earned",?30,"# of Hours",?45,"Must be used by"
  • Line Location: Q2+28
Function Call: WRITE
  • Prompt: !?10,$P(PB,U),?30,$J($P(CTN,U,PA),8,3),?45,$$FMTE^XLFDT($P(PB,U,2))
  • Line Location: Q2+29
Function Call: WRITE
  • Prompt: !
  • Line Location: Q2+29
Function Call: WRITE
  • Prompt: !?9,PE,?30,$J($P(CTN,U,9)-PC,8,3)
  • Line Location: Q2+32
Function Call: WRITE
  • Prompt: ?45,$S($P(PD,U,2)=PPE:$$FMTE^XLFDT($P($$C1(PPE,PDAYS),U,2)),1:$$FMTE^XLFDT($P($$C1($P(PD,U,2),PDAYS),U,2))_" thru "_$$FMTE^XLFDT($P($$C1(PPE,PDAYS),U,2)))
  • Line Location: Q2+33
Function Call: WRITE
  • Prompt: !
  • Line Location: Q2+35
Function Call: WRITE
  • Prompt: !?10,"-----------------------------------------------------------------"
  • Line Location: Q2+36
Function Call: WRITE
  • Prompt: !,"Total CT/CH Hours Balance: ",?30,$J($P(CTN,U,9),8,3),!
  • Line Location: Q2+37
Function Call: WRITE
  • Prompt: !
  • Line Location: Q2+38
Function Call: WRITE
  • Prompt: !,"*The CT/CH balance of ",$J($P(CTN,U,9)-PC,1,3)," hours earned between ",$P($P(PE,"*",2)," ")," and ",$P(PE," ",3)," will be",!,"itemized in the report at least 8 pay periods in advance."
  • Line Location: Q2+39
Function Call: WRITE
  • Prompt: !,"Use by end of leave year ",$$BLDYR^PRSLIB00(YRDIGIT)," or forfeit."
  • Line Location: Q2+49
Function Call: WRITE
  • Prompt: !,"Use by end of leave year ",$$BLDYR^PRSLIB00(YRDIGIT)," or forfeit."
  • Line Location: Q2+54
Function Call: WRITE
  • Prompt: !!,"Military Leave in "
  • Line Location: Q2+59
Function Call: WRITE
  • Prompt: $S($$MLINHRS^PRSAENT(DFN):"hours:",1:"days:")
  • Line Location: Q2+60
Function Call: WRITE
  • Prompt: ?30,$J(Y,8,2)
  • Line Location: Q2+61
Function Call: WRITE
  • Prompt: !!,"Non-Pay Leave Taken:",?30,$J(Y,8,3)
  • Line Location: Q2+62
Function Call: WRITE
  • Prompt: !,"END OF REPORT"
  • Line Location: Q2+63
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PGBRK+3
Routine Call
  • %ZIS
  • Line Location:
    • D+1
Routine Call
  • DIC
  • Line Location:
    • S1
Routine Call
  • DIR
  • Line Location:
    • PGBRK+2

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 - [#450] Q1+4, PGHDQ2Q2+11, Q2+14
^PRSPC("SSN" EMP+1
^PRST(458 - [#458] Q2+2, Q2+7, Q2+8
^VA(200 - [#200] EMP+1

Label References

Name Line Occurrences
$$C1 Q2+29, Q2+33
$$PGBRK Q2+29, Q2+35, Q2+38
D EMP+3
EX EMP+2, S0S1D+1, D+2, D+3, Q2+25
PGHD Q1+5, PGBRK+3
Q1 D+3
Q2 Q1+5
S0 TK+1, SUP+1

Naked Globals

Name Field # of Occurrence
^("COMP" Q2+11
^("MILITARY" Q2+11
^("SICK" Q2+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS D+1!*, D+3!
%ZIS("A" D+1*
A C1~, C1+3, C1+4
>> ALN Q2+11*, Q2+15*, Q2+17*, Q2+19, Q2+45, Q2+48, Q2+50, Q2+53, Q2+62
B C1~, C1+5
>> BAY Q2+14*, Q2+15, Q2+16, Q2+17
C C1+1~, C1+5*
>> C0 Q1+4*
CTN Q1+1~, Q2+11*, Q2+25, Q2+29, Q2+31, Q2+32, Q2+37, Q2+39
D S1*, C1+1~, C1+4*, C1+5, C1+6
D1 Q1+1~, Q2+4*, Q2+5, Q2+8*, Q2+9
>> DB Q1+4*, Q2+13
>> DFN EMP+1*, EMP+2, S1*, Q1+4, PGHDQ2Q2+11, Q2+14, Q2+60
DIC S1!*
DIC("A" S1*
DIC("S" S1*
DIC(0 S1*
DIR PGBRK+1~
DIR(0 PGBRK+2*
DIRUT PGBRK+1~, PGBRK+3, PGBRK+4
DUZ EMP+1
E C1+1~, C1+5*, C1+6
HOLD D~, Q2+64*
IO D+3
>> IO("Q" D+2
IOF Q1+3, PGBRK+3
IOP D+1!, D+3!
IOSL Q2+29, Q2+35, Q2+38
IOST Q1+3, Q2+64, PGBRK+2
>> KK Q2+17*
LST Q1+1~, Q2*, Q2+5, Q2+6
>> LVG Q1+4*, PGHD+1
>> MLN Q2+11*, Q2+58
>> NH Q1+4*, Q2+13
PA Q2+26~, Q2+29*
PB Q2+26~, Q2+29*, Q2+30
PC Q2+26~, Q2+27*, Q2+29*, Q2+31, Q2+32, Q2+39
PD Q2+26~, Q2+30*, Q2+31*, Q2+32, Q2+33
PDAYS Q2+26~, Q2+27*, Q2+29, Q2+33
PE Q2+26~, Q2+32*, Q2+39
PGQUIT Q1+1~, Q1+2*, Q2+25, Q2+29*, Q2+35*, Q2+38*
>> POP D+1
PPE Q1+1~, Q2+2*, Q2+3, Q2+4, Q2+6*, Q2+7, Q2+9, Q2+31, Q2+32, Q2+33
PPF Q1+1~
PPG Q1+1~
PPI Q1+1~, Q2+7*, Q2+8
PPP Q1+1~, Q2+6*, C1+4
PPVN Q1+1~
PPVO Q1+1~
>> PRSALST D+2*
>> PRSAPGM D+2*
>> PRSTLV TK+1*, SUP+1*, PGHD+3, PGHD+4
PYR Q1+1~, Q2+6*, C1+4
>> SLN Q2+11*, Q2+16*, Q2+21
>> SSN EMP+1*
>> TLE S1
>> TLI S0
U Q2+2, Q2+25, Q2+29, Q2+30, Q2+31, Q2+32, Q2+33, Q2+37, Q2+39, C1+5
>> X PGHD*, PGHD+1, PGHD+2*, PGHD+3, PGHD+4
>> Y S1Q2+19*, Q2+20, Q2+21*, Q2+22, Q2+45*, Q2+47, Q2+50*, Q2+52, Q2+58*
Q2+61, Q2+62*
YR Q1+1~, Q2+3*, Q2+5*, Q2+6
YRDIGIT Q2+46~, Q2+48*, Q2+49, Q2+51~, Q2+53*, Q2+54
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