Effective date the employee became benefit eligible

Sort:
You are not authorized to post a reply.
Author
Messages
Chesca
Veteran Member
Posts: 490
Veteran Member
    I have a custom program that is incorrectly calculating retro accruals for an employee. I need to modify my code that it looks back to the effective date the employee became benefits eligible to calculate retro accruals. I am thinking about looking in HRHISTORY. Is there any other table/file I can look at to find out the effective date employee became eligible for benefits? Any suggestions?
    jaherb
    Veteran Member
    Posts: 164
    Veteran Member
      Lawson does not store the Benefit Effective date anywhere. Each time you see this date it is recalculated based on the benefit entry rules. You should follow suit and use the same routine that Lawson does. The main routine that does this is located in the bnsrc/bnpdlib. It is named BNED70PD. You need to perform section 5000-ELIGIBILITY-DATE-CALC-70 to use the same logic. You must first have the following tables in memory before the perform... EMPLOYEE record, PAEMPLOYEE record plus the particular plan record, PLAN.

      This has always worked for me and is easy to use. You will be guaranteed that you will be using the same Lawson logic and not need to devise your own.  The output from this routine or the BN Eligibility Date will be stored in a field called BNEDWS-ELIGIBILITY-DATE.

      An example of doing this is as follows...

      034600**** CALCULATE ELIGIBILITY DATE

      034700*

      034800       MOVE FLD-COMPANY     TO BNEDWS-COMPANY.

      034900       MOVE             TO BNEDWS-PLAN-TYPE.

      035000       MOVE           TO BNEDWS-PLAN-CODE.

      035100       MOVE EMP-EMPLOYEE    TO BNEDWS-EMPLOYEE.

      035200       MOVE FLD-START-DATE TO BNEDWS-AS-OF-DATE.

      035300       PERFORM 5000-ELIGIBILITY-DATE-CALC-70.

      .
      .

      027100        MOVE BNEDWS-ELIGIBILITY-DATE TO ?????????

      Chesca
      Veteran Member
      Posts: 490
      Veteran Member
        Great, I will code as suggested as soon as I get a chance and let you know how it goes. Ok I ran into an issue and get the following error: BNEDWS-COMPANY Not Defined In Specified WS

        I think it this is because I am adding the code in a Library (LPCUSTOMPD) and not the program that calls this library.
        You are not authorized to post a reply.