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 344: X_return_status := FND_API.G_RET_STS_SUCCESS;

340: etrec et%rowtype;
341:
342: BEGIN
343:
344: X_return_status := FND_API.G_RET_STS_SUCCESS;
345:
346: --
347: -- Make sure record does not exist
348: --

Line 356: X_return_status := FND_API.G_RET_STS_ERROR;

352: CLOSE pp;
353: IF ( pprec.project_id is not null ) THEN
354: FND_MESSAGE.set_name('PJM' , 'GEN-PARAM RECORD EXISTS');
355: FND_MSG_PUB.add;
356: X_return_status := FND_API.G_RET_STS_ERROR;
357: return;
358: END IF;
359: END IF;
360:

Line 368: X_return_status := FND_API.G_RET_STS_ERROR;

364: IF ( P_param_data.start_date_active > G_proj_comp_date ) THEN
365: FND_MESSAGE.set_name('PJM' , 'FORM-PARAM START DATE INVALID');
366: FND_MESSAGE.set_token('DATE' , FND_DATE.date_to_displaydate(G_proj_comp_date));
367: FND_MSG_PUB.add;
368: X_return_status := FND_API.G_RET_STS_ERROR;
369: END IF;
370:
371: IF ( P_param_data.end_date_active < G_proj_start_date ) THEN
372: FND_MESSAGE.set_name('PJM' , 'FORM-PARAM END DATE INVALID');

Line 375: X_return_status := FND_API.G_RET_STS_ERROR;

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

Line 381: X_return_status := FND_API.G_RET_STS_ERROR;

377:
378: IF ( P_param_data.start_date_active > P_param_data.end_date_active ) THEN
379: FND_MESSAGE.set_name('PJM' , 'FORM-INVALID EFFDATE PAIR');
380: FND_MSG_PUB.add;
381: X_return_status := FND_API.G_RET_STS_ERROR;
382: END IF;
383:
384: --
385: -- Make sure the control level is not task if project is seiban

Line 390: X_return_status := FND_API.G_RET_STS_ERROR;

386: --
387: IF ( G_seiban_flag = 1 AND G_proj_ctrl_level = 2 ) THEN
388: FND_MESSAGE.set_name('PJM' , 'GEN-TASK CONTROL NO SEIBAN');
389: FND_MSG_PUB.add;
390: X_return_status := FND_API.G_RET_STS_ERROR;
391: END IF;
392:
393: --
394: -- Make sure cost group is valid for the organization

Line 405: X_return_status := FND_API.G_RET_STS_ERROR;

401: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
402: FND_MESSAGE.set_token('NAME' , 'TOKEN-COST GROUP' , TRUE);
403: FND_MESSAGE.set_token('VALUE' , P_param_data.cost_group_id);
404: FND_MSG_PUB.add;
405: X_return_status := FND_API.G_RET_STS_ERROR;
406: END IF;
407: END IF;
408:
409: --

Line 424: X_return_status := FND_API.G_RET_STS_ERROR;

420: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
421: FND_MESSAGE.set_token('NAME' , 'TOKEN-WIP ACCT CLASS' , TRUE);
422: FND_MESSAGE.set_token('VALUE' , P_param_data.wip_acct_class_code);
423: FND_MSG_PUB.add;
424: X_return_status := FND_API.G_RET_STS_ERROR;
425: END IF;
426: END IF;
427:
428: --

Line 443: X_return_status := FND_API.G_RET_STS_ERROR;

439: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
440: FND_MESSAGE.set_token('NAME' , 'TOKEN-EAM ACCT CLASS' , TRUE);
441: FND_MESSAGE.set_token('VALUE' , P_param_data.eam_acct_class_code);
442: FND_MSG_PUB.add;
443: X_return_status := FND_API.G_RET_STS_ERROR;
444: END IF;
445: END IF;
446:
447: --

Line 459: X_return_status := FND_API.G_RET_STS_ERROR;

455: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
456: FND_MESSAGE.set_token('NAME' , 'TOKEN-IPV EXPENDITURE TYPE' , TRUE);
457: FND_MESSAGE.set_token('VALUE' , P_param_data.ipv_expenditure_type);
458: FND_MSG_PUB.add;
459: X_return_status := FND_API.G_RET_STS_ERROR;
460: END IF;
461: END IF;
462:
463: IF ( P_param_data.erv_expenditure_type is not null ) THEN

Line 472: X_return_status := FND_API.G_RET_STS_ERROR;

468: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
469: FND_MESSAGE.set_token('NAME' , 'TOKEN-ERV EXPENDITURE TYPE' , TRUE);
470: FND_MESSAGE.set_token('VALUE' , P_param_data.erv_expenditure_type);
471: FND_MSG_PUB.add;
472: X_return_status := FND_API.G_RET_STS_ERROR;
473: END IF;
474: END IF;
475:
476: IF ( P_param_data.freight_expenditure_type is not null ) THEN

Line 485: X_return_status := FND_API.G_RET_STS_ERROR;

481: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
482: FND_MESSAGE.set_token('NAME' , 'TOKEN-FREIGHT EXPENDITURE TYPE' , TRUE);
483: FND_MESSAGE.set_token('VALUE' , P_param_data.freight_expenditure_type);
484: FND_MSG_PUB.add;
485: X_return_status := FND_API.G_RET_STS_ERROR;
486: END IF;
487: END IF;
488:
489: IF ( P_param_data.tax_expenditure_type is not null ) THEN

Line 498: X_return_status := FND_API.G_RET_STS_ERROR;

494: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
495: FND_MESSAGE.set_token('NAME' , 'TOKEN-TAX EXPENDITURE TYPE' , TRUE);
496: FND_MESSAGE.set_token('VALUE' , P_param_data.tax_expenditure_type);
497: FND_MSG_PUB.add;
498: X_return_status := FND_API.G_RET_STS_ERROR;
499: END IF;
500: END IF;
501:
502: IF ( P_param_data.misc_expenditure_type is not null ) THEN

Line 511: X_return_status := FND_API.G_RET_STS_ERROR;

507: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
508: FND_MESSAGE.set_token('NAME' , 'TOKEN-MISC EXPENDITURE TYPE' , TRUE);
509: FND_MESSAGE.set_token('VALUE' , P_param_data.misc_expenditure_type);
510: FND_MSG_PUB.add;
511: X_return_status := FND_API.G_RET_STS_ERROR;
512: END IF;
513: END IF;
514:
515: IF ( P_param_data.ppv_expenditure_type is not null ) THEN

Line 524: X_return_status := FND_API.G_RET_STS_ERROR;

520: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
521: FND_MESSAGE.set_token('NAME' , 'TOKEN-PPV EXPENDITURE TYPE' , TRUE);
522: FND_MESSAGE.set_token('VALUE' , P_param_data.ppv_expenditure_type);
523: FND_MSG_PUB.add;
524: X_return_status := FND_API.G_RET_STS_ERROR;
525: END IF;
526: END IF;
527:
528: IF ( P_param_data.dir_item_expenditure_type is not null ) THEN

Line 537: X_return_status := FND_API.G_RET_STS_ERROR;

533: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
534: FND_MESSAGE.set_token('NAME' , 'TOKEN-DIRITEM EXPENDITURE TYPE' , TRUE);
535: FND_MESSAGE.set_token('VALUE' , P_param_data.dir_item_expenditure_type);
536: FND_MSG_PUB.add;
537: X_return_status := FND_API.G_RET_STS_ERROR;
538: END IF;
539: END IF;
540:
541: --

Line 600: X_return_status := FND_API.G_RET_STS_ERROR;

596: FND_MSG_PUB.add_exc_msg
597: ( p_pkg_name => G_PKG_NAME
598: , p_procedure_name => 'VALIDATE_DATA'
599: , p_error_text => FND_FLEX_DESCVAL.error_message );
600: X_return_status := FND_API.G_RET_STS_ERROR;
601:
602: END IF;
603:
604: EXCEPTION

Line 609: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

605: WHEN OTHERS THEN
606: FND_MSG_PUB.add_exc_msg
607: ( p_pkg_name => G_pkg_name
608: , p_procedure_name => 'VALIDATE_DATA' );
609: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
610:
611: END validate_data;
612:
613:

Line 644: IF NOT FND_API.compatible_api_call( l_api_version

640:
641: --
642: -- Check API incompatibility
643: --
644: IF NOT FND_API.compatible_api_call( l_api_version
645: , P_api_version
646: , l_api_name
647: , G_pkg_name )
648: THEN

Line 649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

645: , P_api_version
646: , l_api_name
647: , G_pkg_name )
648: THEN
649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
650: END IF;
651:
652: --
653: -- Initialize the message table if requested.

Line 655: IF FND_API.to_boolean( P_init_msg_list ) THEN

651:
652: --
653: -- Initialize the message table if requested.
654: --
655: IF FND_API.to_boolean( P_init_msg_list ) THEN
656: FND_MSG_PUB.initialize;
657: END IF;
658:
659: --

Line 662: X_return_status := FND_API.G_RET_STS_SUCCESS;

658:
659: --
660: -- Set API return status to success
661: --
662: X_return_status := FND_API.G_RET_STS_SUCCESS;
663:
664: --
665: -- Data Defaults
666: --

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

667: Default_Values( P_param_data => P_param_data
668: , X_param_data => l_param_data
669: , X_return_status => X_return_status );
670:
671: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
672: RAISE FND_API.G_EXC_ERROR;
673: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: END IF;

Line 672: RAISE FND_API.G_EXC_ERROR;

668: , X_param_data => l_param_data
669: , X_return_status => X_return_status );
670:
671: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
672: RAISE FND_API.G_EXC_ERROR;
673: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: END IF;
676:

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

669: , X_return_status => X_return_status );
670:
671: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
672: RAISE FND_API.G_EXC_ERROR;
673: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: END IF;
676:
677: --

Line 674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

670:
671: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
672: RAISE FND_API.G_EXC_ERROR;
673: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
675: END IF;
676:
677: --
678: -- Data Validation

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

680: Validate_Data( P_api_name => l_api_name
681: , P_param_data => l_param_data
682: , X_return_status => X_return_status );
683:
684: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
685: RAISE FND_API.G_EXC_ERROR;
686: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
688: END IF;

Line 685: RAISE FND_API.G_EXC_ERROR;

681: , P_param_data => l_param_data
682: , X_return_status => X_return_status );
683:
684: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
685: RAISE FND_API.G_EXC_ERROR;
686: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
688: END IF;
689:

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

682: , X_return_status => X_return_status );
683:
684: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
685: RAISE FND_API.G_EXC_ERROR;
686: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
688: END IF;
689:
690: --

Line 687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

683:
684: IF ( X_return_status = FND_API.G_RET_STS_ERROR ) THEN
685: RAISE FND_API.G_EXC_ERROR;
686: ELSIF ( X_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
687: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
688: END IF;
689:
690: --
691: -- Calling Table Handler for actual DML

Line 737: IF FND_API.to_boolean( p_commit ) THEN

733:
734: --
735: -- Stanard commit check
736: --
737: IF FND_API.to_boolean( p_commit ) THEN
738: commit work;
739: END IF;
740:
741: --

Line 749: WHEN FND_API.G_EXC_ERROR THEN

745: FND_MSG_PUB.count_and_get( p_count => X_msg_count
746: , p_data => X_msg_data );
747:
748: EXCEPTION
749: WHEN FND_API.G_EXC_ERROR THEN
750: ROLLBACK TO create_project_param;
751: X_Return_Status := FND_API.G_RET_STS_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_ERROR;

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

Line 755: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

751: X_Return_Status := FND_API.G_RET_STS_ERROR;
752: FND_MSG_PUB.count_and_get( p_count => X_msg_count
753: , p_data => X_msg_data );
754:
755: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
756: ROLLBACK TO create_project_param;
757: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
758: FND_MSG_PUB.count_and_get( p_count => X_msg_count
759: , p_data => X_msg_data );

Line 757: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

753: , p_data => X_msg_data );
754:
755: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
756: ROLLBACK TO create_project_param;
757: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
758: FND_MSG_PUB.count_and_get( p_count => X_msg_count
759: , p_data => X_msg_data );
760:
761: WHEN OTHERS THEN

Line 763: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

759: , p_data => X_msg_data );
760:
761: WHEN OTHERS THEN
762: ROLLBACK TO create_project_param;
763: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
764: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
765: FND_MSG_PUB.add_exc_msg( p_pkg_name => G_pkg_name
766: , p_procedure_name => l_api_name);
767: END IF;

Line 798: IF NOT FND_API.compatible_api_call( l_api_version

794:
795: --
796: -- Check API incompatibility
797: --
798: IF NOT FND_API.compatible_api_call( l_api_version
799: , P_api_version
800: , l_api_name
801: , G_pkg_name )
802: THEN

Line 803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

799: , P_api_version
800: , l_api_name
801: , G_pkg_name )
802: THEN
803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
804: END IF;
805:
806: --
807: -- Initialize the message table if requested.

Line 809: IF FND_API.to_boolean( P_init_msg_list ) THEN

805:
806: --
807: -- Initialize the message table if requested.
808: --
809: IF FND_API.to_boolean( P_init_msg_list ) THEN
810: FND_MSG_PUB.initialize;
811: END IF;
812:
813: --

Line 816: X_return_status := FND_API.G_RET_STS_SUCCESS;

812:
813: --
814: -- Set API return status to success
815: --
816: X_return_status := FND_API.G_RET_STS_SUCCESS;
817:
818: --
819: -- Loop through each record in the table and invoke the
820: -- single record API

Line 827: , P_init_msg_list => FND_API.G_FALSE

823: i := P_param_data.FIRST;
824: LOOP
825: Create_Project_Parameter
826: ( P_api_version => P_api_version
827: , P_init_msg_list => FND_API.G_FALSE
828: , P_commit => FND_API.G_FALSE
829: , X_return_status => X_return_status
830: , X_msg_count => X_msg_count
831: , X_msg_data => X_msg_data

Line 828: , P_commit => FND_API.G_FALSE

824: LOOP
825: Create_Project_Parameter
826: ( P_api_version => P_api_version
827: , P_init_msg_list => FND_API.G_FALSE
828: , P_commit => FND_API.G_FALSE
829: , X_return_status => X_return_status
830: , X_msg_count => X_msg_count
831: , X_msg_data => X_msg_data
832: , P_param_data => P_param_data(i) );

Line 841: IF FND_API.to_boolean( p_commit ) THEN

837:
838: --
839: -- Stanard commit check
840: --
841: IF FND_API.to_boolean( p_commit ) THEN
842: commit work;
843: END IF;
844:
845: --

Line 853: WHEN FND_API.G_EXC_ERROR THEN

849: FND_MSG_PUB.count_and_get( p_count => X_msg_count
850: , p_data => X_msg_data );
851:
852: EXCEPTION
853: WHEN FND_API.G_EXC_ERROR THEN
854: ROLLBACK TO create_project_param;
855: X_Return_Status := FND_API.G_RET_STS_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_ERROR;

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

Line 859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

855: X_Return_Status := FND_API.G_RET_STS_ERROR;
856: FND_MSG_PUB.count_and_get( p_count => X_msg_count
857: , p_data => X_msg_data );
858:
859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
860: ROLLBACK TO create_project_param;
861: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
862: FND_MSG_PUB.count_and_get( p_count => X_msg_count
863: , p_data => X_msg_data );

Line 861: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

857: , p_data => X_msg_data );
858:
859: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
860: ROLLBACK TO create_project_param;
861: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
862: FND_MSG_PUB.count_and_get( p_count => X_msg_count
863: , p_data => X_msg_data );
864:
865: WHEN OTHERS THEN

Line 867: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

863: , p_data => X_msg_data );
864:
865: WHEN OTHERS THEN
866: ROLLBACK TO create_project_param;
867: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
868: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
869: FND_MSG_PUB.add_exc_msg( p_pkg_name => G_pkg_name
870: , p_procedure_name => l_api_name);
871: END IF;

Line 913: IF NOT FND_API.compatible_api_call( l_api_version

909:
910: --
911: -- Check API incompatibility
912: --
913: IF NOT FND_API.compatible_api_call( l_api_version
914: , P_api_version
915: , l_api_name
916: , G_pkg_name )
917: THEN

Line 918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

914: , P_api_version
915: , l_api_name
916: , G_pkg_name )
917: THEN
918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
919: END IF;
920:
921: --
922: -- Initialize the message table if requested.

Line 924: IF FND_API.to_boolean( P_init_msg_list ) THEN

920:
921: --
922: -- Initialize the message table if requested.
923: --
924: IF FND_API.to_boolean( P_init_msg_list ) THEN
925: FND_MSG_PUB.initialize;
926: END IF;
927:
928: --

Line 931: X_return_status := FND_API.G_RET_STS_SUCCESS;

927:
928: --
929: -- Set API return status to success
930: --
931: X_return_status := FND_API.G_RET_STS_SUCCESS;
932:
933: --
934: -- Make sure planning group is valid
935: --

Line 943: RAISE FND_API.G_EXC_ERROR;

939: FND_MESSAGE.set_name('PJM' , 'GEN-INVALID VALUE');
940: FND_MESSAGE.set_token('NAME' , 'TOKEN-PLANNING GROUP' , TRUE);
941: FND_MESSAGE.set_token('VALUE' , P_planning_group);
942: FND_MSG_PUB.add;
943: RAISE FND_API.G_EXC_ERROR;
944: END IF;
945: END IF;
946:
947: PJM_PROJECT_PARAMS_PKG.update_planning_group

Line 954: IF FND_API.to_boolean( p_commit ) THEN

950:
951: --
952: -- Stanard commit check
953: --
954: IF FND_API.to_boolean( p_commit ) THEN
955: commit work;
956: END IF;
957:
958: --

Line 966: WHEN FND_API.G_EXC_ERROR THEN

962: FND_MSG_PUB.count_and_get( p_count => X_msg_count
963: , p_data => X_msg_data );
964:
965: EXCEPTION
966: WHEN FND_API.G_EXC_ERROR THEN
967: ROLLBACK TO update_planning_group;
968: X_Return_Status := FND_API.G_RET_STS_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_ERROR;

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

Line 972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

968: X_Return_Status := FND_API.G_RET_STS_ERROR;
969: FND_MSG_PUB.count_and_get( p_count => X_msg_count
970: , p_data => X_msg_data );
971:
972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
973: ROLLBACK TO update_planning_group;
974: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
975: FND_MSG_PUB.count_and_get( p_count => X_msg_count
976: , p_data => X_msg_data );

Line 974: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

970: , p_data => X_msg_data );
971:
972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
973: ROLLBACK TO update_planning_group;
974: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
975: FND_MSG_PUB.count_and_get( p_count => X_msg_count
976: , p_data => X_msg_data );
977:
978: WHEN OTHERS THEN

Line 980: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;

976: , p_data => X_msg_data );
977:
978: WHEN OTHERS THEN
979: ROLLBACK TO update_planning_group;
980: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
981: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
982: FND_MSG_PUB.add_exc_msg( p_pkg_name => G_pkg_name
983: , p_procedure_name => l_api_name);
984: END IF;