[Home] [Help]
59: x_return_status := FND_API.G_RET_STS_SUCCESS;
60:
61: --Clear the global PL/SQL message table
62: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
63: FND_MSG_PUB.initialize;
64: END IF;
65:
66: -- Issue API savepoint if the transaction is to be committed
67: IF p_commit = FND_API.G_TRUE THEN
141: -- IF the number of messaages is 1 then fetch the message code from the stack
142: -- and return its text
143: --
144:
145: x_msg_count := FND_MSG_PUB.Count_Msg;
146: IF x_msg_count = 1 THEN
147: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
148: ,p_msg_index => 1
149: ,p_data => x_msg_data
168: ROLLBACK TO SBT_PUB_CREATE_SUBTEAM;
169: END IF;
170:
171: -- Set the excetption Message and the stack
172: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SUBTEAMS_PUB.Create_Subteam'
173: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
174: --
175: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
176: RAISE; -- This is optional depending on the needs
246: END IF;
247:
248: --Clear the global PL/SQL message table
249: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
250: FND_MSG_PUB.initialize;
251: END IF;
252:
253: OPEN check_record_version;
254:
326: --
327: -- IF the number of messaages is 1 then fetch the message code from the
328: -- stack and return its text
329: --
330: x_msg_count := FND_MSG_PUB.Count_Msg;
331: IF x_msg_count = 1 THEN
332: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
333: ,p_msg_index => 1
334: ,p_data => x_msg_data
362: ROLLBACK TO SBT_PUB_UPDATE_SUBTEAM;
363: END IF;
364:
365: -- Set the exception Message and the stack
366: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SUBTEAMS_PUB.Update_Subteam'
367: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
368: --
369: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
370: RAISE; -- This is optional depending on the needs
439: END IF;
440:
441: --Clear the global PL/SQL message table
442: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
443: FND_MSG_PUB.initialize;
444: END IF;
445:
446: OPEN check_subteam;
447:
480: CLOSE check_subteam;
481: --
482: -- IF the number of messages is 1 then fetch the message code from the stack and return its text
483: --
484: x_msg_count := FND_MSG_PUB.Count_Msg;
485: IF x_msg_count = 1 THEN
486: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
487: ,p_msg_index => 1
488: ,p_data => x_msg_data
509: IF p_commit = FND_API.G_TRUE THEN
510: ROLLBACK TO SBT_PUB_DELETE_SUBTEAM;
511: END IF;
512: -- Set the excetption Message and the stack
513: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECT_SUBTEAMS_PUB.Delete_Subteam'
514: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
515: --
516: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
517: RAISE; -- This is optional depending on the needs
572: END IF;
573:
574: --Clear the global PL/SQL message table
575: IF FND_API.TO_BOOLEAN( p_init_msg_list ) THEN
576: FND_MSG_PUB.initialize;
577: END IF;
578:
579: OPEN check_subteam;
580:
614:
615: --
616: -- IF the number of messages is 1 then fetch the message code from the stack and return its text
617: --
618: x_msg_count := FND_MSG_PUB.Count_Msg;
619: IF x_msg_count = 1 THEN
620: pa_interface_utils_pub.get_messages ( p_encoded => FND_API.G_TRUE
621: ,p_msg_index => 1
622: ,p_data => x_msg_data
643: IF p_commit = FND_API.G_TRUE THEN
644: ROLLBACK TO SBT_PUB_DELETE_SUBTEAM_BY_OBJ;
645: END IF;
646: -- Set the excetption Message and the stack
647: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECT_SUBTEAMS_PUB.Delete_Subteam_By_Obj'
648: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
649: --
650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
651: RAISE; -- This is optional depending on the needs