53: END IF;
54:
55:
56: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
57: FND_MSG_PUB.initialize ;
58: END IF;
59:
60: p_return_status := FND_API.G_RET_STS_SUCCESS ;
61:
95: IF FND_API.To_Boolean ( p_commit ) THEN
96: COMMIT WORK;
97: END iF;
98:
99: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
100: p_data => p_msg_data );
101:
102: EXCEPTION
103:
104: WHEN FND_API.G_EXC_ERROR THEN
105:
106: ROLLBACK TO Insert_Row_Pvt ;
107: p_return_status := FND_API.G_RET_STS_ERROR;
108: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
109: p_data => p_msg_data );
110:
111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
112:
111: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
112:
113: ROLLBACK TO Insert_Row_Pvt ;
114: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
115: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
116: p_data => p_msg_data );
117:
118: WHEN OTHERS THEN
119:
119:
120: ROLLBACK TO Insert_Row_Pvt ;
121: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122:
123: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
124: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
125: l_api_name);
126: END if;
127:
120: ROLLBACK TO Insert_Row_Pvt ;
121: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122:
123: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
124: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
125: l_api_name);
126: END if;
127:
128: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
124: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
125: l_api_name);
126: END if;
127:
128: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
129: p_data => p_msg_data );
130:
131: END Insert_Row;
132: /*-------------------------------------------------------------------------*/
180: END IF;
181:
182:
183: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
184: FND_MSG_PUB.initialize ;
185: END IF;
186:
187: p_return_status := FND_API.G_RET_STS_SUCCESS ;
188: p_row_locked := FND_API.G_TRUE ;
192: FETCH C INTO Recinfo;
193: IF (C%NOTFOUND) then
194: CLOSE C;
195: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
196: FND_MSG_PUB.Add;
197: RAISE FND_API.G_EXC_ERROR ;
198: END IF;
199: CLOSE C;
200: IF ( (Recinfo.org_id = p_org_id)
206: ) THEN
207: Null;
208: ELSE
209: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
210: FND_MSG_PUB.Add;
211: RAISE FND_API.G_EXC_ERROR ;
212: END IF;
213:
214:
215: IF FND_API.To_Boolean ( p_commit ) THEN
216: COMMIT WORK;
217: END iF;
218:
219: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
220: p_data => p_msg_data );
221:
222: EXCEPTION
223:
225:
226: ROLLBACK TO Lock_Row_Pvt ;
227: p_row_locked := FND_API.G_FALSE;
228: p_return_status := FND_API.G_RET_STS_ERROR;
229: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
230: p_data => p_msg_data );
231:
232: WHEN FND_API.G_EXC_ERROR THEN
233:
232: WHEN FND_API.G_EXC_ERROR THEN
233:
234: ROLLBACK TO Lock_Row_Pvt ;
235: p_return_status := FND_API.G_RET_STS_ERROR;
236: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
237: p_data => p_msg_data );
238:
239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
240:
239: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
240:
241: ROLLBACK TO Lock_Row_Pvt ;
242: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
243: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
244: p_data => p_msg_data );
245:
246: WHEN OTHERS THEN
247:
247:
248: ROLLBACK TO Lock_Row_Pvt ;
249: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
250:
251: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
252: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
253: l_api_name);
254: END if;
255:
248: ROLLBACK TO Lock_Row_Pvt ;
249: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
250:
251: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
252: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
253: l_api_name);
254: END if;
255:
256: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
252: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
253: l_api_name);
254: END if;
255:
256: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
257: p_data => p_msg_data );
258:
259: END Lock_Row;
260: /* ----------------------------------------------------------------------- */
302: END IF;
303:
304:
305: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
306: FND_MSG_PUB.initialize ;
307: END IF;
308:
309: p_return_status := FND_API.G_RET_STS_SUCCESS ;
310:
326: IF FND_API.To_Boolean ( p_commit ) THEN
327: COMMIT WORK;
328: END iF;
329:
330: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
331: p_data => p_msg_data );
332:
333: EXCEPTION
334:
335: WHEN FND_API.G_EXC_ERROR THEN
336:
337: ROLLBACK TO Update_Row_Pvt ;
338: p_return_status := FND_API.G_RET_STS_ERROR;
339: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
340: p_data => p_msg_data );
341:
342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
343:
342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
343:
344: ROLLBACK TO Update_Row_Pvt ;
345: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
346: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
347: p_data => p_msg_data );
348:
349: WHEN OTHERS THEN
350:
350:
351: ROLLBACK TO Update_Row_Pvt ;
352: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
353:
354: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
355: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
356: l_api_name);
357: END if;
358:
351: ROLLBACK TO Update_Row_Pvt ;
352: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
353:
354: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
355: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
356: l_api_name);
357: END if;
358:
359: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
355: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
356: l_api_name);
357: END if;
358:
359: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
360: p_data => p_msg_data );
361:
362: END Update_Row;
363: /* ----------------------------------------------------------------------- */
402: END IF;
403:
404:
405: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
406: FND_MSG_PUB.initialize ;
407: END IF ;
408:
409: p_return_status := FND_API.G_RET_STS_SUCCESS ;
410:
422: IF FND_API.To_Boolean ( p_commit ) THEN
423: COMMIT WORK;
424: END iF;
425:
426: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
427: p_data => p_msg_data );
428:
429: EXCEPTION
430:
431: WHEN FND_API.G_EXC_ERROR THEN
432:
433: ROLLBACK TO Delete_Row_Pvt ;
434: p_return_status := FND_API.G_RET_STS_ERROR;
435: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
436: p_data => p_msg_data );
437:
438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
439:
438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
439:
440: ROLLBACK TO Delete_Row_Pvt ;
441: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
442: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
443: p_data => p_msg_data );
444:
445: WHEN OTHERS THEN
446:
446:
447: ROLLBACK TO Delete_Row_Pvt ;
448: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449:
450: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
451: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
452: l_api_name);
453: END if;
454:
447: ROLLBACK TO Delete_Row_Pvt ;
448: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
449:
450: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
451: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
452: l_api_name);
453: END if;
454:
455: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
451: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
452: l_api_name);
453: END if;
454:
455: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
456: p_data => p_msg_data );
457:
458: END Delete_Row;
459:
510: END IF;
511:
512:
513: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
514: FND_MSG_PUB.initialize ;
515: END IF;
516:
517: p_return_status := FND_API.G_RET_STS_SUCCESS ;
518:
532: IF FND_API.To_Boolean ( p_commit ) THEN
533: COMMIT WORK;
534: END iF;
535:
536: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
537: p_data => p_msg_data );
538:
539: EXCEPTION
540:
541: WHEN FND_API.G_EXC_ERROR THEN
542:
543: ROLLBACK TO Check_Unique_Pvt ;
544: p_return_status := FND_API.G_RET_STS_ERROR;
545: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
546: p_data => p_msg_data );
547:
548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
549:
548: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
549:
550: ROLLBACK TO Check_Unique_Pvt ;
551: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
552: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
553: p_data => p_msg_data );
554:
555: WHEN OTHERS THEN
556:
556:
557: ROLLBACK TO Check_Unique_Pvt ;
558: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
559:
560: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
561: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
562: l_api_name);
563: END if;
564:
557: ROLLBACK TO Check_Unique_Pvt ;
558: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
559:
560: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
561: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
562: l_api_name);
563: END if;
564:
565: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
561: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
562: l_api_name);
563: END if;
564:
565: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
566: p_data => p_msg_data );
567:
568: END Check_Unique;
569: /* ----------------------------------------------------------------------- */