40: l_function_allowed VARCHAR2(1) := 'N';
41:
42: BEGIN
43: SAVEPOINT change_structure_status;
44: p_return_status := FND_API.G_RET_STS_SUCCESS;
45: IF NOT FND_API.Compatible_API_Call ( l_api_version_number
46: ,p_api_version_number
47: ,l_api_name
48: ,G_PKG_NAME) THEN
41:
42: BEGIN
43: SAVEPOINT change_structure_status;
44: p_return_status := FND_API.G_RET_STS_SUCCESS;
45: IF NOT FND_API.Compatible_API_Call ( l_api_version_number
46: ,p_api_version_number
47: ,l_api_name
48: ,G_PKG_NAME) THEN
49: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
45: IF NOT FND_API.Compatible_API_Call ( l_api_version_number
46: ,p_api_version_number
47: ,l_api_name
48: ,G_PKG_NAME) THEN
49: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
50: END IF;
51: IF FND_API.to_boolean(p_init_msg_list) THEN
52: FND_MSG_PUB.initialize;
53: END IF;
47: ,l_api_name
48: ,G_PKG_NAME) THEN
49: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
50: END IF;
51: IF FND_API.to_boolean(p_init_msg_list) THEN
52: FND_MSG_PUB.initialize;
53: END IF;
54: l_responsibility_id := FND_GLOBAL.Resp_id;
55: l_user_id := FND_GLOBAL.User_id;
67: p_msg_data => p_msg_data,
68: p_return_status => p_return_status,
69: p_function_allowed => l_function_allowed );
70:
71: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
72: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
73: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
74: RAISE FND_API.G_EXC_ERROR;
75: END IF;
68: p_return_status => p_return_status,
69: p_function_allowed => l_function_allowed );
70:
71: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
72: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
73: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
74: RAISE FND_API.G_EXC_ERROR;
75: END IF;
76:
69: p_function_allowed => l_function_allowed );
70:
71: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
72: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
73: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
74: RAISE FND_API.G_EXC_ERROR;
75: END IF;
76:
77: IF l_function_allowed is NULL OR l_function_allowed = 'N' THEN
70:
71: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
72: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
73: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
74: RAISE FND_API.G_EXC_ERROR;
75: END IF;
76:
77: IF l_function_allowed is NULL OR l_function_allowed = 'N' THEN
78: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
76:
77: IF l_function_allowed is NULL OR l_function_allowed = 'N' THEN
78: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
79: FND_MSG_PUB.add;
80: p_return_status := FND_API.G_RET_STS_ERROR;
81: RAISE FND_API.G_EXC_ERROR;
82: END IF;
83:
84: OPEN version_info;
77: IF l_function_allowed is NULL OR l_function_allowed = 'N' THEN
78: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
79: FND_MSG_PUB.add;
80: p_return_status := FND_API.G_RET_STS_ERROR;
81: RAISE FND_API.G_EXC_ERROR;
82: END IF;
83:
84: OPEN version_info;
85: FETCH version_info INTO l_record_version_number;
120: (
121: p_api_version => p_api_version_number
122: ,p_init_msg_list => p_init_msg_list
123: ,p_commit => p_commit
124: ,p_validate_only => FND_API.G_FALSE
125: ,p_calling_module => 'AMG'
126: ,p_project_id => p_pa_project_id
127: ,p_structure_id => l_structure_id
128: ,p_structure_version_id => p_structure_version_id
147: );
148: END IF;
149: END IF;
150:
151: IF FND_API.to_boolean(p_commit) THEN
152: IF (p_return_status is NOT NULL and p_return_status = 'S') THEN
153: COMMIT;
154: END IF;
155: END IF;
167: ,p_attribute3 => ''
168: ,p_attribute4 => ''
169: ,p_attribute5 => '');
170:
171: WHEN FND_API.G_EXC_ERROR THEN
172: p_return_status := FND_API.G_RET_STS_ERROR;
173: ROLLBACK TO change_structure_status;
174: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
175: ,p_data => p_msg_data);
168: ,p_attribute4 => ''
169: ,p_attribute5 => '');
170:
171: WHEN FND_API.G_EXC_ERROR THEN
172: p_return_status := FND_API.G_RET_STS_ERROR;
173: ROLLBACK TO change_structure_status;
174: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
175: ,p_data => p_msg_data);
176:
173: ROLLBACK TO change_structure_status;
174: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
175: ,p_data => p_msg_data);
176:
177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
178: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
179: ROLLBACK TO change_structure_status;
180: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
181: ,p_data => p_msg_data);
174: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
175: ,p_data => p_msg_data);
176:
177: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
178: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
179: ROLLBACK TO change_structure_status;
180: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
181: ,p_data => p_msg_data);
182:
180: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
181: ,p_data => p_msg_data);
182:
183: WHEN OTHERS THEN
184: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
185: ROLLBACK TO change_structure_status;
186:
187: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
188: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
226: str version_info%ROWTYPE;
227: BEGIN
228:
229: SAVEPOINT change_structure_status;
230: p_return_status := FND_API.G_RET_STS_SUCCESS;
231: IF NOT FND_API.Compatible_API_Call ( l_api_version_number
232: ,p_api_version_number
233: ,l_api_name
234: ,G_PKG_NAME) THEN
227: BEGIN
228:
229: SAVEPOINT change_structure_status;
230: p_return_status := FND_API.G_RET_STS_SUCCESS;
231: IF NOT FND_API.Compatible_API_Call ( l_api_version_number
232: ,p_api_version_number
233: ,l_api_name
234: ,G_PKG_NAME) THEN
235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
231: IF NOT FND_API.Compatible_API_Call ( l_api_version_number
232: ,p_api_version_number
233: ,l_api_name
234: ,G_PKG_NAME) THEN
235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
236: END IF;
237: IF FND_API.to_boolean(p_init_msg_list) THEN
238: FND_MSG_PUB.initialize;
239: END IF;
233: ,l_api_name
234: ,G_PKG_NAME) THEN
235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
236: END IF;
237: IF FND_API.to_boolean(p_init_msg_list) THEN
238: FND_MSG_PUB.initialize;
239: END IF;
240: l_responsibility_id := FND_GLOBAL.Resp_id;
241: l_user_id := FND_GLOBAL.User_id;
253: p_msg_data => p_msg_data,
254: p_return_status => p_return_status,
255: p_function_allowed => l_function_allowed );
256:
257: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
260: RAISE FND_API.G_EXC_ERROR;
261: END IF;
254: p_return_status => p_return_status,
255: p_function_allowed => l_function_allowed );
256:
257: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
260: RAISE FND_API.G_EXC_ERROR;
261: END IF;
262:
255: p_function_allowed => l_function_allowed );
256:
257: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
260: RAISE FND_API.G_EXC_ERROR;
261: END IF;
262:
263: IF l_function_allowed is NULL OR l_function_allowed = 'N' THEN
256:
257: IF p_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259: ELSIF p_return_status = FND_API.G_RET_STS_ERROR THEN
260: RAISE FND_API.G_EXC_ERROR;
261: END IF;
262:
263: IF l_function_allowed is NULL OR l_function_allowed = 'N' THEN
264: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
262:
263: IF l_function_allowed is NULL OR l_function_allowed = 'N' THEN
264: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
265: FND_MSG_PUB.add;
266: p_return_status := FND_API.G_RET_STS_ERROR;
267: RAISE FND_API.G_EXC_ERROR;
268: END IF;
269:
270: OPEN version_info;
263: IF l_function_allowed is NULL OR l_function_allowed = 'N' THEN
264: FND_MESSAGE.SET_NAME('PA','PA_FUNCTION_SECURITY_ENFORCED');
265: FND_MSG_PUB.add;
266: p_return_status := FND_API.G_RET_STS_ERROR;
267: RAISE FND_API.G_EXC_ERROR;
268: END IF;
269:
270: OPEN version_info;
271: FETCH version_info INTO str;
293: ,x_msg_count => p_msg_count
294: ,x_msg_data => p_msg_data
295: );
296:
297: IF FND_API.to_boolean(p_commit) THEN
298: IF (p_return_status is NOT NULL and p_return_status = 'S') THEN
299: COMMIT;
300: END IF;
301: END IF;
313: ,p_attribute3 => ''
314: ,p_attribute4 => ''
315: ,p_attribute5 => '');
316:
317: WHEN FND_API.G_EXC_ERROR THEN
318: p_return_status := FND_API.G_RET_STS_ERROR;
319: ROLLBACK TO change_structure_status;
320: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
321: ,p_data => p_msg_data);
314: ,p_attribute4 => ''
315: ,p_attribute5 => '');
316:
317: WHEN FND_API.G_EXC_ERROR THEN
318: p_return_status := FND_API.G_RET_STS_ERROR;
319: ROLLBACK TO change_structure_status;
320: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
321: ,p_data => p_msg_data);
322:
319: ROLLBACK TO change_structure_status;
320: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
321: ,p_data => p_msg_data);
322:
323: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
324: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
325: ROLLBACK TO change_structure_status;
326: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
327: ,p_data => p_msg_data);
320: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
321: ,p_data => p_msg_data);
322:
323: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
324: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
325: ROLLBACK TO change_structure_status;
326: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
327: ,p_data => p_msg_data);
328:
326: FND_MSG_PUB.Count_And_Get(p_count => p_msg_count
327: ,p_data => p_msg_data);
328:
329: WHEN OTHERS THEN
330: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
331: ROLLBACK TO change_structure_status;
332:
333: IF FND_MSG_PUB.Check_Msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
334: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);