[Home] [Help]
PACKAGE BODY: APPS.OKL_BPD_CAP_PURPOSE_PUB
Source
1 PACKAGE BODY Okl_Bpd_Cap_Purpose_Pub AS
2 /* $Header: OKLPCPUB.pls 120.3 2005/10/30 04:01:30 appldev noship $ */
3 ---------------------------------------------------------------------------
4 -- PROCEDURE create_purpose
5 ---------------------------------------------------------------------------
6 -- Start of comments
7 --
8 -- Procedure Name : create_purpose
9 -- Description : procedure for inserting the records in
10 -- table OKL_TXL_RCPT_APPS_B
11 -- Business Rules :
12 -- Parameters : p_api_version, p_init_msg_list, x_return_status, x_msg_count,
13 -- x_msg_data, p_strm_tbl, x_strm_tbl.
14 -- Version : 1.0
15 -- End of comments
16 ---------------------------------------------------------------------------
17
18 PROCEDURE create_purpose ( 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_strm_tbl IN okl_cash_dtls_tbl_type
24 ,x_strm_tbl OUT NOCOPY okl_cash_dtls_tbl_type
25 ) IS
26
27 --Initialize return status.
28 l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
29 l_init_msg_list VARCHAR2(1);
30 l_msg_count NUMBER;
31 l_msg_data VARCHAR(2000);
32 lp_strm_tbl okl_cash_dtls_tbl_type;
33
34 BEGIN
35
36 SAVEPOINT save_create_purpose;
37 l_init_msg_list := l_init_msg_list;
38 lp_strm_tbl := p_strm_tbl;
39
40
41 -- The procedure creates the receipt purpose and inserts a row in the
42 -- internal receipt line trasaction table.
43
44 Okl_Bpd_Cap_Purpose_Pvt.create_purpose( p_api_version
45 ,p_init_msg_list
46 ,x_return_status
47 ,x_msg_count
48 ,x_msg_data
49 ,p_strm_tbl
50 ,x_strm_tbl
51 );
52
53
54 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
55 RAISE G_EXCEPTION_HALT_VALIDATION;
56 ELSE
57 IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
58 l_return_status := x_return_status;
59 RAISE Fnd_Api.G_EXC_ERROR;
60 END IF;
61 END IF;
62
63
64 lp_strm_tbl := x_strm_tbl;
65
66
67 --Assign value to OUT variables
68
69 x_strm_tbl := lp_strm_tbl;
70 x_return_status := l_return_status ;
71 x_msg_count := l_msg_count ;
72 x_msg_data := l_msg_data ;
73
74 EXCEPTION
75
76 WHEN Fnd_Api.G_EXC_ERROR THEN
77 ROLLBACK TO save_create_purpose;
78 x_return_status := Fnd_Api.G_RET_STS_ERROR;
79 x_msg_count := l_msg_count ;
80 x_msg_data := l_msg_data ;
81 Fnd_Msg_Pub.count_and_get( p_count => x_msg_count
82 ,p_data => x_msg_data);
83 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
84 ROLLBACK TO save_create_purpose;
85 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
86 x_msg_count := l_msg_count ;
87 x_msg_data := l_msg_data ;
88 Fnd_Msg_Pub.count_and_get( p_count => x_msg_count
89 ,p_data => x_msg_data);
90 WHEN OTHERS THEN
91 ROLLBACK TO save_create_purpose;
92 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
93 x_msg_count := l_msg_count ;
94 x_msg_data := l_msg_data ;
95 Fnd_Msg_Pub.ADD_EXC_MSG('Okl_Bpd_Cap_Purpose_Pub','insert_row');
96 Fnd_Msg_Pub.count_and_get( p_count => x_msg_count
97 ,p_data => x_msg_data);
98
99 END create_purpose ;
100
101 ---------------------------------------------------------------------------
102 -- PROCEDURE update_purpose
103 ---------------------------------------------------------------------------
104 -- Start of comments
105 --
106 -- Procedure Name : update_purpose
107 -- Description : procedure for updating the records in
108 -- table OKL_TXL_RCPT_APPS_B
109 -- Business Rules :
110 -- Parameters : p_api_version, p_init_msg_list, x_return_status, x_msg_count,
111 -- x_msg_data, p_strm_tbl, x_strm_tbl.
112 -- Version : 1.0
113 -- End of comments
114 ---------------------------------------------------------------------------
115
116 PROCEDURE update_purpose ( p_api_version IN NUMBER
117 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
118 ,x_return_status OUT NOCOPY VARCHAR2
119 ,x_msg_count OUT NOCOPY NUMBER
120 ,x_msg_data OUT NOCOPY VARCHAR2
121 ,p_strm_tbl IN okl_cash_dtls_tbl_type
122 ,x_strm_tbl OUT NOCOPY okl_cash_dtls_tbl_type
123 ) IS
124
125 --Initialize return status.
126 l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
127 l_init_msg_list VARCHAR2(1);
128 l_msg_count NUMBER;
129 l_msg_data VARCHAR(2000);
130 lp_strm_tbl okl_cash_dtls_tbl_type;
131
132 BEGIN
133
134 SAVEPOINT save_update_purpose;
135 l_init_msg_list := l_init_msg_list;
136 lp_strm_tbl := p_strm_tbl;
137
138
139 -- The procedure creates the receipt purpose and inserts a row in the
140 -- internal receipt line trasaction table.
141
142 Okl_Bpd_Cap_Purpose_Pvt.update_purpose( p_api_version
143 ,p_init_msg_list
144 ,x_return_status
145 ,x_msg_count
146 ,x_msg_data
147 ,p_strm_tbl
148 ,x_strm_tbl
149 );
150
151
152 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
153 RAISE G_EXCEPTION_HALT_VALIDATION;
154 ELSE
155 IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
156 l_return_status := x_return_status;
157 RAISE Fnd_Api.G_EXC_ERROR;
158 END IF;
159 END IF;
160
161
162 lp_strm_tbl := x_strm_tbl;
163
164
165 --Assign value to OUT variables
166
167 x_strm_tbl := lp_strm_tbl;
168 x_return_status := l_return_status ;
169 x_msg_count := l_msg_count ;
170 x_msg_data := l_msg_data ;
171
172 EXCEPTION
173
174 WHEN Fnd_Api.G_EXC_ERROR THEN
175 ROLLBACK TO save_update_purpose;
176 x_return_status := Fnd_Api.G_RET_STS_ERROR;
177 x_msg_count := l_msg_count ;
178 x_msg_data := l_msg_data ;
179 Fnd_Msg_Pub.count_and_get( p_count => x_msg_count
180 ,p_data => x_msg_data);
181 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
182 ROLLBACK TO save_update_purpose;
183 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
184 x_msg_count := l_msg_count ;
185 x_msg_data := l_msg_data ;
186 Fnd_Msg_Pub.count_and_get( p_count => x_msg_count
187 ,p_data => x_msg_data);
188 WHEN OTHERS THEN
189 ROLLBACK TO save_update_purpose;
190 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
191 x_msg_count := l_msg_count ;
192 x_msg_data := l_msg_data ;
193 Fnd_Msg_Pub.ADD_EXC_MSG('Okl_Bpd_Cap_Purpose_Pub','insert_row');
194 Fnd_Msg_Pub.count_and_get( p_count => x_msg_count
195 ,p_data => x_msg_data);
196
197 END update_purpose ;
198
199 ---------------------------------------------------------------------------
200 -- PROCEDURE delete_purpose
201 ---------------------------------------------------------------------------
202 -- Start of comments
203 --
204 -- Procedure Name : delete_purpose
205 -- Description : procedure for deleting the records in
206 -- table OKL_TXL_RCPT_APPS_B
207 -- Business Rules :
208 -- Parameters : p_api_version, p_init_msg_list, x_return_status, x_msg_count,
209 -- x_msg_data, p_strm_tbl, x_strm_tbl.
210 -- Version : 1.0
211 -- End of comments
212 ---------------------------------------------------------------------------
213
214 PROCEDURE delete_purpose ( p_api_version IN NUMBER
215 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
216 ,x_return_status OUT NOCOPY VARCHAR2
217 ,x_msg_count OUT NOCOPY NUMBER
218 ,x_msg_data OUT NOCOPY VARCHAR2
219 ,p_strm_tbl IN okl_cash_dtls_tbl_type
220 ,x_strm_tbl OUT NOCOPY okl_cash_dtls_tbl_type
221 ) IS
222
223 --Initialize return status.
224 l_return_status VARCHAR2(1) DEFAULT Okl_Api.G_RET_STS_SUCCESS;
225 l_init_msg_list VARCHAR2(1);
226 l_msg_count NUMBER;
227 l_msg_data VARCHAR(2000);
228 lp_strm_tbl okl_cash_dtls_tbl_type;
229
230 BEGIN
231
232 SAVEPOINT save_delete_purpose;
233 l_init_msg_list := l_init_msg_list;
234 lp_strm_tbl := p_strm_tbl;
235
236
237 -- The procedure creates the receipt purpose and inserts a row in the
238 -- internal receipt line trasaction table.
239
240 Okl_Bpd_Cap_Purpose_Pvt.delete_purpose( p_api_version
241 ,p_init_msg_list
242 ,x_return_status
243 ,x_msg_count
244 ,x_msg_data
245 ,p_strm_tbl
246 ,x_strm_tbl
247 );
248
249
250 IF x_return_status = Okl_Api.G_RET_STS_UNEXP_ERROR THEN
251 RAISE G_EXCEPTION_HALT_VALIDATION;
252 ELSE
253 IF x_return_status <> Okl_Api.G_RET_STS_SUCCESS THEN
254 l_return_status := x_return_status;
255 RAISE Fnd_Api.G_EXC_ERROR;
256 END IF;
257 END IF;
258
259
260 lp_strm_tbl := x_strm_tbl;
261
262
263 --Assign value to OUT variables
264
265 x_strm_tbl := lp_strm_tbl;
266 x_return_status := l_return_status ;
267 x_msg_count := l_msg_count ;
268 x_msg_data := l_msg_data ;
269
270 EXCEPTION
271
272 WHEN Fnd_Api.G_EXC_ERROR THEN
273 ROLLBACK TO save_delete_purpose;
274 x_return_status := Fnd_Api.G_RET_STS_ERROR;
275 x_msg_count := l_msg_count ;
276 x_msg_data := l_msg_data ;
277 Fnd_Msg_Pub.count_and_get( p_count => x_msg_count
278 ,p_data => x_msg_data);
279 WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
280 ROLLBACK TO save_delete_purpose;
281 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
282 x_msg_count := l_msg_count ;
283 x_msg_data := l_msg_data ;
284 Fnd_Msg_Pub.count_and_get( p_count => x_msg_count
285 ,p_data => x_msg_data);
286 WHEN OTHERS THEN
287 ROLLBACK TO save_delete_purpose;
288 x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
289 x_msg_count := l_msg_count ;
290 x_msg_data := l_msg_data ;
291 Fnd_Msg_Pub.ADD_EXC_MSG('Okl_Bpd_Cap_Purpose_Pub','insert_row');
292 Fnd_Msg_Pub.count_and_get( p_count => x_msg_count
293 ,p_data => x_msg_data);
294
295 END delete_purpose ;
296
297 END Okl_Bpd_Cap_Purpose_Pub;