12: -- 01-03-2000 dejoseph 'Arcs'ed in for third code freeze. (10-JAN-2000)
13: -- 01-31-2000 dejoseph 'Arcs'ed in for fourth code freeze. (07-FEB-2000)
14: -- 02-13-2000 dejoseph 'Arcs'ed on for fifth code freeze. (21-FEB-2000)
15: -- 02-28-2000 dejoseph 'Arcs'ed on for sixth code freeze. (06-MAR-2000)
16: -- 11-25-2002 bhroy FND_API defaults removed, added WHENEVER OSERROR EXIT FAILURE ROLLBACK
17:
18: -- NOTE :
19: -- End of Comments
20:
87:
88: -- If there is an error in conversion precessing, raise an error.
89: IF l_any_errors
90: THEN
91: raise FND_API.G_EXC_ERROR;
92: END IF;
93:
94: END CONVERT_CSC_PLAN_LINES;
95:
261: -- Standard Start of API savepoint
262: SAVEPOINT CREATE_PLAN_LINES_PUB;
263:
264: -- Standard call to check for call compatibility.
265: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
266: p_api_version_number,
267: l_api_name,
268: G_PKG_NAME)
269: THEN
266: p_api_version_number,
267: l_api_name,
268: G_PKG_NAME)
269: THEN
270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
271: END IF;
272:
273: -- Initialize message list if p_init_msg_list is set to TRUE.
274: IF FND_API.to_Boolean( p_init_msg_list )
270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
271: END IF;
272:
273: -- Initialize message list if p_init_msg_list is set to TRUE.
274: IF FND_API.to_Boolean( p_init_msg_list )
275: THEN
276: FND_MSG_PUB.initialize;
277: END IF;
278:
276: FND_MSG_PUB.initialize;
277: END IF;
278:
279: -- Initialize API return status to SUCCESS
280: x_return_status := FND_API.G_RET_STS_SUCCESS;
281:
282: -- Convert the values to ids
283: CONVERT_CSC_PLAN_LINES (
284: p_CSC_PLAN_LINES_rec => p_CSC_PLAN_LINES_rec,
288: -- Hint: Primary key needs to be returned
289:
290: CSC_PLAN_LINES_PVT.Create_plan_lines(
291: P_Api_Version_Number => 1,
292: P_Init_Msg_List => FND_API.G_FALSE,
293: P_Commit => FND_API.G_FALSE,
294: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
295: P_CSC_PLAN_LINES_Rec => l_pvt_CSC_PLAN_LINES_Rec ,
296: X_LINE_ID => x_LINE_ID,
289:
290: CSC_PLAN_LINES_PVT.Create_plan_lines(
291: P_Api_Version_Number => 1,
292: P_Init_Msg_List => FND_API.G_FALSE,
293: P_Commit => FND_API.G_FALSE,
294: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
295: P_CSC_PLAN_LINES_Rec => l_pvt_CSC_PLAN_LINES_Rec ,
296: X_LINE_ID => x_LINE_ID,
297: X_OBJECT_VERSION_NUMBER => x_OBJECT_VERSION_NUMBER,
290: CSC_PLAN_LINES_PVT.Create_plan_lines(
291: P_Api_Version_Number => 1,
292: P_Init_Msg_List => FND_API.G_FALSE,
293: P_Commit => FND_API.G_FALSE,
294: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
295: P_CSC_PLAN_LINES_Rec => l_pvt_CSC_PLAN_LINES_Rec ,
296: X_LINE_ID => x_LINE_ID,
297: X_OBJECT_VERSION_NUMBER => x_OBJECT_VERSION_NUMBER,
298: X_Return_Status => x_return_status,
299: X_Msg_Count => x_msg_count,
300: X_Msg_Data => x_msg_data);
301:
302: -- Check return status from the above procedure call
303: IF x_return_status = FND_API.G_RET_STS_ERROR then
304: raise FND_API.G_EXC_ERROR;
305: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
306: raise FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
300: X_Msg_Data => x_msg_data);
301:
302: -- Check return status from the above procedure call
303: IF x_return_status = FND_API.G_RET_STS_ERROR then
304: raise FND_API.G_EXC_ERROR;
305: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
306: raise FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
308:
301:
302: -- Check return status from the above procedure call
303: IF x_return_status = FND_API.G_RET_STS_ERROR then
304: raise FND_API.G_EXC_ERROR;
305: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
306: raise FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
308:
309: -- Standard check for p_commit
302: -- Check return status from the above procedure call
303: IF x_return_status = FND_API.G_RET_STS_ERROR then
304: raise FND_API.G_EXC_ERROR;
305: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
306: raise FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
308:
309: -- Standard check for p_commit
310: IF FND_API.to_Boolean( p_commit )
306: raise FND_API.G_EXC_UNEXPECTED_ERROR;
307: END IF;
308:
309: -- Standard check for p_commit
310: IF FND_API.to_Boolean( p_commit )
311: THEN
312: COMMIT WORK;
313: END IF;
314:
317: ( p_count => x_msg_count,
318: p_data => x_msg_data );
319:
320: EXCEPTION
321: WHEN FND_API.G_EXC_ERROR THEN
322: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
323: P_API_NAME => L_API_NAME,
324: P_PKG_NAME => G_PKG_NAME,
325: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR,
328: X_MSG_DATA => X_MSG_DATA,
329: X_RETURN_STATUS => X_RETURN_STATUS);
330: APP_EXCEPTION.RAISE_EXCEPTION;
331:
332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
333: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
334: P_API_NAME => L_API_NAME,
335: P_PKG_NAME => G_PKG_NAME,
336: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
458: -- Standard Start of API savepoint
459: SAVEPOINT UPDATE_PLAN_LINES_PUB;
460:
461: -- Standard call to check for call compatibility.
462: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
463: p_api_version_number,
464: l_api_name,
465: G_PKG_NAME)
466: THEN
463: p_api_version_number,
464: l_api_name,
465: G_PKG_NAME)
466: THEN
467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
468: END IF;
469:
470: -- Initialize message list if p_init_msg_list is set to TRUE.
471: IF FND_API.to_Boolean( p_init_msg_list )
467: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
468: END IF;
469:
470: -- Initialize message list if p_init_msg_list is set to TRUE.
471: IF FND_API.to_Boolean( p_init_msg_list )
472: THEN
473: FND_MSG_PUB.initialize;
474: END IF;
475:
473: FND_MSG_PUB.initialize;
474: END IF;
475:
476: -- Initialize API return status to SUCCESS
477: x_return_status := FND_API.G_RET_STS_SUCCESS;
478:
479: -- Convert the values to ids
480: CONVERT_CSC_PLAN_LINES (
481: p_CSC_PLAN_LINES_rec => p_CSC_PLAN_LINES_rec,
483:
484: -- Call private API to perform validations and the update.
485: CSC_plan_lines_PVT.Update_plan_lines(
486: P_Api_Version_Number => 1.0,
487: P_Init_Msg_List => FND_API.G_FALSE,
488: P_Commit => p_commit,
489: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
490: P_CSC_PLAN_LINES_Rec => l_pvt_CSC_PLAN_LINES_Rec ,
491: X_OBJECT_VERSION_NUMBER => x_object_version_number,
485: CSC_plan_lines_PVT.Update_plan_lines(
486: P_Api_Version_Number => 1.0,
487: P_Init_Msg_List => FND_API.G_FALSE,
488: P_Commit => p_commit,
489: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
490: P_CSC_PLAN_LINES_Rec => l_pvt_CSC_PLAN_LINES_Rec ,
491: X_OBJECT_VERSION_NUMBER => x_object_version_number,
492: X_Return_Status => x_return_status,
493: X_Msg_Count => x_msg_count,
493: X_Msg_Count => x_msg_count,
494: X_Msg_Data => x_msg_data);
495:
496: -- Check return status from the above procedure call
497: IF x_return_status = FND_API.G_RET_STS_ERROR then
498: raise FND_API.G_EXC_ERROR;
499: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
500: raise FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF;
494: X_Msg_Data => x_msg_data);
495:
496: -- Check return status from the above procedure call
497: IF x_return_status = FND_API.G_RET_STS_ERROR then
498: raise FND_API.G_EXC_ERROR;
499: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
500: raise FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF;
502:
495:
496: -- Check return status from the above procedure call
497: IF x_return_status = FND_API.G_RET_STS_ERROR then
498: raise FND_API.G_EXC_ERROR;
499: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
500: raise FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF;
502:
503: -- Standard check for p_commit
496: -- Check return status from the above procedure call
497: IF x_return_status = FND_API.G_RET_STS_ERROR then
498: raise FND_API.G_EXC_ERROR;
499: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
500: raise FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF;
502:
503: -- Standard check for p_commit
504: IF FND_API.to_Boolean( p_commit )
500: raise FND_API.G_EXC_UNEXPECTED_ERROR;
501: END IF;
502:
503: -- Standard check for p_commit
504: IF FND_API.to_Boolean( p_commit )
505: THEN
506: COMMIT WORK;
507: END IF;
508:
511: ( p_count => x_msg_count,
512: p_data => x_msg_data );
513:
514: EXCEPTION
515: WHEN FND_API.G_EXC_ERROR THEN
516: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
517: P_API_NAME => L_API_NAME,
518: P_PKG_NAME => G_PKG_NAME,
519: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR,
522: X_MSG_DATA => X_MSG_DATA,
523: X_RETURN_STATUS => X_RETURN_STATUS);
524: APP_EXCEPTION.RAISE_EXCEPTION;
525:
526: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
527: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
528: P_API_NAME => L_API_NAME,
529: P_PKG_NAME => G_PKG_NAME,
530: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
568: -- Standard Start of API savepoint
569: SAVEPOINT DELETE_PLAN_LINES_PUB;
570:
571: -- Standard call to check for call compatibility.
572: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
573: p_api_version_number,
574: l_api_name,
575: G_PKG_NAME)
576: THEN
573: p_api_version_number,
574: l_api_name,
575: G_PKG_NAME)
576: THEN
577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
578: END IF;
579:
580: -- Initialize message list if p_init_msg_list is set to TRUE.
581: IF FND_API.to_Boolean( p_init_msg_list )
577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
578: END IF;
579:
580: -- Initialize message list if p_init_msg_list is set to TRUE.
581: IF FND_API.to_Boolean( p_init_msg_list )
582: THEN
583: FND_MSG_PUB.initialize;
584: END IF;
585:
583: FND_MSG_PUB.initialize;
584: END IF;
585:
586: -- Initialize API return status to SUCCESS
587: x_return_status := FND_API.G_RET_STS_SUCCESS;
588:
589: CSC_plan_lines_PVT.Delete_plan_lines(
590: P_Api_Version_Number => 1.0,
591: P_Init_Msg_List => FND_API.G_FALSE,
587: x_return_status := FND_API.G_RET_STS_SUCCESS;
588:
589: CSC_plan_lines_PVT.Delete_plan_lines(
590: P_Api_Version_Number => 1.0,
591: P_Init_Msg_List => FND_API.G_FALSE,
592: P_Commit => p_commit,
593: P_PLAN_ID => p_plan_id,
594: P_LINE_ID => p_line_id,
595: X_Return_Status => x_return_status,
596: X_Msg_Count => x_msg_count,
597: X_Msg_Data => x_msg_data);
598:
599: -- Check return status from the above procedure call
600: IF x_return_status = FND_API.G_RET_STS_ERROR then
601: raise FND_API.G_EXC_ERROR;
602: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
603: raise FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
597: X_Msg_Data => x_msg_data);
598:
599: -- Check return status from the above procedure call
600: IF x_return_status = FND_API.G_RET_STS_ERROR then
601: raise FND_API.G_EXC_ERROR;
602: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
603: raise FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
605:
598:
599: -- Check return status from the above procedure call
600: IF x_return_status = FND_API.G_RET_STS_ERROR then
601: raise FND_API.G_EXC_ERROR;
602: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
603: raise FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
605:
606: -- Standard check for p_commit
599: -- Check return status from the above procedure call
600: IF x_return_status = FND_API.G_RET_STS_ERROR then
601: raise FND_API.G_EXC_ERROR;
602: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
603: raise FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
605:
606: -- Standard check for p_commit
607: IF FND_API.to_Boolean( p_commit )
603: raise FND_API.G_EXC_UNEXPECTED_ERROR;
604: END IF;
605:
606: -- Standard check for p_commit
607: IF FND_API.to_Boolean( p_commit )
608: THEN
609: COMMIT WORK;
610: END IF;
611:
614: ( p_count => x_msg_count,
615: p_data => x_msg_data );
616:
617: EXCEPTION
618: WHEN FND_API.G_EXC_ERROR THEN
619: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
620: P_API_NAME => L_API_NAME,
621: P_PKG_NAME => G_PKG_NAME,
622: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR,
625: X_MSG_DATA => X_MSG_DATA,
626: X_RETURN_STATUS => X_RETURN_STATUS);
627: APP_EXCEPTION.RAISE_EXCEPTION;
628:
629: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
630: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
631: P_API_NAME => L_API_NAME,
632: P_PKG_NAME => G_PKG_NAME,
633: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,