DECLARE
  IN_BO_TABLE_NAME             VARCHAR2(40);
  IN_XREF_LIST_TO_BE_DELETED   VARCHAR2(40);
  IN_RECALCULATE_BVT_IND       NUMBER;
  IN_ALLOW_CASCADE_DELETE      NUMBER;
  IN_CASCADE_CHILD_SYSTEM_XREF NUMBER;
  IN_OVERRIDE_HISTORY_IND      NUMBER;
  IN_PURGE_HISTORY_IND         NUMBER;
  IN_USER_NAME                 VARCHAR2(100);
  IN_ALLOW_COMMIT_IND          NUMBER;
  OUT_DELETED_XREF_COUNT       NUMBER;
  OUT_DELETED_BO_COUNT         NUMBER;
  OUT_TMP_TABLE_LIST           VARCHAR2(32000);
  OUT_ERROR_MESSAGE            VARCHAR2(1024);
  OUT_RETURN_CODE              NUMBER;
BEGIN
  IN_BO_TABLE_NAME             := 'C_CUSTOMER';
  IN_XREF_LIST_TO_BE_DELETED   := 'TMP_DELETE_KEYS';
  OUT_DELETED_XREF_COUNT       := NULL;
  OUT_DELETED_BO_COUNT         := NULL;
  OUT_TMP_TABLE_LIST           := NULL;
  OUT_ERROR_MESSAGE            := NULL;
  OUT_RETURN_CODE              := NULL;
  IN_RECALCULATE_BVT_IND       := 1;
  IN_ALLOW_CASCADE_DELETE      := 1;
  IN_CASCADE_CHILD_SYSTEM_XREF := 0;
  IN_OVERRIDE_HISTORY_IND      := 0;
  IN_PURGE_HISTORY_IND         := 0;
  IN_USER_NAME                 := 'ADMIN';
  IN_ALLOW_COMMIT_IND          := 0;

  --
  BEGIN 
    EXECUTE IMMEDIATE 'DROP TABLE ' || IN_XREF_LIST_TO_BE_DELETED; 
    EXCEPTION WHEN OTHERS THEN 
    DBMS_OUTPUT.PUT_LINE(' SQLERRM = ' || SQLERRM); 
  END; 
  --
  EXECUTE IMMEDIATE 'CREATE TABLE ' || IN_XREF_LIST_TO_BE_DELETED
                 || ' AS SELECT PKEY_SRC_OBJECT, ROWID_SYSTEM FROM '
                 || IN_BO_TABLE_NAME 
                 || '_XREF WHERE ROWID_SYSTEM = ''SALES'''; 
  --
  CMXDM.HUB_DELETE_BATCH(IN_BO_TABLE_NAME,
                         IN_XREF_LIST_TO_BE_DELETED,
                         OUT_DELETED_XREF_COUNT,
                         OUT_DELETED_BO_COUNT,
                         OUT_ERROR_MESSAGE,
                         OUT_RETURN_CODE,
                         OUT_TMP_TABLE_LIST,
                         IN_RECALCULATE_BVT_IND,
                         IN_ALLOW_CASCADE_DELETE,
                         IN_CASCADE_CHILD_SYSTEM_XREF,
                         IN_OVERRIDE_HISTORY_IND,
                         IN_PURGE_HISTORY_IND,
                         IN_USER_NAME,
                         IN_ALLOW_COMMIT_IND);
  DBMS_OUTPUT.PUT_LINE(' RETURN CODE IS ' || OUT_RETURN_CODE);
  DBMS_OUTPUT.PUT_LINE(' MESSAGE IS ' || OUT_ERROR_MESSAGE);
  DBMS_OUTPUT.PUT_LINE(' XREF RECORDS DELETED: ' || OUT_DELETED_XREF_COUNT);
  DBMS_OUTPUT.PUT_LINE(' BO RECORDS DELETED: ' || OUT_DELETED_BO_COUNT);
  
  IF OUT_RETURN_CODE < 0 THEN
    ROLLBACK;
  ELSE
    COMMIT;
  END IF;

  CMXUT.DROP_TABLE_IN_LIST(OUT_TMP_TABLE_LIST,
                           OUT_ERROR_MESSAGE,
                           OUT_RETURN_CODE); --
clean up temporary tables 
END;
/