Routine: PRS8

Information

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

Source file <PRS8.m>

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

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