[Home] [Help]
PACKAGE BODY: APPS.OKL_PAY_INVOICES_MAN_PUB
Source
1 PACKAGE BODY OKL_PAY_INVOICES_MAN_PUB AS
2 /* $Header: OKLPPIMB.pls 115.5 2004/04/13 10:56:45 rnaik noship $ */
3 PROCEDURE manual_entry(p_api_version IN NUMBER
4 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
5 ,x_return_status OUT NOCOPY VARCHAR2
6 ,x_msg_count OUT NOCOPY NUMBER
7 ,x_msg_data OUT NOCOPY VARCHAR2
8 ,p_man_inv_rec IN man_inv_rec_type
9 ,x_man_inv_rec OUT NOCOPY man_inv_rec_type)
10 IS
11 l_api_version NUMBER := 1;
12 l_init_msg_list VARCHAR2(1);
13 l_return_status VARCHAR2(1);
14 l_msg_count NUMBER ;
15 l_msg_data VARCHAR2(2000);
16 l_man_inv_rec man_inv_rec_type;
17
18 BEGIN
19
20 SAVEPOINT manual_entry;
21
22 okl_pay_invoices_man_pvt.manual_entry(
23 p_api_version => l_api_version
24 ,p_init_msg_list => p_init_msg_list
25 ,x_return_status => x_return_status
26 ,x_msg_count => x_msg_count
27 ,x_msg_data => x_msg_data
28 ,p_man_inv_rec => p_man_inv_rec
29 ,x_man_inv_rec => x_man_inv_rec);
30
31 IF ( x_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
32 RAISE Fnd_Api.G_EXC_ERROR;
33 ELSIF (x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
34 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
35 END IF;
36
37 EXCEPTION
38
39 WHEN Fnd_Api.G_EXC_ERROR THEN
40 ROLLBACK TO manual_entry;
41 x_return_status := Fnd_Api.G_RET_STS_ERROR;
42 x_msg_count := l_msg_count ;
43 x_msg_data := l_msg_data ;
44 Fnd_Msg_Pub.count_and_get(
45 p_count => x_msg_count
46 ,p_data => x_msg_data);
47 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
48 ROLLBACK TO manual_entry;
49 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
50 x_msg_count := l_msg_count ;
51 x_msg_data := l_msg_data ;
52 Fnd_Msg_Pub.count_and_get(
53 p_count => x_msg_count
54 ,p_data => x_msg_data);
55 WHEN OTHERS THEN
56 ROLLBACK TO manual_entry;
57 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
58 x_msg_count := l_msg_count ;
59 x_msg_data := l_msg_data ;
60 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_INVOICES_MAN_PUB','MANUAL_ENTRY');
61 Fnd_Msg_Pub.count_and_get(
62 p_count => x_msg_count
63 ,p_data => x_msg_data);
64 END;
65
66 PROCEDURE manual_entry(p_api_version IN NUMBER
67 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
68 ,x_return_status OUT NOCOPY VARCHAR2
69 ,x_msg_count OUT NOCOPY NUMBER
70 ,x_msg_data OUT NOCOPY VARCHAR2
71 ,p_man_inv_tbl IN man_inv_tbl_type
72 ,x_man_inv_tbl OUT NOCOPY man_inv_tbl_type)
73 IS
74 l_api_version NUMBER := 1;
75 l_init_msg_list VARCHAR2(1);
76 l_return_status VARCHAR2(1);
77 l_msg_count NUMBER ;
78 l_msg_data VARCHAR2(2000);
79 l_man_inv_rec man_inv_rec_type;
80 l_man_inv_tbl man_inv_tbl_type;
81
82 BEGIN
83
84 SAVEPOINT manual_entry;
85
86
87
88
89
90 okl_pay_invoices_man_pvt.manual_entry(
91 p_api_version => l_api_version
92 ,p_init_msg_list => l_init_msg_list
93 ,x_return_status => x_return_status
94 ,x_msg_count => x_msg_count
95 ,x_msg_data => x_msg_data
96 ,p_man_inv_tbl => p_man_inv_tbl
97 ,x_man_inv_tbl => x_man_inv_tbl);
98
99 IF ( x_return_status = Fnd_Api.G_RET_STS_ERROR ) THEN
100 RAISE Fnd_Api.G_EXC_ERROR;
101 ELSIF (x_return_status = Fnd_Api.G_RET_STS_UNEXP_ERROR ) THEN
102 RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
103 END IF;
104
105
106
107
108
109 EXCEPTION
110
111 WHEN Fnd_Api.G_EXC_ERROR THEN
112 ROLLBACK TO manual_entry;
113 x_return_status := Fnd_Api.G_RET_STS_ERROR;
114 x_msg_count := l_msg_count ;
115 x_msg_data := l_msg_data ;
116 Fnd_Msg_Pub.count_and_get(
117 p_count => x_msg_count
118 ,p_data => x_msg_data);
119 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
120 ROLLBACK TO manual_entry;
121 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
122 x_msg_count := l_msg_count ;
123 x_msg_data := l_msg_data ;
124 Fnd_Msg_Pub.count_and_get(
125 p_count => x_msg_count
126 ,p_data => x_msg_data);
127 WHEN OTHERS THEN
128 ROLLBACK TO manual_entry;
129 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
130 x_msg_count := l_msg_count ;
131 x_msg_data := l_msg_data ;
132 Fnd_Msg_Pub.ADD_EXC_MSG('OKL_PAY_INVOICES_MAN_PUB','MANUAL_ENTRY');
133 Fnd_Msg_Pub.count_and_get(
134 p_count => x_msg_count
135 ,p_data => x_msg_data);
136 END;
137
138
139 END;