DBA Data[Home] [Help]

APPS.PA_PROJECT_SUBTEAM_PARTIES_PVT dependencies on PA_PROJECT_SUBTEAM_PARTIES_PVT

Line 1: PACKAGE BODY pa_project_subteam_parties_pvt AS

1: PACKAGE BODY pa_project_subteam_parties_pvt AS
2: --$Header: PARTSPVB.pls 120.1 2005/08/19 17:01:44 mwasowic noship $
3:
4: PROCEDURE Create_Subteam_Party
5: (

Line 53: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_FALSE;

49: -- Initialize the Error Stack
50: PA_DEBUG.init_err_stack('PA_SUBTEAM_PARTIES_PVT.Create_Subteam_Party');
51:
52: -- Initialize the error flag
53: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_FALSE;
54:
55: -- Issue API savepoint if the transaction is to be committed
56: IF p_commit = FND_API.G_TRUE THEN
57: SAVEPOINT STP_PVT_CREATE_STP;

Line 70: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;

66: IF p_project_subteam_id IS NULL
67: OR p_project_subteam_id = FND_API.G_MISS_NUM THEN
68: PA_UTILS.Add_Message( p_app_short_name => 'PA'
69: ,p_msg_name => 'PA_SBP_SBT_INV');
70: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;
71: --ELSE
72: -- SELECT COUNT(*)
73: -- INTO l_name_count
74: -- FROM pa_project_subteams

Line 80: -- PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;

76:
77: -- IF l_name_count < 1 then
78: -- PA_UTILS.Add_Message( p_app_short_name => 'PA'
79: -- ,p_msg_name => 'PA_SBP_ID_INV');
80: -- PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;
81: -- END IF;
82: END IF;
83:
84: --

Line 93: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;

89: (p_object_type <> 'PA_PROJECT_ASSIGNMENTS' and p_object_type <> 'PA_PROJECT_PARTIES') THEN
90:
91: PA_UTILS.Add_Message( p_app_short_name => 'PA'
92: ,p_msg_name => 'PA_SBP_OBJTYPE_INV');
93: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;
94: ELSE
95: --
96: -- Check that mandatory object_id is passed in
97: --

Line 102: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;

98: IF p_object_id IS NULL OR
99: p_object_id = FND_API.G_MISS_NUM THEN
100: PA_UTILS.Add_Message( p_app_short_name => 'PA'
101: ,p_msg_name => 'PA_SBP_OBJID_INV');
102: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;
103: --ELSE
104: --if p_object_type = 'PA_PROJECT_ASSIGNMENTS' then
105: --select count(*)
106: --into l_name_count

Line 113: -- PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;

109:
110: --if l_name_count < 1 then
111: -- PA_UTILS.Add_Message( p_app_short_name => 'PA'
112: -- ,p_msg_name => 'PA_SBP_OBJID_INV');
113: -- PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;
114: --end if;
115: --elsif p_object_type = 'PA_PROJECT_PARTIES' then
116: --select count(*)
117: --into l_name_count

Line 124: -- PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;

120:
121: --if l_name_count < 1 then
122: -- PA_UTILS.Add_Message( p_app_short_name => 'PA'
123: -- ,p_msg_name => 'PA_SBP_OBJID_INV');
124: -- PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;
125: --end if;
126: --end if;
127:
128: END IF;

Line 133: if PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE

129: END IF;
130:
131: -- Check that for a given object_type and object_id,
132: -- there is only one primary subteam
133: if PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE
134: and p_primary_subteam_flag = 'Y' then
135:
136: OPEN check_primary_flag;
137: FETCH check_primary_flag INTO l_row_id;

Line 142: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;

138:
139: IF check_primary_flag%found THEN
140: PA_UTILS.Add_Message( p_app_short_name => 'PA'
141: ,p_msg_name => 'PA_SBP_PRIMARY_FLAG_INV');
142: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;
143: end if;
144: CLOSE check_primary_flag;
145:
146: end if;

Line 151: IF (p_validate_only <> FND_API.G_TRUE AND PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE) THEN

147:
148:
149: -- Create the record if there is no error
150:
151: IF (p_validate_only <> FND_API.G_TRUE AND PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE) THEN
152: PA_PROJECT_SUBTEAM_PARTIES_PKG.Insert_Row
153: (
154: p_project_subteam_id => p_project_subteam_id
155: ,p_object_type => p_object_type

Line 167: IF p_commit = FND_API.G_TRUE AND PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE THEN

163: );
164:
165: END IF;
166: -- Commit if the flag is set and there is no error
167: IF p_commit = FND_API.G_TRUE AND PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE THEN
168: COMMIT;
169: END IF;
170:
171: x_msg_count := FND_MSG_PUB.Count_Msg;

Line 185: IF PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists = FND_API.G_TRUE THEN

181: PA_DEBUG.Reset_Err_Stack;
182:
183: -- If g_error_exists is TRUE then set the x_return_status to 'E'
184:
185: IF PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists = FND_API.G_TRUE THEN
186:
187: x_return_status := FND_API.G_RET_STS_ERROR;
188:
189: END IF;

Line 200: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SUBTEAM_PARTIES_PVT.Create_Subteam_Party'

196: ROLLBACK TO STP_PVT_CREATE_STP;
197: END IF;
198: --
199: -- Set the excetption Message and the stack
200: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SUBTEAM_PARTIES_PVT.Create_Subteam_Party'
201: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
202: --
203: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
204: RAISE; -- This is optional depending on the needs

Line 265: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAM_PARTIES_PVT.Update_Subteam_Party');

261:
262: BEGIN
263:
264: -- Initialize the Error Stack
265: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAM_PARTIES_PVT.Update_Subteam_Party');
266:
267:
268: -- Initialize the error flag
269: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_FALSE;

Line 269: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_FALSE;

265: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAM_PARTIES_PVT.Update_Subteam_Party');
266:
267:
268: -- Initialize the error flag
269: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_FALSE;
270:
271: x_return_status := FND_API.G_RET_STS_SUCCESS;
272:
273: -- Issue API savepoint if the transaction is to be committed

Line 282: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;

278: -- Check project_subteam_party_id IS NOT NULL
279: IF p_project_subteam_party_id IS NULL OR p_project_subteam_party_id = fnd_api.g_miss_num THEN
280: PA_UTILS.Add_Message( p_app_short_name => 'PA'
281: ,p_msg_name => 'PA_SBP_ID_INV');
282: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;
283: END IF;
284:
285: -- Check project_subteam_id IS NOT NULL and exists
286: IF p_project_subteam_id IS NULL OR p_project_subteam_id = fnd_api.g_miss_num THEN

Line 298: --PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;

294:
295: --IF l_name_count < 1 then
296: -- PA_UTILS.Add_Message( p_app_short_name => 'PA'
297: -- ,p_msg_name => 'PA_SBP_SBT_INV');
298: --PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;
299: --END IF;
300: END IF;
301:
302: --

Line 311: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;

307: (p_object_type <> 'PA_PROJECT_ASSIGNMENTS' and p_object_type <> 'PA_PROJECT_PARTIES') THEN
308:
309: PA_UTILS.Add_Message( p_app_short_name => 'PA'
310: ,p_msg_name => 'PA_SBP_OBJTYPE_INV');
311: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;
312: ELSE
313: --
314: -- Check that mandatory object_id is passed in
315: --

Line 320: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;

316: IF p_object_id IS NULL OR
317: p_object_id = FND_API.G_MISS_NUM THEN
318: PA_UTILS.Add_Message( p_app_short_name => 'PA'
319: ,p_msg_name => 'PA_SBP_OBJID_INV');
320: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;
321: --ELSE
322: --if p_object_type = 'PA_PROJECT_ASSIGNMENTS' then
323: -- select count(*)
324: -- into l_name_count

Line 331: -- PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;

327:
328: -- if l_name_count < 1 then
329: -- PA_UTILS.Add_Message( p_app_short_name => 'PA'
330: -- ,p_msg_name => 'PA_SBP_OBJID_INV');
331: -- PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;
332: -- end if;
333: --elsif p_object_type = 'PA_PROJECT_PARTIES' then
334: -- select count(*)
335: -- into l_name_count

Line 342: -- PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;

338:
339: -- if l_name_count < 1 then
340: -- PA_UTILS.Add_Message( p_app_short_name => 'PA'
341: -- ,p_msg_name => 'PA_SBP_OBJID_INV');
342: -- PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;
343: -- end if;
344: --end if;
345:
346: END IF;

Line 351: if PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE

347: END IF;
348:
349: -- Check that for a given object_type and object_id,
350: -- there is only one primary subteam
351: if PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE
352: and p_primary_subteam_flag = 'Y' then
353:
354: OPEN check_primary_key;
355: FETCH check_primary_key INTO l_row_id;

Line 361: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;

357: IF check_primary_key%found THEN
358:
359: PA_UTILS.Add_Message( p_app_short_name => 'PA'
360: ,p_msg_name => 'PA_SBP_PRIMARY_FLAG_INV');
361: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;
362: end if;
363: CLOSE check_primary_key;
364:
365: end if;

Line 384: ELSIF (p_validate_only <> FND_API.G_TRUE AND PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE) THEN

380: ,x_return_status => x_return_status
381: ,x_msg_count => l_name_count
382: ,x_msg_data => x_msg_data
383: );
384: ELSIF (p_validate_only <> FND_API.G_TRUE AND PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE) THEN
385:
386: PA_PROJECT_SUBTEAM_PARTIES_PKG.Update_Row
387: (
388: p_project_subteam_party_row_id => p_project_subteam_party_row_id

Line 399: IF p_commit = FND_API.G_TRUE AND PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE THEN

395: ,x_msg_data => x_msg_data
396: );
397: END IF;
398: -- Commit if the flag is set and there is no error
399: IF p_commit = FND_API.G_TRUE AND PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE THEN
400: COMMIT;
401: END IF;
402:
403: x_msg_count := FND_MSG_PUB.Count_Msg;

Line 417: IF PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists = FND_API.G_TRUE THEN

413: PA_DEBUG.Reset_Err_Stack;
414:
415: -- If g_error_exists is TRUE then set the x_return_status to 'E'
416:
417: IF PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists = FND_API.G_TRUE THEN
418: x_return_status := FND_API.G_RET_STS_ERROR;
419:
420: SELECT record_version_number
421: into x_record_version_number

Line 427: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;

423: WHERE project_subteam_party_id = p_project_subteam_party_id;
424:
425: --
426: IF (SQL%NOTFOUND) THEN
427: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_TRUE;
428: END IF;
429:
430: ELSE
431: SELECT record_version_number

Line 542: pa_project_subteam_parties_pvt.create_subteam_party(

538: IF (l_project_subteam_party_id IS NULL AND
539: l_project_subteam_id IS NOT NULL) then
540: -- insert subteam_party
541:
542: pa_project_subteam_parties_pvt.create_subteam_party(
543:
544: p_api_version => p_api_version,
545:
546: p_init_msg_list => p_init_msg_list,

Line 578: pa_project_subteam_parties_pvt.update_subteam_party(

574: x_msg_data => x_msg_data );
575: ELSIF (l_project_subteam_party_id IS NOT NULL AND
576: l_project_subteam_id IS NOT NULL) then
577: -- update subteam_party
578: pa_project_subteam_parties_pvt.update_subteam_party(
579:
580: p_api_version => p_api_version,
581:
582: p_init_msg_list => p_init_msg_list,

Line 618: pa_project_subteam_parties_pvt.delete_subteam_party(

614: x_msg_data => x_msg_data );
615: ELSIF (l_project_subteam_party_id IS NOT NULL AND
616: l_project_subteam_id IS NULL) then
617: -- delete subteam_party
618: pa_project_subteam_parties_pvt.delete_subteam_party(
619:
620: p_api_version => p_api_version,
621:
622: p_init_msg_list => p_init_msg_list,

Line 690: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAM_PARTIES_PVT.Delete_Subteam_Party');

686: l_msg_index_out NUMBER;
687:
688: BEGIN
689: -- Initialize the Error Stack
690: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAM_PARTIES_PVT.Delete_Subteam_Party');
691:
692: -- Initialize the error flag
693: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_FALSE;
694:

Line 693: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_FALSE;

689: -- Initialize the Error Stack
690: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAM_PARTIES_PVT.Delete_Subteam_Party');
691:
692: -- Initialize the error flag
693: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_FALSE;
694:
695: x_return_status := FND_API.G_RET_STS_SUCCESS;
696:
697: -- Issue API savepoint if the transaction is to be committed

Line 702: IF (p_validate_only <> FND_API.G_TRUE AND PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE) THEN

698: IF p_commit = FND_API.G_TRUE THEN
699: SAVEPOINT STP_PVT_DELETE_STP;
700: END IF;
701:
702: IF (p_validate_only <> FND_API.G_TRUE AND PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE) THEN
703:
704: if p_record_version_number = FND_API.G_MISS_NUM then
705: l_record_version_number := NULL;
706: else

Line 722: IF p_commit = FND_API.G_TRUE AND PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE THEN

718: ,x_msg_data => x_msg_data
719: );
720:
721: -- Commit if the flag is set and there is no error
722: IF p_commit = FND_API.G_TRUE AND PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE THEN
723: COMMIT;
724: END IF;
725:
726:

Line 743: IF PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists = FND_API.G_TRUE THEN

739: PA_DEBUG.Reset_Err_Stack;
740:
741: -- If g_error_exists is TRUE then set the x_return_status to 'E'
742:
743: IF PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists = FND_API.G_TRUE THEN
744:
745: x_return_status := FND_API.G_RET_STS_ERROR;
746:
747: END IF;

Line 757: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SUBTEAM_PARTIES_PVT.Delete_Subteam_Party'

753: ROLLBACK TO STP_PVT_DELETE_STP;
754: END IF;
755: --
756: -- Set the exception Message and the stack
757: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SUBTEAM_PARTIES_PVT.Delete_Subteam_Party'
758: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
759: --
760: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
761: RAISE; -- This is optional depending on the needs

Line 818: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAM_PARTIES_PVT.Delete_Subteam_Party');

814:
815: BEGIN
816:
817: -- Initialize the Error Stack
818: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAM_PARTIES_PVT.Delete_Subteam_Party');
819:
820: -- Initialize the error flag
821: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_FALSE;
822:

Line 821: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_FALSE;

817: -- Initialize the Error Stack
818: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAM_PARTIES_PVT.Delete_Subteam_Party');
819:
820: -- Initialize the error flag
821: PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists := FND_API.G_FALSE;
822:
823: x_return_status := FND_API.G_RET_STS_SUCCESS;
824:
825: -- Issue API savepoint if the transaction is to be committed

Line 847: IF p_commit = FND_API.G_TRUE AND PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE THEN

843:
844: END IF;
845:
846: -- Commit if the flag is set and there is no error
847: IF p_commit = FND_API.G_TRUE AND PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists <> FND_API.G_TRUE THEN
848: COMMIT;
849: END IF;
850:
851: x_msg_count := FND_MSG_PUB.Count_Msg;

Line 865: IF PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists = FND_API.G_TRUE THEN

861: PA_DEBUG.Reset_Err_Stack;
862:
863: -- If g_error_exists is TRUE then set the x_return_status to 'E'
864:
865: IF PA_PROJECT_SUBTEAM_PARTIES_PVT.g_error_exists = FND_API.G_TRUE THEN
866:
867: x_return_status := FND_API.G_RET_STS_ERROR;
868:
869: END IF;

Line 879: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SUBTEAM_PARTIES_PVT.Delete_Subteam_Party'

875: ROLLBACK TO STP_PVT_DELETE_STP;
876: END IF;
877: --
878: -- Set the exception Message and the stack
879: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SUBTEAM_PARTIES_PVT.Delete_Subteam_Party'
880: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
881: --
882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
883: RAISE; -- This is optional depending on the needs

Line 889: END PA_PROJECT_SUBTEAM_PARTIES_PVT;

885: END;
886:
887: --
888: --
889: END PA_PROJECT_SUBTEAM_PARTIES_PVT;