EBS R12 script to retry-rewind error workflows after uploading balances

 DECLARE

    l_result VARCHAR2(100);

BEGIN

    FOR r IN

    (

        SELECT DISTINCT wias.item_key,

                hat.transaction_id,

                hat.creation_date,

                ppf.full_name,

                paaf.assignment_id,

                paaf.payroll_id 

  FROM wf_item_activity_statuses_v  wias,

       hr_api_transactions          hat,

       per_all_people_f             ppf,

       per_all_assignments_f        paaf

 WHERE     wias.item_type = 'HRSSA'

       AND HAT.PROCESS_NAME = 'HR_GENERIC_APPROVAL_PRC' 

       AND TO_CHAR (hat.item_key) = wias.item_key

       AND hat.selected_person_id = ppf.person_id

       AND ppf.person_id = paaf.person_id

       AND paaf.primary_flag = 'Y'

       AND paaf.payroll_id = 192

       AND hat.ITEM_KEY = '697741'

       AND ACTIVITY_LABEL = 'HR_HR_COMMAPPLERR_V4_NTF'

       AND hat.creation_date BETWEEN TO_DATE ('01-JAN-2026', 'DD-MON-YYYY')

                                 AND TO_DATE ('31-DEC-2026 23:59:59',

                                              'DD-MON-YYYY HH24:MI:SS')

       AND hat.creation_date BETWEEN ppf.effective_start_date

                                 AND ppf.effective_end_date

       AND hat.creation_date BETWEEN paaf.effective_start_date

                                 AND paaf.effective_end_date

    )

    LOOP

        BEGIN

            wf_engine.handleerror

            (

                itemtype  => 'HRSSA',

                itemkey   => r.item_key,

                activity  => 'HR_COMMIT_TRANSACTION_V4_FCT',

                command   => 'RETRY',

                result    => l_result

            );

            dbms_output.put_line

            (

                'SUCCESS => Item Key : ' || r.item_key ||

                ' Result : ' || l_result

            );

            COMMIT;

        EXCEPTION

            WHEN OTHERS THEN

                dbms_output.put_line

                (

                    'FAILED => Item Key : ' || r.item_key ||

                    ' Error : ' || SQLERRM

                );

        END;

    END LOOP;

END;

/