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