tldm-universe/CMS/BP.CLOCK/USER
2024-09-10 15:25:06 -04:00

75 lines
3.0 KiB
Plaintext
Executable File

*
* USER FILE LAYOUT
*
* KEY = # (FOUR DIGIT CODE)
*
*
EQU UR$FNAME TO 01
EQU UR$LNAME TO 02
EQU UR$PHONE TO 03
EQU UR$PASSWORD TO 04
EQU UR$DEPT TO 05
*
EQU UR$TYPE.CODE TO 09 ;* F-FULL TIME, P-PART TIME, M-MANAGER
EQU UR$STATUS TO 10 ;* A-ACTIVE, I-INACTIVE
EQU UR$VACATION.AVAIL TO 11 ;* VACATION HOURS AVAIABLE
EQU UR$PERSONAL.AVAIL TO 12 ;* PERSONAL HOURS AVAILABLE
*
EQU UR$REGULAR.HOURS TO 13 ;* REG HOURS WORKED LAST
EQU UR$OT.HOURS TO 14 ;* OT HOURS WORKED
EQU UR$HOLIDAY.HOURS TO 15 ;* MISC HOURS WORKED
EQU UR$VACATION.HOURS TO 16 ;* VACATION HOURS USED
EQU UR$SICK.HOURS TO 17 ;* SICK HOURS USED
EQU UR$FUNERAL.HOURS TO 18
EQU UR$WORKMANS.HOURS TO 19 ;* WORKMANS COMP HOURS
EQU UR$PERSONAL.HOURS TO 20
EQU UR$JURY.DUTY.HOURS TO 21
EQU UR$BONUS.HOURS TO 22
EQU UR$OTHER.HOURS TO 23
EQU UR$TOTAL.HOURS TO 24 ;* TOTAL HOURS IN LAST PAY PERIOD
*
*----- hours for next period processing---*
EQU UR$NEXT.REG TO 25 ;* REG HOURS WORKED LAST
EQU UR$NEXT.OT TO 26 ;* OT HOURS WORKED
EQU UR$NEXT.HOLIDAY TO 27 ;* HOLIDAY HOURS
EQU UR$NEXT.VACATION TO 28 ;* VACATION HOURS USED
EQU UR$NEXT.SICK TO 29 ;* SICK HOURS USED
EQU UR$NEXT.FUNERAL TO 30
EQU UR$NEXT.WORKMANS TO 31 ;* WORKMANS COMP HOURS
EQU UR$NEXT.PERSONAL TO 32
EQU UR$NEXT.JURY TO 33
EQU UR$NEXT.BONUS TO 34
EQU UR$NEXT.OTHER TO 35
EQU UR$NEXT.TOTAL TO 36 ;* TOTAL HOURS IN LAST PAY PERIOD
*
EQU UR$LAST.PAY.DATE TO 37 ;* LAST PAY PERIOD PROCESSED
EQU UR$NEXT.PAY.DATE TO 38 ;* NEXT PAY PERIOD TO PROCESS
EQU UR$LAST.UPDATE TO 39 ;* LAST MANUAL UPDATE
EQU UR$LAST.UPDATE.OPER TO 40 ;* LAST MANUAL UPDATE OPERATOR
EQU UR$HIRE.DATE TO 41
EQU UR$CALC.FACTOR TO 42 ;* CHANGED TO # VACATION DAYS/YEAR
EQU UR$CLOCK.SYSTEM TO 43
EQU UR$USER TO 44
EQU UR$OFF.PROBATION TO 45 ;* date user is off probation (hire +90)
EQU UR$BILL.BILL TO 46 ;* BILLABLE HOURS WORKED
EQU UR$BILL.SERVICE TO 47 ;* HOURS WORKED SERVICE CONTRACTS
EQU UR$BILL.FREE TO 48 ;* HOURS WORKED - FREE
EQU UR$BILL.CLIENT TO 49 ;* CLIENT (MV) BILLABLE HOURS
EQU UR$BILL.CLIENT.HRS TO 50 ;* MV HOURS CORRESPOND WITH BILL.CLIENT
EQU UR$SERVICE.CLIENT.HRS TO 51 ;* MV HOURS CORRESPOND WITH BILL.CLIENT
EQU UR$FREE.CLIENT.HRS TO 52 ;* MV HOURS CORRESPOND WITH BILL.CLIENT
EQU UR$INTERNAL.CALC TO 53
EQU UR$PERSONAL.BEGIN TO 54 ;* DATE PERSONAL TIME BEGINS ACCRUAL
*
EQU UR$SICK.CONV TO 55 ;* SICK AVAIL CONV 05/31/95 TO PERSONAL
EQU UR$PERSONAL.CONV TO 56 ;* NEW PERSONAL CONV (SICK TO PER HOURS)
*-------- perfect attendence attributes ---------------------*
*
* HOURS WORKED + VACATION + HOLIDAY + FUNERAL
*
EQU UR$PERFECT.WEEK.ONE TO 57 ;* HOURS FOR PERFECT ATTND: WEEK ONE
EQU UR$PERFECT.WEEK.TWO TO 58 ;* HOURS '' '' '' WEEK TWO
*
*
EQU UR$JOB.CODE.DEFAULT TO 90 ;* DEFAULT FOR CLOCK-ON JOB