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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
PAID 7 $$OLDPP^PRS8UT  OT^PRSDUTIL  $$ASK^PRSLIB00  $$GETSTAT^PRSPESR1  $$ELAPSE^PRSPESR2  $$MIEN^PRSPUT1  ($$MEMCPP,PP8BAMT)^PRSPUT3  
VA FileMan 2 FILE^DIE  $$GET1^DIQ  

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

Package Total Caller Graph
PAID 7 PRS4P150  PRSADP2  PRSASC3  PRSASR  PRSPSAP2  PRSPTM  PRSXP140  

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)

External References

Name Field # of Occurrence
FILE^DIE PTP+101
$$GET1^DIQ LD+9, LD+10, LD+11, LD+14, LD+15, LD+16, LD+20, LD+28, LD+29, LD+30
LD+34, LD+35, LD+36, LD+40
$$OLDPP^PRS8UT VCS+12
OT^PRSDUTIL LD+18, LD+38
$$ASK^PRSLIB00 LDHOLD+3
$$GETSTAT^PRSPESR1 PTP+55
$$ELAPSE^PRSPESR2 AMT+6
$$MIEN^PRSPUT1 PTP+14
$$MEMCPP^PRSPUT3 PTP+67
PP8BAMT^PRSPUT3 PTP+43

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
Routine Call
  • DIE
  • Line Location:
    • PTP+101

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRSPC - [#450] VCS+3, LDHOLD+4
^PRST(457.6 - [#457.6] ED+2, ED+4
^PRST(458 - [#458] LD+25, PTP+13, PTP+16, PTP+56
^PRST(458.7 - [#458.7] PTP+19, PTP+23, PTP+30

Label References

Name Line Occurrences
$$AMT PTP+62
LDHDR LDHOLD+9
LDHOLD LD+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AHRS PTP+10~, PTP+31*, PTP+86, PTP+90, PTP+95, PTP+98
AHTCM PTP+10~, PTP+37*, PTP+95*, PTP+96
AMT PTP+10~, AMT+3~, AMT+6*, AMT+7, AMT+8*, AMT+9
COHRS PTP+10~, PTP+32*, PTP+90, PTP+95, PTP+99
DASH LD+3~, LD+5*, LDHDR+6, LDHOLD+8
DAY PTP+50~, PTP+53*, PTP+55, PTP+56
DESC LD+3~
>> DFN VCS+3, VCS+12, LD+9, LD+10, LD+11, LD+14, LD+15, LD+16, LD+20, LD+25
LD+27, LD+33, LDHOLD+4
DIFFNP PTP+10~, PTP+37*, PTP+46*, PTP+78, PTP+87
DIFFRG PTP+10~, PTP+37*, PTP+65*, PTP+82, PTP+90, PTP+95, PTP+99
DIFFWP PTP+10~, PTP+37*, PTP+47*, PTP+79, PTP+87
ESR PTP+50~, PTP+56*, PTP+57, PTP+58, PTP+59, PTP+62, AMT~, AMT+4, AMT+5
IEN4587 PTP+71!, PTP+72*, PTP+73, PTP+74, PTP+75, PTP+80, PTP+81, PTP+82, PTP+87, PTP+88
, PTP+91, PTP+96, PTP+100
IENS LD+3~, LD+27*, LD+28, LD+29, LD+30, LD+33*, LD+34, LD+35, LD+36, LD+40
INPH PTP+10~, PTP+35*, PTP+78
IOF LDHOLD+5
ITHP PTP+10~, PTP+34*, PTP+86
ITHW PTP+10~, PTP+33*, PTP+82, PTP+90, PTP+95, PTP+99
IWPH PTP+10~, PTP+36*, PTP+79
>> K VCS+19*, VCS+20*, VCS+21*, ED+2*, ED+4*
>> L1 VCS+19*, VCS+20*
LDCC LD+3~, LD+16*, LD+17, LD+21, LD+36*, LD+37, LD+41
LDCCB LD+3~, LD+10*, LD+12, LD+29*, LD+31
LDCCEX LD+3~, LD+19*, LD+21, LD+39*, LD+41
LDCNT LD+3~, LD+24*, LD+25*, LD+26, LD+27, LD+33
LDCODE LD+3~, LD+14*, LD+21, LD+34*, LD+41
LDDOA LD+3~, LD+9*, LD+12, LD+28*, LD+31
LDFCP LD+3~, LD+20*, LD+21, LD+40*, LD+41
LDHOLD LD+4~, LDHOLD+3*
LDPCT LD+4~, LD+15*, LD+21, LD+35*, LD+41
LDTOI LD+4~, LD+11*, LD+12, LD+30*, LD+31
MDAT PTP+11~, PTP+13*, PTP+14
MDATA PTP+11~, PTP+30*, PTP+31, PTP+32, PTP+33, PTP+34, PTP+35, PTP+36
MEAL PTP+11~, AMT+3~, AMT+5*, AMT+6
MIEN PTP+11~, PTP+14*, PTP+15, PTP+19, PTP+23, PTP+30, PTP+67, PTP+72
MPPIEN PTP+11~, PTP+19*, PTP+20, PTP+23, PTP+73, PTP+74, PTP+75
OLDPP VCS+2~, VCS+12*, VCS+13, VCS+14
>> PAYP VCS+3*, VCS+13, VCS+14*, VCS+17, VCS+21
POHC PTP+11~, PTP+90*, PTP+91
POT PTP+11~, PTP+98*, PTP+99*, PTP+100
PPC PTP+11~, PTP+68*, PTP+88, PTP+95, PTP+98
PPE PTP+11~, PTP+16*, PTP+19, PTP+68
>> PPERIOD VCS+10, VCS+12
PPHRS PTP+12~, PTP+24*, PTP+65, PTP+86
PPI LD+25, LD+27, LD+33, PTP~, PTP+13, PTP+16, PTP+43, PTP+55, PTP+56
PPNP PTP+12~, PTP+25*, PTP+46
PPWP PTP+12~, PTP+26*, PTP+47
PRSFDA PTP+71!
PRSFDA( PTP+73*, PTP+74*, PTP+75*, PTP+80*, PTP+81*, PTP+82*, PTP+87*, PTP+88*, PTP+91*, PTP+96*
, PTP+100*
PRSIEN PTP~, PTP+14, PTP+43, PTP+55, PTP+56
PRSLD LD+4~, LD+13*, LD+14, LD+15, LD+16, LD+20, LD+21, LD+32*, LD+33, LD+41
PRSX PTP+12~, PTP+23*, PTP+24, PTP+25, PTP+26, PTP+27!, PTP+67*, PTP+68
RGCODES PTP+50~, PTP+51*, PTP+61
SEG PTP+50~, PTP+58*, PTP+59, AMT+4, AMT+5
START PTP+12~, AMT+3~, AMT+4*, AMT+6
STOP PTP+12~, AMT+3~, AMT+4*, AMT+6
SUB454 LD+17*, LD+18!, LD+37*, LD+38!
TAMTS PTP+40~, PTP+43
TAMTS("NP" PTP+42*, PTP+45
TAMTS("WP" PTP+41*, PTP+44
THP PTP+12~, PTP+86*, PTP+87
TOT PTP+12~, PTP+50~, PTP+59*, PTP+61
TOTAL PTP+12~
TOTAL("NP" PTP+45*, PTP+46, PTP+74
TOTAL("RG" PTP+52*, PTP+62*, PTP+65, PTP+73
TOTAL("WP" PTP+44*, PTP+47, PTP+75
TOTNP PTP+12~, PTP+78*, PTP+80, PTP+90, PTP+98
TOTWP PTP+12~, PTP+79*, PTP+81, PTP+90, PTP+98
U PTP+13, PTP+16, PTP+24, PTP+25, PTP+26, PTP+31, PTP+32, PTP+33, PTP+34, PTP+35
, PTP+36, PTP+58, PTP+59, PTP+68, AMT+4, AMT+5
X LDHOLD+2~, LDHOLD+4*, LDHOLD+5, LDHOLD+6*, LDHOLD+7, AMT+3~, AMT+7*, AMT+8
Y ED+2*, ED+3, ED+4*, ED+5, LD+4~, LD+17*, LD+19, LD+37*, LD+39
>> Z VCS+19, VCS+20, VCS+21, ED+2, ED+4
>> Z1 VCS+19*, VCS+20*, VCS+21*, ED+2*, ED+4*
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 |  Local Variables  | All