104: l_org_id NUMBER;
105: l_re_required VARCHAR2(1);
106: l_api_name VARCHAR2 (30) := ''CALCULATE_RE'';
107: BEGIN
108: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
109: THEN
110: fnd_log.STRING (fnd_log.level_procedure,
111: g_pkg_name || ''.'' || l_api_name,
112: gcs_utility_pkg.g_module_enter
106: l_api_name VARCHAR2 (30) := ''CALCULATE_RE'';
107: BEGIN
108: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
109: THEN
110: fnd_log.STRING (fnd_log.level_procedure,
111: g_pkg_name || ''.'' || l_api_name,
112: gcs_utility_pkg.g_module_enter
113: || '' ''
114: || l_api_name
116: || TO_CHAR (SYSDATE, ''DD-MON-YYYY HH:MI:SS'')
117: );
118: END IF;
119:
120: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
121: THEN
122: fnd_log.STRING (fnd_log.level_statement,
123: g_pkg_name || ''.'' || l_api_name,
124: ''SELECT ''''X''''''
118: END IF;
119:
120: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
121: THEN
122: fnd_log.STRING (fnd_log.level_statement,
123: g_pkg_name || ''.'' || l_api_name,
124: ''SELECT ''''X''''''
125: || g_nl
126: || ''FROM gcs_entry_headers ''
146: ELSE
147: l_re_required := ''Y'';
148: END IF;
149:
150: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
151: THEN
152: fnd_log.STRING (fnd_log.level_statement,
153: g_pkg_name || ''.'' || l_api_name,
154: ''SELECT hb.balance_by_org_flag, hb.column_name''
148: END IF;
149:
150: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
151: THEN
152: fnd_log.STRING (fnd_log.level_statement,
153: g_pkg_name || ''.'' || l_api_name,
154: ''SELECT hb.balance_by_org_flag, hb.column_name''
155: || g_nl
156: || ''FROM gcs_hierarchies_b hb ''
174: END IF;
175:
176: CLOSE hierarchy_c;
177:
178: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
179: THEN
180: fnd_log.STRING (fnd_log.level_statement,
181: g_pkg_name || ''.'' || l_api_name,
182: ''SELECT specific_intercompany_id FROM gcs_hierarchies_b ''
176: CLOSE hierarchy_c;
177:
178: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
179: THEN
180: fnd_log.STRING (fnd_log.level_statement,
181: g_pkg_name || ''.'' || l_api_name,
182: ''SELECT specific_intercompany_id FROM gcs_hierarchies_b ''
183: || '' WHERE hierarchy_id = '' || p_hierarchy_id
184: || '' AND INTERCOMPANY_ORG_TYPE_CODE = ''''SPECIFIC_VALUE'''''');
192:
193: CLOSE intercompany_c;
194:
195: -- Get the signage of the suspense line item
196: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
197: THEN
198: fnd_log.STRING (fnd_log.level_statement,
199: g_pkg_name || ''.'' || l_api_name,
200: ''SELECT fxata.number_assign_value'' || g_nl ||
194:
195: -- Get the signage of the suspense line item
196: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
197: THEN
198: fnd_log.STRING (fnd_log.level_statement,
199: g_pkg_name || ''.'' || l_api_name,
200: ''SELECT fxata.number_assign_value'' || g_nl ||
201: ''FROM gcs_dimension_templates dt, '' || g_nl ||
202: '' fem_ln_items_attr flia,'' || g_nl ||
230: IF org_tracking_flag = ''N''
231: THEN
232: l_org_id := gcs_utility_pkg.Get_Org_Id(p_entity_id => p_entity_id,
233: p_hierarchy_id => p_hierarchy_id);
234: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
235: THEN
236: fnd_log.STRING (fnd_log.level_statement,
237: g_pkg_name || ''.'' || l_api_name,
238: ''l_org_id = '' || l_org_id
232: l_org_id := gcs_utility_pkg.Get_Org_Id(p_entity_id => p_entity_id,
233: p_hierarchy_id => p_hierarchy_id);
234: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
235: THEN
236: fnd_log.STRING (fnd_log.level_statement,
237: g_pkg_name || ''.'' || l_api_name,
238: ''l_org_id = '' || l_org_id
239: );
240: END IF;
392: decode(sign(src.amount), 1, 0, -src.amount), decode(sign(src.amount), 1, src.amount, 0),
393: SYSDATE, :3, SYSDATE, :3, :4)
394: '';
395:
396: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
397: THEN
398: fnd_log.STRING (fnd_log.level_statement,
399: g_pkg_name || ''.'' || l_api_name,
400: ''l_merge_statement = ''|| l_merge_statement
394: '';
395:
396: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
397: THEN
398: fnd_log.STRING (fnd_log.level_statement,
399: g_pkg_name || ''.'' || l_api_name,
400: ''l_merge_statement = ''|| l_merge_statement
401: );
402: END IF;
479: decode(sign(src.amount), 1, 0, -src.amount), decode(sign(src.amount), 1, src.amount, 0),
480: SYSDATE, :3, SYSDATE, :3, :4)
481: '';
482:
483: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
484: THEN
485: fnd_log.STRING (fnd_log.level_statement,
486: g_pkg_name || ''.'' || l_api_name,
487: ''l_merge_statement = ''|| l_merge_statement
481: '';
482:
483: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
484: THEN
485: fnd_log.STRING (fnd_log.level_statement,
486: g_pkg_name || ''.'' || l_api_name,
487: ''l_merge_statement = ''|| l_merge_statement
488: );
489: END IF;
562: decode(sign(src.amount), 1, 0, -src.amount), decode(sign(src.amount), 1, src.amount, 0),
563: SYSDATE, :3, SYSDATE, :3, :4)
564: '';
565:
566: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
567: THEN
568: fnd_log.STRING (fnd_log.level_statement,
569: g_pkg_name || ''.'' || l_api_name,
570: ''l_merge_statement = ''|| l_merge_statement
564: '';
565:
566: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
567: THEN
568: fnd_log.STRING (fnd_log.level_statement,
569: g_pkg_name || ''.'' || l_api_name,
570: ''l_merge_statement = ''|| l_merge_statement
571: );
572: END IF;
641: decode(sign(src.amount), 1, 0, -src.amount), decode(sign(src.amount), 1, src.amount, 0),
642: SYSDATE, :3, SYSDATE, :3, :4)
643: '';
644:
645: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
646: THEN
647: fnd_log.STRING (fnd_log.level_statement,
648: g_pkg_name || ''.'' || l_api_name,
649: ''l_merge_statement = ''|| l_merge_statement
643: '';
644:
645: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
646: THEN
647: fnd_log.STRING (fnd_log.level_statement,
648: g_pkg_name || ''.'' || l_api_name,
649: ''l_merge_statement = ''|| l_merge_statement
650: );
651: END IF;
663: fnd_global.user_id,
664: fnd_global.login_id;
665: END IF;
666:
667: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
668: THEN
669: fnd_log.STRING (fnd_log.level_procedure,
670: g_pkg_name || ''.'' || l_api_name,
671: gcs_utility_pkg.g_module_success
665: END IF;
666:
667: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
668: THEN
669: fnd_log.STRING (fnd_log.level_procedure,
670: g_pkg_name || ''.'' || l_api_name,
671: gcs_utility_pkg.g_module_success
672: || '' ''
673: || l_api_name
679: WHEN gcs_tmp_invalid_sign
680: THEN
681: fnd_message.set_name (''GCS'', ''GCS_TMP_INVALID_SIGN'');
682:
683: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
684: THEN
685: fnd_log.STRING (fnd_log.level_procedure,
686: g_pkg_name || ''.'' || l_api_name,
687: gcs_utility_pkg.g_module_failure
681: fnd_message.set_name (''GCS'', ''GCS_TMP_INVALID_SIGN'');
682:
683: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
684: THEN
685: fnd_log.STRING (fnd_log.level_procedure,
686: g_pkg_name || ''.'' || l_api_name,
687: gcs_utility_pkg.g_module_failure
688: || '' ''
689: || l_api_name
750: l_org_id NUMBER;
751: l_api_name VARCHAR2 (30) := ''CALCULATE_DP_RE'';
752: BEGIN
753:
754: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
755: THEN
756: fnd_log.STRING (fnd_log.level_statement,
757: g_pkg_name || ''.'' || l_api_name,
758: ''SELECT hb.balance_by_org_flag, hb.column_name''
752: BEGIN
753:
754: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
755: THEN
756: fnd_log.STRING (fnd_log.level_statement,
757: g_pkg_name || ''.'' || l_api_name,
758: ''SELECT hb.balance_by_org_flag, hb.column_name''
759: || g_nl
760: || ''FROM gcs_hierarchies_b hb ''
788: END IF;
789:
790: CLOSE hierarchy_c;
791:
792: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
793: THEN
794: fnd_log.STRING (fnd_log.level_statement,
795: g_pkg_name || ''.'' || l_api_name,
796: ''SELECT specific_intercompany_id FROM gcs_hierarchies_b ''
790: CLOSE hierarchy_c;
791:
792: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
793: THEN
794: fnd_log.STRING (fnd_log.level_statement,
795: g_pkg_name || ''.'' || l_api_name,
796: ''SELECT specific_intercompany_id FROM gcs_hierarchies_b ''
797: || '' WHERE hierarchy_id = '' || p_hierarchy_id
798: || '' AND INTERCOMPANY_ORG_TYPE_CODE = ''''SPECIFIC_VALUE'''''');
806:
807: CLOSE intercompany_c;
808:
809: -- Get the signage of the suspense line item
810: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
811: THEN
812: fnd_log.STRING (fnd_log.level_statement,
813: g_pkg_name || ''.'' || l_api_name,
814: ''SELECT fxata.number_assign_value'' || g_nl ||
808:
809: -- Get the signage of the suspense line item
810: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
811: THEN
812: fnd_log.STRING (fnd_log.level_statement,
813: g_pkg_name || ''.'' || l_api_name,
814: ''SELECT fxata.number_assign_value'' || g_nl ||
815: ''FROM gcs_dimension_templates dt'' || g_nl ||
816: '' fem_ln_items_attr flia,'' || g_nl ||
844: IF org_tracking_flag = ''N''
845: THEN
846: l_org_id := gcs_utility_pkg.Get_Org_Id(p_entity_id => p_entity_id,
847: p_hierarchy_id => p_hierarchy_id);
848: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
849: THEN
850: fnd_log.STRING (fnd_log.level_statement,
851: g_pkg_name || ''.'' || l_api_name,
852: ''l_org_id = '' || l_org_id
846: l_org_id := gcs_utility_pkg.Get_Org_Id(p_entity_id => p_entity_id,
847: p_hierarchy_id => p_hierarchy_id);
848: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
849: THEN
850: fnd_log.STRING (fnd_log.level_statement,
851: g_pkg_name || ''.'' || l_api_name,
852: ''l_org_id = '' || l_org_id
853: );
854: END IF;
939: decode(sign(src.amount), 1, 0, -src.amount), decode(sign(src.amount), 1, src.amount, 0),
940: SYSDATE, :3, SYSDATE, :3, :4)
941: '';
942:
943: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
944: THEN
945: fnd_log.STRING (fnd_log.level_statement,
946: g_pkg_name || ''.'' || l_api_name,
947: ''l_merge_statement = ''|| l_merge_statement
941: '';
942:
943: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
944: THEN
945: fnd_log.STRING (fnd_log.level_statement,
946: g_pkg_name || ''.'' || l_api_name,
947: ''l_merge_statement = ''|| l_merge_statement
948: );
949: END IF;
1031: decode(sign(src.amount), 1, 0, -src.amount), decode(sign(src.amount), 1, src.amount, 0),
1032: SYSDATE, :3, SYSDATE, :3, :4)
1033: '';
1034:
1035: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1036: THEN
1037: fnd_log.STRING (fnd_log.level_statement,
1038: g_pkg_name || ''.'' || l_api_name,
1039: ''l_merge_statement = ''|| l_merge_statement
1033: '';
1034:
1035: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1036: THEN
1037: fnd_log.STRING (fnd_log.level_statement,
1038: g_pkg_name || ''.'' || l_api_name,
1039: ''l_merge_statement = ''|| l_merge_statement
1040: );
1041: END IF;
1118: decode(sign(src.amount), 1, 0, -src.amount), decode(sign(src.amount), 1, src.amount, 0),
1119: SYSDATE, :3, SYSDATE, :3, :4)
1120: '';
1121:
1122: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1123: THEN
1124: fnd_log.STRING (fnd_log.level_statement,
1125: g_pkg_name || ''.'' || l_api_name,
1126: ''l_merge_statement = ''|| l_merge_statement
1120: '';
1121:
1122: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1123: THEN
1124: fnd_log.STRING (fnd_log.level_statement,
1125: g_pkg_name || ''.'' || l_api_name,
1126: ''l_merge_statement = ''|| l_merge_statement
1127: );
1128: END IF;
1201: decode(sign(src.amount), 1, 0, -src.amount), decode(sign(src.amount), 1, src.amount, 0),
1202: SYSDATE, :3, SYSDATE, :3, :4)
1203: '';
1204:
1205: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1206: THEN
1207: fnd_log.STRING (fnd_log.level_statement,
1208: g_pkg_name || ''.'' || l_api_name,
1209: ''l_merge_statement = ''|| l_merge_statement
1203: '';
1204:
1205: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1206: THEN
1207: fnd_log.STRING (fnd_log.level_statement,
1208: g_pkg_name || ''.'' || l_api_name,
1209: ''l_merge_statement = ''|| l_merge_statement
1210: );
1211: END IF;
1228: WHEN gcs_tmp_invalid_sign
1229: THEN
1230: fnd_message.set_name (''GCS'', ''GCS_TMP_INVALID_SIGN'');
1231:
1232: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1233: THEN
1234: fnd_log.STRING (fnd_log.level_procedure,
1235: g_pkg_name || ''.'' || l_api_name,
1236: gcs_utility_pkg.g_module_failure
1230: fnd_message.set_name (''GCS'', ''GCS_TMP_INVALID_SIGN'');
1231:
1232: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1233: THEN
1234: fnd_log.STRING (fnd_log.level_procedure,
1235: g_pkg_name || ''.'' || l_api_name,
1236: gcs_utility_pkg.g_module_failure
1237: || '' ''
1238: || l_api_name
1316: l_threshold_amount NUMBER;
1317: l_api_name VARCHAR2 (30) := ''BALANCE'';
1318: l_enforce_balancing_flag VARCHAR2(1); -- Bug 5085697 : SMATAM
1319: BEGIN
1320: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1321: THEN
1322: fnd_log.STRING (fnd_log.level_procedure,
1323: g_pkg_name || ''.'' || l_api_name,
1324: gcs_utility_pkg.g_module_enter
1318: l_enforce_balancing_flag VARCHAR2(1); -- Bug 5085697 : SMATAM
1319: BEGIN
1320: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1321: THEN
1322: fnd_log.STRING (fnd_log.level_procedure,
1323: g_pkg_name || ''.'' || l_api_name,
1324: gcs_utility_pkg.g_module_enter
1325: || '' ''
1326: || l_api_name
1328: || TO_CHAR (SYSDATE, ''DD-MON-YYYY HH:MI:SS'')
1329: );
1330: END IF;
1331: -- Bug 5085697 : start : SMATAM
1332: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement THEN
1333: fnd_log.STRING(fnd_log.level_statement,
1334: g_pkg_name || ''.'' || l_api_name,
1335: ''SELECT enforce_balancing_flag'' || g_nl ||
1336: ''FROM gcs_data_type_codes_b '' || g_nl ||
1329: );
1330: END IF;
1331: -- Bug 5085697 : start : SMATAM
1332: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement THEN
1333: fnd_log.STRING(fnd_log.level_statement,
1334: g_pkg_name || ''.'' || l_api_name,
1335: ''SELECT enforce_balancing_flag'' || g_nl ||
1336: ''FROM gcs_data_type_codes_b '' || g_nl ||
1337: ''WHERE data_type_code = '' || p_bal_type_code);
1342: WHERE data_type_code = p_bal_type_code;
1343:
1344: IF (l_enforce_balancing_flag IS NULL OR l_enforce_balancing_flag = ''N'') THEN
1345: --Log that no balancing is needed
1346: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement THEN
1347: fnd_log.STRING(fnd_log.level_statement,
1348: g_pkg_name || ''.'' || l_api_name,
1349: ''No Balancing is required for the balance_type_code, '' || p_bal_type_code);
1350: END IF;
1343:
1344: IF (l_enforce_balancing_flag IS NULL OR l_enforce_balancing_flag = ''N'') THEN
1345: --Log that no balancing is needed
1346: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement THEN
1347: fnd_log.STRING(fnd_log.level_statement,
1348: g_pkg_name || ''.'' || l_api_name,
1349: ''No Balancing is required for the balance_type_code, '' || p_bal_type_code);
1350: END IF;
1351: return;
1351: return;
1352: END IF;
1353:
1354: -- Bug 5085697 : End : SMATAM
1355: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1356: THEN
1357: fnd_log.STRING (fnd_log.level_statement,
1358: g_pkg_name || ''.'' || l_api_name,
1359: ''SELECT hb.balance_by_org_flag, hb.column_name''
1353:
1354: -- Bug 5085697 : End : SMATAM
1355: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1356: THEN
1357: fnd_log.STRING (fnd_log.level_statement,
1358: g_pkg_name || ''.'' || l_api_name,
1359: ''SELECT hb.balance_by_org_flag, hb.column_name''
1360: || g_nl
1361: || ''FROM gcs_hierarchies_b hb ''
1379: END IF;
1380:
1381: CLOSE hierarchy_c;
1382:
1383: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1384: THEN
1385: fnd_log.STRING (fnd_log.level_statement,
1386: g_pkg_name || ''.'' || l_api_name,
1387: ''SELECT category_code''
1381: CLOSE hierarchy_c;
1382:
1383: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1384: THEN
1385: fnd_log.STRING (fnd_log.level_statement,
1386: g_pkg_name || ''.'' || l_api_name,
1387: ''SELECT category_code''
1388: || g_nl
1389: || ''FROM gcs_entry_headers ''
1402: CLOSE category_c;
1403:
1404: -- end of bug fix 3797306
1405:
1406: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1407: THEN
1408: fnd_log.STRING (fnd_log.level_statement,
1409: g_pkg_name || ''.'' || l_api_name,
1410: ''SELECT specific_intercompany_id FROM gcs_hierarchies_b ''
1404: -- end of bug fix 3797306
1405:
1406: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1407: THEN
1408: fnd_log.STRING (fnd_log.level_statement,
1409: g_pkg_name || ''.'' || l_api_name,
1410: ''SELECT specific_intercompany_id FROM gcs_hierarchies_b ''
1411: || '' WHERE hierarchy_id = '' || p_hierarchy_id
1412: || '' AND INTERCOMPANY_ORG_TYPE_CODE = ''''SPECIFIC_VALUE'''''');
1420:
1421: CLOSE intercompany_c;
1422:
1423: -- Get the signage of the suspense line item
1424: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1425: THEN
1426: fnd_log.STRING (fnd_log.level_statement,
1427: g_pkg_name || ''.'' || l_api_name,
1428: ''SELECT fxata.number_assign_value'' || g_nl ||
1422:
1423: -- Get the signage of the suspense line item
1424: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1425: THEN
1426: fnd_log.STRING (fnd_log.level_statement,
1427: g_pkg_name || ''.'' || l_api_name,
1428: ''SELECT fxata.number_assign_value'' || g_nl ||
1429: ''FROM fem_ln_items_attr flia,'' || g_nl ||
1430: '' fem_ext_acct_types_attr fxata'' || g_nl ||
1453:
1454: l_threshold_amount := p_threshold;
1455: IF p_threshold_currency_code IS NOT NULL
1456: THEN
1457: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1458: THEN
1459: fnd_log.STRING (fnd_log.level_statement,
1460: g_pkg_name || ''.'' || l_api_name,
1461: '' select start_cal_period_id, currency_code
1455: IF p_threshold_currency_code IS NOT NULL
1456: THEN
1457: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1458: THEN
1459: fnd_log.STRING (fnd_log.level_statement,
1460: g_pkg_name || ''.'' || l_api_name,
1461: '' select start_cal_period_id, currency_code
1462: into l_cal_period_id, l_currency_code
1463: from gcs_entry_headers
1480: P_errbuf => l_errbuf,
1481: p_errcode => l_errcode);
1482:
1483: l_threshold_amount := l_corp_rate * p_threshold;
1484: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1485: THEN
1486: fnd_log.STRING (fnd_log.level_statement,
1487: g_pkg_name || ''.'' || l_api_name,
1488: ''p_threshold = ''||p_threshold||'', l_corp_rate = '' || l_corp_rate
1482:
1483: l_threshold_amount := l_corp_rate * p_threshold;
1484: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1485: THEN
1486: fnd_log.STRING (fnd_log.level_statement,
1487: g_pkg_name || ''.'' || l_api_name,
1488: ''p_threshold = ''||p_threshold||'', l_corp_rate = '' || l_corp_rate
1489: || '', l_threshold_amount = '' || l_threshold_amount
1490: );
1496: IF org_tracking_flag = ''N''
1497: THEN
1498: l_org_id := gcs_utility_pkg.Get_Org_Id(p_entity_id => p_entity_id,
1499: p_hierarchy_id => p_hierarchy_id);
1500: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1501: THEN
1502: fnd_log.STRING (fnd_log.level_statement,
1503: g_pkg_name || ''.'' || l_api_name,
1504: ''l_org_id = '' || l_org_id
1498: l_org_id := gcs_utility_pkg.Get_Org_Id(p_entity_id => p_entity_id,
1499: p_hierarchy_id => p_hierarchy_id);
1500: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1501: THEN
1502: fnd_log.STRING (fnd_log.level_statement,
1503: g_pkg_name || ''.'' || l_api_name,
1504: ''l_org_id = '' || l_org_id
1505: );
1506: END IF;
1577: decode(sign(src.ytd_amount), -1, 0, src.ytd_amount), decode(sign(src.ytd_amount), -1, -src.ytd_amount, 0),
1578: SYSDATE, :3, SYSDATE, :3, :4)
1579: '';
1580:
1581: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1582: THEN
1583: fnd_log.STRING (fnd_log.level_statement,
1584: g_pkg_name || ''.'' || l_api_name,
1585: ''l_merge_statement = ''|| l_merge_statement
1579: '';
1580:
1581: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1582: THEN
1583: fnd_log.STRING (fnd_log.level_statement,
1584: g_pkg_name || ''.'' || l_api_name,
1585: ''l_merge_statement = ''|| l_merge_statement
1586: );
1587: END IF;
1686: decode(sign(src.ytd_amount), -1, 0, src.ytd_amount), decode(sign(src.ytd_amount), -1, -src.ytd_amount, 0),
1687: SYSDATE, :3, SYSDATE, :3, :4)
1688: '';
1689:
1690: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1691: THEN
1692: fnd_log.STRING (fnd_log.level_statement,
1693: g_pkg_name || ''.'' || l_api_name,
1694: ''l_merge_statement = ''|| l_merge_statement
1688: '';
1689:
1690: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1691: THEN
1692: fnd_log.STRING (fnd_log.level_statement,
1693: g_pkg_name || ''.'' || l_api_name,
1694: ''l_merge_statement = ''|| l_merge_statement
1695: );
1696: END IF;
1780: decode(sign(src.ytd_amount), -1, 0, src.ytd_amount), decode(sign(src.ytd_amount), -1, -src.ytd_amount, 0),
1781: SYSDATE, :3, SYSDATE, :3, :4)
1782: '';
1783:
1784: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1785: THEN
1786: fnd_log.STRING (fnd_log.level_statement,
1787: g_pkg_name || ''.'' || l_api_name,
1788: ''l_merge_statement = ''|| l_merge_statement
1782: '';
1783:
1784: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1785: THEN
1786: fnd_log.STRING (fnd_log.level_statement,
1787: g_pkg_name || ''.'' || l_api_name,
1788: ''l_merge_statement = ''|| l_merge_statement
1789: );
1790: END IF;
1886: decode(sign(src.ytd_amount), -1, 0, src.ytd_amount), decode(sign(src.ytd_amount), -1, -src.ytd_amount, 0),
1887: SYSDATE, :3, SYSDATE, :3, :4)
1888: '';
1889:
1890: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1891: THEN
1892: fnd_log.STRING (fnd_log.level_statement,
1893: g_pkg_name || ''.'' || l_api_name,
1894: ''l_merge_statement = ''|| l_merge_statement
1888: '';
1889:
1890: IF fnd_log.g_current_runtime_level <= fnd_log.level_statement
1891: THEN
1892: fnd_log.STRING (fnd_log.level_statement,
1893: g_pkg_name || ''.'' || l_api_name,
1894: ''l_merge_statement = ''|| l_merge_statement
1895: );
1896: END IF;
1940: SET suspense_exceeded_flag = ''Y''
1941: WHERE entry_id = p_entry_id;
1942: END IF;
1943:
1944: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1945: THEN
1946: fnd_log.STRING (fnd_log.level_procedure,
1947: g_pkg_name || ''.'' || l_api_name,
1948: gcs_utility_pkg.g_module_success
1942: END IF;
1943:
1944: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1945: THEN
1946: fnd_log.STRING (fnd_log.level_procedure,
1947: g_pkg_name || ''.'' || l_api_name,
1948: gcs_utility_pkg.g_module_success
1949: || '' ''
1950: || l_api_name
1958: THEN
1959: fnd_message.set_name (''GCS'', ''GCS_TMP_NO_HIERARCHY'');
1960: fnd_message.set_token (''ENTRY_ID'', p_entry_id);
1961:
1962: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1963: THEN
1964: fnd_log.STRING (fnd_log.level_procedure,
1965: g_pkg_name || ''.'' || l_api_name,
1966: gcs_utility_pkg.g_module_failure
1960: fnd_message.set_token (''ENTRY_ID'', p_entry_id);
1961:
1962: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1963: THEN
1964: fnd_log.STRING (fnd_log.level_procedure,
1965: g_pkg_name || ''.'' || l_api_name,
1966: gcs_utility_pkg.g_module_failure
1967: || '' ''
1968: || l_api_name
1975: WHEN gcs_tmp_invalid_sign
1976: THEN
1977: fnd_message.set_name (''GCS'', ''GCS_TMP_INVALID_SIGN'');
1978:
1979: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1980: THEN
1981: fnd_log.STRING (fnd_log.level_procedure,
1982: g_pkg_name || ''.'' || l_api_name,
1983: gcs_utility_pkg.g_module_failure
1977: fnd_message.set_name (''GCS'', ''GCS_TMP_INVALID_SIGN'');
1978:
1979: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1980: THEN
1981: fnd_log.STRING (fnd_log.level_procedure,
1982: g_pkg_name || ''.'' || l_api_name,
1983: gcs_utility_pkg.g_module_failure
1984: || '' ''
1985: || l_api_name
1992: WHEN OTHERS
1993: THEN
1994: fnd_file.put_line (fnd_file.LOG, SQLERRM);
1995: fnd_message.set_name (''GCS'', ''GCS_TMP_UNEXPECTED'');
1996: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1997: THEN
1998: fnd_log.STRING (fnd_log.level_procedure,
1999: g_pkg_name || ''.'' || l_api_name,
2000: gcs_utility_pkg.g_module_failure
1994: fnd_file.put_line (fnd_file.LOG, SQLERRM);
1995: fnd_message.set_name (''GCS'', ''GCS_TMP_UNEXPECTED'');
1996: IF fnd_log.g_current_runtime_level <= fnd_log.level_procedure
1997: THEN
1998: fnd_log.STRING (fnd_log.level_procedure,
1999: g_pkg_name || ''.'' || l_api_name,
2000: gcs_utility_pkg.g_module_failure
2001: || '' ''
2002: || l_api_name
2078:
2079: EXCEPTION
2080: WHEN OTHERS
2081: THEN
2082: IF (fnd_log.g_current_runtime_level <= fnd_log.level_unexpected)
2083: THEN
2084: fnd_log.STRING (fnd_log.level_unexpected,
2085: g_pkg_name || '.' || fn_name,
2086: SUBSTR (SQLERRM, 1, 255)
2080: WHEN OTHERS
2081: THEN
2082: IF (fnd_log.g_current_runtime_level <= fnd_log.level_unexpected)
2083: THEN
2084: fnd_log.STRING (fnd_log.level_unexpected,
2085: g_pkg_name || '.' || fn_name,
2086: SUBSTR (SQLERRM, 1, 255)
2087: );
2088: END IF;