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: X_return_status := FND_API.G_RET_STS_SUCCESS ;
63: -- -----------------------------------------------------------------
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 => X_msg_count,
114: p_data => X_msg_data );
115: RETURN;
116:
117: EXCEPTION
123: IF (C_Acct_mrc_hst_rowid %ISOPEN) THEN
124: CLOSE C_Acct_mrc_hst_rowid ;
125: END IF;
126:
127: FND_MSG_PUB.Count_And_Get (p_count => X_msg_count,
128: p_data => X_msg_data );
129:
130: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
131:
133: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
134: IF (C_Acct_mrc_hst_rowid %ISOPEN) THEN
135: CLOSE C_Acct_mrc_hst_rowid ;
136: END IF;
137: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
138: p_data => X_msg_data );
139:
140: WHEN OTHERS THEN
141:
143: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
144: IF (C_Acct_mrc_hst_rowid %ISOPEN) THEN
145: CLOSE C_Acct_mrc_hst_rowid ;
146: END IF;
147: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
148: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
149: l_api_name);
150: END IF;
151:
144: IF (C_Acct_mrc_hst_rowid %ISOPEN) THEN
145: CLOSE C_Acct_mrc_hst_rowid ;
146: END IF;
147: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
148: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
149: l_api_name);
150: END IF;
151:
152: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
148: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
149: l_api_name);
150: END IF;
151:
152: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
153: p_data => X_msg_data );
154:
155: END Insert_Row;
156:
202: END IF;
203:
204:
205: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
206: FND_MSG_PUB.initialize ;
207: END IF;
208:
209: X_return_status := FND_API.G_RET_STS_SUCCESS ;
210: X_row_locked := FND_API.G_TRUE ;
214: FETCH C INTO Recinfo;
215: if (C%NOTFOUND) then
216: CLOSE C;
217: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
218: FND_MSG_PUB.Add;
219: RAISE FND_API.G_EXC_ERROR;
220: end if;
221: CLOSE C;
222: if (
252: ) then
253: null;
254: else
255: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
256: FND_MSG_PUB.Add;
257: RAISE FND_API.G_EXC_ERROR ;
258: end if;
259:
260: IF FND_API.To_Boolean ( p_commit ) THEN
260: IF FND_API.To_Boolean ( p_commit ) THEN
261: COMMIT WORK;
262: END iF;
263:
264: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
265: p_data => X_msg_data );
266:
267: EXCEPTION
268:
270:
271: ROLLBACK TO Lock_Row_Pvt ;
272: X_row_locked := FND_API.G_FALSE;
273: X_return_status := FND_API.G_RET_STS_ERROR;
274: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
275: p_data => X_msg_data );
276:
277: WHEN FND_API.G_EXC_ERROR THEN
278:
277: WHEN FND_API.G_EXC_ERROR THEN
278:
279: ROLLBACK TO Lock_Row_Pvt ;
280: X_return_status := FND_API.G_RET_STS_ERROR;
281: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
282: p_data => X_msg_data );
283:
284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
285:
284: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
285:
286: ROLLBACK TO Lock_Row_Pvt ;
287: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
288: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
289: p_data => X_msg_data );
290:
291: WHEN OTHERS THEN
292:
292:
293: ROLLBACK TO Lock_Row_Pvt ;
294: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
295:
296: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
297: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
298: l_api_name);
299: END if;
300:
293: ROLLBACK TO Lock_Row_Pvt ;
294: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
295:
296: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
297: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
298: l_api_name);
299: END if;
300:
301: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
297: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
298: l_api_name);
299: END if;
300:
301: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
302: p_data => X_msg_data );
303:
304: END Lock_Row;
305: /* ================================================================================
343: END IF;
344:
345:
346: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
347: FND_MSG_PUB.initialize ;
348: END IF;
349:
350: X_return_status := FND_API.G_RET_STS_SUCCESS ;
351:
369: IF FND_API.To_Boolean ( p_commit ) THEN
370: COMMIT WORK;
371: END iF;
372:
373: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
374: p_data => X_msg_data );
375:
376: EXCEPTION
377:
378: WHEN FND_API.G_EXC_ERROR THEN
379:
380: ROLLBACK TO Update_Row_Pvt ;
381: X_return_status := FND_API.G_RET_STS_ERROR;
382: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
383: p_data => X_msg_data );
384:
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386:
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386:
387: ROLLBACK TO Update_Row_Pvt ;
388: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
389: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
390: p_data => X_msg_data );
391:
392: WHEN OTHERS THEN
393:
393:
394: ROLLBACK TO Update_Row_Pvt ;
395: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
396:
397: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
398: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
399: l_api_name);
400: END if;
401:
394: ROLLBACK TO Update_Row_Pvt ;
395: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
396:
397: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
398: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
399: l_api_name);
400: END if;
401:
402: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
398: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
399: l_api_name);
400: END if;
401:
402: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
403: p_data => X_msg_data );
404:
405: END Update_Row;
406:
439: END IF;
440:
441:
442: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
443: FND_MSG_PUB.initialize ;
444: END IF ;
445:
446: X_return_status := FND_API.G_RET_STS_SUCCESS ;
447:
455: IF FND_API.To_Boolean ( p_commit ) THEN
456: COMMIT WORK;
457: END iF;
458:
459: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
460: p_data => X_msg_data );
461:
462: EXCEPTION
463:
464: WHEN FND_API.G_EXC_ERROR THEN
465:
466: ROLLBACK TO Delete_Row_Pvt ;
467: X_return_status := FND_API.G_RET_STS_ERROR;
468: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
469: p_data => X_msg_data );
470:
471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
472:
471: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
472:
473: ROLLBACK TO Delete_Row_Pvt ;
474: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
475: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
476: p_data => X_msg_data );
477:
478: WHEN OTHERS THEN
479:
479:
480: ROLLBACK TO Delete_Row_Pvt ;
481: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
482:
483: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
484: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
485: l_api_name);
486: END if;
487:
480: ROLLBACK TO Delete_Row_Pvt ;
481: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
482:
483: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
484: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
485: l_api_name);
486: END if;
487:
488: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
484: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
485: l_api_name);
486: END if;
487:
488: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
489: p_data => X_msg_data );
490:
491:
492: END Delete_Row;