Routine: PRSALVE

Information

PRSALVE ;HISC/REL-Edit Leave Request ;12-SEP-00

Source file <PRSALVE.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"Your SSN was not found in both the New Person & Employee File!" Line Location: PRSALVE+4
Function Call: WRITE	Prompt: !!?5,"You are not entitled to any type of Leave." Line Location: PRSALVE+8
Function Call: WRITE	Prompt: @IOF Condition for execution: $E(IOST,1,2)="C-" Line Location: PRSALVE+9
Function Call: WRITE	Prompt: !?26,"VA TIME & ATTENDANCE SYSTEM",!?30,"EDIT LEAVE REQUESTS" Line Location: PRSALVE+9
Function Call: WRITE	Prompt: !!,$P(X,"^",1) Line Location: PRSALVE+10
Function Call: WRITE	Prompt: ?67,"XXX-XX-",$E(X,6,9) Line Location: PRSALVE+10
Function Call: WRITE	Prompt: ! Line Location: PRSALVE+12
Function Call: READ	Formatting: !! Prompt: "Edit Which Request #? " Variable: X Timeout: DTIME Line Location: X1+0
Function Call: WRITE	Prompt: *7," Enter # of Request to Edit" Line Location: X1+0
Function Call: WRITE	Prompt: !,$J(CNT,2)," " Line Location: LST+5
Function Call: WRITE	Prompt: $P(Z,"^",4)," " Line Location: LST+6
Function Call: WRITE	Prompt: Y," to ",$P(Z,"^",6)," " Line Location: LST+6
Function Call: WRITE	Prompt: Y," " Line Location: LST+7
Function Call: WRITE	Prompt: X," ",$S($P(Z,"^",16)="D":"days",1:"hrs")," " Line Location: LST+8
Function Call: WRITE	Prompt: $P($E(LVT,%,999),";",1)," " Line Location: LST+9
Function Call: WRITE	Prompt: $P($E(LVS,%,999),";",1) Line Location: LST+11