16:
17: -- Parameters Type Required Description and Purpose
18: -- --------------------------- ------ -------- --------------------------------------------------------
19: -- p_api_version NUMBER N 1.0
20: -- p_init_msg_list VARCHAR2 N := FND_API.G_TRUE
21: -- p_commit VARCHAR2 N := FND_API.G_FALSE
22: -- p_validate_only VARCHAR2 N := FND_API.G_TRUE
23: -- p_validation_level NUMBER N := FND_API.G_VALID_LEVEL_FULL
24: -- p_calling_module VARCHAR2 N := 'SELF_SERVICE'
17: -- Parameters Type Required Description and Purpose
18: -- --------------------------- ------ -------- --------------------------------------------------------
19: -- p_api_version NUMBER N 1.0
20: -- p_init_msg_list VARCHAR2 N := FND_API.G_TRUE
21: -- p_commit VARCHAR2 N := FND_API.G_FALSE
22: -- p_validate_only VARCHAR2 N := FND_API.G_TRUE
23: -- p_validation_level NUMBER N := FND_API.G_VALID_LEVEL_FULL
24: -- p_calling_module VARCHAR2 N := 'SELF_SERVICE'
25: -- p_debug_mode VARCHAR2 N := 'N'
18: -- --------------------------- ------ -------- --------------------------------------------------------
19: -- p_api_version NUMBER N 1.0
20: -- p_init_msg_list VARCHAR2 N := FND_API.G_TRUE
21: -- p_commit VARCHAR2 N := FND_API.G_FALSE
22: -- p_validate_only VARCHAR2 N := FND_API.G_TRUE
23: -- p_validation_level NUMBER N := FND_API.G_VALID_LEVEL_FULL
24: -- p_calling_module VARCHAR2 N := 'SELF_SERVICE'
25: -- p_debug_mode VARCHAR2 N := 'N'
26: -- p_max_msg_count NUMBER N := NULL
19: -- p_api_version NUMBER N 1.0
20: -- p_init_msg_list VARCHAR2 N := FND_API.G_TRUE
21: -- p_commit VARCHAR2 N := FND_API.G_FALSE
22: -- p_validate_only VARCHAR2 N := FND_API.G_TRUE
23: -- p_validation_level NUMBER N := FND_API.G_VALID_LEVEL_FULL
24: -- p_calling_module VARCHAR2 N := 'SELF_SERVICE'
25: -- p_debug_mode VARCHAR2 N := 'N'
26: -- p_max_msg_count NUMBER N := NULL
27: -- p_record_version_number NUMBER N := 1
67:
68: PROCEDURE Create_Deliverable
69: (
70: p_api_version IN NUMBER := 1.0
71: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
72: , p_commit IN VARCHAR2 := FND_API.G_FALSE
73: , p_validate_only IN VARCHAR2 := FND_API.G_TRUE
74: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
75: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
68: PROCEDURE Create_Deliverable
69: (
70: p_api_version IN NUMBER := 1.0
71: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
72: , p_commit IN VARCHAR2 := FND_API.G_FALSE
73: , p_validate_only IN VARCHAR2 := FND_API.G_TRUE
74: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
75: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
76: , p_debug_mode IN VARCHAR2 := 'N'
69: (
70: p_api_version IN NUMBER := 1.0
71: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
72: , p_commit IN VARCHAR2 := FND_API.G_FALSE
73: , p_validate_only IN VARCHAR2 := FND_API.G_TRUE
74: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
75: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
76: , p_debug_mode IN VARCHAR2 := 'N'
77: , p_max_msg_count IN NUMBER := NULL
70: p_api_version IN NUMBER := 1.0
71: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
72: , p_commit IN VARCHAR2 := FND_API.G_FALSE
73: , p_validate_only IN VARCHAR2 := FND_API.G_TRUE
74: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
75: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
76: , p_debug_mode IN VARCHAR2 := 'N'
77: , p_max_msg_count IN NUMBER := NULL
78: , p_record_version_number IN NUMBER := 1
180:
181: BEGIN
182:
183: x_msg_count := 0;
184: x_return_status := FND_API.G_RET_STS_SUCCESS;
185: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
186:
187: IF l_debug_mode = 'Y' THEN
188: PA_DEBUG.set_curr_function( p_function => 'CREATE_DELIVERABLE',
270: Pa_Debug.WRITE(g_module_name,' P_TASK_NAME '||':'|| p_task_name,
271: l_debug_level3);
272: END IF;
273:
274: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
275: FND_MSG_PUB.initialize;
276: END IF;
277:
278: IF (p_commit = FND_API.G_TRUE) THEN
274: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
275: FND_MSG_PUB.initialize;
276: END IF;
277:
278: IF (p_commit = FND_API.G_TRUE) THEN
279: savepoint CREATE_DLVR_PUB;
280: END IF;
281:
282: IF l_debug_mode = 'Y' THEN
292:
293: IF p_progress_weight IS NOT NULL AND p_progress_weight < 0 THEN
294: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
295: p_msg_name => 'PA_NEG_PRG_NOT_ALLOWED');
296: x_return_status := FND_API.G_RET_STS_ERROR;
297: RAISE FND_API.G_EXC_ERROR;
298: END IF;
299: --End Bug Number 3861930
300:
293: IF p_progress_weight IS NOT NULL AND p_progress_weight < 0 THEN
294: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
295: p_msg_name => 'PA_NEG_PRG_NOT_ALLOWED');
296: x_return_status := FND_API.G_RET_STS_ERROR;
297: RAISE FND_API.G_EXC_ERROR;
298: END IF;
299: --End Bug Number 3861930
300:
301: /*==============3435905 : FP M : Deliverables Changes For AMG - START ==============================*/
325: pa_debug.g_err_stage := 'Validated deliverable returns ['||x_return_status||']';
326: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
327: END IF;
328:
329: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
331: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
332: RAISE FND_API.G_EXC_ERROR;
333: END IF;
326: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
327: END IF;
328:
329: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
331: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
332: RAISE FND_API.G_EXC_ERROR;
333: END IF;
334:
327: END IF;
328:
329: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
331: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
332: RAISE FND_API.G_EXC_ERROR;
333: END IF;
334:
335: -- Fetch dlvr_version_id from sequence
328:
329: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
330: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
331: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
332: RAISE FND_API.G_EXC_ERROR;
333: END IF;
334:
335: -- Fetch dlvr_version_id from sequence
336: SELECT PA_PROJ_ELEMENT_VERSIONS_S.nextval
340: /*==============3435905 : FP M : Deliverables Changes For AMG - END ============================== */
341:
342: ELSE /* context <> 'AMG' */
343: IF (p_project_id IS NULL ) THEN
344: x_return_status := FND_API.G_RET_STS_ERROR;
345: END IF;
346:
347: IF (p_dlvr_number IS NULL ) THEN
348: x_return_status := FND_API.G_RET_STS_ERROR;
344: x_return_status := FND_API.G_RET_STS_ERROR;
345: END IF;
346:
347: IF (p_dlvr_number IS NULL ) THEN
348: x_return_status := FND_API.G_RET_STS_ERROR;
349: END IF;
350:
351: IF (p_dlvr_name IS NULL ) THEN
352: x_return_status := FND_API.G_RET_STS_ERROR;
348: x_return_status := FND_API.G_RET_STS_ERROR;
349: END IF;
350:
351: IF (p_dlvr_name IS NULL ) THEN
352: x_return_status := FND_API.G_RET_STS_ERROR;
353: END IF;
354:
355: IF (p_dlvr_type_id IS NULL ) THEN
356: IF (p_dlvr_type_name IS NULL ) THEN
353: END IF;
354:
355: IF (p_dlvr_type_id IS NULL ) THEN
356: IF (p_dlvr_type_name IS NULL ) THEN
357: x_return_status := FND_API.G_RET_STS_ERROR;
358: END IF;
359: END IF;
360:
361:
359: END IF;
360:
361:
362: IF (p_dlvr_version_id IS NULL ) THEN
363: x_return_status := FND_API.G_RET_STS_ERROR;
364: ELSE
365: l_dlvr_version_id := p_dlvr_version_id;
366: END IF;
367:
386: ,p_task_id => p_task_id
387: );
388:
389: IF (l_carrying_out_org IS NULL ) THEN
390: x_return_status := FND_API.G_RET_STS_ERROR;
391: END IF;
392:
393: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
394: RAISE Invalid_Arg_Exc_WP;
389: IF (l_carrying_out_org IS NULL ) THEN
390: x_return_status := FND_API.G_RET_STS_ERROR;
391: END IF;
392:
393: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
394: RAISE Invalid_Arg_Exc_WP;
395: END IF;
396:
397: IF l_debug_mode = 'Y' THEN
495: p_token4 => 'MESSAGE',
496: p_value4 => l_err_message
497: );
498: END IF;
499: x_return_status := FND_API.G_RET_STS_ERROR;
500: RAISE FND_API.G_EXC_ERROR;
501: END IF; /* context=AMG */
502: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
503: p_msg_name => 'PA_DLVR_NUMBER_EXISTS');
496: p_value4 => l_err_message
497: );
498: END IF;
499: x_return_status := FND_API.G_RET_STS_ERROR;
500: RAISE FND_API.G_EXC_ERROR;
501: END IF; /* context=AMG */
502: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
503: p_msg_name => 'PA_DLVR_NUMBER_EXISTS');
504: x_return_status := FND_API.G_RET_STS_ERROR;
500: RAISE FND_API.G_EXC_ERROR;
501: END IF; /* context=AMG */
502: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
503: p_msg_name => 'PA_DLVR_NUMBER_EXISTS');
504: x_return_status := FND_API.G_RET_STS_ERROR;
505: END IF;
506:
507: -- else call create_deliveable procedure of pa_deliveable_pvt package
508:
510: Pa_Debug.WRITE(g_module_name,' Calling PA_DELIVERABLE_PVT.Create_Deliverable',
511: l_debug_level3);
512: END IF;
513:
514: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
515: RAISE FND_API.G_EXC_ERROR;
516: END IF;
517:
518: PA_DELIVERABLE_PVT.Create_Deliverable
511: l_debug_level3);
512: END IF;
513:
514: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
515: RAISE FND_API.G_EXC_ERROR;
516: END IF;
517:
518: PA_DELIVERABLE_PVT.Create_Deliverable
519: (
517:
518: PA_DELIVERABLE_PVT.Create_Deliverable
519: (
520: p_api_version => p_api_version
521: ,p_init_msg_list => FND_API.G_FALSE
522: ,p_commit => p_commit
523: ,p_validate_only => p_validate_only
524: ,p_validation_level => p_validation_level
525: ,p_calling_module => p_calling_module
575: Pa_Debug.WRITE(g_module_name,' Returned from PA_DELIVERABLE_PVT.Create_Deliverable['||x_return_status||']',
576: l_debug_level3);
577: END IF;
578:
579: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
582: RAISE FND_API.G_EXC_ERROR;
583: END IF;
576: l_debug_level3);
577: END IF;
578:
579: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
582: RAISE FND_API.G_EXC_ERROR;
583: END IF;
584:
577: END IF;
578:
579: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
582: RAISE FND_API.G_EXC_ERROR;
583: END IF;
584:
585: x_return_status := FND_API.G_RET_STS_SUCCESS;
578:
579: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
580: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
581: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
582: RAISE FND_API.G_EXC_ERROR;
583: END IF;
584:
585: x_return_status := FND_API.G_RET_STS_SUCCESS;
586: /*==============3435905 : FP M : Deliverables Changes For AMG - START ==============================*/
581: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
582: RAISE FND_API.G_EXC_ERROR;
583: END IF;
584:
585: x_return_status := FND_API.G_RET_STS_SUCCESS;
586: /*==============3435905 : FP M : Deliverables Changes For AMG - START ==============================*/
587: IF (p_calling_module = 'AMG') THEN
588:
589: -- 3630378 changed below cursor to retrieve deliverable element version id
671:
672: oke_amg_grp.manage_dlv
673: ( p_api_version => p_api_version
674: , p_init_msg_list => p_init_msg_list
675: , p_commit => FND_API.G_FALSE
676: , p_action => 'CREATE'
677: , p_item_dlv => l_item_dlv
678: , p_master_inv_org_id => l_master_inv_org_id
679: , p_dlv_rec => l_dlv_rec
688: Pa_Debug.WRITE(g_module_name,' Returned from oke_amg_grp.manage_dlv['||x_return_status||']',
689: l_debug_level3);
690: END IF;
691:
692: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
694: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
689: l_debug_level3);
690: END IF;
691:
692: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
694: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
697:
690: END IF;
691:
692: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
694: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
697:
698: x_return_status := FND_API.G_RET_STS_SUCCESS;
691:
692: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
694: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
697:
698: x_return_status := FND_API.G_RET_STS_SUCCESS;
699:
694: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
695: RAISE FND_API.G_EXC_ERROR;
696: END IF;
697:
698: x_return_status := FND_API.G_RET_STS_SUCCESS;
699:
700: /*==============3435905 : FP M : Deliverables Changes For AMG - END ==============================*/
701:
702: IF (p_commit = FND_API.G_TRUE) THEN
698: x_return_status := FND_API.G_RET_STS_SUCCESS;
699:
700: /*==============3435905 : FP M : Deliverables Changes For AMG - END ==============================*/
701:
702: IF (p_commit = FND_API.G_TRUE) THEN
703: COMMIT;
704: END IF;
705:
706: IF l_debug_mode = 'Y' THEN --Added for bug 4945876
708: END IF ;
709:
710: EXCEPTION
711:
712: WHEN FND_API.G_EXC_ERROR THEN
713:
714: x_return_status := Fnd_Api.G_RET_STS_ERROR;
715: l_msg_count := Fnd_Msg_Pub.count_msg;
716:
710: EXCEPTION
711:
712: WHEN FND_API.G_EXC_ERROR THEN
713:
714: x_return_status := Fnd_Api.G_RET_STS_ERROR;
715: l_msg_count := Fnd_Msg_Pub.count_msg;
716:
717: IF p_commit = FND_API.G_TRUE THEN
718: ROLLBACK TO CREATE_DLVR_PUB;
713:
714: x_return_status := Fnd_Api.G_RET_STS_ERROR;
715: l_msg_count := Fnd_Msg_Pub.count_msg;
716:
717: IF p_commit = FND_API.G_TRUE THEN
718: ROLLBACK TO CREATE_DLVR_PUB;
719: END IF;
720:
721: IF l_msg_count = 1 AND x_msg_data IS NULL
720:
721: IF l_msg_count = 1 AND x_msg_data IS NULL
722: THEN
723: Pa_Interface_Utils_Pub.get_messages
724: ( p_encoded => Fnd_Api.G_TRUE
725: , p_msg_index => 1
726: , p_msg_count => l_msg_count
727: , p_msg_data => l_msg_data
728: , p_data => l_data
737: END IF;
738:
739: WHEN Invalid_Arg_Exc_WP THEN
740:
741: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
742: x_msg_count := 1;
743: x_msg_data := 'PA_DELIVERABLE_PUB : Create_Deliverable : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
744:
745: IF p_commit = FND_API.G_TRUE THEN
741: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
742: x_msg_count := 1;
743: x_msg_data := 'PA_DELIVERABLE_PUB : Create_Deliverable : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
744:
745: IF p_commit = FND_API.G_TRUE THEN
746: ROLLBACK TO CREATE_DLVR_PUB;
747: END IF;
748:
749: Fnd_Msg_Pub.add_exc_msg
760: RAISE;
761:
762: WHEN OTHERS THEN
763:
764: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
765: x_msg_count := 1;
766: x_msg_data := SQLERRM;
767:
768: IF p_commit = FND_API.G_TRUE THEN
764: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
765: x_msg_count := 1;
766: x_msg_data := SQLERRM;
767:
768: IF p_commit = FND_API.G_TRUE THEN
769: ROLLBACK TO CREATE_DLVR_PUB;
770: END IF;
771:
772: Fnd_Msg_Pub.add_exc_msg
795:
796: -- Parameters Type Required Description and Purpose
797: -- --------------------------- ------ -------- --------------------------------------------------------
798: -- p_api_version NUMBER N 1.0
799: -- p_init_msg_list VARCHAR2 N := FND_API.G_TRUE
800: -- p_commit VARCHAR2 N := FND_API.G_FALSE
801: -- p_validate_only VARCHAR2 N := FND_API.G_TRUE
802: -- p_validation_level NUMBER N := FND_API.G_VALID_LEVEL_FULL
803: -- p_calling_module VARCHAR2 N := 'SELF_SERVICE'
796: -- Parameters Type Required Description and Purpose
797: -- --------------------------- ------ -------- --------------------------------------------------------
798: -- p_api_version NUMBER N 1.0
799: -- p_init_msg_list VARCHAR2 N := FND_API.G_TRUE
800: -- p_commit VARCHAR2 N := FND_API.G_FALSE
801: -- p_validate_only VARCHAR2 N := FND_API.G_TRUE
802: -- p_validation_level NUMBER N := FND_API.G_VALID_LEVEL_FULL
803: -- p_calling_module VARCHAR2 N := 'SELF_SERVICE'
804: -- p_debug_mode VARCHAR2 N := 'N'
797: -- --------------------------- ------ -------- --------------------------------------------------------
798: -- p_api_version NUMBER N 1.0
799: -- p_init_msg_list VARCHAR2 N := FND_API.G_TRUE
800: -- p_commit VARCHAR2 N := FND_API.G_FALSE
801: -- p_validate_only VARCHAR2 N := FND_API.G_TRUE
802: -- p_validation_level NUMBER N := FND_API.G_VALID_LEVEL_FULL
803: -- p_calling_module VARCHAR2 N := 'SELF_SERVICE'
804: -- p_debug_mode VARCHAR2 N := 'N'
805: -- p_max_msg_count NUMBER N := NULL
798: -- p_api_version NUMBER N 1.0
799: -- p_init_msg_list VARCHAR2 N := FND_API.G_TRUE
800: -- p_commit VARCHAR2 N := FND_API.G_FALSE
801: -- p_validate_only VARCHAR2 N := FND_API.G_TRUE
802: -- p_validation_level NUMBER N := FND_API.G_VALID_LEVEL_FULL
803: -- p_calling_module VARCHAR2 N := 'SELF_SERVICE'
804: -- p_debug_mode VARCHAR2 N := 'N'
805: -- p_max_msg_count NUMBER N := NULL
806: -- p_record_version_number NUMBER N := 1
846:
847: PROCEDURE Update_Deliverable
848: (
849: p_api_version IN NUMBER := 1.0
850: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
851: , p_commit IN VARCHAR2 := FND_API.G_FALSE
852: , p_validate_only IN VARCHAR2 := FND_API.G_TRUE
853: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
854: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
847: PROCEDURE Update_Deliverable
848: (
849: p_api_version IN NUMBER := 1.0
850: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
851: , p_commit IN VARCHAR2 := FND_API.G_FALSE
852: , p_validate_only IN VARCHAR2 := FND_API.G_TRUE
853: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
854: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
855: , p_debug_mode IN VARCHAR2 := 'N'
848: (
849: p_api_version IN NUMBER := 1.0
850: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
851: , p_commit IN VARCHAR2 := FND_API.G_FALSE
852: , p_validate_only IN VARCHAR2 := FND_API.G_TRUE
853: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
854: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
855: , p_debug_mode IN VARCHAR2 := 'N'
856: , p_max_msg_count IN NUMBER := NULL
849: p_api_version IN NUMBER := 1.0
850: , p_init_msg_list IN VARCHAR2 := FND_API.G_TRUE
851: , p_commit IN VARCHAR2 := FND_API.G_FALSE
852: , p_validate_only IN VARCHAR2 := FND_API.G_TRUE
853: , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
854: , p_calling_module IN VARCHAR2 := 'SELF_SERVICE'
855: , p_debug_mode IN VARCHAR2 := 'N'
856: , p_max_msg_count IN NUMBER := NULL
857: , p_record_version_number IN NUMBER := 1
986:
987: BEGIN
988:
989: x_msg_count := 0;
990: x_return_status := FND_API.G_RET_STS_SUCCESS;
991: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
992:
993: IF l_debug_mode = 'Y' THEN
994: PA_DEBUG.set_curr_function( p_function => 'UPDATE_DELIVERABLE',
1014: Pa_Debug.WRITE(g_module_name,' P_TASK_NAME '||':'|| p_task_name,
1015: l_debug_level3);
1016: END IF;
1017:
1018: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
1019: FND_MSG_PUB.initialize;
1020: END IF;
1021:
1022: IF (p_commit = FND_API.G_TRUE) THEN
1018: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
1019: FND_MSG_PUB.initialize;
1020: END IF;
1021:
1022: IF (p_commit = FND_API.G_TRUE) THEN
1023: savepoint UPDATE_DLVR_PUB;
1024: END IF;
1025:
1026: IF l_debug_mode = 'Y' THEN
1035:
1036: IF p_progress_weight IS NOT NULL AND p_progress_weight < 0 THEN
1037: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1038: p_msg_name => 'PA_NEG_PRG_NOT_ALLOWED');
1039: x_return_status := FND_API.G_RET_STS_ERROR;
1040: RAISE FND_API.G_EXC_ERROR;
1041: END IF;
1042:
1043: --End 3861930
1036: IF p_progress_weight IS NOT NULL AND p_progress_weight < 0 THEN
1037: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1038: p_msg_name => 'PA_NEG_PRG_NOT_ALLOWED');
1039: x_return_status := FND_API.G_RET_STS_ERROR;
1040: RAISE FND_API.G_EXC_ERROR;
1041: END IF;
1042:
1043: --End 3861930
1044: /*==============3435905 : FP M : Deliverables Changes For AMG - START ==============================*/
1094: , x_return_status => x_return_status
1095: , x_msg_count => x_msg_count
1096: , x_msg_data => x_msg_data );
1097:
1098: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1100: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1101: RAISE FND_API.G_EXC_ERROR;
1102: END IF;
1095: , x_msg_count => x_msg_count
1096: , x_msg_data => x_msg_data );
1097:
1098: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1100: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1101: RAISE FND_API.G_EXC_ERROR;
1102: END IF;
1103:
1096: , x_msg_data => x_msg_data );
1097:
1098: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1100: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1101: RAISE FND_API.G_EXC_ERROR;
1102: END IF;
1103:
1104: /*==============3435905 : FP M : Deliverables Changes For AMG - END ============================== */
1097:
1098: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1099: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1100: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1101: RAISE FND_API.G_EXC_ERROR;
1102: END IF;
1103:
1104: /*==============3435905 : FP M : Deliverables Changes For AMG - END ============================== */
1105:
1105:
1106: ELSE /* context <> 'AMG' */
1107:
1108: IF (p_project_id IS NULL ) THEN
1109: x_return_status := FND_API.G_RET_STS_ERROR;
1110: END IF;
1111:
1112: IF (p_dlvr_number IS NULL ) THEN
1113: x_return_status := FND_API.G_RET_STS_ERROR;
1109: x_return_status := FND_API.G_RET_STS_ERROR;
1110: END IF;
1111:
1112: IF (p_dlvr_number IS NULL ) THEN
1113: x_return_status := FND_API.G_RET_STS_ERROR;
1114: END IF;
1115:
1116: IF (p_dlvr_name IS NULL ) THEN
1117: x_return_status := FND_API.G_RET_STS_ERROR;
1113: x_return_status := FND_API.G_RET_STS_ERROR;
1114: END IF;
1115:
1116: IF (p_dlvr_name IS NULL ) THEN
1117: x_return_status := FND_API.G_RET_STS_ERROR;
1118: END IF;
1119:
1120: IF (p_dlvr_type_id IS NULL ) THEN
1121: IF (p_dlvr_type_name IS NULL ) THEN
1118: END IF;
1119:
1120: IF (p_dlvr_type_id IS NULL ) THEN
1121: IF (p_dlvr_type_name IS NULL ) THEN
1122: x_return_status := FND_API.G_RET_STS_ERROR;
1123: END IF;
1124: END IF;
1125:
1126: IF (p_status_code IS NULL ) THEN
1123: END IF;
1124: END IF;
1125:
1126: IF (p_status_code IS NULL ) THEN
1127: x_return_status := FND_API.G_RET_STS_ERROR;
1128: END IF;
1129:
1130:
1131: IF (p_dlvr_version_id IS NULL ) THEN
1128: END IF;
1129:
1130:
1131: IF (p_dlvr_version_id IS NULL ) THEN
1132: x_return_status := FND_API.G_RET_STS_ERROR;
1133: END IF;
1134:
1135: l_dlvr_name := p_dlvr_name ;
1136: l_dlvr_description := p_dlvr_description ;
1156:
1157: END IF; /* context =AMG */
1158: -- Business Logic
1159:
1160: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1161: RAISE Invalid_Arg_Exc_WP;
1162: END IF;
1163:
1164: IF l_debug_mode = 'Y' THEN
1193: Pa_Debug.WRITE(g_module_name,' Out of PA_DELIVERABLE_UTILS.get_structure_info ',
1194: l_debug_level3);
1195: END IF;
1196:
1197: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1198: RAISE FND_API.G_EXC_ERROR;
1199: END IF;
1200:
1201: IF l_debug_mode = 'Y' THEN
1194: l_debug_level3);
1195: END IF;
1196:
1197: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1198: RAISE FND_API.G_EXC_ERROR;
1199: END IF;
1200:
1201: IF l_debug_mode = 'Y' THEN
1202: Pa_Debug.WRITE(g_module_name,' Checking Uniqueness for Deliverable Number ',
1218:
1219: IF (is_dlvr_number_unique = 'N' ) THEN
1220: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA',
1221: p_msg_name => 'PA_DLVR_NUMBER_EXISTS');
1222: x_return_status := FND_API.G_RET_STS_ERROR;
1223: END IF;
1224:
1225: -- else call update_deliveable procedure of pa_deliveable_pvt package
1226:
1223: END IF;
1224:
1225: -- else call update_deliveable procedure of pa_deliveable_pvt package
1226:
1227: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: END IF;
1230:
1231: IF l_debug_mode = 'Y' THEN
1224:
1225: -- else call update_deliveable procedure of pa_deliveable_pvt package
1226:
1227: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1228: RAISE FND_API.G_EXC_ERROR;
1229: END IF;
1230:
1231: IF l_debug_mode = 'Y' THEN
1232: Pa_Debug.WRITE(g_module_name,' Deliverable Number is unique',
1240:
1241: PA_DELIVERABLE_PVT.Update_Deliverable
1242: (
1243: p_api_version => p_api_version
1244: ,p_init_msg_list => FND_API.G_FALSE
1245: ,p_commit => p_commit
1246: ,p_validate_only => p_validate_only
1247: ,p_validation_level => p_validation_level
1248: ,p_calling_module => p_calling_module
1299: l_debug_level3);
1300: END IF;
1301:
1302:
1303: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1305: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1306: RAISE FND_API.G_EXC_ERROR;
1307: END IF;
1300: END IF;
1301:
1302:
1303: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1305: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1306: RAISE FND_API.G_EXC_ERROR;
1307: END IF;
1308:
1301:
1302:
1303: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1305: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1306: RAISE FND_API.G_EXC_ERROR;
1307: END IF;
1308:
1309: /*==============3435905 : FP M : Deliverables Changes For AMG - START ==============================*/
1302:
1303: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1305: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1306: RAISE FND_API.G_EXC_ERROR;
1307: END IF;
1308:
1309: /*==============3435905 : FP M : Deliverables Changes For AMG - START ==============================*/
1310: IF (p_calling_module = 'AMG') THEN
1378:
1379: oke_amg_grp.manage_dlv
1380: ( p_api_version => p_api_version
1381: , p_init_msg_list => p_init_msg_list
1382: , p_commit => FND_API.G_FALSE
1383: , p_action => 'UPDATE'
1384: , p_item_dlv => l_item_dlv
1385: , p_master_inv_org_id => l_master_inv_org_id -- 3651542 passing retrieved master inventory org id
1386: , p_dlv_rec => l_dlv_rec
1391:
1392: END IF; -- Bug 7562076
1393: END IF;
1394:
1395: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1397: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1398: RAISE FND_API.G_EXC_ERROR;
1399: END IF;
1392: END IF; -- Bug 7562076
1393: END IF;
1394:
1395: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1397: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1398: RAISE FND_API.G_EXC_ERROR;
1399: END IF;
1400:
1393: END IF;
1394:
1395: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1397: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1398: RAISE FND_API.G_EXC_ERROR;
1399: END IF;
1400:
1401: /*==============3435905 : FP M : Deliverables Changes For AMG - END ==============================*/
1394:
1395: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1397: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1398: RAISE FND_API.G_EXC_ERROR;
1399: END IF;
1400:
1401: /*==============3435905 : FP M : Deliverables Changes For AMG - END ==============================*/
1402:
1399: END IF;
1400:
1401: /*==============3435905 : FP M : Deliverables Changes For AMG - END ==============================*/
1402:
1403: x_return_status := FND_API.G_RET_STS_SUCCESS;
1404:
1405: IF (p_commit = FND_API.G_TRUE) THEN
1406: COMMIT;
1407: END IF;
1401: /*==============3435905 : FP M : Deliverables Changes For AMG - END ==============================*/
1402:
1403: x_return_status := FND_API.G_RET_STS_SUCCESS;
1404:
1405: IF (p_commit = FND_API.G_TRUE) THEN
1406: COMMIT;
1407: END IF;
1408:
1409: IF l_debug_mode = 'Y' THEN --Added for bug 4945876
1411: END IF ;
1412:
1413: EXCEPTION
1414:
1415: WHEN FND_API.G_EXC_ERROR THEN
1416:
1417: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1418: l_msg_count := Fnd_Msg_Pub.count_msg;
1419:
1413: EXCEPTION
1414:
1415: WHEN FND_API.G_EXC_ERROR THEN
1416:
1417: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1418: l_msg_count := Fnd_Msg_Pub.count_msg;
1419:
1420: IF p_commit = FND_API.G_TRUE THEN
1421: ROLLBACK TO UPDATE_DLVR_PUB;
1416:
1417: x_return_status := Fnd_Api.G_RET_STS_ERROR;
1418: l_msg_count := Fnd_Msg_Pub.count_msg;
1419:
1420: IF p_commit = FND_API.G_TRUE THEN
1421: ROLLBACK TO UPDATE_DLVR_PUB;
1422: END IF;
1423:
1424: IF l_msg_count = 1 AND x_msg_data IS NULL
1423:
1424: IF l_msg_count = 1 AND x_msg_data IS NULL
1425: THEN
1426: Pa_Interface_Utils_Pub.get_messages
1427: ( p_encoded => Fnd_Api.G_TRUE
1428: , p_msg_index => 1
1429: , p_msg_count => l_msg_count
1430: , p_msg_data => l_msg_data
1431: , p_data => l_data
1440: END IF;
1441:
1442: WHEN Invalid_Arg_Exc_WP THEN
1443:
1444: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1445: x_msg_count := 1;
1446: x_msg_data := 'PA_DELIVERABLE_PUB : Update_Deliverable : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
1447:
1448: IF p_commit = FND_API.G_TRUE THEN
1444: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1445: x_msg_count := 1;
1446: x_msg_data := 'PA_DELIVERABLE_PUB : Update_Deliverable : NULL PARAMETERS ARE PASSED OR CURSOR DIDNT RETURN ANY ROWS';
1447:
1448: IF p_commit = FND_API.G_TRUE THEN
1449: ROLLBACK TO UPDATE_DLVR_PUB;
1450: END IF;
1451:
1452: Fnd_Msg_Pub.add_exc_msg
1463: RAISE;
1464:
1465: WHEN OTHERS THEN
1466:
1467: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1468: x_msg_count := 1;
1469: x_msg_data := SQLERRM;
1470:
1471: IF p_commit = FND_API.G_TRUE THEN
1467: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
1468: x_msg_count := 1;
1469: x_msg_data := SQLERRM;
1470:
1471: IF p_commit = FND_API.G_TRUE THEN
1472: ROLLBACK TO UPDATE_DLVR_PUB;
1473: END IF;
1474:
1475: Fnd_Msg_Pub.add_exc_msg
1517:
1518:
1519: PROCEDURE DELETE_DLV_TASK_ASSOCIATION
1520: (p_api_version IN NUMBER :=1.0
1521: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
1522: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
1523: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
1524: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
1525: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
1518:
1519: PROCEDURE DELETE_DLV_TASK_ASSOCIATION
1520: (p_api_version IN NUMBER :=1.0
1521: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
1522: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
1523: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
1524: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
1525: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
1526: ,p_debug_mode IN VARCHAR2 :='N'
1519: PROCEDURE DELETE_DLV_TASK_ASSOCIATION
1520: (p_api_version IN NUMBER :=1.0
1521: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
1522: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
1523: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
1524: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
1525: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
1526: ,p_debug_mode IN VARCHAR2 :='N'
1527: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1520: (p_api_version IN NUMBER :=1.0
1521: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
1522: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
1523: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
1524: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
1525: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
1526: ,p_debug_mode IN VARCHAR2 :='N'
1527: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1528: ,p_task_element_id IN pa_proj_elements.proj_element_id%TYPE
1547:
1548: BEGIN
1549:
1550: x_msg_count := 0;
1551: x_return_status := FND_API.G_RET_STS_SUCCESS;
1552: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1553:
1554: IF l_debug_mode = 'Y' THEN
1555: PA_DEBUG.set_curr_function( p_function => 'DELETE_DLV_TASK_ASSOCIATION',
1567: pa_debug.write(g_module_name,'p_dlv_version_id'||':'||p_dlv_version_id,3) ;
1568: pa_debug.write(g_module_name,'p_object_relationship_id'||':'||p_object_relationship_id,3) ;
1569: END IF;
1570:
1571: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
1572: FND_MSG_PUB.initialize;
1573: END IF;
1574:
1575: IF (p_commit = FND_API.G_TRUE) THEN
1571: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
1572: FND_MSG_PUB.initialize;
1573: END IF;
1574:
1575: IF (p_commit = FND_API.G_TRUE) THEN
1576: savepoint DEL_DLV_TASK_ASSCN_PUB_SP ;
1577: END IF;
1578:
1579: IF l_debug_mode = 'Y' THEN
1588: pa_debug.g_err_stage:= 'INVALID INPUT PARAMETER';
1589: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1590: END IF;
1591:
1592: x_return_status := FND_API.G_RET_STS_ERROR;
1593: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
1594: ,p_msg_name => 'PA_INV_PARAM_PASSED');
1595: RAISE Invalid_Arg_Exc_Dlv;
1596: END IF;
1622: ,x_msg_count => x_msg_count
1623: ,x_msg_data => x_msg_data
1624: ) ;
1625:
1626: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1627: RAISE Invalid_Arg_Exc_Dlv ;
1628: END IF ;
1629:
1630: IF l_debug_mode = 'Y' THEN
1634: END IF;
1635:
1636: EXCEPTION
1637: WHEN Invalid_Arg_Exc_Dlv THEN
1638: x_return_status := FND_API.G_RET_STS_ERROR;
1639: l_msg_count := FND_MSG_PUB.count_msg;
1640:
1641: IF (p_commit = FND_API.G_TRUE) THEN
1642: ROLLBACK TO DEL_DLV_TASK_ASSCN_PUB_SP;
1637: WHEN Invalid_Arg_Exc_Dlv THEN
1638: x_return_status := FND_API.G_RET_STS_ERROR;
1639: l_msg_count := FND_MSG_PUB.count_msg;
1640:
1641: IF (p_commit = FND_API.G_TRUE) THEN
1642: ROLLBACK TO DEL_DLV_TASK_ASSCN_PUB_SP;
1643: END IF ;
1644:
1645: IF l_debug_mode = 'Y' THEN
1648: END IF;
1649:
1650: IF l_msg_count = 1 THEN
1651: PA_INTERFACE_UTILS_PUB.get_messages
1652: (p_encoded => FND_API.G_TRUE,
1653: p_msg_index => 1,
1654: p_msg_count => l_msg_count,
1655: p_msg_data => l_msg_data,
1656: p_data => l_data,
1664: pa_debug.reset_curr_function;
1665: END IF ;
1666: RETURN;
1667: WHEN OTHERS THEN
1668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1669: x_msg_count := 1;
1670: x_msg_data := SQLERRM;
1671:
1672: IF (p_commit = FND_API.G_TRUE) THEN
1668: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1669: x_msg_count := 1;
1670: x_msg_data := SQLERRM;
1671:
1672: IF (p_commit = FND_API.G_TRUE) THEN
1673: ROLLBACK TO DEL_DLV_TASK_ASSCN_PUB_SP;
1674: END IF ;
1675:
1676: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_DELIVERABLES_PUB'
1710: -- x_msg_data OUT VARCHAR2 N Standard Out Parameter
1711:
1712: PROCEDURE DELETE_DELIVERABLES_IN_BULK
1713: (p_api_version IN NUMBER :=1.0
1714: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
1715: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
1716: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
1717: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
1718: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
1711:
1712: PROCEDURE DELETE_DELIVERABLES_IN_BULK
1713: (p_api_version IN NUMBER :=1.0
1714: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
1715: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
1716: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
1717: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
1718: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
1719: ,p_debug_mode IN VARCHAR2 :='N'
1712: PROCEDURE DELETE_DELIVERABLES_IN_BULK
1713: (p_api_version IN NUMBER :=1.0
1714: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
1715: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
1716: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
1717: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
1718: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
1719: ,p_debug_mode IN VARCHAR2 :='N'
1720: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1713: (p_api_version IN NUMBER :=1.0
1714: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
1715: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
1716: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
1717: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
1718: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
1719: ,p_debug_mode IN VARCHAR2 :='N'
1720: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1721: ,p_dlv_element_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE()
1751: j NUMBER ;
1752:
1753: BEGIN
1754: l_msg_count := 0;
1755: l_return_status := FND_API.G_RET_STS_SUCCESS;
1756: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1757: j := 0 ;
1758:
1759: IF l_debug_mode = 'Y' THEN
1762: pa_debug.g_err_stage:= 'Inside DELETE_DELIVERABLES_IN_BULK ';
1763: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1764: END IF;
1765:
1766: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
1767: FND_MSG_PUB.initialize;
1768: END IF;
1769:
1770: SAVEPOINT DELETE_DELIVERABLES ;
1780: pa_debug.debug('record version id is :'||p_rec_ver_number_tbl(i));
1781: END IF ;
1782:
1783: -- initialization is required for every loop
1784: l_return_status := FND_API.G_RET_STS_SUCCESS ;
1785: l_msg_count := 0 ;
1786: l_msg_data := null ;
1787:
1788: PA_DELIVERABLE_PVT.DELETE_DELIVERABLE
1802: ,x_msg_count => l_msg_count
1803: ,x_msg_data => l_msg_data
1804: );
1805:
1806: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1807:
1808: j := j+1 ;
1809:
1810:
1808: j := j+1 ;
1809:
1810:
1811: PA_INTERFACE_UTILS_PUB.get_messages
1812: (p_encoded => FND_API.G_FALSE, -- Get the encoded message.
1813: p_msg_index => 1, -- Get the message at index 1.
1814: p_data => l_enc_msg_data,
1815: p_msg_index_out => l_msg_index_out);
1816:
1859: END IF ;
1860:
1861: EXCEPTION
1862: WHEN OTHERS THEN
1863: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1864: x_msg_count := 1;
1865: x_msg_data := SQLERRM;
1866: ROLLBACK TO DELETE_DELIVERABLES;
1867:
1924: -- p_task_or_dlv will be 'PA_DELIVERABLES'
1925:
1926: PROCEDURE CREATE_ASSOCIATIONS_IN_BULK
1927: (p_api_version IN NUMBER :=1.0
1928: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
1929: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
1930: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
1931: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
1932: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
1925:
1926: PROCEDURE CREATE_ASSOCIATIONS_IN_BULK
1927: (p_api_version IN NUMBER :=1.0
1928: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
1929: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
1930: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
1931: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
1932: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
1933: ,p_debug_mode IN VARCHAR2 :='N'
1926: PROCEDURE CREATE_ASSOCIATIONS_IN_BULK
1927: (p_api_version IN NUMBER :=1.0
1928: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
1929: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
1930: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
1931: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
1932: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
1933: ,p_debug_mode IN VARCHAR2 :='N'
1934: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1927: (p_api_version IN NUMBER :=1.0
1928: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
1929: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
1930: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
1931: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
1932: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
1933: ,p_debug_mode IN VARCHAR2 :='N'
1934: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
1935: ,p_element_id_tbl IN SYSTEM.PA_NUM_TBL_TYPE := SYSTEM.PA_NUM_TBL_TYPE()
1952: l_msg_index_out NUMBER;
1953:
1954: BEGIN
1955: l_msg_count := 0;
1956: x_return_status := FND_API.G_RET_STS_SUCCESS;
1957: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
1958:
1959: IF l_debug_mode = 'Y' THEN
1960: PA_DEBUG.set_curr_function( p_function => 'CREATE_ASSOCIATIONS_IN_BULK',
1962: pa_debug.g_err_stage:= 'Inside CREATE_ASSOCIATIONS_IN_BULK ';
1963: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
1964: END IF;
1965:
1966: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
1967: FND_MSG_PUB.initialize;
1968: END IF;
1969:
1970: IF (p_commit = FND_API.G_TRUE) THEN
1966: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
1967: FND_MSG_PUB.initialize;
1968: END IF;
1969:
1970: IF (p_commit = FND_API.G_TRUE) THEN
1971: SAVEPOINT CREATE_ASSOCIATIONS_SP ;
1972: END IF ;
1973:
1974: IF (p_task_or_dlv IS NULL OR p_task_or_dlv_elt_id IS NULL OR p_task_or_dlv_ver_id IS NULL )
1977: pa_debug.g_err_stage:= 'INVALID INPUT PARAMETER';
1978: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
1979: END IF;
1980:
1981: x_return_status := FND_API.G_RET_STS_ERROR;
1982: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
1983: ,p_msg_name => 'PA_INV_PARAM_PASSED');
1984: RAISE Invalid_Arg_Exc_Dlv;
1985: END IF;
1986:
1987: IF nvl(p_element_id_tbl.LAST,0)>0 THEN
1988: PA_DELIVERABLE_PVT.CREATE_ASSOCIATIONS_IN_BULK
1989: (p_api_version => p_api_version
1990: ,p_init_msg_list => FND_API.G_FALSE
1991: ,p_commit => p_commit
1992: ,p_validate_only => p_validate_only
1993: ,p_validation_level => p_validation_level
1994: ,p_calling_module => p_calling_module
2007: ,x_msg_data => x_msg_data
2008: ) ;
2009: END IF ;
2010:
2011: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2012: RAISE Invalid_Arg_Exc_Dlv ;
2013: END IF ;
2014:
2015: IF l_debug_mode = 'Y' THEN --Added for bug 4945876
2017: END IF ;
2018:
2019: EXCEPTION
2020: WHEN Invalid_Arg_Exc_Dlv THEN
2021: x_return_status := FND_API.G_RET_STS_ERROR;
2022: l_msg_count := FND_MSG_PUB.count_msg;
2023:
2024: IF (p_commit = FND_API.G_TRUE) THEN
2025: ROLLBACK TO CREATE_ASSOCIATIONS_SP;
2020: WHEN Invalid_Arg_Exc_Dlv THEN
2021: x_return_status := FND_API.G_RET_STS_ERROR;
2022: l_msg_count := FND_MSG_PUB.count_msg;
2023:
2024: IF (p_commit = FND_API.G_TRUE) THEN
2025: ROLLBACK TO CREATE_ASSOCIATIONS_SP;
2026: END IF ;
2027:
2028: IF l_debug_mode = 'Y' THEN
2031: END IF;
2032:
2033: IF l_msg_count = 1 THEN
2034: PA_INTERFACE_UTILS_PUB.get_messages
2035: (p_encoded => FND_API.G_TRUE,
2036: p_msg_index => 1,
2037: p_msg_count => l_msg_count,
2038: p_msg_data => l_msg_data,
2039: p_data => l_data,
2047: pa_debug.reset_curr_function;
2048: END IF ;
2049: RETURN;
2050: WHEN OTHERS THEN
2051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2052: x_msg_count := 1;
2053: x_msg_data := SQLERRM;
2054:
2055: IF (p_commit = FND_API.G_TRUE) THEN
2051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2052: x_msg_count := 1;
2053: x_msg_data := SQLERRM;
2054:
2055: IF (p_commit = FND_API.G_TRUE) THEN
2056: ROLLBACK TO CREATE_ASSOCIATIONS_SP;
2057: END IF ;
2058:
2059: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_DELIVERABLES_PUB'
2088: -- x_msg_data OUT VARCHAR2 N Standard Out Parameter
2089:
2090: PROCEDURE DELETE_DELIVERABLE_STRUCTURE
2091: (p_api_version IN NUMBER :=1.0
2092: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2093: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2094: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2095: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2096: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2089:
2090: PROCEDURE DELETE_DELIVERABLE_STRUCTURE
2091: (p_api_version IN NUMBER :=1.0
2092: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2093: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2094: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2095: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2096: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2097: ,p_debug_mode IN VARCHAR2 :='N'
2090: PROCEDURE DELETE_DELIVERABLE_STRUCTURE
2091: (p_api_version IN NUMBER :=1.0
2092: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2093: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2094: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2095: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2096: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2097: ,p_debug_mode IN VARCHAR2 :='N'
2098: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2091: (p_api_version IN NUMBER :=1.0
2092: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2093: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2094: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2095: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2096: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2097: ,p_debug_mode IN VARCHAR2 :='N'
2098: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2099: ,p_project_id IN pa_projects_all.project_id%TYPE
2114:
2115:
2116: BEGIN
2117: l_msg_count := 0;
2118: l_return_status := FND_API.G_RET_STS_SUCCESS;
2119: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2120:
2121:
2122: IF l_debug_mode = 'Y' THEN
2125: pa_debug.g_err_stage:= 'Inside DELETE_DELIVERABLE_STRUCTURE ';
2126: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2127: END IF;
2128:
2129: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2130: FND_MSG_PUB.initialize;
2131: END IF;
2132:
2133: IF (p_commit = FND_API.G_TRUE) THEN
2129: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2130: FND_MSG_PUB.initialize;
2131: END IF;
2132:
2133: IF (p_commit = FND_API.G_TRUE) THEN
2134: SAVEPOINT DELETE_DELIVERABLE_STRUCTURE;
2135: END IF ;
2136:
2137: IF (p_project_id IS NULL )
2140: pa_debug.g_err_stage:= 'INVALID INPUT PARAMETER';
2141: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2142: END IF;
2143:
2144: x_return_status := FND_API.G_RET_STS_ERROR;
2145: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
2146: ,p_msg_name => 'PA_INV_PARAM_PASSED');
2147: RAISE Invalid_Arg_Exc_Dlv;
2148: END IF;
2160: ,x_msg_count => x_msg_count
2161: ,x_msg_data => x_msg_data
2162: ) ;
2163:
2164: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2165: RAISE Invalid_Arg_Exc_Dlv ;
2166: END IF ;
2167:
2168:
2170: pa_debug.reset_curr_function;
2171: END IF ;
2172: EXCEPTION
2173: WHEN Invalid_Arg_Exc_Dlv THEN
2174: x_return_status := FND_API.G_RET_STS_ERROR;
2175: l_msg_count := FND_MSG_PUB.count_msg;
2176:
2177: IF (p_commit = FND_API.G_TRUE) THEN
2178: ROLLBACK TO DELETE_DELIVERABLE_STRUCTURE;
2173: WHEN Invalid_Arg_Exc_Dlv THEN
2174: x_return_status := FND_API.G_RET_STS_ERROR;
2175: l_msg_count := FND_MSG_PUB.count_msg;
2176:
2177: IF (p_commit = FND_API.G_TRUE) THEN
2178: ROLLBACK TO DELETE_DELIVERABLE_STRUCTURE;
2179: END IF ;
2180:
2181: IF l_debug_mode = 'Y' THEN
2184: END IF;
2185:
2186: IF l_msg_count = 1 THEN
2187: PA_INTERFACE_UTILS_PUB.get_messages
2188: (p_encoded => FND_API.G_TRUE,
2189: p_msg_index => 1,
2190: p_msg_count => l_msg_count,
2191: p_msg_data => l_msg_data,
2192: p_data => l_data,
2200: pa_debug.reset_curr_function;
2201: END IF ;
2202: RETURN;
2203: WHEN OTHERS THEN
2204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2205: x_msg_count := 1;
2206: x_msg_data := SQLERRM;
2207:
2208: IF (p_commit = FND_API.G_TRUE) THEN
2204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2205: x_msg_count := 1;
2206: x_msg_data := SQLERRM;
2207:
2208: IF (p_commit = FND_API.G_TRUE) THEN
2209: ROLLBACK TO DELETE_DELIVERABLE_STRUCTURE;
2210: END IF ;
2211:
2212: FND_MSG_PUB.add_exc_msg
2221: END DELETE_DELIVERABLE_STRUCTURE ;
2222:
2223: PROCEDURE DELETE_DLV_TASK_ASSCN_IN_BULK
2224: (p_api_version IN NUMBER :=1.0
2225: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2226: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2227: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2228: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2229: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2222:
2223: PROCEDURE DELETE_DLV_TASK_ASSCN_IN_BULK
2224: (p_api_version IN NUMBER :=1.0
2225: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2226: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2227: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2228: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2229: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2230: ,p_debug_mode IN VARCHAR2 :='N'
2223: PROCEDURE DELETE_DLV_TASK_ASSCN_IN_BULK
2224: (p_api_version IN NUMBER :=1.0
2225: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2226: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2227: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2228: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2229: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2230: ,p_debug_mode IN VARCHAR2 :='N'
2231: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2224: (p_api_version IN NUMBER :=1.0
2225: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2226: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2227: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2228: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2229: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2230: ,p_debug_mode IN VARCHAR2 :='N'
2231: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2232: ,p_calling_context IN VARCHAR2 := 'PA_TASKS'
2248:
2249: BEGIN
2250:
2251: x_msg_count := 0;
2252: x_return_status := FND_API.G_RET_STS_SUCCESS;
2253: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2254:
2255: IF l_debug_mode = 'Y' THEN
2256: PA_DEBUG.set_curr_function( p_function => 'DELETE_DLV_TASK_ASSCN_IN_BULK',
2258: pa_debug.g_err_stage:= 'Inside DELETE_DLV_TASK_ASSCN_IN_BULK ';
2259: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2260: END IF;
2261:
2262: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2263: FND_MSG_PUB.initialize;
2264: END IF;
2265:
2266: IF (p_commit = FND_API.G_TRUE) THEN
2262: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2263: FND_MSG_PUB.initialize;
2264: END IF;
2265:
2266: IF (p_commit = FND_API.G_TRUE) THEN
2267: ROLLBACK TO DELETE_DLV_TASK_ASSCN_IN_BULK ;
2268: END IF ;
2269:
2270: -- 3651542 Removed "p_task_version_id IS NULL" check from below IF condition
2275: pa_debug.g_err_stage:= 'INVALID INPUT PARAMETER';
2276: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2277: END IF;
2278:
2279: x_return_status := FND_API.G_RET_STS_ERROR;
2280: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
2281: ,p_msg_name => 'PA_INV_PARAM_PASSED');
2282: RAISE Invalid_Arg_Exc_Dlv;
2283: END IF;
2300: ,x_msg_count => x_msg_count
2301: ,x_msg_data => x_msg_data
2302: ) ;
2303:
2304: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2305: RAISE Invalid_Arg_Exc_Dlv ;
2306: END IF ;
2307:
2308: IF l_debug_mode = 'Y' THEN
2312: END IF;
2313:
2314: EXCEPTION
2315: WHEN Invalid_Arg_Exc_Dlv THEN
2316: x_return_status := FND_API.G_RET_STS_ERROR;
2317: l_msg_count := FND_MSG_PUB.count_msg;
2318:
2319: IF l_debug_mode = 'Y' THEN
2320: pa_debug.g_err_stage := 'inside invalid arg exception of DELETE_DLV_TASK_ASSCN_IN_BULK';
2320: pa_debug.g_err_stage := 'inside invalid arg exception of DELETE_DLV_TASK_ASSCN_IN_BULK';
2321: pa_debug.write(g_module_name,pa_debug.g_err_stage,5);
2322: END IF;
2323:
2324: IF (p_commit = FND_API.G_TRUE) THEN
2325: ROLLBACK TO DELETE_DLV_TASK_ASSCN_IN_BULK ;
2326: END IF ;
2327:
2328: IF l_msg_count = 1 THEN
2326: END IF ;
2327:
2328: IF l_msg_count = 1 THEN
2329: PA_INTERFACE_UTILS_PUB.get_messages
2330: (p_encoded => FND_API.G_TRUE,
2331: p_msg_index => 1,
2332: p_msg_count => l_msg_count,
2333: p_msg_data => l_msg_data,
2334: p_data => l_data,
2342: pa_debug.reset_curr_function;
2343: END IF ;
2344: RETURN;
2345: WHEN OTHERS THEN
2346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2347: x_msg_count := 1;
2348: x_msg_data := SQLERRM;
2349:
2350: IF (p_commit = FND_API.G_TRUE) THEN
2346: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2347: x_msg_count := 1;
2348: x_msg_data := SQLERRM;
2349:
2350: IF (p_commit = FND_API.G_TRUE) THEN
2351: ROLLBACK TO DELETE_DLV_TASK_ASSCN_IN_BULK ;
2352: END IF ;
2353:
2354: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_DELIVERABLES_PVT'
2363: END DELETE_DLV_TASK_ASSCN_IN_BULK ;
2364:
2365: PROCEDURE DELETE_DLV_ASSOCIATIONS
2366: (p_api_version IN NUMBER :=1.0
2367: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2368: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2369: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2370: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2371: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2364:
2365: PROCEDURE DELETE_DLV_ASSOCIATIONS
2366: (p_api_version IN NUMBER :=1.0
2367: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2368: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2369: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2370: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2371: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2372: ,p_debug_mode IN VARCHAR2 :='N'
2365: PROCEDURE DELETE_DLV_ASSOCIATIONS
2366: (p_api_version IN NUMBER :=1.0
2367: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2368: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2369: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2370: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2371: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2372: ,p_debug_mode IN VARCHAR2 :='N'
2373: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2366: (p_api_version IN NUMBER :=1.0
2367: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2368: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2369: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2370: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2371: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2372: ,p_debug_mode IN VARCHAR2 :='N'
2373: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2374: ,p_project_id IN NUMBER
2387:
2388: BEGIN
2389:
2390: x_msg_count := 0;
2391: x_return_status := FND_API.G_RET_STS_SUCCESS;
2392: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2393:
2394: IF l_debug_mode = 'Y' THEN
2395: PA_DEBUG.set_curr_function( p_function => 'DELETE_DLV_ASSOCIATIONS',
2397: pa_debug.g_err_stage:= 'Inside DELETE_DLV_TASK_ASSOCIATION ';
2398: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2399: END IF;
2400:
2401: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2402: FND_MSG_PUB.initialize;
2403: END IF;
2404:
2405: IF (p_project_id IS NULL )
2408: pa_debug.g_err_stage:= 'INVALID INPUT PARAMETER';
2409: pa_debug.write(g_module_name,pa_debug.g_err_stage,3);
2410: END IF;
2411:
2412: x_return_status := FND_API.G_RET_STS_ERROR;
2413: PA_UTILS.ADD_MESSAGE(p_app_short_name => 'PA'
2414: ,p_msg_name => 'PA_INV_PARAM_PASSED');
2415: RAISE Invalid_Arg_Exc_Dlv;
2416: END IF;
2434: ,x_msg_count => x_msg_count
2435: ,x_msg_data => x_msg_data
2436: ) ;
2437:
2438: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2439: RAISE Invalid_Arg_Exc_Dlv ;
2440: END IF ;
2441:
2442: IF l_debug_mode = 'Y' THEN
2446: END IF;
2447:
2448: EXCEPTION
2449: WHEN Invalid_Arg_Exc_Dlv THEN
2450: x_return_status := FND_API.G_RET_STS_ERROR;
2451: l_msg_count := FND_MSG_PUB.count_msg;
2452:
2453: IF l_debug_mode = 'Y' THEN
2454: pa_debug.g_err_stage := 'inside invalid arg exception of DELETE_DLV_ASSOCIATIONS';
2456: END IF;
2457:
2458: IF l_msg_count = 1 THEN
2459: PA_INTERFACE_UTILS_PUB.get_messages
2460: (p_encoded => FND_API.G_TRUE,
2461: p_msg_index => 1,
2462: p_msg_count => l_msg_count,
2463: p_msg_data => l_msg_data,
2464: p_data => l_data,
2472: pa_debug.reset_curr_function;
2473: END IF ;
2474: RETURN;
2475: WHEN OTHERS THEN
2476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2477: x_msg_count := 1;
2478: x_msg_data := SQLERRM;
2479:
2480: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_DELIVERABLES_PVT'
2489: END DELETE_DLV_ASSOCIATIONS ;
2490:
2491: PROCEDURE COPY_DELIVERABLES
2492: (p_api_version IN NUMBER :=1.0
2493: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2494: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2495: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2496: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2497: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2490:
2491: PROCEDURE COPY_DELIVERABLES
2492: (p_api_version IN NUMBER :=1.0
2493: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2494: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2495: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2496: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2497: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2498: ,p_debug_mode IN VARCHAR2 :='N'
2491: PROCEDURE COPY_DELIVERABLES
2492: (p_api_version IN NUMBER :=1.0
2493: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2494: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2495: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2496: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2497: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2498: ,p_debug_mode IN VARCHAR2 :='N'
2499: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2492: (p_api_version IN NUMBER :=1.0
2493: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2494: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2495: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2496: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2497: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2498: ,p_debug_mode IN VARCHAR2 :='N'
2499: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2500: ,p_source_project_id IN NUMBER
2523: l_dummy VARCHAR2(1) ;
2524: l_return_flag VARCHAR2(1) ;
2525: BEGIN
2526: x_msg_count := 0;
2527: x_return_status := FND_API.G_RET_STS_SUCCESS;
2528: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2529:
2530: IF l_debug_mode = 'Y' THEN
2531: PA_DEBUG.set_curr_function( p_function => 'COPY_DELIVERABLES',
2533: pa_debug.g_err_stage:= 'Inside COPY_DELIVERABLES ';
2534: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2535: END IF;
2536:
2537: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2538: FND_MSG_PUB.initialize;
2539: END IF;
2540: IF (p_commit = FND_API.G_TRUE) THEN
2541: SAVEPOINT COPY_DELIVERABLES_SP ;
2536:
2537: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2538: FND_MSG_PUB.initialize;
2539: END IF;
2540: IF (p_commit = FND_API.G_TRUE) THEN
2541: SAVEPOINT COPY_DELIVERABLES_SP ;
2542: END IF ;
2543: --Bug 3429393
2544: IF l_debug_mode = 'Y' THEN
2555: END IF;
2556:
2557: PA_DELIVERABLE_PVT.COPY_DELIVERABLES
2558: (p_api_version => p_api_version
2559: ,p_init_msg_list => FND_API.G_FALSE
2560: ,p_debug_mode => l_debug_mode
2561: ,p_source_project_id => p_source_project_id
2562: ,p_target_project_id => p_target_project_id
2563: ,p_dlv_element_id_tbl => p_dlv_element_id_tbl
2575: ,x_msg_count => x_msg_count
2576: ,x_msg_data => x_msg_data
2577: ) ;
2578:
2579: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2580: RAISE Invalid_Arg_Exc_Dlv ;
2581: END IF ;
2582: IF l_debug_mode = 'Y' THEN --Added for bug 4945876
2583: pa_debug.reset_curr_function;
2583: pa_debug.reset_curr_function;
2584: END IF ;
2585: EXCEPTION
2586: WHEN Invalid_Arg_Exc_Dlv THEN
2587: x_return_status := FND_API.G_RET_STS_ERROR;
2588: l_msg_count := FND_MSG_PUB.count_msg;
2589:
2590: IF (p_commit = FND_API.G_TRUE) THEN
2591: ROLLBACK TO COPY_DELIVERABLES_SP ;
2586: WHEN Invalid_Arg_Exc_Dlv THEN
2587: x_return_status := FND_API.G_RET_STS_ERROR;
2588: l_msg_count := FND_MSG_PUB.count_msg;
2589:
2590: IF (p_commit = FND_API.G_TRUE) THEN
2591: ROLLBACK TO COPY_DELIVERABLES_SP ;
2592: END IF ;
2593:
2594: IF l_debug_mode = 'Y' THEN
2597: END IF;
2598:
2599: IF l_msg_count = 1 THEN
2600: PA_INTERFACE_UTILS_PUB.get_messages
2601: (p_encoded => FND_API.G_TRUE,
2602: p_msg_index => 1,
2603: p_msg_count => l_msg_count,
2604: p_msg_data => l_msg_data,
2605: p_data => l_data,
2613: pa_debug.reset_curr_function;
2614: END IF ;
2615: RETURN;
2616: WHEN OTHERS THEN
2617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2618: x_msg_count := 1;
2619: x_msg_data := SQLERRM;
2620:
2621: IF (p_commit = FND_API.G_TRUE) THEN
2617: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2618: x_msg_count := 1;
2619: x_msg_data := SQLERRM;
2620:
2621: IF (p_commit = FND_API.G_TRUE) THEN
2622: ROLLBACK TO COPY_DELIVERABLES_SP ;
2623: END IF ;
2624:
2625: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_DELIVERABLE_PUB'
2634: END COPY_DELIVERABLES ;
2635:
2636: PROCEDURE COPY_ASSOCIATIONS
2637: (p_api_version IN NUMBER :=1.0
2638: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2639: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2640: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2641: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2642: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2635:
2636: PROCEDURE COPY_ASSOCIATIONS
2637: (p_api_version IN NUMBER :=1.0
2638: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2639: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2640: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2641: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2642: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2643: ,p_debug_mode IN VARCHAR2 :='N'
2636: PROCEDURE COPY_ASSOCIATIONS
2637: (p_api_version IN NUMBER :=1.0
2638: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2639: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2640: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2641: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2642: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2643: ,p_debug_mode IN VARCHAR2 :='N'
2644: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2637: (p_api_version IN NUMBER :=1.0
2638: ,p_init_msg_list IN VARCHAR2 :=FND_API.G_TRUE
2639: ,p_commit IN VARCHAR2 :=FND_API.G_FALSE
2640: ,p_validate_only IN VARCHAR2 :=FND_API.G_TRUE
2641: ,p_validation_level IN NUMBER :=FND_API.G_VALID_LEVEL_FULL
2642: ,p_calling_module IN VARCHAR2 :='SELF_SERVICE'
2643: ,p_debug_mode IN VARCHAR2 :='N'
2644: ,p_max_msg_count IN NUMBER :=PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM
2645: ,p_src_task_versions_tab IN SYSTEM.pa_num_tbl_type
2699: AND nvl(ppe.base_percent_comp_deriv_code,'X') <> 'DELIVERABLE' ; -- 3461959 added nvl function
2700:
2701: BEGIN
2702: x_msg_count := 0;
2703: x_return_status := FND_API.G_RET_STS_SUCCESS;
2704: l_debug_mode := NVL(FND_PROFILE.value('PA_DEBUG_MODE'),'N');
2705:
2706: IF l_debug_mode = 'Y' THEN
2707: PA_DEBUG.set_curr_function( p_function => 'COPY_ASSOCIATIONS',
2709: pa_debug.g_err_stage:= 'Inside COPY_ASSOCIATIONS ';
2710: pa_debug.write(g_module_name,pa_debug.g_err_stage,3) ;
2711: END IF;
2712:
2713: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2714: FND_MSG_PUB.initialize;
2715: END IF;
2716:
2717: IF (p_commit = FND_API.G_TRUE) THEN
2713: IF FND_API.TO_BOOLEAN(nvl(p_init_msg_list,FND_API.G_TRUE)) THEN
2714: FND_MSG_PUB.initialize;
2715: END IF;
2716:
2717: IF (p_commit = FND_API.G_TRUE) THEN
2718: SAVEPOINT COPY_ASSOCIATIONS_SP ;
2719: END IF ;
2720:
2721: FOR i IN p_src_task_versions_tab.FIRST..p_src_task_versions_tab.LAST LOOP
2759: ,x_msg_data => x_msg_data
2760: ) ;
2761: END IF ;
2762:
2763: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2764: RAISE Invalid_Arg_Exc_Dlv ;
2765: END IF ;
2766: END LOOP ;
2767:
2770: END IF ;
2771:
2772: EXCEPTION
2773: WHEN Invalid_Arg_Exc_Dlv THEN
2774: x_return_status := FND_API.G_RET_STS_ERROR;
2775: l_msg_count := FND_MSG_PUB.count_msg;
2776:
2777: IF (p_commit = FND_API.G_TRUE) THEN
2778: ROLLBACK TO COPY_ASSOCIATIONS_SP ;
2773: WHEN Invalid_Arg_Exc_Dlv THEN
2774: x_return_status := FND_API.G_RET_STS_ERROR;
2775: l_msg_count := FND_MSG_PUB.count_msg;
2776:
2777: IF (p_commit = FND_API.G_TRUE) THEN
2778: ROLLBACK TO COPY_ASSOCIATIONS_SP ;
2779: END IF ;
2780:
2781: IF l_debug_mode = 'Y' THEN
2784: END IF;
2785:
2786: IF l_msg_count = 1 THEN
2787: PA_INTERFACE_UTILS_PUB.get_messages
2788: (p_encoded => FND_API.G_TRUE,
2789: p_msg_index => 1,
2790: p_msg_count => l_msg_count,
2791: p_msg_data => l_msg_data,
2792: p_data => l_data,
2800: pa_debug.reset_curr_function;
2801: END IF ;
2802: RETURN;
2803: WHEN OTHERS THEN
2804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2805: x_msg_count := 1;
2806: x_msg_data := SQLERRM;
2807:
2808: IF (p_commit = FND_API.G_TRUE) THEN
2804: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2805: x_msg_count := 1;
2806: x_msg_data := SQLERRM;
2807:
2808: IF (p_commit = FND_API.G_TRUE) THEN
2809: ROLLBACK TO COPY_ASSOCIATIONS_SP ;
2810: END IF ;
2811:
2812: FND_MSG_PUB.add_exc_msg( p_pkg_name=> 'PA_DELIVERABLE_PUB'