The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT COUNT(*) INTO l_interface_exist
FROM BNE_INTERFACES_B
WHERE APPLICATION_ID = p_application_id
AND INTERFACE_CODE = p_interface_code;
SELECT COUNT(*) INTO l_integrator_exist
FROM BNE_INTEGRATORS_B
WHERE APPLICATION_ID = p_application_id
AND INTEGRATOR_CODE = p_integrator_code;
SELECT COUNT(*) INTO l_dup_profile_exist
FROM BNE_DUPLICATE_PROFILES_B
WHERE APPLICATION_ID = p_application_id
AND DUP_PROFILE_CODE = p_dup_profile_code;
SELECT SEQUENCE_NUM INTO l_interface_col_seq_num
FROM BNE_INTERFACE_COLS_B
WHERE APPLICATION_ID = p_application_id
AND INTERFACE_CODE = p_interface_code
AND INTERFACE_COL_NAME = p_interface_col_name;
BNE_INTERFACE_KEYS_PKG.INSERT_ROW(
X_ROWID => l_rowid,
X_APPLICATION_ID => p_application_id,
X_KEY_CODE => p_interface_code||'_U1',
X_OBJECT_VERSION_NUMBER => 1,
X_INTERFACE_APP_ID => p_application_id,
X_INTERFACE_CODE => p_interface_code,
X_KEY_TYPE => 'DUP_UNIQUE',
X_KEY_CLASS => p_key_class,
X_CREATED_BY => p_user_id,
X_CREATION_DATE => SYSDATE,
X_LAST_UPDATED_BY => p_user_id,
X_LAST_UPDATE_LOGIN => 0,
X_LAST_UPDATE_DATE => SYSDATE);
SELECT NVL((MAX(SEQUENCE_NUM) + 1), 1) INTO l_sequence_num
FROM BNE_INTERFACE_KEY_COLS
WHERE INTERFACE_APP_ID = p_application_id
AND INTERFACE_CODE = p_interface_code;
BNE_INTERFACE_KEY_COLS_PKG.INSERT_ROW(
X_ROWID => l_rowid,
X_APPLICATION_ID => p_application_id,
X_KEY_CODE => p_interface_code||'_U1',
X_SEQUENCE_NUM => l_sequence_num,
X_OBJECT_VERSION_NUMBER => 1,
X_INTERFACE_APP_ID => p_application_id,
X_INTERFACE_CODE => p_interface_code,
X_INTERFACE_SEQ_NUM => l_interface_col_seq_num,
X_CREATED_BY => p_user_id,
X_CREATION_DATE => SYSDATE,
X_LAST_UPDATED_BY => p_user_id,
X_LAST_UPDATE_LOGIN => 0,
X_LAST_UPDATE_DATE => SYSDATE);
SELECT application_id, interface_code
FROM bne_interfaces_b
WHERE integrator_app_id = P_APP_ID
AND integrator_code = P_CODE;
BNE_DUPLICATE_PROFILES_PKG.INSERT_ROW(
X_ROWID => l_rowid,
X_APPLICATION_ID => p_dup_profile_app_id,
X_DUP_PROFILE_CODE => P_dup_profile_code,
X_OBJECT_VERSION_NUMBER => 1,
X_INTEGRATOR_APP_ID => p_integrator_app_id,
X_INTEGRATOR_CODE => p_integrator_code,
X_USER_NAME => p_user_name,
X_CREATED_BY => p_user_id,
X_CREATION_DATE => SYSDATE,
X_LAST_UPDATED_BY => p_user_id,
X_LAST_UPDATE_LOGIN => 0,
X_LAST_UPDATE_DATE => SYSDATE);
BNE_DUP_INTERFACE_PROFILES_PKG.INSERT_ROW(
X_ROWID => l_rowid,
X_INTERFACE_APP_ID => interface_rec.application_id,
X_INTERFACE_CODE => interface_rec.interface_code,
X_DUP_PROFILE_APP_ID => p_dup_profile_app_id,
X_DUP_PROFILE_CODE => p_dup_profile_code,
X_OBJECT_VERSION_NUMBER => 1,
X_DUP_HANDLING_CODE => p_dup_handling_code,
X_DEFAULT_RESOLVER_CLASSNAME => p_default_resolver_classname,
X_CREATED_BY => p_user_id,
X_CREATION_DATE => SYSDATE,
X_LAST_UPDATED_BY => p_user_id,
X_LAST_UPDATE_LOGIN => 0,
X_LAST_UPDATE_DATE => SYSDATE);
SELECT OBJECT_VERSION_NUMBER INTO l_object_version_number
FROM BNE_DUP_INTERFACE_COLS
WHERE INTERFACE_APP_ID = p_interface_app_id
AND INTERFACE_CODE = p_interface_code
AND DUP_PROFILE_APP_ID = p_dup_profile_app_id
AND DUP_PROFILE_CODE = p_dup_profile_code
AND INTERFACE_SEQ_NUM = l_interface_col_seq_num;
BNE_DUP_INTERFACE_COLS_PKG.UPDATE_ROW(
X_INTERFACE_APP_ID => p_interface_app_id,
X_INTERFACE_CODE => p_interface_code,
X_DUP_PROFILE_APP_ID => p_dup_profile_app_id,
X_DUP_PROFILE_CODE => p_dup_profile_code,
X_INTERFACE_SEQ_NUM => l_interface_col_seq_num,
X_OBJECT_VERSION_NUMBER => l_object_version_number + 1,
X_RESOLVER_CLASSNAME => p_resolver_classname,
X_LAST_UPDATED_BY => p_user_id,
X_LAST_UPDATE_LOGIN => 0,
X_LAST_UPDATE_DATE => SYSDATE);
BNE_DUP_INTERFACE_COLS_PKG.INSERT_ROW(
X_ROWID => l_rowid,
X_INTERFACE_APP_ID => p_interface_app_id,
X_INTERFACE_CODE => p_interface_code,
X_DUP_PROFILE_APP_ID => p_dup_profile_app_id,
X_DUP_PROFILE_CODE => p_dup_profile_code,
X_INTERFACE_SEQ_NUM => l_interface_col_seq_num,
X_OBJECT_VERSION_NUMBER => 1,
X_RESOLVER_CLASSNAME => p_resolver_classname,
X_CREATED_BY => p_user_id,
X_CREATION_DATE => SYSDATE,
X_LAST_UPDATED_BY => p_user_id,
X_LAST_UPDATE_LOGIN => 0,
X_LAST_UPDATE_DATE => SYSDATE);
PROCEDURE DELETE_DUPLICATE_PROFILE
(p_dup_profile_app_id IN NUMBER,
p_dup_profile_code IN VARCHAR2
)
IS
BEGIN
VALIDATE_DUP_PROFILE_KEY(p_dup_profile_app_id, p_dup_profile_code);
DELETE FROM BNE_DUP_INTERFACE_COLS
WHERE DUP_PROFILE_APP_ID = p_dup_profile_app_id
AND DUP_PROFILE_CODE = p_dup_profile_code;
DELETE FROM BNE_DUP_INTERFACE_PROFILES
WHERE DUP_PROFILE_APP_ID = p_dup_profile_app_id
AND DUP_PROFILE_CODE = p_dup_profile_code;
BNE_DUPLICATE_PROFILES_PKG.DELETE_ROW(
X_APPLICATION_ID => p_dup_profile_app_id,
X_DUP_PROFILE_CODE => p_dup_profile_code);
END DELETE_DUPLICATE_PROFILE;
DELETE FROM BNE_INTERFACE_KEY_COLS
WHERE INTERFACE_APP_ID = p_interface_app_id
AND INTERFACE_CODE = p_interface_code;
DELETE FROM BNE_INTERFACE_KEYS
WHERE INTERFACE_APP_ID = p_interface_app_id
AND INTERFACE_CODE = p_interface_code;