[Home] [Help]
PACKAGE BODY: APPS.OKL_LTE_CHRG_PUB
Source
1 PACKAGE BODY OKL_LTE_CHRG_PUB AS
2 /* $Header: OKLPCHGB.pls 115.11 2004/04/13 10:37:39 rnaik noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.RECEIVABLES.FEES';
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_charge(
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_charge';
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_Chrg_Pvt.calculate_late_charge
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 OKLPCHGB.pls call Okl_Lte_Chrg_Pvt.calculate_late_charge ');
43 END;
44 END IF;
45 Okl_Lte_Chrg_Pvt.calculate_late_charge(
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 OKLPCHGB.pls call Okl_Lte_Chrg_Pvt.calculate_late_charge ');
54 END;
55 END IF;
56 -- End of wraper code generated automatically by Debug code generator for Okl_Lte_Chrg_Pvt.calculate_late_charge
57
58
59
60
61
62
63
64 EXCEPTION
65 WHEN Okl_Api.G_EXCEPTION_ERROR THEN
66 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (EXCP) => '||SQLERRM);
67 x_return_status := Okl_Api.HANDLE_EXCEPTIONS
68 (
69 l_api_name,
70 G_PKG_NAME,
71 'Okl_Api.G_RET_STS_ERROR',
72 x_msg_count,
73 x_msg_data,
74 '_PVT'
75 );
76 WHEN Okl_Api.G_EXCEPTION_UNEXPECTED_ERROR THEN
77 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (UNEXCP) => '||SQLERRM);
78 x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
79 (
80 l_api_name,
81 G_PKG_NAME,
82 'Okl_Api.G_RET_STS_UNEXP_ERROR',
83 x_msg_count,
84 x_msg_data,
85 '_PVT'
86 );
87 WHEN OTHERS THEN
88 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Other) => '||SQLERRM);
89 x_return_status :=Okl_Api.HANDLE_EXCEPTIONS
90 (
91 l_api_name,
92 G_PKG_NAME,
93 'OTHERS',
94 x_msg_count,
95 x_msg_data,
96 '_PVT'
97 );
98 END calculate_late_charge;
99
100 PROCEDURE calculate_late_charge( ERRBUF OUT NOCOPY VARCHAR2,
101 RETCODE OUT NOCOPY VARCHAR2 ,
102 p_api_version IN NUMBER,
103 p_init_msg_list IN VARCHAR2 DEFAULT Okc_Api.G_FALSE
104 ) IS
105
106
107 l_return_status VARCHAR2(1);
108 l_msg_count NUMBER;
109 l_msg_data VARCHAR2(2000);
110 l_mesg VARCHAR2(4000);
111 l_mesg_len NUMBER;
112 l_api_name CONSTANT VARCHAR2(30) := 'calculate_late_charge';
113
114
115 BEGIN
116
117 -- Start of wraper code generated automatically by Debug code generator for Okl_Lte_Chrg_Pub.calculate_late_charge
118 IF(L_DEBUG_ENABLED='Y') THEN
119 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
120 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
121 END IF;
122 IF(IS_DEBUG_PROCEDURE_ON) THEN
123 BEGIN
124 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPCHGB.pls call Okl_Lte_Chrg_Pub.calculate_late_charge ');
125 END;
126 END IF;
127 Okl_Lte_Chrg_Pub.calculate_late_charge(
128 p_api_version => p_api_version,
129 p_init_msg_list => p_init_msg_list ,
130 x_return_status => l_return_status,
131 x_msg_count => l_msg_count,
132 x_msg_data => l_msg_data);
133 IF(IS_DEBUG_PROCEDURE_ON) THEN
134 BEGIN
135 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPCHGB.pls call Okl_Lte_Chrg_Pub.calculate_late_charge ');
136 END;
137 END IF;
138 -- End of wraper code generated automatically by Debug code generator for Okl_Lte_Chrg_Pub.calculate_late_charge
139
140
141 l_msg_count := Fnd_Msg_Pub.count_msg;
142 IF l_msg_count > 0 THEN
143
144 l_mesg := SUBSTR(Fnd_Msg_Pub.get(Fnd_Msg_Pub.G_FIRST, Fnd_Api.G_FALSE), 1, 512);
145
146 FOR i IN 1..(l_msg_count - 1) LOOP
147 l_mesg := l_mesg || SUBSTR(Fnd_Msg_Pub.get(Fnd_Msg_Pub.G_NEXT,Fnd_Api.G_FALSE), 1, 512);
148 END LOOP;
149
150 Fnd_Msg_Pub.delete_msg();
151
152 l_mesg_len := LENGTH(l_mesg);
153 Fnd_File.put_line(Fnd_File.LOG, 'Error: ');
154 Fnd_File.put_line(Fnd_File.output, 'Error: ');
155
156 FOR i IN 1..CEIL(l_mesg_len/255) LOOP
157 Fnd_File.put_line(Fnd_File.LOG, l_mesg);
158 Fnd_File.put_line(Fnd_File.output, l_mesg);
159 END LOOP;
160
161 Fnd_File.new_line(Fnd_File.LOG,2);
162 Fnd_File.new_line(Fnd_File.output,2);
163 END IF;
164
165 IF l_return_status <> Okc_Api.G_RET_STS_SUCCESS THEN
166 Fnd_File.put_line(Fnd_File.LOG, 'Late Charges Calculation Failed');
167 Fnd_File.put_line(Fnd_File.output, 'Late Charges Calculation Failed');
168 END IF;
169
170
171 Fnd_File.put_line(Fnd_File.LOG,'msg data '||l_msg_data);
172 Fnd_File.put_line(Fnd_File.LOG,'return status '||l_return_status);
173 Fnd_File.put_line(Fnd_File.output,'msg data '||l_msg_data);
174 Fnd_File.put_line(Fnd_File.output,'return status '||l_return_status);
175
176 EXCEPTION
177 WHEN OTHERS THEN
178 FND_FILE.PUT_LINE (FND_FILE.OUTPUT, 'Error (Other) => '||SQLERRM);
179 l_return_status :=Okl_Api.HANDLE_EXCEPTIONS
180 (
181 l_api_name,
182 G_PKG_NAME,
183 'OTHERS',
184 l_msg_count,
185 l_msg_data,
186 '_PVT'
187 );
188
189 END;
190
191 END Okl_Lte_Chrg_Pub;