1: PACKAGE BODY PA_CONTROL_ITEMS_PUB AS
2: --$Header: PACICIPB.pls 120.1 2007/02/08 11:22:30 sukhanna ship $
3:
4:
5: procedure getPartyIdFromName(
152:
153: BEGIN
154:
155: -- Initialize the Error Stack
156: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PUB.Add_Control_Item');
157:
158: -- Initialize the return status to success
159: x_return_status := FND_API.G_RET_STS_SUCCESS;
160:
162: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
163: FND_MSG_PUB.initialize;
164: END IF;
165: --get hz_parties.party_id of the logged in user
166: l_last_modified_by_id := PA_CONTROL_ITEMS_UTILS.GetPartyId(fnd_global.user_id );
167: l_owner_id := p_owner_id;
168: l_object_id := p_object_id;
169:
170:
233: l_debug_level6);
234: END IF;
235:
236: IF (x_return_status <> 'E')THEN
237: PA_CONTROL_ITEMS_PVT.ADD_CONTROL_ITEM(
238: p_api_version
239: ,p_init_msg_list
240: ,p_commit
241: ,p_validate_only
327: EXCEPTION
328: WHEN OTHERS THEN
329: rollback;
330: -- Set the excetption Message and the stack
331: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PUB.ADD_CONTROL_ITEM'
332: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
333:
334: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
335: RAISE;
412: l_classification_code NUMBER; /* Bug 4049588.*/
413: l_reason_code NUMBER; /* Bug 4049588.*/
414:
415: cursor c_curr_owner is
416: select owner_id from pa_control_items
417: where ci_id = p_ci_id;
418: begin
419:
420: -- Initialize the Error Stack
417: where ci_id = p_ci_id;
418: begin
419:
420: -- Initialize the Error Stack
421: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PUB.UPDATE_CONTROL_ITEM');
422:
423: -- Initialize the return status to success
424: x_return_status := FND_API.G_RET_STS_SUCCESS;
425:
428: FND_MSG_PUB.initialize;
429: END IF;
430:
431: --get hz_parties.party_id of the logged in user
432: l_last_modified_by_id := PA_CONTROL_ITEMS_UTILS.GetPartyId(fnd_global.user_id );
433: l_owner_id := p_owner_id;
434: l_object_id := p_object_id;
435:
436: -- check mandatory owner_id
521: END IF;
522:
523:
524: IF (x_return_status <> 'E')THEN
525: PA_CONTROL_ITEMS_PVT.UPDATE_CONTROL_ITEM(
526: p_api_version
527: ,p_init_msg_list
528: ,p_commit
529: ,p_validate_only
606: EXCEPTION
607: WHEN OTHERS THEN
608: rollback;
609: -- Set the excetption Message and the stack
610: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PUB.UPDATE_CONTROL_ITEM'
611: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
612:
613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
614: RAISE;
631:
632: ) is
633:
634: l_msg_index_out NUMBER;
635: -- l_status_code pa_control_items.status_code%type;
636:
637: -- cursor valid_ci is
638: -- select status_code
639: -- from pa_control_items
635: -- l_status_code pa_control_items.status_code%type;
636:
637: -- cursor valid_ci is
638: -- select status_code
639: -- from pa_control_items
640: -- where ci_id = p_ci_id;
641:
642: begin
643:
641:
642: begin
643:
644: -- Initialize the Error Stack
645: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PUB.DELETE_CONTROL_ITEM');
646:
647: -- Initialize the return status to success
648: x_return_status := FND_API.G_RET_STS_SUCCESS;
649:
672:
673:
674: if (x_return_status = 'S') then */
675:
676: PA_CONTROL_ITEMS_PVT.DELETE_CONTROL_ITEM(
677: p_api_version
678: ,p_init_msg_list
679: ,p_commit
680: ,p_validate_only
707: EXCEPTION
708: WHEN OTHERS THEN
709: rollback;
710: -- Set the excetption Message and the stack
711: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PUB.DELETE_CONTROL_ITEM'
712: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
713:
714:
715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
742:
743: begin
744:
745: -- Initialize the Error Stack
746: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PUB.COPY_CONTROL_ITEM');
747:
748: -- Initialize the return status to success
749: x_return_status := FND_API.G_RET_STS_SUCCESS;
750:
752: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
753: FND_MSG_PUB.initialize;
754: END IF;
755:
756: pa_control_items_pvt.COPY_CONTROL_ITEM (
757: p_commit => p_commit
758: ,p_validate_only => p_validate_only
759:
760: ,p_project_id => p_project_id
792: EXCEPTION
793: WHEN OTHERS THEN
794: rollback;
795: -- Set the excetption Message and the stack
796: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PUB.COPY_CONTROL_ITEM'
797: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
798:
799:
800: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
822:
823: begin
824:
825: -- Initialize the Error Stack
826: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PUB.INCLUDE_CONTROL_ITEM');
827:
828: -- Initialize the return status to success
829: x_return_status := FND_API.G_RET_STS_SUCCESS;
830:
833: FND_MSG_PUB.initialize;
834: END IF;
835:
836: if (x_return_status = FND_API.G_RET_STS_SUCCESS) then
837: PA_CONTROL_ITEMS_PVT.INCLUDE_CONTROL_ITEM(
838: p_api_version => p_api_version
839: ,p_init_msg_list => p_init_msg_list
840: ,p_commit => p_commit
841: ,p_validate_only => p_validate_only
871: EXCEPTION
872: WHEN OTHERS THEN
873: rollback;
874: -- Set the excetption Message and the stack
875: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PUB.INCLUDE_CONTROL_ITEM'
876: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
877:
878:
879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
889: null;
890: end GET_OBJECT_NAME;
891:
892:
893: END PA_CONTROL_ITEMS_PUB;