25: err VARCHAR2(2000);
26:
27: BEGIN
28:
29: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
30: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'GCS_BUILD_FEM_POSTING_PKG' || '.' || 'CREATE_PACKAGE',
31: GCS_UTILITY_PKG.g_module_enter || 'CREATE_PACKAGE' ||
32: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
33: END IF;
26:
27: BEGIN
28:
29: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
30: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'GCS_BUILD_FEM_POSTING_PKG' || '.' || 'CREATE_PACKAGE',
31: GCS_UTILITY_PKG.g_module_enter || 'CREATE_PACKAGE' ||
32: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
33: END IF;
34: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_enter || 'CREATE_PACKAGE' || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
38: body:=
39: 'CREATE OR REPLACE PACKAGE BODY GCS_DYN_FEM_POSTING_PKG AS
40:
41: -- Store the log level
42: runtimeLogLevel NUMBER := FND_LOG.g_current_runtime_level;
43: statementLogLevel CONSTANT NUMBER := FND_LOG.level_statement;
44: procedureLogLevel CONSTANT NUMBER := FND_LOG.level_procedure;
45: exceptionLogLevel CONSTANT NUMBER := FND_LOG.level_exception;
46: errorLogLevel CONSTANT NUMBER := FND_LOG.level_error;
39: 'CREATE OR REPLACE PACKAGE BODY GCS_DYN_FEM_POSTING_PKG AS
40:
41: -- Store the log level
42: runtimeLogLevel NUMBER := FND_LOG.g_current_runtime_level;
43: statementLogLevel CONSTANT NUMBER := FND_LOG.level_statement;
44: procedureLogLevel CONSTANT NUMBER := FND_LOG.level_procedure;
45: exceptionLogLevel CONSTANT NUMBER := FND_LOG.level_exception;
46: errorLogLevel CONSTANT NUMBER := FND_LOG.level_error;
47: unexpectedLogLevel CONSTANT NUMBER := FND_LOG.level_unexpected;
40:
41: -- Store the log level
42: runtimeLogLevel NUMBER := FND_LOG.g_current_runtime_level;
43: statementLogLevel CONSTANT NUMBER := FND_LOG.level_statement;
44: procedureLogLevel CONSTANT NUMBER := FND_LOG.level_procedure;
45: exceptionLogLevel CONSTANT NUMBER := FND_LOG.level_exception;
46: errorLogLevel CONSTANT NUMBER := FND_LOG.level_error;
47: unexpectedLogLevel CONSTANT NUMBER := FND_LOG.level_unexpected;
48:
41: -- Store the log level
42: runtimeLogLevel NUMBER := FND_LOG.g_current_runtime_level;
43: statementLogLevel CONSTANT NUMBER := FND_LOG.level_statement;
44: procedureLogLevel CONSTANT NUMBER := FND_LOG.level_procedure;
45: exceptionLogLevel CONSTANT NUMBER := FND_LOG.level_exception;
46: errorLogLevel CONSTANT NUMBER := FND_LOG.level_error;
47: unexpectedLogLevel CONSTANT NUMBER := FND_LOG.level_unexpected;
48:
49: g_src_sys_code NUMBER := GCS_UTILITY_PKG.g_gcs_source_system_code;
42: runtimeLogLevel NUMBER := FND_LOG.g_current_runtime_level;
43: statementLogLevel CONSTANT NUMBER := FND_LOG.level_statement;
44: procedureLogLevel CONSTANT NUMBER := FND_LOG.level_procedure;
45: exceptionLogLevel CONSTANT NUMBER := FND_LOG.level_exception;
46: errorLogLevel CONSTANT NUMBER := FND_LOG.level_error;
47: unexpectedLogLevel CONSTANT NUMBER := FND_LOG.level_unexpected;
48:
49: g_src_sys_code NUMBER := GCS_UTILITY_PKG.g_gcs_source_system_code;
50: g_dimension_attr_info gcs_utility_pkg.t_hash_dimension_attr_info
43: statementLogLevel CONSTANT NUMBER := FND_LOG.level_statement;
44: procedureLogLevel CONSTANT NUMBER := FND_LOG.level_procedure;
45: exceptionLogLevel CONSTANT NUMBER := FND_LOG.level_exception;
46: errorLogLevel CONSTANT NUMBER := FND_LOG.level_error;
47: unexpectedLogLevel CONSTANT NUMBER := FND_LOG.level_unexpected;
48:
49: g_src_sys_code NUMBER := GCS_UTILITY_PKG.g_gcs_source_system_code;
50: g_dimension_attr_info gcs_utility_pkg.t_hash_dimension_attr_info
51: := gcs_utility_pkg.g_dimension_attr_info;
82:
83: BEGIN
84:
85: IF (procedureloglevel >= runtimeloglevel ) THEN
86: FND_LOG.STRING(procedureloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.POPULATE_GT_TABLE.begin'', to_char(sysdate, ''DD-MON-YYYY HH:MI:SS''));
87: END IF;
88:
89: IF (p_entry_id IS NOT NULL OR p_run_detail_id IS NOT NULL) THEN
90: IF (p_entry_id IS NOT NULL) THEN
639: END;
640: END IF;
641:
642: IF (procedureloglevel >= runtimeloglevel ) THEN
643: FND_LOG.STRING(procedureloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.POPULATE_GT_TABLE.end'', to_char(sysdate, ''DD-MON-YYYY HH:MI:SS''));
644: END IF;
645:
646: END Populate_GT_Table;
647:
684:
685: BEGIN
686:
687: IF (procedureloglevel >= runtimeloglevel ) THEN
688: FND_LOG.STRING(procedureloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.PROCESS_INSERT.begin'', to_char(sysdate, ''DD-MON-YYYY HH:MI:SS''));
689: END IF;
690:
691: Populate_Gt_Table(p_category_code => p_category_code,
692: p_cons_entity_id => p_cons_entity_id,
774: DECODE(p_topmost_entity_flag, ''Y'', YTD_BALANCE_E, NULL) YTD_BALANCE_F
775: FROM GCS_FEM_POSTING_GT;
776:
777: IF (procedureloglevel >= runtimeloglevel ) THEN
778: FND_LOG.STRING(procedureloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.PROCESS_INSERT.end'', to_char(sysdate, ''DD-MON-YYYY HH:MI:SS''));
779: END IF;
780:
781: EXCEPTION
782: WHEN NO_DATA_FOUND THEN
780:
781: EXCEPTION
782: WHEN NO_DATA_FOUND THEN
783: IF (unexpectedloglevel >= runtimeloglevel ) THEN
784: FND_LOG.STRING(unexpectedloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.PROCESS_INSERT'', ''GCS_NO_DATA_FOUND'');
785: END IF;
786: retcode := ''0'';
787: errbuf := ''GCS_NO_DATA_FOUND'';
788: RAISE NO_DATA_FOUND;
789:
790: WHEN OTHERS THEN
791: errbuf := substr( SQLERRM, 1, 2000);
792: IF (unexpectedloglevel >= runtimeloglevel ) THEN
793: FND_LOG.STRING(unexpectedloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.PROCESS_INSERT'', errbuf);
794: END IF;
795: retcode := ''0'';
796: RAISE;
797:
829:
830: BEGIN
831:
832: IF (procedureloglevel >= runtimeloglevel ) THEN
833: FND_LOG.STRING(procedureloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.PROCESS_MERGE.begin'', to_char(sysdate, ''DD-MON-YYYY HH:MI:SS''));
834: END IF;
835:
836: Populate_Gt_Table(p_category_code => p_category_code,
837: p_cons_entity_id => p_cons_entity_id,
1135: l_login_id
1136: FROM GCS_FEM_POSTING_GT GFPG;
1137:
1138: IF (statementloglevel >= runtimeloglevel ) THEN
1139: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST.PROCESS_MERGE.rowcount '', to_char(SQL%ROWCOUNT));
1140: END IF;
1141:
1142: -- If there are any rows processed, then register to FEM_DATA_LOCATIONS
1143: IF (SQL%ROWCOUNT <> 0) THEN
1153:
1154: END IF;
1155:
1156: IF (procedureloglevel >= runtimeloglevel ) THEN
1157: FND_LOG.STRING(procedureloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.PROCESS_MERGE.end'', to_char(sysdate, ''DD-MON-YYYY HH:MI:SS''));
1158: END IF;
1159:
1160: -- FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_success || ''PROCESS_MERGE'' || to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1161:
1161:
1162: EXCEPTION
1163: WHEN NO_DATA_FOUND THEN
1164: IF (unexpectedloglevel >= runtimeloglevel ) THEN
1165: FND_LOG.STRING(unexpectedloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''GCS_NO_DATA_FOUND'');
1166: END IF;
1167: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
1168: -- ''PROCESS_MERGE'' || to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1169: retcode := ''0'';
1172:
1173: WHEN OTHERS THEN
1174: errbuf := substr( SQLERRM, 1, 2000);
1175: IF (unexpectedloglevel >= runtimeloglevel ) THEN
1176: FND_LOG.STRING(unexpectedloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', errbuf);
1177: END IF;
1178: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
1179: -- ''PROCESS_MERGE'' || to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1180: retcode := ''0'';
1223: l_entity_id NUMBER;
1224:
1225: BEGIN
1226:
1227: runtimeLogLevel := FND_LOG.g_current_runtime_level;
1228:
1229: IF (procedureloglevel >= runtimeloglevel ) THEN
1230: FND_LOG.STRING(procedureloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST.begin'' || GCS_UTILITY_PKG.g_module_enter, to_char(sysdate, ''DD-MON-YYYY HH:MI:SS''));
1231: END IF;
1226:
1227: runtimeLogLevel := FND_LOG.g_current_runtime_level;
1228:
1229: IF (procedureloglevel >= runtimeloglevel ) THEN
1230: FND_LOG.STRING(procedureloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST.begin'' || GCS_UTILITY_PKG.g_module_enter, to_char(sysdate, ''DD-MON-YYYY HH:MI:SS''));
1231: END IF;
1232: IF (statementloglevel >= runtimeloglevel ) THEN
1233: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_run_name = '' || p_run_name);
1234: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_hierarchy_id = '' || to_char(p_hierarchy_id));
1229: IF (procedureloglevel >= runtimeloglevel ) THEN
1230: FND_LOG.STRING(procedureloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST.begin'' || GCS_UTILITY_PKG.g_module_enter, to_char(sysdate, ''DD-MON-YYYY HH:MI:SS''));
1231: END IF;
1232: IF (statementloglevel >= runtimeloglevel ) THEN
1233: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_run_name = '' || p_run_name);
1234: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_hierarchy_id = '' || to_char(p_hierarchy_id));
1235: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_balance_type_code = '' || p_balance_type_code);
1236: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_mode = '' || p_mode);
1237: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_category_code = '' || p_category_code);
1230: FND_LOG.STRING(procedureloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST.begin'' || GCS_UTILITY_PKG.g_module_enter, to_char(sysdate, ''DD-MON-YYYY HH:MI:SS''));
1231: END IF;
1232: IF (statementloglevel >= runtimeloglevel ) THEN
1233: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_run_name = '' || p_run_name);
1234: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_hierarchy_id = '' || to_char(p_hierarchy_id));
1235: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_balance_type_code = '' || p_balance_type_code);
1236: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_mode = '' || p_mode);
1237: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_category_code = '' || p_category_code);
1238: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_entry_id = '' || to_char(p_entry_id));
1231: END IF;
1232: IF (statementloglevel >= runtimeloglevel ) THEN
1233: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_run_name = '' || p_run_name);
1234: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_hierarchy_id = '' || to_char(p_hierarchy_id));
1235: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_balance_type_code = '' || p_balance_type_code);
1236: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_mode = '' || p_mode);
1237: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_category_code = '' || p_category_code);
1238: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_entry_id = '' || to_char(p_entry_id));
1239: END IF;
1232: IF (statementloglevel >= runtimeloglevel ) THEN
1233: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_run_name = '' || p_run_name);
1234: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_hierarchy_id = '' || to_char(p_hierarchy_id));
1235: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_balance_type_code = '' || p_balance_type_code);
1236: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_mode = '' || p_mode);
1237: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_category_code = '' || p_category_code);
1238: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_entry_id = '' || to_char(p_entry_id));
1239: END IF;
1240:
1233: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_run_name = '' || p_run_name);
1234: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_hierarchy_id = '' || to_char(p_hierarchy_id));
1235: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_balance_type_code = '' || p_balance_type_code);
1236: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_mode = '' || p_mode);
1237: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_category_code = '' || p_category_code);
1238: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_entry_id = '' || to_char(p_entry_id));
1239: END IF;
1240:
1241: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_enter || ''GCS_FEM_POST'' || to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1234: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_hierarchy_id = '' || to_char(p_hierarchy_id));
1235: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_balance_type_code = '' || p_balance_type_code);
1236: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_mode = '' || p_mode);
1237: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_category_code = '' || p_category_code);
1238: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''p_entry_id = '' || to_char(p_entry_id));
1239: END IF;
1240:
1241: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_enter || ''GCS_FEM_POST'' || to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1242: ';
1294: AND source_system_code = g_src_sys_code
1295: AND entity_id = l_entity_id;
1296:
1297: IF (statementloglevel >= runtimeloglevel ) THEN
1298: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.undo.balrowcount '', to_char(SQL%ROWCOUNT));
1299: END IF;
1300: --Bugfix 5704055: Removed Deletion from GCS_FEM_CONTRIBUTIONS_H
1301: --This mode will only be called for removal of Translation Rows
1302: ELSIF p_undo = ''Y'' AND p_entry_id IS NOT NULL THEN
1313: AND source_system_code = g_src_sys_code
1314: AND entity_id = l_entity_id;
1315:
1316: IF (statementloglevel >= runtimeloglevel ) THEN
1317: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.undo.balrowcount '', to_char(SQL%ROWCOUNT));
1318: END IF;
1319: --Bugfix 5704055: Removed Deletion from GCS_FEM_CONTRIBUTIONS_H
1320: END IF;
1321: EXCEPTION
1365: END IF;
1366:
1367:
1368: IF (procedureloglevel >= runtimeloglevel ) THEN
1369: FND_LOG.STRING(procedureloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST.end'', to_char(sysdate, ''DD-MON-YYYY HH:MI:SS''));
1370: END IF;
1371: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_success ||
1372: -- ''gcs_fem_post'' || to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1373: ';
1382: body:=
1383: ' EXCEPTION
1384: WHEN NO_DATA_FOUND THEN
1385: IF (unexpectedloglevel >= runtimeloglevel ) THEN
1386: FND_LOG.STRING(unexpectedloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', ''GCS_NO_DATA_FOUND'');
1387: END IF;
1388: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
1389: -- ''GCS_FEM_POST'' || to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1390: retcode := ''0'';
1393:
1394: WHEN no_proc_data_err THEN
1395: retcode := gcs_utility_pkg.g_ret_sts_warn;
1396: errbuf := ''No processing data found.'';
1397: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
1398: fnd_log.STRING (fnd_log.level_error,
1399: ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'',
1400: gcs_utility_pkg.g_module_failure
1401: || '' ''
1394: WHEN no_proc_data_err THEN
1395: retcode := gcs_utility_pkg.g_ret_sts_warn;
1396: errbuf := ''No processing data found.'';
1397: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
1398: fnd_log.STRING (fnd_log.level_error,
1399: ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'',
1400: gcs_utility_pkg.g_module_failure
1401: || '' ''
1402: || errbuf
1406:
1407: WHEN OTHERS THEN
1408: errbuf := substr( SQLERRM, 1, 2000);
1409: IF (unexpectedloglevel >= runtimeloglevel ) THEN
1410: FND_LOG.STRING(unexpectedloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_POST'', errbuf);
1411: END IF;
1412: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
1413: -- ''GCS_FEM_POST'' || to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1414: retcode := ''0'';
1435: g_elim_entity_ver NUMBER(15) := gcs_utility_pkg.g_dimension_attr_info(''ENTITY_ID-ELIMINATION_ENTITY'').version_id;
1436: BEGIN
1437:
1438: IF (procedureloglevel >= runtimeloglevel ) THEN
1439: FND_LOG.STRING(procedureloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE.begin'' || GCS_UTILITY_PKG.g_module_enter, to_char(sysdate, ''DD-MON-YYYY HH:MI:SS''));
1440: END IF;
1441: IF (statementloglevel >= runtimeloglevel ) THEN
1442: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_hierarchy_id = '' || to_char(p_hierarchy_id));
1443: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_cal_period_id = '' || to_char(p_cal_period_id));
1438: IF (procedureloglevel >= runtimeloglevel ) THEN
1439: FND_LOG.STRING(procedureloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE.begin'' || GCS_UTILITY_PKG.g_module_enter, to_char(sysdate, ''DD-MON-YYYY HH:MI:SS''));
1440: END IF;
1441: IF (statementloglevel >= runtimeloglevel ) THEN
1442: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_hierarchy_id = '' || to_char(p_hierarchy_id));
1443: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_cal_period_id = '' || to_char(p_cal_period_id));
1444: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_balance_type_code = '' || p_balance_type_code);
1445: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_entity_id = '' || to_char(p_entity_id));
1446: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_entity_type = '' || p_entity_type);
1439: FND_LOG.STRING(procedureloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE.begin'' || GCS_UTILITY_PKG.g_module_enter, to_char(sysdate, ''DD-MON-YYYY HH:MI:SS''));
1440: END IF;
1441: IF (statementloglevel >= runtimeloglevel ) THEN
1442: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_hierarchy_id = '' || to_char(p_hierarchy_id));
1443: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_cal_period_id = '' || to_char(p_cal_period_id));
1444: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_balance_type_code = '' || p_balance_type_code);
1445: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_entity_id = '' || to_char(p_entity_id));
1446: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_entity_type = '' || p_entity_type);
1447: END IF;
1440: END IF;
1441: IF (statementloglevel >= runtimeloglevel ) THEN
1442: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_hierarchy_id = '' || to_char(p_hierarchy_id));
1443: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_cal_period_id = '' || to_char(p_cal_period_id));
1444: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_balance_type_code = '' || p_balance_type_code);
1445: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_entity_id = '' || to_char(p_entity_id));
1446: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_entity_type = '' || p_entity_type);
1447: END IF;
1448:
1441: IF (statementloglevel >= runtimeloglevel ) THEN
1442: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_hierarchy_id = '' || to_char(p_hierarchy_id));
1443: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_cal_period_id = '' || to_char(p_cal_period_id));
1444: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_balance_type_code = '' || p_balance_type_code);
1445: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_entity_id = '' || to_char(p_entity_id));
1446: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_entity_type = '' || p_entity_type);
1447: END IF;
1448:
1449: ';
1442: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_hierarchy_id = '' || to_char(p_hierarchy_id));
1443: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_cal_period_id = '' || to_char(p_cal_period_id));
1444: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_balance_type_code = '' || p_balance_type_code);
1445: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_entity_id = '' || to_char(p_entity_id));
1446: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''p_entity_type = '' || p_entity_type);
1447: END IF;
1448:
1449: ';
1450:
1532:
1533: END IF;
1534:
1535: IF (statementloglevel >= runtimeloglevel ) THEN
1536: FND_LOG.STRING(statementloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE.rowcount '', to_char(SQL%ROWCOUNT));
1537: END IF;
1538:
1539: EXCEPTION
1540: WHEN NO_DATA_FOUND THEN
1538:
1539: EXCEPTION
1540: WHEN NO_DATA_FOUND THEN
1541: IF (unexpectedloglevel >= runtimeloglevel ) THEN
1542: FND_LOG.STRING(unexpectedloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', ''GCS_NO_DATA_FOUND'');
1543: END IF;
1544: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
1545: -- ''GCS_FEM_DELETE'' || to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1546: retcode := ''0'';
1549:
1550: WHEN OTHERS THEN
1551: errbuf := substr( SQLERRM, 1, 2000);
1552: IF (unexpectedloglevel >= runtimeloglevel ) THEN
1553: FND_LOG.STRING(unexpectedloglevel, ''gcs.plsql.GCS_FEM_POSTING_PKG.GCS_FEM_DELETE'', errbuf);
1554: END IF;
1555: --FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_failure ||
1556: -- ''GCS_FEM_DELETE'' || to_char(sysdate, '' DD-MON-YYYY HH:MI:SS''));
1557: retcode := ''0'';
1573: ad_ddl.create_plsql_object(GCS_DYNAMIC_UTIL_PKG.g_applsys_username, 'GCS', 'GCS_DYN_FEM_POSTING_PKG',1, r - 1, 'FALSE', err);
1574:
1575: -- dbms_output.put_line('Error' || AD_DDL.error_buf);
1576:
1577: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1578: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'GCS_BUILD_FEM_POSTING_PKG' || '.' || 'CREATE_PACKAGE',
1579: GCS_UTILITY_PKG.g_module_success || 'Create package' ||
1580: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
1581: END IF;
1574:
1575: -- dbms_output.put_line('Error' || AD_DDL.error_buf);
1576:
1577: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_PROCEDURE) THEN
1578: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'GCS_BUILD_FEM_POSTING_PKG' || '.' || 'CREATE_PACKAGE',
1579: GCS_UTILITY_PKG.g_module_success || 'Create package' ||
1580: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
1581: END IF;
1582: -- FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_success || 'CREATE PACKAGE' || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
1582: -- FND_FILE.PUT_LINE(FND_FILE.LOG, GCS_UTILITY_PKG.g_module_success || 'CREATE PACKAGE' || to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
1583:
1584: EXCEPTION
1585: WHEN OTHERS THEN
1586: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1587: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1588: 'GCS_BUILD_FEM_POSTING_PKG' || '.' || 'CREATE_PACKAGE',
1589: SUBSTR(SQLERRM, 1, 255));
1590: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1583:
1584: EXCEPTION
1585: WHEN OTHERS THEN
1586: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1587: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1588: 'GCS_BUILD_FEM_POSTING_PKG' || '.' || 'CREATE_PACKAGE',
1589: SUBSTR(SQLERRM, 1, 255));
1590: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1591: 'GCS_BUILD_FEM_POSTING_PKG' || '.' || 'CREATE_PACKAGE',
1586: IF (FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_UNEXPECTED) THEN
1587: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1588: 'GCS_BUILD_FEM_POSTING_PKG' || '.' || 'CREATE_PACKAGE',
1589: SUBSTR(SQLERRM, 1, 255));
1590: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1591: 'GCS_BUILD_FEM_POSTING_PKG' || '.' || 'CREATE_PACKAGE',
1592: GCS_UTILITY_PKG.g_module_failure || 'CREATE_PACKAGE' ||
1593: to_char(sysdate, ' DD-MON-YYYY HH:MI:SS'));
1594: END IF;