12: +=======================================================================*/
13: PROCEDURE Insert_Row
14: (
15: p_api_version IN NUMBER,
16: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
17: p_commit IN VARCHAR2 := FND_API.G_FALSE,
18: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
19: x_return_status OUT NOCOPY VARCHAR2,
20: x_msg_count OUT NOCOPY NUMBER,
13: PROCEDURE Insert_Row
14: (
15: p_api_version IN NUMBER,
16: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
17: p_commit IN VARCHAR2 := FND_API.G_FALSE,
18: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
19: x_return_status OUT NOCOPY VARCHAR2,
20: x_msg_count OUT NOCOPY NUMBER,
21: x_msg_data OUT NOCOPY VARCHAR2,
14: (
15: p_api_version IN NUMBER,
16: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
17: p_commit IN VARCHAR2 := FND_API.G_FALSE,
18: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
19: x_return_status OUT NOCOPY VARCHAR2,
20: x_msg_count OUT NOCOPY NUMBER,
21: x_msg_data OUT NOCOPY VARCHAR2,
22: ---------------------------------------------
30: BEGIN
31:
32: SAVEPOINT Insert_Row_Pvt ;
33:
34: IF NOT FND_API.Compatible_API_Call ( l_api_version,
35: p_api_version,
36: l_api_name,
37: G_PKG_NAME )
38: THEN
35: p_api_version,
36: l_api_name,
37: G_PKG_NAME )
38: THEN
39: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
40: END IF;
41:
42:
43: IF FND_API.to_Boolean ( p_init_msg_list )
39: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
40: END IF;
41:
42:
43: IF FND_API.to_Boolean ( p_init_msg_list )
44: THEN
45: FND_MSG_PUB.initialize ;
46: END IF;
47:
44: THEN
45: FND_MSG_PUB.initialize ;
46: END IF;
47:
48: x_return_status := FND_API.G_RET_STS_SUCCESS ;
49:
50:
51: -- Added column distribution_type when inserting in
52: -- po_distributions_all. This as as part of the
247: p_po_dist_rec.base_amount_billed ,
248: p_po_dist_rec.tax_recovery_rate ,
249: p_po_dist_rec.mrc_base_amount_billed*/);
250:
251: IF FND_API.To_Boolean ( p_commit )
252: THEN
253: COMMIT WORK;
254: END IF;
255:
257: p_data => x_msg_data );
258:
259: EXCEPTION
260:
261: WHEN FND_API.G_EXC_ERROR
262: THEN
263:
264: ROLLBACK TO Insert_Row_Pvt ;
265: x_return_status := FND_API.G_RET_STS_ERROR;
261: WHEN FND_API.G_EXC_ERROR
262: THEN
263:
264: ROLLBACK TO Insert_Row_Pvt ;
265: x_return_status := FND_API.G_RET_STS_ERROR;
266: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
267: p_data => x_msg_data );
268:
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
265: x_return_status := FND_API.G_RET_STS_ERROR;
266: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
267: p_data => x_msg_data );
268:
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
270: THEN
271: ROLLBACK TO Insert_Row_Pvt ;
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
268:
269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
270: THEN
271: ROLLBACK TO Insert_Row_Pvt ;
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
274: p_data => x_msg_data );
275:
276: WHEN OTHERS
275:
276: WHEN OTHERS
277: THEN
278: ROLLBACK TO Insert_Row_Pvt ;
279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
280:
281: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
282: THEN
283: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
295: +==========================================================================*/
296: PROCEDURE Update_Row
297: (
298: p_api_version IN NUMBER,
299: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
300: p_commit IN VARCHAR2 := FND_API.G_FALSE,
301: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
302: x_return_status OUT NOCOPY VARCHAR2,
303: x_msg_count OUT NOCOPY NUMBER,
296: PROCEDURE Update_Row
297: (
298: p_api_version IN NUMBER,
299: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
300: p_commit IN VARCHAR2 := FND_API.G_FALSE,
301: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
302: x_return_status OUT NOCOPY VARCHAR2,
303: x_msg_count OUT NOCOPY NUMBER,
304: x_msg_data OUT NOCOPY VARCHAR2,
297: (
298: p_api_version IN NUMBER,
299: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
300: p_commit IN VARCHAR2 := FND_API.G_FALSE,
301: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
302: x_return_status OUT NOCOPY VARCHAR2,
303: x_msg_count OUT NOCOPY NUMBER,
304: x_msg_data OUT NOCOPY VARCHAR2,
305: ---------------------------------------------
314: BEGIN
315:
316: SAVEPOINT Update_Row_Pvt ;
317:
318: IF NOT FND_API.Compatible_API_Call ( l_api_version,
319: p_api_version,
320: l_api_name,
321: G_PKG_NAME )
322: THEN
319: p_api_version,
320: l_api_name,
321: G_PKG_NAME )
322: THEN
323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
324: END IF;
325:
326:
327: IF FND_API.to_Boolean ( p_init_msg_list )
323: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
324: END IF;
325:
326:
327: IF FND_API.to_Boolean ( p_init_msg_list )
328: THEN
329: FND_MSG_PUB.initialize ;
330: END IF;
331:
328: THEN
329: FND_MSG_PUB.initialize ;
330: END IF;
331:
332: x_return_status := FND_API.G_RET_STS_SUCCESS ;
333:
334: /* update */
335: UPDATE po_distributions_all
336: SET
436: RAISE NO_DATA_FOUND ;
437: END IF;
438:
439:
440: IF FND_API.To_Boolean ( p_commit )
441: THEN
442: COMMIT WORK;
443: END IF;
444:
446: p_data => x_msg_data );
447:
448: EXCEPTION
449:
450: WHEN FND_API.G_EXC_ERROR
451: THEN
452: ROLLBACK TO Update_Row_Pvt ;
453: x_return_status := FND_API.G_RET_STS_ERROR;
454:
449:
450: WHEN FND_API.G_EXC_ERROR
451: THEN
452: ROLLBACK TO Update_Row_Pvt ;
453: x_return_status := FND_API.G_RET_STS_ERROR;
454:
455: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
456: p_data => x_msg_data );
457:
454:
455: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
456: p_data => x_msg_data );
457:
458: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
459: THEN
460:
461: ROLLBACK TO Update_Row_Pvt ;
462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
458: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
459: THEN
460:
461: ROLLBACK TO Update_Row_Pvt ;
462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
463: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
464: p_data => x_msg_data );
465:
466: WHEN OTHERS
466: WHEN OTHERS
467: THEN
468:
469: ROLLBACK TO Update_Row_Pvt ;
470: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
471:
472: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
473: THEN
474: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
487: +==========================================================================*/
488: PROCEDURE Delete_Row
489: (
490: p_api_version IN NUMBER,
491: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
492: p_commit IN VARCHAR2 := FND_API.G_FALSE,
493: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
494: x_return_status OUT NOCOPY VARCHAR2,
495: x_msg_count OUT NOCOPY NUMBER,
488: PROCEDURE Delete_Row
489: (
490: p_api_version IN NUMBER,
491: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
492: p_commit IN VARCHAR2 := FND_API.G_FALSE,
493: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
494: x_return_status OUT NOCOPY VARCHAR2,
495: x_msg_count OUT NOCOPY NUMBER,
496: x_msg_data OUT NOCOPY VARCHAR2,
489: (
490: p_api_version IN NUMBER,
491: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
492: p_commit IN VARCHAR2 := FND_API.G_FALSE,
493: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
494: x_return_status OUT NOCOPY VARCHAR2,
495: x_msg_count OUT NOCOPY NUMBER,
496: x_msg_data OUT NOCOPY VARCHAR2,
497: ---------------------------------------------
505: BEGIN
506:
507: SAVEPOINT Delete_Row_Pvt ;
508:
509: IF NOT FND_API.Compatible_API_Call ( l_api_version,
510: p_api_version,
511: l_api_name,
512: G_PKG_NAME )
513: THEN
510: p_api_version,
511: l_api_name,
512: G_PKG_NAME )
513: THEN
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
515: END IF;
516:
517:
518: IF FND_API.to_Boolean ( p_init_msg_list )
514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
515: END IF;
516:
517:
518: IF FND_API.to_Boolean ( p_init_msg_list )
519: THEN
520: FND_MSG_PUB.initialize ;
521: END IF;
522:
519: THEN
520: FND_MSG_PUB.initialize ;
521: END IF;
522:
523: x_return_status := FND_API.G_RET_STS_SUCCESS ;
524:
525: DELETE FROM po_distributions_all
526: WHERE
527: po_distribution_id = p_po_distribution_id;
532: RAISE NO_DATA_FOUND ;
533: END IF;
534:
535:
536: IF FND_API.To_Boolean ( p_commit )
537: THEN
538: COMMIT WORK;
539: END IF;
540:
542: p_data => x_msg_data );
543:
544: EXCEPTION
545:
546: WHEN FND_API.G_EXC_ERROR
547: THEN
548: ROLLBACK TO Delete_Row_Pvt ;
549: x_return_status := FND_API.G_RET_STS_ERROR;
550:
545:
546: WHEN FND_API.G_EXC_ERROR
547: THEN
548: ROLLBACK TO Delete_Row_Pvt ;
549: x_return_status := FND_API.G_RET_STS_ERROR;
550:
551: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
552: p_data => x_msg_data );
553:
550:
551: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
552: p_data => x_msg_data );
553:
554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
555: THEN
556:
557: ROLLBACK TO Delete_Row_Pvt ;
558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
555: THEN
556:
557: ROLLBACK TO Delete_Row_Pvt ;
558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
559: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
560: p_data => x_msg_data );
561:
562: WHEN OTHERS
562: WHEN OTHERS
563: THEN
564:
565: ROLLBACK TO Delete_Row_Pvt ;
566: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
567:
568: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
569: THEN
570: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,