18:
19: -- TYPES
20: -- globals / constants
21:
22: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
23:
24: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
25: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
26: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
20: -- globals / constants
21:
22: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
23:
24: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
25: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
26: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
27: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
28: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
21:
22: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
23:
24: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
25: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
26: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
27: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
28: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
29: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
22: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
23:
24: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
25: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
26: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
27: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
28: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
29: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
30:
23:
24: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
25: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
26: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
27: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
28: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
29: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
30:
31: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_extract_def_pkg.';
24: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
25: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
26: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
27: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
28: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
29: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
30:
31: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_extract_def_pkg.';
32:
25: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
26: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
27: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
28: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
29: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
30:
31: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_extract_def_pkg.';
32:
33:
52:
53: BEGIN
54:
55: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
56: fnd_log.string(G_LEVEL_PROCEDURE,
57: G_MODULE_NAME||l_procedure_name||'.begin',
58: 'Beginning of procedure');
59: END IF;
60:
94: AND dp.period_counter = ctlgd.source_id_int_2
95: AND bc.set_of_books_id = ctlgd.ledger_id ;
96:
97: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
98: fnd_log.string(G_LEVEL_PROCEDURE,
99: G_MODULE_NAME||l_procedure_name,
100: 'Rows inserted into headers: ' || to_char(SQL%ROWCOUNT));
101: END IF;
102:
143: AND mcbc.set_of_books_id = ctlgd.ledger_id
144: AND le.ledger_id = mcbc.set_of_books_id ;
145:
146: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
147: fnd_log.string(G_LEVEL_PROCEDURE,
148: G_MODULE_NAME||l_procedure_name,
149: 'Rows inserted into headers: ' || to_char(SQL%ROWCOUNT));
150: END IF;
151:
154: end if;
155:
156:
157: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
158: fnd_log.string(G_LEVEL_PROCEDURE,
159: G_MODULE_NAME||l_procedure_name||'.end',
160: 'End of procedure');
161: END IF;
162:
164: WHEN others THEN
165: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
166: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
167: fnd_message.set_token('ORACLE_ERR',SQLERRM);
168: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
169: END IF;
170: raise;
171:
172: end load_header_data;
187:
188: BEGIN
189:
190: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
191: fnd_log.string(G_LEVEL_PROCEDURE,
192: G_MODULE_NAME||l_procedure_name||'.begin',
193: 'Beginning of procedure');
194: END IF;
195:
259: AND bc.book_type_code = ctlgd.source_id_char_1
260: AND le.ledger_id = bc.set_of_books_id ;
261:
262: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
263: fnd_log.string(G_LEVEL_PROCEDURE,
264: G_MODULE_NAME||l_procedure_name,
265: 'Rows inserted into lines: ' || to_char(SQL%ROWCOUNT));
266: END IF;
267:
332: AND le.ledger_id = bc.set_of_books_id
333: AND df.set_of_books_id = bc.set_of_books_id;
334:
335: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
336: fnd_log.string(G_LEVEL_PROCEDURE,
337: G_MODULE_NAME||l_procedure_name,
338: 'Rows inserted into alc lines: ' || to_char(SQL%ROWCOUNT));
339: END IF;
340:
343: end if;
344:
345:
346: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
347: fnd_log.string(G_LEVEL_PROCEDURE,
348: G_MODULE_NAME||l_procedure_name||'.end',
349: 'End of procedure');
350: END IF;
351:
353: WHEN others THEN
354: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
355: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
356: fnd_message.set_token('ORACLE_ERR',SQLERRM);
357: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
358: END IF;
359: raise;
360:
361: end load_line_data;
375:
376: BEGIN
377:
378: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
379: fnd_log.string(G_LEVEL_PROCEDURE,
380: G_MODULE_NAME||l_procedure_name||'.begin',
381: 'Beginning of procedure');
382: END IF;
383:
383:
384: return;
385:
386: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
387: fnd_log.string(G_LEVEL_PROCEDURE,
388: G_MODULE_NAME||l_procedure_name,
389: 'Rows inserted into mls: ' || to_char(SQL%ROWCOUNT));
390: END IF;
391:
391:
392:
393:
394: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
395: fnd_log.string(G_LEVEL_PROCEDURE,
396: G_MODULE_NAME||l_procedure_name||'.end',
397: 'End of procedure');
398: END IF;
399:
401: WHEN others THEN
402: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
403: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
404: fnd_message.set_token('ORACLE_ERR',SQLERRM);
405: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
406: END IF;
407: raise;
408:
409: end load_mls_data;
484:
485: BEGIN
486:
487: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
488: fnd_log.string(G_LEVEL_PROCEDURE,
489: G_MODULE_NAME||l_procedure_name||'.begin',
490: 'Beginning of procedure');
491: END IF;
492:
572:
573: --
574:
575: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
576: fnd_log.string(G_LEVEL_PROCEDURE,
577: G_MODULE_NAME||l_procedure_name||'.end',
578: 'End of procedure');
579: END IF;
580:
582: WHEN others THEN
583: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
584: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
585: fnd_message.set_token('ORACLE_ERR',SQLERRM);
586: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
587: END IF;
588: raise;
589:
590: END load_generated_ccids;
610:
611: BEGIN
612:
613: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
614: fnd_log.string(G_LEVEL_PROCEDURE,
615: G_MODULE_NAME||l_procedure_name||'.begin',
616: 'Beginning of procedure');
617: END IF;
618:
639:
640:
641:
642: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
643: fnd_log.string(G_LEVEL_PROCEDURE,
644: G_MODULE_NAME||l_procedure_name||'.end',
645: 'End of procedure');
646: END IF;
647:
647:
648: EXCEPTION
649: WHEN error_found THEN
650: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
651: FND_LOG.string (G_LEVEL_ERROR,
652: G_MODULE_NAME||l_procedure_name,
653: 'ended in error');
654: END IF;
655: raise;
657: WHEN others THEN
658: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
659: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
660: fnd_message.set_token('ORACLE_ERR',SQLERRM);
661: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
662: END IF;
663: raise;
664:
665: END load_data;