23: -- ie. assessProcedure, assessProcedureStep
24: -- ===============================================================
25: PROCEDURE Delete_Procedure_Related(
26: p_assess_procedure_id IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
28: p_commit IN VARCHAR2 := FND_API.G_FALSE,
29: p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
30: x_return_status OUT NOCOPY VARCHAR2,
31: x_msg_count OUT NOCOPY NUMBER,
24: -- ===============================================================
25: PROCEDURE Delete_Procedure_Related(
26: p_assess_procedure_id IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
28: p_commit IN VARCHAR2 := FND_API.G_FALSE,
29: p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
30: x_return_status OUT NOCOPY VARCHAR2,
31: x_msg_count OUT NOCOPY NUMBER,
32: x_msg_data OUT NOCOPY VARCHAR2
25: PROCEDURE Delete_Procedure_Related(
26: p_assess_procedure_id IN NUMBER,
27: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
28: p_commit IN VARCHAR2 := FND_API.G_FALSE,
29: p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
30: x_return_status OUT NOCOPY VARCHAR2,
31: x_msg_count OUT NOCOPY NUMBER,
32: x_msg_data OUT NOCOPY VARCHAR2
33: ) IS
36: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
37:
38: BEGIN
39: -- create savepoint if p_commit is true
40: IF p_commit = FND_API.G_TRUE THEN
41: SAVEPOINT Delete_Procedure_Related;
42: END IF;
43:
44: x_return_status := G_RET_STS_SUCCESS;
62:
63: END IF; -- end of if: p_assess_procedure_id IS NOT NULL
64:
65: EXCEPTION
66: WHEN FND_API.G_EXC_ERROR THEN
67: IF p_commit = FND_API.G_TRUE THEN
68: ROLLBACK TO Delete_Procedure_Related;
69: END IF;
70:
63: END IF; -- end of if: p_assess_procedure_id IS NOT NULL
64:
65: EXCEPTION
66: WHEN FND_API.G_EXC_ERROR THEN
67: IF p_commit = FND_API.G_TRUE THEN
68: ROLLBACK TO Delete_Procedure_Related;
69: END IF;
70:
71: x_return_status := FND_API.G_RET_STS_ERROR;
67: IF p_commit = FND_API.G_TRUE THEN
68: ROLLBACK TO Delete_Procedure_Related;
69: END IF;
70:
71: x_return_status := FND_API.G_RET_STS_ERROR;
72: fnd_msg_pub.count_and_get(p_count => x_msg_count,
73: p_data => x_msg_data);
74: WHEN OTHERS THEN
75: IF p_commit = FND_API.G_TRUE THEN
71: x_return_status := FND_API.G_RET_STS_ERROR;
72: fnd_msg_pub.count_and_get(p_count => x_msg_count,
73: p_data => x_msg_data);
74: WHEN OTHERS THEN
75: IF p_commit = FND_API.G_TRUE THEN
76: ROLLBACK TO Delete_Procedure_Related;
77: END IF;
78:
79: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75: IF p_commit = FND_API.G_TRUE THEN
76: ROLLBACK TO Delete_Procedure_Related;
77: END IF;
78:
79: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
80: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AMW_ASSESSMENTS_PVT',
81: p_procedure_name => 'Delete_Procedure_Related',
82: p_error_text => SUBSTRB(SQLERRM,1,240));
83:
97: -- ie. AssessmentProcedure Assoc, Survey, Context, Component
98: -- ===============================================================
99: PROCEDURE Delete_Assessment_Related(
100: p_assessment_id IN NUMBER,
101: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
102: p_commit IN VARCHAR2 := FND_API.G_FALSE,
103: p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
104: x_return_status OUT NOCOPY VARCHAR2,
105: x_msg_count OUT NOCOPY NUMBER,
98: -- ===============================================================
99: PROCEDURE Delete_Assessment_Related(
100: p_assessment_id IN NUMBER,
101: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
102: p_commit IN VARCHAR2 := FND_API.G_FALSE,
103: p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
104: x_return_status OUT NOCOPY VARCHAR2,
105: x_msg_count OUT NOCOPY NUMBER,
106: x_msg_data OUT NOCOPY VARCHAR2
99: PROCEDURE Delete_Assessment_Related(
100: p_assessment_id IN NUMBER,
101: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
102: p_commit IN VARCHAR2 := FND_API.G_FALSE,
103: p_validate_only IN VARCHAR2 := FND_API.G_FALSE,
104: x_return_status OUT NOCOPY VARCHAR2,
105: x_msg_count OUT NOCOPY NUMBER,
106: x_msg_data OUT NOCOPY VARCHAR2
107: ) IS
110: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
111:
112: BEGIN
113: -- create savepoint if p_commit is true
114: IF p_commit = FND_API.G_TRUE THEN
115: SAVEPOINT Delete_Procedure_Related;
116: END IF;
117:
118: x_return_status := G_RET_STS_SUCCESS;
141: null);
142: END IF; -- end of if: p_assessment_id IS NOT NULL
143:
144: EXCEPTION
145: WHEN FND_API.G_EXC_ERROR THEN
146: IF p_commit = FND_API.G_TRUE THEN
147: ROLLBACK TO Delete_Assessment_Related;
148: END IF;
149:
142: END IF; -- end of if: p_assessment_id IS NOT NULL
143:
144: EXCEPTION
145: WHEN FND_API.G_EXC_ERROR THEN
146: IF p_commit = FND_API.G_TRUE THEN
147: ROLLBACK TO Delete_Assessment_Related;
148: END IF;
149:
150: x_return_status := FND_API.G_RET_STS_ERROR;
146: IF p_commit = FND_API.G_TRUE THEN
147: ROLLBACK TO Delete_Assessment_Related;
148: END IF;
149:
150: x_return_status := FND_API.G_RET_STS_ERROR;
151: fnd_msg_pub.count_and_get(p_count => x_msg_count,
152: p_data => x_msg_data);
153: WHEN OTHERS THEN
154: IF p_commit = FND_API.G_TRUE THEN
150: x_return_status := FND_API.G_RET_STS_ERROR;
151: fnd_msg_pub.count_and_get(p_count => x_msg_count,
152: p_data => x_msg_data);
153: WHEN OTHERS THEN
154: IF p_commit = FND_API.G_TRUE THEN
155: ROLLBACK TO Delete_Assessment_Related;
156: END IF;
157:
158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
154: IF p_commit = FND_API.G_TRUE THEN
155: ROLLBACK TO Delete_Assessment_Related;
156: END IF;
157:
158: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
159: fnd_msg_pub.add_exc_msg(p_pkg_name => 'AMW_ASSESSMENTS_PVT',
160: p_procedure_name => 'Delete_Assessment_Related',
161: p_error_text => SUBSTRB(SQLERRM,1,240));
162: