337: -- Standard Start of API savepoint
338: SAVEPOINT create_plan_header_pub;
339:
340: -- Standard call to check for call compatibility.
341: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
342: p_api_version_number,
343: l_api_name,
344: G_PKG_NAME)
345: THEN
342: p_api_version_number,
343: l_api_name,
344: G_PKG_NAME)
345: THEN
346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
347: END IF;
348:
349: -- Initialize message list if p_init_msg_list is set to TRUE.
350: IF FND_API.to_Boolean( p_init_msg_list ) THEN
346: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
347: END IF;
348:
349: -- Initialize message list if p_init_msg_list is set to TRUE.
350: IF FND_API.to_Boolean( p_init_msg_list ) THEN
351: FND_MSG_PUB.initialize;
352: END IF;
353:
354: -- Initialize API return status to SUCCESS
351: FND_MSG_PUB.initialize;
352: END IF;
353:
354: -- Initialize API return status to SUCCESS
355: x_return_status := FND_API.G_RET_STS_SUCCESS;
356:
357: -- Convert the values to ids. As of now there are no values to be converted into ids. But call
358: -- the proc. to keep with the standards and to get back a pvt. rec type to pass to the pvt.
359: -- package. A table type conversion is also added in this procedure to collect information about
368: -- Calling Private package : Create_PLAN_HEADERS_B
369: -- Hint : Primary key needs to be returned
370: CSC_relationship_plans_PVT.Create_plan_header(
371: P_Api_Version_Number => 1.0,
372: P_Init_Msg_List => FND_API.G_FALSE,
373: P_Commit => FND_API.G_FALSE,
374: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
375: P_CSC_PLAN_HEADERS_B_REC => l_pvt_CSC_PLAN_HEADERS_B_REC ,
376: P_DESCRIPTION => p_description,
369: -- Hint : Primary key needs to be returned
370: CSC_relationship_plans_PVT.Create_plan_header(
371: P_Api_Version_Number => 1.0,
372: P_Init_Msg_List => FND_API.G_FALSE,
373: P_Commit => FND_API.G_FALSE,
374: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
375: P_CSC_PLAN_HEADERS_B_REC => l_pvt_CSC_PLAN_HEADERS_B_REC ,
376: P_DESCRIPTION => p_description,
377: P_NAME => p_name,
370: CSC_relationship_plans_PVT.Create_plan_header(
371: P_Api_Version_Number => 1.0,
372: P_Init_Msg_List => FND_API.G_FALSE,
373: P_Commit => FND_API.G_FALSE,
374: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
375: P_CSC_PLAN_HEADERS_B_REC => l_pvt_CSC_PLAN_HEADERS_B_REC ,
376: P_DESCRIPTION => p_description,
377: P_NAME => p_name,
378: P_PARTY_ID_TBL => l_pvt_CSC_PARTY_ID_TBL,
383: X_Msg_Data => x_msg_data);
384:
385:
386: -- Check return status from the above procedure call
387: IF x_return_status = FND_API.G_RET_STS_ERROR then
388: raise FND_API.G_EXC_ERROR;
389: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
390: raise FND_API.G_EXC_UNEXPECTED_ERROR;
391: END IF;
384:
385:
386: -- Check return status from the above procedure call
387: IF x_return_status = FND_API.G_RET_STS_ERROR then
388: raise FND_API.G_EXC_ERROR;
389: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
390: raise FND_API.G_EXC_UNEXPECTED_ERROR;
391: END IF;
392:
385:
386: -- Check return status from the above procedure call
387: IF x_return_status = FND_API.G_RET_STS_ERROR then
388: raise FND_API.G_EXC_ERROR;
389: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
390: raise FND_API.G_EXC_UNEXPECTED_ERROR;
391: END IF;
392:
393: -- Standard check for p_commit
386: -- Check return status from the above procedure call
387: IF x_return_status = FND_API.G_RET_STS_ERROR then
388: raise FND_API.G_EXC_ERROR;
389: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
390: raise FND_API.G_EXC_UNEXPECTED_ERROR;
391: END IF;
392:
393: -- Standard check for p_commit
394: IF FND_API.to_Boolean( p_commit )
390: raise FND_API.G_EXC_UNEXPECTED_ERROR;
391: END IF;
392:
393: -- Standard check for p_commit
394: IF FND_API.to_Boolean( p_commit )
395: THEN
396: COMMIT WORK;
397: END IF;
398:
397: END IF;
398:
399: -- Standard call to get message count and if count is 1, get message info.
400: FND_MSG_PUB.Count_And_Get
401: ( p_encoded => FND_API.G_FALSE,
402: p_count => x_msg_count,
403: p_data => x_msg_data );
404:
405: EXCEPTION
402: p_count => x_msg_count,
403: p_data => x_msg_data );
404:
405: EXCEPTION
406: WHEN FND_API.G_EXC_ERROR THEN
407: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
408: P_API_NAME => L_API_NAME,
409: P_PKG_NAME => G_PKG_NAME,
410: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR,
413: X_MSG_DATA => X_MSG_DATA,
414: X_RETURN_STATUS => X_RETURN_STATUS);
415: APP_EXCEPTION.RAISE_EXCEPTION;
416:
417: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
418: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
419: P_API_NAME => L_API_NAME,
420: P_PKG_NAME => G_PKG_NAME,
421: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
573: -- Standard Start of API savepoint
574: SAVEPOINT update_plan_header_pub;
575:
576: -- Standard call to check for call compatibility.
577: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
578: p_api_version_number,
579: l_api_name,
580: G_PKG_NAME)
581: THEN
578: p_api_version_number,
579: l_api_name,
580: G_PKG_NAME)
581: THEN
582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
583: END IF;
584:
585: -- Initialize message list if p_init_msg_list is set to TRUE.
586: IF FND_API.to_Boolean( p_init_msg_list ) THEN
582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
583: END IF;
584:
585: -- Initialize message list if p_init_msg_list is set to TRUE.
586: IF FND_API.to_Boolean( p_init_msg_list ) THEN
587: FND_MSG_PUB.initialize;
588: END IF;
589:
590: -- Initialize API return status to SUCCESS
587: FND_MSG_PUB.initialize;
588: END IF;
589:
590: -- Initialize API return status to SUCCESS
591: x_return_status := FND_API.G_RET_STS_SUCCESS;
592:
593: -- Convert the values to ids. As of now there are no values to be converted into ids. But call
594: -- the proc. to keep with the standards and to get back a pvt. rec type to pass to the pvt.
595: -- package. DJ
601: x_pvt_CSC_PARTY_ID_TBL => l_pvt_CSC_PARTY_ID_TBL);
602:
603: CSC_relationship_plans_pvt.update_plan_header(
604: P_Api_Version_Number => 1.0,
605: P_Init_Msg_List => FND_API.G_FALSE,
606: P_Commit => p_commit,
607: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
608: P_CSC_PLAN_HEADERS_B_REC => l_pvt_CSC_PLAN_HEADERS_B_REC ,
609: P_DESCRIPTION => p_description,
603: CSC_relationship_plans_pvt.update_plan_header(
604: P_Api_Version_Number => 1.0,
605: P_Init_Msg_List => FND_API.G_FALSE,
606: P_Commit => p_commit,
607: P_Validation_Level => FND_API.G_VALID_LEVEL_FULL,
608: P_CSC_PLAN_HEADERS_B_REC => l_pvt_CSC_PLAN_HEADERS_B_REC ,
609: P_DESCRIPTION => p_description,
610: P_NAME => p_name,
611: P_PARTY_ID_TBL => l_pvt_CSC_PARTY_ID_TBL,
614: X_Msg_Count => x_msg_count,
615: X_Msg_Data => x_msg_data);
616:
617: -- Check return status from the above procedure call
618: IF x_return_status = FND_API.G_RET_STS_ERROR then
619: raise FND_API.G_EXC_ERROR;
620: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
621: raise FND_API.G_EXC_UNEXPECTED_ERROR;
622: END IF;
615: X_Msg_Data => x_msg_data);
616:
617: -- Check return status from the above procedure call
618: IF x_return_status = FND_API.G_RET_STS_ERROR then
619: raise FND_API.G_EXC_ERROR;
620: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
621: raise FND_API.G_EXC_UNEXPECTED_ERROR;
622: END IF;
623:
616:
617: -- Check return status from the above procedure call
618: IF x_return_status = FND_API.G_RET_STS_ERROR then
619: raise FND_API.G_EXC_ERROR;
620: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
621: raise FND_API.G_EXC_UNEXPECTED_ERROR;
622: END IF;
623:
624: -- Standard check for p_commit
617: -- Check return status from the above procedure call
618: IF x_return_status = FND_API.G_RET_STS_ERROR then
619: raise FND_API.G_EXC_ERROR;
620: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
621: raise FND_API.G_EXC_UNEXPECTED_ERROR;
622: END IF;
623:
624: -- Standard check for p_commit
625: IF FND_API.to_Boolean( p_commit )
621: raise FND_API.G_EXC_UNEXPECTED_ERROR;
622: END IF;
623:
624: -- Standard check for p_commit
625: IF FND_API.to_Boolean( p_commit )
626: THEN
627: COMMIT WORK;
628: END IF;
629:
628: END IF;
629:
630: -- Standard call to get message count and if count is 1, get message info.
631: FND_MSG_PUB.Count_And_Get
632: ( p_encoded => FND_API.G_FALSE,
633: p_count => x_msg_count,
634: p_data => x_msg_data );
635:
636: EXCEPTION
633: p_count => x_msg_count,
634: p_data => x_msg_data );
635:
636: EXCEPTION
637: WHEN FND_API.G_EXC_ERROR THEN
638: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
639: P_API_NAME => L_API_NAME,
640: P_PKG_NAME => G_PKG_NAME,
641: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR,
644: X_MSG_DATA => X_MSG_DATA,
645: X_RETURN_STATUS => X_RETURN_STATUS);
646: APP_EXCEPTION.RAISE_EXCEPTION;
647:
648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
649: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
650: P_API_NAME => L_API_NAME,
651: P_PKG_NAME => G_PKG_NAME,
652: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,
686: -- Standard Start of API savepoint
687: SAVEPOINT DISABLE_PLAN_PUB;
688:
689: -- Standard call to check for call compatibility.
690: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
691: p_api_version_number,
692: l_api_name,
693: G_PKG_NAME)
694: THEN
691: p_api_version_number,
692: l_api_name,
693: G_PKG_NAME)
694: THEN
695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
696: END IF;
697:
698: -- Initialize message list if p_init_msg_list is set to TRUE.
699: IF FND_API.to_Boolean( p_init_msg_list ) THEN
695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
696: END IF;
697:
698: -- Initialize message list if p_init_msg_list is set to TRUE.
699: IF FND_API.to_Boolean( p_init_msg_list ) THEN
700: FND_MSG_PUB.initialize;
701: END IF;
702:
703: -- Initialize API return status to SUCCESS
700: FND_MSG_PUB.initialize;
701: END IF;
702:
703: -- Initialize API return status to SUCCESS
704: x_return_status := FND_API.G_RET_STS_SUCCESS;
705:
706: CSC_relationship_plans_PVT.disable_plan(
707: P_Api_Version_Number => 1.0,
708: P_Init_Msg_List => FND_API.G_FALSE,
704: x_return_status := FND_API.G_RET_STS_SUCCESS;
705:
706: CSC_relationship_plans_PVT.disable_plan(
707: P_Api_Version_Number => 1.0,
708: P_Init_Msg_List => FND_API.G_FALSE,
709: P_Commit => p_commit,
710: P_plan_id => p_plan_id,
711: X_Return_Status => x_return_status,
712: X_Msg_Count => x_msg_count,
712: X_Msg_Count => x_msg_count,
713: X_Msg_Data => x_msg_data);
714:
715: -- Check return status from the above procedure call
716: IF x_return_status = FND_API.G_RET_STS_ERROR then
717: raise FND_API.G_EXC_ERROR;
718: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
719: raise FND_API.G_EXC_UNEXPECTED_ERROR;
720: END IF;
713: X_Msg_Data => x_msg_data);
714:
715: -- Check return status from the above procedure call
716: IF x_return_status = FND_API.G_RET_STS_ERROR then
717: raise FND_API.G_EXC_ERROR;
718: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
719: raise FND_API.G_EXC_UNEXPECTED_ERROR;
720: END IF;
721:
714:
715: -- Check return status from the above procedure call
716: IF x_return_status = FND_API.G_RET_STS_ERROR then
717: raise FND_API.G_EXC_ERROR;
718: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
719: raise FND_API.G_EXC_UNEXPECTED_ERROR;
720: END IF;
721:
722: -- Standard check for p_commit
715: -- Check return status from the above procedure call
716: IF x_return_status = FND_API.G_RET_STS_ERROR then
717: raise FND_API.G_EXC_ERROR;
718: elsif x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
719: raise FND_API.G_EXC_UNEXPECTED_ERROR;
720: END IF;
721:
722: -- Standard check for p_commit
723: IF FND_API.to_Boolean( p_commit )
719: raise FND_API.G_EXC_UNEXPECTED_ERROR;
720: END IF;
721:
722: -- Standard check for p_commit
723: IF FND_API.to_Boolean( p_commit )
724: THEN
725: COMMIT WORK;
726: END IF;
727:
726: END IF;
727:
728: -- Standard call to get message count and if count is 1, get message info.
729: FND_MSG_PUB.Count_And_Get
730: ( p_encoded => FND_API.G_FALSE,
731: p_count => x_msg_count,
732: p_data => x_msg_data );
733:
734: EXCEPTION
731: p_count => x_msg_count,
732: p_data => x_msg_data );
733:
734: EXCEPTION
735: WHEN FND_API.G_EXC_ERROR THEN
736: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
737: P_API_NAME => L_API_NAME,
738: P_PKG_NAME => G_PKG_NAME,
739: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_ERROR,
741: X_MSG_COUNT => X_MSG_COUNT,
742: X_MSG_DATA => X_MSG_DATA,
743: X_RETURN_STATUS => X_RETURN_STATUS);
744:
745: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
746: CSC_CORE_UTILS_PVT.HANDLE_EXCEPTIONS(
747: P_API_NAME => L_API_NAME,
748: P_PKG_NAME => G_PKG_NAME,
749: P_EXCEPTION_LEVEL => FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR,