3:
4: PROCEDURE Create_REPORT_REGION
5: (
6: p_api_version IN NUMBER := 1.0,
7: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
8: p_commit IN VARCHAR2 := FND_API.g_false,
9: p_validate_only IN VARCHAR2 := FND_API.g_true,
10: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
11:
4: PROCEDURE Create_REPORT_REGION
5: (
6: p_api_version IN NUMBER := 1.0,
7: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
8: p_commit IN VARCHAR2 := FND_API.g_false,
9: p_validate_only IN VARCHAR2 := FND_API.g_true,
10: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
11:
12: p_version_id IN NUMBER := NULL,
5: (
6: p_api_version IN NUMBER := 1.0,
7: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
8: p_commit IN VARCHAR2 := FND_API.g_false,
9: p_validate_only IN VARCHAR2 := FND_API.g_true,
10: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
11:
12: p_version_id IN NUMBER := NULL,
13:
6: p_api_version IN NUMBER := 1.0,
7: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
8: p_commit IN VARCHAR2 := FND_API.g_false,
9: p_validate_only IN VARCHAR2 := FND_API.g_true,
10: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
11:
12: p_version_id IN NUMBER := NULL,
13:
14: P_REGION_SOURCE_TYPE in VARCHAR2 default 'STD',
67: -- Initialize the Error Stack
68: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PUB.Create_REPORT_REGION');
69:
70: -- Initialize the return status to success
71: x_return_status := FND_API.G_RET_STS_SUCCESS;
72:
73: --Clear the global PL/SQL message table
74: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
75: FND_MSG_PUB.initialize;
70: -- Initialize the return status to success
71: x_return_status := FND_API.G_RET_STS_SUCCESS;
72:
73: --Clear the global PL/SQL message table
74: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
75: FND_MSG_PUB.initialize;
76: END IF;
77: /** CAll the Create Region only if any of the attribute values is not null.
78: Reason, it is creating empty records only with PK values populated **/
182: --
183:
184: x_msg_count := FND_MSG_PUB.Count_Msg;
185: IF x_msg_count = 1 THEN
186: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
187: ,p_msg_index => 1
188: ,p_data => x_msg_data
189: ,p_msg_index_out => l_msg_index_out
190: );
202: -- Set the excetption Message and the stack
203: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PUB.Create_REPORT_REGION'
204: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
205: --
206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
207: RAISE; -- This is optional depending on the needs
208:
209: END Create_REPORT_REGION;
210:
211: PROCEDURE Update_REPORT_REGION
212: (
213:
214: p_api_version IN NUMBER := 1.0,
215: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
216: p_commit IN VARCHAR2 := FND_API.g_false,
217: p_validate_only IN VARCHAR2 := FND_API.g_true,
218: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
219:
212: (
213:
214: p_api_version IN NUMBER := 1.0,
215: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
216: p_commit IN VARCHAR2 := FND_API.g_false,
217: p_validate_only IN VARCHAR2 := FND_API.g_true,
218: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
219:
220: P_VERSION_ID in NUMBER :=NULL,
213:
214: p_api_version IN NUMBER := 1.0,
215: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
216: p_commit IN VARCHAR2 := FND_API.g_false,
217: p_validate_only IN VARCHAR2 := FND_API.g_true,
218: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
219:
220: P_VERSION_ID in NUMBER :=NULL,
221: P_REGION_SOURCE_TYPE in VARCHAR2 default 'STD',
214: p_api_version IN NUMBER := 1.0,
215: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
216: p_commit IN VARCHAR2 := FND_API.g_false,
217: p_validate_only IN VARCHAR2 := FND_API.g_true,
218: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
219:
220: P_VERSION_ID in NUMBER :=NULL,
221: P_REGION_SOURCE_TYPE in VARCHAR2 default 'STD',
222: P_REGION_CODE in VARCHAR2 :=NULL,
274: -- Initialize the Error Stack
275: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PUB.Update_REPORT_REGION');
276:
277: -- Initialize the return status to success
278: x_return_status := FND_API.G_RET_STS_SUCCESS;
279:
280: --Clear the global PL/SQL message table
281: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
282: FND_MSG_PUB.initialize;
277: -- Initialize the return status to success
278: x_return_status := FND_API.G_RET_STS_SUCCESS;
279:
280: --Clear the global PL/SQL message table
281: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
282: FND_MSG_PUB.initialize;
283: END IF;
284:
285:
348: --
349:
350: x_msg_count := FND_MSG_PUB.Count_Msg;
351: IF x_msg_count = 1 THEN
352: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
353: ,p_msg_index => 1
354: ,p_data => x_msg_data
355: ,p_msg_index_out => l_msg_index_out
356: );
368: -- Set the excetption Message and the stack
369: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PUB.Update_REPORT_REGION'
370: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
371: --
372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
373: RAISE; -- This is optional depending on the needs
374: END Update_REPORT_REGION;
375:
376:
377:
378: PROCEDURE Delete_Report_Region
379: (
380: p_api_version IN NUMBER := 1.0,
381: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
382: p_commit IN VARCHAR2 := FND_API.g_false,
383: p_validate_only IN VARCHAR2 := FND_API.g_true,
384: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
385:
378: PROCEDURE Delete_Report_Region
379: (
380: p_api_version IN NUMBER := 1.0,
381: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
382: p_commit IN VARCHAR2 := FND_API.g_false,
383: p_validate_only IN VARCHAR2 := FND_API.g_true,
384: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
385:
386: p_version_id IN NUMBER := NULL,
379: (
380: p_api_version IN NUMBER := 1.0,
381: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
382: p_commit IN VARCHAR2 := FND_API.g_false,
383: p_validate_only IN VARCHAR2 := FND_API.g_true,
384: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
385:
386: p_version_id IN NUMBER := NULL,
387: P_REGION_SOURCE_TYPE in VARCHAR2 := NULL,
380: p_api_version IN NUMBER := 1.0,
381: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
382: p_commit IN VARCHAR2 := FND_API.g_false,
383: p_validate_only IN VARCHAR2 := FND_API.g_true,
384: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
385:
386: p_version_id IN NUMBER := NULL,
387: P_REGION_SOURCE_TYPE in VARCHAR2 := NULL,
388: P_REGION_CODE in VARCHAR2 := NULL,
399: -- Initialize the Error Stack
400: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PUB.Delete_Progress_Report');
401:
402: -- Initialize the return status to success
403: x_return_status := FND_API.G_RET_STS_SUCCESS;
404:
405: --Clear the global PL/SQL message table
406: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
407: FND_MSG_PUB.initialize;
402: -- Initialize the return status to success
403: x_return_status := FND_API.G_RET_STS_SUCCESS;
404:
405: --Clear the global PL/SQL message table
406: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
407: FND_MSG_PUB.initialize;
408: END IF;
409:
410:
433: --
434:
435: x_msg_count := FND_MSG_PUB.Count_Msg;
436: IF x_msg_count = 1 THEN
437: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
438: ,p_msg_index => 1
439: ,p_data => x_msg_data
440: ,p_msg_index_out => l_msg_index_out
441: );
453: -- Set the excetption Message and the stack
454: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PUB.Delete_Progress_Report'
455: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
456: --
457: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
458: RAISE; -- This is optional depending on the needs
459: END Delete_Report_Region;
460:
461:
461:
462: PROCEDURE define_progress_report_setup
463: (
464: p_api_version IN NUMBER := 1.0,
465: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
466: p_commit IN VARCHAR2 := FND_API.g_false,
467: p_validate_only IN VARCHAR2 := FND_API.g_true,
468: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
469:
462: PROCEDURE define_progress_report_setup
463: (
464: p_api_version IN NUMBER := 1.0,
465: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
466: p_commit IN VARCHAR2 := FND_API.g_false,
467: p_validate_only IN VARCHAR2 := FND_API.g_true,
468: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
469:
470: p_object_id IN NUMBER := NULL,
463: (
464: p_api_version IN NUMBER := 1.0,
465: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
466: p_commit IN VARCHAR2 := FND_API.g_false,
467: p_validate_only IN VARCHAR2 := FND_API.g_true,
468: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
469:
470: p_object_id IN NUMBER := NULL,
471: p_object_type IN VARCHAR2 := NULL,
464: p_api_version IN NUMBER := 1.0,
465: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
466: p_commit IN VARCHAR2 := FND_API.g_false,
467: p_validate_only IN VARCHAR2 := FND_API.g_true,
468: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
469:
470: p_object_id IN NUMBER := NULL,
471: p_object_type IN VARCHAR2 := NULL,
472: p_page_type_code IN VARCHAR2 := 'PPR',
505: -- Initialize the Error Stack
506: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PUB.define_progress_report_setup');
507:
508: -- Initialize the return status to success
509: x_return_status := FND_API.G_RET_STS_SUCCESS;
510:
511: --Clear the global PL/SQL message table
512: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
513: FND_MSG_PUB.initialize;
508: -- Initialize the return status to success
509: x_return_status := FND_API.G_RET_STS_SUCCESS;
510:
511: --Clear the global PL/SQL message table
512: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
513: FND_MSG_PUB.initialize;
514: END IF;
515:
516:
560: --
561:
562: x_msg_count := FND_MSG_PUB.Count_Msg;
563: IF x_msg_count = 1 THEN
564: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
565: ,p_msg_index => 1
566: ,p_data => x_msg_data
567: ,p_msg_index_out => l_msg_index_out
568: );
580: -- Set the excetption Message and the stack
581: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PUB.define_progress_report_setup'
582: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
583: --
584: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
585: RAISE; -- This is optional depending on the needs
586: END define_progress_report_setup;
587:
588:
588:
589: PROCEDURE create_report
590: (
591: p_api_version IN NUMBER := 1.0,
592: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
593: p_commit IN VARCHAR2 := FND_API.g_false,
594: p_validate_only IN VARCHAR2 := FND_API.g_true,
595: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
596:
589: PROCEDURE create_report
590: (
591: p_api_version IN NUMBER := 1.0,
592: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
593: p_commit IN VARCHAR2 := FND_API.g_false,
594: p_validate_only IN VARCHAR2 := FND_API.g_true,
595: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
596:
597: p_object_id IN NUMBER := NULL,
590: (
591: p_api_version IN NUMBER := 1.0,
592: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
593: p_commit IN VARCHAR2 := FND_API.g_false,
594: p_validate_only IN VARCHAR2 := FND_API.g_true,
595: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
596:
597: p_object_id IN NUMBER := NULL,
598: p_object_type IN VARCHAR2 := NULL,
591: p_api_version IN NUMBER := 1.0,
592: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
593: p_commit IN VARCHAR2 := FND_API.g_false,
594: p_validate_only IN VARCHAR2 := FND_API.g_true,
595: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
596:
597: p_object_id IN NUMBER := NULL,
598: p_object_type IN VARCHAR2 := NULL,
599: p_report_type_id IN NUMBER := NULL,
609: -- Initialize the Error Stack
610: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PUB.create_report');
611:
612: -- Initialize the return status to success
613: x_return_status := FND_API.G_RET_STS_SUCCESS;
614:
615: --Clear the global PL/SQL message table
616: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
617: FND_MSG_PUB.initialize;
612: -- Initialize the return status to success
613: x_return_status := FND_API.G_RET_STS_SUCCESS;
614:
615: --Clear the global PL/SQL message table
616: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
617: FND_MSG_PUB.initialize;
618: END IF;
619:
620:
642: --
643:
644: x_msg_count := FND_MSG_PUB.Count_Msg;
645: IF x_msg_count = 1 THEN
646: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
647: ,p_msg_index => 1
648: ,p_data => x_msg_data
649: ,p_msg_index_out => l_msg_index_out
650: );
662: -- Set the excetption Message and the stack
663: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PUB.create_report'
664: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
665: --
666: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
667: RAISE; -- This is optional depending on the needs
668:
669: END create_report;
670:
671:
672: PROCEDURE change_report_status
673: (
674: p_api_version IN NUMBER := 1.0,
675: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
676: p_commit IN VARCHAR2 := FND_API.g_false,
677: p_validate_only IN VARCHAR2 := FND_API.g_true,
678: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
679:
672: PROCEDURE change_report_status
673: (
674: p_api_version IN NUMBER := 1.0,
675: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
676: p_commit IN VARCHAR2 := FND_API.g_false,
677: p_validate_only IN VARCHAR2 := FND_API.g_true,
678: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
679:
680: p_version_id IN NUMBER := NULL,
673: (
674: p_api_version IN NUMBER := 1.0,
675: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
676: p_commit IN VARCHAR2 := FND_API.g_false,
677: p_validate_only IN VARCHAR2 := FND_API.g_true,
678: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
679:
680: p_version_id IN NUMBER := NULL,
681: p_action IN VARCHAR2,
674: p_api_version IN NUMBER := 1.0,
675: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
676: p_commit IN VARCHAR2 := FND_API.g_false,
677: p_validate_only IN VARCHAR2 := FND_API.g_true,
678: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
679:
680: p_version_id IN NUMBER := NULL,
681: p_action IN VARCHAR2,
682: p_record_version_number IN NUMBER := NULL,
694: -- Initialize the Error Stack
695: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PUB.change_report_status');
696:
697: -- Initialize the return status to success
698: x_return_status := FND_API.G_RET_STS_SUCCESS;
699:
700: --Clear the global PL/SQL message table
701: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
702: FND_MSG_PUB.initialize;
697: -- Initialize the return status to success
698: x_return_status := FND_API.G_RET_STS_SUCCESS;
699:
700: --Clear the global PL/SQL message table
701: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
702: FND_MSG_PUB.initialize;
703: END IF;
704:
705: IF (p_action = 'SUBMIT') THEN
810: --
811:
812: x_msg_count := FND_MSG_PUB.Count_Msg;
813: IF x_msg_count = 1 THEN
814: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
815: ,p_msg_index => 1
816: ,p_data => x_msg_data
817: ,p_msg_index_out => l_msg_index_out
818: );
830: -- Set the excetption Message and the stack
831: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PUB.change_report_status'
832: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
833: --
834: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
835: RAISE; -- This is optional depending on the needs
836:
837: END change_report_status;
838:
838:
839: PROCEDURE update_report_details
840: (
841: p_api_version IN NUMBER := 1.0,
842: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
843: p_commit IN VARCHAR2 := FND_API.g_false,
844: p_validate_only IN VARCHAR2 := FND_API.g_true,
845: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
846:
839: PROCEDURE update_report_details
840: (
841: p_api_version IN NUMBER := 1.0,
842: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
843: p_commit IN VARCHAR2 := FND_API.g_false,
844: p_validate_only IN VARCHAR2 := FND_API.g_true,
845: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
846:
847: p_version_id IN NUMBER := NULL,
840: (
841: p_api_version IN NUMBER := 1.0,
842: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
843: p_commit IN VARCHAR2 := FND_API.g_false,
844: p_validate_only IN VARCHAR2 := FND_API.g_true,
845: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
846:
847: p_version_id IN NUMBER := NULL,
848:
841: p_api_version IN NUMBER := 1.0,
842: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
843: p_commit IN VARCHAR2 := FND_API.g_false,
844: p_validate_only IN VARCHAR2 := FND_API.g_true,
845: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
846:
847: p_version_id IN NUMBER := NULL,
848:
849: p_report_start_date IN DATE:= NULL,
864: -- Initialize the Error Stack
865: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PUB.update_report_details');
866:
867: -- Initialize the return status to success
868: x_return_status := FND_API.G_RET_STS_SUCCESS;
869:
870: --Clear the global PL/SQL message table
871: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
872: FND_MSG_PUB.initialize;
867: -- Initialize the return status to success
868: x_return_status := FND_API.G_RET_STS_SUCCESS;
869:
870: --Clear the global PL/SQL message table
871: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
872: FND_MSG_PUB.initialize;
873: END IF;
874:
875:
901: --
902:
903: x_msg_count := FND_MSG_PUB.Count_Msg;
904: IF x_msg_count = 1 THEN
905: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
906: ,p_msg_index => 1
907: ,p_data => x_msg_data
908: ,p_msg_index_out => l_msg_index_out
909: );
921: -- Set the excetption Message and the stack
922: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PUB.update_report_details'
923: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
924: --
925: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
926: RAISE; -- This is optional depending on the needs
927:
928: END update_report_details;
929:
929:
930: PROCEDURE delete_report
931: (
932: p_api_version IN NUMBER := 1.0,
933: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
934: p_commit IN VARCHAR2 := FND_API.g_false,
935: p_validate_only IN VARCHAR2 := FND_API.g_true,
936: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
937:
930: PROCEDURE delete_report
931: (
932: p_api_version IN NUMBER := 1.0,
933: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
934: p_commit IN VARCHAR2 := FND_API.g_false,
935: p_validate_only IN VARCHAR2 := FND_API.g_true,
936: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
937:
938: p_version_id IN NUMBER :=NULL,
931: (
932: p_api_version IN NUMBER := 1.0,
933: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
934: p_commit IN VARCHAR2 := FND_API.g_false,
935: p_validate_only IN VARCHAR2 := FND_API.g_true,
936: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
937:
938: p_version_id IN NUMBER :=NULL,
939: p_record_version_number IN NUMBER := NULL,
932: p_api_version IN NUMBER := 1.0,
933: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
934: p_commit IN VARCHAR2 := FND_API.g_false,
935: p_validate_only IN VARCHAR2 := FND_API.g_true,
936: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
937:
938: p_version_id IN NUMBER :=NULL,
939: p_record_version_number IN NUMBER := NULL,
940:
949: -- Initialize the Error Stack
950: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PUB.delete_report');
951:
952: -- Initialize the return status to success
953: x_return_status := FND_API.G_RET_STS_SUCCESS;
954:
955: --Clear the global PL/SQL message table
956: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
957: FND_MSG_PUB.initialize;
952: -- Initialize the return status to success
953: x_return_status := FND_API.G_RET_STS_SUCCESS;
954:
955: --Clear the global PL/SQL message table
956: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
957: FND_MSG_PUB.initialize;
958: END IF;
959:
960:
980: --
981:
982: x_msg_count := FND_MSG_PUB.Count_Msg;
983: IF x_msg_count = 1 THEN
984: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
985: ,p_msg_index => 1
986: ,p_data => x_msg_data
987: ,p_msg_index_out => l_msg_index_out
988: );
1000: -- Set the excetption Message and the stack
1001: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PUB.delete_report'
1002: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1003: --
1004: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1005: RAISE; -- This is optional depending on the needs
1006: END delete_report;
1007:
1008:
1009:
1010: PROCEDURE submit_report
1011: (
1012: p_api_version IN NUMBER := 1.0,
1013: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1014: p_commit IN VARCHAR2 := FND_API.g_false,
1015: p_validate_only IN VARCHAR2 := FND_API.g_true,
1016: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1017:
1010: PROCEDURE submit_report
1011: (
1012: p_api_version IN NUMBER := 1.0,
1013: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1014: p_commit IN VARCHAR2 := FND_API.g_false,
1015: p_validate_only IN VARCHAR2 := FND_API.g_true,
1016: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1017:
1018: p_version_id IN NUMBER := NULL,
1011: (
1012: p_api_version IN NUMBER := 1.0,
1013: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1014: p_commit IN VARCHAR2 := FND_API.g_false,
1015: p_validate_only IN VARCHAR2 := FND_API.g_true,
1016: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1017:
1018: p_version_id IN NUMBER := NULL,
1019: p_record_version_number IN NUMBER := NULL,
1012: p_api_version IN NUMBER := 1.0,
1013: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1014: p_commit IN VARCHAR2 := FND_API.g_false,
1015: p_validate_only IN VARCHAR2 := FND_API.g_true,
1016: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1017:
1018: p_version_id IN NUMBER := NULL,
1019: p_record_version_number IN NUMBER := NULL,
1020: p_summary_version_number IN NUMBER := NULL,
1029: -- Initialize the Error Stack
1030: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PUB.submit_report');
1031:
1032: -- Initialize the return status to success
1033: x_return_status := FND_API.G_RET_STS_SUCCESS;
1034:
1035: --Clear the global PL/SQL message table
1036: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1037: FND_MSG_PUB.initialize;
1032: -- Initialize the return status to success
1033: x_return_status := FND_API.G_RET_STS_SUCCESS;
1034:
1035: --Clear the global PL/SQL message table
1036: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1037: FND_MSG_PUB.initialize;
1038: END IF;
1039:
1040:
1060: --
1061:
1062: x_msg_count := FND_MSG_PUB.Count_Msg;
1063: IF x_msg_count = 1 THEN
1064: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
1065: ,p_msg_index => 1
1066: ,p_data => x_msg_data
1067: ,p_msg_index_out => l_msg_index_out
1068: );
1080: -- Set the excetption Message and the stack
1081: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PUB.submit_report'
1082: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1083: --
1084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1085: RAISE; -- This is optional depending on the needs
1086: END submit_report;
1087:
1088:
1088:
1089: PROCEDURE cancel_report
1090: (
1091: p_api_version IN NUMBER := 1.0,
1092: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1093: p_commit IN VARCHAR2 := FND_API.g_false,
1094: p_validate_only IN VARCHAR2 := FND_API.g_true,
1095: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1096:
1089: PROCEDURE cancel_report
1090: (
1091: p_api_version IN NUMBER := 1.0,
1092: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1093: p_commit IN VARCHAR2 := FND_API.g_false,
1094: p_validate_only IN VARCHAR2 := FND_API.g_true,
1095: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1096:
1097: p_version_id IN NUMBER :=NULL,
1090: (
1091: p_api_version IN NUMBER := 1.0,
1092: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1093: p_commit IN VARCHAR2 := FND_API.g_false,
1094: p_validate_only IN VARCHAR2 := FND_API.g_true,
1095: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1096:
1097: p_version_id IN NUMBER :=NULL,
1098: p_record_version_number IN NUMBER := NULL,
1091: p_api_version IN NUMBER := 1.0,
1092: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1093: p_commit IN VARCHAR2 := FND_API.g_false,
1094: p_validate_only IN VARCHAR2 := FND_API.g_true,
1095: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1096:
1097: p_version_id IN NUMBER :=NULL,
1098: p_record_version_number IN NUMBER := NULL,
1099: p_cancel_comments IN VARCHAR2 := NULL,
1108: -- Initialize the Error Stack
1109: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PUB.cancel_report');
1110:
1111: -- Initialize the return status to success
1112: x_return_status := FND_API.G_RET_STS_SUCCESS;
1113:
1114: --Clear the global PL/SQL message table
1115: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1116: FND_MSG_PUB.initialize;
1111: -- Initialize the return status to success
1112: x_return_status := FND_API.G_RET_STS_SUCCESS;
1113:
1114: --Clear the global PL/SQL message table
1115: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1116: FND_MSG_PUB.initialize;
1117: END IF;
1118:
1119:
1140: --
1141:
1142: x_msg_count := FND_MSG_PUB.Count_Msg;
1143: IF x_msg_count = 1 THEN
1144: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
1145: ,p_msg_index => 1
1146: ,p_data => x_msg_data
1147: ,p_msg_index_out => l_msg_index_out
1148: );
1160: -- Set the excetption Message and the stack
1161: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PUB.cancel_report'
1162: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1163: --
1164: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1165: RAISE; -- This is optional depending on the needs
1166: END cancel_report;
1167:
1168:
1168:
1169: PROCEDURE rework_report
1170: (
1171: p_api_version IN NUMBER := 1.0,
1172: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1173: p_commit IN VARCHAR2 := FND_API.g_false,
1174: p_validate_only IN VARCHAR2 := FND_API.g_true,
1175: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1176:
1169: PROCEDURE rework_report
1170: (
1171: p_api_version IN NUMBER := 1.0,
1172: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1173: p_commit IN VARCHAR2 := FND_API.g_false,
1174: p_validate_only IN VARCHAR2 := FND_API.g_true,
1175: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1176:
1177: p_version_id IN NUMBER := NULL,
1170: (
1171: p_api_version IN NUMBER := 1.0,
1172: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1173: p_commit IN VARCHAR2 := FND_API.g_false,
1174: p_validate_only IN VARCHAR2 := FND_API.g_true,
1175: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1176:
1177: p_version_id IN NUMBER := NULL,
1178: p_record_version_number IN NUMBER := NULL,
1171: p_api_version IN NUMBER := 1.0,
1172: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1173: p_commit IN VARCHAR2 := FND_API.g_false,
1174: p_validate_only IN VARCHAR2 := FND_API.g_true,
1175: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1176:
1177: p_version_id IN NUMBER := NULL,
1178: p_record_version_number IN NUMBER := NULL,
1179:
1187: -- Initialize the Error Stack
1188: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PUB.rework_report');
1189:
1190: -- Initialize the return status to success
1191: x_return_status := FND_API.G_RET_STS_SUCCESS;
1192:
1193: --Clear the global PL/SQL message table
1194: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1195: FND_MSG_PUB.initialize;
1190: -- Initialize the return status to success
1191: x_return_status := FND_API.G_RET_STS_SUCCESS;
1192:
1193: --Clear the global PL/SQL message table
1194: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1195: FND_MSG_PUB.initialize;
1196: END IF;
1197:
1198:
1218: --
1219:
1220: x_msg_count := FND_MSG_PUB.Count_Msg;
1221: IF x_msg_count = 1 THEN
1222: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
1223: ,p_msg_index => 1
1224: ,p_data => x_msg_data
1225: ,p_msg_index_out => l_msg_index_out
1226: );
1238: -- Set the excetption Message and the stack
1239: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PUB.rework_report'
1240: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1241: --
1242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1243: RAISE; -- This is optional depending on the needs
1244: END rework_report;
1245:
1246:
1245:
1246:
1247: PROCEDURE publish_report (
1248: p_api_version IN NUMBER := 1.0,
1249: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1250: p_commit IN VARCHAR2 := FND_API.g_false,
1251: p_validate_only IN VARCHAR2 := FND_API.g_true,
1252: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1253:
1246:
1247: PROCEDURE publish_report (
1248: p_api_version IN NUMBER := 1.0,
1249: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1250: p_commit IN VARCHAR2 := FND_API.g_false,
1251: p_validate_only IN VARCHAR2 := FND_API.g_true,
1252: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1253:
1254: p_version_id IN NUMBER := null,
1247: PROCEDURE publish_report (
1248: p_api_version IN NUMBER := 1.0,
1249: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1250: p_commit IN VARCHAR2 := FND_API.g_false,
1251: p_validate_only IN VARCHAR2 := FND_API.g_true,
1252: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1253:
1254: p_version_id IN NUMBER := null,
1255: p_record_version_number IN NUMBER := NULL,
1248: p_api_version IN NUMBER := 1.0,
1249: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1250: p_commit IN VARCHAR2 := FND_API.g_false,
1251: p_validate_only IN VARCHAR2 := FND_API.g_true,
1252: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1253:
1254: p_version_id IN NUMBER := null,
1255: p_record_version_number IN NUMBER := NULL,
1256: p_summary_version_number IN NUMBER := NULL,
1265: -- Initialize the Error Stack
1266: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PUB.publish_report');
1267:
1268: -- Initialize the return status to success
1269: x_return_status := FND_API.G_RET_STS_SUCCESS;
1270:
1271: --Clear the global PL/SQL message table
1272: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1273: FND_MSG_PUB.initialize;
1268: -- Initialize the return status to success
1269: x_return_status := FND_API.G_RET_STS_SUCCESS;
1270:
1271: --Clear the global PL/SQL message table
1272: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1273: FND_MSG_PUB.initialize;
1274: END IF;
1275:
1276:
1297: --
1298:
1299: x_msg_count := FND_MSG_PUB.Count_Msg;
1300: IF x_msg_count = 1 THEN
1301: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
1302: ,p_msg_index => 1
1303: ,p_data => x_msg_data
1304: ,p_msg_index_out => l_msg_index_out
1305: );
1317: -- Set the excetption Message and the stack
1318: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PUB.publish_report'
1319: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1320: --
1321: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1322: RAISE; -- This is optional depending on the needs
1323: END publish_report;
1324:
1325: PROCEDURE approve_report (
1323: END publish_report;
1324:
1325: PROCEDURE approve_report (
1326: p_api_version IN NUMBER := 1.0,
1327: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1328: p_commit IN VARCHAR2 := FND_API.g_false,
1329: p_validate_only IN VARCHAR2 := FND_API.g_true,
1330: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1331:
1324:
1325: PROCEDURE approve_report (
1326: p_api_version IN NUMBER := 1.0,
1327: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1328: p_commit IN VARCHAR2 := FND_API.g_false,
1329: p_validate_only IN VARCHAR2 := FND_API.g_true,
1330: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1331:
1332: p_version_id IN NUMBER := null,
1325: PROCEDURE approve_report (
1326: p_api_version IN NUMBER := 1.0,
1327: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1328: p_commit IN VARCHAR2 := FND_API.g_false,
1329: p_validate_only IN VARCHAR2 := FND_API.g_true,
1330: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1331:
1332: p_version_id IN NUMBER := null,
1333: p_record_version_number IN NUMBER := NULL,
1326: p_api_version IN NUMBER := 1.0,
1327: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1328: p_commit IN VARCHAR2 := FND_API.g_false,
1329: p_validate_only IN VARCHAR2 := FND_API.g_true,
1330: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1331:
1332: p_version_id IN NUMBER := null,
1333: p_record_version_number IN NUMBER := NULL,
1334:
1342: -- Initialize the Error Stack
1343: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PUB.approve_report');
1344:
1345: -- Initialize the return status to success
1346: x_return_status := FND_API.G_RET_STS_SUCCESS;
1347:
1348: --Clear the global PL/SQL message table
1349: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1350: FND_MSG_PUB.initialize;
1345: -- Initialize the return status to success
1346: x_return_status := FND_API.G_RET_STS_SUCCESS;
1347:
1348: --Clear the global PL/SQL message table
1349: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1350: FND_MSG_PUB.initialize;
1351: END IF;
1352:
1353:
1373: --
1374:
1375: x_msg_count := FND_MSG_PUB.Count_Msg;
1376: IF x_msg_count = 1 THEN
1377: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
1378: ,p_msg_index => 1
1379: ,p_data => x_msg_data
1380: ,p_msg_index_out => l_msg_index_out
1381: );
1393: -- Set the excetption Message and the stack
1394: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PUB.approve_report'
1395: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1396: --
1397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1398: RAISE; -- This is optional depending on the needs
1399: END approve_report;
1400:
1401:
1400:
1401:
1402: PROCEDURE reject_report (
1403: p_api_version IN NUMBER := 1.0,
1404: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1405: p_commit IN VARCHAR2 := FND_API.g_false,
1406: p_validate_only IN VARCHAR2 := FND_API.g_true,
1407: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1408:
1401:
1402: PROCEDURE reject_report (
1403: p_api_version IN NUMBER := 1.0,
1404: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1405: p_commit IN VARCHAR2 := FND_API.g_false,
1406: p_validate_only IN VARCHAR2 := FND_API.g_true,
1407: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1408:
1409: p_version_id IN NUMBER := null,
1402: PROCEDURE reject_report (
1403: p_api_version IN NUMBER := 1.0,
1404: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1405: p_commit IN VARCHAR2 := FND_API.g_false,
1406: p_validate_only IN VARCHAR2 := FND_API.g_true,
1407: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1408:
1409: p_version_id IN NUMBER := null,
1410: p_record_version_number IN NUMBER := NULL,
1403: p_api_version IN NUMBER := 1.0,
1404: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1405: p_commit IN VARCHAR2 := FND_API.g_false,
1406: p_validate_only IN VARCHAR2 := FND_API.g_true,
1407: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1408:
1409: p_version_id IN NUMBER := null,
1410: p_record_version_number IN NUMBER := NULL,
1411:
1419: -- Initialize the Error Stack
1420: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PUB.reject_report');
1421:
1422: -- Initialize the return status to success
1423: x_return_status := FND_API.G_RET_STS_SUCCESS;
1424:
1425: --Clear the global PL/SQL message table
1426: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1427: FND_MSG_PUB.initialize;
1422: -- Initialize the return status to success
1423: x_return_status := FND_API.G_RET_STS_SUCCESS;
1424:
1425: --Clear the global PL/SQL message table
1426: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
1427: FND_MSG_PUB.initialize;
1428: END IF;
1429:
1430:
1450: --
1451:
1452: x_msg_count := FND_MSG_PUB.Count_Msg;
1453: IF x_msg_count = 1 THEN
1454: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
1455: ,p_msg_index => 1
1456: ,p_data => x_msg_data
1457: ,p_msg_index_out => l_msg_index_out
1458: );
1470: -- Set the excetption Message and the stack
1471: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PUB.reject_report'
1472: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1473: --
1474: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1475: RAISE; -- This is optional depending on the needs
1476: END reject_report;
1477:
1478: