1: PACKAGE BODY EDW_DB_STATUS as
2: /* $Header: EDWDBSTB.pls 115.11 2003/09/16 13:59:57 smulye ship $ */
3:
4: /*===========================================================================*/
5:
398:
399: -- Check to see if the link points to itself
400:
401:
402: IF ( edw_db_status.is_dblink_to_itself(l_db_link) = FALSE ) THEN
403:
404: l_progress := '030';
405:
406: l_sql_stmt:=' DELETE '||p_table_name||'@'||l_db_link;
465: FETCH instances INTO l_db_link;
466:
467: -- Check to see if the link points to itself
468:
469: IF ( edw_db_status.is_dblink_to_itself(l_db_link) = FALSE ) THEN
470: l_progress := '020';
471:
472: l_sql_stmt:=' DELETE '||p_table_name||'@'||l_db_link;
473:
535:
536: END is_dblink_to_itself;
537:
538:
539: END EDW_DB_STATUS;