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: ----------------------------------------------
29:
30: BEGIN
31: SAVEPOINT Insert_Row_Pvt ;
32:
33: IF NOT FND_API.Compatible_API_Call ( l_api_version,
34: p_api_version,
35: l_api_name,
36: G_PKG_NAME )
37: THEN
34: p_api_version,
35: l_api_name,
36: G_PKG_NAME )
37: THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
39: END IF;
40:
41: IF FND_API.to_Boolean ( p_init_msg_list )
42: THEN
37: THEN
38: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
39: END IF;
40:
41: IF FND_API.to_Boolean ( p_init_msg_list )
42: THEN
43: FND_MSG_PUB.initialize ;
44: END IF;
45:
42: THEN
43: FND_MSG_PUB.initialize ;
44: END IF;
45:
46: x_return_status := FND_API.G_RET_STS_SUCCESS ;
47:
48:
49: INSERT INTO po_headers_all (
50: po_header_id ,
304: p_po_headers_rec.pay_on_code ,
305: 1
306: );
307:
308: IF FND_API.To_Boolean ( p_commit )
309: THEN
310: COMMIT WORK;
311: END iF;
312:
314: p_data => x_msg_data );
315:
316: EXCEPTION
317:
318: WHEN FND_API.G_EXC_ERROR
319: THEN
320:
321: ROLLBACK TO Insert_Row_Pvt ;
322: x_return_status := FND_API.G_RET_STS_ERROR;
318: WHEN FND_API.G_EXC_ERROR
319: THEN
320:
321: ROLLBACK TO Insert_Row_Pvt ;
322: x_return_status := FND_API.G_RET_STS_ERROR;
323: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
324: p_data => x_msg_data );
325:
326: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
322: x_return_status := FND_API.G_RET_STS_ERROR;
323: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
324: p_data => x_msg_data );
325:
326: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
327: THEN
328:
329: ROLLBACK TO Insert_Row_Pvt ;
330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
326: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
327: THEN
328:
329: ROLLBACK TO Insert_Row_Pvt ;
330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
331: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
332: p_data => x_msg_data );
333:
334: WHEN OTHERS
334: WHEN OTHERS
335: THEN
336:
337: ROLLBACK TO Insert_Row_Pvt ;
338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
339:
340: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
341: THEN
342: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,
354: +==========================================================================*/
355: PROCEDURE Update_Row
356: (
357: p_api_version IN NUMBER,
358: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
359: p_commit IN VARCHAR2 := FND_API.G_FALSE,
360: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
361: x_return_status OUT NOCOPY VARCHAR2,
362: x_msg_count OUT NOCOPY NUMBER,
355: PROCEDURE Update_Row
356: (
357: p_api_version IN NUMBER,
358: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
359: p_commit IN VARCHAR2 := FND_API.G_FALSE,
360: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
361: x_return_status OUT NOCOPY VARCHAR2,
362: x_msg_count OUT NOCOPY NUMBER,
363: x_msg_data OUT NOCOPY VARCHAR2,
356: (
357: p_api_version IN NUMBER,
358: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
359: p_commit IN VARCHAR2 := FND_API.G_FALSE,
360: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
361: x_return_status OUT NOCOPY VARCHAR2,
362: x_msg_count OUT NOCOPY NUMBER,
363: x_msg_data OUT NOCOPY VARCHAR2,
364: ---------------------------------------------------
371:
372: BEGIN
373: SAVEPOINT Update_Row_Pvt ;
374:
375: IF NOT FND_API.Compatible_API_Call ( l_api_version,
376: p_api_version,
377: l_api_name,
378: G_PKG_NAME )
379: THEN
376: p_api_version,
377: l_api_name,
378: G_PKG_NAME )
379: THEN
380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
381: END IF;
382:
383:
384: IF FND_API.to_Boolean ( p_init_msg_list )
380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
381: END IF;
382:
383:
384: IF FND_API.to_Boolean ( p_init_msg_list )
385: THEN
386: FND_MSG_PUB.initialize ;
387: END IF;
388:
385: THEN
386: FND_MSG_PUB.initialize ;
387: END IF;
388:
389: x_return_status := FND_API.G_RET_STS_SUCCESS ;
390:
391: UPDATE PO_HEADERS_ALL
392: SET
393: po_header_id = p_po_headers_rec.po_header_id,
525: RAISE NO_DATA_FOUND ;
526: END IF;
527:
528:
529: IF FND_API.To_Boolean ( p_commit )
530: THEN
531: COMMIT WORK;
532: END IF;
533:
535: p_data => x_msg_data );
536:
537: EXCEPTION
538:
539: WHEN FND_API.G_EXC_ERROR
540: THEN
541: ROLLBACK TO Update_Row_Pvt ;
542: x_return_status := FND_API.G_RET_STS_ERROR;
543: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
538:
539: WHEN FND_API.G_EXC_ERROR
540: THEN
541: ROLLBACK TO Update_Row_Pvt ;
542: x_return_status := FND_API.G_RET_STS_ERROR;
543: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
544: p_data => x_msg_data );
545:
546: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
542: x_return_status := FND_API.G_RET_STS_ERROR;
543: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
544: p_data => x_msg_data );
545:
546: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
547: THEN
548: ROLLBACK TO Update_Row_Pvt ;
549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
550: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
545:
546: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
547: THEN
548: ROLLBACK TO Update_Row_Pvt ;
549: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
550: FND_MSG_PUB.Count_And_Get ( p_count => x_msg_count,
551: p_data => x_msg_data );
552: WHEN OTHERS
553: THEN
552: WHEN OTHERS
553: THEN
554:
555: ROLLBACK TO Update_Row_Pvt ;
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
557:
558: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
559: THEN
560: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME,