eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PA_PROGRESS_REPORT_PVT dependencies on FND_API

Line 7: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

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:

Line 8: p_commit IN VARCHAR2 := FND_API.g_false,

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,

Line 9: p_validate_only IN VARCHAR2 := FND_API.g_true,

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,
13: P_REGION_SOURCE_TYPE in VARCHAR2 default 'STD',

Line 10: p_max_msg_count IN NUMBER := FND_API.g_miss_num,

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,
13: P_REGION_SOURCE_TYPE in VARCHAR2 default 'STD',
14: P_REGION_CODE in VARCHAR2,

Line 87: x_return_status := FND_API.G_RET_STS_SUCCESS;

83: -- Initialize the Error Stack
84: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PVT.Create_Report_Region');
85:
86: -- Initialize the return status to success
87: x_return_status := FND_API.G_RET_STS_SUCCESS;
88:
89: -- Issue API savepoint if the transaction is to be committed
90: IF p_commit = FND_API.G_TRUE THEN
91: SAVEPOINT Create_Report_Region;

Line 90: IF p_commit = FND_API.G_TRUE THEN

86: -- Initialize the return status to success
87: x_return_status := FND_API.G_RET_STS_SUCCESS;
88:
89: -- Issue API savepoint if the transaction is to be committed
90: IF p_commit = FND_API.G_TRUE THEN
91: SAVEPOINT Create_Report_Region;
92: END IF;
93:
94:

Line 106: x_return_status := FND_API.G_RET_STS_ERROR;

102: IF l_status <> 'PROGRESS_REPORT_WORKING' THEN
103:
104: PA_UTILS.Add_Message( p_app_short_name => 'PA'
105: ,p_msg_name => 'PA_PR_STATUS_NOT_WORKING');
106: x_return_status := FND_API.G_RET_STS_ERROR;
107:
108: ELSE
109:
110: IF (p_region_code IS NULL) then

Line 113: x_return_status := FND_API.G_RET_STS_ERROR;

109:
110: IF (p_region_code IS NULL) then
111: PA_UTILS.Add_Message( p_app_short_name => 'PA'
112: ,p_msg_name => 'PA_REGION_CODE_INV');
113: x_return_status := FND_API.G_RET_STS_ERROR;
114: END IF;
115:
116: END IF;
117:

Line 118: IF x_return_status <> FND_API.g_ret_sts_success THEN

114: END IF;
115:
116: END IF;
117:
118: IF x_return_status <> FND_API.g_ret_sts_success THEN
119: PA_DEBUG.Reset_Err_Stack;
120: RETURN;
121: END IF;
122:

Line 134: x_return_status := FND_API.G_RET_STS_ERROR;

130: PA_UTILS.Add_Message( p_app_short_name => 'PA'
131: ,p_msg_name => 'PA_PR_VERSION_ID_INV'
132: , p_token1 => 'TEMPLATE_TYPE'
133: , p_value1 => l_type);
134: x_return_status := FND_API.G_RET_STS_ERROR;
135: END IF;
136:
137:
138: IF (x_return_status = FND_API.g_ret_sts_success AND p_validate_only <>FND_API.g_true) THEN

Line 138: IF (x_return_status = FND_API.g_ret_sts_success AND p_validate_only <>FND_API.g_true) THEN

134: x_return_status := FND_API.G_RET_STS_ERROR;
135: END IF;
136:
137:
138: IF (x_return_status = FND_API.g_ret_sts_success AND p_validate_only <>FND_API.g_true) THEN
139: -- we insert to the pa_object_page_values
140:
141: -- IF p_record_sequence IS NULL THEN
142: -- SELECT pa_object_page_versions_s.NEXTVAL

Line 205: IF (x_return_status = FND_API.g_ret_sts_success) then

201: END IF;
202:
203: -- update percent complete table
204:
205: IF (x_return_status = FND_API.g_ret_sts_success) then
206: --IF p_region_code = 'PA_PROGRESS_PROJ_DATES_TOP_IN' THEN
207: -- todo demo
208: IF p_region_code = 'PA_PROGRESS_PROJECT_DATES' then
209: --update_project_perccomplete(p_version_id,

Line 219: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN

215: END IF;
216: END IF;
217:
218: -- Commit if the flag is set and there is no error
219: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
220: COMMIT;
221: END IF;
222:
223: -- Reset the error stack when returning to the calling program

Line 229: IF p_commit = FND_API.G_TRUE THEN

225:
226:
227: EXCEPTION
228: WHEN OTHERS THEN
229: IF p_commit = FND_API.G_TRUE THEN
230: ROLLBACK TO Create_Progress_Report;
231: END IF;
232: --
233: -- Set the excetption Message and the stack

Line 237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

233: -- Set the excetption Message and the stack
234: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_Progress_Report_PVT.Create_Progress_Report'
235: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
236: --
237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
238: RAISE; -- This is optional depending on the needs
239:
240: END create_report_region;
241:

Line 248: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

244: PROCEDURE Update_REPORT_REGION
245: (
246:
247: p_api_version IN NUMBER := 1.0,
248: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
249: p_commit IN VARCHAR2 := FND_API.g_false,
250: p_validate_only IN VARCHAR2 := FND_API.g_true,
251: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
252:

Line 249: p_commit IN VARCHAR2 := FND_API.g_false,

245: (
246:
247: p_api_version IN NUMBER := 1.0,
248: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
249: p_commit IN VARCHAR2 := FND_API.g_false,
250: p_validate_only IN VARCHAR2 := FND_API.g_true,
251: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
252:
253: P_VERSION_ID in NUMBER,

Line 250: p_validate_only IN VARCHAR2 := FND_API.g_true,

246:
247: p_api_version IN NUMBER := 1.0,
248: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
249: p_commit IN VARCHAR2 := FND_API.g_false,
250: p_validate_only IN VARCHAR2 := FND_API.g_true,
251: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
252:
253: P_VERSION_ID in NUMBER,
254: P_REGION_SOURCE_TYPE in VARCHAR2,

Line 251: p_max_msg_count IN NUMBER := FND_API.g_miss_num,

247: p_api_version IN NUMBER := 1.0,
248: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
249: p_commit IN VARCHAR2 := FND_API.g_false,
250: p_validate_only IN VARCHAR2 := FND_API.g_true,
251: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
252:
253: P_VERSION_ID in NUMBER,
254: P_REGION_SOURCE_TYPE in VARCHAR2,
255: P_REGION_CODE in VARCHAR2,

Line 337: x_return_status := FND_API.G_RET_STS_SUCCESS;

333: -- Initialize the Error Stack
334: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PVT.Update_Report_Region');
335:
336: -- Initialize the return status to success
337: x_return_status := FND_API.G_RET_STS_SUCCESS;
338:
339: -- Issue API savepoint if the transaction is to be committed
340: IF p_commit = FND_API.G_TRUE THEN
341: SAVEPOINT Update_Report_Region;

Line 340: IF p_commit = FND_API.G_TRUE THEN

336: -- Initialize the return status to success
337: x_return_status := FND_API.G_RET_STS_SUCCESS;
338:
339: -- Issue API savepoint if the transaction is to be committed
340: IF p_commit = FND_API.G_TRUE THEN
341: SAVEPOINT Update_Report_Region;
342: END IF;
343:
344: OPEN get_template_type;

Line 354: x_return_status := FND_API.G_RET_STS_ERROR;

350: PA_UTILS.Add_Message( p_app_short_name => 'PA'
351: ,p_msg_name => 'PA_PR_VERSION_ID_INV'
352: , p_token1 => 'TEMPLATE_TYPE'
353: , p_value1 => l_type);
354: x_return_status := FND_API.G_RET_STS_ERROR;
355: END IF;
356: --Check mandatory region source type
357: IF (p_region_source_type IS NULL OR
358: p_region_source_type NOT IN ('STD','DFF', 'STD_CUST')) then

Line 363: x_return_status := FND_API.G_RET_STS_ERROR;

359: PA_UTILS.Add_Message( p_app_short_name => 'PA'
360: ,p_msg_name => 'PA_PR_REGION_SRC_INV'
361: , p_token1 => 'TEMPLATE_TYPE'
362: , p_value1 => l_type);
363: x_return_status := FND_API.G_RET_STS_ERROR;
364: END IF;
365:
366: -- check mandatory region_code
367: IF (p_region_code IS NULL) then

Line 370: x_return_status := FND_API.G_RET_STS_ERROR;

366: -- check mandatory region_code
367: IF (p_region_code IS NULL) then
368: PA_UTILS.Add_Message( p_app_short_name => 'PA'
369: ,p_msg_name => 'PA_REGION_CODE_INV');
370: x_return_status := FND_API.G_RET_STS_ERROR;
371: END IF;
372:
373: -- check mandatory record_sequence
374: IF (p_record_sequence IS NULL) then

Line 379: x_return_status := FND_API.G_RET_STS_ERROR;

375: PA_UTILS.Add_Message( p_app_short_name => 'PA'
376: ,p_msg_name => 'PA_PR_RECORD_SEQUENCE_INV'
377: , p_token1 => 'TEMPLATE_TYPE'
378: , p_value1 => l_type);
379: x_return_status := FND_API.G_RET_STS_ERROR;
380: RETURN;
381:
382: END IF;
383:

Line 396: x_return_status := FND_API.G_RET_STS_ERROR;

392: IF l_status <> 'PROGRESS_REPORT_WORKING' THEN
393:
394: PA_UTILS.Add_Message( p_app_short_name => 'PA'
395: ,p_msg_name => 'PA_PR_STATUS_NOT_WORKING');
396: x_return_status := FND_API.G_RET_STS_ERROR;
397: RETURN;
398:
399: END IF;
400:

Line 411: x_return_status := FND_API.G_RET_STS_ERROR;

407:
408: PA_UTILS.Add_Message( p_app_short_name => 'PA'
409: ,p_msg_name => 'PA_PR_RECORD_CHANGED');
410:
411: x_return_status := FND_API.G_RET_STS_ERROR;
412:
413: END IF;
414:
415: CLOSE check_record_version;

Line 418: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) THEN

414:
415: CLOSE check_record_version;
416:
417:
418: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) THEN
419:
420: --debug_msg ('In UPdate report region **********************');
421:
422:

Line 497: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) THEN

493: END IF;
494:
495: -- update percent complete table
496:
497: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) THEN
498:
499: --debug_msg ('update percent complete ');
500: --debug_msg ('region_code ' || p_region_code);
501: --IF p_region_code = 'PA_PROGRESS_PROJ_DATES_TOP_IN' then

Line 514: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) THEN

510:
511: END IF;
512: END IF;
513:
514: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) THEN
515: UPDATE pa_progress_report_vers
516: SET summary_version_number = summary_version_number +1
517: WHERE version_id = p_version_id;
518:

Line 523: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success) THEN

519: END IF;
520:
521:
522: -- Commit if the flag is set and there is no error
523: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success) THEN
524: COMMIT;
525: END IF;
526:
527: -- Reset the error stack when returning to the calling program

Line 538: IF p_commit = FND_API.G_TRUE THEN

534: EXCEPTION
535: WHEN OTHERS THEN
536:
537: --debug_msg ('update percent complete: exception ');
538: IF p_commit = FND_API.G_TRUE THEN
539: ROLLBACK TO update_report_region;
540: END IF;
541: --
542: -- Set the excetption Message and the stack

Line 546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

542: -- Set the excetption Message and the stack
543: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PVT.Update_Progress_Report'
544: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
545: --
546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
547: RAISE; -- This is optional depending on the needs
548:
549: END update_report_region;
550:

Line 554: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

550:
551: PROCEDURE Delete_Report_Region
552: (
553: p_api_version IN NUMBER := 1.0,
554: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
555: p_commit IN VARCHAR2 := FND_API.g_false,
556: p_validate_only IN VARCHAR2 := FND_API.g_true,
557: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
558:

Line 555: p_commit IN VARCHAR2 := FND_API.g_false,

551: PROCEDURE Delete_Report_Region
552: (
553: p_api_version IN NUMBER := 1.0,
554: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
555: p_commit IN VARCHAR2 := FND_API.g_false,
556: p_validate_only IN VARCHAR2 := FND_API.g_true,
557: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
558:
559: p_version_id IN number,

Line 556: p_validate_only IN VARCHAR2 := FND_API.g_true,

552: (
553: p_api_version IN NUMBER := 1.0,
554: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
555: p_commit IN VARCHAR2 := FND_API.g_false,
556: p_validate_only IN VARCHAR2 := FND_API.g_true,
557: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
558:
559: p_version_id IN number,
560: P_REGION_SOURCE_TYPE in VARCHAR2,

Line 557: p_max_msg_count IN NUMBER := FND_API.g_miss_num,

553: p_api_version IN NUMBER := 1.0,
554: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
555: p_commit IN VARCHAR2 := FND_API.g_false,
556: p_validate_only IN VARCHAR2 := FND_API.g_true,
557: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
558:
559: p_version_id IN number,
560: P_REGION_SOURCE_TYPE in VARCHAR2,
561: P_REGION_CODE in VARCHAR2,

Line 604: x_return_status := FND_API.G_RET_STS_SUCCESS;

600: -- Initialize the Error Stack
601: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PVT.Update_Report_Region');
602:
603: -- Initialize the return status to success
604: x_return_status := FND_API.G_RET_STS_SUCCESS;
605:
606: -- Issue API savepoint if the transaction is to be committed
607: IF p_commit = FND_API.G_TRUE THEN
608: SAVEPOINT Delete_Progress_Report;

Line 607: IF p_commit = FND_API.G_TRUE THEN

603: -- Initialize the return status to success
604: x_return_status := FND_API.G_RET_STS_SUCCESS;
605:
606: -- Issue API savepoint if the transaction is to be committed
607: IF p_commit = FND_API.G_TRUE THEN
608: SAVEPOINT Delete_Progress_Report;
609: END IF;
610:
611: OPEN get_template_type;

Line 621: x_return_status := FND_API.G_RET_STS_ERROR;

617: PA_UTILS.Add_Message( p_app_short_name => 'PA'
618: ,p_msg_name => 'PA_PR_VERSION_ID_INV'
619: , p_token1 => 'TEMPLATE_TYPE'
620: , p_value1 => l_type);
621: x_return_status := FND_API.G_RET_STS_ERROR;
622: END IF;
623:
624: --Check mandatory region source type
625: IF (p_region_source_type IS NULL OR

Line 631: x_return_status := FND_API.G_RET_STS_ERROR;

627: PA_UTILS.Add_Message( p_app_short_name => 'PA'
628: ,p_msg_name => 'PA_PR_REGION_SRC_INV'
629: , p_token1 => 'TEMPLATE_TYPE'
630: , p_value1 => l_type);
631: x_return_status := FND_API.G_RET_STS_ERROR;
632: END IF;
633:
634: -- check mandatory region_code
635: IF (p_region_code IS NULL) then

Line 638: x_return_status := FND_API.G_RET_STS_ERROR;

634: -- check mandatory region_code
635: IF (p_region_code IS NULL) then
636: PA_UTILS.Add_Message( p_app_short_name => 'PA'
637: ,p_msg_name => 'PA_REGION_CODE_INV');
638: x_return_status := FND_API.G_RET_STS_ERROR;
639: END IF;
640:
641: -- if the report in WORKING status, we continue
642: -- otherwise, we quit

Line 652: x_return_status := FND_API.G_RET_STS_ERROR;

648: IF l_status <> 'PROGRESS_REPORT_WORKING' THEN
649:
650: PA_UTILS.Add_Message( p_app_short_name => 'PA'
651: ,p_msg_name => 'PA_PR_STATUS_NOT_WORKING');
652: x_return_status := FND_API.G_RET_STS_ERROR;
653: RETURN;
654:
655: END IF;
656:

Line 664: x_return_status := FND_API.G_RET_STS_ERROR;

660: PA_UTILS.Add_Message( p_app_short_name => 'PA'
661: ,p_msg_name => 'PA_PR_RECORD_SEQUENCE_INV'
662: , p_token1 => 'TEMPLATE_TYPE'
663: , p_value1 => l_type);
664: x_return_status := FND_API.G_RET_STS_ERROR;
665: END IF;
666: */
667:
668: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) THEN

Line 668: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) THEN

664: x_return_status := FND_API.G_RET_STS_ERROR;
665: END IF;
666: */
667:
668: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) THEN
669: IF (p_record_sequence IS null) THEN
670: pa_progress_report_pkg.delete_progress_report_region(
671: P_VERSION_ID,
672: P_REGION_SOURCE_TYPE,

Line 696: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN

692: END IF;
693:
694:
695: -- Commit if the flag is set and there is no error
696: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.G_RET_STS_SUCCESS ) THEN
697: COMMIT;
698: END IF;
699:
700: -- Reset the error stack when returning to the calling program

Line 706: IF p_commit = FND_API.G_TRUE THEN

702:
703:
704: EXCEPTION
705: WHEN OTHERS THEN
706: IF p_commit = FND_API.G_TRUE THEN
707: ROLLBACK TO Delete_Progress_Report;
708: END IF;
709:
710: -- Set the excetption Message and the stack

Line 714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

710: -- Set the excetption Message and the stack
711: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROGRESS_Report_PVT.Delete_Progress_Report'
712: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
713: --
714: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
715: RAISE; -- This is optional depending on the needs
716:
717: END delete_report_region;
718:

Line 723: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

719:
720: PROCEDURE cancel_report
721: (
722: p_api_version IN NUMBER := 1.0,
723: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
724: p_commit IN VARCHAR2 := FND_API.g_false,
725: p_validate_only IN VARCHAR2 := FND_API.g_true,
726: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
727:

Line 724: p_commit IN VARCHAR2 := FND_API.g_false,

720: PROCEDURE cancel_report
721: (
722: p_api_version IN NUMBER := 1.0,
723: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
724: p_commit IN VARCHAR2 := FND_API.g_false,
725: p_validate_only IN VARCHAR2 := FND_API.g_true,
726: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
727:
728: p_version_id IN NUMBER :=NULL,

Line 725: p_validate_only IN VARCHAR2 := FND_API.g_true,

721: (
722: p_api_version IN NUMBER := 1.0,
723: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
724: p_commit IN VARCHAR2 := FND_API.g_false,
725: p_validate_only IN VARCHAR2 := FND_API.g_true,
726: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
727:
728: p_version_id IN NUMBER :=NULL,
729: p_record_version_number IN NUMBER := NULL,

Line 726: p_max_msg_count IN NUMBER := FND_API.g_miss_num,

722: p_api_version IN NUMBER := 1.0,
723: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
724: p_commit IN VARCHAR2 := FND_API.g_false,
725: p_validate_only IN VARCHAR2 := FND_API.g_true,
726: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
727:
728: p_version_id IN NUMBER :=NULL,
729: p_record_version_number IN NUMBER := NULL,
730: p_cancel_comments IN VARCHAR2 := NULL,

Line 799: x_return_status := FND_API.G_RET_STS_SUCCESS;

795: -- Initialize the Error Stack
796: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PVT.Cancel_Report');
797:
798: -- Initialize the return status to success
799: x_return_status := FND_API.G_RET_STS_SUCCESS;
800:
801: -- Issue API savepoint if the transaction is to be committed
802: IF p_commit = FND_API.G_TRUE THEN
803: SAVEPOINT cancel_report;

Line 802: IF p_commit = FND_API.G_TRUE THEN

798: -- Initialize the return status to success
799: x_return_status := FND_API.G_RET_STS_SUCCESS;
800:
801: -- Issue API savepoint if the transaction is to be committed
802: IF p_commit = FND_API.G_TRUE THEN
803: SAVEPOINT cancel_report;
804: END IF;
805:
806: OPEN get_template_type;

Line 816: x_return_status := FND_API.G_RET_STS_ERROR;

812: PA_UTILS.Add_Message( p_app_short_name => 'PA'
813: ,p_msg_name => 'PA_PR_VERSION_ID_INV'
814: , p_token1 => 'TEMPLATE_TYPE'
815: , p_value1 => l_type);
816: x_return_status := FND_API.G_RET_STS_ERROR;
817: END IF;
818:
819: -- can only obsolete the published report
820: IF x_return_status = FND_API.g_ret_sts_success THEN

Line 820: IF x_return_status = FND_API.g_ret_sts_success THEN

816: x_return_status := FND_API.G_RET_STS_ERROR;
817: END IF;
818:
819: -- can only obsolete the published report
820: IF x_return_status = FND_API.g_ret_sts_success THEN
821:
822: OPEN check_status_published;
823: FETCH check_status_published INTO l_rowid;
824:

Line 829: x_return_status := FND_API.G_RET_STS_ERROR;

825: IF check_status_published%NOTFOUND THEN
826: PA_UTILS.Add_Message( p_app_short_name => 'PA'
827: ,p_msg_name => 'PA_OBSOLETE_REPORT_INV');
828:
829: x_return_status := FND_API.G_RET_STS_ERROR;
830:
831: ELSE
832: CLOSE check_status_published;
833: END IF;

Line 838: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then

834:
835: END IF;
836:
837: -- change the status of report to obsoleted.
838: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then
839:
840: /* pa_progress_report_pkg.UPDATE_PROGRESS_REPORT_VER_ROW
841: (
842: p_version_id,

Line 886: if ( x_return_status = FND_API.g_ret_sts_success )THEN

882: ) ;
883:
884: END IF;
885:
886: if ( x_return_status = FND_API.g_ret_sts_success )THEN
887:
888: if (l_current_flag = 'Y') then
889: open update_last_published_rep;
890: fetch update_last_published_rep into l_version_id,l_RECORD_VERSION_NUMBER,l_summary_version_number;

Line 927: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN

923:
924:
925:
926: -- Commit if the flag is set and there is no error
927: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
928: COMMIT;
929: END IF;
930:
931: -- Reset the error stack when returning to the calling program

Line 937: IF p_commit = FND_API.G_TRUE THEN

933:
934:
935: EXCEPTION
936: WHEN OTHERS THEN
937: IF p_commit = FND_API.G_TRUE THEN
938: ROLLBACK TO cancel_report;
939: END IF;
940: --
941: -- Set the excetption Message and the stack

Line 945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

941: -- Set the excetption Message and the stack
942: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PVT.Cancel_Report'
943: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
944: --
945: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
946: RAISE; -- This is optional depending on the needs
947:
948:
949: END cancel_report;

Line 953: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

949: END cancel_report;
950:
951: PROCEDURE approve_report (
952: p_api_version IN NUMBER := 1.0,
953: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
954: p_commit IN VARCHAR2 := FND_API.g_false,
955: p_validate_only IN VARCHAR2 := FND_API.g_true,
956: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
957:

Line 954: p_commit IN VARCHAR2 := FND_API.g_false,

950:
951: PROCEDURE approve_report (
952: p_api_version IN NUMBER := 1.0,
953: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
954: p_commit IN VARCHAR2 := FND_API.g_false,
955: p_validate_only IN VARCHAR2 := FND_API.g_true,
956: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
957:
958: p_version_id IN NUMBER := null,

Line 955: p_validate_only IN VARCHAR2 := FND_API.g_true,

951: PROCEDURE approve_report (
952: p_api_version IN NUMBER := 1.0,
953: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
954: p_commit IN VARCHAR2 := FND_API.g_false,
955: p_validate_only IN VARCHAR2 := FND_API.g_true,
956: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
957:
958: p_version_id IN NUMBER := null,
959: p_record_version_number IN NUMBER := NULL,

Line 956: p_max_msg_count IN NUMBER := FND_API.g_miss_num,

952: p_api_version IN NUMBER := 1.0,
953: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
954: p_commit IN VARCHAR2 := FND_API.g_false,
955: p_validate_only IN VARCHAR2 := FND_API.g_true,
956: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
957:
958: p_version_id IN NUMBER := null,
959: p_record_version_number IN NUMBER := NULL,
960:

Line 989: x_return_status := FND_API.G_RET_STS_SUCCESS;

985: -- Initialize the Error Stack
986: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PVT.Approve_Report');
987:
988: -- Initialize the return status to success
989: x_return_status := FND_API.G_RET_STS_SUCCESS;
990:
991: -- Issue API savepoint if the transaction is to be committed
992: IF p_commit = FND_API.G_TRUE THEN
993: SAVEPOINT approve_report;

Line 992: IF p_commit = FND_API.G_TRUE THEN

988: -- Initialize the return status to success
989: x_return_status := FND_API.G_RET_STS_SUCCESS;
990:
991: -- Issue API savepoint if the transaction is to be committed
992: IF p_commit = FND_API.G_TRUE THEN
993: SAVEPOINT approve_report;
994: END IF;
995:
996: OPEN get_template_type;

Line 1006: x_return_status := FND_API.G_RET_STS_ERROR;

1002: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1003: ,p_msg_name => 'PA_PR_VERSION_ID_INV'
1004: , p_token1 => 'TEMPLATE_TYPE'
1005: , p_value1 => l_type);
1006: x_return_status := FND_API.G_RET_STS_ERROR;
1007: END IF;
1008:
1009: -- can only approve the submitted report
1010: IF x_return_status = FND_API.g_ret_sts_success THEN

Line 1010: IF x_return_status = FND_API.g_ret_sts_success THEN

1006: x_return_status := FND_API.G_RET_STS_ERROR;
1007: END IF;
1008:
1009: -- can only approve the submitted report
1010: IF x_return_status = FND_API.g_ret_sts_success THEN
1011:
1012: OPEN check_status_submitted;
1013: FETCH check_status_submitted INTO l_rowid;
1014:

Line 1019: x_return_status := FND_API.G_RET_STS_ERROR;

1015: IF check_status_submitted%NOTFOUND THEN
1016: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1017: ,p_msg_name => 'PA_PR_RECORD_CHANGED');
1018:
1019: x_return_status := FND_API.G_RET_STS_ERROR;
1020:
1021: ELSE
1022: CLOSE check_status_submitted;
1023: END IF;

Line 1027: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then

1023: END IF;
1024:
1025: END IF;
1026:
1027: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then
1028:
1029: /*
1030: pa_progress_report_pkg.UPDATE_PROGRESS_REPORT_VER_ROW
1031: (

Line 1076: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN

1072: END IF;
1073:
1074:
1075: -- Commit if the flag is set and there is no error
1076: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
1077: COMMIT;
1078: END IF;
1079:
1080: -- Reset the error stack when returning to the calling program

Line 1086: IF p_commit = FND_API.G_TRUE THEN

1082:
1083:
1084: EXCEPTION
1085: WHEN OTHERS THEN
1086: IF p_commit = FND_API.G_TRUE THEN
1087: ROLLBACK TO approve_report;
1088: END IF;
1089: --
1090: -- Set the excetption Message and the stack

Line 1094: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1090: -- Set the excetption Message and the stack
1091: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PVT.Approve_Report'
1092: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1093: --
1094: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1095: RAISE; -- This is optional depending on the needs
1096:
1097:
1098: END approve_report;

Line 1102: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

1098: END approve_report;
1099:
1100: PROCEDURE reject_report (
1101: p_api_version IN NUMBER := 1.0,
1102: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1103: p_commit IN VARCHAR2 := FND_API.g_false,
1104: p_validate_only IN VARCHAR2 := FND_API.g_true,
1105: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1106:

Line 1103: p_commit IN VARCHAR2 := FND_API.g_false,

1099:
1100: PROCEDURE reject_report (
1101: p_api_version IN NUMBER := 1.0,
1102: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1103: p_commit IN VARCHAR2 := FND_API.g_false,
1104: p_validate_only IN VARCHAR2 := FND_API.g_true,
1105: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1106:
1107: p_version_id IN NUMBER := null,

Line 1104: p_validate_only IN VARCHAR2 := FND_API.g_true,

1100: PROCEDURE reject_report (
1101: p_api_version IN NUMBER := 1.0,
1102: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1103: p_commit IN VARCHAR2 := FND_API.g_false,
1104: p_validate_only IN VARCHAR2 := FND_API.g_true,
1105: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1106:
1107: p_version_id IN NUMBER := null,
1108: p_record_version_number IN NUMBER := NULL,

Line 1105: p_max_msg_count IN NUMBER := FND_API.g_miss_num,

1101: p_api_version IN NUMBER := 1.0,
1102: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1103: p_commit IN VARCHAR2 := FND_API.g_false,
1104: p_validate_only IN VARCHAR2 := FND_API.g_true,
1105: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1106:
1107: p_version_id IN NUMBER := null,
1108: p_record_version_number IN NUMBER := NULL,
1109:

Line 1139: x_return_status := FND_API.G_RET_STS_SUCCESS;

1135: -- Initialize the Error Stack
1136: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PVT.Approve_Report');
1137:
1138: -- Initialize the return status to success
1139: x_return_status := FND_API.G_RET_STS_SUCCESS;
1140:
1141: -- Issue API savepoint if the transaction is to be committed
1142: IF p_commit = FND_API.G_TRUE THEN
1143: SAVEPOINT reject_report;

Line 1142: IF p_commit = FND_API.G_TRUE THEN

1138: -- Initialize the return status to success
1139: x_return_status := FND_API.G_RET_STS_SUCCESS;
1140:
1141: -- Issue API savepoint if the transaction is to be committed
1142: IF p_commit = FND_API.G_TRUE THEN
1143: SAVEPOINT reject_report;
1144: END IF;
1145:
1146: OPEN get_template_type;

Line 1156: x_return_status := FND_API.G_RET_STS_ERROR;

1152: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1153: ,p_msg_name => 'PA_PR_VERSION_ID_INV'
1154: , p_token1 => 'TEMPLATE_TYPE'
1155: , p_value1 => l_type);
1156: x_return_status := FND_API.G_RET_STS_ERROR;
1157: END IF;
1158:
1159: -- can only reject the submitted report
1160: IF x_return_status = FND_API.g_ret_sts_success THEN

Line 1160: IF x_return_status = FND_API.g_ret_sts_success THEN

1156: x_return_status := FND_API.G_RET_STS_ERROR;
1157: END IF;
1158:
1159: -- can only reject the submitted report
1160: IF x_return_status = FND_API.g_ret_sts_success THEN
1161:
1162: OPEN check_status_submitted;
1163: FETCH check_status_submitted INTO l_rowid;
1164:

Line 1169: x_return_status := FND_API.G_RET_STS_ERROR;

1165: IF check_status_submitted%NOTFOUND THEN
1166: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1167: ,p_msg_name => 'PA_PR_RECORD_CHANGED');
1168:
1169: x_return_status := FND_API.G_RET_STS_ERROR;
1170:
1171: ELSE
1172: CLOSE check_status_submitted;
1173: END IF;

Line 1178: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then

1174:
1175: END IF;
1176:
1177:
1178: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then
1179:
1180: /*
1181: pa_progress_report_pkg.UPDATE_PROGRESS_REPORT_VER_ROW
1182: (

Line 1227: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN

1223: END IF;
1224:
1225:
1226: -- Commit if the flag is set and there is no error
1227: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
1228: COMMIT;
1229: END IF;
1230:
1231: -- Reset the error stack when returning to the calling program

Line 1237: IF p_commit = FND_API.G_TRUE THEN

1233:
1234:
1235: EXCEPTION
1236: WHEN OTHERS THEN
1237: IF p_commit = FND_API.G_TRUE THEN
1238: ROLLBACK TO reject_report;
1239: END IF;
1240: --
1241: -- Set the excetption Message and the stack

Line 1245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1241: -- Set the excetption Message and the stack
1242: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PVT.Reject_Report'
1243: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1244: --
1245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1246: RAISE; -- This is optional depending on the needs
1247:
1248: END reject_report;
1249:

Line 1254: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

1250:
1251: PROCEDURE update_report_details
1252: (
1253: p_api_version IN NUMBER := 1.0,
1254: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1255: p_commit IN VARCHAR2 := FND_API.g_false,
1256: p_validate_only IN VARCHAR2 := FND_API.g_true,
1257: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1258:

Line 1255: p_commit IN VARCHAR2 := FND_API.g_false,

1251: PROCEDURE update_report_details
1252: (
1253: p_api_version IN NUMBER := 1.0,
1254: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1255: p_commit IN VARCHAR2 := FND_API.g_false,
1256: p_validate_only IN VARCHAR2 := FND_API.g_true,
1257: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1258:
1259: p_version_id IN NUMBER := NULL,

Line 1256: p_validate_only IN VARCHAR2 := FND_API.g_true,

1252: (
1253: p_api_version IN NUMBER := 1.0,
1254: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1255: p_commit IN VARCHAR2 := FND_API.g_false,
1256: p_validate_only IN VARCHAR2 := FND_API.g_true,
1257: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1258:
1259: p_version_id IN NUMBER := NULL,
1260:

Line 1257: p_max_msg_count IN NUMBER := FND_API.g_miss_num,

1253: p_api_version IN NUMBER := 1.0,
1254: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1255: p_commit IN VARCHAR2 := FND_API.g_false,
1256: p_validate_only IN VARCHAR2 := FND_API.g_true,
1257: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1258:
1259: p_version_id IN NUMBER := NULL,
1260:
1261: p_report_start_date IN DATE:= NULL,

Line 1306: x_return_status := FND_API.G_RET_STS_SUCCESS;

1302: -- Initialize the Error Stack
1303: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PVT.update_report_details');
1304:
1305: -- Initialize the return status to success
1306: x_return_status := FND_API.G_RET_STS_SUCCESS;
1307:
1308: -- Issue API savepoint if the transaction is to be committed
1309: IF p_commit = FND_API.G_TRUE THEN
1310: SAVEPOINT update_report_details;

Line 1309: IF p_commit = FND_API.G_TRUE THEN

1305: -- Initialize the return status to success
1306: x_return_status := FND_API.G_RET_STS_SUCCESS;
1307:
1308: -- Issue API savepoint if the transaction is to be committed
1309: IF p_commit = FND_API.G_TRUE THEN
1310: SAVEPOINT update_report_details;
1311: END IF;
1312:
1313: OPEN get_template_type;

Line 1323: x_return_status := FND_API.G_RET_STS_ERROR;

1319: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1320: ,p_msg_name => 'PA_PR_VERSION_ID_INV'
1321: , p_token1 => 'TEMPLATE_TYPE'
1322: , p_value1 => l_type);
1323: x_return_status := FND_API.G_RET_STS_ERROR;
1324: END IF;
1325:
1326: --debug_msg ('before update 1' );
1327:

Line 1331: x_return_status := FND_API.G_RET_STS_ERROR;

1327:
1328: IF (Trunc(p_report_end_date) < Trunc(p_report_start_date)) THEN
1329: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1330: ,p_msg_name => 'PA_REPORT_END_DATE_INV');
1331: x_return_status := FND_API.G_RET_STS_ERROR;
1332: END IF;
1333:
1334: --debug_msg ('before update 1' || x_return_status );
1335:

Line 1350: x_return_status := FND_API.G_RET_STS_ERROR;

1346:
1347: IF (get_person_id%notfound) THEN
1348: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1349: ,p_msg_name => 'PA_PR_REPORTED_BY_INV');
1350: x_return_status := FND_API.G_RET_STS_ERROR;
1351: END IF;
1352: CLOSE get_person_id;
1353: ELSE
1354: l_reported_by := p_reported_by;

Line 1368: x_return_status := FND_API.G_RET_STS_ERROR;

1364: /* Commenting below for bug 7521888
1365: IF l_ret <> 'Y' THEN
1366: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1367: ,p_msg_name => 'PA_UPDATE_REPORT_INV');
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: END IF;
1370: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then
1371: */
1372: IF (p_validate_only <>FND_API.g_true AND l_ret = 'Y') then -- bug 7521888

Line 1370: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then

1366: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1367: ,p_msg_name => 'PA_UPDATE_REPORT_INV');
1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: END IF;
1370: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then
1371: */
1372: IF (p_validate_only <>FND_API.g_true AND l_ret = 'Y') then -- bug 7521888
1373: --debug_msg ('before update 2' || To_char(l_reported_by));
1374: --debug_msg ('before update 3' || p_overview);

Line 1372: IF (p_validate_only <>FND_API.g_true AND l_ret = 'Y') then -- bug 7521888

1368: x_return_status := FND_API.G_RET_STS_ERROR;
1369: END IF;
1370: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then
1371: */
1372: IF (p_validate_only <>FND_API.g_true AND l_ret = 'Y') then -- bug 7521888
1373: --debug_msg ('before update 2' || To_char(l_reported_by));
1374: --debug_msg ('before update 3' || p_overview);
1375: --debug_msg ('before update 4' || p_progress_status);
1376:

Line 1408: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN

1404: END IF;
1405:
1406:
1407: -- Commit if the flag is set and there is no error
1408: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
1409: COMMIT;
1410: END IF;
1411:
1412: -- Reset the error stack when returning to the calling program

Line 1420: IF p_commit = FND_API.G_TRUE THEN

1416:
1417: EXCEPTION
1418: WHEN OTHERS THEN
1419: --debug_msg ('exception ');
1420: IF p_commit = FND_API.G_TRUE THEN
1421: ROLLBACK TO update_report_details;
1422: END IF;
1423: --
1424: -- Set the excetption Message and the stack

Line 1428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1424: -- Set the excetption Message and the stack
1425: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PVT.update_report_details'
1426: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1427: --
1428: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1429: RAISE; -- This is optional depending on the needs
1430:
1431: END update_report_details;
1432:

Line 1437: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

1433:
1434: PROCEDURE define_progress_report_setup
1435: (
1436: p_api_version IN NUMBER := 1.0,
1437: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1438: p_commit IN VARCHAR2 := FND_API.g_false,
1439: p_validate_only IN VARCHAR2 := FND_API.g_true,
1440: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1441:

Line 1438: p_commit IN VARCHAR2 := FND_API.g_false,

1434: PROCEDURE define_progress_report_setup
1435: (
1436: p_api_version IN NUMBER := 1.0,
1437: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1438: p_commit IN VARCHAR2 := FND_API.g_false,
1439: p_validate_only IN VARCHAR2 := FND_API.g_true,
1440: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1441:
1442: p_object_id IN NUMBER := NULL,

Line 1439: p_validate_only IN VARCHAR2 := FND_API.g_true,

1435: (
1436: p_api_version IN NUMBER := 1.0,
1437: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1438: p_commit IN VARCHAR2 := FND_API.g_false,
1439: p_validate_only IN VARCHAR2 := FND_API.g_true,
1440: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1441:
1442: p_object_id IN NUMBER := NULL,
1443: p_object_type IN VARCHAR2 := NULL,

Line 1440: p_max_msg_count IN NUMBER := FND_API.g_miss_num,

1436: p_api_version IN NUMBER := 1.0,
1437: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1438: p_commit IN VARCHAR2 := FND_API.g_false,
1439: p_validate_only IN VARCHAR2 := FND_API.g_true,
1440: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1441:
1442: p_object_id IN NUMBER := NULL,
1443: p_object_type IN VARCHAR2 := NULL,
1444: p_page_type_code IN VARCHAR2 := 'PPR',

Line 1517: x_return_status := FND_API.G_RET_STS_SUCCESS;

1513:
1514: -- Initialize the Error Stack
1515: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PVT.define_progress_report_setup');
1516: -- Initialize the return status to success
1517: x_return_status := FND_API.G_RET_STS_SUCCESS;
1518:
1519: l_object_page_layout_id := p_object_page_layout_id;
1520: -- Issue API savepoint if the transaction is to be committed
1521:

Line 1522: IF p_commit = FND_API.G_TRUE THEN

1518:
1519: l_object_page_layout_id := p_object_page_layout_id;
1520: -- Issue API savepoint if the transaction is to be committed
1521:
1522: IF p_commit = FND_API.G_TRUE THEN
1523: SAVEPOINT define_progress_report_setup;
1524: END IF;
1525:
1526:

Line 1532: p_validate_only => fnd_api.g_false,

1528: l_page_id := p_page_id;
1529: IF ((l_page_id is null) AND (p_function_name is not null)) THEN
1530:
1531: PA_PAGE_LAYOUT_PUB.Create_Page_Layout(
1532: p_validate_only => fnd_api.g_false,
1533: p_page_name => p_page_name,
1534: p_page_type => p_page_type_code,
1535: p_function_name => p_function_name,
1536: p_description => null,

Line 1547: IF (x_return_status <> FND_API.g_ret_sts_success) THEN

1543: );
1544: END IF;
1545:
1546: --To keep the code in sync with the existing one, return is issued.
1547: IF (x_return_status <> FND_API.g_ret_sts_success) THEN
1548: ROLLBACK TO define_progress_report_setup;
1549: END IF;
1550:
1551: -- check mandatory version_id

Line 1565: x_return_status := FND_API.G_RET_STS_ERROR;

1561: IF pa_progress_report_utils.is_delete_page_layout_ok(p_page_type_code, p_object_type, p_object_id, p_report_Type_id ) <> 'Y' THEN
1562: -- we have to quit,
1563: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1564: ,p_msg_name => 'PA_REPORT_TYPE_REMOVE_INV');
1565: x_return_status := FND_API.G_RET_STS_ERROR;
1566: RETURN;
1567:
1568: END IF;
1569:

Line 1613: x_return_status := FND_API.G_RET_STS_ERROR;

1609:
1610: IF (get_page_id%notfound ) THEN
1611: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1612: ,p_msg_name => 'PA_PAGE_LAYOUT_NAME_INV');
1613: x_return_status := FND_API.G_RET_STS_ERROR;
1614: RETURN;
1615:
1616: ELSE
1617: -- we have the valid page_id now

Line 1631: --x_return_status := FND_API.G_RET_STS_ERROR;

1627: -- l_page_id := p_page_id;
1628:
1629: --PA_UTILS.Add_Message( p_app_short_name => 'PA'
1630: -- ,p_msg_name => 'PA_PAGE_ID_INV');
1631: --x_return_status := FND_API.G_RET_STS_ERROR;
1632: END IF;
1633:
1634: --debug_msg('object_id ' || To_char(p_object_id));
1635: --debug_msg('object_type ' || p_object_type);

Line 1651: x_return_status := FND_API.G_RET_STS_ERROR;

1647: if (page_id_l <> l_page_id or approval_required_l <> p_approval_required) then
1648: -- we have to quit,
1649: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1650: ,p_msg_name => 'PA_REPORT_TYPE_EDIT_INV');
1651: x_return_status := FND_API.G_RET_STS_ERROR;
1652: RETURN;
1653: end if;
1654:
1655: END IF;

Line 1742: x_return_status := FND_API.G_RET_STS_ERROR;

1738: FETCH report_type_exists INTO l_rowid;
1739: IF report_type_exists%NOTFOUND THEN
1740: PA_UTILS.Add_Message( p_app_short_name => 'PA'
1741: ,p_msg_name => 'PA_PS_REPORT_TYPE_INVALID');
1742: x_return_status := FND_API.G_RET_STS_ERROR;
1743: RETURN;
1744: ELSE
1745: -- we have the valid report_type_id
1746: NULL;

Line 1751: IF x_return_status = FND_API.g_ret_sts_success THEN

1747: END if;
1748: CLOSE report_type_exists;
1749: END IF;
1750:
1751: IF x_return_status = FND_API.g_ret_sts_success THEN
1752:
1753: OPEN check_object_page_layout_exits;
1754: FETCH check_object_page_layout_exits INTO page_id_l, approval_required_l;
1755:

Line 1760: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) THEN

1756: IF check_object_page_layout_exits%NOTFOUND THEN
1757: CLOSE check_object_page_layout_exits;
1758:
1759: -- we will insert into pa_object_page_layouts
1760: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) THEN
1761:
1762: pa_progress_report_pkg.insert_object_page_layout_row
1763: (
1764: P_OBJECT_ID ,

Line 1839: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) THEN

1835: ELSE
1836: CLOSE check_object_page_layout_exits;
1837:
1838: -- we will insert into pa_object_page_layouts
1839: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) THEN
1840:
1841:
1842: pa_progress_report_pkg.update_object_page_layout_row
1843: (

Line 1914: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN

1910: END IF;
1911: END IF;
1912:
1913: -- Commit if the flag is set and there is no error
1914: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
1915: COMMIT;
1916: END IF;
1917:
1918: if (x_msg_count >= 1) then

Line 1919: x_return_status := FND_API.g_ret_sts_Error;

1915: COMMIT;
1916: END IF;
1917:
1918: if (x_msg_count >= 1) then
1919: x_return_status := FND_API.g_ret_sts_Error;
1920: end if;
1921:
1922: -- Reset the error stack when returning to the calling program
1923: PA_DEBUG.Reset_Err_Stack;

Line 1928: IF p_commit = FND_API.G_TRUE THEN

1924:
1925:
1926: EXCEPTION
1927: WHEN OTHERS THEN
1928: IF p_commit = FND_API.G_TRUE THEN
1929: ROLLBACK TO define_progress_report_setup;
1930: END IF;
1931: --
1932: -- Set the excetption Message and the stack

Line 1936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

1932: -- Set the excetption Message and the stack
1933: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PVT.define_progress_report_setup'
1934: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
1935: --
1936: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1937: RAISE; -- This is optional depending on the needs
1938:
1939:
1940:

Line 1946: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

1942:
1943: PROCEDURE delete_report
1944: (
1945: p_api_version IN NUMBER := 1.0,
1946: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1947: p_commit IN VARCHAR2 := FND_API.g_false,
1948: p_validate_only IN VARCHAR2 := FND_API.g_true,
1949: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1950:

Line 1947: p_commit IN VARCHAR2 := FND_API.g_false,

1943: PROCEDURE delete_report
1944: (
1945: p_api_version IN NUMBER := 1.0,
1946: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1947: p_commit IN VARCHAR2 := FND_API.g_false,
1948: p_validate_only IN VARCHAR2 := FND_API.g_true,
1949: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1950:
1951: p_version_id IN NUMBER :=NULL,

Line 1948: p_validate_only IN VARCHAR2 := FND_API.g_true,

1944: (
1945: p_api_version IN NUMBER := 1.0,
1946: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1947: p_commit IN VARCHAR2 := FND_API.g_false,
1948: p_validate_only IN VARCHAR2 := FND_API.g_true,
1949: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1950:
1951: p_version_id IN NUMBER :=NULL,
1952: p_record_version_number IN NUMBER := NULL,

Line 1949: p_max_msg_count IN NUMBER := FND_API.g_miss_num,

1945: p_api_version IN NUMBER := 1.0,
1946: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
1947: p_commit IN VARCHAR2 := FND_API.g_false,
1948: p_validate_only IN VARCHAR2 := FND_API.g_true,
1949: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
1950:
1951: p_version_id IN NUMBER :=NULL,
1952: p_record_version_number IN NUMBER := NULL,
1953:

Line 2024: x_return_status := FND_API.G_RET_STS_SUCCESS;

2020: -- Initialize the Error Stack
2021: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PVT.Delete_Report');
2022:
2023: -- Initialize the return status to success
2024: x_return_status := FND_API.G_RET_STS_SUCCESS;
2025:
2026: -- Issue API savepoint if the transaction is to be committed
2027: IF p_commit = FND_API.G_TRUE THEN
2028: SAVEPOINT delete_report;

Line 2027: IF p_commit = FND_API.G_TRUE THEN

2023: -- Initialize the return status to success
2024: x_return_status := FND_API.G_RET_STS_SUCCESS;
2025:
2026: -- Issue API savepoint if the transaction is to be committed
2027: IF p_commit = FND_API.G_TRUE THEN
2028: SAVEPOINT delete_report;
2029: END IF;
2030:
2031: OPEN get_template_type;

Line 2041: x_return_status := FND_API.G_RET_STS_ERROR;

2037: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2038: ,p_msg_name => 'PA_PR_VERSION_ID_INV'
2039: , p_token1 => 'TEMPLATE_TYPE'
2040: , p_value1 => l_type);
2041: x_return_status := FND_API.G_RET_STS_ERROR;
2042: END IF;
2043:
2044:
2045: -- cancel the workflow which if it is already launched.

Line 2079: x_return_status := FND_API.G_RET_STS_SUCCESS;

2075: , x_return_status
2076: );
2077:
2078: IF (l_dummy = 'N') THEN
2079: x_return_status := FND_API.G_RET_STS_SUCCESS;
2080: END IF;
2081:
2082: END IF;
2083:

Line 2097: -- x_return_status := FND_API.G_RET_STS_ERROR;

2093: -- failed, return error.
2094: -- IF (l_dummy = 'Y' or l_dummy = 'A' )THEN
2095: -- PA_UTILS.Add_Message( p_app_short_name => 'PA'
2096: -- ,p_msg_name => 'PA_PR_CANCEL_WORKFLOW_INV');
2097: -- x_return_status := FND_API.G_RET_STS_ERROR;
2098: NULL;
2099: END IF;
2100: ELSE
2101: CLOSE check_status_submitted;

Line 2106: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then

2102:
2103: END IF;
2104:
2105:
2106: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then
2107:
2108: -- delete all records in pa_progress_report_vals under the p_version_id
2109: pa_progress_report_pkg.delete_progress_report_vals
2110: (

Line 2117: IF (x_return_status = FND_API.g_ret_sts_success) THEN

2113: x_msg_count ,
2114: x_msg_data
2115: );
2116:
2117: IF (x_return_status = FND_API.g_ret_sts_success) THEN
2118:
2119: -- delete record in pa_progress_report_vers under the p_version_id
2120: pa_progress_report_pkg.delete_progress_report_ver_row
2121: (

Line 2135: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN

2131: END IF;
2132:
2133:
2134: -- Commit if the flag is set and there is no error
2135: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
2136: COMMIT;
2137: END IF;
2138:
2139: -- Reset the error stack when returning to the calling program

Line 2145: IF p_commit = FND_API.G_TRUE THEN

2141:
2142:
2143: EXCEPTION
2144: WHEN OTHERS THEN
2145: IF p_commit = FND_API.G_TRUE THEN
2146: ROLLBACK TO delete_report;
2147: END IF;
2148: --
2149: -- Set the excetption Message and the stack

Line 2153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

2149: -- Set the excetption Message and the stack
2150: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PVT.Delete_Report'
2151: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2152: --
2153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2154: RAISE; -- This is optional depending on the needs
2155:
2156: END delete_report;
2157:

Line 2161: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

2157:
2158: PROCEDURE rework_report
2159: (
2160: p_api_version IN NUMBER := 1.0,
2161: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2162: p_commit IN VARCHAR2 := FND_API.g_false,
2163: p_validate_only IN VARCHAR2 := FND_API.g_true,
2164: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2165:

Line 2162: p_commit IN VARCHAR2 := FND_API.g_false,

2158: PROCEDURE rework_report
2159: (
2160: p_api_version IN NUMBER := 1.0,
2161: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2162: p_commit IN VARCHAR2 := FND_API.g_false,
2163: p_validate_only IN VARCHAR2 := FND_API.g_true,
2164: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2165:
2166: p_version_id IN NUMBER := NULL,

Line 2163: p_validate_only IN VARCHAR2 := FND_API.g_true,

2159: (
2160: p_api_version IN NUMBER := 1.0,
2161: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2162: p_commit IN VARCHAR2 := FND_API.g_false,
2163: p_validate_only IN VARCHAR2 := FND_API.g_true,
2164: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2165:
2166: p_version_id IN NUMBER := NULL,
2167: p_record_version_number IN NUMBER := NULL,

Line 2164: p_max_msg_count IN NUMBER := FND_API.g_miss_num,

2160: p_api_version IN NUMBER := 1.0,
2161: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2162: p_commit IN VARCHAR2 := FND_API.g_false,
2163: p_validate_only IN VARCHAR2 := FND_API.g_true,
2164: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2165:
2166: p_version_id IN NUMBER := NULL,
2167: p_record_version_number IN NUMBER := NULL,
2168:

Line 2243: x_return_status := FND_API.G_RET_STS_SUCCESS;

2239: -- Initialize the Error Stack
2240: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PVT.Rework_Report');
2241:
2242: -- Initialize the return status to success
2243: x_return_status := FND_API.G_RET_STS_SUCCESS;
2244:
2245: -- Issue API savepoint if the transaction is to be committed
2246: SAVEPOINT rework_report;
2247:

Line 2258: x_return_status := FND_API.G_RET_STS_ERROR;

2254: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2255: ,p_msg_name => 'PA_PR_VERSION_ID_INV'
2256: , p_token1 => 'TEMPLATE_TYPE'
2257: , p_value1 => l_type);
2258: x_return_status := FND_API.G_RET_STS_ERROR;
2259: END IF;
2260:
2261:
2262: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then

Line 2262: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then

2258: x_return_status := FND_API.G_RET_STS_ERROR;
2259: END IF;
2260:
2261:
2262: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then
2263:
2264: -- set the status to working first
2265:
2266: /*

Line 2307: IF (x_return_status = FND_API.g_ret_sts_success) THEN

2303: x_msg_count => x_msg_count,
2304: x_msg_data => x_msg_data
2305: ) ;
2306:
2307: IF (x_return_status = FND_API.g_ret_sts_success) THEN
2308: -- cancel the approval workflow process if that is already launched
2309: -- todo
2310:
2311: -- check whether report approval is required.

Line 2340: -- x_return_status := FND_API.G_RET_STS_ERROR;

2336: IF (l_dummy = 'Y' or l_dummy = 'A') then
2337: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2338: ,p_msg_name => 'PA_PR_CANCEL_WORKFLOW_INV');
2339: --todo
2340: -- x_return_status := FND_API.G_RET_STS_ERROR;
2341: END IF;
2342:
2343: else
2344:

Line 2355: x_return_status := FND_API.G_RET_STS_SUCCESS;

2351: , x_return_status
2352: );
2353:
2354: IF (l_dummy = 'N') THEN
2355: x_return_status := FND_API.G_RET_STS_SUCCESS;
2356: END IF;
2357:
2358: END IF;
2359:

Line 2371: x_return_status := FND_API.G_RET_STS_ERROR;

2367: -- failed, return error.
2368: IF (l_dummy = 'Y' or l_dummy = 'A' )THEN
2369: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2370: ,p_msg_name => 'PA_PR_CANCEL_WORKFLOW_INV');
2371: x_return_status := FND_API.G_RET_STS_ERROR;
2372:
2373: END IF;
2374:
2375: END IF;

Line 2384: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN

2380: END IF;
2381:
2382:
2383: -- Commit if the flag is set and there is no error
2384: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
2385: COMMIT;
2386: END IF;
2387:
2388: IF (x_return_status <> FND_API.g_ret_sts_success )THEN

Line 2388: IF (x_return_status <> FND_API.g_ret_sts_success )THEN

2384: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
2385: COMMIT;
2386: END IF;
2387:
2388: IF (x_return_status <> FND_API.g_ret_sts_success )THEN
2389: ROLLBACK TO rework_report;
2390: END IF;
2391:
2392: -- Reset the error stack when returning to the calling program

Line 2398: IF p_commit = FND_API.G_TRUE THEN

2394:
2395:
2396: EXCEPTION
2397: WHEN OTHERS THEN
2398: IF p_commit = FND_API.G_TRUE THEN
2399: ROLLBACK TO rework_report;
2400: END IF;
2401: --
2402: -- Set the excetption Message and the stack

Line 2406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

2402: -- Set the excetption Message and the stack
2403: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PVT.Rework_Report'
2404: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2405: --
2406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2407: RAISE; -- This is optional depending on the needs
2408:
2409: END rework_report;
2410:

Line 2414: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

2410:
2411: PROCEDURE publish_report
2412: (
2413: p_api_version IN NUMBER := 1.0,
2414: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2415: p_commit IN VARCHAR2 := FND_API.g_false,
2416: p_validate_only IN VARCHAR2 := FND_API.g_true,
2417: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2418:

Line 2415: p_commit IN VARCHAR2 := FND_API.g_false,

2411: PROCEDURE publish_report
2412: (
2413: p_api_version IN NUMBER := 1.0,
2414: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2415: p_commit IN VARCHAR2 := FND_API.g_false,
2416: p_validate_only IN VARCHAR2 := FND_API.g_true,
2417: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2418:
2419: p_version_id IN NUMBER := NULL,

Line 2416: p_validate_only IN VARCHAR2 := FND_API.g_true,

2412: (
2413: p_api_version IN NUMBER := 1.0,
2414: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2415: p_commit IN VARCHAR2 := FND_API.g_false,
2416: p_validate_only IN VARCHAR2 := FND_API.g_true,
2417: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2418:
2419: p_version_id IN NUMBER := NULL,
2420: p_record_version_number IN NUMBER := NULL,

Line 2417: p_max_msg_count IN NUMBER := FND_API.g_miss_num,

2413: p_api_version IN NUMBER := 1.0,
2414: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2415: p_commit IN VARCHAR2 := FND_API.g_false,
2416: p_validate_only IN VARCHAR2 := FND_API.g_true,
2417: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2418:
2419: p_version_id IN NUMBER := NULL,
2420: p_record_version_number IN NUMBER := NULL,
2421: p_summary_version_number IN NUMBER := NULL,

Line 2495: x_return_status := FND_API.G_RET_STS_SUCCESS;

2491: -- Initialize the Error Stack
2492: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PVT.Publish_Report');
2493:
2494: -- Initialize the return status to success
2495: x_return_status := FND_API.G_RET_STS_SUCCESS;
2496:
2497: -- Issue API savepoint if the transaction is to be committed
2498: SAVEPOINT publish_report;
2499:

Line 2511: x_return_status := FND_API.G_RET_STS_ERROR;

2507: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2508: ,p_msg_name => 'PA_PR_VERSION_ID_INV'
2509: , p_token1 => 'TEMPLATE_TYPE'
2510: , p_value1 => l_type);
2511: x_return_status := FND_API.G_RET_STS_ERROR;
2512: END IF;
2513:
2514:
2515: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then

Line 2515: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then

2511: x_return_status := FND_API.G_RET_STS_ERROR;
2512: END IF;
2513:
2514:
2515: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then
2516:
2517: -- set the status to working first
2518:
2519: --debug_msg('UPDATE_PROGRESS_REPORT_VER_ROW');

Line 2565: IF (x_return_status = FND_API.g_ret_sts_success) THEN

2561: x_msg_count => x_msg_count,
2562: x_msg_data => x_msg_data
2563: ) ;
2564:
2565: IF (x_return_status = FND_API.g_ret_sts_success) THEN
2566:
2567: OPEN check_auto_approve;
2568:
2569: FETCH check_auto_approve INTO l_dummy;

Line 2669: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN

2665:
2666:
2667:
2668: -- Commit if the flag is set and there is no error
2669: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
2670: COMMIT;
2671: END IF;
2672:
2673: IF (x_return_status <> FND_API.g_ret_sts_success )THEN

Line 2673: IF (x_return_status <> FND_API.g_ret_sts_success )THEN

2669: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
2670: COMMIT;
2671: END IF;
2672:
2673: IF (x_return_status <> FND_API.g_ret_sts_success )THEN
2674: ROLLBACK TO publish_report;
2675: END IF;
2676: -- Reset the error stack when returning to the calling program
2677: PA_DEBUG.Reset_Err_Stack;

Line 2689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

2685: -- Set the excetption Message and the stack
2686: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PVT.Publish_Report'
2687: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2688: --
2689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2690: RAISE; -- This is optional depending on the needs
2691:
2692: END publish_report;
2693:

Line 2697: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

2693:
2694: PROCEDURE submit_report
2695: (
2696: p_api_version IN NUMBER := 1.0,
2697: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2698: p_commit IN VARCHAR2 := FND_API.g_false,
2699: p_validate_only IN VARCHAR2 := FND_API.g_true,
2700: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2701:

Line 2698: p_commit IN VARCHAR2 := FND_API.g_false,

2694: PROCEDURE submit_report
2695: (
2696: p_api_version IN NUMBER := 1.0,
2697: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2698: p_commit IN VARCHAR2 := FND_API.g_false,
2699: p_validate_only IN VARCHAR2 := FND_API.g_true,
2700: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2701:
2702: p_version_id IN NUMBER := NULL,

Line 2699: p_validate_only IN VARCHAR2 := FND_API.g_true,

2695: (
2696: p_api_version IN NUMBER := 1.0,
2697: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2698: p_commit IN VARCHAR2 := FND_API.g_false,
2699: p_validate_only IN VARCHAR2 := FND_API.g_true,
2700: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2701:
2702: p_version_id IN NUMBER := NULL,
2703: p_record_version_number IN NUMBER := NULL,

Line 2700: p_max_msg_count IN NUMBER := FND_API.g_miss_num,

2696: p_api_version IN NUMBER := 1.0,
2697: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2698: p_commit IN VARCHAR2 := FND_API.g_false,
2699: p_validate_only IN VARCHAR2 := FND_API.g_true,
2700: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2701:
2702: p_version_id IN NUMBER := NULL,
2703: p_record_version_number IN NUMBER := NULL,
2704: p_summary_version_number IN NUMBER := NULL,

Line 2756: x_return_status := FND_API.G_RET_STS_SUCCESS;

2752: -- Initialize the Error Stack
2753: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PVT.Submit_Report');
2754:
2755: -- Initialize the return status to success
2756: x_return_status := FND_API.G_RET_STS_SUCCESS;
2757:
2758: -- Issue API savepoint if the transaction is to be committed
2759: SAVEPOINT submit_report;
2760:

Line 2773: x_return_status := FND_API.G_RET_STS_ERROR;

2769: ,p_msg_name => 'PA_PR_VERSION_ID_INV'
2770: , p_token1 => 'TEMPLATE_TYPE'
2771: , p_value1 => l_type);
2772:
2773: x_return_status := FND_API.G_RET_STS_ERROR;
2774: END IF;
2775:
2776: OPEN get_object_id;
2777:

Line 2783: x_return_status := FND_API.G_RET_STS_ERROR;

2779:
2780: IF get_object_id%notfound THEN
2781: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2782: ,p_msg_name => 'PA_PR_STATUS_NOT_WORKING');
2783: x_return_status := FND_API.G_RET_STS_ERROR;
2784: END IF;
2785:
2786: CLOSE get_object_id;
2787:

Line 2788: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then

2784: END IF;
2785:
2786: CLOSE get_object_id;
2787:
2788: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then
2789:
2790: -- set the status to working first
2791:
2792: pa_progress_report_pkg.UPDATE_PROGRESS_REPORT_VER_ROW

Line 2822: IF (x_return_status = FND_API.g_ret_sts_success) THEN

2818: x_msg_count ,
2819: x_msg_data
2820: );
2821:
2822: IF (x_return_status = FND_API.g_ret_sts_success) THEN
2823: -- update information in other tables
2824: --update_project_perccomplete(p_version_id,
2825: -- x_return_status,
2826: -- x_msg_count,

Line 2829: IF(x_return_status = FND_API.g_ret_sts_success )THEN

2825: -- x_return_status,
2826: -- x_msg_count,
2827: -- x_msg_data);
2828:
2829: IF(x_return_status = FND_API.g_ret_sts_success )THEN
2830: -- launch the workflow process
2831:
2832: -- added by syao
2833: -- get the workflow process name

Line 2854: IF(x_return_status = FND_API.g_ret_sts_success )THEN

2850: , x_msg_data
2851: , x_return_status
2852: );
2853:
2854: IF(x_return_status = FND_API.g_ret_sts_success )THEN
2855:
2856: -- update pa_wf_process_table
2857: PA_WORKFLOW_UTILS.Insert_WF_Processes
2858: (p_wf_type_code => 'Progress Report'

Line 2873: x_return_status := FND_API.G_RET_STS_ERROR;

2869:
2870: IF l_err_code <> 0 THEN
2871: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2872: ,p_msg_name => 'PA_PR_CREATE_WF_FAILED');
2873: x_return_status := FND_API.G_RET_STS_ERROR;
2874:
2875: END IF;
2876:
2877:

Line 2881: x_return_status := FND_API.G_RET_STS_ERROR;

2877:
2878: ELSE
2879: PA_UTILS.Add_Message( p_app_short_name => 'PA'
2880: ,p_msg_name => 'PA_PR_CREATE_WF_FAILED');
2881: x_return_status := FND_API.G_RET_STS_ERROR;
2882:
2883: END IF;
2884: ELSE
2885: CLOSE get_wf_process_name;

Line 2900: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN

2896:
2897:
2898:
2899: -- Commit if the flag is set and there is no error
2900: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
2901: COMMIT;
2902: END IF;
2903:
2904: IF (x_return_status <> FND_API.g_ret_sts_success )THEN

Line 2904: IF (x_return_status <> FND_API.g_ret_sts_success )THEN

2900: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
2901: COMMIT;
2902: END IF;
2903:
2904: IF (x_return_status <> FND_API.g_ret_sts_success )THEN
2905: ROLLBACK TO submit_report;
2906: END IF;
2907:
2908: -- Reset the error stack when returning to the calling program

Line 2922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

2918: -- Set the excetption Message and the stack
2919: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PVT.Submit_Report'
2920: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
2921: --
2922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2923: RAISE; -- This is optional depending on the needs
2924:
2925: END submit_report;
2926:

Line 2930: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

2926:
2927: PROCEDURE change_report_status
2928: (
2929: p_api_version IN NUMBER := 1.0,
2930: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2931: p_commit IN VARCHAR2 := FND_API.g_false,
2932: p_validate_only IN VARCHAR2 := FND_API.g_false,
2933: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2934:

Line 2931: p_commit IN VARCHAR2 := FND_API.g_false,

2927: PROCEDURE change_report_status
2928: (
2929: p_api_version IN NUMBER := 1.0,
2930: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2931: p_commit IN VARCHAR2 := FND_API.g_false,
2932: p_validate_only IN VARCHAR2 := FND_API.g_false,
2933: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2934:
2935: p_version_id IN NUMBER := NULL,

Line 2932: p_validate_only IN VARCHAR2 := FND_API.g_false,

2928: (
2929: p_api_version IN NUMBER := 1.0,
2930: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2931: p_commit IN VARCHAR2 := FND_API.g_false,
2932: p_validate_only IN VARCHAR2 := FND_API.g_false,
2933: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2934:
2935: p_version_id IN NUMBER := NULL,
2936: p_report_status IN VARCHAR2 := NULL,

Line 2933: p_max_msg_count IN NUMBER := FND_API.g_miss_num,

2929: p_api_version IN NUMBER := 1.0,
2930: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
2931: p_commit IN VARCHAR2 := FND_API.g_false,
2932: p_validate_only IN VARCHAR2 := FND_API.g_false,
2933: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
2934:
2935: p_version_id IN NUMBER := NULL,
2936: p_report_status IN VARCHAR2 := NULL,
2937: p_record_version_number IN NUMBER := NULL,

Line 2987: x_return_status := FND_API.G_RET_STS_SUCCESS;

2983: -- Initialize the Error Stack
2984: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PVT.Change_Report_Status');
2985:
2986: -- Initialize the return status to success
2987: x_return_status := FND_API.G_RET_STS_SUCCESS;
2988:
2989: -- get the project_id
2990: OPEN get_object_id;
2991:

Line 2997: --x_return_status := FND_API.G_RET_STS_ERROR;

2993:
2994: -- IF get_object_id%notfound THEN
2995: -- PA_UTILS.Add_Message( p_app_short_name => 'PA'
2996: -- ,p_msg_name => 'PA_PR_STATUS_NOT_WORKING');
2997: --x_return_status := FND_API.G_RET_STS_ERROR;
2998: --END IF;
2999: CLOSE get_object_id;
3000:
3001: --- Check for the last published report and compare dates. If date is

Line 3062: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then

3058: l_current_flag := 'N';
3059: end if;
3060:
3061: -- change the progress status, launch the workflow if necessary
3062: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then
3063: pa_progress_report_pkg.UPDATE_PROGRESS_REPORT_VER_ROW
3064: (
3065: p_version_id,
3066: NULL,

Line 3092: IF (x_return_status = FND_API.g_ret_sts_success )THEN

3088: x_return_status ,
3089: x_msg_count ,
3090: x_msg_data
3091: );
3092: IF (x_return_status = FND_API.g_ret_sts_success )THEN
3093:
3094:
3095: -- check whether to launch the workflow
3096: OPEN get_wf_info;

Line 3119: IF(x_return_status = FND_API.g_ret_sts_success )THEN

3115: , x_msg_data
3116: , x_return_status
3117: );
3118:
3119: IF(x_return_status = FND_API.g_ret_sts_success )THEN
3120:
3121: -- update pa_wf_process_table
3122: PA_WORKFLOW_UTILS.Insert_WF_Processes
3123: (p_wf_type_code => 'Progress Report'

Line 3138: x_return_status := FND_API.G_RET_STS_ERROR;

3134:
3135: IF l_err_code <> 0 THEN
3136: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3137: ,p_msg_name => 'PA_PR_CREATE_WF_FAILED');
3138: x_return_status := FND_API.G_RET_STS_ERROR;
3139:
3140: END IF;
3141:
3142:

Line 3146: x_return_status := FND_API.G_RET_STS_ERROR;

3142:
3143: ELSE
3144: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3145: ,p_msg_name => 'PA_PR_CREATE_WF_FAILED');
3146: x_return_status := FND_API.G_RET_STS_ERROR;
3147:
3148: END IF;
3149: END IF;
3150: END IF;

Line 3160: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN

3156:
3157: END IF;
3158:
3159: -- Commit if the flag is set and there is no error
3160: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
3161: COMMIT;
3162: END IF;
3163:
3164: -- Reset the error stack when returning to the calling program

Line 3175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3171: -- Set the excetption Message and the stack
3172: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PVT.Change_Report_Status'
3173: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3174: --
3175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3176: RAISE; -- This is optional depending on the needs
3177: END change_report_status;
3178:
3179:

Line 3183: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,

3179:
3180: PROCEDURE create_report
3181: (
3182: p_api_version IN NUMBER := 1.0,
3183: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
3184: p_commit IN VARCHAR2 := FND_API.g_false,
3185: p_validate_only IN VARCHAR2 := FND_API.g_true,
3186: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
3187:

Line 3184: p_commit IN VARCHAR2 := FND_API.g_false,

3180: PROCEDURE create_report
3181: (
3182: p_api_version IN NUMBER := 1.0,
3183: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
3184: p_commit IN VARCHAR2 := FND_API.g_false,
3185: p_validate_only IN VARCHAR2 := FND_API.g_true,
3186: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
3187:
3188: p_object_id IN NUMBER := NULL,

Line 3185: p_validate_only IN VARCHAR2 := FND_API.g_true,

3181: (
3182: p_api_version IN NUMBER := 1.0,
3183: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
3184: p_commit IN VARCHAR2 := FND_API.g_false,
3185: p_validate_only IN VARCHAR2 := FND_API.g_true,
3186: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
3187:
3188: p_object_id IN NUMBER := NULL,
3189: p_object_type IN VARCHAR2 := NULL,

Line 3186: p_max_msg_count IN NUMBER := FND_API.g_miss_num,

3182: p_api_version IN NUMBER := 1.0,
3183: p_init_msg_list IN VARCHAR2 := fnd_api.g_true,
3184: p_commit IN VARCHAR2 := FND_API.g_false,
3185: p_validate_only IN VARCHAR2 := FND_API.g_true,
3186: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
3187:
3188: p_object_id IN NUMBER := NULL,
3189: p_object_type IN VARCHAR2 := NULL,
3190: p_report_type_id IN NUMBER := NULL,

Line 3326: x_return_status := FND_API.G_RET_STS_SUCCESS;

3322: -- Initialize the Error Stack
3323: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PVT.create_next_progress_report');
3324:
3325: -- Initialize the return status to success
3326: x_return_status := FND_API.G_RET_STS_SUCCESS;
3327:
3328: -- Issue API savepoint if the transaction is to be committed
3329:
3330: SAVEPOINT create_next_progress_report;

Line 3337: x_return_status := FND_API.G_RET_STS_ERROR;

3333: -- check mandatory version_id
3334: IF (p_object_id IS NULL) then
3335: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3336: ,p_msg_name => 'PA_OBJECT_ID_INV');
3337: x_return_status := FND_API.G_RET_STS_ERROR;
3338: END IF;
3339: l_page_id := -99;
3340: l_call_setup := 'N';
3341:

Line 3359: x_return_status := FND_API.G_RET_STS_ERROR;

3355:
3356: if (l_page_id = -99) then
3357: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3358: ,p_msg_name => 'PA_NO_PRJ_REP_TEMPLATE');
3359: x_return_status := FND_API.G_RET_STS_ERROR;
3360:
3361: END IF;
3362:
3363: CLOSE get_page_id_type;

Line 3365: IF (l_call_setup = 'Y' and x_return_status = FND_API.g_ret_sts_success) then

3361: END IF;
3362:
3363: CLOSE get_page_id_type;
3364:
3365: IF (l_call_setup = 'Y' and x_return_status = FND_API.g_ret_sts_success) then
3366: ---- call setup api
3367: define_progress_report_setup
3368: (
3369: p_validate_only => FND_API.g_false,

Line 3369: p_validate_only => FND_API.g_false,

3365: IF (l_call_setup = 'Y' and x_return_status = FND_API.g_ret_sts_success) then
3366: ---- call setup api
3367: define_progress_report_setup
3368: (
3369: p_validate_only => FND_API.g_false,
3370: p_init_msg_list => FND_API.g_false,
3371: p_object_id => p_object_id,
3372: p_object_type => p_object_type,
3373: p_page_type_code => l_page_type,

Line 3370: p_init_msg_list => FND_API.g_false,

3366: ---- call setup api
3367: define_progress_report_setup
3368: (
3369: p_validate_only => FND_API.g_false,
3370: p_init_msg_list => FND_API.g_false,
3371: p_object_id => p_object_id,
3372: p_object_type => p_object_type,
3373: p_page_type_code => l_page_type,
3374: p_page_id => l_page_id,

Line 3385: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then

3381: );
3382:
3383: END IF;
3384:
3385: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) then
3386:
3387: -- create an entry in pa_progress_report_vers table
3388:
3389: --debug_msg('before get dates' || To_char(l_reporting_cycle_id));

Line 3416: x_return_status := FND_API.G_RET_STS_ERROR;

3412:
3413: IF (Trunc(l_report_end_date) < Trunc(l_report_start_date)) THEN
3414: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3415: ,p_msg_name => 'PA_REPORT_END_DATE_INV');
3416: x_return_status := FND_API.G_RET_STS_ERROR;
3417: return;
3418: END IF;
3419: ELSE
3420: l_report_cycle_flag := 'N';

Line 3427: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) THEN

3423: l_report_end_date:= Trunc(Sysdate);
3424: END IF;
3425:
3426:
3427: IF (p_validate_only <>FND_API.g_true AND x_return_status = FND_API.g_ret_sts_success) THEN
3428:
3429:
3430: --debug_msg('*********before insert: reported by ' || To_char(fnd_global.user_id));
3431:

Line 3619: IF x_return_status = FND_API.g_ret_sts_success then

3615: CLOSE get_publish_overview;
3616: END IF;
3617:
3618:
3619: IF x_return_status = FND_API.g_ret_sts_success then
3620: --debug_msg ('published report' || To_char(l_last_published_version_id));
3621: -- if there is existing published report
3622: -- copy it, create entries in pa_progress_report_vals table
3623: FOR obj_page_value_rec IN get_all_regions LOOP

Line 3686: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN

3682:
3683: --debug_msg('***end');
3684:
3685: -- Commit if the flag is set and there is no error
3686: IF (p_commit = FND_API.G_TRUE AND x_return_status = FND_API.g_ret_sts_success )THEN
3687: COMMIT;
3688: END IF;
3689:
3690:

Line 3691: IF (x_return_status <> FND_API.g_ret_sts_success )THEN

3687: COMMIT;
3688: END IF;
3689:
3690:
3691: IF (x_return_status <> FND_API.g_ret_sts_success )THEN
3692: ROLLBACK TO create_next_progress_report;
3693: END IF;
3694:
3695:

Line 3702: IF p_commit = FND_API.G_TRUE THEN

3698:
3699:
3700: EXCEPTION
3701: WHEN OTHERS THEN
3702: IF p_commit = FND_API.G_TRUE THEN
3703: ROLLBACK TO create_next_progress_report;
3704: END IF;
3705: --
3706: -- Set the exception Message and the stack

Line 3710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3706: -- Set the exception Message and the stack
3707: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROGRESS_REPORT_PVT.create_next_progress_report'
3708: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3709: --
3710: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3711: RAISE; -- This is optional depending on the needs
3712:
3713:
3714: END create_report;

Line 3769: x_return_status := FND_API.G_RET_STS_SUCCESS;

3765: -- Initialize the Error Stack
3766: PA_DEBUG.init_err_stack('PA_PROGRESS_REPORT_PVT.update_project_perccomplete');
3767:
3768: -- Initialize the return status to success
3769: x_return_status := FND_API.G_RET_STS_SUCCESS;
3770:
3771: SAVEPOINT update_project_perccomplete;
3772:
3773: OPEN get_object_info;

Line 3780: x_return_status := FND_API.G_RET_STS_ERROR;

3776:
3777: IF get_object_info%notfound THEN
3778: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3779: ,p_msg_name => 'PA_NO_PRJ_REP');
3780: x_return_status := FND_API.G_RET_STS_ERROR;
3781: END IF;
3782:
3783: CLOSE get_object_info;
3784:

Line 3807: -- x_return_status := FND_API.G_RET_STS_ERROR;

3803:
3804: IF get_percent_complete%notfound THEN
3805: -- PA_UTILS.Add_Message( p_app_short_name => 'PA'
3806: -- ,p_msg_name => 'PA_PR_PERCENT_COMPLETE_INV');
3807: -- x_return_status := FND_API.G_RET_STS_ERROR;
3808: NULL;
3809: -- todo when perc complete is null, do we update?
3810:
3811: ELSE

Line 3839: IF (x_return_status <> FND_API.g_ret_sts_success) THEN

3835: END IF;
3836:
3837: CLOSE get_percent_complete;
3838:
3839: IF (x_return_status <> FND_API.g_ret_sts_success) THEN
3840:
3841: ROLLBACK TO update_project_perccomplete;
3842: RETURN;
3843: END IF;

Line 3854: x_return_status := FND_API.G_RET_STS_ERROR;

3850: IF get_dates%notfound THEN
3851: CLOSE get_dates;
3852: PA_UTILS.Add_Message( p_app_short_name => 'PA'
3853: ,p_msg_name => 'PA_PR_DATES_INV');
3854: x_return_status := FND_API.G_RET_STS_ERROR;
3855:
3856: ROLLBACK TO update_project_perccomplete;
3857: PA_DEBUG.Reset_Err_Stack;
3858: RETURN;

Line 3879: IF (x_return_status <> FND_API.g_ret_sts_success) THEN

3875:
3876: NULL;
3877: END IF;
3878:
3879: IF (x_return_status <> FND_API.g_ret_sts_success) THEN
3880:
3881: ROLLBACK TO update_project_perccomplete;
3882: END IF;
3883:

Line 3893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3889: -- Set the excetption Message and the stack
3890: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_Progress_Report_PVT.update_project_perccomplete'
3891: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
3892: --
3893: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3894: RAISE; -- This is optional depending on the needs
3895: END update_project_perccomplete;
3896:
3897: /*

Line 3957: x_return_status := FND_API.G_RET_STS_SUCCESS;

3953: l_module_name varchar2(100) := 'PA_PROGRESS_REPORT_PVT';
3954:
3955: BEGIN
3956: x_msg_count := 0;
3957: x_return_status := FND_API.G_RET_STS_SUCCESS;
3958: pa_debug.set_err_stack('PA_PROGRESS_REPORT_PVT.delete_version_data');
3959: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
3960: fnd_profile.get('AFLOG_LEVEL',l_debug_level);
3961: l_debug_mode := NVL(l_debug_mode, 'Y');

Line 4055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

4051: pa_debug.reset_err_stack;
4052: EXCEPTION
4053: WHEN others THEN
4054:
4055: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4056: x_msg_count := 1;
4057: x_msg_data := SQLERRM;
4058: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROGRESS_REPORT_PVT'
4059: ,p_procedure_name => 'delete_version_data');