ITEM CLASSIFICATION FOR TAX LOAD DATA

/* Formatted on 2017/02/25 15:35 (Formatter Plus v4.8.8) */
DECLARE
   rgm_item_regns_id   NUMBER;
   lv_userid           NUMBER := 44423;

   CURSOR cur
   IS
      SELECT *
        FROM xxjai_header_rgm_item_reg;

   CURSOR curr (t_item_id NUMBER)
   IS
      SELECT *
        FROM xxjai_rgm_itm_tmpl_attrs
       WHERE l_item_id = t_item_id;
BEGIN
   FOR i IN cur
   LOOP
      SELECT jai_rgm_itm_regns_s.NEXTVAL rgm_item_regns_id
        INTO rgm_item_regns_id
        FROM DUAL;

      INSERT INTO jai_rgm_itm_regns
                  (rgm_item_regns_id, regime_code, organization_id,
                   inventory_item_id, creation_date, created_by,
                   last_update_date, last_updated_by
                  )
           VALUES (rgm_item_regns_id, i.xxegime_code, i.xxorganization_id,
                   i.xx_item_id, SYSDATE, lv_userid,
                   SYSDATE, lv_userid
                  );

      FOR l IN curr (i.xx_item_id)
      LOOP
         INSERT INTO jai_rgm_itm_tmpl_attrs
                     (itm_templ_attribute_id, template_id,
                      rgm_item_regns_id, attribute_code,
                      attribute_value, creation_date, created_by,
                      last_update_date, last_updated_by
                     )
              VALUES (jai_rgm_itm_tmpl_attrs_s.NEXTVAL, NULL,
                      rgm_item_regns_id, l.attribute_code,
                      l.attribute_value, SYSDATE, lv_userid,
                      SYSDATE, lv_userid
                     );

         COMMIT;
      END LOOP;
   END LOOP;

   COMMIT;
END;

Delete Executable And Concurrent Program From Back End

declare

cursor c1 is
select fcp.CONCURRENT_PROGRAM_NAME,fa.APPLICATION_SHORT_NAME from fnd_concurrent_programs fcp,fnd_application fa
where fcp.APPLICATION_ID=fa.APPLICATION_ID
and fcp.CONCURRENT_PROGRAM_NAME='XX_PROJECT_DETAIL';

Begin
     for r1 in c1 loop
                 IF (FND_PROGRAM.PROGRAM_EXISTS
                             (program                  =>r1.CONCURRENT_PROGRAM_NAME
                             ,application              => r1.APPLICATION_SHORT_NAME ))
                         THEN
                              FND_PROGRAM.DELETE_PROGRAM(r1.CONCURRENT_PROGRAM_NAME, r1.APPLICATION_SHORT_NAME);
                                                                                   ---  Short Name of Conc Program  , ---  Application Name
                              FND_PROGRAM.DELETE_EXECUTABLE(r1.CONCURRENT_PROGRAM_NAME,r1.APPLICATION_SHORT_NAME );  
                                                                       ----  Short Name of Excutable Program  , ---  Application Name
                         commit;
                   END IF;                                        ---  Requst group Application Name
                 
 
 end loop;
end;

Create Value Set From Back End

Begin

FND_FLEX_VAL_API.CREATE_VALUESET_TABLE
(
 VALUE_SET_NAME =>'TEI_PROJECT_NO',
 DESCRIPTION =>'createdfrombackend',
 SECURITY_AVAILABLE =>'N',
 ENABLE_LONGLIST =>'N',
 FORMAT_TYPE   =>'Char',
 MAXIMUM_SIZE =>30,
 precision => NULL,
 numbers_only =>'N',
 uppercase_only  =>'N',
 right_justify_zero_fill =>'N',
 min_value  => NULL,
 MAX_VALUE   => NULL,
 TABLE_APPLICATION => 'Projects',
 table_appl_short_name =>'' ,
 TABLE_NAME =>'pa_projects_all PPA',
 ALLOW_PARENT_VALUES =>'N',
 VALUE_COLUMN_NAME =>'PPA.SEGMENT1',
 VALUE_COLUMN_TYPE  =>'Char',
 value_column_size  =>30,
 meaning_column_name  =>'PPA.NAME',
 meaning_column_type  => 'Char',
 MEANING_COLUMN_SIZE  => 30,
 ID_COLUMN_NAME    =>'PPA.PROJECT_ID',--'PRH.SEGMENT1',
 ID_COLUMN_TYPE   =>'NUMBER',--'Char',
 ID_COLUMN_SIZE   =>30,--u20,
 WHERE_ORDER_BY    =>'',
 ADDITIONAL_COLUMNS => NULL
  );
 Commit;
  Exception
  WHEN OTHERS THEN
  dbms_output.put_line(sqlerrm);
  end;