The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE UPDATE_OBJECT_WITH_ERROR(p_ctxt IN VARCHAR2,
p_object_id IN NUMBER,
p_message IN VARCHAR2)
IS
l_msg VARCHAR2(4000);
UPDATE fnd_oam_dscfg_objects
SET errors_found_flag = FND_API.G_TRUE,
message = l_msg
WHERE object_id = p_object_id;
PROCEDURE UPDATE_OBJECT_WITH_ERROR(p_ctxt IN VARCHAR2,
p_object_id IN NUMBER,
p_error_code IN NUMBER,
p_error_msg IN VARCHAR2)
IS
l_msg VARCHAR2(4000);
UPDATE_OBJECT_WITH_ERROR(p_ctxt,
p_object_id,
l_msg);
PROCEDURE UPDATE_OBJECT_WITH_WARNING(p_ctxt IN VARCHAR2,
p_object_id IN NUMBER,
p_message IN VARCHAR2)
IS
l_msg VARCHAR2(4000);
UPDATE fnd_oam_dscfg_objects
SET errors_found_flag = NULL,
message = l_msg
WHERE object_id = p_object_id;
PROCEDURE UPDATE_OBJECT_WITH_SUCCESS(p_ctxt IN VARCHAR2,
p_object_id IN NUMBER)
IS
BEGIN
UPDATE fnd_oam_dscfg_objects
SET errors_found_flag = FND_API.G_FALSE,
message = NULL
WHERE object_id = p_object_id;
SELECT owner as trigger_owner, trigger_name
FROM dba_triggers
WHERE table_owner = p_table_owner
AND table_name = p_table_name
AND status = 'ENABLED';
UPDATE_OBJECT_WITH_ERROR(l_ctxt,
l_object_id,
SQLCODE,
SQLERRM);
UPDATE_OBJECT_WITH_SUCCESS(l_ctxt,
l_object_ids(k));
UPDATE_OBJECT_WITH_ERROR(l_ctxt,
l_object_ids(k),
SQLCODE,
SQLERRM);
UPDATE_OBJECT_WITH_ERROR(l_ctxt,
l_object_id,
SQLCODE,
SQLERRM);
UPDATE_OBJECT_WITH_SUCCESS(l_ctxt,
l_object_ids(k));
UPDATE_OBJECT_WITH_ERROR(l_ctxt,
l_object_ids(k),
SQLCODE,
SQLERRM);