87:
88: -- TYPES
89: -- globals / constants
90:
91: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
92:
93: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
94: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
95: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
89: -- globals / constants
90:
91: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
92:
93: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
94: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
95: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
96: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
97: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
90:
91: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
92:
93: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
94: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
95: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
96: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
97: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
98: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
91: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
92:
93: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
94: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
95: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
96: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
97: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
98: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
99:
92:
93: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
94: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
95: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
96: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
97: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
98: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
99:
100: G_MODULE_NAME CONSTANT VARCHAR2(50):= ''fa.plsql.fa_xla_extract_trx_pkg.'';
93: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
94: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
95: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
96: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
97: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
98: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
99:
100: G_MODULE_NAME CONSTANT VARCHAR2(50):= ''fa.plsql.fa_xla_extract_trx_pkg.'';
101:
94: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
95: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
96: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
97: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
98: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
99:
100: G_MODULE_NAME CONSTANT VARCHAR2(50):= ''fa.plsql.fa_xla_extract_trx_pkg.'';
101:
102:
138: --+==========================================================================+
139:
140: g_chr_newline CONSTANT VARCHAR2(10):= fa_cmp_string_pkg.g_chr_newline;
141:
142: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
143:
144: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
145: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
146: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
140: g_chr_newline CONSTANT VARCHAR2(10):= fa_cmp_string_pkg.g_chr_newline;
141:
142: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
143:
144: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
145: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
146: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
147: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
148: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
141:
142: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
143:
144: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
145: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
146: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
147: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
148: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
149: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
142: G_CURRENT_RUNTIME_LEVEL NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
143:
144: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
145: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
146: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
147: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
148: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
149: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
150:
143:
144: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
145: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
146: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
147: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
148: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
149: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
150:
151: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_cmp_extract_pkg.';
144: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
145: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
146: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
147: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
148: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
149: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
150:
151: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_cmp_extract_pkg.';
152:
145: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
146: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
147: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
148: G_LEVEL_ERROR CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
149: G_LEVEL_UNEXPECTED CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
150:
151: G_MODULE_NAME CONSTANT VARCHAR2(50):= 'fa.plsql.fa_xla_cmp_extract_pkg.';
152:
153: --+==========================================================================+
178:
179: BEGIN
180:
181: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
182: fnd_log.string(G_LEVEL_PROCEDURE,
183: G_MODULE_NAME||l_procedure_name||'.begin',
184: 'Beginning of procedure');
185: END IF;
186:
184: 'Beginning of procedure');
185: END IF;
186:
187: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
188: fnd_log.string(G_LEVEL_STATEMENT,
189: G_MODULE_NAME||l_procedure_name,
190: 'SQL - Select from fnd_user');
191: END IF;
192:
195: FROM fnd_user fd
196: WHERE fd.user_id = fnd_global.user_id;
197:
198: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
199: fnd_log.string(G_LEVEL_STATEMENT,
200: G_MODULE_NAME||l_procedure_name,
201: 'User name = ' || l_user_name);
202: END IF;
203:
201: 'User name = ' || l_user_name);
202: END IF;
203:
204: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
205: fnd_log.string(G_LEVEL_PROCEDURE,
206: G_MODULE_NAME||l_procedure_name||'.end',
207: 'End of procedure');
208: END IF;
209:
217: WHEN OTHERS THEN
218: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
219: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
220: fnd_message.set_token('ORACLE_ERR',SQLERRM);
221: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
222: END IF;
223: raise;
224:
225: END GetUserName;
269:
270: BEGIN
271:
272: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
273: fnd_log.string(G_LEVEL_PROCEDURE,
274: G_MODULE_NAME||l_procedure_name||'.begin',
275: 'Beginning of procedure');
276: END IF;
277:
275: 'Beginning of procedure');
276: END IF;
277:
278: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
279: fnd_log.string(G_LEVEL_STATEMENT,
280: G_MODULE_NAME||l_procedure_name,
281: 'p_user_name = '||p_user_name||
282: ' - p_package_name = '||p_package_name);
283: END IF;
301:
302: l_header := REPLACE(l_header,'$history',l_StringValue );
303:
304: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
305: fnd_log.string(G_LEVEL_PROCEDURE,
306: G_MODULE_NAME||l_procedure_name||'.end',
307: 'End of procedure');
308: END IF;
309:
313: WHEN OTHERS THEN
314: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
315: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
316: fnd_message.set_token('ORACLE_ERR',SQLERRM);
317: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
318: END IF;
319: raise;
320:
321: END GeneratePkgComment;
352:
353: BEGIN
354:
355: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
356: fnd_log.string(G_LEVEL_PROCEDURE,
357: G_MODULE_NAME||l_procedure_name||'.begin',
358: 'Beginning of procedure');
359: END IF;
360:
358: 'Beginning of procedure');
359: END IF;
360:
361: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
362: fnd_log.string(G_LEVEL_STATEMENT,
363: G_MODULE_NAME||l_procedure_name,
364: 'p_user_name = '||p_user_name||
365: ' - p_package_name = '||p_package_name||
366: ' - p_extract_type = '||p_extract_type);
375: , p_package_name => p_package_name
376: ) );
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||'.end',
381: 'End of procedure' || length(l_SpecPkg));
382: END IF;
383:
388: WHEN OTHERS THEN
389: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
390: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
391: fnd_message.set_token('ORACLE_ERR',SQLERRM);
392: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
393: END IF;
394: raise;
395:
396: END BuildSpecPkg;
416:
417: BEGIN
418:
419: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
420: fnd_log.string(G_LEVEL_PROCEDURE,
421: G_MODULE_NAME||l_procedure_name||'.begin',
422: 'Beginning of procedure');
423: END IF;
424:
422: 'Beginning of procedure');
423: END IF;
424:
425: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
426: fnd_log.string(G_LEVEL_STATEMENT,
427: G_MODULE_NAME||l_procedure_name,
428: ' p_extract_type = '||p_extract_type);
429: END IF;
430:
434: , p_extract_type => p_extract_type
435: );
436:
437: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
438: fnd_log.string(G_LEVEL_PROCEDURE,
439: G_MODULE_NAME||l_procedure_name||'.end',
440: 'End of procedure');
441: END IF;
442:
447: WHEN OTHERS THEN
448: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
449: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
450: fnd_message.set_token('ORACLE_ERR',SQLERRM);
451: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
452: END IF;
453: return false;
454:
455: END GenerateSpecPackage;
475:
476: BEGIN
477:
478: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
479: fnd_log.string(G_LEVEL_PROCEDURE,
480: G_MODULE_NAME||l_procedure_name||'.begin',
481: 'Beginning of procedure');
482: END IF;
483:
486: , p_package => l_Package
487: );
488:
489: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
490: fnd_log.string(G_LEVEL_STATEMENT,
491: G_MODULE_NAME||l_procedure_name,
492: ' Compile the specification package in the DATABASE'||
493: ' - length of the package = '||length(l_Package));
494: END IF;
498: , p_package_text => l_Package
499: ) AND l_IsCompiled;
500:
501: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
502: fnd_log.string(G_LEVEL_STATEMENT,
503: G_MODULE_NAME||l_procedure_name,
504: 'END of CreateSpecPackage : return = '
505: ||CASE WHEN l_IsCompiled THEN 'TRUE' ELSE 'FALSE' END);
506: END IF;
506: END IF;
507:
508:
509: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
510: fnd_log.string(G_LEVEL_PROCEDURE,
511: G_MODULE_NAME||l_procedure_name||'.end',
512: 'End of procedure');
513: END IF;
514:
519: WHEN OTHERS THEN
520: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
521: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
522: fnd_message.set_token('ORACLE_ERR',SQLERRM);
523: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
524: END IF;
525: return FALSE;
526:
527: END CreateSpecPackage;
561:
562: BEGIN
563:
564: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
565: fnd_log.string(G_LEVEL_PROCEDURE,
566: G_MODULE_NAME||l_procedure_name||'.begin',
567: 'Beginning of procedure');
568: END IF;
569:
578: -- Generate Header Section
579: --
580:
581: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
582: fnd_log.string(G_LEVEL_STATEMENT,
583: G_MODULE_NAME||l_procedure_name,
584: '-> CALL FA_XLA_CMP_HEADER_PKG.GenerateHeaderExtract API');
585: END IF;
586:
602: --
603: -- generate line sections
604: --
605: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
606: fnd_log.string(G_LEVEL_STATEMENT,
607: G_MODULE_NAME||l_procedure_name,
608: '-> CALL FA_XLA_CMP_LINES_PKG.GenerateLinesExtract API');
609: END IF;
610:
628: --
629: -- generate mls section
630: --
631: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
632: fnd_log.string(G_LEVEL_STATEMENT,
633: G_MODULE_NAME||l_procedure_name,
634: '-> CALL FA_XLA_CMP_LINES_PKG.GenerateMlsExtract API');
635: END IF;
636:
693: -- generate main procedure
694: --
695:
696: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
697: fnd_log.string(G_LEVEL_STATEMENT,
698: G_MODULE_NAME||l_procedure_name,
699: '-> CALL FA_XLA_CMP_LOAD_PKG.GenerateLoadExtract API');
700: END IF;
701:
717: p_package_body := l_array_body;
718:
719:
720: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
721: fnd_log.string(G_LEVEL_STATEMENT,
722: G_MODULE_NAME||l_procedure_name,
723: 'l_isCompiled = '||CASE WHEN l_IsCompiled
724: THEN 'TRUE'
725: ELSE 'FALSE' END);
725: ELSE 'FALSE' END);
726: END IF;
727:
728: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
729: fnd_log.string(G_LEVEL_PROCEDURE,
730: G_MODULE_NAME||l_procedure_name||'.end',
731: 'End of procedure');
732: END IF;
733:
737: WHEN OTHERS THEN
738: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
739: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
740: fnd_message.set_token('ORACLE_ERR',SQLERRM);
741: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
742: END IF;
743: return false;
744:
745: END GeneratePrivateProcedures;
765:
766: BEGIN
767:
768: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
769: fnd_log.string(G_LEVEL_PROCEDURE,
770: G_MODULE_NAME||l_procedure_name||'.begin',
771: 'Beginning of procedure');
772: END IF;
773:
771: 'Beginning of procedure');
772: END IF;
773:
774: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
775: fnd_log.string(G_LEVEL_STATEMENT,
776: G_MODULE_NAME||l_procedure_name,
777: 'p_package_name = '||p_package_name||
778: ' - p_extract_type = '||p_extract_type);
779: END IF;
785: ,p_package_body => p_package_body);
786:
787:
788: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
789: fnd_log.string(G_LEVEL_STATEMENT,
790: G_MODULE_NAME||l_procedure_name,
791: 'l_isCompiled = '||CASE WHEN l_IsCompiled
792: THEN 'TRUE'
793: ELSE 'FALSE' END);
793: ELSE 'FALSE' END);
794: END IF;
795:
796: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
797: fnd_log.string(G_LEVEL_PROCEDURE,
798: G_MODULE_NAME||l_procedure_name||'.end',
799: 'End of procedure');
800: END IF;
801:
805: WHEN OTHERS THEN
806: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
807: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
808: fnd_message.set_token('ORACLE_ERR',SQLERRM);
809: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
810: END IF;
811: return false;
812:
813: END GenerateBody;
836:
837: BEGIN
838:
839: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
840: fnd_log.string(G_LEVEL_PROCEDURE,
841: G_MODULE_NAME||l_procedure_name||'.begin',
842: 'Beginning of procedure');
843: END IF;
844:
842: 'Beginning of procedure');
843: END IF;
844:
845: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
846: fnd_log.string(G_LEVEL_STATEMENT,
847: G_MODULE_NAME||l_procedure_name,
848: 'p_extract_type = '||p_extract_type);
849: END IF;
850:
898:
899: p_package_body := l_array_pkg;
900:
901: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
902: fnd_log.string(G_LEVEL_STATEMENT,
903: G_MODULE_NAME||l_procedure_name,
904: 'return value (l_IsCompiled) = '||
905: CASE l_IsCompiled WHEN TRUE THEN 'TRUE' ELSE 'FALSE' END);
906: END IF;
905: CASE l_IsCompiled WHEN TRUE THEN 'TRUE' ELSE 'FALSE' END);
906: END IF;
907:
908: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
909: fnd_log.string(G_LEVEL_PROCEDURE,
910: G_MODULE_NAME||l_procedure_name||'.end',
911: 'End of procedure');
912: END IF;
913:
917: WHEN OTHERS THEN
918: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
919: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
920: fnd_message.set_token('ORACLE_ERR',SQLERRM);
921: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
922: END IF;
923: RETURN FALSE;
924:
925: END GenerateBodyPackage;
948:
949: BEGIN
950:
951: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
952: fnd_log.string(G_LEVEL_PROCEDURE,
953: G_MODULE_NAME||l_procedure_name||'.begin',
954: 'Beginning of procedure');
955: END IF;
956:
966: (p_package_name => g_PackageName
967: ,p_package_text => l_Package) AND l_IsCompiled;
968:
969: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
970: fnd_log.string(G_LEVEL_STATEMENT,
971: G_MODULE_NAME||l_procedure_name,
972: 'return value (l_IsCompiled) = '||
973: CASE l_IsCompiled WHEN TRUE THEN 'TRUE' ELSE 'FALSE' END);
974: END IF;
973: CASE l_IsCompiled WHEN TRUE THEN 'TRUE' ELSE 'FALSE' END);
974: END IF;
975:
976: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
977: fnd_log.string(G_LEVEL_PROCEDURE,
978: G_MODULE_NAME||l_procedure_name||'.end',
979: 'End of procedure');
980: END IF;
981:
985: WHEN OTHERS THEN
986: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
987: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
988: fnd_message.set_token('ORACLE_ERR',SQLERRM);
989: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
990: END IF;
991:
992: return false;
993:
1020:
1021: BEGIN
1022:
1023: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1024: fnd_log.string(G_LEVEL_PROCEDURE,
1025: G_MODULE_NAME||l_procedure_name||'.begin',
1026: 'Beginning of procedure');
1027: END IF;
1028:
1029: g_UserName := GetUserName;
1030:
1031:
1032: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1033: fnd_log.string(G_LEVEL_STATEMENT,
1034: G_MODULE_NAME||l_procedure_name,
1035: 'entering loop');
1036: END IF;
1037:
1056: g_PackageName := 'FA_XLA_EXTRACT_DEF_PKG';
1057: end if;
1058:
1059: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1060: fnd_log.string(G_LEVEL_STATEMENT,
1061: G_MODULE_NAME||l_procedure_name,
1062: 'l_extract_type = '||l_extract_type ||
1063: ' - g_PackageName = '||g_PackageName);
1064: END IF;
1067: CreateSpecPackage
1068: (p_extract_type => l_extract_type);
1069:
1070: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1071: fnd_log.string(G_LEVEL_STATEMENT,
1072: G_MODULE_NAME||l_procedure_name,
1073: ' FA specification package created = '||
1074: CASE l_IsCompiled WHEN TRUE THEN 'TRUE' ELSE 'FALSE' END);
1075: END IF;
1079: CreateBodyPackage
1080: (p_extract_type => l_extract_type);
1081:
1082: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1083: fnd_log.string(G_LEVEL_STATEMENT,
1084: G_MODULE_NAME||l_procedure_name,
1085: ' AAD body package created = '||
1086: CASE l_IsCompiled WHEN TRUE THEN 'TRUE' ELSE 'FALSE' END);
1087: END IF;
1093:
1094: COMMIT;
1095:
1096: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL ) THEN
1097: fnd_log.string(G_LEVEL_STATEMENT,
1098: G_MODULE_NAME||l_procedure_name,
1099: 'return value. = '||
1100: CASE l_IsCompiled WHEN TRUE THEN 'TRUE' ELSE 'FALSE' END);
1101: END IF;
1100: CASE l_IsCompiled WHEN TRUE THEN 'TRUE' ELSE 'FALSE' END);
1101: END IF;
1102:
1103: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL ) THEN
1104: fnd_log.string(G_LEVEL_PROCEDURE,
1105: G_MODULE_NAME||l_procedure_name||'.end',
1106: 'End of procedure');
1107: END IF;
1108:
1112: WHEN OTHERS THEN
1113: IF (G_LEVEL_UNEXPECTED >= G_CURRENT_RUNTIME_LEVEL ) THEN
1114: fnd_message.set_name('OFA','FA_SHARED_ORACLE_ERR');
1115: fnd_message.set_token('ORACLE_ERR',SQLERRM);
1116: FND_LOG.MESSAGE (G_LEVEL_UNEXPECTED,G_MODULE_NAME||l_procedure_name,TRUE);
1117: END IF;
1118: RETURN FALSE;
1119:
1120: END Compile;