45: END IF;
46: --
47:
48: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
49: FND_MSG_PUB.initialize ;
50: END IF;
51: --
52: p_return_status := FND_API.G_RET_STS_SUCCESS ;
53: --
84: IF FND_API.To_Boolean ( p_commit ) THEN
85: COMMIT WORK;
86: END iF;
87: --
88: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
89: p_data => p_msg_data );
90: --
91: EXCEPTION
92: --
93: WHEN FND_API.G_EXC_ERROR THEN
94: --
95: ROLLBACK TO Insert_Row_Pvt ;
96: p_return_status := FND_API.G_RET_STS_ERROR;
97: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
98: p_data => p_msg_data );
99: --
100: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
101: --
100: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
101: --
102: ROLLBACK TO Insert_Row_Pvt ;
103: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
104: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
105: p_data => p_msg_data );
106: --
107: WHEN OTHERS THEN
108: --
108: --
109: ROLLBACK TO Insert_Row_Pvt ;
110: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
111: --
112: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
113: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
114: l_api_name);
115: END if;
116: --
109: ROLLBACK TO Insert_Row_Pvt ;
110: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
111: --
112: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
113: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
114: l_api_name);
115: END if;
116: --
117: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
113: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
114: l_api_name);
115: END if;
116: --
117: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
118: p_data => p_msg_data );
119: --
120: END Insert_Row;
121:
158: END IF;
159: --
160:
161: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
162: FND_MSG_PUB.initialize ;
163: END IF;
164: --
165: p_return_status := FND_API.G_RET_STS_SUCCESS ;
166: --
179: ) then
180: p_lock_row := FND_API.G_TRUE;
181: ELSE
182: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
183: FND_MSG_PUB.Add;
184: RAISE FND_API.G_EXC_ERROR ;
185: END IF;
186:
187: --
188: IF FND_API.To_Boolean ( p_commit ) THEN
189: COMMIT WORK;
190: END iF;
191: --
192: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
193: p_data => p_msg_data );
194: --
195: EXCEPTION
196: --
198: --
199: ROLLBACK TO Lock_Row_Pvt ;
200: p_lock_row := FND_API.G_FALSE;
201: p_return_status := FND_API.G_RET_STS_ERROR;
202: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
203: p_data => p_msg_data );
204: --
205: WHEN FND_API.G_EXC_ERROR THEN
206: --
206: --
207: ROLLBACK TO Lock_Row_Pvt ;
208: p_lock_row := FND_API.G_FALSE;
209: p_return_status := FND_API.G_RET_STS_ERROR;
210: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
211: p_data => p_msg_data );
212: --
213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
214: --
213: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
214: --
215: ROLLBACK TO Lock_Row_Pvt ;
216: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
217: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
218: p_data => p_msg_data );
219: --
220: WHEN OTHERS THEN
221: --
221: --
222: ROLLBACK TO Lock_Row_Pvt ;
223: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
224: --
225: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
226: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
227: l_api_name);
228: END if;
229: --
222: ROLLBACK TO Lock_Row_Pvt ;
223: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
224: --
225: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
226: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
227: l_api_name);
228: END if;
229: --
230: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
226: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
227: l_api_name);
228: END if;
229: --
230: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
231: p_data => p_msg_data );
232: --
233: END Lock_Row;
234:
265: END IF;
266: --
267:
268: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
269: FND_MSG_PUB.initialize ;
270: END IF;
271: --
272: p_return_status := FND_API.G_RET_STS_SUCCESS ;
273: --
286: IF FND_API.To_Boolean ( p_commit ) THEN
287: COMMIT WORK;
288: END iF;
289: --
290: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
291: p_data => p_msg_data );
292: --
293: EXCEPTION
294: --
295: WHEN FND_API.G_EXC_ERROR THEN
296: --
297: ROLLBACK TO Update_Row_Pvt ;
298: p_return_status := FND_API.G_RET_STS_ERROR;
299: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
300: p_data => p_msg_data );
301: --
302: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
303: --
302: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
303: --
304: ROLLBACK TO Update_Row_Pvt ;
305: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
306: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
307: p_data => p_msg_data );
308: --
309: WHEN OTHERS THEN
310: --
310: --
311: ROLLBACK TO Update_Row_Pvt ;
312: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
313: --
314: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
315: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
316: l_api_name);
317: END if;
318: --
311: ROLLBACK TO Update_Row_Pvt ;
312: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
313: --
314: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
315: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
316: l_api_name);
317: END if;
318: --
319: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
315: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
316: l_api_name);
317: END if;
318: --
319: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
320: p_data => p_msg_data );
321: --
322: END Update_Row;
323:
351: END IF;
352: --
353:
354: IF FND_API.to_Boolean ( p_init_msg_list ) THEN
355: FND_MSG_PUB.initialize ;
356: END IF;
357: --
358: p_return_status := FND_API.G_RET_STS_SUCCESS ;
359: --
367: IF FND_API.To_Boolean ( p_commit ) THEN
368: COMMIT WORK;
369: END iF;
370: --
371: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
372: p_data => p_msg_data );
373:
374: EXCEPTION
375: --
376: WHEN FND_API.G_EXC_ERROR THEN
377: --
378: ROLLBACK TO Delete_Row_Pvt ;
379: p_return_status := FND_API.G_RET_STS_ERROR;
380: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
381: p_data => p_msg_data );
382: --
383: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
384: --
383: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
384: --
385: ROLLBACK TO Delete_Row_Pvt ;
386: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
387: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
388: p_data => p_msg_data );
389: --
390: WHEN OTHERS THEN
391: --
391: --
392: ROLLBACK TO Delete_Row_Pvt ;
393: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
394: --
395: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
396: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
397: l_api_name);
398: END if;
399: --
392: ROLLBACK TO Delete_Row_Pvt ;
393: p_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
394: --
395: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
396: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
397: l_api_name);
398: END if;
399: --
400: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
396: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
397: l_api_name);
398: END if;
399: --
400: FND_MSG_PUB.Count_And_Get ( p_count => p_msg_count,
401: p_data => p_msg_data );
402: --
403: END Delete_Row;
404:
498: --
499: EXCEPTION
500: --
501: WHEN OTHERS THEN
502: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
503: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
504: l_api_name);
505: END if;
506: RETURN (FALSE);
499: EXCEPTION
500: --
501: WHEN OTHERS THEN
502: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
503: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
504: l_api_name);
505: END if;
506: RETURN (FALSE);
507: