55: END IF;
56: --
57:
58: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
59: FND_MSG_PUB.initialize ;
60: END IF;
61: --
62: p_return_status := FND_API.G_RET_STS_SUCCESS ;
63: --
104: IF FND_API.To_Boolean ( p_commit ) THEN
105: COMMIT WORK;
106: END iF;
107: --
108: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
109: p_data => p_msg_data );
110: --
111: EXCEPTION
112: --
113: WHEN FND_API.G_EXC_ERROR THEN
114: --
115: ROLLBACK TO Insert_Row_Pvt ;
116: p_return_status := FND_API.G_RET_STS_ERROR;
117: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
118: p_data => p_msg_data );
119: --
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: --
120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
121: --
122: ROLLBACK TO Insert_Row_Pvt ;
123: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
125: p_data => p_msg_data );
126: --
127: WHEN OTHERS THEN
128: --
128: --
129: ROLLBACK TO Insert_Row_Pvt ;
130: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
131: --
132: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
133: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
134: l_api_name);
135: END if;
136: --
129: ROLLBACK TO Insert_Row_Pvt ;
130: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
131: --
132: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
133: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
134: l_api_name);
135: END if;
136: --
137: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
133: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
134: l_api_name);
135: END if;
136: --
137: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
138: p_data => p_msg_data );
139: --
140: END Insert_Row;
141: /*-------------------------------------------------------------------------*/
190: END IF;
191: --
192:
193: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
194: FND_MSG_PUB.initialize ;
195: END IF;
196: --
197: p_return_status := FND_API.G_RET_STS_SUCCESS ;
198: p_row_locked := FND_API.G_TRUE ;
202: FETCH C INTO Recinfo;
203: IF (C%NOTFOUND) then
204: CLOSE C;
205: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
206: FND_MSG_PUB.Add;
207: RAISE FND_API.G_EXC_ERROR ;
208: END IF;
209: CLOSE C;
210: IF
227: THEN
228: Null;
229: ELSE
230: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
231: FND_MSG_PUB.Add;
232: RAISE FND_API.G_EXC_ERROR ;
233: END IF;
234:
235: --
236: IF FND_API.To_Boolean ( p_commit ) THEN
237: COMMIT WORK;
238: END iF;
239: --
240: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
241: p_data => p_msg_data );
242: --
243: EXCEPTION
244: --
246: --
247: ROLLBACK TO Lock_Row_Pvt ;
248: p_row_locked := FND_API.G_FALSE;
249: p_return_status := FND_API.G_RET_STS_ERROR;
250: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
251: p_data => p_msg_data );
252: --
253: WHEN FND_API.G_EXC_ERROR THEN
254: --
253: WHEN FND_API.G_EXC_ERROR THEN
254: --
255: ROLLBACK TO Lock_Row_Pvt ;
256: p_return_status := FND_API.G_RET_STS_ERROR;
257: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
258: p_data => p_msg_data );
259: --
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
261: --
260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
261: --
262: ROLLBACK TO Lock_Row_Pvt ;
263: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
264: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
265: p_data => p_msg_data );
266: --
267: WHEN OTHERS THEN
268: --
268: --
269: ROLLBACK TO Lock_Row_Pvt ;
270: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: --
272: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
273: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
274: l_api_name);
275: END if;
276: --
269: ROLLBACK TO Lock_Row_Pvt ;
270: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
271: --
272: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
273: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
274: l_api_name);
275: END if;
276: --
277: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
273: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
274: l_api_name);
275: END if;
276: --
277: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
278: p_data => p_msg_data );
279: --
280: END Lock_Row;
281: /* ----------------------------------------------------------------------- */
324: END IF;
325: --
326:
327: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
328: FND_MSG_PUB.initialize ;
329: END IF;
330: --
331: p_return_status := FND_API.G_RET_STS_SUCCESS ;
332: --
350: IF FND_API.To_Boolean ( p_commit ) THEN
351: COMMIT WORK;
352: END iF;
353: --
354: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
355: p_data => p_msg_data );
356: --
357: EXCEPTION
358: --
359: WHEN FND_API.G_EXC_ERROR THEN
360: --
361: ROLLBACK TO Update_Row_Pvt ;
362: p_return_status := FND_API.G_RET_STS_ERROR;
363: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
364: p_data => p_msg_data );
365: --
366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
367: --
366: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
367: --
368: ROLLBACK TO Update_Row_Pvt ;
369: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
370: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
371: p_data => p_msg_data );
372: --
373: WHEN OTHERS THEN
374: --
374: --
375: ROLLBACK TO Update_Row_Pvt ;
376: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
377: --
378: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
379: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
380: l_api_name);
381: END if;
382: --
375: ROLLBACK TO Update_Row_Pvt ;
376: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
377: --
378: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
379: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
380: l_api_name);
381: END if;
382: --
383: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
379: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
380: l_api_name);
381: END if;
382: --
383: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
384: p_data => p_msg_data );
385: --
386: END Update_Row;
387: /* ----------------------------------------------------------------------- */
423: END IF;
424: --
425:
426: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
427: FND_MSG_PUB.initialize ;
428: END IF;
429: --
430: p_return_status := FND_API.G_RET_STS_SUCCESS ;
431: --
444: IF FND_API.To_Boolean ( p_commit ) THEN
445: COMMIT WORK;
446: END iF;
447: --
448: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
449: p_data => p_msg_data );
450:
451: EXCEPTION
452: --
453: WHEN FND_API.G_EXC_ERROR THEN
454: --
455: ROLLBACK TO Delete_Row_Pvt ;
456: p_return_status := FND_API.G_RET_STS_ERROR;
457: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
458: p_data => p_msg_data );
459: --
460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
461: --
460: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
461: --
462: ROLLBACK TO Delete_Row_Pvt ;
463: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
464: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
465: p_data => p_msg_data );
466: --
467: WHEN OTHERS THEN
468: --
468: --
469: ROLLBACK TO Delete_Row_Pvt ;
470: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471: --
472: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
473: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
474: l_api_name);
475: END if;
476: --
469: ROLLBACK TO Delete_Row_Pvt ;
470: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471: --
472: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
473: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
474: l_api_name);
475: END if;
476: --
477: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
473: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
474: l_api_name);
475: END if;
476: --
477: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
478: p_data => p_msg_data );
479: --
480: END Delete_Row;
481: /* ----------------------------------------------------------------------- */
547: END IF;
548: --
549:
550: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
551: FND_MSG_PUB.initialize ;
552: END IF;
553: --
554: p_return_status := FND_API.G_RET_STS_SUCCESS ;
555: --
570: IF FND_API.To_Boolean ( p_commit ) THEN
571: COMMIT WORK;
572: END iF;
573: --
574: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
575: p_data => p_msg_data );
576: --
577: EXCEPTION
578: --
579: WHEN FND_API.G_EXC_ERROR THEN
580: --
581: ROLLBACK TO Check_Unique_Pvt ;
582: p_return_status := FND_API.G_RET_STS_ERROR;
583: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
584: p_data => p_msg_data );
585: --
586: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
587: --
586: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
587: --
588: ROLLBACK TO Check_Unique_Pvt ;
589: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
590: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
591: p_data => p_msg_data );
592: --
593: WHEN OTHERS THEN
594: --
594: --
595: ROLLBACK TO Check_Unique_Pvt ;
596: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
597: --
598: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
599: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
600: l_api_name);
601: END if;
602: --
595: ROLLBACK TO Check_Unique_Pvt ;
596: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
597: --
598: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
599: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
600: l_api_name);
601: END if;
602: --
603: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
599: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
600: l_api_name);
601: END if;
602: --
603: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
604: p_data => p_msg_data );
605: --
606: END Check_Unique;
607: /* ----------------------------------------------------------------------- */
651: END IF;
652: --
653:
654: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
655: FND_MSG_PUB.initialize ;
656: END IF;
657: --
658: p_return_status := FND_API.G_RET_STS_SUCCESS ;
659: --
674: IF FND_API.To_Boolean ( p_commit ) THEN
675: COMMIT WORK;
676: END iF;
677: --
678: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
679: p_data => p_msg_data );
680:
681: EXCEPTION
682: --
683: WHEN FND_API.G_EXC_ERROR THEN
684: --
685: ROLLBACK TO Check_References_Pvt ;
686: p_return_status := FND_API.G_RET_STS_ERROR;
687: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
688: p_data => p_msg_data );
689: --
690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
691: --
690: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
691: --
692: ROLLBACK TO Check_References_Pvt ;
693: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
694: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
695: p_data => p_msg_data );
696: --
697: WHEN OTHERS THEN
698: --
698: --
699: ROLLBACK TO Check_References_Pvt ;
700: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: --
702: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
703: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
704: l_api_name);
705: END if;
706: --
699: ROLLBACK TO Check_References_Pvt ;
700: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
701: --
702: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
703: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
704: l_api_name);
705: END if;
706: --
707: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
703: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
704: l_api_name);
705: END if;
706: --
707: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
708: p_data => p_msg_data );
709: --
710: END Check_References;
711: /*-------------------------------------------------------------------------*/