5171: INVALID_ARCHIVE_ID_EXCP EXCEPTION;
5172: USER_IS_NULL_EXCP EXCEPTION;
5173:
5174: BEGIN
5175: x_new_archive_id := allocateId('CZ_ARCHIVES_S');
5176: INSERT INTO CZ_ARCHIVES(
5177: ARCHIVE_ID
5178: ,NAME
5179: ,DESCRIPTION
5172: USER_IS_NULL_EXCP EXCEPTION;
5173:
5174: BEGIN
5175: x_new_archive_id := allocateId('CZ_ARCHIVES_S');
5176: INSERT INTO CZ_ARCHIVES(
5177: ARCHIVE_ID
5178: ,NAME
5179: ,DESCRIPTION
5180: ,ARCHIVE_TYPE
5193: ,ARCHIVE_URL
5194: ,PERSISTENT_ARCHIVE_ID
5195: ,DELETED_FLAG
5196: ,DOCUMENTATION_URL
5197: FROM CZ_ARCHIVES
5198: WHERE archive_id = p_archive_id;
5199:
5200: IF SQL%ROWCOUNT = 0 THEN
5201: RAISE INVALID_ARCHIVE_ID_EXCP;
6642: and object_type = 'ARC'
6643: and deleted_flag = '0'
6644: and seeded_flag <> '1';
6645:
6646: UPDATE cz_archives
6647: SET cz_archives.deleted_flag = '1',
6648: cz_archives.name = append_name(p_archive_id, 'ARC', name)
6649: WHERE cz_archives.archive_id = p_archive_id;
6650: ELSE
6643: and deleted_flag = '0'
6644: and seeded_flag <> '1';
6645:
6646: UPDATE cz_archives
6647: SET cz_archives.deleted_flag = '1',
6648: cz_archives.name = append_name(p_archive_id, 'ARC', name)
6649: WHERE cz_archives.archive_id = p_archive_id;
6650: ELSE
6651: x_return_status := l_return_status;
6644: and seeded_flag <> '1';
6645:
6646: UPDATE cz_archives
6647: SET cz_archives.deleted_flag = '1',
6648: cz_archives.name = append_name(p_archive_id, 'ARC', name)
6649: WHERE cz_archives.archive_id = p_archive_id;
6650: ELSE
6651: x_return_status := l_return_status;
6652: x_msg_count := l_msg_count;
6645:
6646: UPDATE cz_archives
6647: SET cz_archives.deleted_flag = '1',
6648: cz_archives.name = append_name(p_archive_id, 'ARC', name)
6649: WHERE cz_archives.archive_id = p_archive_id;
6650: ELSE
6651: x_return_status := l_return_status;
6652: x_msg_count := l_msg_count;
6653: x_msg_data := l_msg_data;