[Home] [Help]
PACKAGE BODY: APPS.OKL_UBB_PUB
Source
1 PACKAGE BODY OKL_UBB_PUB AS
2 /* $Header: OKLPUBBB.pls 115.12 2004/04/13 11:26:13 rnaik noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.RECEIVABLES.BILLING';
5 L_DEBUG_ENABLED CONSTANT VARCHAR2(10) := OKL_DEBUG_PUB.CHECK_LOG_ENABLED;
6 L_LEVEL_PROCEDURE NUMBER;
7 IS_DEBUG_PROCEDURE_ON BOOLEAN;
8 -- End of wraper code generated automatically by Debug code generator
9
10
11
12 PROCEDURE calculate_ubb_amount(
13 p_api_version IN NUMBER
14 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
15 ,x_return_status OUT NOCOPY VARCHAR2
16 ,x_msg_count OUT NOCOPY NUMBER
17 ,x_msg_data OUT NOCOPY VARCHAR2
18 ) IS
19
20 l_api_name VARCHAR2(50) := 'calculate_ubb_amount';
21 l_init_msg_list VARCHAR2(200);
22 l_msg_data VARCHAR2(200);
23 l_return_status VARCHAR2(1);
24 l_msg_count NUMBER;
25
26
27 BEGIN
28
29
30
31
32
33
34
35 -- Start of wraper code generated automatically by Debug code generator for OKL_UBB_PVT.calculate_ubb_amount
36 IF(L_DEBUG_ENABLED='Y') THEN
37 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
38 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
39 END IF;
40 IF(IS_DEBUG_PROCEDURE_ON) THEN
41 BEGIN
42 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPUBBB.pls call OKL_UBB_PVT.calculate_ubb_amount ');
43 END;
44 END IF;
45 OKL_UBB_PVT.calculate_ubb_amount(
46 p_api_version
47 ,p_init_msg_list
48 ,x_return_status
49 ,x_msg_count
50 ,x_msg_data);
51 IF(IS_DEBUG_PROCEDURE_ON) THEN
52 BEGIN
53 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPUBBB.pls call OKL_UBB_PVT.calculate_ubb_amount ');
54 END;
55 END IF;
56 -- End of wraper code generated automatically by Debug code generator for OKL_UBB_PVT.calculate_ubb_amount
57
58
59
60
61
62 EXCEPTION
63 WHEN Okl_Api.G_EXCEPTION_ERROR THEN
64 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
65 x_return_status := Okl_Api.HANDLE_EXCEPTIONS
66 (
67 l_api_name,
68 G_PKG_NAME,
69 'Okl_Api.G_RET_STS_ERROR',
70 x_msg_count,
71 x_msg_data,
72 '_PVT'
73 );
74 WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
75 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
76 x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
77 (
78 l_api_name,
79 G_PKG_NAME,
80 'Okl_Api.G_RET_STS_UNEXP_ERROR',
81 x_msg_count,
82 x_msg_data,
83 '_PVT'
84 );
85 WHEN OTHERS THEN
86 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
87 x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
88 (
89 l_api_name,
90 G_PKG_NAME,
91 'OTHERS',
92 x_msg_count,
93 x_msg_data,
94 '_PVT'
95 );
96 END calculate_ubb_amount;
97
98 PROCEDURE calculate_ubb_amount( ERRBUF OUT NOCOPY VARCHAR2,
99 RETCODE OUT NOCOPY VARCHAR2 ,
100 p_api_version IN NUMBER,
101 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
102 ) IS
103
104
105 l_return_status VARCHAR2(1);
106 l_msg_count NUMBER;
107 l_msg_data VARCHAR2(2000);
108 l_mesg VARCHAR2(4000);
109 l_mesg_len NUMBER;
110 l_api_name CONSTANT VARCHAR2(30) := 'calculate_ubb_amount';
111
112
113 BEGIN
114
115 -- Start of wraper code generated automatically by Debug code generator for OKL_UBB_PUB.calculate_ubb_amount
116 IF(L_DEBUG_ENABLED='Y') THEN
117 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
118 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
119 END IF;
120 IF(IS_DEBUG_PROCEDURE_ON) THEN
121 BEGIN
122 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPUBBB.pls call OKL_UBB_PUB.calculate_ubb_amount ');
123 END;
124 END IF;
125 OKL_UBB_PUB.calculate_ubb_amount(
126 p_api_version => p_api_version,
127 p_init_msg_list => p_init_msg_list ,
128 x_return_status => l_return_status,
129 x_msg_count => l_msg_count,
130 x_msg_data => l_msg_data);
131 IF(IS_DEBUG_PROCEDURE_ON) THEN
132 BEGIN
133 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPUBBB.pls call OKL_UBB_PUB.calculate_ubb_amount ');
134 END;
135 END IF;
136 -- End of wraper code generated automatically by Debug code generator for OKL_UBB_PUB.calculate_ubb_amount
137
138
139 l_msg_count := fnd_msg_pub.count_msg;
140 IF l_msg_count > 0 THEN
141
142 l_mesg := substr(fnd_msg_pub.get(fnd_msg_pub.G_FIRST, fnd_api.G_FALSE), 1, 512);
143
144 FOR i IN 1..(l_msg_count - 1) LOOP
145 l_mesg := l_mesg ||
146 substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT,fnd_api.G_FALSE), 1, 512);
147 END LOOP;
148
149 fnd_msg_pub.delete_msg();
150
151 l_mesg_len := length(l_mesg);
152 fnd_file.put_line(fnd_file.log, 'Error: ');
153 fnd_file.put_line(fnd_file.output, 'Error: ');
154
155 FOR i IN 1..ceil(l_mesg_len/255) LOOP
156 fnd_file.put_line(fnd_file.log, l_mesg);
157 fnd_file.put_line(fnd_file.output, l_mesg);
158 END LOOP;
159
160 fnd_file.new_line(fnd_file.log,2);
161 fnd_file.new_line(fnd_file.output,2);
162 END IF;
163
164 IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
165 fnd_file.put_line(fnd_file.log,'msg data '||l_msg_data);
166 fnd_file.put_line(fnd_file.log,'return status '||l_return_status);
167 END IF;
168
169
170 fnd_file.put_line(fnd_file.log,'msg data '||l_msg_data);
171 fnd_file.put_line(fnd_file.log,'return status '||l_return_status);
172 fnd_file.put_line(fnd_file.output,'msg data '||l_msg_data);
173 fnd_file.put_line(fnd_file.output,'return status '||l_return_status);
174
175 EXCEPTION
176 WHEN OTHERS THEN
177 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
178 l_return_status :=Okl_Api.HANDLE_EXCEPTIONS
179 (
180 l_api_name,
181 G_PKG_NAME,
182 'OTHERS',
183 l_msg_count,
184 l_msg_data,
185 '_PVT'
186 );
187
188 END;
189
190 PROCEDURE bill_service_contract(
191 p_api_version IN NUMBER
192 ,p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
193 ,x_return_status OUT NOCOPY VARCHAR2
194 ,x_msg_count OUT NOCOPY NUMBER
195 ,x_msg_data OUT NOCOPY VARCHAR2
196 ,p_contract_number IN VARCHAR2
197 ) IS
198
199 l_api_name VARCHAR2(50) := 'bill_service_contract';
200 l_init_msg_list VARCHAR2(200);
201 l_msg_data VARCHAR2(200);
202 l_return_status VARCHAR2(1);
203 l_msg_count NUMBER;
204
205
206 BEGIN
207
208
209
210
211
212
213
214 -- Start of wraper code generated automatically by Debug code generator for OKL_UBB_PVT.bill_service_contract
215 IF(L_DEBUG_ENABLED='Y') THEN
216 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
217 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
218 END IF;
219 IF(IS_DEBUG_PROCEDURE_ON) THEN
220 BEGIN
221 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPUBBB.pls call OKL_UBB_PVT.bill_service_contract ');
222 END;
223 END IF;
224 OKL_UBB_PVT.bill_service_contract( p_api_version
225 ,p_init_msg_list
226 ,x_return_status
227 ,x_msg_count
228 ,x_msg_data
229 ,p_contract_number);
230 IF(IS_DEBUG_PROCEDURE_ON) THEN
231 BEGIN
232 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPUBBB.pls call OKL_UBB_PVT.bill_service_contract ');
233 END;
234 END IF;
235 -- End of wraper code generated automatically by Debug code generator for OKL_UBB_PVT.bill_service_contract
236
237
238
239
240
241 EXCEPTION
242 WHEN Okl_Api.G_EXCEPTION_ERROR THEN
243 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
244 x_return_status := Okl_Api.HANDLE_EXCEPTIONS
245 (
246 l_api_name,
247 G_PKG_NAME,
248 'Okl_Api.G_RET_STS_ERROR',
249 x_msg_count,
250 x_msg_data,
251 '_PVT'
252 );
253 WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
254 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
255 x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
256 (
257 l_api_name,
258 G_PKG_NAME,
259 'Okl_Api.G_RET_STS_UNEXP_ERROR',
260 x_msg_count,
261 x_msg_data,
262 '_PVT'
263 );
264 WHEN OTHERS THEN
265 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
266 x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
267 (
268 l_api_name,
269 G_PKG_NAME,
270 'OTHERS',
271 x_msg_count,
272 x_msg_data,
273 '_PVT'
274 );
275 END bill_service_contract;
276
277 PROCEDURE bill_service_contract
278 (errbuf OUT NOCOPY VARCHAR2
279 ,retcode OUT NOCOPY NUMBER
280 ,p_contract_number IN VARCHAR2
281 ) is
282
283 l_api_version NUMBER := 1;
284 lx_msg_count NUMBER;
285 lx_msg_data VARCHAR2(450);
286 i NUMBER;
287 l_msg_index_out NUMBER;
288 lx_return_status VARCHAR(1);
289
290 BEGIN
291
292
293 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'OKL Service Contract Billing');
294 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
295 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Program Run Date:'||sysdate);
296 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, '***********************************************');
297
298 bill_service_contract(
299 p_api_version => l_api_version,
300 p_init_msg_list => FND_API.G_FALSE,
301 x_return_status => lx_return_status,
302 x_msg_count => lx_msg_count,
303 x_msg_data => errbuf,
304 p_contract_number => p_contract_number
305 );
306
307 IF lx_msg_count >= 1 THEN
308 FOR i in 1..lx_msg_count LOOP
309 fnd_msg_pub.get (p_msg_index => i,
310 p_encoded => 'F',
311 p_data => lx_msg_data,
312 p_msg_index_out => l_msg_index_out);
313
314 FND_FILE.PUT_LINE (FND_FILE.OUTPUT,to_char(i) || ': ' || lx_msg_data);
315 END LOOP;
316 END IF;
317 EXCEPTION
318 WHEN OTHERS THEN
319
320 FND_FILE.PUT_LINE (FND_FILE.OUTPUT,'Error '||TO_CHAR(SQLCODE)||': '||SQLERRM);
321
322 END;
323
324 PROCEDURE billing_status(
325 p_api_version IN NUMBER
326 ,p_init_msg_list IN VARCHAR2
327 ,x_return_status OUT NOCOPY VARCHAR2
328 ,x_msg_count OUT NOCOPY NUMBER
329 ,x_msg_data OUT NOCOPY VARCHAR2
330 ,x_bill_stat_tbl OUT NOCOPY bill_stat_tbl_type
331 ,p_khr_id IN NUMBER
332 ,p_transaction_date IN DATE
333 ) IS
334
335 l_api_name VARCHAR2(50) := 'billing_status';
336 l_init_msg_list VARCHAR2(200);
337 l_msg_data VARCHAR2(200);
338 l_return_status VARCHAR2(1);
339 l_msg_count NUMBER;
340
341
342 BEGIN
343
344
345 -- Start of wraper code generated automatically by Debug code generator for OKL_UBB_PVT.calculate_ubb_amount
346 IF(L_DEBUG_ENABLED='Y') THEN
347 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
348 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
349 END IF;
350 IF(IS_DEBUG_PROCEDURE_ON) THEN
351 BEGIN
352 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPUBBB.pls call OKL_UBB_PVT.calculate_ubb_amount ');
353 END;
354 END IF;
355 OKL_UBB_PVT.billing_status( p_api_version
356 ,p_init_msg_list
357 ,x_return_status
358 ,x_msg_count
359 ,x_msg_data
360 ,x_bill_stat_tbl
361 ,p_khr_id
362 ,p_transaction_date);
363 IF(IS_DEBUG_PROCEDURE_ON) THEN
364 BEGIN
365 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPUBBB.pls call OKL_UBB_PVT.billing_status ');
366 END;
367 END IF;
368 -- End of wraper code generated automatically by Debug code generator for OKL_UBB_PVT.calculate_ubb_amount
369
370
371 EXCEPTION
372 WHEN Okl_Api.G_EXCEPTION_ERROR THEN
373 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
374 x_return_status := Okl_Api.HANDLE_EXCEPTIONS
375 (
376 l_api_name,
377 G_PKG_NAME,
378 'Okl_Api.G_RET_STS_ERROR',
379 x_msg_count,
380 x_msg_data,
381 '_PVT'
382 );
383 WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
384 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
385 x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
386 (
387 l_api_name,
388 G_PKG_NAME,
389 'Okl_Api.G_RET_STS_UNEXP_ERROR',
390 x_msg_count,
391 x_msg_data,
392 '_PVT'
393 );
394 WHEN OTHERS THEN
395 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
396 x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
397 (
398 l_api_name,
399 G_PKG_NAME,
400 'OTHERS',
401 x_msg_count,
402 x_msg_data,
403 '_PVT'
404 );
405 END billing_status;
406
407
408 END OKL_UBB_PUB;
409
410