68: END IF;
69:
70:
71: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
72: FND_MSG_PUB.initialize ;
73: END IF;
74:
75: X_return_status := FND_API.G_RET_STS_SUCCESS ;
76:
118: IF FND_API.To_Boolean ( p_commit ) THEN
119: COMMIT WORK;
120: END iF;
121:
122: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
123: p_data => X_msg_data );
124:
125: EXCEPTION
126:
127: WHEN FND_API.G_EXC_ERROR THEN
128:
129: ROLLBACK TO Insert_Row_Pvt ;
130: X_return_status := FND_API.G_RET_STS_ERROR;
131: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
132: p_data => X_msg_data );
133:
134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
135:
134: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
135:
136: ROLLBACK TO Insert_Row_Pvt ;
137: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
138: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
139: p_data => X_msg_data );
140:
141: WHEN OTHERS THEN
142:
142:
143: ROLLBACK TO Insert_Row_Pvt ;
144: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
145:
146: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
147: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
148: l_api_name);
149: END if;
150:
143: ROLLBACK TO Insert_Row_Pvt ;
144: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
145:
146: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
147: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
148: l_api_name);
149: END if;
150:
151: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
147: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
148: l_api_name);
149: END if;
150:
151: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
152: p_data => X_msg_data );
153:
154: END Insert_Row;
155:
210: END IF;
211:
212:
213: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
214: FND_MSG_PUB.initialize ;
215: END IF;
216:
217: X_return_status := FND_API.G_RET_STS_SUCCESS ;
218: X_row_locked := FND_API.G_TRUE ;
223: FETCH C INTO Recinfo;
224: if (C%NOTFOUND) then
225: CLOSE C;
226: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
227: FND_MSG_PUB.Add;
228: RAISE FND_API.G_EXC_ERROR ;
229: end if;
230:
231: CLOSE C;
271: ) then
272: null;
273: else
274: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
275: FND_MSG_PUB.Add;
276: RAISE FND_API.G_EXC_ERROR ;
277:
278: end if;
279:
280: IF FND_API.To_Boolean ( p_commit ) THEN
281: COMMIT WORK;
282: END iF;
283:
284: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
285: p_data => X_msg_data );
286:
287: EXCEPTION
288:
290:
291: ROLLBACK TO Lock_Row_Pvt ;
292: X_row_locked := FND_API.G_FALSE;
293: X_return_status := FND_API.G_RET_STS_ERROR;
294: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
295: p_data => X_msg_data );
296:
297: WHEN FND_API.G_EXC_ERROR THEN
298:
297: WHEN FND_API.G_EXC_ERROR THEN
298:
299: ROLLBACK TO Lock_Row_Pvt ;
300: X_return_status := FND_API.G_RET_STS_ERROR;
301: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
302: p_data => X_msg_data );
303:
304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
305:
304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
305:
306: ROLLBACK TO Lock_Row_Pvt ;
307: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
308: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
309: p_data => X_msg_data );
310:
311: WHEN OTHERS THEN
312:
312:
313: ROLLBACK TO Lock_Row_Pvt ;
314: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315:
316: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
317: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
318: l_api_name);
319: END if;
320:
313: ROLLBACK TO Lock_Row_Pvt ;
314: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315:
316: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
317: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
318: l_api_name);
319: END if;
320:
321: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
317: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
318: l_api_name);
319: END if;
320:
321: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
322: p_data => X_msg_data );
323:
324: END Lock_Row;
325:
369: END IF;
370:
371:
372: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
373: FND_MSG_PUB.initialize ;
374: END IF;
375:
376: X_return_status := FND_API.G_RET_STS_SUCCESS ;
377:
399: IF FND_API.To_Boolean ( p_commit ) THEN
400: COMMIT WORK;
401: END iF;
402:
403: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
404: p_data => X_msg_data );
405:
406: EXCEPTION
407:
408: WHEN FND_API.G_EXC_ERROR THEN
409:
410: ROLLBACK TO Update_Row_Pvt ;
411: X_return_status := FND_API.G_RET_STS_ERROR;
412: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
413: p_data => X_msg_data );
414:
415: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
416:
415: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
416:
417: ROLLBACK TO Update_Row_Pvt ;
418: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
419: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
420: p_data => X_msg_data );
421:
422: WHEN OTHERS THEN
423:
423:
424: ROLLBACK TO Update_Row_Pvt ;
425: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426:
427: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
428: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
429: l_api_name);
430: END if;
431:
424: ROLLBACK TO Update_Row_Pvt ;
425: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426:
427: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
428: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
429: l_api_name);
430: END if;
431:
432: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
428: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
429: l_api_name);
430: END if;
431:
432: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
433: p_data => X_msg_data );
434:
435: END Update_Row;
436:
470: END IF;
471:
472:
473: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
474: FND_MSG_PUB.initialize ;
475: END IF ;
476:
477: X_return_status := FND_API.G_RET_STS_SUCCESS ;
478:
485: IF FND_API.To_Boolean ( p_commit ) THEN
486: COMMIT WORK;
487: END iF;
488:
489: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
490: p_data => X_msg_data );
491:
492: EXCEPTION
493:
494: WHEN FND_API.G_EXC_ERROR THEN
495:
496: ROLLBACK TO Delete_Row_Pvt ;
497: X_return_status := FND_API.G_RET_STS_ERROR;
498: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
499: p_data => X_msg_data );
500:
501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
502:
501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
502:
503: ROLLBACK TO Delete_Row_Pvt ;
504: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
505: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
506: p_data => X_msg_data );
507:
508: WHEN OTHERS THEN
509:
509:
510: ROLLBACK TO Delete_Row_Pvt ;
511: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
512:
513: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
514: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
515: l_api_name);
516: END if;
517:
510: ROLLBACK TO Delete_Row_Pvt ;
511: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
512:
513: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
514: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
515: l_api_name);
516: END if;
517:
518: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
514: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
515: l_api_name);
516: END if;
517:
518: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
519: p_data => X_msg_data );
520:
521: END Delete_Row;
522: