49: l_api_name VARCHAR2(30) := 'INIT_LOCAL_TO_MASTER_MAPS';
50: l_cal_attribute_id NUMBER;
51: l_cal_version_id NUMBER;
52: BEGIN
53: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
54: THEN
55: fnd_log.STRING (fnd_log.level_procedure,
56: g_pkg_name || '.' || l_api_name,
57: gcs_utility_pkg.g_module_enter
51: l_cal_version_id NUMBER;
52: BEGIN
53: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
54: THEN
55: fnd_log.STRING (fnd_log.level_procedure,
56: g_pkg_name || '.' || l_api_name,
57: gcs_utility_pkg.g_module_enter
58: || ' p_source_ledger_id = ' || p_source_ledger_id
59: || ' '
63: g_ln_item_vs_id := gcs_utility_pkg.g_gcs_dimension_info ('LINE_ITEM_ID').associated_value_set_id;
64: l_cal_attribute_id := gcs_utility_pkg.g_dimension_attr_info ('CAL_PERIOD_ID-CAL_PERIOD_END_DATE').attribute_id;
65: l_cal_version_id := gcs_utility_pkg.g_dimension_attr_info ('CAL_PERIOD_ID-CAL_PERIOD_END_DATE').version_id;
66: BEGIN
67: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
68: THEN
69: fnd_log.STRING (fnd_log.level_statement,
70: g_pkg_name || '.' || l_api_name,
71: ' SELECT fla.dim_attribute_numeric_member
65: l_cal_version_id := gcs_utility_pkg.g_dimension_attr_info ('CAL_PERIOD_ID-CAL_PERIOD_END_DATE').version_id;
66: BEGIN
67: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
68: THEN
69: fnd_log.STRING (fnd_log.level_statement,
70: g_pkg_name || '.' || l_api_name,
71: ' SELECT fla.dim_attribute_numeric_member
72: INTO l_source_global_vs_combo
73: FROM fem_ledgers_attr fla,
117: AND (l_index_column_name <> 'ENTITY_ID')
118: AND (gcs_utility_pkg.g_gcs_dimension_info (l_index_column_name).required_for_gcs = 'Y')
119: )
120: THEN
121: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
122: THEN
123: fnd_log.STRING (fnd_log.level_statement,
124: g_pkg_name || '.' || l_api_name,
125: ' SELECT value_set_id
119: )
120: THEN
121: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
122: THEN
123: fnd_log.STRING (fnd_log.level_statement,
124: g_pkg_name || '.' || l_api_name,
125: ' SELECT value_set_id
126: INTO l_source_value_set_id
127: FROM fem_global_vs_combo_defs
473: l_where_text := replace(l_where_text,
474: 'AND fb.company_cost_center_org_id = geco.company_cost_center_org_id',
475: 'AND fcoh.parent_id = geco.company_cost_center_org_id');
476: end if;
477: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
478: THEN
479: fnd_log.STRING (fnd_log.level_statement,
480: g_pkg_name || '.' || l_api_name,
481: ' g_insert_statement = '|| g_insert_statement
475: 'AND fcoh.parent_id = geco.company_cost_center_org_id');
476: end if;
477: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
478: THEN
479: fnd_log.STRING (fnd_log.level_statement,
480: g_pkg_name || '.' || l_api_name,
481: ' g_insert_statement = '|| g_insert_statement
482: );
483: fnd_log.STRING (fnd_log.level_statement,
479: fnd_log.STRING (fnd_log.level_statement,
480: g_pkg_name || '.' || l_api_name,
481: ' g_insert_statement = '|| g_insert_statement
482: );
483: fnd_log.STRING (fnd_log.level_statement,
484: g_pkg_name || '.' || l_api_name,
485: ' l_from_text = '|| l_from_text
486: );
487: fnd_log.STRING (fnd_log.level_statement,
483: fnd_log.STRING (fnd_log.level_statement,
484: g_pkg_name || '.' || l_api_name,
485: ' l_from_text = '|| l_from_text
486: );
487: fnd_log.STRING (fnd_log.level_statement,
488: g_pkg_name || '.' || l_api_name,
489: ' l_where_text = '|| l_where_text
490: );
491: END IF;
492: g_insert_statement := g_insert_statement
493: || l_from_text
494: || l_where_text;
495: retcode := gcs_utility_pkg.g_ret_sts_success;
496: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
497: THEN
498: fnd_log.STRING (fnd_log.level_procedure,
499: g_pkg_name || '.' || l_api_name,
500: gcs_utility_pkg.g_module_success
494: || l_where_text;
495: retcode := gcs_utility_pkg.g_ret_sts_success;
496: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
497: THEN
498: fnd_log.STRING (fnd_log.level_procedure,
499: g_pkg_name || '.' || l_api_name,
500: gcs_utility_pkg.g_module_success
501: || ' Mapping Required : '
502: || l_mapping_required
510: retcode := gcs_utility_pkg.g_ret_sts_error;
511: fnd_message.set_name('GCS', 'GCS_DP_NO_HIER_OBJ_DEF_ERR');
512: fnd_message.set_token('DIMENSION', l_index_column_name);
513: errbuf := fnd_message.get;
514: IF fnd_log.g_current_runtime_level <= fnd_log.level_error
515: THEN
516: fnd_log.STRING (fnd_log.level_error,
517: g_pkg_name || '.' || l_api_name,
518: gcs_utility_pkg.g_module_failure
512: fnd_message.set_token('DIMENSION', l_index_column_name);
513: errbuf := fnd_message.get;
514: IF fnd_log.g_current_runtime_level <= fnd_log.level_error
515: THEN
516: fnd_log.STRING (fnd_log.level_error,
517: g_pkg_name || '.' || l_api_name,
518: gcs_utility_pkg.g_module_failure
519: || ' '
520: || errbuf
525: WHEN global_vs_id_error THEN
526: retcode := gcs_utility_pkg.g_ret_sts_error;
527: FND_MESSAGE.set_name('GCS', 'GCS_DP_GLOBAL_VS_ERR');
528: errbuf := fnd_message.get;
529: IF fnd_log.g_current_runtime_level <= fnd_log.level_error
530: THEN
531: fnd_log.STRING (fnd_log.level_error,
532: g_pkg_name || '.' || l_api_name,
533: gcs_utility_pkg.g_module_failure
527: FND_MESSAGE.set_name('GCS', 'GCS_DP_GLOBAL_VS_ERR');
528: errbuf := fnd_message.get;
529: IF fnd_log.g_current_runtime_level <= fnd_log.level_error
530: THEN
531: fnd_log.STRING (fnd_log.level_error,
532: g_pkg_name || '.' || l_api_name,
533: gcs_utility_pkg.g_module_failure
534: || ' '
535: || errbuf
540: WHEN OTHERS THEN
541: retcode := gcs_utility_pkg.G_RET_STS_UNEXP_ERROR;
542: FND_MESSAGE.set_name('GCS', 'GCS_DP_UNEXP_ERR');
543: errbuf := fnd_message.get;
544: IF fnd_log.g_current_runtime_level <= fnd_log.level_error
545: THEN
546: fnd_log.STRING (fnd_log.level_error,
547: g_pkg_name || '.' || l_api_name,
548: gcs_utility_pkg.g_module_failure
542: FND_MESSAGE.set_name('GCS', 'GCS_DP_UNEXP_ERR');
543: errbuf := fnd_message.get;
544: IF fnd_log.g_current_runtime_level <= fnd_log.level_error
545: THEN
546: fnd_log.STRING (fnd_log.level_error,
547: g_pkg_name || '.' || l_api_name,
548: gcs_utility_pkg.g_module_failure
549: || ' '
550: || errbuf
610: l_acct_type_version NUMBER(15) :=
611: gcs_utility_pkg.g_dimension_attr_info('EXT_ACCOUNT_TYPE_CODE-BASIC_ACCOUNT_TYPE_CODE').version_id;
612:
613: BEGIN
614: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
615: THEN
616: fnd_log.STRING (fnd_log.level_procedure,
617: g_pkg_name || '.' || l_api_name,
618: gcs_utility_pkg.g_module_enter
612:
613: BEGIN
614: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
615: THEN
616: fnd_log.STRING (fnd_log.level_procedure,
617: g_pkg_name || '.' || l_api_name,
618: gcs_utility_pkg.g_module_enter
619: || ' p_source_currency_code = ' || p_source_currency_code
620: || ', p_target_cal_period_id = ' || p_target_cal_period_id
643: THEN
644: RAISE init_mapping_error;
645: END IF;
646:
647: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
648: THEN
649: fnd_log.STRING (fnd_log.level_statement,
650: g_pkg_name || '.' || l_api_name,
651: 'Mapping required flag: ' || l_mapping_required);
645: END IF;
646:
647: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
648: THEN
649: fnd_log.STRING (fnd_log.level_statement,
650: g_pkg_name || '.' || l_api_name,
651: 'Mapping required flag: ' || l_mapping_required);
652: END IF;
653:
668: AND fcpa.date_assign_value BETWEEN gea.effective_start_date
669: AND NVL(gea.effective_end_date, fcpa.date_assign_value ) ;
670:
671:
672: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
673: THEN
674: fnd_log.STRING (fnd_log.level_statement,
675: g_pkg_name || '.' || l_api_name,
676: 'Source system code: ' || l_source_system_code);
670:
671:
672: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
673: THEN
674: fnd_log.STRING (fnd_log.level_statement,
675: g_pkg_name || '.' || l_api_name,
676: 'Source system code: ' || l_source_system_code);
677: END IF;
678: EXCEPTION
680: RAISE no_data_error;
681: END;
682:
683: -- bug fix 5074999: remove join to p_balance_type_code, which is redundant and incorrect
684: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
685: THEN
686: fnd_log.STRING (fnd_log.level_statement,
687: g_pkg_name || '.' || l_api_name,
688: 'SELECT cpmgt.source_cal_period_id cal_period_id
682:
683: -- bug fix 5074999: remove join to p_balance_type_code, which is redundant and incorrect
684: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
685: THEN
686: fnd_log.STRING (fnd_log.level_statement,
687: g_pkg_name || '.' || l_api_name,
688: 'SELECT cpmgt.source_cal_period_id cal_period_id
689: BULK COLLECT INTO l_periods_list
690: FROM fem_data_locations fdl,
871:
872: ELSE---------------------------------------
873: -- this is the mapping required case --
874: ---------------------------------------
875: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
876: THEN
877: fnd_log.STRING (fnd_log.level_statement,
878: g_pkg_name || '.' || l_api_name,
879: ' g_insert_statement = '
873: -- this is the mapping required case --
874: ---------------------------------------
875: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
876: THEN
877: fnd_log.STRING (fnd_log.level_statement,
878: g_pkg_name || '.' || l_api_name,
879: ' g_insert_statement = '
880: || g_insert_statement
881: );
878: g_pkg_name || '.' || l_api_name,
879: ' g_insert_statement = '
880: || g_insert_statement
881: );
882: fnd_log.STRING (fnd_log.level_statement,
883: g_pkg_name || '.' || l_api_name,
884: ' FORALL counter IN l_periods_list.FIRST..l_periods_list.LAST '
885: || g_nl
886: || ' EXECUTE IMMEDIATE g_insert_statement '
1049: l_stat_entry_id := NULL;
1050: END;
1051:
1052: -- insert data into gcs_entry_lines table
1053: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1054: THEN
1055: fnd_log.STRING (fnd_log.level_statement,
1056: g_pkg_name || '.' || l_api_name,
1057: '
1051:
1052: -- insert data into gcs_entry_lines table
1053: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1054: THEN
1055: fnd_log.STRING (fnd_log.level_statement,
1056: g_pkg_name || '.' || l_api_name,
1057: '
1058: INSERT /*+ APPEND */ INTO gcs_entry_lines
1059: (entry_id,
1135: COMMIT;
1136:
1137: -- recalculate P/L AND Retained Earnings accounts if year ends not match
1138: IF (l_entry_id IS NOT NULL AND p_year_end_values_match = 'N') THEN
1139: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1140: THEN
1141: fnd_log.STRING (fnd_log.level_statement,
1142: g_pkg_name || '.' || l_api_name,
1143: ' SELECT decode(count(run_name), 0, ''Y'', ''N'')
1137: -- recalculate P/L AND Retained Earnings accounts if year ends not match
1138: IF (l_entry_id IS NOT NULL AND p_year_end_values_match = 'N') THEN
1139: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1140: THEN
1141: fnd_log.STRING (fnd_log.level_statement,
1142: g_pkg_name || '.' || l_api_name,
1143: ' SELECT decode(count(run_name), 0, ''Y'', ''N'')
1144: INTO l_first_ever_data_prepped
1145: FROM gcs_cons_eng_runs
1160: OR (cal_period_id = p_cal_period_record.cal_period_id
1161: AND status_code NOT IN ('NOT_STARTED', 'IN_PROGRESS')));
1162: IF ( l_first_ever_data_prepped = 'Y' OR p_cal_period_record.cal_period_number = 1 )
1163: THEN
1164: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1165: THEN
1166: fnd_log.STRING (fnd_log.level_statement,
1167: g_pkg_name || '.' || l_api_name,
1168: ' UPDATE gcs_entry_lines gel
1162: IF ( l_first_ever_data_prepped = 'Y' OR p_cal_period_record.cal_period_number = 1 )
1163: THEN
1164: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1165: THEN
1166: fnd_log.STRING (fnd_log.level_statement,
1167: g_pkg_name || '.' || l_api_name,
1168: ' UPDATE gcs_entry_lines gel
1169: SET gel.ytd_balance_e = gel.xtd_balance_e,
1170: gel.ytd_debit_balance_e = gel.ptd_debit_balance_e,
1198: AND feata.version_id = g_eatc_batc_ver_id
1199: AND feata.ext_account_type_code = flia.dim_attribute_varchar_member
1200: AND gel.line_item_id = flia.line_item_id);
1201: ELSE
1202: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1203: THEN
1204: fnd_log.STRING (fnd_log.level_statement,
1205: g_pkg_name || '.' || l_api_name,
1206: ' UPDATE gcs_entry_lines gel
1200: AND gel.line_item_id = flia.line_item_id);
1201: ELSE
1202: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1203: THEN
1204: fnd_log.STRING (fnd_log.level_statement,
1205: g_pkg_name || '.' || l_api_name,
1206: ' UPDATE gcs_entry_lines gel
1207: SET (gel.ytd_balance_e, gel.ytd_credit_balance_e,gel.ytd_debit_balance_e) =
1208: (SELECT NVL (fb.ytd_balance_e, 0)
1263: -- Suspense accounts
1264: IF l_entry_id IS NOT NULL
1265: THEN
1266: -- check balance criteria
1267: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1268: THEN
1269: fnd_log.STRING (fnd_log.level_statement,
1270: g_pkg_name || '.' || l_api_name,
1271: ' SELECT threshold_amount,
1265: THEN
1266: -- check balance criteria
1267: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1268: THEN
1269: fnd_log.STRING (fnd_log.level_statement,
1270: g_pkg_name || '.' || l_api_name,
1271: ' SELECT threshold_amount,
1272: threshold_currency
1273: INTO l_threshold,
1308:
1309: -- bug fix 3800183
1310: IF (l_proportional_entry_id IS NOT NULL or l_stat_proportional_entry_id IS NOT NULL)
1311: THEN
1312: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1313: THEN
1314: fnd_log.STRING (fnd_log.level_statement,
1315: g_pkg_name || '.' || l_api_name,
1316: ' SELECT NVL (fc_1.minimum_accountable_unit, POWER (10, -fc_1.PRECISION)),
1310: IF (l_proportional_entry_id IS NOT NULL or l_stat_proportional_entry_id IS NOT NULL)
1311: THEN
1312: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1313: THEN
1314: fnd_log.STRING (fnd_log.level_statement,
1315: g_pkg_name || '.' || l_api_name,
1316: ' SELECT NVL (fc_1.minimum_accountable_unit, POWER (10, -fc_1.PRECISION)),
1317: NVL (fc_stat.minimum_accountable_unit, POWER (10, -fc_stat.PRECISION))
1318: INTO l_precision,
1396: FROM gcs_system_options;
1397: -- If enabled then update the above created entry to populate the correct intercompany values according to the line_item value
1398: IF l_imap_enabled_flag = 'Y'
1399: THEN
1400: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1401: THEN
1402: fnd_log.STRING (fnd_log.level_statement,
1403: g_pkg_name || '.' || l_api_name,
1404: ' UPDATE gcs_entry_lines gel
1398: IF l_imap_enabled_flag = 'Y'
1399: THEN
1400: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1401: THEN
1402: fnd_log.STRING (fnd_log.level_statement,
1403: g_pkg_name || '.' || l_api_name,
1404: ' UPDATE gcs_entry_lines gel
1405: SET gel.intercompany_id = ( SELECT intercompany_id
1406: FROM gcs_interco_map_dtls gimd
1422: FROM gcs_interco_map_dtls gimd
1423: WHERE gimd.line_item_id = gel.line_item_id
1424: );
1425:
1426: END IF;IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1427: THEN
1428: fnd_log.STRING (fnd_log.level_procedure,
1429: g_pkg_name || '.' || l_api_name,
1430: gcs_utility_pkg.g_module_success
1424: );
1425:
1426: END IF;IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1427: THEN
1428: fnd_log.STRING (fnd_log.level_procedure,
1429: g_pkg_name || '.' || l_api_name,
1430: gcs_utility_pkg.g_module_success
1431: || ' '
1432: || l_api_name
1446: DELETE FROM gcs_entry_lines
1447: WHERE entry_id IN (l_entry_id, l_stat_entry_id,
1448: l_proportional_entry_id, l_stat_proportional_entry_id);
1449:
1450: IF fnd_log.g_current_runtime_level <= fnd_log.level_error
1451: THEN
1452: fnd_log.STRING (fnd_log.level_error,
1453: g_pkg_name || '.' || l_api_name,
1454: gcs_utility_pkg.g_module_failure
1448: l_proportional_entry_id, l_stat_proportional_entry_id);
1449:
1450: IF fnd_log.g_current_runtime_level <= fnd_log.level_error
1451: THEN
1452: fnd_log.STRING (fnd_log.level_error,
1453: g_pkg_name || '.' || l_api_name,
1454: gcs_utility_pkg.g_module_failure
1455: || ' '
1456: || errbuf
1469: DELETE FROM gcs_entry_lines
1470: WHERE entry_id IN (l_entry_id, l_stat_entry_id,
1471: l_proportional_entry_id, l_stat_proportional_entry_id);
1472:
1473: IF fnd_log.g_current_runtime_level <= fnd_log.level_error
1474: THEN
1475: fnd_log.STRING (fnd_log.level_error,
1476: g_pkg_name || '.' || l_api_name,
1477: gcs_utility_pkg.g_module_failure
1471: l_proportional_entry_id, l_stat_proportional_entry_id);
1472:
1473: IF fnd_log.g_current_runtime_level <= fnd_log.level_error
1474: THEN
1475: fnd_log.STRING (fnd_log.level_error,
1476: g_pkg_name || '.' || l_api_name,
1477: gcs_utility_pkg.g_module_failure
1478: || ' '
1479: || errbuf
1486: WHEN no_data_error THEN
1487: retcode := gcs_utility_pkg.g_ret_sts_warn;
1488: FND_MESSAGE.set_name('GCS', 'GCS_DP_NO_DATA_ERR');
1489: errbuf := fnd_message.get;
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
1494: || ' '
1487: retcode := gcs_utility_pkg.g_ret_sts_warn;
1488: FND_MESSAGE.set_name('GCS', 'GCS_DP_NO_DATA_ERR');
1489: errbuf := fnd_message.get;
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
1494: || ' '
1495: || errbuf
1516: DELETE FROM gcs_entry_lines
1517: WHERE entry_id IN (l_entry_id, l_stat_entry_id,
1518: l_proportional_entry_id, l_stat_proportional_entry_id);
1519:
1520: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
1521: fnd_log.STRING (fnd_log.level_error,
1522: g_pkg_name || '.' || l_api_name,
1523: gcs_utility_pkg.g_module_failure
1524: || ' '
1517: WHERE entry_id IN (l_entry_id, l_stat_entry_id,
1518: l_proportional_entry_id, l_stat_proportional_entry_id);
1519:
1520: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
1521: fnd_log.STRING (fnd_log.level_error,
1522: g_pkg_name || '.' || l_api_name,
1523: gcs_utility_pkg.g_module_failure
1524: || ' '
1525: || errbuf
1560: l_mapping_required VARCHAR2 (1);
1561: l_api_name VARCHAR2 (20) := 'PROCESS_INC_DATA';
1562: l_imap_enabled_flag VARCHAR2 (1);
1563: BEGIN
1564: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1565: THEN
1566: fnd_log.STRING (fnd_log.level_procedure,
1567: g_pkg_name || '.' || l_api_name,
1568: gcs_utility_pkg.g_module_enter
1562: l_imap_enabled_flag VARCHAR2 (1);
1563: BEGIN
1564: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1565: THEN
1566: fnd_log.STRING (fnd_log.level_procedure,
1567: g_pkg_name || '.' || l_api_name,
1568: gcs_utility_pkg.g_module_enter
1569: || ' '
1570: || l_api_name
1589: SELECT gcs_entry_headers_s.NEXTVAL
1590: INTO x_stat_entry_id
1591: FROM DUAL;
1592: IF (l_mapping_required = 'N') THEN
1593: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1594: THEN
1595: fnd_log.STRING (fnd_log.level_statement,
1596: g_pkg_name || '.' || l_api_name,
1597: '
1591: FROM DUAL;
1592: IF (l_mapping_required = 'N') THEN
1593: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1594: THEN
1595: fnd_log.STRING (fnd_log.level_statement,
1596: g_pkg_name || '.' || l_api_name,
1597: '
1598: INSERT /*+ APPEND */ INTO gcs_entry_lines
1599: (entry_id,
1688: AND gcia.run_name = p_run_name
1689: AND gcia.child_entity_id = p_entity_id
1690: AND gcia.load_id = gdsd.load_id GROUP BY decode(fb.currency_code, 'STAT', x_stat_entry_id, x_entry_id);
1691: ELSE
1692: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1693: THEN
1694: fnd_log.STRING (fnd_log.level_statement,
1695: g_pkg_name || '.' || l_api_name,
1696: ' g_insert_statement = '
1690: AND gcia.load_id = gdsd.load_id GROUP BY decode(fb.currency_code, 'STAT', x_stat_entry_id, x_entry_id);
1691: ELSE
1692: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1693: THEN
1694: fnd_log.STRING (fnd_log.level_statement,
1695: g_pkg_name || '.' || l_api_name,
1696: ' g_insert_statement = '
1697: || g_insert_statement
1698: );
1695: g_pkg_name || '.' || l_api_name,
1696: ' g_insert_statement = '
1697: || g_insert_statement
1698: );
1699: fnd_log.STRING (fnd_log.level_statement,
1700: g_pkg_name || '.' || l_api_name,
1701: 'EXECUTE IMMEDIATE g_insert_statement '
1702: || g_nl
1703: || ' USING '
1884: -- Suspense accounts
1885: IF x_entry_id IS NOT NULL
1886: THEN
1887: -- check balance criteria
1888: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1889: THEN
1890: fnd_log.STRING (fnd_log.level_statement,
1891: g_pkg_name || '.' || l_api_name,
1892: ' SELECT threshold_amount, threshold_currency
1886: THEN
1887: -- check balance criteria
1888: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1889: THEN
1890: fnd_log.STRING (fnd_log.level_statement,
1891: g_pkg_name || '.' || l_api_name,
1892: ' SELECT threshold_amount, threshold_currency
1893: INTO l_threshold, l_threshold_currency
1894: FROM gcs_hierarchies_b
1981: FROM gcs_system_options;
1982: -- If enabled then update the above created entry to populate the correct intercompany values according to the line_item value
1983: IF l_imap_enabled_flag = 'Y'
1984: THEN
1985: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1986: THEN
1987: fnd_log.STRING (fnd_log.level_statement,
1988: g_pkg_name || '.' || l_api_name,
1989: ' UPDATE gcs_entry_lines gel
1983: IF l_imap_enabled_flag = 'Y'
1984: THEN
1985: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1986: THEN
1987: fnd_log.STRING (fnd_log.level_statement,
1988: g_pkg_name || '.' || l_api_name,
1989: ' UPDATE gcs_entry_lines gel
1990: SET gel.intercompany_id = ( SELECT intercompany_id
1991: FROM gcs_interco_map_dtls gimd
2008: WHERE gimd.line_item_id = gel.line_item_id
2009: );
2010:
2011: END IF;
2012: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
2013: THEN
2014: fnd_log.STRING (fnd_log.level_procedure,
2015: g_pkg_name || '.' || l_api_name,
2016: gcs_utility_pkg.g_module_success
2010:
2011: END IF;
2012: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
2013: THEN
2014: fnd_log.STRING (fnd_log.level_procedure,
2015: g_pkg_name || '.' || l_api_name,
2016: gcs_utility_pkg.g_module_success
2017: || ' '
2018: || l_api_name
2024: WHEN no_suspense_template_error THEN
2025: retcode := gcs_utility_pkg.g_ret_sts_error;
2026: FND_MESSAGE.set_name('GCS', 'GCS_DP_NO_SUSPENSE_ERR');
2027: errbuf := fnd_message.get;
2028: IF fnd_log.g_current_runtime_level <= fnd_log.level_error
2029: THEN
2030: fnd_log.STRING (fnd_log.level_error,
2031: g_pkg_name || '.' || l_api_name,
2032: gcs_utility_pkg.g_module_failure
2026: FND_MESSAGE.set_name('GCS', 'GCS_DP_NO_SUSPENSE_ERR');
2027: errbuf := fnd_message.get;
2028: IF fnd_log.g_current_runtime_level <= fnd_log.level_error
2029: THEN
2030: fnd_log.STRING (fnd_log.level_error,
2031: g_pkg_name || '.' || l_api_name,
2032: gcs_utility_pkg.g_module_failure
2033: || ' '
2034: || errbuf
2039: WHEN no_re_template_error THEN
2040: retcode := gcs_utility_pkg.g_ret_sts_error;
2041: FND_MESSAGE.set_name('GCS', 'GCS_DP_NO_RE_ERR');
2042: errbuf := fnd_message.get;
2043: IF fnd_log.g_current_runtime_level <= fnd_log.level_error
2044: THEN
2045: fnd_log.STRING (fnd_log.level_error,
2046: g_pkg_name || '.' || l_api_name,
2047: gcs_utility_pkg.g_module_failure
2041: FND_MESSAGE.set_name('GCS', 'GCS_DP_NO_RE_ERR');
2042: errbuf := fnd_message.get;
2043: IF fnd_log.g_current_runtime_level <= fnd_log.level_error
2044: THEN
2045: fnd_log.STRING (fnd_log.level_error,
2046: g_pkg_name || '.' || l_api_name,
2047: gcs_utility_pkg.g_module_failure
2048: || ' '
2049: || errbuf
2056: WHEN no_data_error THEN
2057: retcode := gcs_utility_pkg.g_ret_sts_warn;
2058: FND_MESSAGE.set_name('GCS', 'GCS_DP_NO_DATA_ERR');
2059: errbuf := fnd_message.get;
2060: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
2061: fnd_log.STRING (fnd_log.level_error,
2062: g_pkg_name || '.' || l_api_name,
2063: gcs_utility_pkg.g_module_failure
2064: || ' '
2057: retcode := gcs_utility_pkg.g_ret_sts_warn;
2058: FND_MESSAGE.set_name('GCS', 'GCS_DP_NO_DATA_ERR');
2059: errbuf := fnd_message.get;
2060: IF FND_LOG.G_CURRENT_RUNTIME_LEVEL <= FND_LOG.LEVEL_ERROR THEN
2061: fnd_log.STRING (fnd_log.level_error,
2062: g_pkg_name || '.' || l_api_name,
2063: gcs_utility_pkg.g_module_failure
2064: || ' '
2065: || errbuf