145: -- Initialize the Error Stack
146: PA_DEBUG.init_err_stack('Pa_ci_impacts_util.delete_all_impacts');
147:
148: -- Initialize the return status to success
149: x_return_status := FND_API.G_RET_STS_SUCCESS;
150:
151: --Clear the global PL/SQL message table
152: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
153: FND_MSG_PUB.initialize;
148: -- Initialize the return status to success
149: x_return_status := FND_API.G_RET_STS_SUCCESS;
150:
151: --Clear the global PL/SQL message table
152: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
153: FND_MSG_PUB.initialize;
154: END IF;
155:
156: IF (p_validate_only = 'F') THEN
158: WHERE ci_id = p_ci_id;
159: END IF;
160:
161: -- Commit if the flag is set and there is no error
162: IF (p_commit = 'T' AND x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
163: COMMIT;
164: END IF;
165:
166: -- Reset the error stack when returning to the calling program
267: -- Initialize the Error Stack
268: PA_DEBUG.init_err_stack('Pa_ci_impacts_util.copy_impact');
269:
270: -- Initialize the return status to success
271: x_return_status := FND_API.G_RET_STS_SUCCESS;
272:
273: --Clear the global PL/SQL message table
274: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
275: FND_MSG_PUB.initialize;
270: -- Initialize the return status to success
271: x_return_status := FND_API.G_RET_STS_SUCCESS;
272:
273: --Clear the global PL/SQL message table
274: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
275: FND_MSG_PUB.initialize;
276: END IF;
277:
278: IF p_include_flag = 'Y' THEN
286: -- can not copy
287: PA_UTILS.Add_Message( p_app_short_name => 'PA'
288: ,p_msg_name => 'PA_CI_NO_IMP_INCLUDE_TYPE');
289:
290: x_return_status := FND_API.G_RET_STS_ERROR;
291:
292: CLOSE is_ok_to_copy;
293: RETURN;
294:
403:
404: END IF;
405:
406: -- Commit if the flag is set and there is no error
407: IF (p_commit = 'T' AND x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
408: COMMIT;
409: END IF;
410:
411: -- Reset the error stack when returning to the calling program
435: BEGIN
436:
437:
438: -- Initialize the return status to success
439: x_return_status := FND_API.G_RET_STS_SUCCESS;
440:
441: OPEN get_type_code;
442: FETCH get_type_code INTO l_temp,l_ciid;
443: CLOSE get_type_code;