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: X_return_status := FND_API.G_RET_STS_SUCCESS ;
61: -- -----------------------------------------------------------------
102: IF FND_API.To_Boolean ( p_commit ) THEN
103: COMMIT WORK;
104: END iF;
105:
106: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
107: p_data => X_msg_data );
108: RETURN;
109:
110:
117: IF (C_header_mrc_hst_rowid %ISOPEN) THEN
118: CLOSE C_header_mrc_hst_rowid ;
119: END IF;
120:
121: FND_MSG_PUB.Count_And_Get (p_count => X_msg_count,
122: p_data => X_msg_data );
123:
124: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
125:
128: IF (C_header_mrc_hst_rowid %ISOPEN) THEN
129: CLOSE C_header_mrc_hst_rowid ;
130: END IF;
131:
132: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
133: p_data => X_msg_data );
134:
135: WHEN OTHERS THEN
136:
139: IF (C_header_mrc_hst_rowid %ISOPEN) THEN
140: CLOSE C_header_mrc_hst_rowid ;
141: END IF;
142:
143: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
144: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
145: l_api_name);
146: END if;
147:
140: CLOSE C_header_mrc_hst_rowid ;
141: END IF;
142:
143: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
144: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
145: l_api_name);
146: END if;
147:
148: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
144: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
145: l_api_name);
146: END if;
147:
148: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
149: p_data => X_msg_data );
150:
151: END Insert_Row;
152:
195: END IF;
196:
197:
198: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
199: FND_MSG_PUB.initialize ;
200: END IF;
201:
202: X_return_status := FND_API.G_RET_STS_SUCCESS ;
203: X_row_locked := FND_API.G_TRUE ;
207: FETCH C INTO Recinfo;
208: if (C%NOTFOUND) then
209: CLOSE C;
210: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
211: FND_MSG_PUB.Add;
212: RAISE FND_API.G_EXC_ERROR;
213: end if;
214: CLOSE C;
215: if (
236: ) then
237: null;
238: else
239: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
240: FND_MSG_PUB.Add;
241: RAISE FND_API.G_EXC_ERROR ;
242: end if;
243:
244: IF FND_API.To_Boolean ( p_commit ) THEN
244: IF FND_API.To_Boolean ( p_commit ) THEN
245: COMMIT WORK;
246: END iF;
247:
248: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
249: p_data => X_msg_data );
250:
251: EXCEPTION
252:
254:
255: ROLLBACK TO Lock_Row_Pvt ;
256: X_row_locked := FND_API.G_FALSE;
257: X_return_status := FND_API.G_RET_STS_ERROR;
258: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
259: p_data => X_msg_data );
260:
261: WHEN FND_API.G_EXC_ERROR THEN
262:
261: WHEN FND_API.G_EXC_ERROR THEN
262:
263: ROLLBACK TO Lock_Row_Pvt ;
264: X_return_status := FND_API.G_RET_STS_ERROR;
265: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
266: p_data => X_msg_data );
267:
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269:
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269:
270: ROLLBACK TO Lock_Row_Pvt ;
271: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
272: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
273: p_data => X_msg_data );
274:
275: WHEN OTHERS THEN
276:
276:
277: ROLLBACK TO Lock_Row_Pvt ;
278: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
279:
280: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
281: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
282: l_api_name);
283: END if;
284:
277: ROLLBACK TO Lock_Row_Pvt ;
278: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
279:
280: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
281: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
282: l_api_name);
283: END if;
284:
285: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
281: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
282: l_api_name);
283: END if;
284:
285: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
286: p_data => X_msg_data );
287:
288: END Lock_Row;
289: /* ================================================================================
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: X_return_status := FND_API.G_RET_STS_SUCCESS ;
332:
347: IF FND_API.To_Boolean ( p_commit ) THEN
348: COMMIT WORK;
349: END iF;
350:
351: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
352: p_data => X_msg_data );
353:
354: EXCEPTION
355:
356: WHEN FND_API.G_EXC_ERROR THEN
357:
358: ROLLBACK TO Update_Row_Pvt ;
359: X_return_status := FND_API.G_RET_STS_ERROR;
360: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
361: p_data => X_msg_data );
362:
363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
364:
363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
364:
365: ROLLBACK TO Update_Row_Pvt ;
366: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
367: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
368: p_data => X_msg_data );
369:
370: WHEN OTHERS THEN
371:
371:
372: ROLLBACK TO Update_Row_Pvt ;
373: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374:
375: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
376: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
377: l_api_name);
378: END if;
379:
372: ROLLBACK TO Update_Row_Pvt ;
373: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
374:
375: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
376: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
377: l_api_name);
378: END if;
379:
380: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
376: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
377: l_api_name);
378: END if;
379:
380: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
381: p_data => X_msg_data );
382:
383: END Update_Row;
384:
417: END IF;
418:
419:
420: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
421: FND_MSG_PUB.initialize ;
422: END IF ;
423:
424: X_return_status := FND_API.G_RET_STS_SUCCESS ;
425:
433: IF FND_API.To_Boolean ( p_commit ) THEN
434: COMMIT WORK;
435: END iF;
436:
437: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
438: p_data => X_msg_data );
439:
440: EXCEPTION
441:
442: WHEN FND_API.G_EXC_ERROR THEN
443:
444: ROLLBACK TO Delete_Row_Pvt ;
445: X_return_status := FND_API.G_RET_STS_ERROR;
446: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
447: p_data => X_msg_data );
448:
449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
450:
449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
450:
451: ROLLBACK TO Delete_Row_Pvt ;
452: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
453: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
454: p_data => X_msg_data );
455:
456: WHEN OTHERS THEN
457:
457:
458: ROLLBACK TO Delete_Row_Pvt ;
459: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
460:
461: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
462: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
463: l_api_name);
464: END if;
465:
458: ROLLBACK TO Delete_Row_Pvt ;
459: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
460:
461: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
462: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
463: l_api_name);
464: END if;
465:
466: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
462: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
463: l_api_name);
464: END if;
465:
466: FND_MSG_PUB.Count_And_Get ( p_count => X_msg_count,
467: p_data => X_msg_data );
468:
469:
470: END Delete_Row;