80: -- Check that mandatory project id exists
81: --
82: IF ( (p_object_type is null OR p_object_type = FND_API.G_MISS_CHAR)
83: OR (p_object_id IS NULL OR p_object_id = FND_API.G_MISS_NUM)) THEN
84: PA_UTILS.Add_Message( p_app_short_name => 'PA'
85: ,p_msg_name => 'PA_SBT_PRJID_INV');
86: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
87: END IF;
88:
90:
91: OPEN get_project;
92: FETCH get_project INTO l_rowid;
93: IF get_project%notfound THEN
94: PA_UTILS.Add_Message( p_app_short_name => 'PA'
95: ,p_msg_name => 'PA_SBT_PRJID_INV');
96: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
97: END IF;
98:
104: -- WHERE project_id =p_object_id;
105:
106: end if;
107: --IF l_name_count < 1 then
108: -- PA_UTILS.Add_Message( p_app_short_name => 'PA'
109: -- ,p_msg_name => 'PA_SBT_PRJID_INV');
110: -- PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
111: --END IF;
112:
115: -- Check that mandatory subteam name is passed in
116: --
117: IF p_subteam_name IS NULL OR
118: p_subteam_name = FND_API.G_MISS_CHAR THEN
119: PA_UTILS.Add_Message( p_app_short_name => 'PA'
120: ,p_msg_name => 'PA_SBT_NAME_INV');
121: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
122: END IF;
123:
129: OPEN get_project_subteam;
130: FETCH get_project_subteam INTO l_rowid;
131:
132: IF get_project_subteam%found THEN
133: PA_UTILS.Add_Message( p_app_short_name => 'PA'
134: ,p_msg_name => 'PA_SBT_NAME_INV');
135: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
136: END IF;
137: CLOSE get_project_subteam;
144: --AND object_type = 'PA_PROJECTS'
145: --AND object_id = p_object_id;
146:
147: --IF l_name_count > 0 THEN
148: -- PA_UTILS.Add_Message( p_app_short_name => 'PA'
149: -- ,p_msg_name => 'PA_SBT_NAME_INV');
150: -- PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
151: --END IF;
152:
296:
297:
298: -- Check project_subteam_id IS NOT NULL
299: IF p_subteam_id IS NULL THEN
300: PA_UTILS.Add_Message( p_app_short_name => 'PA'
301: ,p_msg_name => 'PA_SBT_ID_INV');
302: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
303: END IF;
304:
305: --
306: -- Check that mandatory subteam name is not null
307: --
308: IF p_subteam_name IS NULL THEN
309: PA_UTILS.Add_Message( p_app_short_name => 'PA'
310: ,p_msg_name => 'PA_SBT_NAME_INV');
311: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
312: END IF;
313:
315: -- Check that mandatory project id exists
316: --
317: IF ((p_object_type is null OR p_object_type=FND_API.g_miss_char)
318: OR (p_object_id IS NULL OR p_object_id=FND_API.g_miss_num)) THEN
319: PA_UTILS.Add_Message( p_app_short_name => 'PA'
320: ,p_msg_name => 'PA_SBT_PRJID_INV');
321: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.g_true;
322: ELSE
323: IF (p_object_type='PA_PROJECTS'
326:
327: OPEN get_project;
328: FETCH get_project INTO l_rowid;
329: IF get_project%notfound THEN
330: PA_UTILS.Add_Message( p_app_short_name => 'PA'
331: ,p_msg_name => 'PA_SBT_PRJID_INV');
332: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
333: END IF;
334:
339: --WHERE project_id =p_object_id;
340:
341:
342: -- IF l_name_count < 1 then
343: -- PA_UTILS.Add_Message( p_app_short_name => 'PA'
344: -- ,p_msg_name => 'PA_SBT_PRJID_INV');
345: -- PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
346: --END IF;
347: END IF;
364: FETCH get_project_subteam INTO l_rowid;
365:
366: IF get_project_subteam%found THEN
367: -- if the name is already taken by another subteam
368: PA_UTILS.Add_Message( p_app_short_name => 'PA'
369: ,p_msg_name => 'PA_SBT_NAME_INV');
370: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
371: END IF;
372:
381: --AND project_subteam_id <> p_subteam_id;
382:
383: -- IF l_count > 0 THEN
384: -- if the name is already taken by another subteam
385: -- PA_UTILS.Add_Message( p_app_short_name => 'PA'
386: -- ,p_msg_name => 'PA_SBT_NAME_INV');
387: -- PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
388: --END IF;
389: --END IF;
513:
514: OPEN get_project_subteam;
515: FETCH get_project_subteam INTO l_rowid;
516: IF get_project_subteam%found THEN
517: PA_UTILS.Add_Message( p_app_short_name => 'PA'
518: ,p_msg_name => 'PA_SBT_ID_INUSE');
519: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.g_true;
520: END IF;
521:
534: -- null;
535: --END;
536:
537: --IF l_count >0 THEN
538: -- PA_UTILS.Add_Message( p_app_short_name => 'PA'
539: -- ,p_msg_name => 'PA_SBT_ID_INUSE');
540: -- PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
541: --END IF;
542: