33: SAVEPOINT create_budget_line_oh;
34: END IF;
35:
36: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
37: fnd_msg_pub.initialize;
38: end if;
39:
40: x_return_status := 'S';
41:
52: ,p_calculated_cost_sharing => p_calculated_cost_sharing);
53:
54: end if; -- p_validate_only = 'Y'
55:
56: l_msg_count := FND_MSG_PUB.count_msg;
57: If l_msg_count > 0 THEN
58: x_msg_count := l_msg_count;
59: If l_msg_count = 1 THEN
60: fnd_msg_pub.get
56: l_msg_count := FND_MSG_PUB.count_msg;
57: If l_msg_count > 0 THEN
58: x_msg_count := l_msg_count;
59: If l_msg_count = 1 THEN
60: fnd_msg_pub.get
61: (p_encoded => FND_API.G_TRUE ,
62: p_msg_index => 1,
63: p_data => l_data,
64: p_msg_index_out => l_msg_index_out );
74: IF p_commit = FND_API.G_TRUE THEN
75: ROLLBACK TO create_budget_line_oh;
76: END IF;
77: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
79: p_procedure_name => l_api_name,
80: p_error_text => SUBSTRB(SQLERRM,1,240));
81: fnd_msg_pub.count_and_get(p_count => x_msg_count
82: ,p_data => x_msg_data);
77: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
78: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
79: p_procedure_name => l_api_name,
80: p_error_text => SUBSTRB(SQLERRM,1,240));
81: fnd_msg_pub.count_and_get(p_count => x_msg_count
82: ,p_data => x_msg_data);
83: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
84:
85: WHEN FND_API.G_EXC_ERROR THEN
92: IF p_commit = FND_API.G_TRUE THEN
93: ROLLBACK TO create_budget_line_oh;
94: END IF;
95: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
96: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
97: p_procedure_name => l_api_name,
98: p_error_text => SUBSTRB(SQLERRM,1,240));
99: fnd_msg_pub.count_and_get(p_count => x_msg_count
100: ,p_data => x_msg_data);
95: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
96: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
97: p_procedure_name => l_api_name,
98: p_error_text => SUBSTRB(SQLERRM,1,240));
99: fnd_msg_pub.count_and_get(p_count => x_msg_count
100: ,p_data => x_msg_data);
101: RAISE;
102:
103:
141: SAVEPOINT update_budget_line_oh;
142: END IF;
143:
144: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
145: fnd_msg_pub.initialize;
146: end if;
147:
148: x_return_status := 'S';
149:
156: AND record_version_number = p_record_version_number;
157: EXCEPTION
158: WHEN NO_DATA_FOUND THEN
159: FND_MESSAGE.SET_NAME('IGW','IGW_SS_RECORD_CHANGED');
160: FND_MSG_PUB.Add;
161: x_msg_data := 'IGW_SS_RECORD_CHANGED';
162: x_return_status := 'E' ;
163: END;
164:
161: x_msg_data := 'IGW_SS_RECORD_CHANGED';
162: x_return_status := 'E' ;
163: END;
164:
165: l_msg_count := FND_MSG_PUB.count_msg;
166:
167: IF l_msg_count > 0 THEN
168: x_msg_count := l_msg_count;
169: x_return_status := 'E';
167: IF l_msg_count > 0 THEN
168: x_msg_count := l_msg_count;
169: x_return_status := 'E';
170: If l_msg_count = 1 THEN
171: fnd_msg_pub.get
172: (p_encoded => FND_API.G_TRUE ,
173: p_msg_index => 1,
174: p_data => l_data,
175: p_msg_index_out => l_msg_index_out );
214:
215: end if; -- p_validate_only = 'Y'
216:
217:
218: l_msg_count := FND_MSG_PUB.count_msg;
219: If l_msg_count > 0 THEN
220: x_msg_count := l_msg_count;
221: If l_msg_count = 1 THEN
222: fnd_msg_pub.get
218: l_msg_count := FND_MSG_PUB.count_msg;
219: If l_msg_count > 0 THEN
220: x_msg_count := l_msg_count;
221: If l_msg_count = 1 THEN
222: fnd_msg_pub.get
223: (p_encoded => FND_API.G_TRUE ,
224: p_msg_index => 1,
225: p_data => l_data,
226: p_msg_index_out => l_msg_index_out );
236: IF p_commit = FND_API.G_TRUE THEN
237: ROLLBACK TO update_budget_line_oh;
238: END IF;
239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
240: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
241: p_procedure_name => l_api_name,
242: p_error_text => SUBSTRB(SQLERRM,1,240));
243: fnd_msg_pub.count_and_get(p_count => x_msg_count
244: ,p_data => x_msg_data);
239: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
240: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
241: p_procedure_name => l_api_name,
242: p_error_text => SUBSTRB(SQLERRM,1,240));
243: fnd_msg_pub.count_and_get(p_count => x_msg_count
244: ,p_data => x_msg_data);
245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
246:
247: WHEN FND_API.G_EXC_ERROR THEN
254: IF p_commit = FND_API.G_TRUE THEN
255: ROLLBACK TO update_budget_line_oh;
256: END IF;
257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
258: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
259: p_procedure_name => l_api_name,
260: p_error_text => SUBSTRB(SQLERRM,1,240));
261: fnd_msg_pub.count_and_get(p_count => x_msg_count
262: ,p_data => x_msg_data);
257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
258: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
259: p_procedure_name => l_api_name,
260: p_error_text => SUBSTRB(SQLERRM,1,240));
261: fnd_msg_pub.count_and_get(p_count => x_msg_count
262: ,p_data => x_msg_data);
263: RAISE;
264:
265: END; --UPDATE BUDGET LINE OH
296: SAVEPOINT delete_budget_line_oh;
297: END IF;
298:
299: if FND_API.to_boolean(nvl(p_init_msg_list, FND_API.G_FALSE)) then
300: fnd_msg_pub.initialize;
301: end if;
302:
303: x_return_status := 'S';
304:
310: AND record_version_number = p_record_version_number;
311: EXCEPTION
312: WHEN NO_DATA_FOUND THEN
313: FND_MESSAGE.SET_NAME('IGW','IGW_SS_RECORD_CHANGED');
314: FND_MSG_PUB.Add;
315: x_msg_data := 'IGW_SS_RECORD_CHANGED';
316: x_return_status := 'E' ;
317: END;
318:
315: x_msg_data := 'IGW_SS_RECORD_CHANGED';
316: x_return_status := 'E' ;
317: END;
318:
319: l_msg_count := FND_MSG_PUB.count_msg;
320:
321: IF l_msg_count > 0 THEN
322: x_msg_count := l_msg_count;
323: x_return_status := 'E';
321: IF l_msg_count > 0 THEN
322: x_msg_count := l_msg_count;
323: x_return_status := 'E';
324: If l_msg_count = 1 THEN
325: fnd_msg_pub.get
326: (p_encoded => FND_API.G_TRUE ,
327: p_msg_index => 1,
328: p_data => l_data,
329: p_msg_index_out => l_msg_index_out );
341:
342: end if; -- p_validate_only = 'Y'
343:
344:
345: l_msg_count := FND_MSG_PUB.count_msg;
346: If l_msg_count > 0 THEN
347: x_msg_count := l_msg_count;
348: If l_msg_count = 1 THEN
349: fnd_msg_pub.get
345: l_msg_count := FND_MSG_PUB.count_msg;
346: If l_msg_count > 0 THEN
347: x_msg_count := l_msg_count;
348: If l_msg_count = 1 THEN
349: fnd_msg_pub.get
350: (p_encoded => FND_API.G_TRUE ,
351: p_msg_index => 1,
352: p_data => l_data,
353: p_msg_index_out => l_msg_index_out );
363: IF p_commit = FND_API.G_TRUE THEN
364: ROLLBACK TO delete_budget_line_oh;
365: END IF;
366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
367: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
368: p_procedure_name => l_api_name,
369: p_error_text => SUBSTRB(SQLERRM,1,240));
370: fnd_msg_pub.count_and_get(p_count => x_msg_count
371: ,p_data => x_msg_data);
366: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
367: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
368: p_procedure_name => l_api_name,
369: p_error_text => SUBSTRB(SQLERRM,1,240));
370: fnd_msg_pub.count_and_get(p_count => x_msg_count
371: ,p_data => x_msg_data);
372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
373:
374: WHEN FND_API.G_EXC_ERROR THEN
381: IF p_commit = FND_API.G_TRUE THEN
382: ROLLBACK TO delete_budget_line_oh;
383: END IF;
384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
385: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
386: p_procedure_name => l_api_name,
387: p_error_text => SUBSTRB(SQLERRM,1,240));
388: fnd_msg_pub.count_and_get(p_count => x_msg_count
389: ,p_data => x_msg_data);
384: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
385: fnd_msg_pub.add_exc_msg(p_pkg_name => G_package_name,
386: p_procedure_name => l_api_name,
387: p_error_text => SUBSTRB(SQLERRM,1,240));
388: fnd_msg_pub.count_and_get(p_count => x_msg_count
389: ,p_data => x_msg_data);
390: RAISE;
391:
392: