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

Package: PAID

Routine: PRSASR1


Information

PRSASR1 ;WCIOFO/JAH - Display VCS, Fee, ED ;02/20/08

Source Information

Source file <PRSASR1.m>

Entry Points

Name Comments DBIA/ICR reference
VCS ; Display VCS Sales/Fee Basis
ED ; Display Envir. Diff.
LD ; Display changes to the Labor Distribution Codes within the Pay
; Period.
LDHDR ; Labor Distribution Header information
LDHOLD ; Pause of more LD changes that will fit on 1 screen.
PTP(PRSIEN,PPI) ; Updates hours credited for PT Phys w/ Memorandums
; This API can be used for initial and subsequent calculation
; of the PTP's ESR.
; algorithm for this API follows:
; 1. Grab copy of currently stored pay period hours
; 2. Look at ESR/timecard data to recalculate pay period hours
; 3. Calculate net difference between 1 and 2
; 4. update current pay period with new pp totals from (2) above
; 5. add net diff (3) to memo totals
AMT(ESR) ; Return hours elapsed for time segment in decimal format
; deduct meal
; e.g. AMT=2.5 (2 hours 30 min)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Employee is NOT currently under this pay plan."
  • Line Location: VCS+15
Function Call: WRITE
  • Prompt: !!?30,$S(PAYP="F":"Fee Basis Appointee",1:"VCS Commission Sales")
  • Line Location: VCS+17
Function Call: WRITE
  • Prompt: !!?13,"Sun Mon Tue Wed Thu Fri Sat",!
  • Line Location: VCS+18
Function Call: WRITE
  • Prompt: ?L1,$J(Z1,7,2)
  • Line Location: VCS+19
Function Call: WRITE
  • Prompt: ?L1,$J(Z1,7,2)
  • Line Location: VCS+20
Function Call: WRITE
  • Prompt: !!
  • Line Location: VCS+21
Function Call: WRITE
  • Prompt: "Total ",$P("Hours Days Procedures"," ",K-18),": ",Z1," "
  • Line Location: VCS+21
Function Call: WRITE
  • Prompt: !!?26,"Environmental Differentials",!
  • Line Location: ED+1
Function Call: WRITE
  • Prompt: !,"Week 1: ",Y
  • Line Location: ED+3
Function Call: WRITE
  • Prompt: !,"Week 2: ",Y
  • Line Location: ED+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LD+6
Function Call: WRITE
  • Prompt: !,"Current Labor Distribution Values:"
  • Line Location: LD+8
Function Call: WRITE
  • Prompt: !,LDDOA,?24,LDCCB,?61,LDTOI
  • Line Location: LD+12
Function Call: WRITE
  • Prompt: !,"Code",PRSLD,": ",LDCODE,?12,LDPCT,?24,LDCC," - ",LDCCEX,?70,LDFCP
  • Line Location: LD+21
Function Call: WRITE
  • Prompt: !!,"The previous Labor Distribution Values:"
  • Line Location: LD+23
Function Call: WRITE
  • Prompt: !,LDDOA,?24,LDCCB,?61,LDTOI
  • Line Location: LD+31
Function Call: WRITE
  • Prompt: !,"Code",PRSLD,": ",LDCODE,?12,LDPCT,?24,LDCC," - ",LDCCEX,?70,LDFCP
  • Line Location: LD+41
Function Call: WRITE
  • Prompt: !?15,"Labor Distribution Changes within the Pay Period:"
  • Line Location: LDHDR+2
Function Call: WRITE
  • Prompt: !,"Date/Time",?24,"Changed by",?61,"Type of Interface"
  • Line Location: LDHDR+3
Function Call: WRITE
  • Prompt: !,"Code",?12,"Percent",?24,"Cost Center - Description"
  • Line Location: LDHDR+4
Function Call: WRITE
  • Prompt: ?65,"Fund Ctrl Pt"
  • Line Location: LDHDR+5
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: LDHDR+6
Function Call: WRITE
  • Prompt: !,@IOF,?3,$P(X,"^",1)
  • Line Location: LDHOLD+5
Function Call: WRITE
  • Prompt: ?68,$E(X),"XX-XX-",$E(X,6,9)
  • Line Location: LDHOLD+7
Function Call: WRITE
  • Prompt: !,DASH
  • Line Location: LDHOLD+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRSPC - [#450] GET1^DIQ
450.0757 GET1^DIQ
458.1105 GET1^DIQ
458.11054 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call