[Home] [Help]
PACKAGE BODY: APPS.OKL_ACCOUNT_DIST_PUB
Source
1 PACKAGE BODY OKL_ACCOUNT_DIST_PUB AS
2 /* $Header: OKLPTDTB.pls 120.2 2006/07/11 09:39:01 dkagrawa noship $ */
3 -- Start of wraper code generated automatically by Debug code generator
4 L_MODULE VARCHAR2(40) := 'LEASE.ACCOUNTING.ENGINE';
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 CREATE_ACCOUNTING_DIST(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_tmpl_identify_rec IN TMPL_IDENTIFY_REC_TYPE,
18 p_dist_info_rec IN dist_info_REC_TYPE,
19 p_ctxt_val_tbl IN CTXT_VAL_TBL_TYPE,
20 p_acc_gen_primary_key_tbl IN acc_gen_primary_key,
21 x_template_tbl OUT NOCOPY AVLV_TBL_TYPE,
22 x_amount_tbl OUT NOCOPY AMOUNT_TBL_TYPE)
23
24 IS
25
26
27 l_api_version CONSTANT NUMBER := 1.0;
28 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_ACCOUNTING_DIST';
29 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
30
31 l_tmpl_identify_rec TMPL_IDENTIFY_REC_TYPE := p_tmpl_identify_rec;
32 l_dist_info_rec dist_info_REC_TYPE := p_dist_info_rec;
33 l_ctxt_val_tbl CTXT_VAL_TBL_TYPE := p_ctxt_val_tbl;
34 l_acc_gen_primary_key_tbl acc_gen_primary_key := p_acc_gen_primary_key_tbl;
35 l_template_tbl AVLV_TBL_TYPE;
36 l_amount_tbl AMOUNT_TBL_TYPE;
37
38
39
40
41 BEGIN
42
43
44 SAVEPOINT CREATE_ACCOUNTING_DIST1;
45
46 x_return_status := FND_API.G_RET_STS_SUCCESS;
47
48 -- customer pre-processing
49
50
51
52
53 -- Run the MAIN Procedure
54
55
56
57 -- Start of wraper code generated automatically by Debug code generator for OKL_ACCOUNT_DIST_PVT.CREATE_ACCOUNTING_DIST
58 IF(L_DEBUG_ENABLED='Y') THEN
59 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
60 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
61 END IF;
62 IF(IS_DEBUG_PROCEDURE_ON) THEN
63 BEGIN
64 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPTDTB.pls call OKL_ACCOUNT_DIST_PVT.CREATE_ACCOUNTING_DIST ');
65 END;
66 END IF;
67 OKL_ACCOUNT_DIST_PVT.CREATE_ACCOUNTING_DIST(p_api_version => l_api_version,
68 p_init_msg_list => OKL_API.G_FALSE,
69 x_return_status => x_return_status,
70 x_msg_count => x_msg_count,
71 x_msg_data => x_msg_data,
72 p_tmpl_identify_rec => l_tmpl_identify_rec,
73 p_dist_info_rec => l_dist_info_rec,
74 p_ctxt_val_tbl => l_ctxt_val_tbl,
75 p_acc_gen_primary_key_tbl =>
76 l_acc_gen_primary_key_tbl,
77 x_template_tbl => x_template_tbl,
78 x_amount_tbl => x_amount_tbl);
79 IF(IS_DEBUG_PROCEDURE_ON) THEN
80 BEGIN
84 -- End of wraper code generated automatically by Debug code generator for OKL_ACCOUNT_DIST_PVT.CREATE_ACCOUNTING_DIST
81 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPTDTB.pls call OKL_ACCOUNT_DIST_PVT.CREATE_ACCOUNTING_DIST ');
82 END;
83 END IF;
85
86
87 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
88 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
89 ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
90 RAISE FND_API.G_EXC_ERROR;
91 END IF;
92
93 l_template_tbl := x_template_tbl;
94 l_amount_tbl := x_amount_tbl;
95
96
97
98
99
100 EXCEPTION
101
102 WHEN FND_API.G_EXC_ERROR THEN
103 ROLLBACK TO CREATE_ACCOUNTING_DIST1;
104 x_return_status := FND_API.G_RET_STS_ERROR;
105 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
106 ,p_count => x_msg_count
107 ,p_data => x_msg_data);
108
109 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
110 ROLLBACK TO CREATE_ACCOUNTING_DIST1;
111 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
112 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
113 ,p_count => x_msg_count
114 ,p_data => x_msg_data);
115
116 WHEN OTHERS THEN
117
118 ROLLBACK TO CREATE_ACCOUNTING_DIST1;
119 FND_MSG_PUB.ADD_EXC_MSG('OKL_ACCOUNT_DIST_PUB','CREATE_ACCOUNTING_DIST');
120 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
121 ,p_count => x_msg_count
122 ,p_data => x_msg_data);
123 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
124
125
126
127 END CREATE_ACCOUNTING_DIST;
128
129
130
131 PROCEDURE CREATE_ACCOUNTING_DIST(p_api_version IN NUMBER,
132 p_init_msg_list IN VARCHAR2,
133 x_return_status OUT NOCOPY VARCHAR2,
134 x_msg_count OUT NOCOPY NUMBER,
135 x_msg_data OUT NOCOPY VARCHAR2,
136 p_tmpl_identify_rec IN TMPL_IDENTIFY_REC_TYPE,
137 p_dist_info_rec IN DIST_INFO_REC_TYPE,
138 p_ctxt_val_tbl IN CTXT_VAL_TBL_TYPE,
139 p_acc_gen_primary_key_tbl IN acc_gen_primary_key,
140 x_template_tbl OUT NOCOPY AVLV_TBL_TYPE,
141 x_amount_tbl OUT NOCOPY AMOUNT_TBL_TYPE,
142 x_gl_date OUT NOCOPY DATE)
143 IS
144 BEGIN
145
146
147 SAVEPOINT CREATE_ACCOUNTING_DIST1;
148
149 x_return_status := FND_API.G_RET_STS_SUCCESS;
150
151
152 -- Start of wraper code generated automatically by Debug code generator for OKL_ACCOUNT_DIST_PVT.CREATE_ACCOUNTING_DIST
153 IF(L_DEBUG_ENABLED='Y') THEN
154 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
155 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
156 END IF;
157 IF(IS_DEBUG_PROCEDURE_ON) THEN
158 BEGIN
159 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPTDTB.pls call OKL_ACCOUNT_DIST_PVT.CREATE_ACCOUNTING_DIST ');
160 END;
161 END IF;
162 OKL_ACCOUNT_DIST_PVT.CREATE_ACCOUNTING_DIST(p_api_version => p_api_version,
163 p_init_msg_list => p_init_msg_list,
164 x_return_status => x_return_status,
165 x_msg_count => x_msg_count,
166 x_msg_data => x_msg_data,
167 p_tmpl_identify_rec => p_tmpl_identify_rec,
168 p_dist_info_rec => p_dist_info_rec,
169 p_ctxt_val_tbl => p_ctxt_val_tbl,
170 p_acc_gen_primary_key_tbl => p_acc_gen_primary_key_tbl,
171 x_template_tbl => x_template_tbl,
172 x_amount_tbl => x_amount_tbl,
173 x_gl_date => x_gl_date );
174 IF(IS_DEBUG_PROCEDURE_ON) THEN
175 BEGIN
176 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPTDTB.pls call OKL_ACCOUNT_DIST_PVT.CREATE_ACCOUNTING_DIST ');
177 END;
178 END IF;
179 -- End of wraper code generated automatically by Debug code generator for OKL_ACCOUNT_DIST_PVT.CREATE_ACCOUNTING_DIST
180
181
182 IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
183 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
184 ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
185 RAISE FND_API.G_EXC_ERROR;
186 END IF;
187
188
189
190
191
192 EXCEPTION
193
194 WHEN FND_API.G_EXC_ERROR THEN
195 ROLLBACK TO CREATE_ACCOUNTING_DIST1;
196 x_return_status := FND_API.G_RET_STS_ERROR;
197 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
198 ,p_count => x_msg_count
199 ,p_data => x_msg_data);
200
201 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
205 ,p_count => x_msg_count
202 ROLLBACK TO CREATE_ACCOUNTING_DIST1;
203 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
204 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
206 ,p_data => x_msg_data);
207
208 WHEN OTHERS THEN
209
210 ROLLBACK TO CREATE_ACCOUNTING_DIST1;
211 FND_MSG_PUB.ADD_EXC_MSG('OKL_ACCOUNT_DIST_PUB','CREATE_ACCOUNTING_DIST');
212 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
213 ,p_count => x_msg_count
214 ,p_data => x_msg_data);
215 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
216
217
218
219
220 END CREATE_ACCOUNTING_DIST;
221
222
223
224
225 PROCEDURE GET_TEMPLATE_INFO(p_api_version IN NUMBER,
226 p_init_msg_list IN VARCHAR2,
227 x_return_status OUT NOCOPY VARCHAR2,
228 x_msg_count OUT NOCOPY NUMBER,
229 x_msg_data OUT NOCOPY VARCHAR2,
230 p_tmpl_identify_rec IN TMPL_IDENTIFY_REC_TYPE,
231 x_template_tbl OUT NOCOPY AVLV_TBL_TYPE,
232 p_validity_date IN DATE DEFAULT SYSDATE)
233
234 IS
235
236 l_api_version CONSTANT NUMBER := 1.0;
237 l_api_name CONSTANT VARCHAR2(30) := 'GET_TEMPLATE_INFO';
238 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
239
240 l_tmpl_identify_rec TMPL_IDENTIFY_REC_TYPE := p_tmpl_identify_rec;
241
242 l_template_tbl AVLV_TBL_TYPE ;
243
244
245
246 BEGIN
247
248
249 SAVEPOINT GET_TEMPLATE_INFO1;
250
251 x_return_status := FND_API.G_RET_STS_SUCCESS;
252
253 -- customer pre-processing
254
255
256
257
258 -- Run the Main Procedure
259
260 -- Start of wraper code generated automatically by Debug code generator for OKL_ACCOUNT_DIST_PVT.GET_TEMPLATE_INFO
261 IF(L_DEBUG_ENABLED='Y') THEN
262 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
263 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
264 END IF;
265 IF(IS_DEBUG_PROCEDURE_ON) THEN
266 BEGIN
267 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPTDTB.pls call OKL_ACCOUNT_DIST_PVT.GET_TEMPLATE_INFO ');
268 END;
269 END IF;
270
271 OKL_ACCOUNT_DIST_PVT.GET_TEMPLATE_INFO(p_api_version => l_api_version,
272 p_init_msg_list => p_init_msg_list,
273 x_return_status => x_return_status,
274 x_msg_count => x_msg_count,
275 x_msg_data => x_msg_data,
276 p_tmpl_identify_rec => l_tmpl_identify_rec,
277 x_template_tbl => x_template_tbl,
278 p_validity_date => p_validity_date);
279
280 IF(IS_DEBUG_PROCEDURE_ON) THEN
281 BEGIN
282 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPTDTB.pls call OKL_ACCOUNT_DIST_PVT.GET_TEMPLATE_INFO ');
283 END;
284 END IF;
285 -- End of wraper code generated automatically by Debug code generator for OKL_ACCOUNT_DIST_PVT.GET_TEMPLATE_INFO
286
287 IF x_return_status = FND_API.G_RET_STS_ERROR THEN
288 RAISE FND_API.G_EXC_ERROR;
289 ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
290 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
291 END IF;
292
293
294 l_template_tbl := x_template_tbl;
295
296
297
298
299 EXCEPTION
300
301 WHEN FND_API.G_EXC_ERROR THEN
302 ROLLBACK TO GET_TEMPLATE_INFO1;
303 x_return_status := FND_API.G_RET_STS_ERROR;
304
305 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
306 ,p_count => x_msg_count
307 ,p_data => x_msg_data);
308
309 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
310 ROLLBACK TO GET_TEMPLATE_INFO1;
311 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
312 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
313 ,p_count => x_msg_count
314 ,p_data => x_msg_data);
315
316 WHEN OTHERS THEN
317
318 ROLLBACK TO GET_TEMPLATE_INFO1;
319 FND_MSG_PUB.ADD_EXC_MSG('OKL_ACCOUNT_DIST_PUB','GET_TEMPLATE_INFO');
320 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
321 ,p_count => x_msg_count
322 ,p_data => x_msg_data);
323 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
324
325
326
327 END GET_TEMPLATE_INFO;
328
329
330
331
332 PROCEDURE UPDATE_POST_TO_GL(p_api_version IN NUMBER,
333 p_init_msg_list IN VARCHAR2,
334 x_return_status OUT NOCOPY VARCHAR2,
335 x_msg_count OUT NOCOPY NUMBER,
336 x_msg_data OUT NOCOPY VARCHAR2,
337 p_source_id IN NUMBER,
341 l_api_version NUMBER := 1.0;
338 p_source_table IN VARCHAR2)
339 IS
340
342 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_POST_TO_GL';
343 l_source_id NUMBER := p_source_id;
344 l_source_table OKL_TRNS_ACC_DSTRS.source_table%TYPE := p_source_table;
345 l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
346
347 BEGIN
348
349 SAVEPOINT UPDATE_POST_TO_GL1;
350 x_return_status := FND_API.G_RET_STS_SUCCESS;
351
352 -- customer pre-processing
353
354
355
356
357 -- Start of wraper code generated automatically by Debug code generator for OKL_ACCOUNT_DIST_PVT.UPDATE_POST_TO_GL
358 IF(L_DEBUG_ENABLED='Y') THEN
359 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
360 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
361 END IF;
362 IF(IS_DEBUG_PROCEDURE_ON) THEN
363 BEGIN
364 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPTDTB.pls call OKL_ACCOUNT_DIST_PVT.UPDATE_POST_TO_GL ');
365 END;
366 END IF;
367 OKL_ACCOUNT_DIST_PVT.UPDATE_POST_TO_GL(p_api_version => l_api_version,
368 p_init_msg_list => OKL_API.G_FALSE,
369 x_return_status => x_return_status,
370 x_msg_count => x_msg_count,
371 x_msg_data => x_msg_data,
372 p_source_id => l_source_id,
373 p_source_table => l_source_table);
374 IF(IS_DEBUG_PROCEDURE_ON) THEN
375 BEGIN
376 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPTDTB.pls call OKL_ACCOUNT_DIST_PVT.UPDATE_POST_TO_GL ');
377 END;
378 END IF;
379 -- End of wraper code generated automatically by Debug code generator for OKL_ACCOUNT_DIST_PVT.UPDATE_POST_TO_GL
380
381 IF x_return_status = FND_API.G_RET_STS_ERROR THEN
382 RAISE FND_API.G_EXC_ERROR;
383 ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
384 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
385 END IF;
386
387
388
389
390 EXCEPTION
391
392 WHEN FND_API.G_EXC_ERROR THEN
393 ROLLBACK TO UPDATE_POST_TO_GL1;
394 x_return_status := FND_API.G_RET_STS_ERROR;
395
396 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
397 ,p_count => x_msg_count
398 ,p_data => x_msg_data);
399
400 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
401 ROLLBACK TO UPDATE_POST_TO_GL1;
402 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
403 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
404 ,p_count => x_msg_count
405 ,p_data => x_msg_data);
406
407 WHEN OTHERS THEN
408
409 ROLLBACK TO UPDATE_POST_TO_GL1;
410 FND_MSG_PUB.ADD_EXC_MSG('OKL_ACCOUNT_DIST_PUB','UPDATE_POST_TO_GL');
411 FND_MSG_PUB.Count_and_get(p_encoded => OKL_API.G_FALSE
412 ,p_count => x_msg_count
413 ,p_data => x_msg_data);
414 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
415
416
417
418 END UPDATE_POST_TO_GL;
419
420
421
422 PROCEDURE REVERSE_ENTRIES(p_api_version IN NUMBER,
423 p_init_msg_list IN VARCHAR2,
424 x_return_status OUT NOCOPY VARCHAR2,
425 x_msg_count OUT NOCOPY NUMBER,
426 x_msg_data OUT NOCOPY VARCHAR2,
427 p_source_id IN NUMBER,
428 p_source_table IN VARCHAR2,
429 p_acct_date IN DATE)
430 IS
431
432 BEGIN
433
434 -- Start of wraper code generated automatically by Debug code generator for OKL_ACCOUNT_DIST_PVT.REVERSE_ENTRIES
435 IF(L_DEBUG_ENABLED='Y') THEN
436 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
437 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
438 END IF;
439 IF(IS_DEBUG_PROCEDURE_ON) THEN
440 BEGIN
441 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPTDTB.pls call OKL_ACCOUNT_DIST_PVT.REVERSE_ENTRIES ');
442 END;
443 END IF;
444 OKL_ACCOUNT_DIST_PVT.REVERSE_ENTRIES(p_api_version => p_api_version,
445 p_init_msg_list => p_init_msg_list,
446 x_return_status => x_return_status,
447 x_msg_count => x_msg_count,
448 x_msg_data => x_msg_data,
449 p_source_id => p_source_id,
450 p_source_table => p_source_table,
451 p_acct_date => p_acct_date);
452 IF(IS_DEBUG_PROCEDURE_ON) THEN
453 BEGIN
454 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPTDTB.pls call OKL_ACCOUNT_DIST_PVT.REVERSE_ENTRIES ');
455 END;
456 END IF;
457 -- End of wraper code generated automatically by Debug code generator for OKL_ACCOUNT_DIST_PVT.REVERSE_ENTRIES
458
459
460 END REVERSE_ENTRIES;
461
462
463
464 PROCEDURE DELETE_ACCT_ENTRIES(p_api_version IN NUMBER,
468 x_msg_data OUT NOCOPY VARCHAR2,
465 p_init_msg_list IN VARCHAR2,
466 x_return_status OUT NOCOPY VARCHAR2,
467 x_msg_count OUT NOCOPY NUMBER,
469 p_source_id IN NUMBER,
470 p_source_table IN VARCHAR2)
471
472 IS
473
474 BEGIN
475
476
477 -- Start of wraper code generated automatically by Debug code generator for OKL_ACCOUNT_DIST_PVT.DELETE_ACCT_ENTRIES
478 IF(L_DEBUG_ENABLED='Y') THEN
479 L_LEVEL_PROCEDURE :=FND_LOG.LEVEL_PROCEDURE;
480 IS_DEBUG_PROCEDURE_ON := OKL_DEBUG_PUB.Check_Log_On(L_MODULE, L_LEVEL_PROCEDURE);
481 END IF;
482 IF(IS_DEBUG_PROCEDURE_ON) THEN
483 BEGIN
484 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'Begin Debug OKLPTDTB.pls call OKL_ACCOUNT_DIST_PVT.DELETE_ACCT_ENTRIES ');
485 END;
486 END IF;
487 OKL_ACCOUNT_DIST_PVT.DELETE_ACCT_ENTRIES(p_api_version => p_api_version,
488 p_init_msg_list => p_init_msg_list,
489 x_return_status => x_return_status,
490 x_msg_count => x_msg_count,
491 x_msg_data => x_msg_data,
492 p_source_id => p_source_id,
493 p_source_table => p_source_table);
494 IF(IS_DEBUG_PROCEDURE_ON) THEN
495 BEGIN
496 OKL_DEBUG_PUB.LOG_DEBUG(L_LEVEL_PROCEDURE,L_MODULE,'End Debug OKLPTDTB.pls call OKL_ACCOUNT_DIST_PVT.DELETE_ACCT_ENTRIES ');
497 END;
498 END IF;
499 -- End of wraper code generated automatically by Debug code generator for OKL_ACCOUNT_DIST_PVT.DELETE_ACCT_ENTRIES
500
501 END DELETE_ACCT_ENTRIES;
502
503
504
505
506 END OKL_ACCOUNT_DIST_PUB;