73:
74:
75: procedure ADD_CONTROL_ITEM(
76: p_api_version IN NUMBER := 1.0
77: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
78: ,p_commit IN VARCHAR2 := FND_API.g_false
79: ,p_validate_only IN VARCHAR2 := FND_API.g_true
80: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
81:
74:
75: procedure ADD_CONTROL_ITEM(
76: p_api_version IN NUMBER := 1.0
77: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
78: ,p_commit IN VARCHAR2 := FND_API.g_false
79: ,p_validate_only IN VARCHAR2 := FND_API.g_true
80: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
81:
82: ,p_ci_type_id IN NUMBER
75: procedure ADD_CONTROL_ITEM(
76: p_api_version IN NUMBER := 1.0
77: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
78: ,p_commit IN VARCHAR2 := FND_API.g_false
79: ,p_validate_only IN VARCHAR2 := FND_API.g_true
80: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
81:
82: ,p_ci_type_id IN NUMBER
83: ,p_summary IN VARCHAR2
76: p_api_version IN NUMBER := 1.0
77: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
78: ,p_commit IN VARCHAR2 := FND_API.g_false
79: ,p_validate_only IN VARCHAR2 := FND_API.g_true
80: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
81:
82: ,p_ci_type_id IN NUMBER
83: ,p_summary IN VARCHAR2
84: ,p_status_code IN VARCHAR2
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:
161: --Clear the global PL/SQL message table
162: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
163: FND_MSG_PUB.initialize;
158: -- Initialize the return status to success
159: x_return_status := FND_API.G_RET_STS_SUCCESS;
160:
161: --Clear the global PL/SQL message table
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 );
312: -- IF the number of messages is 1 then fetch the message code from the stack
313: -- and return its text
314: x_msg_count := FND_MSG_PUB.Count_Msg;
315: IF x_msg_count = 1 THEN
316: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
317: ,p_msg_index => 1
318: ,p_data => x_msg_data
319: ,p_msg_index_out => l_msg_index_out
320: );
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;
336:
337: end ADD_CONTROL_ITEM;
338:
337: end ADD_CONTROL_ITEM;
338:
339: procedure UPDATE_CONTROL_ITEM (
340: p_api_version IN NUMBER := 1.0
341: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
342: ,p_commit IN VARCHAR2 := FND_API.g_false
343: ,p_validate_only IN VARCHAR2 := FND_API.g_true
344: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
345: ,p_ci_id IN NUMBER
338:
339: procedure UPDATE_CONTROL_ITEM (
340: p_api_version IN NUMBER := 1.0
341: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
342: ,p_commit IN VARCHAR2 := FND_API.g_false
343: ,p_validate_only IN VARCHAR2 := FND_API.g_true
344: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
345: ,p_ci_id IN NUMBER
346: ,p_ci_type_id IN NUMBER
339: procedure UPDATE_CONTROL_ITEM (
340: p_api_version IN NUMBER := 1.0
341: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
342: ,p_commit IN VARCHAR2 := FND_API.g_false
343: ,p_validate_only IN VARCHAR2 := FND_API.g_true
344: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
345: ,p_ci_id IN NUMBER
346: ,p_ci_type_id IN NUMBER
347: ,p_summary IN VARCHAR2
340: p_api_version IN NUMBER := 1.0
341: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
342: ,p_commit IN VARCHAR2 := FND_API.g_false
343: ,p_validate_only IN VARCHAR2 := FND_API.g_true
344: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
345: ,p_ci_id IN NUMBER
346: ,p_ci_type_id IN NUMBER
347: ,p_summary IN VARCHAR2
348: ,p_status_code IN VARCHAR2 := NULL
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:
426: --Clear the global PL/SQL message table
427: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
428: FND_MSG_PUB.initialize;
423: -- Initialize the return status to success
424: x_return_status := FND_API.G_RET_STS_SUCCESS;
425:
426: --Clear the global PL/SQL message table
427: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
428: FND_MSG_PUB.initialize;
429: END IF;
430:
431: --get hz_parties.party_id of the logged in user
591: -- IF the number of messaages is 1 then fetch the message code from the stack
592: -- and return its text
593: x_msg_count := FND_MSG_PUB.Count_Msg;
594: IF x_msg_count = 1 THEN
595: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
596: ,p_msg_index => 1
597: ,p_data => x_msg_data
598: ,p_msg_index_out => l_msg_index_out
599: );
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;
615: end UPDATE_CONTROL_ITEM;
616:
617:
617:
618:
619: procedure DELETE_CONTROL_ITEM (
620: p_api_version IN NUMBER := 1.0
621: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
622: ,p_commit IN VARCHAR2 := FND_API.g_false
623: ,p_validate_only IN VARCHAR2 := FND_API.g_true
624: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
625:
618:
619: procedure DELETE_CONTROL_ITEM (
620: p_api_version IN NUMBER := 1.0
621: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
622: ,p_commit IN VARCHAR2 := FND_API.g_false
623: ,p_validate_only IN VARCHAR2 := FND_API.g_true
624: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
625:
626: ,p_ci_id IN NUMBER
619: procedure DELETE_CONTROL_ITEM (
620: p_api_version IN NUMBER := 1.0
621: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
622: ,p_commit IN VARCHAR2 := FND_API.g_false
623: ,p_validate_only IN VARCHAR2 := FND_API.g_true
624: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
625:
626: ,p_ci_id IN NUMBER
627: ,p_record_version_number IN NUMBER
620: p_api_version IN NUMBER := 1.0
621: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
622: ,p_commit IN VARCHAR2 := FND_API.g_false
623: ,p_validate_only IN VARCHAR2 := FND_API.g_true
624: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
625:
626: ,p_ci_id IN NUMBER
627: ,p_record_version_number IN NUMBER
628: ,x_return_status OUT NOCOPY VARCHAR2
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:
650: --Clear the global PL/SQL message table
651: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
652: FND_MSG_PUB.initialize;
647: -- Initialize the return status to success
648: x_return_status := FND_API.G_RET_STS_SUCCESS;
649:
650: --Clear the global PL/SQL message table
651: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
652: FND_MSG_PUB.initialize;
653: END IF;
654: /*
655: open valid_ci;
658: if (valid_ci%notfound) then
659: --- invalid ci_id error
660: PA_UTILS.Add_Message( p_app_short_name => 'PA'
661: ,p_msg_name => 'PA_CI_INVALID_ITEM');
662: x_return_status := FND_API.G_RET_STS_ERROR;
663: else
664: if (l_status_code <> 'CI_DRAFT') then
665: --- invalid status error
666: PA_UTILS.Add_Message( p_app_short_name => 'PA'
664: if (l_status_code <> 'CI_DRAFT') then
665: --- invalid status error
666: PA_UTILS.Add_Message( p_app_short_name => 'PA'
667: ,p_msg_name => 'PA_CI_ONLY_DRAFT_DEL');
668: x_return_status := FND_API.G_RET_STS_ERROR;
669: end if;
670: end if;
671: close valid_ci;
672:
692: -- IF the number of messaages is 1 then fetch the message code from the stack
693: -- and return its text
694: x_msg_count := FND_MSG_PUB.Count_Msg;
695: IF x_msg_count = 1 THEN
696: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
697: ,p_msg_index => 1
698: ,p_data => x_msg_data
699: ,p_msg_index_out => l_msg_index_out
700: );
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 ;
716: RAISE;
717: end DELETE_CONTROL_ITEM;
718:
719: procedure COPY_CONTROL_ITEM (
717: end DELETE_CONTROL_ITEM;
718:
719: procedure COPY_CONTROL_ITEM (
720: p_api_version IN NUMBER := 1.0
721: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
722: ,p_commit IN VARCHAR2 := FND_API.g_false
723: ,p_validate_only IN VARCHAR2 := FND_API.g_true
724: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
725:
718:
719: procedure COPY_CONTROL_ITEM (
720: p_api_version IN NUMBER := 1.0
721: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
722: ,p_commit IN VARCHAR2 := FND_API.g_false
723: ,p_validate_only IN VARCHAR2 := FND_API.g_true
724: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
725:
726: ,p_project_id IN NUMBER
719: procedure COPY_CONTROL_ITEM (
720: p_api_version IN NUMBER := 1.0
721: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
722: ,p_commit IN VARCHAR2 := FND_API.g_false
723: ,p_validate_only IN VARCHAR2 := FND_API.g_true
724: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
725:
726: ,p_project_id IN NUMBER
727: ,p_ci_id_from IN NUMBER -- copy from this
720: p_api_version IN NUMBER := 1.0
721: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
722: ,p_commit IN VARCHAR2 := FND_API.g_false
723: ,p_validate_only IN VARCHAR2 := FND_API.g_true
724: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
725:
726: ,p_project_id IN NUMBER
727: ,p_ci_id_from IN NUMBER -- copy from this
728: ,p_ci_type_id IN NUMBER -- copy to this
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:
751: --Clear the global PL/SQL message table
752: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
753: FND_MSG_PUB.initialize;
748: -- Initialize the return status to success
749: x_return_status := FND_API.G_RET_STS_SUCCESS;
750:
751: --Clear the global PL/SQL message table
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 (
773: -- IF the number of messages is 1 then fetch the message code from the stack
774: -- and return its text
775: x_msg_count := FND_MSG_PUB.Count_Msg;
776: IF x_msg_count = 1 THEN
777: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
778: ,p_msg_index => 1
779: ,p_data => x_msg_data
780: ,p_msg_index_out => l_msg_index_out
781: );
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 ;
801: RAISE;
802: end COPY_CONTROL_ITEM;
803:
804: procedure INCLUDE_CONTROL_ITEM(
802: end COPY_CONTROL_ITEM;
803:
804: procedure INCLUDE_CONTROL_ITEM(
805: p_api_version IN NUMBER := 1.0
806: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
807: ,p_commit IN VARCHAR2 := FND_API.g_false
808: ,p_validate_only IN VARCHAR2 := FND_API.g_true
809: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
810:
803:
804: procedure INCLUDE_CONTROL_ITEM(
805: p_api_version IN NUMBER := 1.0
806: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
807: ,p_commit IN VARCHAR2 := FND_API.g_false
808: ,p_validate_only IN VARCHAR2 := FND_API.g_true
809: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
810:
811: ,p_from_ci_id IN NUMBER
804: procedure INCLUDE_CONTROL_ITEM(
805: p_api_version IN NUMBER := 1.0
806: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
807: ,p_commit IN VARCHAR2 := FND_API.g_false
808: ,p_validate_only IN VARCHAR2 := FND_API.g_true
809: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
810:
811: ,p_from_ci_id IN NUMBER
812: ,p_to_ci_id IN NUMBER
805: p_api_version IN NUMBER := 1.0
806: ,p_init_msg_list IN VARCHAR2 := fnd_api.g_true
807: ,p_commit IN VARCHAR2 := FND_API.g_false
808: ,p_validate_only IN VARCHAR2 := FND_API.g_true
809: ,p_max_msg_count IN NUMBER := FND_API.g_miss_num
810:
811: ,p_from_ci_id IN NUMBER
812: ,p_to_ci_id IN NUMBER
813: ,p_record_version_number_to IN NUMBER
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:
831: --Clear the global PL/SQL message table
832: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
833: FND_MSG_PUB.initialize;
828: -- Initialize the return status to success
829: x_return_status := FND_API.G_RET_STS_SUCCESS;
830:
831: --Clear the global PL/SQL message table
832: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
833: FND_MSG_PUB.initialize;
834: END IF;
835:
836: if (x_return_status = FND_API.G_RET_STS_SUCCESS) then
832: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
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
852: -- IF the number of messaages is 1 then fetch the message code from the stack
853: -- and return its text
854: x_msg_count := FND_MSG_PUB.Count_Msg;
855: IF x_msg_count = 1 THEN
856: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
857: ,p_msg_index => 1
858: ,p_data => x_msg_data
859: ,p_msg_index_out => l_msg_index_out
860: );
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 ;
880: RAISE;
881: end INCLUDE_CONTROL_ITEM;
882:
883: