DBA Data[Home] [Help]

APPS.PJM_PROJECT_PARAM_PUB dependencies on FND_API

Line 121: X_return_status := FND_API.G_RET_STS_SUCCESS;

117: );
118:
119: BEGIN
120:
121: X_return_status := FND_API.G_RET_STS_SUCCESS;
122:
123: X_param_data := P_param_data;
124:
125: IF ( G_ap_installed is null ) THEN

Line 151: X_return_status := FND_API.G_RET_STS_ERROR;

147: ELSE
148: FND_MESSAGE.set_name('PJM' , 'GEN-PROJ ID INVALID');
149: FND_MESSAGE.set_token('ID' , X_param_data.project_id);
150: FND_MSG_PUB.add;
151: X_return_status := FND_API.G_RET_STS_ERROR;
152: return;
153: END IF;
154:
155: END IF;

Line 186: X_return_status := FND_API.G_RET_STS_ERROR;

182: ELSE
183: FND_MESSAGE.set_name('PJM' , 'GEN-ORG ID INVALID');
184: FND_MESSAGE.set_token('ID' , X_param_data.organization_id);
185: FND_MSG_PUB.add;
186: X_return_status := FND_API.G_RET_STS_ERROR;
187: return;
188: END IF;
189:
190: END IF;

Line 275: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

271: WHEN OTHERS THEN
272: FND_MSG_PUB.add_exc_msg
273: ( p_pkg_name => G_pkg_name
274: , p_procedure_name => 'DEFAULT_VALUES' );
275: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
276:
277: END default_values;
278:
279:

Line 351: X_return_status := FND_API.G_RET_STS_SUCCESS;

347: etrec et%rowtype;
348:
349: BEGIN
350:
351: X_return_status := FND_API.G_RET_STS_SUCCESS;
352:
353: --
354: -- Make sure record does not exist
355: --

Line 363: X_return_status := FND_API.G_RET_STS_ERROR;

359: CLOSE pp;
360: IF ( pprec.project_id is not null ) THEN
361: FND_MESSAGE.set_name('PJM' , 'GEN-PARAM RECORD EXISTS');
362: FND_MSG_PUB.add;
363: X_return_status := FND_API.G_RET_STS_ERROR;
364: return;
365: END IF;
366: END IF;
367:

Line 375: X_return_status := FND_API.G_RET_STS_ERROR;

371: IF ( P_param_data.start_date_active > G_proj_comp_date ) THEN
372: FND_MESSAGE.set_name('PJM' , 'FORM-PARAM START DATE INVALID');
373: FND_MESSAGE.set_token('DATE' , FND_DATE.date_to_displaydate(dateval=>G_proj_comp_date, calendar_aware=>2));
374: FND_MSG_PUB.add;
375: X_return_status := FND_API.G_RET_STS_ERROR;
376: END IF;
377:
378: IF ( P_param_data.end_date_active < G_proj_start_date ) THEN
379: FND_MESSAGE.set_name('PJM' , 'FORM-PARAM END DATE INVALID');

Line 382: X_return_status := FND_API.G_RET_STS_ERROR;

378: IF ( P_param_data.end_date_active < G_proj_start_date ) THEN
379: FND_MESSAGE.set_name('PJM' , 'FORM-PARAM END DATE INVALID');
380: FND_MESSAGE.set_token('DATE' , FND_DATE.date_to_displaydate(dateval=>G_proj_start_date, calendar_aware=>2));
381: FND_MSG_PUB.add;
382: X_return_status := FND_API.G_RET_STS_ERROR;
383: END IF;
384:
385: IF ( P_param_data.start_date_active > P_param_data.end_date_active ) THEN
386: FND_MESSAGE.set_name('PJM' , 'FORM-INVALID EFFDATE PAIR');

Line 388: X_return_status := FND_API.G_RET_STS_ERROR;

384:
385: IF ( P_param_data.start_date_active > P_param_data.end_date_active ) THEN
386: FND_MESSAGE.set_name('PJM' , 'FORM-INVALID EFFDATE PAIR');
387: FND_MSG_PUB.add;
388: X_return_status := FND_API.G_RET_STS_ERROR;
389: END IF;
390:
391: --
392: -- Make sure the control level is not task if project is seiban

Line 397: X_return_status := FND_API.G_RET_STS_ERROR;

393: --
394: IF ( G_seiban_flag = 1 AND G_proj_ctrl_level = 2 ) THEN
395: FND_MESSAGE.set_name('PJM' , 'GEN-TASK CONTROL NO SEIBAN');
396: FND_MSG_PUB.add;
397: X_return_status := FND_API.G_RET_STS_ERROR;
398: END IF;
399:
400: --
401: -- Make sure cost group is valid for the organization

Line 412: X_return_status := FND_API.G_RET_STS_ERROR;

408: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
409: FND_MESSAGE.set_token('NAME' , 'TOKEN-COST GROUP' , TRUE);
410: FND_MESSAGE.set_token('VALUE' , P_param_data.cost_group_id);
411: FND_MSG_PUB.add;
412: X_return_status := FND_API.G_RET_STS_ERROR;
413: END IF;
414: END IF;
415:
416: --

Line 431: X_return_status := FND_API.G_RET_STS_ERROR;

427: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
428: FND_MESSAGE.set_token('NAME' , 'TOKEN-WIP ACCT CLASS' , TRUE);
429: FND_MESSAGE.set_token('VALUE' , P_param_data.wip_acct_class_code);
430: FND_MSG_PUB.add;
431: X_return_status := FND_API.G_RET_STS_ERROR;
432: END IF;
433: END IF;
434:
435: --

Line 450: X_return_status := FND_API.G_RET_STS_ERROR;

446: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
447: FND_MESSAGE.set_token('NAME' , 'TOKEN-EAM ACCT CLASS' , TRUE);
448: FND_MESSAGE.set_token('VALUE' , P_param_data.eam_acct_class_code);
449: FND_MSG_PUB.add;
450: X_return_status := FND_API.G_RET_STS_ERROR;
451: END IF;
452: END IF;
453:
454: --

Line 466: X_return_status := FND_API.G_RET_STS_ERROR;

462: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
463: FND_MESSAGE.set_token('NAME' , 'TOKEN-IPV EXPENDITURE TYPE' , TRUE);
464: FND_MESSAGE.set_token('VALUE' , P_param_data.ipv_expenditure_type);
465: FND_MSG_PUB.add;
466: X_return_status := FND_API.G_RET_STS_ERROR;
467: END IF;
468: END IF;
469:
470: IF ( P_param_data.erv_expenditure_type is not null ) THEN

Line 479: X_return_status := FND_API.G_RET_STS_ERROR;

475: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
476: FND_MESSAGE.set_token('NAME' , 'TOKEN-ERV EXPENDITURE TYPE' , TRUE);
477: FND_MESSAGE.set_token('VALUE' , P_param_data.erv_expenditure_type);
478: FND_MSG_PUB.add;
479: X_return_status := FND_API.G_RET_STS_ERROR;
480: END IF;
481: END IF;
482:
483: IF ( P_param_data.freight_expenditure_type is not null ) THEN

Line 492: X_return_status := FND_API.G_RET_STS_ERROR;

488: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
489: FND_MESSAGE.set_token('NAME' , 'TOKEN-FREIGHT EXPENDITURE TYPE' , TRUE);
490: FND_MESSAGE.set_token('VALUE' , P_param_data.freight_expenditure_type);
491: FND_MSG_PUB.add;
492: X_return_status := FND_API.G_RET_STS_ERROR;
493: END IF;
494: END IF;
495:
496: IF ( P_param_data.tax_expenditure_type is not null ) THEN

Line 505: X_return_status := FND_API.G_RET_STS_ERROR;

501: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
502: FND_MESSAGE.set_token('NAME' , 'TOKEN-TAX EXPENDITURE TYPE' , TRUE);
503: FND_MESSAGE.set_token('VALUE' , P_param_data.tax_expenditure_type);
504: FND_MSG_PUB.add;
505: X_return_status := FND_API.G_RET_STS_ERROR;
506: END IF;
507: END IF;
508:
509: IF ( P_param_data.misc_expenditure_type is not null ) THEN

Line 518: X_return_status := FND_API.G_RET_STS_ERROR;

514: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
515: FND_MESSAGE.set_token('NAME' , 'TOKEN-MISC EXPENDITURE TYPE' , TRUE);
516: FND_MESSAGE.set_token('VALUE' , P_param_data.misc_expenditure_type);
517: FND_MSG_PUB.add;
518: X_return_status := FND_API.G_RET_STS_ERROR;
519: END IF;
520: END IF;
521:
522: IF ( P_param_data.ppv_expenditure_type is not null ) THEN

Line 531: X_return_status := FND_API.G_RET_STS_ERROR;

527: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
528: FND_MESSAGE.set_token('NAME' , 'TOKEN-PPV EXPENDITURE TYPE' , TRUE);
529: FND_MESSAGE.set_token('VALUE' , P_param_data.ppv_expenditure_type);
530: FND_MSG_PUB.add;
531: X_return_status := FND_API.G_RET_STS_ERROR;
532: END IF;
533: END IF;
534:
535: IF ( P_param_data.dir_item_expenditure_type is not null ) THEN

Line 544: X_return_status := FND_API.G_RET_STS_ERROR;

540: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
541: FND_MESSAGE.set_token('NAME' , 'TOKEN-DIRITEM EXPENDITURE TYPE' , TRUE);
542: FND_MESSAGE.set_token('VALUE' , P_param_data.dir_item_expenditure_type);
543: FND_MSG_PUB.add;
544: X_return_status := FND_API.G_RET_STS_ERROR;
545: END IF;
546: END IF;
547:
548: --

Line 594: X_return_status := FND_API.G_RET_STS_ERROR;

590: FND_MSG_PUB.add_exc_msg
591: ( p_pkg_name => G_PKG_NAME
592: , p_procedure_name => 'VALIDATE_DATA'
593: , p_error_text => substr(FND_FLEX_DESCVAL.error_message, 1, 240 ));
594: X_return_status := FND_API.G_RET_STS_ERROR;
595:
596: END IF;
597:
598: EXCEPTION

Line 603: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

599: WHEN OTHERS THEN
600: FND_MSG_PUB.add_exc_msg
601: ( p_pkg_name => G_pkg_name
602: , p_procedure_name => 'VALIDATE_DATA' );
603: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
604:
605: END validate_data;
606:
607:

Line 638: IF NOT FND_API.compatible_api_call( l_api_version

634:
635: --
636: -- Check API incompatibility
637: --
638: IF NOT FND_API.compatible_api_call( l_api_version
639: , P_api_version
640: , l_api_name
641: , G_pkg_name )
642: THEN

Line 643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

639: , P_api_version
640: , l_api_name
641: , G_pkg_name )
642: THEN
643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
644: END IF;
645:
646: --
647: -- Initialize the message table if requested.

Line 649: IF FND_API.to_boolean( P_init_msg_list ) THEN

645:
646: --
647: -- Initialize the message table if requested.
648: --
649: IF FND_API.to_boolean( P_init_msg_list ) THEN
650: FND_MSG_PUB.initialize;
651: END IF;
652:
653: --

Line 656: X_return_status := FND_API.G_RET_STS_SUCCESS;

652:
653: --
654: -- Set API return status to success
655: --
656: X_return_status := FND_API.G_RET_STS_SUCCESS;
657:
658: --
659: -- Data Defaults
660: --

Line 665: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN

661: Default_Values( P_param_data => P_param_data
662: , X_param_data => l_param_data
663: , X_return_status => X_return_status );
664:
665: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
666: RAISE FND_API.G_EXC_ERROR;
667: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;

Line 666: RAISE FND_API.G_EXC_ERROR;

662: , X_param_data => l_param_data
663: , X_return_status => X_return_status );
664:
665: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
666: RAISE FND_API.G_EXC_ERROR;
667: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;
670:

Line 667: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN

663: , X_return_status => X_return_status );
664:
665: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
666: RAISE FND_API.G_EXC_ERROR;
667: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;
670:
671: --

Line 668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

664:
665: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
666: RAISE FND_API.G_EXC_ERROR;
667: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
668: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
669: END IF;
670:
671: --
672: -- Data Validation

Line 678: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN

674: Validate_Data( P_api_name => l_api_name
675: , P_param_data => l_param_data
676: , X_return_status => X_return_status );
677:
678: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
679: RAISE FND_API.G_EXC_ERROR;
680: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
682: END IF;

Line 679: RAISE FND_API.G_EXC_ERROR;

675: , P_param_data => l_param_data
676: , X_return_status => X_return_status );
677:
678: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
679: RAISE FND_API.G_EXC_ERROR;
680: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
682: END IF;
683:

Line 680: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN

676: , X_return_status => X_return_status );
677:
678: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
679: RAISE FND_API.G_EXC_ERROR;
680: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
682: END IF;
683:
684: --

Line 681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

677:
678: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
679: RAISE FND_API.G_EXC_ERROR;
680: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
682: END IF;
683:
684: --
685: -- Calling Table Handler for actual DML

Line 731: IF FND_API.to_boolean( p_commit ) THEN

727:
728: --
729: -- Stanard commit check
730: --
731: IF FND_API.to_boolean( p_commit ) THEN
732: commit work;
733: END IF;
734:
735: --

Line 743: WHEN FND_API.G_EXC_ERROR THEN

739: FND_MSG_PUB.count_and_get( p_count => X_msg_count
740: , p_data => X_msg_data );
741:
742: EXCEPTION
743: WHEN FND_API.G_EXC_ERROR THEN
744: ROLLBACK TO create_project_param;
745: X_Return_Status := FND_API.G_RET_STS_ERROR;
746: FND_MSG_PUB.count_and_get( p_count => X_msg_count
747: , p_data => X_msg_data );

Line 745: X_Return_Status := FND_API.G_RET_STS_ERROR;

741:
742: EXCEPTION
743: WHEN FND_API.G_EXC_ERROR THEN
744: ROLLBACK TO create_project_param;
745: X_Return_Status := FND_API.G_RET_STS_ERROR;
746: FND_MSG_PUB.count_and_get( p_count => X_msg_count
747: , p_data => X_msg_data );
748:
749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

745: X_Return_Status := FND_API.G_RET_STS_ERROR;
746: FND_MSG_PUB.count_and_get( p_count => X_msg_count
747: , p_data => X_msg_data );
748:
749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
750: ROLLBACK TO create_project_param;
751: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
752: FND_MSG_PUB.count_and_get( p_count => X_msg_count
753: , p_data => X_msg_data );

Line 751: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

747: , p_data => X_msg_data );
748:
749: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
750: ROLLBACK TO create_project_param;
751: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
752: FND_MSG_PUB.count_and_get( p_count => X_msg_count
753: , p_data => X_msg_data );
754:
755: WHEN OTHERS THEN

Line 757: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

753: , p_data => X_msg_data );
754:
755: WHEN OTHERS THEN
756: ROLLBACK TO create_project_param;
757: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
758: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
759: FND_MSG_PUB.add_exc_msg( p_pkg_name => G_pkg_name
760: , p_procedure_name => l_api_name);
761: END IF;

Line 792: IF NOT FND_API.compatible_api_call( l_api_version

788:
789: --
790: -- Check API incompatibility
791: --
792: IF NOT FND_API.compatible_api_call( l_api_version
793: , P_api_version
794: , l_api_name
795: , G_pkg_name )
796: THEN

Line 797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

793: , P_api_version
794: , l_api_name
795: , G_pkg_name )
796: THEN
797: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
798: END IF;
799:
800: --
801: -- Initialize the message table if requested.

Line 803: IF FND_API.to_boolean( P_init_msg_list ) THEN

799:
800: --
801: -- Initialize the message table if requested.
802: --
803: IF FND_API.to_boolean( P_init_msg_list ) THEN
804: FND_MSG_PUB.initialize;
805: END IF;
806:
807: --

Line 810: X_return_status := FND_API.G_RET_STS_SUCCESS;

806:
807: --
808: -- Set API return status to success
809: --
810: X_return_status := FND_API.G_RET_STS_SUCCESS;
811:
812: --
813: -- Loop through each record in the table and invoke the
814: -- single record API

Line 821: , P_init_msg_list => FND_API.G_FALSE

817: i := P_param_data.FIRST;
818: LOOP
819: Create_Project_Parameter
820: ( P_api_version => P_api_version
821: , P_init_msg_list => FND_API.G_FALSE
822: , P_commit => FND_API.G_FALSE
823: , X_return_status => X_return_status
824: , X_msg_count => X_msg_count
825: , X_msg_data => X_msg_data

Line 822: , P_commit => FND_API.G_FALSE

818: LOOP
819: Create_Project_Parameter
820: ( P_api_version => P_api_version
821: , P_init_msg_list => FND_API.G_FALSE
822: , P_commit => FND_API.G_FALSE
823: , X_return_status => X_return_status
824: , X_msg_count => X_msg_count
825: , X_msg_data => X_msg_data
826: , P_param_data => P_param_data(i) );

Line 835: IF FND_API.to_boolean( p_commit ) THEN

831:
832: --
833: -- Stanard commit check
834: --
835: IF FND_API.to_boolean( p_commit ) THEN
836: commit work;
837: END IF;
838:
839: --

Line 847: WHEN FND_API.G_EXC_ERROR THEN

843: FND_MSG_PUB.count_and_get( p_count => X_msg_count
844: , p_data => X_msg_data );
845:
846: EXCEPTION
847: WHEN FND_API.G_EXC_ERROR THEN
848: ROLLBACK TO create_project_param;
849: X_Return_Status := FND_API.G_RET_STS_ERROR;
850: FND_MSG_PUB.count_and_get( p_count => X_msg_count
851: , p_data => X_msg_data );

Line 849: X_Return_Status := FND_API.G_RET_STS_ERROR;

845:
846: EXCEPTION
847: WHEN FND_API.G_EXC_ERROR THEN
848: ROLLBACK TO create_project_param;
849: X_Return_Status := FND_API.G_RET_STS_ERROR;
850: FND_MSG_PUB.count_and_get( p_count => X_msg_count
851: , p_data => X_msg_data );
852:
853: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 853: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

849: X_Return_Status := FND_API.G_RET_STS_ERROR;
850: FND_MSG_PUB.count_and_get( p_count => X_msg_count
851: , p_data => X_msg_data );
852:
853: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
854: ROLLBACK TO create_project_param;
855: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
856: FND_MSG_PUB.count_and_get( p_count => X_msg_count
857: , p_data => X_msg_data );

Line 855: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

851: , p_data => X_msg_data );
852:
853: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
854: ROLLBACK TO create_project_param;
855: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
856: FND_MSG_PUB.count_and_get( p_count => X_msg_count
857: , p_data => X_msg_data );
858:
859: WHEN OTHERS THEN

Line 861: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

857: , p_data => X_msg_data );
858:
859: WHEN OTHERS THEN
860: ROLLBACK TO create_project_param;
861: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
862: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
863: FND_MSG_PUB.add_exc_msg( p_pkg_name => G_pkg_name
864: , p_procedure_name => l_api_name);
865: END IF;

Line 907: IF NOT FND_API.compatible_api_call( l_api_version

903:
904: --
905: -- Check API incompatibility
906: --
907: IF NOT FND_API.compatible_api_call( l_api_version
908: , P_api_version
909: , l_api_name
910: , G_pkg_name )
911: THEN

Line 912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

908: , P_api_version
909: , l_api_name
910: , G_pkg_name )
911: THEN
912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
913: END IF;
914:
915: --
916: -- Initialize the message table if requested.

Line 918: IF FND_API.to_boolean( P_init_msg_list ) THEN

914:
915: --
916: -- Initialize the message table if requested.
917: --
918: IF FND_API.to_boolean( P_init_msg_list ) THEN
919: FND_MSG_PUB.initialize;
920: END IF;
921:
922: --

Line 925: X_return_status := FND_API.G_RET_STS_SUCCESS;

921:
922: --
923: -- Set API return status to success
924: --
925: X_return_status := FND_API.G_RET_STS_SUCCESS;
926:
927: --
928: -- Make sure planning group is valid
929: --

Line 937: RAISE FND_API.G_EXC_ERROR;

933: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
934: FND_MESSAGE.set_token('NAME' , 'TOKEN-PLANNING GROUP' , TRUE);
935: FND_MESSAGE.set_token('VALUE' , P_planning_group);
936: FND_MSG_PUB.add;
937: RAISE FND_API.G_EXC_ERROR;
938: END IF;
939: END IF;
940:
941: PJM_PROJECT_PARAMS_PKG.update_planning_group

Line 948: IF FND_API.to_boolean( p_commit ) THEN

944:
945: --
946: -- Stanard commit check
947: --
948: IF FND_API.to_boolean( p_commit ) THEN
949: commit work;
950: END IF;
951:
952: --

Line 960: WHEN FND_API.G_EXC_ERROR THEN

956: FND_MSG_PUB.count_and_get( p_count => X_msg_count
957: , p_data => X_msg_data );
958:
959: EXCEPTION
960: WHEN FND_API.G_EXC_ERROR THEN
961: ROLLBACK TO update_planning_group;
962: X_Return_Status := FND_API.G_RET_STS_ERROR;
963: FND_MSG_PUB.count_and_get( p_count => X_msg_count
964: , p_data => X_msg_data );

Line 962: X_Return_Status := FND_API.G_RET_STS_ERROR;

958:
959: EXCEPTION
960: WHEN FND_API.G_EXC_ERROR THEN
961: ROLLBACK TO update_planning_group;
962: X_Return_Status := FND_API.G_RET_STS_ERROR;
963: FND_MSG_PUB.count_and_get( p_count => X_msg_count
964: , p_data => X_msg_data );
965:
966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

Line 966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

962: X_Return_Status := FND_API.G_RET_STS_ERROR;
963: FND_MSG_PUB.count_and_get( p_count => X_msg_count
964: , p_data => X_msg_data );
965:
966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
967: ROLLBACK TO update_planning_group;
968: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
969: FND_MSG_PUB.count_and_get( p_count => X_msg_count
970: , p_data => X_msg_data );

Line 968: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

964: , p_data => X_msg_data );
965:
966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
967: ROLLBACK TO update_planning_group;
968: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
969: FND_MSG_PUB.count_and_get( p_count => X_msg_count
970: , p_data => X_msg_data );
971:
972: WHEN OTHERS THEN

Line 974: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

970: , p_data => X_msg_data );
971:
972: WHEN OTHERS THEN
973: ROLLBACK TO update_planning_group;
974: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
975: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
976: FND_MSG_PUB.add_exc_msg( p_pkg_name => G_pkg_name
977: , p_procedure_name => l_api_name);
978: END IF;