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

Package: PAID

Routine: PRSALVB


Information

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

Source Information

Source file <PRSALVB.m>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRSPC - [#450] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call