[Home] [Help]
PACKAGE BODY: APPS.OKL_REVERSAL_PUB
Source
1 PACKAGE BODY OKL_REVERSAL_PUB AS
2 /* $Header: OKLPREVB.pls 115.8 2003/01/28 13:08:49 rabhupat noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.ACCOUNTING.REVERSAL';
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 SUBMIT_PERIOD_REVERSAL(p_api_version IN NUMBER,
13 p_init_msg_list IN VARCHAR2,
14 x_return_status OUT NOCOPY VARCHAR2,
15 x_msg_count OUT NOCOPY NUMBER,
16 x_msg_data OUT NOCOPY VARCHAR2,
17 p_period IN VARCHAR2,
18 x_request_id OUT NOCOPY NUMBER)
19
20 AS
21
22 l_api_version NUMBER := 1.0;
23 l_api_name VARCHAR2(30) := 'SUBMIT_PERIOD_REVERSAL';
24
25 l_period VARCHAR2(30) := p_period;
26 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
27 l_request_id NUMBER := 0;
28
29 BEGIN
30
31 SAVEPOINT SUBMIT_PERIOD_REVERSAL;
32
33 x_return_status := FND_API.G_RET_STS_SUCCESS;
34
35 -- customer pre-processing
36
37
38
39
40 -- Run the MAIN Procedure
41
42
43 -- Start of wraper code generated automatically by Debug code generator for OKL_REVERSAL_PVT.SUBMIT_PERIOD_REVERSAL
44 IF(L_DEBUG_ENABLED='Y') THEN
45 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
46 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
47 END IF;
48 IF(IS_DEBUG_PROCEDURE_ON) THEN
49 BEGIN
50 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPREVB.pls call OKL_REVERSAL_PVT.SUBMIT_PERIOD_REVERSAL ');
51 END;
52 END IF;
53 OKL_REVERSAL_PVT.SUBMIT_PERIOD_REVERSAL(p_api_version => l_api_version,
54 p_init_msg_list => p_init_msg_list,
55 x_return_status => x_return_status,
56 x_msg_count => x_msg_count,
57 x_msg_data => x_msg_data,
58 p_period => l_period,
59 x_request_id => x_request_id);
60 IF(IS_DEBUG_PROCEDURE_ON) THEN
61 BEGIN
62 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPREVB.pls call OKL_REVERSAL_PVT.SUBMIT_PERIOD_REVERSAL ');
63 END;
64 END IF;
65 -- End of wraper code generated automatically by Debug code generator for OKL_REVERSAL_PVT.SUBMIT_PERIOD_REVERSAL
66
67
68 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
69 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
70 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
71 RAISE FND_API.G_EXC_ERROR;
72 END IF;
73
74 l_request_id := x_request_id;
75
76
77
78
79
80 EXCEPTION
81
82 WHEN FND_API.G_EXC_ERROR THEN
83 ROLLBACK TO SUBMIT_PERIOD_REVERSAL;
84 x_return_status := FND_API.G_RET_STS_ERROR;
85
86 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
87 ,p_count => x_msg_count
88 ,p_data => x_msg_data);
89
90 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
91 ROLLBACK TO SUBMIT_PERIOD_REVERSAL;
92 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
93 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
94 ,p_count => x_msg_count
95 ,p_data => x_msg_data);
96
97 WHEN OTHERS THEN
98
99 FND_MSG_PUB.ADD_EXC_MSG('OKL_REVERSAL_PUB','SUBMIT_PERIOD_REVERSAL');
100 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
101 ,p_count => x_msg_count
102 ,p_data => x_msg_data);
103 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
104
105 END SUBMIT_PERIOD_REVERSAL;
106
107
108
109
110 PROCEDURE REVERSE_ENTRIES(p_api_version IN NUMBER,
111 p_init_msg_list IN VARCHAR2,
112 x_return_status OUT NOCOPY VARCHAR2,
113 x_msg_count OUT NOCOPY NUMBER,
114 x_msg_data OUT NOCOPY VARCHAR2,
115 p_source_id IN NUMBER,
116 p_source_table IN VARCHAR2,
117 p_acct_date IN DATE)
118 AS
119
120 l_api_version NUMBER := 1.0;
121 l_api_name VARCHAR2(30) := 'REVERSE_ENTRIES';
122
123 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
124 l_source_id NUMBER := p_source_id;
125 l_source_table VARCHAR2(30) := p_source_table;
126 l_acct_date DATE := p_acct_date;
127
128
129 BEGIN
130
131 SAVEPOINT REVERSE_ENTRIES;
132
133 x_return_status := FND_API.G_RET_STS_SUCCESS;
134
135 -- customer pre-processing
136
137
138
139
140 -- Run the MAIN Procedure
141
142 -- Start of wraper code generated automatically by Debug code generator for OKL_REVERSAL_PVT.REVERSE_ENTRIES
143 IF(L_DEBUG_ENABLED='Y') THEN
144 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
145 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
146 END IF;
147 IF(IS_DEBUG_PROCEDURE_ON) THEN
148 BEGIN
149 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPREVB.pls call OKL_REVERSAL_PVT.REVERSE_ENTRIES ');
150 END;
151 END IF;
152 OKL_REVERSAL_PVT.REVERSE_ENTRIES(p_api_version => l_api_version,
153 p_init_msg_list => p_init_msg_list,
154 x_return_status => x_return_status,
155 x_msg_count => x_msg_count,
156 x_msg_data => x_msg_data,
157 p_source_id => l_source_id,
158 p_source_table => l_source_table,
159 p_acct_date => l_acct_date);
160 IF(IS_DEBUG_PROCEDURE_ON) THEN
161 BEGIN
162 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPREVB.pls call OKL_REVERSAL_PVT.REVERSE_ENTRIES ');
163 END;
164 END IF;
165 -- End of wraper code generated automatically by Debug code generator for OKL_REVERSAL_PVT.REVERSE_ENTRIES
166
167
168 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
169 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
170 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
171 RAISE FND_API.G_EXC_ERROR;
172 END IF;
173
174
175
176
177
178 EXCEPTION
179
180 WHEN FND_API.G_EXC_ERROR THEN
181 ROLLBACK TO REVERSE_ENTRIES;
182 x_return_status := FND_API.G_RET_STS_ERROR;
183
184 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
185 ,p_count => x_msg_count
186 ,p_data => x_msg_data);
187
188 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
189 ROLLBACK TO REVERSE_ENTRIES;
190 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
191 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
192 ,p_count => x_msg_count
193 ,p_data => x_msg_data);
194
195 WHEN OTHERS THEN
196
197 FND_MSG_PUB.ADD_EXC_MSG('OKL_REVERSAL_PUB','REVERSE_ENTRIES');
198 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
199 ,p_count => x_msg_count
200 ,p_data => x_msg_data);
201 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202
203
204 END REVERSE_ENTRIES;
205
206
207
208 PROCEDURE REVERSE_ENTRIES(p_api_version IN NUMBER,
209 p_init_msg_list IN VARCHAR2,
210 x_return_status OUT NOCOPY VARCHAR2,
211 x_msg_count OUT NOCOPY NUMBER,
212 x_msg_data OUT NOCOPY VARCHAR2,
213 p_source_table IN VARCHAR2,
214 p_acct_date IN DATE,
215 p_source_id_tbl IN SOURCE_ID_TBL_TYPE)
216 AS
217
218
219 l_api_version NUMBER := 1.0;
220 l_api_name VARCHAR2(30) := 'REVERSE_ENTRIES';
221
222 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
223
224
225 l_source_table VARCHAR2(30) := p_source_table;
226 l_acct_date DATE := p_acct_date;
227 l_source_id_tbl source_id_tbl_type := p_source_id_tbl;
228
229
230
231 BEGIN
232
233 SAVEPOINT REVERSE_ENTRIES;
234
235 x_return_status := FND_API.G_RET_STS_SUCCESS;
236
237 -- customer pre-processing
238
239
240
241
242
243 -- Start of wraper code generated automatically by Debug code generator for OKL_REVERSAL_PVT.REVERSE_ENTRIES
244 IF(L_DEBUG_ENABLED='Y') THEN
245 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
246 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
247 END IF;
248 IF(IS_DEBUG_PROCEDURE_ON) THEN
249 BEGIN
250 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPREVB.pls call OKL_REVERSAL_PVT.REVERSE_ENTRIES ');
251 END;
252 END IF;
253 OKL_REVERSAL_PVT.REVERSE_ENTRIES(p_api_version => l_api_version,
254 p_init_msg_list => p_init_msg_list,
255 x_return_status => x_return_status,
256 x_msg_count => x_msg_count,
257 x_msg_data => x_msg_data,
258 p_source_table => p_source_table,
259 p_acct_date => p_acct_date,
260 p_source_id_tbl => p_source_id_tbl);
261 IF(IS_DEBUG_PROCEDURE_ON) THEN
262 BEGIN
263 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPREVB.pls call OKL_REVERSAL_PVT.REVERSE_ENTRIES ');
264 END;
265 END IF;
266 -- End of wraper code generated automatically by Debug code generator for OKL_REVERSAL_PVT.REVERSE_ENTRIES
267
268
269 IF x_return_status = OKL_API.G_RET_STS_UNEXP_ERROR THEN
270 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
271 ELSIF x_return_status = OKL_API.G_RET_STS_ERROR THEN
272 RAISE FND_API.G_EXC_ERROR;
273 END IF;
274
275
276
277
278
279 EXCEPTION
280
281 WHEN FND_API.G_EXC_ERROR THEN
282 ROLLBACK TO REVERSE_ENTRIES;
283 x_return_status := FND_API.G_RET_STS_ERROR;
284
285 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
286 ,p_count => x_msg_count
287 ,p_data => x_msg_data);
288
289 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
290 ROLLBACK TO REVERSE_ENTRIES;
291 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
293 ,p_count => x_msg_count
294 ,p_data => x_msg_data);
295
296 WHEN OTHERS THEN
297
298 FND_MSG_PUB.ADD_EXC_MSG('OKL_REVERSAL_PUB','REVERSE_ENTRIES');
299 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
300 ,p_count => x_msg_count
301 ,p_data => x_msg_data);
302 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303
304
305 END REVERSE_ENTRIES;
306
307
308 END OKL_REVERSAL_PUB;