45: END IF;
46: --
47:
48: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
49: FND_MSG_PUB.initialize ;
50: END IF;
51: --
52: p_return_status := FND_API.G_RET_STS_SUCCESS ;
53: --
92: IF FND_API.To_Boolean ( p_commit ) THEN
93: COMMIT WORK;
94: END iF;
95: --
96: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
97: p_data => p_msg_data );
98: --
99: EXCEPTION
100: --
101: WHEN FND_API.G_EXC_ERROR THEN
102: --
103: ROLLBACK TO Insert_Row_Pvt ;
104: p_return_status := FND_API.G_RET_STS_ERROR;
105: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
106: p_data => p_msg_data );
107: --
108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
109: --
108: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
109: --
110: ROLLBACK TO Insert_Row_Pvt ;
111: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
112: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
113: p_data => p_msg_data );
114: --
115: WHEN OTHERS THEN
116: --
116: --
117: ROLLBACK TO Insert_Row_Pvt ;
118: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
119: --
120: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
121: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
122: l_api_name);
123: END if;
124: --
117: ROLLBACK TO Insert_Row_Pvt ;
118: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
119: --
120: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
121: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
122: l_api_name);
123: END if;
124: --
125: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
121: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
122: l_api_name);
123: END if;
124: --
125: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
126: p_data => p_msg_data );
127: --
128: END Insert_Row;
129:
173: END IF;
174: --
175:
176: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
177: FND_MSG_PUB.initialize ;
178: END IF;
179: --
180: p_return_status := FND_API.G_RET_STS_SUCCESS ;
181: --
204: THEN
205: p_lock_row := FND_API.G_TRUE;
206: ELSE
207: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
208: FND_MSG_PUB.Add;
209: RAISE FND_API.G_EXC_ERROR ;
210: END IF;
211:
212: --
213: IF FND_API.To_Boolean ( p_commit ) THEN
214: COMMIT WORK;
215: END iF;
216: --
217: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
218: p_data => p_msg_data );
219: --
220: EXCEPTION
221: --
223: --
224: ROLLBACK TO Lock_Row_Pvt ;
225: p_lock_row := FND_API.G_FALSE;
226: p_return_status := FND_API.G_RET_STS_ERROR;
227: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
228: p_data => p_msg_data );
229: --
230: WHEN FND_API.G_EXC_ERROR THEN
231: --
231: --
232: ROLLBACK TO Lock_Row_Pvt ;
233: p_lock_row := FND_API.G_FALSE;
234: p_return_status := FND_API.G_RET_STS_ERROR;
235: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
236: p_data => p_msg_data );
237: --
238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
239: --
238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
239: --
240: ROLLBACK TO Lock_Row_Pvt ;
241: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
242: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
243: p_data => p_msg_data );
244: --
245: WHEN OTHERS THEN
246: --
246: --
247: ROLLBACK TO Lock_Row_Pvt ;
248: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
249: --
250: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
251: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
252: l_api_name);
253: END if;
254: --
247: ROLLBACK TO Lock_Row_Pvt ;
248: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
249: --
250: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
251: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
252: l_api_name);
253: END if;
254: --
255: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
251: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
252: l_api_name);
253: END if;
254: --
255: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
256: p_data => p_msg_data );
257: --
258: END Lock_Row;
259:
293: END IF;
294: --
295:
296: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
297: FND_MSG_PUB.initialize ;
298: END IF;
299: --
300: p_return_status := FND_API.G_RET_STS_SUCCESS ;
301: --
318: IF FND_API.To_Boolean ( p_commit ) THEN
319: COMMIT WORK;
320: END iF;
321: --
322: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
323: p_data => p_msg_data );
324: --
325: EXCEPTION
326: --
327: WHEN FND_API.G_EXC_ERROR THEN
328: --
329: ROLLBACK TO Update_Row_Pvt ;
330: p_return_status := FND_API.G_RET_STS_ERROR;
331: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
332: p_data => p_msg_data );
333: --
334: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
335: --
334: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
335: --
336: ROLLBACK TO Update_Row_Pvt ;
337: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
338: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
339: p_data => p_msg_data );
340: --
341: WHEN OTHERS THEN
342: --
342: --
343: ROLLBACK TO Update_Row_Pvt ;
344: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
345: --
346: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
347: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
348: l_api_name);
349: END if;
350: --
343: ROLLBACK TO Update_Row_Pvt ;
344: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
345: --
346: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
347: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
348: l_api_name);
349: END if;
350: --
351: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
347: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
348: l_api_name);
349: END if;
350: --
351: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
352: p_data => p_msg_data );
353: --
354: END Update_Row;
355:
383: END IF;
384: --
385:
386: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
387: FND_MSG_PUB.initialize ;
388: END IF;
389: --
390: p_return_status := FND_API.G_RET_STS_SUCCESS ;
391: --
401: IF FND_API.To_Boolean ( p_commit ) THEN
402: COMMIT WORK;
403: END iF;
404: --
405: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
406: p_data => p_msg_data );
407:
408: EXCEPTION
409: --
410: WHEN FND_API.G_EXC_ERROR THEN
411: --
412: ROLLBACK TO Delete_Row_Pvt ;
413: p_return_status := FND_API.G_RET_STS_ERROR;
414: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
415: p_data => p_msg_data );
416: --
417: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
418: --
417: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
418: --
419: ROLLBACK TO Delete_Row_Pvt ;
420: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
421: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
422: p_data => p_msg_data );
423: --
424: WHEN OTHERS THEN
425: --
425: --
426: ROLLBACK TO Delete_Row_Pvt ;
427: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
428: --
429: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
430: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
431: l_api_name);
432: END if;
433: --
426: ROLLBACK TO Delete_Row_Pvt ;
427: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
428: --
429: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
430: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
431: l_api_name);
432: END if;
433: --
434: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
430: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
431: l_api_name);
432: END if;
433: --
434: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
435: p_data => p_msg_data );
436: --
437: END Delete_Row;
438: