48: END IF;
49:
50:
51: IF FND_API.to_Boolean (p_init_msg_list ) THEN
52: FND_MSG_PUB.initialize ;
53: END IF;
54:
55: X_return_status := FND_API.G_RET_STS_SUCCESS ;
56:
83: IF FND_API.To_Boolean ( p_commit ) THEN
84: COMMIT WORK;
85: END iF;
86:
87: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
88: p_data => X_msg_data );
89:
90: EXCEPTION
91:
92: WHEN FND_API.G_EXC_ERROR THEN
93:
94: ROLLBACK TO Insert_Row_Pvt ;
95: X_return_status := FND_API.G_RET_STS_ERROR;
96: FND_MSG_PUB.Count_And_Get (p_count => X_msg_count,
97: p_data => X_msg_data );
98:
99: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
100:
99: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
100:
101: ROLLBACK TO Insert_Row_Pvt ;
102: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
103: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
104: p_data => X_msg_data );
105:
106: WHEN OTHERS THEN
107:
107:
108: ROLLBACK TO Insert_Row_Pvt ;
109: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
110:
111: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
112: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
113: l_api_name);
114: END if;
115:
108: ROLLBACK TO Insert_Row_Pvt ;
109: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
110:
111: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
112: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
113: l_api_name);
114: END if;
115:
116: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
112: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
113: l_api_name);
114: END if;
115:
116: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
117: p_data => X_msg_data );
118:
119: END Insert_Row;
120:
163: END IF;
164:
165:
166: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
167: FND_MSG_PUB.initialize ;
168: END IF;
169:
170: X_return_status := FND_API.G_RET_STS_SUCCESS ;
171: X_row_locked := FND_API.G_TRUE ;
175: FETCH C INTO Recinfo;
176: if (C%NOTFOUND) then
177: CLOSE C;
178: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
179: FND_MSG_PUB.Add;
180: RAISE FND_API.G_EXC_ERROR;
181: end if;
182: CLOSE C;
183: if (
204: ) then
205: null;
206: else
207: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
208: FND_MSG_PUB.Add;
209: RAISE FND_API.G_EXC_ERROR ;
210: end if;
211:
212: IF FND_API.To_Boolean ( p_commit ) THEN
212: IF FND_API.To_Boolean ( p_commit ) THEN
213: COMMIT WORK;
214: END iF;
215:
216: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
217: p_data => X_msg_data );
218:
219: EXCEPTION
220:
222:
223: ROLLBACK TO Lock_Row_Pvt ;
224: X_row_locked := FND_API.G_FALSE;
225: X_return_status := FND_API.G_RET_STS_ERROR;
226: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
227: p_data => X_msg_data );
228:
229: WHEN FND_API.G_EXC_ERROR THEN
230:
229: WHEN FND_API.G_EXC_ERROR THEN
230:
231: ROLLBACK TO Lock_Row_Pvt ;
232: X_return_status := FND_API.G_RET_STS_ERROR;
233: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
234: p_data => X_msg_data );
235:
236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
237:
236: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
237:
238: ROLLBACK TO Lock_Row_Pvt ;
239: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
240: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
241: p_data => X_msg_data );
242:
243: WHEN OTHERS THEN
244:
244:
245: ROLLBACK TO Lock_Row_Pvt ;
246: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
247:
248: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
249: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
250: l_api_name);
251: END if;
252:
245: ROLLBACK TO Lock_Row_Pvt ;
246: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
247:
248: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
249: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
250: l_api_name);
251: END if;
252:
253: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
249: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
250: l_api_name);
251: END if;
252:
253: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
254: p_data => X_msg_data );
255:
256: END Lock_Row;
257: /* ================================================================================
293: END IF;
294:
295:
296: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
297: FND_MSG_PUB.initialize ;
298: END IF;
299:
300: X_return_status := FND_API.G_RET_STS_SUCCESS ;
301:
316: IF FND_API.To_Boolean ( p_commit ) THEN
317: COMMIT WORK;
318: END iF;
319:
320: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
321: p_data => X_msg_data );
322:
323: EXCEPTION
324:
325: WHEN FND_API.G_EXC_ERROR THEN
326:
327: ROLLBACK TO Update_Row_Pvt ;
328: X_return_status := FND_API.G_RET_STS_ERROR;
329: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
330: p_data => X_msg_data );
331:
332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
333:
332: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
333:
334: ROLLBACK TO Update_Row_Pvt ;
335: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
336: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
337: p_data => X_msg_data );
338:
339: WHEN OTHERS THEN
340:
340:
341: ROLLBACK TO Update_Row_Pvt ;
342: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
343:
344: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
345: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
346: l_api_name);
347: END if;
348:
341: ROLLBACK TO Update_Row_Pvt ;
342: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
343:
344: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
345: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
346: l_api_name);
347: END if;
348:
349: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
345: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
346: l_api_name);
347: END if;
348:
349: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
350: p_data => X_msg_data );
351:
352: END Update_Row;
353:
386: END IF;
387:
388:
389: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
390: FND_MSG_PUB.initialize ;
391: END IF ;
392:
393: X_return_status := FND_API.G_RET_STS_SUCCESS ;
394:
402: IF FND_API.To_Boolean ( p_commit ) THEN
403: COMMIT WORK;
404: END iF;
405:
406: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
407: p_data => X_msg_data );
408:
409: EXCEPTION
410:
411: WHEN FND_API.G_EXC_ERROR THEN
412:
413: ROLLBACK TO Delete_Row_Pvt ;
414: X_return_status := FND_API.G_RET_STS_ERROR;
415: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
416: p_data => X_msg_data );
417:
418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
419:
418: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
419:
420: ROLLBACK TO Delete_Row_Pvt ;
421: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
422: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
423: p_data => X_msg_data );
424:
425: WHEN OTHERS THEN
426:
426:
427: ROLLBACK TO Delete_Row_Pvt ;
428: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
429:
430: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
431: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
432: l_api_name);
433: END if;
434:
427: ROLLBACK TO Delete_Row_Pvt ;
428: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
429:
430: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
431: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
432: l_api_name);
433: END if;
434:
435: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
431: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
432: l_api_name);
433: END if;
434:
435: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
436: p_data => X_msg_data );
437:
438:
439: END Delete_Row;