UpdateEmployeeJobServer

Update Employee Job (F060118) Server

Major Business Rule

Object Name: N0800020

Parent DLL: CFND

Location: Client/Server

Language: NER

Functional Description
The Named ER keeps the primary job record in F060118 in sync with the employee master record.

Important Note:  For Release B731, we are not supporting multiple jobs for an employee.  As such, updating of secondary 
jobs with the primary job pay stops date, is not programmed in the Named ER as of yet.

Setup Notes
  This Named ER should only be called AFTER the employee master (F060116) has already been 
updated with the change.


Technical Specifications

Parameters

Data Item Data Structure DescriptionI/ORequired  TableNotes
AN8mnEmployeeNoIR
EFTOjdDateEffectiveOnIDefault today's date if not passed in
TRSszChangeReasonIRNot sure what the purpose of this, but it is 
in World data structure of the update F060118 server
PIDszCallingProgramIR

Related Tables 

Table Table Description

Processing

If jdDateEffectiveOn = 0, default today's date in jdDateEffectiveOn

Retrieve Employee Master by key, mnAddressNumber, getting most of the fields which are also in the Employee Job table, F060118

Retrieve Employee Primay Job by keys, mnAddressNumber and PrimaryJobFlag of 'P, getting the similar fields as the Employee Master.

//Update/Write F060118//
If the retrieval of the employee primary job is unsuccessful
    Insert F060118, updating the file with values from the employee master,  audit information,
           szCallingProgram and jdDateEffectiveOn
Else
    Check field by field, the value of  the employee master against the value of the primary job.

    If any of the fields is different
         Update primary job record F060118 with values from the employee maser, audit information,
                 szCallingProgram and jdDateEffectiveOn
    End If
End If          

//Update/Write employee job history, F060119//
If the employee master and employee primary job records are out of sync
    Retrieve F060119 by keys, mnEmployeeNo, YAHMCU, YAJBCD, YAJBST, YATRS, and
            jdDateEffectiveOn      
    if the retrieval is successful
         Update F060119 with corresponding values from the employee master, audit information,
               szCallingProgram, and jdDateEffectiveOn
    else
         Insert F060119 with corresponding values from the employee master, audit information,
               szCallingProgram, and jdDateEffectiveOn
    end if
End If