[Home] [Help]
PACKAGE BODY: APPS.OKL_BPD_CAP_ADV_MON_PUB
Source
1 PACKAGE BODY OKL_BPD_CAP_ADV_MON_PUB AS
2 /* $Header: OKLPAMSB.pls 120.1 2005/10/30 04:01:19 appldev noship $ */
3 ---------------------------------------------------------------------------
4 -- PROCEDURE handle_advanced_manual_pay
5 ---------------------------------------------------------------------------
6 ---------------------------------------------------------------------------
7 -- Start of comments
8 --
9 -- Procedure Name : handle_advanced_manual_pay
10 -- Description : procedure for inserting the records in
11 -- table OKL_TRX_CSH_RECEIPT_B and OKL_EXT_CSH_RCPTS_B
12 -- Business Rules :
13 -- Parameters : p_api_version, p_init_msg_list, x_return_status,
14 -- x_msg_count, x_msg_data, p_adv_rcpt_rec, x_adv_rcpt_rec.
15 -- Version : 1.0
16 -- End of comments
17 ---------------------------------------------------------------------------
18 PROCEDURE handle_advanced_manual_pay ( p_api_version IN NUMBER,
19 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE,
20 x_return_status OUT NOCOPY VARCHAR2,
21 x_msg_count OUT NOCOPY NUMBER,
22 x_msg_data OUT NOCOPY VARCHAR2,
23 p_adv_rcpt_rec IN adv_rcpt_rec,
24 x_adv_rcpt_rec OUT NOCOPY adv_rcpt_rec ) IS
25
26
27 l_return_status VARCHAR2(1) DEFAULT FND_API.G_RET_STS_SUCCESS;
28 lp_adv_rcpt_rec adv_rcpt_rec DEFAULT p_adv_rcpt_rec;
29
30 BEGIN
31 SAVEPOINT save_handle_adv_man_pay;
32
33 -- procedure is used to write the receipt details in the internal and external transaction tables.
34
35 OKL_BPD_CAP_ADV_MON_PVT.handle_advanced_manual_pay ( p_api_version => p_api_version,
36 p_init_msg_list => p_init_msg_list,
37 x_return_status => x_return_status,
38 x_msg_count => x_msg_count,
39 x_msg_data => x_msg_count,
40 p_adv_rcpt_rec => lp_adv_rcpt_rec,
41 x_adv_rcpt_rec => x_adv_rcpt_rec
42 );
43
44 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
45 RAISE FND_API.G_EXC_ERROR;
46 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
47 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
48 END IF;
49
50 EXCEPTION
51 WHEN FND_API.G_EXC_ERROR THEN
52 ROLLBACK TO save_handle_adv_man_pay;
53 x_return_status := FND_API.G_RET_STS_ERROR;
54
55 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
56 ,p_count => x_msg_count
57 ,p_data => x_msg_data);
58
59 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
60 ROLLBACK TO save_handle_adv_man_pay;
61 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
62 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
63 ,p_count => x_msg_count
64 ,p_data => x_msg_data);
65
66 WHEN OTHERS THEN
67 ROLLBACK TO save_handle_adv_man_pay;
68 FND_MSG_PUB.ADD_EXC_MSG('OKL_ACC_GROUP_PUB','create_acc_group');
69 -- store SQL error message on message stack for caller
70 FND_MSG_PUB.Count_and_get(p_encoded => OKC_API.G_FALSE
71 ,p_count => x_msg_count
72 ,p_data => x_msg_data);
73 -- notify caller of an UNEXPECTED error
74 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
75
76 END handle_advanced_manual_pay;
77 END okl_bpd_cap_adv_mon_pub;