Script to Import CRM Resource

DECLARE
   l_jtf_person_id      NUMBER;                              /*Assign Value*/
   l_jtf_user_id        NUMBER;                              /*Assign Value*/
   l_user_name          VARCHAR2 (20);                       /*Assign Value*/
   lc_jtf_full_name     VARCHAR2 (50);                       /*Assign Value*/
   l_employee_number    VARCHAR2 (20);                       /*Assign Value*/
   l_first_name         VARCHAR2 (50);                       /*Assign Value*/
   l_last_name          VARCHAR2 (50);                       /*Assign Value*/
   l_jtf_bus_group_id   NUMBER;                              /*Assign Value*/
   ln_resource_id       jtf_rs_resource_extns.resource_id%TYPE;
   lc_resource_number   jtf_rs_resource_extns.resource_number%TYPE;
   lc_msg_data          VARCHAR2 (5000);
   ln_msg_count         NUMBER;
   lc_return_status     VARCHAR2 (1);
BEGIN
   jtf_rs_resource_pub.create_resource
                             (p_api_version                 => 1.0,
                              p_category                    => 'EMPLOYEE',
                              p_start_date_active           => SYSDATE,
                              p_source_id                   => l_jtf_person_id,
                              p_user_id                     => l_jtf_user_id,
                              p_user_name                   => l_user_name,
                              p_resource_name               => lc_jtf_full_name,
                              p_source_number               => l_employee_number,
                              p_source_name                 => lc_jtf_full_name,
                              p_source_first_name           => l_first_name,
                              p_source_last_name            => l_last_name,
                              p_source_business_grp_id      => l_jtf_bus_group_id,
                              x_return_status               => lc_return_status,
                              x_msg_count                   => ln_msg_count,
                              x_msg_data                    => lc_msg_data,
                              x_resource_id                 => ln_resource_id,
                              x_resource_number             => lc_resource_number
                             );
   COMMIT;

   DBMS_OUTPUT.put_line (   'JTF Resource Created for'
                         || lc_jtf_full_name
                         || ','
                         || lc_resource_number
                        );
EXCEPTION
   WHEN OTHERS
   THEN

      DBMS_OUTPUT.put_line ('Error in JTF Resource creation ' || SQLERRM);
END;