4: -- PRIVATE GLOBAL VARIABLES
5: --
6: -- The API name
7: g_pkg_name CONSTANT VARCHAR2(30) := 'gcs.plsql.GCS_ENTRY_PKG';
8: -- dimension info from gcs_utility_pkg
9: g_dimension_attr_info gcs_utility_pkg.t_hash_dimension_attr_info := gcs_utility_pkg.g_dimension_attr_info;
10: g_gcs_dimension_info gcs_utility_pkg.t_hash_gcs_dimension_info := gcs_utility_pkg.g_gcs_dimension_info;
11: -- A newline character. Included for convenience when writing long strings.
12: g_nl VARCHAR2(1) := '
5: --
6: -- The API name
7: g_pkg_name CONSTANT VARCHAR2(30) := 'gcs.plsql.GCS_ENTRY_PKG';
8: -- dimension info from gcs_utility_pkg
9: g_dimension_attr_info gcs_utility_pkg.t_hash_dimension_attr_info := gcs_utility_pkg.g_dimension_attr_info;
10: g_gcs_dimension_info gcs_utility_pkg.t_hash_gcs_dimension_info := gcs_utility_pkg.g_gcs_dimension_info;
11: -- A newline character. Included for convenience when writing long strings.
12: g_nl VARCHAR2(1) := '
13: ';
6: -- The API name
7: g_pkg_name CONSTANT VARCHAR2(30) := 'gcs.plsql.GCS_ENTRY_PKG';
8: -- dimension info from gcs_utility_pkg
9: g_dimension_attr_info gcs_utility_pkg.t_hash_dimension_attr_info := gcs_utility_pkg.g_dimension_attr_info;
10: g_gcs_dimension_info gcs_utility_pkg.t_hash_gcs_dimension_info := gcs_utility_pkg.g_gcs_dimension_info;
11: -- A newline character. Included for convenience when writing long strings.
12: g_nl VARCHAR2(1) := '
13: ';
14: -- session id
98:
99: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
100: fnd_log.STRING(fnd_log.level_procedure,
101: g_pkg_name || '.' || l_api_name,
102: gcs_utility_pkg.g_module_enter || ' ' || l_api_name ||
103: '() ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
104: END IF;
105:
106: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement THEN
438: -- Write the appropriate information to the execution report
439: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
440: fnd_log.STRING(fnd_log.level_procedure,
441: g_pkg_name || '.' || l_api_name,
442: gcs_utility_pkg.g_module_success || ' ' || l_api_name ||
443: '() ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
444: END IF;
445:
446: EXCEPTION
452:
453: IF fnd_log.g_current_runtime_level <= fnd_log.level_error THEN
454: fnd_log.STRING(fnd_log.level_error,
455: g_pkg_name || '.' || l_api_name,
456: gcs_utility_pkg.g_module_failure || ' ' || SQLERRM || ' ' ||
457: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
458: fnd_log.STRING(fnd_log.level_error,
459: g_pkg_name || '.' || l_api_name,
460: gcs_utility_pkg.g_module_failure || ' ' ||
456: gcs_utility_pkg.g_module_failure || ' ' || SQLERRM || ' ' ||
457: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
458: fnd_log.STRING(fnd_log.level_error,
459: g_pkg_name || '.' || l_api_name,
460: gcs_utility_pkg.g_module_failure || ' ' ||
461: l_api_name || '() ' ||
462: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
463:
464: RAISE import_header_error;
506: FND_FILE.NEW_LINE(FND_FILE.OUTPUT);
507: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
508: fnd_log.STRING(fnd_log.level_procedure,
509: g_pkg_name || '.' || l_api_name,
510: gcs_utility_pkg.g_module_enter || ' ' || l_api_name ||
511: '() ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
512: END IF;
513: -- In case of an error, we will roll back to this point in time.
514: SAVEPOINT gcs_entry_upload_headers_start;
734: -- Write the appropriate information to the execution report
735: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
736: fnd_log.STRING(fnd_log.level_procedure,
737: g_pkg_name || '.' || l_api_name,
738: gcs_utility_pkg.g_module_success || ' ' || l_api_name ||
739: '() ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
740: END IF;
741: FND_FILE.PUT_LINE(FND_FILE.OUTPUT,
742: g_pkg_name || '.' || l_api_name || ' EXIT');
748: -- Write the appropriate information to the execution report
749: IF fnd_log.g_current_runtime_level <= fnd_log.level_error THEN
750: fnd_log.STRING(fnd_log.level_error,
751: g_pkg_name || '.' || l_api_name,
752: gcs_utility_pkg.g_module_failure || ' ' ||
753: l_api_name || '() ' ||
754: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
755: RAISE import_header_error;
756: END IF;
785: BEGIN
786: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
787: fnd_log.STRING(fnd_log.level_procedure,
788: g_pkg_name || '.' || l_api_name,
789: gcs_utility_pkg.g_module_enter || ' ' || l_api_name ||
790: '() ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
791: END IF;
792: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
793: fnd_log.STRING(fnd_log.level_procedure,
845: END IF;
846: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
847: fnd_log.STRING(fnd_log.level_procedure,
848: g_pkg_name || '.' || l_api_name,
849: gcs_utility_pkg.g_module_success || ' ' || l_api_name ||
850: '() ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
851: END IF;
852: END get_entry_header;
853:
872: SAVEPOINT gcs_insert_header_start;
873: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
874: fnd_log.STRING(fnd_log.level_procedure,
875: g_pkg_name || '.' || l_api_name,
876: gcs_utility_pkg.g_module_enter || ' ' || l_api_name ||
877: '() ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
878: END IF;
879: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
880: fnd_log.STRING(fnd_log.level_procedure,
949: x_retcode := fnd_api.g_ret_sts_success;
950: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
951: fnd_log.STRING(fnd_log.level_procedure,
952: g_pkg_name || '.' || l_api_name,
953: gcs_utility_pkg.g_module_success || ' ' || l_api_name ||
954: '() ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
955: END IF;
956: EXCEPTION
957: WHEN DUP_VAL_ON_INDEX THEN
962: -- Write the appropriate information to the execution report
963: IF fnd_log.g_current_runtime_level <= fnd_log.level_error THEN
964: fnd_log.STRING(fnd_log.level_error,
965: g_pkg_name || '.' || l_api_name,
966: gcs_utility_pkg.g_module_failure || ' ' || x_errbuf ||
967: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
968: END IF;
969: END insert_entry_header;
970:
989: SAVEPOINT gcs_create_header_start;
990: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
991: fnd_log.STRING(fnd_log.level_procedure,
992: g_pkg_name || '.' || l_api_name,
993: gcs_utility_pkg.g_module_enter || ' ' || l_api_name ||
994: '() ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
995: END IF;
996: IF p_entry_id IS NULL THEN
997: SELECT gcs_entry_headers_s.NEXTVAL INTO p_entry_id FROM DUAL;
1021: p_period_init_entry_flag => p_period_init_entry_flag);
1022: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
1023: fnd_log.STRING(fnd_log.level_procedure,
1024: g_pkg_name || '.' || l_api_name,
1025: gcs_utility_pkg.g_module_success || ' ' || l_api_name ||
1026: '() ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
1027: END IF;
1028: EXCEPTION
1029: WHEN invalid_entity_error THEN
1034: -- Write the appropriate information to the execution report
1035: IF fnd_log.g_current_runtime_level <= fnd_log.level_error THEN
1036: fnd_log.STRING(fnd_log.level_error,
1037: g_pkg_name || '.' || l_api_name,
1038: gcs_utility_pkg.g_module_failure || ' ' || x_errbuf ||
1039: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
1040: END IF;
1041: WHEN invalid_rule_error THEN
1042: ROLLBACK TO gcs_create_header_start;
1046: -- Write the appropriate information to the execution report
1047: IF fnd_log.g_current_runtime_level <= fnd_log.level_error THEN
1048: fnd_log.STRING(fnd_log.level_error,
1049: g_pkg_name || '.' || l_api_name,
1050: gcs_utility_pkg.g_module_failure || ' ' || x_errbuf ||
1051: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
1052: END IF;
1053: WHEN OTHERS THEN
1054: ROLLBACK TO gcs_create_header_start;
1058: -- Write the appropriate information to the execution report
1059: IF fnd_log.g_current_runtime_level <= fnd_log.level_error THEN
1060: fnd_log.STRING(fnd_log.level_error,
1061: g_pkg_name || '.' || l_api_name,
1062: gcs_utility_pkg.g_module_failure || ' ' || x_errbuf ||
1063: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
1064: END IF;
1065: END create_entry_header;
1066: --
1115:
1116: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
1117: fnd_log.STRING(fnd_log.level_procedure,
1118: g_pkg_name || '.' || l_api_name,
1119: gcs_utility_pkg.g_module_enter || ' p_entry_id = ' ||
1120: p_entry_id || ' p_end_cal_period_id = ' ||
1121: p_end_cal_period_id || ' p_hierarchy_id = ' ||
1122: p_hierarchy_id || ' p_entity_id = ' || p_entity_id ||
1123: ' p_start_cal_period_id = ' || p_start_cal_period_id ||
1327:
1328: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
1329: fnd_log.STRING(fnd_log.level_procedure,
1330: g_pkg_name || '.' || l_api_name,
1331: gcs_utility_pkg.g_module_success || ' ' ||
1332: l_api_name || '() ' ||
1333: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS')
1334:
1335: );
1389: END IF;
1390: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
1391: fnd_log.STRING(fnd_log.level_procedure,
1392: g_pkg_name || '.' || l_api_name,
1393: gcs_utility_pkg.g_module_success || ' ' || l_api_name ||
1394: '() ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
1395: END IF;
1396:
1397: EXCEPTION
1406: -- Write the appropriate information to the execution report
1407: IF fnd_log.g_current_runtime_level <= fnd_log.level_error THEN
1408: fnd_log.STRING(fnd_log.level_error,
1409: g_pkg_name || '.' || l_api_name,
1410: gcs_utility_pkg.g_module_failure || ' ' || SQLERRM || ' ' ||
1411: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
1412: END IF;
1413: END manual_entries_import;
1414:
1452: SAVEPOINT gcs_delete_entry_start;
1453: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
1454: fnd_log.STRING(fnd_log.level_procedure,
1455: g_pkg_name || '.' || l_api_name,
1456: gcs_utility_pkg.g_module_enter || ' ' || l_api_name ||
1457: '() ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
1458: END IF;
1459: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
1460: fnd_log.STRING(fnd_log.level_procedure,
1476: x_retcode := fnd_api.g_ret_sts_success;
1477: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure THEN
1478: fnd_log.STRING(fnd_log.level_procedure,
1479: g_pkg_name || '.' || l_api_name,
1480: gcs_utility_pkg.g_module_success || ' ' || l_api_name ||
1481: '() ' || TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
1482: END IF;
1483: EXCEPTION
1484: WHEN NO_DATA_FOUND THEN
1489: -- Write the appropriate information to the execution report
1490: IF fnd_log.g_current_runtime_level <= fnd_log.level_error THEN
1491: fnd_log.STRING(fnd_log.level_error,
1492: g_pkg_name || '.' || l_api_name,
1493: gcs_utility_pkg.g_module_failure || ' ' || x_errbuf ||
1494: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
1495: END IF;
1496: WHEN OTHERS THEN
1497: ROLLBACK TO gcs_delete_entry_start;
1501: -- Write the appropriate information to the execution report
1502: IF fnd_log.g_current_runtime_level <= fnd_log.level_error THEN
1503: fnd_log.STRING(fnd_log.level_error,
1504: g_pkg_name || '.' || l_api_name,
1505: gcs_utility_pkg.g_module_failure || ' ' || x_errbuf ||
1506: TO_CHAR(SYSDATE, 'DD-MON-YYYY HH:MI:SS'));
1507: END IF;
1508: END delete_entry;
1509: