[Home] [Help]
PACKAGE BODY: APPS.OKL_BILL_STATUS_PUB
Source
1 PACKAGE BODY OKL_BILL_STATUS_PUB AS
2 /* $Header: OKLPBISB.pls 115.1 2004/01/07 18:36:02 sanahuja 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
13 PROCEDURE billing_status(
14 p_api_version IN NUMBER
15 ,p_init_msg_list IN VARCHAR2
16 ,x_return_status OUT NOCOPY VARCHAR2
17 ,x_msg_count OUT NOCOPY NUMBER
18 ,x_msg_data OUT NOCOPY VARCHAR2
19 ,x_bill_stat_tbl OUT NOCOPY bill_stat_tbl_type
20 ,p_khr_id IN NUMBER
21 ,p_transaction_date IN DATE
22 ) IS
23
24 l_api_name VARCHAR2(50) := 'billing_status';
25 l_init_msg_list VARCHAR2(200);
26 l_msg_data VARCHAR2(200);
27 l_return_status VARCHAR2(1);
28 l_msg_count NUMBER;
29
30
31 BEGIN
32
33
34 -- Start of wraper code generated automatically by Debug code generator for OKL_UBB_PVT.calculate_ubb_amount
35 IF(L_DEBUG_ENABLED='Y') THEN
36 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
37 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
38 END IF;
39 IF(IS_DEBUG_PROCEDURE_ON) THEN
40 BEGIN
41 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPUBBB.pls call OKL_UBB_PVT.calculate_ubb_amount ');
42 END;
43 END IF;
44 OKL_BILL_STATUS_PVT.billing_status( p_api_version
45 ,p_init_msg_list
46 ,x_return_status
47 ,x_msg_count
48 ,x_msg_data
49 ,x_bill_stat_tbl
50 ,p_khr_id
51 ,p_transaction_date);
52 IF(IS_DEBUG_PROCEDURE_ON) THEN
53 BEGIN
54 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPUBBB.pls call OKL_UBB_PVT.billing_status ');
55 END;
56 END IF;
57 -- End of wraper code generated automatically by Debug code generator for OKL_UBB_PVT.calculate_ubb_amount
58
59
60 EXCEPTION
61 WHEN Okl_Api.G_EXCEPTION_ERROR THEN
62 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
63 x_return_status := Okl_Api.HANDLE_EXCEPTIONS
64 (
65 l_api_name,
66 G_PKG_NAME,
67 'Okl_Api.G_RET_STS_ERROR',
68 x_msg_count,
69 x_msg_data,
70 '_PVT'
71 );
72 WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
73 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
74 x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
75 (
76 l_api_name,
77 G_PKG_NAME,
78 'Okl_Api.G_RET_STS_UNEXP_ERROR',
79 x_msg_count,
80 x_msg_data,
81 '_PVT'
82 );
83 WHEN OTHERS THEN
84 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Others) => '||SQLERRM);
85 x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
86 (
87 l_api_name,
88 G_PKG_NAME,
89 'OTHERS',
90 x_msg_count,
91 x_msg_data,
92 '_PVT'
93 );
94 END billing_status;
95
96
97 END OKL_BILL_STATUS_PUB;
98
99