Package Body to add and end responsibility from Stage in Table

/* Formatted on 1/26/2020 11:12:57 AM (QP5 v5.287) */
CREATE OR REPLACE PACKAGE BODY USER_UPDATE
AS
   PROCEDURE update_responsibility
   IS
      CURSOR cur_update_responsibility
      IS
         SELECT user_name u_name,
                responsibility_name resp_name,
                purpose ppose
           FROM xxdbl.xxdbl_update_responsibilities xur
          WHERE xur.flag IS NULL;
   BEGIN
      FOR c_upd_resp IN cur_update_responsibility
      LOOP
         BEGIN
            IF c_upd_resp.ppose = 'ADD'
            THEN
               DECLARE
                  v_user_add   VARCHAR2 (30) := c_upd_resp.u_name; -- User Name
                  v_resp_add   VARCHAR2 (200) := c_upd_resp.resp_name; -- Responsibility Name

                  -- List of responsibilities to be added automatically
                  CURSOR cur_get_responsibilities
                  IS
                     SELECT resp.responsibility_key,
                            resp.responsibility_name,
                            app.application_short_name
                       FROM fnd_responsibility_vl resp, fnd_application app
                      WHERE     resp.application_id = app.application_id
                            AND resp.responsibility_name = v_resp_add;
               BEGIN
                  ----------------------------------------------------------------------------- add responsibiltiy
                  FOR c_get_resp IN cur_get_responsibilities
                  LOOP
                     fnd_user_pkg.addresp (
                        username         => v_user_add,
                        resp_app         => c_get_resp.application_short_name,
                        resp_key         => c_get_resp.responsibility_key,
                        security_group   => 'STANDARD',
                        description      => NULL,
                        start_date       => SYSDATE,
                        end_date         => NULL);
                     DBMS_OUTPUT.put_line (
                           'responsibility '
                        || c_get_resp.responsibility_name
                        || ' added !!!!!!');

                     UPDATE xxdbl.xxdbl_update_responsibilities xur
                        SET xur.flag = 'Y' WHERE c_upd_resp.ppose='ADD' AND xur.RESPONSIBILITY_NAME=c_get_resp.responsibility_name AND xur.flag IS NULL;
                  END LOOP;
               END;

               COMMIT;
            ELSE
               DECLARE
                  v_user_end   VARCHAR2 (30) := c_upd_resp.u_name; -- User Name
                  v_resp_end   VARCHAR2 (200) := c_upd_resp.resp_name; -- Responsibility Name


                  -- List of responsibilities to be end date automatically
                  CURSOR cur_end_responsibilities
                  IS
                     SELECT a.start_date strt_dt,
                            c.responsibility_key res_key,
                            c.responsibility_name res_name,
                            d.application_short_name app_short_name
                       FROM apps.fnd_user_resp_groups_direct a,
                            apps.fnd_user b,
                            fnd_responsibility_vl c,
                            fnd_application_vl d
                      WHERE     a.user_id = b.user_id
                            AND b.user_name = v_user_end
                            AND a.responsibility_id = c.responsibility_id
                            AND a.responsibility_application_id =
                                   c.application_id
                            AND c.application_id = d.application_id
                            AND c.responsibility_name = v_resp_end;
               BEGIN


                  ----------------------------------------------------------------------------- End Responsibiltiy
                  FOR c_end_resp IN cur_end_responsibilities
                  LOOP
                     fnd_user_pkg.addresp (
                        username         => v_user_end,
                        resp_app         => c_end_resp.app_short_name,
                        resp_key         => c_end_resp.res_key,
                        security_group   => 'STANDARD',
                        description      => NULL,
                        start_date       => c_end_resp.strt_dt,
                        end_date         => SYSDATE);
                     DBMS_OUTPUT.put_line (
                           'Responsibility '
                        || c_end_resp.res_name
                        || ' has been terminated !!!!!!');

                       
                     UPDATE xxdbl.xxdbl_update_responsibilities xur
                        SET xur.flag = 'N' WHERE c_upd_resp.ppose='END' AND xur.RESPONSIBILITY_NAME=c_end_resp.res_name AND xur.flag IS NULL;

                  END LOOP;

                  COMMIT;
               EXCEPTION
                  WHEN OTHERS
                  THEN
                     DBMS_OUTPUT.put_line (
                        'Exception : ' || SUBSTR (SQLERRM, 1, 500));
                     ROLLBACK;
               END;
            END IF;
         END;
      END LOOP;
   END;
END USER_UPDATE;
/