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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PRS8

Package: PAID

Routine: PRS8


Information

PRS8 ;HISC/MRL,WIRMFO/JAH-DECOMPOSITION, PROCESSOR ;01/30/2007

Source Information

Source file <PRS8.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
PAID 7 ^PRS8CV  ^PRS8DR  EN^PRS8HD  ^PRS8TL  DEV^PRS8UT  ^PRS8VW  ^PRSAENT  
VA FileMan 5 C^%DTC  ^DIC  YN^DICN  DT^DICRW  IXALL^DIK  
Kernel 1 HOME^%ZIS  

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

Package Total Caller Graph
PAID 10 PRS8DR  PRS8TL  PRS8TL1  PRSA PAY DECOMP  PRSAPEM  PRSAPRT  PRSASC2  PRSASR  
PRSATL  PRSPUT3  

Entry Points

Name Comments DBIA/ICR reference
OPT ; --- option selection
1 ;;EMPLOYEE
11
12
2 ;;T&L DECOMPOSITION
3 ;;VIEW
DFN ; --- entry point where DFN and PY are defined
PY ; --- select pay period to decompose
CKPY ; --- entry point for checking PY variable
EMP ; --- select employee
CKDFN ; --- entry point for checking DFN
ONE ; --- entry point for decomposing a single entry (non-inteactive)
PRINT ; --- where do I display this
EXIST ; --- check to see if data exists and show
DECOM ; --- decompose again
NOPE ; --- can't process
END ; --- all done here/kill variables
AUTOPINI(PPIEN,EMPIEN,PRIOR,PRVAL) ; initialize auto-posted data
; This call backs out auto-posted data from the time card (if any)
; inputs
; PPIEN = pay period IEN (file 458)
; EMPIEN = employee IEN (file 450, sub-file 458.01)
; PRIOR = optional flag, true (=1) to return original data
; PRVAL = optional array, required if PRIOR true
; passed by reference
; contains the original data (before removal) in the format
; PRVAL(day number,node number)=value of node
; if no auto-posted data then array would be undefined
AUTOPRES(PPIEN,EMPIEN,PRVAL) ; restore auto-posted data
; This call restores original auto-posted data that was initialized
; by AUTOPINI. See AUTOPINI for description of inputs.
ER ; error messages

External References

Name Field # of Occurrence
C^%DTC CKPY+4, CKPY+6
HOME^%ZIS PRS8+10
^DIC OPT+1, PY+1, EMP+1
YN^DICN DECOM+1
DT^DICRW PRS8+10
IXALL^DIK PRS8+16
^PRS8CV OPT+3, 11+1
^PRS8DR DFN+7, ONE+5
EN^PRS8HD CKPY+8
^PRS8TL 2+2
DEV^PRS8UT PRINT+1
^PRS8VW EXIST+2
^PRSAENT EXIST+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: @IOF,!?21,"DECOMPOSE TIME FOR A SPECIFIC EMPLOYEE",!
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: @IOF,!?35,"DECOMPOSE TIME FOR A T&L",!
  • Line Location: 2+1
Function Call: WRITE
  • Prompt: @IOF,!?22,"VIEW DECOMPOSED TIME FOR A SPECIFIC EMPLOYEE",!
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EMP+1
Function Call: WRITE
  • Prompt: !!,"The above data already exists from a previous decomposition. You may decompose"
  • Line Location: EXIST+4
Function Call: WRITE
  • Prompt: !,"again at this time to identify any changes. Since this "
  • Line Location: EXIST+5
Function Call: WRITE
  • Prompt: "record has been TRANSMITTED",!,"already the original record will not be overwritten!!"
  • Line Location: EXIST+6
Function Call: WRITE
  • Prompt: !!,"Do you wish to run the decomposition"
  • Line Location: DECOM+1
Function Call: WRITE
  • Prompt: !?4,"Answer YES to rerun the decomposition process for this individual and ",$S('TMTD!('SAVE):"VIEW",1:"SAVE"),!?4,"the changes. Respond NO to QUIT now!"
  • Line Location: DECOM+3
Routine Call
  • DIC
  • Line Location:
    • OPT+1
    • PY+1
    • EMP+1
Routine Call
  • %ZIS
  • Line Location:
    • PRS8+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRSPC - [#450] Classic Fileman Calls
^PRST(458 - [#458] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DOPT("PRS8" PRS8+11!, PRS8+12*, PRS8+14*, PRS8+15*
^PRSPC - [#450] CKDFN+2
^PRST(458 - [#458] CKPY+2, CKPY+3, CKPY+5, CKPY+7, CKDFN+3, EXIST+1, EXIST+3, AUTOPINI+16, AUTOPINI+18, AUTOPINI+22
, AUTOPINI+25, AUTOPINI+28!, AUTOPINI+30*, AUTOPINI+31!, AUTOPRES+10*

Label References

Name Line Occurrences
11 12+1, 3+2
12 12+1, 12+2, 12+4
@( OPT+2
CKDFN DFN+4, ONE+4
CKPY DFN+3, ONE+3
DECOM DECOM+3
EMP 12+1
END ONE+3, ONE+4, ONE+5
EXIST 12+2
NOPE CKPY+9, CKDFN+4
OPT PRS8+11, OPT+2
PRINT 12+3
PY 11+1

Naked Globals

Name Field # of Occurrence
^(10 AUTOPINI+28!
^(3 AUTOPINI+28!

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DFN+1~, ONE+1~, DECOM+1*, DECOM+2
DA ONE+1~
DAY AUTOPINI+12~, AUTOPINI+16*, AUTOPINI+18, AUTOPINI+22, AUTOPINI+25, AUTOPINI+28, AUTOPINI+30, AUTOPINI+31, AUTOPRES+4~, AUTOPRES+7*
, AUTOPRES+9, AUTOPRES+10
>> DFN DFN+2*, EMP+2*, CKDFN+1*, CKDFN+2, CKDFN+3, CKDFN+4, EXIST+1, EXIST+3
DIC OPT+1*, PY+1*, PY+2!, EMP+1*, EMP+2!
DIC("A" 11*, 12*
DIC(0 OPT+1*, PY+1*, EMP+1*
>> DIK PRS8+10*
>> E CKPY+1*, CKPY+2*, CKPY+3*, CKPY+9, CKDFN+1*, CKDFN+2*, CKDFN+3*, CKDFN+4, NOPE+1
EMPIEN AUTOPINI~, AUTOPINI+16, AUTOPINI+18, AUTOPINI+22, AUTOPINI+25, AUTOPINI+28, AUTOPINI+30, AUTOPINI+31, AUTOPRES~, AUTOPRES+10
>> ER( NOPE+1*
HO CKPY+8!
>> I PRS8+13*, PRS8+14, PRS8+15
IOF 1+1, 2+1, 3+1
NODE AUTOPINI+12~, AUTOPINI+21*, AUTOPINI+22, AUTOPRES+4~, AUTOPRES+9*, AUTOPRES+10
>> OK 11+1, 12+1, 12+2*, DFN+3, DFN+4, CKPY+1*, CKPY+8*, CKPY+9, EMP+2*, ONE+3
, ONE+4, DECOM+2*, NOPE+1*
>> PPD CKPY+3*, CKPY+4, CKPY+6
>> PPD(0 CKPY+5*
>> PPD(1 CKPY+5*
>> PPD(15 CKPY+7*
>> PPI ONE+2
PPIEN AUTOPINI~, AUTOPINI+16, AUTOPINI+18, AUTOPINI+22, AUTOPINI+25, AUTOPINI+28, AUTOPINI+30, AUTOPINI+31, AUTOPRES~, AUTOPRES+10
PRIOR AUTOPINI~, AUTOPINI+13, AUTOPINI+21
PRS8 PRINT+2!
PRS8("DES" PRINT+1*
PRS8("PGM" PRINT+1*
PRS8("VAR" PRINT+1*
PRS8D CKPY+4*, CKPY+8!
PRVAL AUTOPINI~, AUTOPINI+13!, AUTOPRES~
PRVAL( AUTOPINI+22*, AUTOPRES+7, AUTOPRES+9, AUTOPRES+10
>> PY DFN+2*, PY+2*, CKPY+1*, CKPY+2, CKPY+3, CKPY+9, CKDFN+3, ONE+2*, EXIST+1, EXIST+3
>> SAVE 11*, 3+2*, DFN+6*, ONE+2*, EXIST+7, DECOM+3
>> SEE OPT+2*, 11*, 12+2*, 3+2*, DFN+5*, ONE+2*, NOPE+1
>> TMTD EXIST+3*, EXIST+6, DECOM+3
TOUR AUTOPINI+12~, AUTOPINI+25*, AUTOPINI+28
VAL EXIST+1!
VALOLD EXIST+1!*
>> X PRS8+13*, PRS8+14, PRS8+15, CKPY+4, CKPY+5*, CKPY+7*
>> X1 CKPY+4*, CKPY+6*
>> X2 CKPY+4*, CKPY+6*
>> Y OPT+2, PY+2, EMP+2

Marked Items

Name Field # of Occurrence
$T(@I PRS8+13
$T(ER+E NOPE+1
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 |  Naked Globals |  Local Variables |  Marked Items  | All