1: PACKAGE BODY cn_formula_common_pkg AS
2: -- $Header: cnfmcomb.pls 120.18.12010000.2 2008/11/20 09:34:31 ppillai ship $
3:
4: -- This package contains the procedures of calculation engine, some of which will be called from each formula packages
5:
229: EXCEPTION
230: WHEN OTHERS THEN
231: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
232: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
233: 'cn.plsql.cn_formula_common_pkg.revert_posting_line.exception',
234: sqlerrm);
235: end if;
236: cn_message_pkg.debug('Exception occurs in reversing posted line (ID='|| p_commission_line_id||')');
237: cn_message_pkg.debug(sqlerrm);
293: EXCEPTION
294: WHEN OTHERS THEN
295: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
296: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
297: 'cn.plsql.cn_formula_common_pkg.select_tier.exception',
298: sqlerrm);
299: end if;
300: cn_message_pkg.debug('Exception occurs in identifying rate tier:');
301: cn_message_pkg.debug('p_direction=' || p_direction);
325: EXCEPTION
326: WHEN OTHERS THEN
327: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
328: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
329: 'cn.plsql.cn_formula_common_pkg.get_rate_sequence.exception',
330: sqlerrm);
331: end if;
332:
333: cn_message_pkg.debug('Exception occurs in getting rate sequence: ');
792: EXCEPTION
793: WHEN OTHERS THEN
794: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
795: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
796: 'cn.plsql.cn_formula_common_pkg.get_rates.exception',
797: sqlerrm);
798: end if;
799:
800: cn_message_pkg.debug('Exception occurs in getting commission rate: ');
891: l_recovery_amount_itd NUMBER := 0;
892: l_comm_pend_itd NUMBER := 0;
893:
894: l_srp_period_quota_id NUMBER(15);
895: l_input_achieved_itd_tbl cn_formula_common_pkg.num_table_type;
896:
897: CURSOR l_quota_csr (l_quota_id NUMBER ) IS
898: SELECT q.incremental_type, cr.name, q.interval_type_id, q.org_id
899: FROM cn_quotas_all q,
944:
945: BEGIN
946: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
947: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
948: 'cn.plsql.cn_formula_common_pkg.calculate_init.begin',
949: 'Beginning of calculate_init ...');
950: end if;
951:
952: OPEN l_quota_csr (p_quota_id);
1307: END IF;
1308:
1309: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1310: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1311: 'cn.plsql.cn_formula_common_pkg.calculate_init.end',
1312: 'End of calculate_init');
1313: end if;
1314:
1315: END calculate_init;
1331: WHEN OTHERS THEN
1332:
1333: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1334: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1335: 'cn.plsql.cn_formula_common_pkg.get_end_period_id.exception',
1336: sqlerrm);
1337: end if;
1338:
1339: RETURN NULL ;
1432: WHEN OTHERS THEN
1433:
1434: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1435: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1436: 'cn.plsql.cn_formula_common_pkg.get_end_period_id.exception',
1437: sqlerrm);
1438: end if;
1439:
1440: RETURN NULL ;
1546: EXCEPTION
1547: WHEN OTHERS THEN
1548: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1549: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1550: 'cn.plsql.cn_formula_common_pkg.calculate_roll.exception',
1551: sqlerrm);
1552: end if;
1553:
1554: cn_message_pkg.debug('Exception occurs in calculate_roll ');
1580: l_debug_flag VARCHAR2(1) := fnd_profile.value('CN_DEBUG');
1581: BEGIN
1582: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1583: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1584: 'cn.plsql.cn_formula_common_pkg.calculate_quota.begin',
1585: 'Begin of Calculate_Quota:'||' p_srp_plan_assign_id ' || p_srp_plan_assign_id ||
1586: ' p_salesrep_id ' || p_salesrep_id ||
1587: ' p_period_id ' || p_period_id ||
1588: ' p_start_date ' || p_start_date ||
1662: END IF;
1663:
1664: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1665: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1666: 'cn.plsql.cn_formula_common_pkg.calculate_quota.end',
1667: 'End of Calculate_Quota.');
1668: end if;
1669: cn_message_pkg.debug('Finish caculating plan element: '||l_pe_name);
1670: cn_message_pkg.debug(' ');
1671: EXCEPTION
1672: WHEN OTHERS THEN
1673: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1674: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1675: 'cn.plsql.cn_formula_common_pkg.calculate_quota.exception',
1676: sqlerrm);
1677: end if;
1678: cn_message_pkg.debug('Excpetion occurs in calculate_quota dispatcher: ');
1679: cn_message_pkg.debug(sqlerrm);
1843:
1844: BEGIN
1845: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1846: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1847: 'cn.plsql.cn_formula_common_pkg.calculate_batch.begin',
1848: 'Beginning of calculate_batch ...');
1849: end if;
1850:
1851: select org_id into l_org_id
2177: END IF;
2178:
2179: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2180: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2181: 'cn.plsql.cn_formula_common_pkg.calculate_batch.end',
2182: 'End of calculate_batch ...');
2183: end if;
2184: EXCEPTION
2185: WHEN others THEN
2184: EXCEPTION
2185: WHEN others THEN
2186: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2187: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2188: 'cn.plsql.cn_formula_common_pkg.calculate_batch.exception',
2189: sqlerrm);
2190: end if;
2191:
2192: cn_message_pkg.debug('Exception occurs in calculate_batch: ');
3094: EXCEPTION
3095: WHEN OTHERS THEN
3096: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3097: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3098: 'cn.plsql.cn_formula_common_pkg.revert_batch_intel_comm.exception',
3099: sqlerrm);
3100: end if;
3101: cn_message_pkg.debug('Exception occurs in reversing transactions: ');
3102: cn_message_pkg.debug(sqlerrm );
3409: EXCEPTION
3410: when others then
3411: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3412: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3413: 'cn.plsql.cn_formula_common_pkg.revert_batch.exception',
3414: sqlerrm);
3415: end if;
3416:
3417: cn_message_pkg.debug('Exception occurs in reversing transactions: ');
3637: l_srp_pe_rec cn_srp_validation_pub.srp_pe_rec_type ;
3638: BEGIN
3639: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3640: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3641: 'cn.plsql.cn_formula_common_pkg.create_trx.begin',
3642: 'Within create_trx.');
3643: end if;
3644:
3645: cn_message_pkg.debug('Creating or updating system-generated transaction ');
3689: EXCEPTION
3690: WHEN OTHERS THEN
3691: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3692: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3693: 'cn.plsql.cn_formula_common_pkg.create_trx.exception',
3694: sqlerrm);
3695: end if;
3696:
3697: cn_message_pkg.debug('Exception occurs in creating or updating system-generated transaction: ');
3864: CLOSE l_itd_payment_csr;
3865:
3866: RETURN x_itd_payment;
3867: END get_spq_itd_payment;
3868: END cn_formula_common_pkg;