1: PACKAGE BODY PA_PROJECT_SUBTEAMS_PVT AS
2: /*$Header: PARTSTVB.pls 120.2 2005/08/19 17:02:09 mwasowic ship $*/
3:
4: PROCEDURE Create_Subteam
5: (
10: p_validation_level IN NUMBER := FND_API.g_valid_level_full,
11: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
12: p_debug_mode IN VARCHAR2 := 'N',
13: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
14: p_subteam_name IN pa_project_subteams.name%TYPE := FND_API.g_miss_char,
15: p_object_type IN pa_project_subteams.object_type%TYPE := FND_API.g_miss_char,
16: p_object_id IN pa_project_subteams.object_id%TYPE := FND_API.g_miss_num,
17: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
18: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
11: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
12: p_debug_mode IN VARCHAR2 := 'N',
13: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
14: p_subteam_name IN pa_project_subteams.name%TYPE := FND_API.g_miss_char,
15: p_object_type IN pa_project_subteams.object_type%TYPE := FND_API.g_miss_char,
16: p_object_id IN pa_project_subteams.object_id%TYPE := FND_API.g_miss_num,
17: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
18: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
19: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
12: p_debug_mode IN VARCHAR2 := 'N',
13: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
14: p_subteam_name IN pa_project_subteams.name%TYPE := FND_API.g_miss_char,
15: p_object_type IN pa_project_subteams.object_type%TYPE := FND_API.g_miss_char,
16: p_object_id IN pa_project_subteams.object_id%TYPE := FND_API.g_miss_num,
17: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
18: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
19: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
20: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
13: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
14: p_subteam_name IN pa_project_subteams.name%TYPE := FND_API.g_miss_char,
15: p_object_type IN pa_project_subteams.object_type%TYPE := FND_API.g_miss_char,
16: p_object_id IN pa_project_subteams.object_id%TYPE := FND_API.g_miss_num,
17: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
18: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
19: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
20: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
21: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
14: p_subteam_name IN pa_project_subteams.name%TYPE := FND_API.g_miss_char,
15: p_object_type IN pa_project_subteams.object_type%TYPE := FND_API.g_miss_char,
16: p_object_id IN pa_project_subteams.object_id%TYPE := FND_API.g_miss_num,
17: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
18: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
19: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
20: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
21: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
22: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
15: p_object_type IN pa_project_subteams.object_type%TYPE := FND_API.g_miss_char,
16: p_object_id IN pa_project_subteams.object_id%TYPE := FND_API.g_miss_num,
17: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
18: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
19: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
20: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
21: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
22: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
23: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
16: p_object_id IN pa_project_subteams.object_id%TYPE := FND_API.g_miss_num,
17: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
18: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
19: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
20: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
21: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
22: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
23: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
24: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
17: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
18: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
19: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
20: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
21: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
22: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
23: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
24: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
25: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
18: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
19: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
20: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
21: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
22: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
23: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
24: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
25: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
26: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
19: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
20: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
21: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
22: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
23: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
24: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
25: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
26: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
27: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
20: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
21: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
22: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
23: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
24: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
25: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
26: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
27: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
28: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
21: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
22: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
23: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
24: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
25: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
26: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
27: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
28: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
29: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
22: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
23: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
24: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
25: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
26: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
27: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
28: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
29: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
30: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
23: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
24: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
25: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
26: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
27: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
28: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
29: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
30: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
31: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
24: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
25: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
26: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
27: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
28: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
29: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
30: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
31: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
32: p_attribute13 IN pa_project_subteams.attribute13%TYPE := FND_API.G_MISS_CHAR,
25: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
26: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
27: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
28: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
29: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
30: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
31: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
32: p_attribute13 IN pa_project_subteams.attribute13%TYPE := FND_API.G_MISS_CHAR,
33: p_attribute14 IN pa_project_subteams.attribute14%TYPE := FND_API.G_MISS_CHAR,
26: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
27: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
28: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
29: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
30: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
31: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
32: p_attribute13 IN pa_project_subteams.attribute13%TYPE := FND_API.G_MISS_CHAR,
33: p_attribute14 IN pa_project_subteams.attribute14%TYPE := FND_API.G_MISS_CHAR,
34: p_attribute15 IN pa_project_subteams.attribute15%TYPE := FND_API.G_MISS_CHAR,
27: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
28: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
29: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
30: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
31: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
32: p_attribute13 IN pa_project_subteams.attribute13%TYPE := FND_API.G_MISS_CHAR,
33: p_attribute14 IN pa_project_subteams.attribute14%TYPE := FND_API.G_MISS_CHAR,
34: p_attribute15 IN pa_project_subteams.attribute15%TYPE := FND_API.G_MISS_CHAR,
35: x_subteam_row_id OUT NOCOPY ROWID, --File.Sql.39 bug 4440895
28: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
29: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
30: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
31: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
32: p_attribute13 IN pa_project_subteams.attribute13%TYPE := FND_API.G_MISS_CHAR,
33: p_attribute14 IN pa_project_subteams.attribute14%TYPE := FND_API.G_MISS_CHAR,
34: p_attribute15 IN pa_project_subteams.attribute15%TYPE := FND_API.G_MISS_CHAR,
35: x_subteam_row_id OUT NOCOPY ROWID, --File.Sql.39 bug 4440895
36: x_new_subteam_id OUT NOCOPY pa_project_subteams.project_subteam_id%TYPE, --File.Sql.39 bug 4440895
29: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
30: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
31: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
32: p_attribute13 IN pa_project_subteams.attribute13%TYPE := FND_API.G_MISS_CHAR,
33: p_attribute14 IN pa_project_subteams.attribute14%TYPE := FND_API.G_MISS_CHAR,
34: p_attribute15 IN pa_project_subteams.attribute15%TYPE := FND_API.G_MISS_CHAR,
35: x_subteam_row_id OUT NOCOPY ROWID, --File.Sql.39 bug 4440895
36: x_new_subteam_id OUT NOCOPY pa_project_subteams.project_subteam_id%TYPE, --File.Sql.39 bug 4440895
37: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
30: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
31: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
32: p_attribute13 IN pa_project_subteams.attribute13%TYPE := FND_API.G_MISS_CHAR,
33: p_attribute14 IN pa_project_subteams.attribute14%TYPE := FND_API.G_MISS_CHAR,
34: p_attribute15 IN pa_project_subteams.attribute15%TYPE := FND_API.G_MISS_CHAR,
35: x_subteam_row_id OUT NOCOPY ROWID, --File.Sql.39 bug 4440895
36: x_new_subteam_id OUT NOCOPY pa_project_subteams.project_subteam_id%TYPE, --File.Sql.39 bug 4440895
37: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
38: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
32: p_attribute13 IN pa_project_subteams.attribute13%TYPE := FND_API.G_MISS_CHAR,
33: p_attribute14 IN pa_project_subteams.attribute14%TYPE := FND_API.G_MISS_CHAR,
34: p_attribute15 IN pa_project_subteams.attribute15%TYPE := FND_API.G_MISS_CHAR,
35: x_subteam_row_id OUT NOCOPY ROWID, --File.Sql.39 bug 4440895
36: x_new_subteam_id OUT NOCOPY pa_project_subteams.project_subteam_id%TYPE, --File.Sql.39 bug 4440895
37: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
38: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
39: x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
40: )
50: WHERE project_id =p_object_id;
51:
52: CURSOR get_project_subteam is
53: SELECT rowid
54: FROM pa_project_subteams
55: WHERE name =p_subteam_name
56: AND object_type = p_object_type
57: AND object_id = p_object_id;
58:
58:
59: BEGIN
60:
61: -- Initialize the Error Stack
62: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PVT.Create_Subteam');
63:
64: -- Initialize the error flag
65: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;
66:
61: -- Initialize the Error Stack
62: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PVT.Create_Subteam');
63:
64: -- Initialize the error flag
65: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;
66:
67: -- Issue API savepoint if the transaction is to be committed
68: IF p_commit = FND_API.G_TRUE THEN
69: SAVEPOINT SBT_PVT_CREATE_SBT;
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:
89: If(p_object_type = 'PA_PROJECTS') then
90:
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:
99: CLOSE get_project;
100:
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:
113:
114: --
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:
124: --
125: -- Check that subteam name is not used by existing record with the same
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;
138:
139:
138:
139:
140: --SELECT COUNT(*)
141: --INTO l_name_count
142: --FROM pa_project_subteams
143: --WHERE name =p_subteam_name
144: --AND object_type = 'PA_PROJECTS'
145: --AND object_id = p_object_id;
146:
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:
153:
154: --dbms_output.put_line(l_assignment_rec.project_id);
156:
157:
158: -- Create the record if there is no error
159:
160: IF (p_validate_only <> FND_API.G_TRUE AND PA_PROJECT_SUBTEAMS_PUB.g_error_exists <> FND_API.G_TRUE) THEN
161: PA_PROJECT_SUBTEAMS_PKG.Insert_Row
162: (p_subteam_name => p_subteam_name
163: ,p_object_type => p_object_type
164: ,p_object_id => p_object_id
157:
158: -- Create the record if there is no error
159:
160: IF (p_validate_only <> FND_API.G_TRUE AND PA_PROJECT_SUBTEAMS_PUB.g_error_exists <> FND_API.G_TRUE) THEN
161: PA_PROJECT_SUBTEAMS_PKG.Insert_Row
162: (p_subteam_name => p_subteam_name
163: ,p_object_type => p_object_type
164: ,p_object_id => p_object_id
165: ,p_description => p_description
187: );
188:
189: END IF;
190: -- Commit if the flag is set and there is no error
191: IF p_commit = FND_API.G_TRUE AND PA_PROJECT_SUBTEAMS_PUB.g_error_exists <> FND_API.G_TRUE THEN
192: COMMIT;
193: END IF;
194:
195: -- Reset the error stack when returning to the calling program
196: PA_DEBUG.Reset_Err_Stack;
197:
198: -- If g_error_exists is TRUE then set the x_return_status to 'E'
199:
200: IF PA_PROJECT_SUBTEAMS_PUB.g_error_exists = FND_API.G_TRUE THEN
201:
202: x_return_status := FND_API.G_RET_STS_ERROR;
203:
204: END IF;
211: ROLLBACK TO SBT_PVT_CREATE_SBT;
212: END IF;
213: --
214: -- Set the excetption Message and the stack
215: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SUBTEAMS_PVT.Create_Subteam'
216: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
217: --
218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
219: RAISE; -- This is optional depending on the needs
231: p_calling_module IN VARCHAR2 := 'SELF_SERVICE',
232: p_debug_mode IN VARCHAR2 := 'N',
233: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
234: p_subteam_row_id IN ROWID := null,
235: p_subteam_id IN pa_project_subteams.project_subteam_id%TYPE := FND_API.g_miss_num,
236: p_subteam_name IN pa_project_subteams.name%TYPE := FND_API.g_miss_char,
237: p_object_type IN pa_project_subteams.object_type%TYPE := FND_API.g_miss_char,
238: p_object_id IN pa_project_subteams.object_id%TYPE := FND_API.g_miss_num,
239: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
232: p_debug_mode IN VARCHAR2 := 'N',
233: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
234: p_subteam_row_id IN ROWID := null,
235: p_subteam_id IN pa_project_subteams.project_subteam_id%TYPE := FND_API.g_miss_num,
236: p_subteam_name IN pa_project_subteams.name%TYPE := FND_API.g_miss_char,
237: p_object_type IN pa_project_subteams.object_type%TYPE := FND_API.g_miss_char,
238: p_object_id IN pa_project_subteams.object_id%TYPE := FND_API.g_miss_num,
239: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
240: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
233: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
234: p_subteam_row_id IN ROWID := null,
235: p_subteam_id IN pa_project_subteams.project_subteam_id%TYPE := FND_API.g_miss_num,
236: p_subteam_name IN pa_project_subteams.name%TYPE := FND_API.g_miss_char,
237: p_object_type IN pa_project_subteams.object_type%TYPE := FND_API.g_miss_char,
238: p_object_id IN pa_project_subteams.object_id%TYPE := FND_API.g_miss_num,
239: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
240: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
241: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
234: p_subteam_row_id IN ROWID := null,
235: p_subteam_id IN pa_project_subteams.project_subteam_id%TYPE := FND_API.g_miss_num,
236: p_subteam_name IN pa_project_subteams.name%TYPE := FND_API.g_miss_char,
237: p_object_type IN pa_project_subteams.object_type%TYPE := FND_API.g_miss_char,
238: p_object_id IN pa_project_subteams.object_id%TYPE := FND_API.g_miss_num,
239: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
240: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
241: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
242: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
235: p_subteam_id IN pa_project_subteams.project_subteam_id%TYPE := FND_API.g_miss_num,
236: p_subteam_name IN pa_project_subteams.name%TYPE := FND_API.g_miss_char,
237: p_object_type IN pa_project_subteams.object_type%TYPE := FND_API.g_miss_char,
238: p_object_id IN pa_project_subteams.object_id%TYPE := FND_API.g_miss_num,
239: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
240: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
241: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
242: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
243: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
236: p_subteam_name IN pa_project_subteams.name%TYPE := FND_API.g_miss_char,
237: p_object_type IN pa_project_subteams.object_type%TYPE := FND_API.g_miss_char,
238: p_object_id IN pa_project_subteams.object_id%TYPE := FND_API.g_miss_num,
239: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
240: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
241: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
242: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
243: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
244: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
237: p_object_type IN pa_project_subteams.object_type%TYPE := FND_API.g_miss_char,
238: p_object_id IN pa_project_subteams.object_id%TYPE := FND_API.g_miss_num,
239: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
240: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
241: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
242: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
243: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
244: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
245: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
238: p_object_id IN pa_project_subteams.object_id%TYPE := FND_API.g_miss_num,
239: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
240: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
241: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
242: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
243: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
244: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
245: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
246: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
239: p_description IN pa_project_subteams.description%TYPE := FND_API.g_miss_char,
240: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
241: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
242: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
243: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
244: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
245: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
246: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
247: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
240: p_record_version_number IN pa_project_subteams.record_version_number%TYPE := FND_API.g_miss_num,
241: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
242: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
243: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
244: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
245: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
246: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
247: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
248: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
241: p_attribute_category IN pa_project_subteams.attribute_category%TYPE := FND_API.g_miss_char,
242: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
243: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
244: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
245: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
246: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
247: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
248: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
249: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
242: p_attribute1 IN pa_project_subteams.attribute1%TYPE := FND_API.G_MISS_CHAR,
243: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
244: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
245: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
246: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
247: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
248: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
249: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
250: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
243: p_attribute2 IN pa_project_subteams.attribute2%TYPE := FND_API.G_MISS_CHAR,
244: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
245: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
246: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
247: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
248: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
249: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
250: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
251: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
244: p_attribute3 IN pa_project_subteams.attribute3%TYPE := FND_API.G_MISS_CHAR,
245: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
246: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
247: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
248: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
249: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
250: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
251: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
252: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
245: p_attribute4 IN pa_project_subteams.attribute4%TYPE := FND_API.G_MISS_CHAR,
246: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
247: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
248: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
249: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
250: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
251: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
252: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
253: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
246: p_attribute5 IN pa_project_subteams.attribute5%TYPE := FND_API.G_MISS_CHAR,
247: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
248: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
249: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
250: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
251: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
252: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
253: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
254: p_attribute13 IN pa_project_subteams.attribute13%TYPE := FND_API.G_MISS_CHAR,
247: p_attribute6 IN pa_project_subteams.attribute6%TYPE := FND_API.G_MISS_CHAR,
248: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
249: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
250: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
251: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
252: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
253: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
254: p_attribute13 IN pa_project_subteams.attribute13%TYPE := FND_API.G_MISS_CHAR,
255: p_attribute14 IN pa_project_subteams.attribute14%TYPE := FND_API.G_MISS_CHAR,
248: p_attribute7 IN pa_project_subteams.attribute7%TYPE := FND_API.G_MISS_CHAR,
249: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
250: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
251: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
252: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
253: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
254: p_attribute13 IN pa_project_subteams.attribute13%TYPE := FND_API.G_MISS_CHAR,
255: p_attribute14 IN pa_project_subteams.attribute14%TYPE := FND_API.G_MISS_CHAR,
256: p_attribute15 IN pa_project_subteams.attribute15%TYPE := FND_API.G_MISS_CHAR,
249: p_attribute8 IN pa_project_subteams.attribute8%TYPE := FND_API.G_MISS_CHAR,
250: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
251: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
252: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
253: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
254: p_attribute13 IN pa_project_subteams.attribute13%TYPE := FND_API.G_MISS_CHAR,
255: p_attribute14 IN pa_project_subteams.attribute14%TYPE := FND_API.G_MISS_CHAR,
256: p_attribute15 IN pa_project_subteams.attribute15%TYPE := FND_API.G_MISS_CHAR,
257: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
250: p_attribute9 IN pa_project_subteams.attribute9%TYPE := FND_API.G_MISS_CHAR,
251: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
252: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
253: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
254: p_attribute13 IN pa_project_subteams.attribute13%TYPE := FND_API.G_MISS_CHAR,
255: p_attribute14 IN pa_project_subteams.attribute14%TYPE := FND_API.G_MISS_CHAR,
256: p_attribute15 IN pa_project_subteams.attribute15%TYPE := FND_API.G_MISS_CHAR,
257: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
258: --x_record_version_number OUT NUMBER ,
251: p_attribute10 IN pa_project_subteams.attribute10%TYPE := FND_API.G_MISS_CHAR,
252: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
253: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
254: p_attribute13 IN pa_project_subteams.attribute13%TYPE := FND_API.G_MISS_CHAR,
255: p_attribute14 IN pa_project_subteams.attribute14%TYPE := FND_API.G_MISS_CHAR,
256: p_attribute15 IN pa_project_subteams.attribute15%TYPE := FND_API.G_MISS_CHAR,
257: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
258: --x_record_version_number OUT NUMBER ,
259: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
252: p_attribute11 IN pa_project_subteams.attribute11%TYPE := FND_API.G_MISS_CHAR,
253: p_attribute12 IN pa_project_subteams.attribute12%TYPE := FND_API.G_MISS_CHAR,
254: p_attribute13 IN pa_project_subteams.attribute13%TYPE := FND_API.G_MISS_CHAR,
255: p_attribute14 IN pa_project_subteams.attribute14%TYPE := FND_API.G_MISS_CHAR,
256: p_attribute15 IN pa_project_subteams.attribute15%TYPE := FND_API.G_MISS_CHAR,
257: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
258: --x_record_version_number OUT NUMBER ,
259: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
260: x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
260: x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
261: ) IS
262:
263: l_count number;
264: l_old_subteam_name pa_project_subteams.name%TYPE := FND_API.g_miss_char;
265: --l_name_count NUMBER;
266: l_rowid ROWID;
267:
268: CURSOR get_project is
271: WHERE project_id =p_object_id;
272:
273: CURSOR get_project_subteam IS
274: SELECT rowid
275: FROM pa_project_subteams
276: WHERE name = p_subteam_name
277: AND object_type = p_object_type
278: AND object_id = p_object_id
279: AND project_subteam_id <> p_subteam_id;
280:
281: BEGIN
282:
283: -- Initialize the Error Stack
284: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PVT.Update_Subteam');
285:
286:
287: -- Initialize the error flag
288: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;
284: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PVT.Update_Subteam');
285:
286:
287: -- Initialize the error flag
288: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;
289:
290: x_return_status := FND_API.G_RET_STS_SUCCESS;
291:
292: -- Issue API savepoint if the transaction is to be committed
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:
314: --
315: -- Check that mandatory project id exists
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'
324: AND p_object_id is not null
325: AND p_object_id <> FND_API.g_miss_num )THEN
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:
335: CLOSE get_project;
336: --SELECT COUNT(*)
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;
348: END IF;
349:
351: -- Check that the subteam name is not duplicated for the same object ID
352: --
353: -- SELECT name
354: -- INTO l_old_subteam_name
355: -- FROM pa_project_subteams
356: -- WHERE project_subteam_id = p_subteam_id;
357:
358: --IF l_old_subteam_name <> p_subteam_name THEN
359:
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:
373: CLOSE get_project_subteam;
374:
373: CLOSE get_project_subteam;
374:
375: --SELECT COUNT(*)
376: --INTO l_count
377: --FROM pa_project_subteams
378: --WHERE name = p_subteam_name
379: --AND object_type = p_object_type
380: --AND object_id = p_object_id
381: --AND project_subteam_id <> p_subteam_id;
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;
390:
391: IF (p_validate_only = FND_API.G_FALSE AND PA_PROJECT_SUBTEAMS_PUB.g_error_exists <> FND_API.G_TRUE) THEN
387: -- PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
388: --END IF;
389: --END IF;
390:
391: IF (p_validate_only = FND_API.G_FALSE AND PA_PROJECT_SUBTEAMS_PUB.g_error_exists <> FND_API.G_TRUE) THEN
392:
393: --dbms_output.put_line('Call table handler');
394:
395: PA_PROJECT_SUBTEAMS_PKG.Update_Row
391: IF (p_validate_only = FND_API.G_FALSE AND PA_PROJECT_SUBTEAMS_PUB.g_error_exists <> FND_API.G_TRUE) THEN
392:
393: --dbms_output.put_line('Call table handler');
394:
395: PA_PROJECT_SUBTEAMS_PKG.Update_Row
396: (p_subteam_row_id => p_subteam_row_id
397: ,p_subteam_id => p_subteam_id
398: ,p_record_version_number => p_record_version_number
399: ,p_subteam_name => p_subteam_name
421: ,x_msg_data => x_msg_data
422: );
423: END IF;
424: -- Commit if the flag is set and there is no error
425: IF p_commit = FND_API.G_TRUE AND PA_PROJECT_SUBTEAMS_PUB.g_error_exists <> FND_API.G_TRUE THEN
426: COMMIT;
427: END IF;
428:
429: -- Reset the error stack when returning to the calling program
430: PA_DEBUG.Reset_Err_Stack;
431:
432: -- If g_error_exists is TRUE then set the x_return_status to 'E'
433:
434: IF PA_PROJECT_SUBTEAMS_PUB.g_error_exists = FND_API.G_TRUE THEN
435: x_return_status := FND_API.G_RET_STS_ERROR;
436: END IF;
437:
438:
442: ROLLBACK TO SBT_PVT_UPDATE_SBT;
443: END IF;
444: --
445: -- Set the excetption Message and the stack
446: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SUBTEAMS_PVT.Update_Subteam'
447: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
448: --
449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
450: RAISE; -- This is optional depending on the needs
470: p_max_msg_count IN NUMBER := FND_API.g_miss_num,
471:
472: p_subteam_row_id IN ROWID := NULL,
473:
474: p_subteam_id IN pa_project_subteams.project_subteam_id%TYPE := fnd_api.g_miss_num,
475:
476: p_record_version_number IN NUMBER := FND_API.G_MISS_NUM,
477:
478: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
495: WHERE project_subteam_id = p_subteam_id ;
496:
497: BEGIN
498: -- Initialize the Error Stack
499: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PVT.Delete_Subteam');
500:
501: -- Initialize the error flag
502: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;
503:
498: -- Initialize the Error Stack
499: PA_DEBUG.init_err_stack('PA_PROJECT_SUBTEAMS_PVT.Delete_Subteam');
500:
501: -- Initialize the error flag
502: PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_FALSE;
503:
504: x_return_status := FND_API.G_RET_STS_SUCCESS;
505:
506: -- Issue API savepoint if the transaction is to be committed
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:
522: CLOSE get_project_subteam;
523:
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:
543:
544: IF (p_validate_only = FND_API.G_FALSE AND PA_PROJECT_SUBTEAMS_PUB.g_error_exists <> FND_API.G_TRUE) THEN
540: -- PA_PROJECT_SUBTEAMS_PUB.g_error_exists := FND_API.G_TRUE;
541: --END IF;
542:
543:
544: IF (p_validate_only = FND_API.G_FALSE AND PA_PROJECT_SUBTEAMS_PUB.g_error_exists <> FND_API.G_TRUE) THEN
545:
546: if p_record_version_number = FND_API.G_MISS_NUM then
547: l_record_version_number := NULL;
548: else
549: l_record_version_number := p_record_version_number;
550: end if;
551:
552: -- Delete the master record
553: PA_PROJECT_SUBTEAMS_PKG.Delete_Row
554: ( p_subteam_row_id => p_subteam_row_id
555: ,p_subteam_id => p_subteam_id
556: ,p_record_version_number => l_record_version_number
557: ,x_return_status => x_return_status
559: ,x_msg_data => x_msg_data
560: );
561:
562: -- Commit if the flag is set and there is no error
563: IF p_commit = FND_API.G_TRUE AND PA_PROJECT_SUBTEAMS_PUB.g_error_exists <> FND_API.G_TRUE THEN
564: COMMIT;
565: END IF;
566:
567:
571: PA_DEBUG.Reset_Err_Stack;
572:
573: -- If g_error_exists is TRUE then set the x_return_status to 'E'
574:
575: IF PA_PROJECT_SUBTEAMS_PUB.g_error_exists = FND_API.G_TRUE THEN
576:
577: x_return_status := FND_API.G_RET_STS_ERROR;
578:
579: END IF;
585: ROLLBACK TO SBT_PVT_DELETE_SBT;
586: END IF;
587: --
588: -- Set the exception Message and the stack
589: FND_MSG_PUB.add_exc_msg ( p_pkg_name => 'PA_PROJECT_SUBTEAMS_PVT.Delete_Subteam'
590: ,p_procedure_name => PA_DEBUG.G_Err_Stack );
591: --
592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
593: RAISE; -- This is optional depending on the needs
596:
597:
598: PROCEDURE Get_Subteam_Id
599: (
600: p_subteam_name IN pa_project_subteams.name%TYPE := fnd_api.g_miss_char,
601: p_object_type IN pa_project_subteams.object_type%TYPE := fnd_api.g_miss_char,
602: p_object_id IN pa_project_subteams.object_id%TYPE := fnd_api.g_miss_num,
603: x_subteam_id OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
604: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
597:
598: PROCEDURE Get_Subteam_Id
599: (
600: p_subteam_name IN pa_project_subteams.name%TYPE := fnd_api.g_miss_char,
601: p_object_type IN pa_project_subteams.object_type%TYPE := fnd_api.g_miss_char,
602: p_object_id IN pa_project_subteams.object_id%TYPE := fnd_api.g_miss_num,
603: x_subteam_id OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
604: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
605: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
598: PROCEDURE Get_Subteam_Id
599: (
600: p_subteam_name IN pa_project_subteams.name%TYPE := fnd_api.g_miss_char,
601: p_object_type IN pa_project_subteams.object_type%TYPE := fnd_api.g_miss_char,
602: p_object_id IN pa_project_subteams.object_id%TYPE := fnd_api.g_miss_num,
603: x_subteam_id OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
604: x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
605: x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
606: x_msg_data OUT NOCOPY VARCHAR2 --File.Sql.39 bug 4440895
613: x_return_status := FND_API.G_RET_STS_SUCCESS;
614:
615: SELECT project_subteam_id
616: INTO l_subteam_id
617: FROM pa_project_subteams
618: WHERE name = p_subteam_name
619: AND object_type=p_object_type
620: AND object_id = p_object_id;
621:
630: END Get_Subteam_Id;
631:
632: --
633: --
634: END PA_PROJECT_SUBTEAMS_PVT;