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
Print Page as PDF
Routine: PRSALVS

Package: PAID

Routine: PRSALVS


Information

PRSALVS ;WOIFO/PLT - Display Leave Request ;02/12/08

Source Information

Source file <PRSALVS.m>

Entry Points

Name Comments DBIA/ICR reference
DISP ; Display Leave Requests
D0
LST ; Display Request
BAL ; Leave Balance
B0
B1
B2
B3
HDR ; Display Header
H1
EX
LC(X)
RT(EDT,SDT)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"Your SSN was not found in both the New Person & Employee File!"
  • Line Location: PRSALVS+4
Function Call: WRITE
  • Prompt: !
  • Line Location: PRSALVS+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRSALVS+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LST+6
Function Call: WRITE
  • Prompt: $J(CNT,2)," "
  • Line Location: LST+6
Function Call: WRITE
  • Prompt: $P(Z,"^",4)," "
  • Line Location: LST+7
Function Call: WRITE
  • Prompt: Y," to ",$P(Z,"^",6)," "
  • Line Location: LST+7
Function Call: WRITE
  • Prompt: Y," "
  • Line Location: LST+8
Function Call: WRITE
  • Prompt: X," ",$S($P(Z,"^",16)="D":"days",1:"hrs")," "
  • Line Location: LST+9
Function Call: WRITE
  • Prompt: $P($E(LVT,%,999),";",1)," "
  • Line Location: LST+10
Function Call: WRITE
  • Prompt: $P($E(LVS,%,999),";",1)
  • Line Location: LST+12
Function Call: WRITE
  • Prompt: !?5,"Requested: ",Y
  • Line Location: LST+13
Function Call: WRITE
  • Prompt: !,Z,?6," Leave Balance: ",$J(BAL,9,3)," as of ",D1
  • Line Location: B2+3
Function Call: WRITE
  • Prompt: !,Z," Leave Balance: ",$S(Z="ML":$J(BAL,13,2),1:$J(BAL,13,3))," as of ",D1
  • Line Location: B2+4
Function Call: WRITE
  • Prompt: !,Z," Estimated Earnings: ",$J(INC,8,3)
  • Line Location: B2+9
Function Call: WRITE
  • Prompt: !,Z," Estimated Usage: ",$J(CNT,11,3)
  • Line Location: B2+20
Function Call: WRITE
  • Prompt: !,Z," Projected Balance: ",$J(BAL,9,3)
  • Line Location: B3+0
Function Call: WRITE
  • Prompt: !,"Warning: Approval MAY result in a negative leave balance."
  • Line Location: B3+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?26,"VA TIME & ATTENDANCE SYSTEM",!?32,"LEAVE REQUESTS"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,$P(X,"^",1)
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?50,"XXX-XX-",$E(X,6,9)
  • Line Location: HDR+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Press RETURN to Continue."
  • Variable: X
  • Timeout: DTIME
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: H1+0
Info |  Source |  Entry Points |  Interaction Calls