API to Create QuickPay

DECLARE

   l_business_group_id         NUMBER := 82;

   l_assignment_id             NUMBER := 7830;

   l_consolidation_set_id      NUMBER := 62;

   l_effective_date            DATE := '30-NOV-2014';

   l_payroll_action_id         NUMBER := NULL;

   l_p_object_version_number   NUMBER := NULL;

   l_assignment_action_id      NUMBER := NULL;

   l_a_object_version_number   NUMBER := NULL;

   l_status                    VARCHAR2 (500) := 'START';

BEGIN

   --Initialize Session

   fnd_global.

    apps_initialize (user_id => 1091,                                -- BIJOYJ

                                     resp_id => 50717, -- XXX HRMS Super User

                                                      resp_appl_id => 800 -- Human Resources

                                                                         );

   pay_qpq_api.ins (p_business_group_id         => l_business_group_id,

                    p_assignment_id             => l_assignment_id,

                    p_consolidation_set_id      => l_consolidation_set_id,

                    p_effective_date            => l_effective_date,

                    p_date_earned               => l_effective_date,

                    p_pay_advice_message        => 'Hew Hire QP',

                    p_payroll_action_id         => l_payroll_action_id,

                    p_p_object_version_number   => l_p_object_version_number,

                    p_assignment_action_id      => l_assignment_action_id,

                    p_a_object_version_number   => l_a_object_version_number);

   COMMIT;

   DBMS_OUTPUT.put_line ('l_payroll_action_id: ' || l_payroll_action_id);

   DBMS_OUTPUT.

    put_line ('l_assignment_action_id: ' || l_assignment_action_id);

   IF l_payroll_action_id IS NOT NULL AND l_assignment_action_id IS NOT NULL

   THEN

      pay_qpq_api.

       start_quickpay_process (

         p_payroll_action_id         => l_payroll_action_id,

         p_p_object_version_number   => l_p_object_version_number,

         p_a_object_version_number   => l_a_object_version_number,

         p_status                    => l_status);

      COMMIT;

      DBMS_OUTPUT.put_line ('l_status: ' || l_status);

   END IF;

EXCEPTION

   WHEN OTHERS

   THEN

      DBMS_OUTPUT.put_line ('Main Exception: ' || SQLERRM);

END;