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_deprn_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_deprn_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_deprn_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:
91: AND bc.book_type_code = ctlgd.source_id_char_1
92: AND bc.set_of_books_id = ctlgd.ledger_id ;
93:
94: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
95: fnd_log.string(G_LEVEL_PROCEDURE,
96: G_MODULE_NAME||l_procedure_name,
97: 'Rows inserted into headers: ' || to_char(SQL%ROWCOUNT));
98: END IF;
99:
137: AND mcbc.set_of_books_id = ctlgd.ledger_id
138: AND le.ledger_id = mcbc.set_of_books_id ;
139:
140: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
141: fnd_log.string(G_LEVEL_PROCEDURE,
142: G_MODULE_NAME||l_procedure_name,
143: 'Rows inserted into headers: ' || to_char(SQL%ROWCOUNT));
144: END IF;
145:
148: end if;
149:
150:
151: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
152: fnd_log.string(G_LEVEL_PROCEDURE,
153: G_MODULE_NAME||l_procedure_name||'.end',
154: 'End of procedure');
155: END IF;
156:
158: WHEN others THEN
159: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
160: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
161: fnd_message.set_token('ORACLE_ERR',SQLERRM);
162: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
163: END IF;
164: raise;
165:
166: end load_header_data;
173:
174: BEGIN
175:
176: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
177: fnd_log.string(G_LEVEL_PROCEDURE,
178: G_MODULE_NAME||l_procedure_name||'.begin',
179: 'Beginning of procedure');
180: END IF;
181:
246:
247: END IF; -- special secondary condition
248:
249: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
250: fnd_log.string(G_LEVEL_PROCEDURE,
251: G_MODULE_NAME||l_procedure_name||'.end',
252: 'End of procedure');
253: END IF;
254:
256: WHEN others THEN
257: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
258: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
259: fnd_message.set_token('ORACLE_ERR',SQLERRM);
260: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
261: END IF;
262: raise;
263:
264: END Load_header_data_rb ;
279:
280: BEGIN
281:
282: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
283: fnd_log.string(G_LEVEL_PROCEDURE,
284: G_MODULE_NAME||l_procedure_name||'.begin',
285: 'Beginning of procedure');
286: END IF;
287:
399: AND dp.book_type_code = ctlgd.source_id_char_1
400: AND dp.period_counter = ctlgd.source_id_int_2 ;
401:
402: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
403: fnd_log.string(G_LEVEL_PROCEDURE,
404: G_MODULE_NAME||l_procedure_name,
405: 'Rows inserted into lines: ' || to_char(SQL%ROWCOUNT));
406: END IF;
407:
523: 0, 'ALC',
524: 'SECONDARY');
525:
526: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
527: fnd_log.string(G_LEVEL_PROCEDURE,
528: G_MODULE_NAME||l_procedure_name,
529: 'Rows inserted into alc lines: ' || to_char(SQL%ROWCOUNT));
530: END IF;
531:
534: end if;
535:
536:
537: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
538: fnd_log.string(G_LEVEL_PROCEDURE,
539: G_MODULE_NAME||l_procedure_name||'.end',
540: 'End of procedure');
541: END IF;
542:
544: WHEN others THEN
545: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
546: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
547: fnd_message.set_token('ORACLE_ERR',SQLERRM);
548: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
549: END IF;
550: raise;
551:
552: end load_line_data;
566:
567: BEGIN
568:
569: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
570: fnd_log.string(G_LEVEL_PROCEDURE,
571: G_MODULE_NAME||l_procedure_name||'.begin',
572: 'Beginning of procedure');
573: END IF;
574:
574:
575: return;
576:
577: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
578: fnd_log.string(G_LEVEL_PROCEDURE,
579: G_MODULE_NAME||l_procedure_name,
580: 'Rows inserted into mls: ' || to_char(SQL%ROWCOUNT));
581: END IF;
582:
582:
583:
584:
585: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
586: fnd_log.string(G_LEVEL_PROCEDURE,
587: G_MODULE_NAME||l_procedure_name||'.end',
588: 'End of procedure');
589: END IF;
590:
592: WHEN others THEN
593: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
594: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
595: fnd_message.set_token('ORACLE_ERR',SQLERRM);
596: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
597: END IF;
598: raise;
599:
600: end load_mls_data;
724:
725: BEGIN
726:
727: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
728: fnd_log.string(G_LEVEL_PROCEDURE,
729: G_MODULE_NAME||l_procedure_name||'.begin',
730: 'Beginning of procedure');
731: END IF;
732:
952:
953: --
954:
955: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
956: fnd_log.string(G_LEVEL_PROCEDURE,
957: G_MODULE_NAME||l_procedure_name||'.end',
958: 'End of procedure');
959: END IF;
960:
962: WHEN others THEN
963: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
964: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
965: fnd_message.set_token('ORACLE_ERR',SQLERRM);
966: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
967: END IF;
968: raise;
969:
970: END load_generated_ccids;
990:
991: BEGIN
992:
993: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
994: fnd_log.string(G_LEVEL_PROCEDURE,
995: G_MODULE_NAME||l_procedure_name||'.begin',
996: 'Beginning of procedure');
997: END IF;
998:
998:
999:
1000: --
1001: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1002: fnd_log.string(G_LEVEL_PROCEDURE,
1003: G_MODULE_NAME||l_procedure_name||'.end',
1004: 'End of procedure');
1005: END IF;
1006:
1008: WHEN others THEN
1009: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
1010: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
1011: fnd_message.set_token('ORACLE_ERR',SQLERRM);
1012: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
1013: END IF;
1014: raise;
1015:
1016:
1037:
1038: BEGIN
1039:
1040: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1041: fnd_log.string(G_LEVEL_PROCEDURE,
1042: G_MODULE_NAME||l_procedure_name||'.begin',
1043: 'Beginning of procedure');
1044: END IF;
1045:
1076:
1077:
1078:
1079: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1080: fnd_log.string(G_LEVEL_PROCEDURE,
1081: G_MODULE_NAME||l_procedure_name||'.end',
1082: 'End of procedure');
1083: END IF;
1084:
1084:
1085: EXCEPTION
1086: WHEN error_found THEN
1087: IF (G_LEVEL_ERROR >= G_CURRENT_RUNTIME_LEVEL) THEN
1088: FND_LOG.string (G_LEVEL_ERROR,
1089: G_MODULE_NAME||l_procedure_name,
1090: 'ended in error');
1091: END IF;
1092: raise;
1094: WHEN others THEN
1095: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL) THEN
1096: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
1097: fnd_message.set_token('ORACLE_ERR',SQLERRM);
1098: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
1099: END IF;
1100: raise;
1101:
1102: END load_data;