The following lines contain the word 'select', 'insert', 'update' or 'delete':
PROCEDURE Delete_Procedure_Related(
p_assess_procedure_id IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Procedure_Related';
SAVEPOINT Delete_Procedure_Related;
delete from AMW_ASSESS_PROCEDURE_STEPS_TL
where ASSESS_PROCEDURE_STEP_ID IN (
select ASSESS_PROCEDURE_STEP_ID
from AMW_ASSESS_PROCEDURE_STEPS_B
where ASSESS_PROCEDURE_ID = p_assess_procedure_id
);
delete from AMW_ASSESS_PROCEDURE_STEPS_B
where ASSESS_PROCEDURE_ID = p_assess_procedure_id;
delete from AMW_ASSESS_PROCEDURES_TL
where ASSESS_PROCEDURE_ID = p_assess_procedure_id;
delete from AMW_ASSESS_PROCEDURES_B
where ASSESS_PROCEDURE_ID = p_assess_procedure_id;
ROLLBACK TO Delete_Procedure_Related;
ROLLBACK TO Delete_Procedure_Related;
p_procedure_name => 'Delete_Procedure_Related',
p_error_text => SUBSTRB(SQLERRM,1,240));
END Delete_Procedure_Related;
PROCEDURE Delete_Assessment_Related(
p_assessment_id IN NUMBER,
p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
p_commit IN VARCHAR2 := FND_API.G_FALSE,
p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
L_API_NAME CONSTANT VARCHAR2(30) := 'Delete_Procedure_Related';
SAVEPOINT Delete_Procedure_Related;
DELETE FROM AMW_ASSESS_PROCEDURE_ASSOCS WHERE OBJECT_TYPE='ASSESSMENT' AND PK1=p_assessment_id;
DELETE FROM AMW_ASSESSMENT_CONTEXTS WHERE ASSESSMENT_ID = p_assessment_id;
DELETE FROM AMW_SURVEY_ASSOCS WHERE OBJECT_TYPE='ASSESSMENT' AND OBJECT_ID=p_assessment_id;
DELETE FROM AMW_ASSESSMENT_COMPONENTS WHERE OBJECT_TYPE='ASSESSMENT' AND OBJECT_ID=p_assessment_id;
FND_ATTACHED_DOCUMENTS2_PKG.delete_attachments('AMW_ASSESSMENT',
p_assessment_id,
null,
null,
null,
null,
'N',
null);
ROLLBACK TO Delete_Assessment_Related;
ROLLBACK TO Delete_Assessment_Related;
p_procedure_name => 'Delete_Assessment_Related',
p_error_text => SUBSTRB(SQLERRM,1,240));
END Delete_Assessment_Related;