DBA Data[Home] [Help]

APPS.PA_PROJECT_SUBTEAMS_PUB dependencies on PA_PROJECT_SUBTEAMS_PUB

Line 1: PACKAGE BODY pa_project_subteams_pub AS

1: PACKAGE BODY pa_project_subteams_pub AS
2: --$Header: PARTSTPB.pls 120.1 2005/09/28 04:53:18 sunkalya noship $
3:
4: PROCEDURE Create_Subteam
5: (

Line 53: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PUB.Create_Subteam');

49: l_error_message_code varchar2(30);
50: BEGIN
51:
52: -- Initialize the Error Stack
53: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PUB.Create_Subteam');
54:
55: -- Initialize the error flag
56: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;
57:

Line 56: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;

52: -- Initialize the Error Stack
53: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PUB.Create_Subteam');
54:
55: -- Initialize the error flag
56: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;
57:
58: -- Initialize the return status to success
59: x_return_status := FND_API.G_RET_STS_SUCCESS;
60:

Line 83: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;

79: ,x_error_message_code => l_error_message_code);
80: if(x_return_status = FND_API.G_RET_STS_ERROR) then
81: PA_UTILS.Add_Message( p_app_short_name => 'PA'
82: ,p_msg_name => l_error_message_code);
83: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
84: return;
85: end if;
86: /****
87: l_project_id := PA_UTILS.GetProjId (x_project_num => p_project_number);

Line 159: IF PA_PROJECT_SUBTEAMS_PUB.g_error_exists = FND_API.G_TRUE THEN

155: PA_DEBUG.Reset_Err_Stack;
156:
157: -- If g_error_exists is TRUE then set the x_return_status to 'E'
158:
159: IF PA_PROJECT_SUBTEAMS_PUB.g_error_exists = FND_API.G_TRUE THEN
160: x_return_status := FND_API.G_RET_STS_ERROR;
161: END IF;
162:
163:

Line 172: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SUBTEAMS_PUB.Create_Subteam'

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

Line 238: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PUB.Update_Subteam');

234: l_error_message_code varchar2(30);
235: BEGIN
236:
237: -- Initialize the Error Stack
238: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PUB.Update_Subteam');
239:
240: -- Initialize the error flag
241: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;
242:

Line 241: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;

237: -- Initialize the Error Stack
238: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PUB.Update_Subteam');
239:
240: -- Initialize the error flag
241: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;
242:
243: -- Issue API savepoint if the transaction is to be committed
244: IF p_commit = FND_API.G_TRUE THEN
245: SAVEPOINT SBT_PUB_UPDATE_SUBTEAM;

Line 260: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;

256:
257: IF check_record_version%NOTFOUND THEN
258: PA_UTILS.Add_Message( p_app_short_name => 'PA'
259: ,p_msg_name => 'PA_XC_RECORD_CHANGED');
260: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
261: ELSE
262: -- Do all Value to ID conversions and validations
263: IF (p_object_id IS NULL OR p_object_id = FND_API.G_MISS_NUM)
264: AND (p_object_name IS NOT NULL AND p_object_name <> FND_API.G_MISS_CHAR) THEN

Line 273: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;

269: ,x_error_message_code => l_error_message_code);
270: if(x_return_status = FND_API.G_RET_STS_ERROR) then
271: PA_UTILS.Add_Message( p_app_short_name => 'PA'
272: ,p_msg_name =>l_error_message_code );
273: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
274: return;
275: end if;
276: --l_project_id := PA_UTILS.GetProjId (x_project_num => p_project_number);
277: ELSE

Line 345: IF PA_PROJECT_SUBTEAMS_PUB.g_error_exists = FND_API.G_TRUE THEN

341: PA_DEBUG.Reset_Err_Stack;
342:
343: -- If g_error_exists is TRUE then set the x_return_status to 'E'
344:
345: IF PA_PROJECT_SUBTEAMS_PUB.g_error_exists = FND_API.G_TRUE THEN
346: x_return_status := FND_API.G_RET_STS_ERROR;
347: /***
348: SELECT record_version_number
349: into x_record_version_number

Line 366: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SUBTEAMS_PUB.Update_Subteam'

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

Line 431: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PUB.Delete_Subteam');

427:
428: BEGIN
429:
430: -- Initialize the Error Stack
431: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PUB.Delete_Subteam');
432:
433: -- Initialize the error flag
434: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;
435:

Line 434: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;

430: -- Initialize the Error Stack
431: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PUB.Delete_Subteam');
432:
433: -- Initialize the error flag
434: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;
435:
436: -- Issue API savepoint if the transaction is to be committed
437: IF p_commit = FND_API.G_TRUE THEN
438: SAVEPOINT SBT_PUB_DELETE_SUBTEAM;

Line 454: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;

450: IF check_subteam%NOTFOUND THEN
451:
452: PA_UTILS.Add_Message( p_app_short_name => 'PA'
453: ,p_msg_name => 'PA_XC_RECORD_CHANGED');
454: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
455:
456: ELSE
457:
458: -- Call the private API

Line 498: IF PA_PROJECT_SUBTEAMS_PUB.g_error_exists = FND_API.G_TRUE THEN

494: PA_DEBUG.Reset_Err_Stack;
495:
496: -- If g_error_exists is TRUE then set the x_return_status to 'E'
497:
498: IF PA_PROJECT_SUBTEAMS_PUB.g_error_exists = FND_API.G_TRUE THEN
499:
500: x_return_status := FND_API.G_RET_STS_ERROR;
501:
502: END IF;

Line 513: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECT_SUBTEAMS_PUB.Delete_Subteam'

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

Line 564: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PUB.Delete_Subteam_By_Obj');

560:
561: BEGIN
562:
563: -- Initialize the Error Stack
564: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PUB.Delete_Subteam_By_Obj');
565:
566: -- Initialize the error flag
567: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;
568:

Line 567: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;

563: -- Initialize the Error Stack
564: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PUB.Delete_Subteam_By_Obj');
565:
566: -- Initialize the error flag
567: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;
568:
569: -- Issue API savepoint if the transaction is to be committed
570: IF p_commit = FND_API.G_TRUE THEN
571: SAVEPOINT SBT_PUB_DELETE_SUBTEAM_BY_OBJ;

Line 589: --PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;

585: --IF check_subteam%NOTFOUND THEN
586:
587: --PA_UTILS.Add_Message( p_app_short_name => 'PA'
588: -- ,p_msg_name => 'PA_XC_RECORD_CHANGED');
589: --PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
590:
591: --ELSE
592:
593: -- Call the private API

Line 632: IF PA_PROJECT_SUBTEAMS_PUB.g_error_exists = FND_API.G_TRUE THEN

628: PA_DEBUG.Reset_Err_Stack;
629:
630: -- If g_error_exists is TRUE then set the x_return_status to 'E'
631:
632: IF PA_PROJECT_SUBTEAMS_PUB.g_error_exists = FND_API.G_TRUE THEN
633:
634: x_return_status := FND_API.G_RET_STS_ERROR;
635:
636: END IF;

Line 647: FND_MSG_PUB.add_exc_msg( p_pkg_name => 'PA_PROJECT_SUBTEAMS_PUB.Delete_Subteam_By_Obj'

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

Line 657: END pa_project_subteams_pub;

653: END Delete_Subteam_By_Obj;
654:
655: --
656: --
657: END pa_project_subteams_pub;
658: --