[Home] [Help]
PACKAGE BODY: APPS.OKL_LTE_INT_PUB
Source
1 PACKAGE BODY OKL_LTE_INT_PUB AS
2 /* $Header: OKLPLINB.pls 115.15 2004/04/13 10:51:49 rnaik noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.RECEIVABLES.INTEREST';
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_late_interest(
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_late_interest';
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_lte_int_PVT.calculate_late_interest
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 OKLPLINB.pls call OKL_lte_int_PVT.calculate_late_interest ');
43 END;
44 END IF;
45 OKL_lte_int_PVT.calculate_late_interest(
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 OKLPLINB.pls call OKL_lte_int_PVT.calculate_late_interest ');
54 END;
55 END IF;
56 -- End of wraper code generated automatically by Debug code generator for OKL_lte_int_PVT.calculate_late_interest
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_late_interest;
97
98 PROCEDURE calculate_late_interest( 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_late_interest';
111
112
113 BEGIN
114
115 -- Start of wraper code generated automatically by Debug code generator for OKL_LTE_INT_PUB.calculate_late_interest
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 OKLPLINB.pls call OKL_LTE_INT_PUB.calculate_late_interest ');
123 END;
124 END IF;
125 OKL_LTE_INT_PUB.calculate_late_interest(
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 OKLPLINB.pls call OKL_LTE_INT_PUB.calculate_late_interest ');
134 END;
135 END IF;
136 -- End of wraper code generated automatically by Debug code generator for OKL_LTE_INT_PUB.calculate_late_interest
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, 'Late Interest Calculation Failed');
166 fnd_file.put_line(fnd_file.output, 'Late Interest Calculation Failed');
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 END OKL_LTE_INT_PUB;