[Home] [Help]
1: PACKAGE BODY PA_CONTROL_ITEMS_PUB AS
2: --$Header: PACICIPB.pls 120.9.12020000.2 2012/07/19 09:28:29 admarath ship $
3:
4:
5: procedure getPartyIdFromName(
154:
155: l_msg_index_out NUMBER;
156:
157: -- start: 26-Jun-2009 cklee Modified for the Bug# 8633676
158: l_last_modified_by_id NUMBER := NVL(PA_CONTROL_ITEMS_UTILS.GetPartyId(fnd_global.user_id ), fnd_global.user_id);
159: -- end: 26-Jun-2009 cklee Modified for the Bug# 8633676
160: l_owner_id NUMBER := NULL;
161: l_object_id NUMBER;
162: l_debug_mode VARCHAR2(1);
167:
168: BEGIN
169:
170: -- Initialize the Error Stack
171: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PUB.Add_Control_Item');
172:
173: -- Initialize the return status to success
174: x_return_status := FND_API.G_RET_STS_SUCCESS;
175:
177: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
178: FND_MSG_PUB.initialize;
179: END IF;
180: --get hz_parties.party_id of the logged in user
181: -- l_last_modified_by_id := nvl(PA_CONTROL_ITEMS_UTILS.GetPartyId(fnd_global.user_id ), fnd_global.user_id);
182: -- 26-Jun-2009 cklee Modified for the Bug# 8633676
183: l_owner_id := p_owner_id;
184: l_object_id := p_object_id;
185:
249: l_debug_level6);
250: END IF;
251:
252: IF (x_return_status <> 'E')THEN
253: PA_CONTROL_ITEMS_PVT.ADD_CONTROL_ITEM(
254: p_api_version
255: ,p_init_msg_list
256: ,p_commit
257: ,p_validate_only
355: EXCEPTION
356: WHEN OTHERS THEN
357: rollback;
358: -- Set the excetption Message and the stack
359: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PUB.ADD_CONTROL_ITEM'
360: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
361:
362: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
363: RAISE;
444: ) is
445:
446: l_msg_index_out NUMBER;
447: -- start: 26-Jun-2009 cklee Modified for the Bug# 8633676
448: l_last_modified_by_id NUMBER := NVL(PA_CONTROL_ITEMS_UTILS.GetPartyId(fnd_global.user_id ), fnd_global.user_id);
449: -- end: 26-Jun-2009 cklee Modified for the Bug# 8633676
450: l_owner_id NUMBER;
451: l_object_id NUMBER;
452: l_chgowner_allowed VARCHAR2(1); /* Bug3297238 */
455: l_classification_code NUMBER; /* Bug 4049588.*/
456: l_reason_code NUMBER; /* Bug 4049588.*/
457:
458: cursor c_curr_owner is
459: select owner_id from pa_control_items
460: where ci_id = p_ci_id;
461: begin
462:
463: -- Initialize the Error Stack
460: where ci_id = p_ci_id;
461: begin
462:
463: -- Initialize the Error Stack
464: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PUB.UPDATE_CONTROL_ITEM');
465:
466: -- Initialize the return status to success
467: x_return_status := FND_API.G_RET_STS_SUCCESS;
468:
471: FND_MSG_PUB.initialize;
472: END IF;
473:
474: --get hz_parties.party_id of the logged in user
475: -- l_last_modified_by_id := nvl(PA_CONTROL_ITEMS_UTILS.GetPartyId(fnd_global.user_id ), fnd_global.user_id);
476: --26-Jun-2009 cklee Modified for the Bug# 8633676
477: l_owner_id := p_owner_id;
478: l_object_id := p_object_id;
479:
565: END IF;
566:
567:
568: IF (x_return_status <> 'E')THEN
569: PA_CONTROL_ITEMS_PVT.UPDATE_CONTROL_ITEM(
570: p_api_version
571: ,p_init_msg_list
572: ,p_commit
573: ,p_validate_only
663: EXCEPTION
664: WHEN OTHERS THEN
665: rollback;
666: -- Set the excetption Message and the stack
667: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PUB.UPDATE_CONTROL_ITEM'
668: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
669:
670: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
671: RAISE;
688:
689: ) is
690:
691: l_msg_index_out NUMBER;
692: -- l_status_code pa_control_items.status_code%type;
693:
694: -- cursor valid_ci is
695: -- select status_code
696: -- from pa_control_items
692: -- l_status_code pa_control_items.status_code%type;
693:
694: -- cursor valid_ci is
695: -- select status_code
696: -- from pa_control_items
697: -- where ci_id = p_ci_id;
698:
699: begin
700:
698:
699: begin
700:
701: -- Initialize the Error Stack
702: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PUB.DELETE_CONTROL_ITEM');
703:
704: -- Initialize the return status to success
705: x_return_status := FND_API.G_RET_STS_SUCCESS;
706:
729:
730:
731: if (x_return_status = 'S') then */
732:
733: PA_CONTROL_ITEMS_PVT.DELETE_CONTROL_ITEM(
734: p_api_version
735: ,p_init_msg_list
736: ,p_commit
737: ,p_validate_only
764: EXCEPTION
765: WHEN OTHERS THEN
766: rollback;
767: -- Set the excetption Message and the stack
768: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PUB.DELETE_CONTROL_ITEM'
769: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
770:
771:
772: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
799:
800: begin
801:
802: -- Initialize the Error Stack
803: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PUB.COPY_CONTROL_ITEM');
804:
805: -- Initialize the return status to success
806: x_return_status := FND_API.G_RET_STS_SUCCESS;
807:
809: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
810: FND_MSG_PUB.initialize;
811: END IF;
812:
813: pa_control_items_pvt.COPY_CONTROL_ITEM (
814: p_commit => p_commit
815: ,p_validate_only => p_validate_only
816:
817: ,p_project_id => p_project_id
849: EXCEPTION
850: WHEN OTHERS THEN
851: rollback;
852: -- Set the excetption Message and the stack
853: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PUB.COPY_CONTROL_ITEM'
854: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
855:
856:
857: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
879:
880: begin
881:
882: -- Initialize the Error Stack
883: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PUB.INCLUDE_CONTROL_ITEM');
884:
885: -- Initialize the return status to success
886: x_return_status := FND_API.G_RET_STS_SUCCESS;
887:
890: FND_MSG_PUB.initialize;
891: END IF;
892:
893: if (x_return_status = FND_API.G_RET_STS_SUCCESS) then
894: PA_CONTROL_ITEMS_PVT.INCLUDE_CONTROL_ITEM(
895: p_api_version => p_api_version
896: ,p_init_msg_list => p_init_msg_list
897: ,p_commit => p_commit
898: ,p_validate_only => p_validate_only
928: EXCEPTION
929: WHEN OTHERS THEN
930: rollback;
931: -- Set the excetption Message and the stack
932: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PUB.INCLUDE_CONTROL_ITEM'
933: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
934:
935:
936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
963:
964: begin
965:
966: -- Initialize the Error Stack
967: PA_DEBUG.init_err_stack('PA_CONTROL_ITEMS_PUB.LOCK_CONTROL_ITEM');
968:
969: -- Initialize the return status to success
970: x_return_status := FND_API.G_RET_STS_SUCCESS;
971:
979: SAVEPOINT lock_control_item;
980: END IF;
981:
982:
983: PA_CONTROL_ITEMS_PVT.LOCK_CONTROL_ITEM(
984: p_api_version
985: ,p_init_msg_list
986: ,p_commit
987: ,p_validate_only
1011: EXCEPTION
1012: WHEN OTHERS THEN
1013: rollback to lock_control_item;
1014: -- Set the excetption Message and the stack
1015: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_CONTROL_ITEMS_PUB.LOCK_CONTROL_ITEM'
1016: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1017:
1018:
1019: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1021: end LOCK_CONTROL_ITEM;
1022: -- end: 26-Jun-2009 cklee Modified for the Bug# 8633676
1023:
1024:
1025: END PA_CONTROL_ITEMS_PUB;