[Home] [Help]
PACKAGE BODY: APPS.OKL_CASH_RECEIPT_PUB
Source
1 PACKAGE BODY okl_cash_receipt_pub AS
2 /* $Header: OKLPRTCB.pls 115.8 2004/04/13 11:03:09 rnaik noship $ */
3
4 PROCEDURE CASH_RECEIPT_PUB( p_api_version IN NUMBER := 1.0
5 ,p_init_msg_list IN VARCHAR2 := OKC_API.G_FALSE
6 ,x_return_status OUT NOCOPY VARCHAR2
7 ,x_msg_count OUT NOCOPY NUMBER
8 ,x_msg_data OUT NOCOPY VARCHAR2
9 ,p_over_pay IN VARCHAR2
10 ,p_conc_proc IN VARCHAR2
11 ,p_xcrv_rec IN xcrv_rec_type
12 ,p_xcav_tbl IN xcav_tbl_type
13 ,x_cash_receipt_id OUT NOCOPY NUMBER
14 ) IS
15
16 lp_over_pay VARCHAR2(1);
17 lp_conc_proc VARCHAR2(2);
18 lp_xcrv_rec xcrv_rec_type;
19 lp_xcav_tbl xcav_tbl_type;
20
21 lx_over_pay VARCHAR2(1);
22 lx_conc_proc VARCHAR2(2);
23 lx_xcrv_rec xcrv_rec_type;
24 lx_xcav_tbl xcav_tbl_type;
25
26 l_cash_receipt_id NUMBER;
27
28 l_data VARCHAR2(100);
29 l_api_name CONSTANT VARCHAR2(30) := 'okl_cash_receipt_pub';
30 l_count NUMBER ;
31 l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
32
33 l_api_version NUMBER ;
34 l_init_msg_list VARCHAR2(1) ;
35 l_msg_count NUMBER ;
36 l_msg_data VARCHAR2(2000);
37
38 BEGIN
39
40 x_return_status := FND_API.G_RET_STS_SUCCESS;
41
42 SAVEPOINT cash_receipt_pub;
43
44 lp_over_pay := p_over_pay;
45 lp_conc_proc := p_conc_proc;
46 lp_xcrv_rec := p_xcrv_rec;
47 lp_xcav_tbl := p_xcav_tbl;
48
49
50
51 lp_over_pay := lx_over_pay;
52 lp_conc_proc := lx_conc_proc;
53 lp_xcrv_rec := lx_xcrv_rec;
54 lp_xcav_tbl := lx_xcav_tbl;
55
56
57 lp_over_pay := lx_over_pay;
58 lp_xcrv_rec := lx_xcrv_rec;
59 lp_xcav_tbl := lx_xcav_tbl;
60
61 okl_cash_receipt.CASH_RECEIPT (p_api_version => l_api_version
62 ,p_init_msg_list => l_init_msg_list
63 ,x_return_status => l_return_status
64 ,x_msg_count => l_msg_count
65 ,x_msg_data => l_msg_data
66 ,p_over_pay => lp_over_pay
67 ,p_conc_proc => lp_conc_proc
68 ,p_xcrv_rec => lp_xcrv_rec
69 ,p_xcav_tbl => lp_xcav_tbl
70 ,x_cash_receipt_id => l_cash_receipt_id
71 );
72
73 IF l_return_status = FND_API.G_RET_STS_ERROR THEN
74 RAISE FND_API.G_EXC_ERROR;
75 ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
76 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
77 END IF;
78
79 EXCEPTION
80
81 WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
82 ROLLBACK TO cash_receipt_pub;
83 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
84 x_msg_count := l_msg_count ;
85 x_msg_data := l_msg_data ;
86 -- Fnd_Msg_Pub.count_and_get(
87 -- p_count => x_msg_count
88 -- ,p_data => x_msg_data);
89
90 WHEN Okl_Api.G_EXCEPTION_ERROR THEN
91 ROLLBACK TO cash_receipt_pub;
92 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
93 x_msg_count := l_msg_count ;
94 x_msg_data := l_msg_data ;
95 -- Fnd_Msg_Pub.count_and_get(
96 -- p_count => x_msg_count
97 -- ,p_data => x_msg_data);
98
99 WHEN OTHERS THEN
100 ROLLBACK TO cash_receipt_pub;
101 x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
102 x_msg_count := l_msg_count ;
103 x_msg_data := l_msg_data ;
104 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_CASH_RECEIPT_PUB','unknown exception');
105 Fnd_Msg_Pub.count_and_get(
106 p_count => x_msg_count
107 ,p_data => x_msg_data);
108
109 END cash_receipt_pub;
110
111 END OKL_CASH_RECEIPT_PUB;