46: END IF;
47:
48:
49: IF FND_API.to_Boolean (p_init_msg_list ) THEN
50: FND_MSG_PUB.initialize ;
51: END IF;
52:
53: X_return_status := FND_API.G_RET_STS_SUCCESS ;
54:
78: IF FND_API.To_Boolean ( p_commit ) THEN
79: COMMIT WORK;
80: END iF;
81:
82: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
83: p_data => X_msg_data );
84:
85: EXCEPTION
86:
87: WHEN FND_API.G_EXC_ERROR THEN
88:
89: ROLLBACK TO Insert_Row_Pvt ;
90: X_return_status := FND_API.G_RET_STS_ERROR;
91: FND_MSG_PUB.Count_And_Get (p_count => X_msg_count,
92: p_data => X_msg_data );
93:
94: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
95:
94: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
95:
96: ROLLBACK TO Insert_Row_Pvt ;
97: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
98: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
99: p_data => X_msg_data );
100:
101: WHEN OTHERS THEN
102:
102:
103: ROLLBACK TO Insert_Row_Pvt ;
104: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
105:
106: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
107: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
108: l_api_name);
109: END if;
110:
103: ROLLBACK TO Insert_Row_Pvt ;
104: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
105:
106: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
107: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
108: l_api_name);
109: END if;
110:
111: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
107: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
108: l_api_name);
109: END if;
110:
111: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
112: p_data => X_msg_data );
113:
114: END Insert_Row;
115:
156: END IF;
157:
158:
159: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
160: FND_MSG_PUB.initialize ;
161: END IF;
162:
163: X_return_status := FND_API.G_RET_STS_SUCCESS ;
164: X_row_locked := FND_API.G_TRUE ;
168: FETCH C INTO Recinfo;
169: if (C%NOTFOUND) then
170: CLOSE C;
171: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
172: FND_MSG_PUB.Add;
173: RAISE FND_API.G_EXC_ERROR;
174: end if;
175: CLOSE C;
176: if (
191: ) then
192: null;
193: else
194: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
195: FND_MSG_PUB.Add;
196: RAISE FND_API.G_EXC_ERROR ;
197: end if;
198:
199: IF FND_API.To_Boolean ( p_commit ) THEN
199: IF FND_API.To_Boolean ( p_commit ) THEN
200: COMMIT WORK;
201: END iF;
202:
203: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
204: p_data => X_msg_data );
205:
206: EXCEPTION
207:
209:
210: ROLLBACK TO Lock_Row_Pvt ;
211: X_row_locked := FND_API.G_FALSE;
212: X_return_status := FND_API.G_RET_STS_ERROR;
213: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
214: p_data => X_msg_data );
215:
216: WHEN FND_API.G_EXC_ERROR THEN
217:
216: WHEN FND_API.G_EXC_ERROR THEN
217:
218: ROLLBACK TO Lock_Row_Pvt ;
219: X_return_status := FND_API.G_RET_STS_ERROR;
220: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
221: p_data => X_msg_data );
222:
223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
224:
223: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
224:
225: ROLLBACK TO Lock_Row_Pvt ;
226: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
227: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
228: p_data => X_msg_data );
229:
230: WHEN OTHERS THEN
231:
231:
232: ROLLBACK TO Lock_Row_Pvt ;
233: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
234:
235: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
236: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
237: l_api_name);
238: END if;
239:
232: ROLLBACK TO Lock_Row_Pvt ;
233: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
234:
235: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
236: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
237: l_api_name);
238: END if;
239:
240: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
236: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
237: l_api_name);
238: END if;
239:
240: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
241: p_data => X_msg_data );
242:
243: END Lock_Row;
244: /* ================================================================================
278: END IF;
279:
280:
281: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
282: FND_MSG_PUB.initialize ;
283: END IF;
284:
285: X_return_status := FND_API.G_RET_STS_SUCCESS ;
286:
300: IF FND_API.To_Boolean ( p_commit ) THEN
301: COMMIT WORK;
302: END iF;
303:
304: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
305: p_data => X_msg_data );
306:
307: EXCEPTION
308:
309: WHEN FND_API.G_EXC_ERROR THEN
310:
311: ROLLBACK TO Update_Row_Pvt ;
312: X_return_status := FND_API.G_RET_STS_ERROR;
313: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
314: p_data => X_msg_data );
315:
316: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
317:
316: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
317:
318: ROLLBACK TO Update_Row_Pvt ;
319: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
320: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
321: p_data => X_msg_data );
322:
323: WHEN OTHERS THEN
324:
324:
325: ROLLBACK TO Update_Row_Pvt ;
326: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
327:
328: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
329: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
330: l_api_name);
331: END if;
332:
325: ROLLBACK TO Update_Row_Pvt ;
326: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
327:
328: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
329: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
330: l_api_name);
331: END if;
332:
333: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
329: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
330: l_api_name);
331: END if;
332:
333: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
334: p_data => X_msg_data );
335:
336: END Update_Row;
337:
370: END IF;
371:
372:
373: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
374: FND_MSG_PUB.initialize ;
375: END IF ;
376:
377: X_return_status := FND_API.G_RET_STS_SUCCESS ;
378:
387: IF FND_API.To_Boolean ( p_commit ) THEN
388: COMMIT WORK;
389: END iF;
390:
391: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
392: p_data => X_msg_data );
393:
394: EXCEPTION
395:
396: WHEN FND_API.G_EXC_ERROR THEN
397:
398: ROLLBACK TO Delete_Row_Pvt ;
399: X_return_status := FND_API.G_RET_STS_ERROR;
400: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
401: p_data => X_msg_data );
402:
403: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
404:
403: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
404:
405: ROLLBACK TO Delete_Row_Pvt ;
406: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
407: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
408: p_data => X_msg_data );
409:
410: WHEN OTHERS THEN
411:
411:
412: ROLLBACK TO Delete_Row_Pvt ;
413: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
414:
415: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
416: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
417: l_api_name);
418: END if;
419:
412: ROLLBACK TO Delete_Row_Pvt ;
413: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
414:
415: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
416: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
417: l_api_name);
418: END if;
419:
420: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
416: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
417: l_api_name);
418: END if;
419:
420: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
421: p_data => X_msg_data );
422:
423:
424: END Delete_Row;