56: END IF;
57: --
58:
59: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
60: FND_MSG_PUB.initialize ;
61: END IF;
62: --
63: p_return_status := FND_API.G_RET_STS_SUCCESS ;
64: --
109: IF FND_API.To_Boolean ( p_commit ) THEN
110: COMMIT WORK;
111: END iF;
112: --
113: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
114: p_data => p_msg_data );
115: --
116: EXCEPTION
117: --
118: WHEN FND_API.G_EXC_ERROR THEN
119: --
120: ROLLBACK TO Insert_Row_Pvt ;
121: p_return_status := FND_API.G_RET_STS_ERROR;
122: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
123: p_data => p_msg_data );
124: --
125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
126: --
125: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
126: --
127: ROLLBACK TO Insert_Row_Pvt ;
128: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
129: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
130: p_data => p_msg_data );
131: --
132: WHEN OTHERS THEN
133: --
133: --
134: ROLLBACK TO Insert_Row_Pvt ;
135: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
136: --
137: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
138: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
139: l_api_name);
140: END if;
141: --
134: ROLLBACK TO Insert_Row_Pvt ;
135: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
136: --
137: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
138: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
139: l_api_name);
140: END if;
141: --
142: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
138: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
139: l_api_name);
140: END if;
141: --
142: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
143: p_data => p_msg_data );
144: --
145: END Insert_Row;
146: /*-------------------------------------------------------------------------*/
200: END IF;
201: --
202:
203: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
204: FND_MSG_PUB.initialize ;
205: END IF;
206: --
207: p_return_status := FND_API.G_RET_STS_SUCCESS ;
208: p_row_locked := FND_API.G_TRUE ;
212: FETCH C INTO Recinfo;
213: IF (C%NOTFOUND) then
214: CLOSE C;
215: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
216: FND_MSG_PUB.Add;
217: RAISE FND_API.G_EXC_ERROR ;
218: END IF;
219: CLOSE C;
220: IF
236: THEN
237: NULL ;
238: ELSE
239: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED') ;
240: FND_MSG_PUB.Add ;
241: RAISE FND_API.G_EXC_ERROR ;
242: END IF;
243:
244: --
245: IF FND_API.To_Boolean ( p_commit ) THEN
246: COMMIT WORK;
247: END iF;
248: --
249: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
250: p_data => p_msg_data );
251: --
252: EXCEPTION
253: --
260: WHEN FND_API.G_EXC_ERROR THEN
261: --
262: ROLLBACK TO Lock_Row_Pvt ;
263: p_return_status := FND_API.G_RET_STS_ERROR;
264: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
265: p_data => p_msg_data );
266: --
267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
268: --
267: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
268: --
269: ROLLBACK TO Lock_Row_Pvt ;
270: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
272: p_data => p_msg_data );
273: --
274: WHEN OTHERS THEN
275: --
275: --
276: ROLLBACK TO Lock_Row_Pvt ;
277: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
278: --
279: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
280: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
281: l_api_name);
282: END if;
283: --
276: ROLLBACK TO Lock_Row_Pvt ;
277: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
278: --
279: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
280: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
281: l_api_name);
282: END if;
283: --
284: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
280: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
281: l_api_name);
282: END if;
283: --
284: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
285: p_data => p_msg_data );
286: --
287: END Lock_Row;
288: /* ----------------------------------------------------------------------- */
332: END IF;
333: --
334:
335: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
336: FND_MSG_PUB.initialize ;
337: END IF;
338: --
339: p_return_status := FND_API.G_RET_STS_SUCCESS ;
340: --
359: IF FND_API.To_Boolean ( p_commit ) THEN
360: COMMIT WORK;
361: END iF;
362: --
363: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
364: p_data => p_msg_data );
365: --
366: EXCEPTION
367: --
368: WHEN FND_API.G_EXC_ERROR THEN
369: --
370: ROLLBACK TO Update_Row_Pvt ;
371: p_return_status := FND_API.G_RET_STS_ERROR;
372: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
373: p_data => p_msg_data );
374: --
375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
376: --
375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
376: --
377: ROLLBACK TO Update_Row_Pvt ;
378: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
379: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
380: p_data => p_msg_data );
381: --
382: WHEN OTHERS THEN
383: --
383: --
384: ROLLBACK TO Update_Row_Pvt ;
385: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
386: --
387: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
388: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
389: l_api_name);
390: END if;
391: --
384: ROLLBACK TO Update_Row_Pvt ;
385: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
386: --
387: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
388: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
389: l_api_name);
390: END if;
391: --
392: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
388: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
389: l_api_name);
390: END if;
391: --
392: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
393: p_data => p_msg_data );
394: --
395: END Update_Row;
396: /* ----------------------------------------------------------------------- */
435: END IF;
436: --
437:
438: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
439: FND_MSG_PUB.initialize ;
440: END IF;
441: --
442: p_return_status := FND_API.G_RET_STS_SUCCESS ;
443: --
456: IF FND_API.To_Boolean ( p_commit ) THEN
457: COMMIT WORK;
458: END iF;
459: --
460: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
461: p_data => p_msg_data );
462:
463: EXCEPTION
464: --
465: WHEN FND_API.G_EXC_ERROR THEN
466: --
467: ROLLBACK TO Delete_Row_Pvt ;
468: p_return_status := FND_API.G_RET_STS_ERROR;
469: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
470: p_data => p_msg_data );
471: --
472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
473: --
472: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
473: --
474: ROLLBACK TO Delete_Row_Pvt ;
475: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
476: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
477: p_data => p_msg_data );
478: --
479: WHEN OTHERS THEN
480: --
480: --
481: ROLLBACK TO Delete_Row_Pvt ;
482: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
483: --
484: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
485: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
486: l_api_name);
487: END if;
488: --
481: ROLLBACK TO Delete_Row_Pvt ;
482: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
483: --
484: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
485: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
486: l_api_name);
487: END if;
488: --
489: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
485: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
486: l_api_name);
487: END if;
488: --
489: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
490: p_data => p_msg_data );
491: --
492: END Delete_Row;
493: /* ----------------------------------------------------------------------- */