1: PACKAGE BODY cn_formula_common_pkg AS
2: -- $Header: cnfmcomb.pls 120.23 2011/11/27 15:54:45 rnagired ship $
3:
4: -- This package contains the procedures of calculation engine, some of which will be called from each formula packages
5:
230: EXCEPTION
231: WHEN OTHERS THEN
232: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
233: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
234: 'cn.plsql.cn_formula_common_pkg.revert_posting_line.exception',
235: sqlerrm);
236: end if;
237: cn_message_pkg.debug('Exception occurs in reversing posted line (ID='|| p_commission_line_id||')');
238: cn_message_pkg.debug(sqlerrm);
294: EXCEPTION
295: WHEN OTHERS THEN
296: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
297: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
298: 'cn.plsql.cn_formula_common_pkg.select_tier.exception',
299: sqlerrm);
300: end if;
301: cn_message_pkg.debug('Exception occurs in identifying rate tier:');
302: cn_message_pkg.debug('p_direction=' || p_direction);
326: EXCEPTION
327: WHEN OTHERS THEN
328: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
329: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
330: 'cn.plsql.cn_formula_common_pkg.get_rate_sequence.exception',
331: sqlerrm);
332: end if;
333:
334: cn_message_pkg.debug('Exception occurs in getting rate sequence: ');
793: EXCEPTION
794: WHEN OTHERS THEN
795: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
796: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
797: 'cn.plsql.cn_formula_common_pkg.get_rates.exception',
798: sqlerrm);
799: end if;
800:
801: cn_message_pkg.debug('Exception occurs in getting commission rate: ');
892: l_recovery_amount_itd NUMBER := 0;
893: l_comm_pend_itd NUMBER := 0;
894:
895: l_srp_period_quota_id NUMBER(15);
896: l_input_achieved_itd_tbl cn_formula_common_pkg.num_table_type;
897:
898: CURSOR l_quota_csr (l_quota_id NUMBER ) IS
899: SELECT q.incremental_type, cr.name, q.interval_type_id, q.org_id
900: FROM cn_quotas_all q,
945:
946: BEGIN
947: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
948: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
949: 'cn.plsql.cn_formula_common_pkg.calculate_init.begin',
950: 'Beginning of calculate_init ...');
951: end if;
952:
953: OPEN l_quota_csr (p_quota_id);
1308: END IF;
1309:
1310: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1311: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1312: 'cn.plsql.cn_formula_common_pkg.calculate_init.end',
1313: 'End of calculate_init');
1314: end if;
1315:
1316: END calculate_init;
1332: WHEN OTHERS THEN
1333:
1334: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1335: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1336: 'cn.plsql.cn_formula_common_pkg.get_end_period_id.exception',
1337: sqlerrm);
1338: end if;
1339:
1340: RETURN NULL ;
1433: WHEN OTHERS THEN
1434:
1435: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1436: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1437: 'cn.plsql.cn_formula_common_pkg.get_end_period_id.exception',
1438: sqlerrm);
1439: end if;
1440:
1441: RETURN NULL ;
1547: EXCEPTION
1548: WHEN OTHERS THEN
1549: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1550: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1551: 'cn.plsql.cn_formula_common_pkg.calculate_roll.exception',
1552: sqlerrm);
1553: end if;
1554:
1555: cn_message_pkg.debug('Exception occurs in calculate_roll ');
1581: l_debug_flag VARCHAR2(1) := fnd_profile.value('CN_DEBUG');
1582: BEGIN
1583: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1584: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1585: 'cn.plsql.cn_formula_common_pkg.calculate_quota.begin',
1586: 'Begin of Calculate_Quota:'||' p_srp_plan_assign_id ' || p_srp_plan_assign_id ||
1587: ' p_salesrep_id ' || p_salesrep_id ||
1588: ' p_period_id ' || p_period_id ||
1589: ' p_start_date ' || p_start_date ||
1663: END IF;
1664:
1665: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1666: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1667: 'cn.plsql.cn_formula_common_pkg.calculate_quota.end',
1668: 'End of Calculate_Quota.');
1669: end if;
1670: cn_message_pkg.debug('Finish caculating plan element: '||l_pe_name);
1671: cn_message_pkg.debug(' ');
1672: EXCEPTION
1673: WHEN OTHERS THEN
1674: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1675: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
1676: 'cn.plsql.cn_formula_common_pkg.calculate_quota.exception',
1677: sqlerrm);
1678: end if;
1679: cn_message_pkg.debug('Excpetion occurs in calculate_quota dispatcher: ');
1680: cn_message_pkg.debug(sqlerrm);
1844:
1845: BEGIN
1846: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
1847: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1848: 'cn.plsql.cn_formula_common_pkg.calculate_batch.begin',
1849: 'Beginning of calculate_batch ...');
1850: end if;
1851:
1852: select org_id into l_org_id
2193: END IF;
2194:
2195: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2196: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
2197: 'cn.plsql.cn_formula_common_pkg.calculate_batch.end',
2198: 'End of calculate_batch ...');
2199: end if;
2200: EXCEPTION
2201: WHEN others THEN
2200: EXCEPTION
2201: WHEN others THEN
2202: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
2203: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
2204: 'cn.plsql.cn_formula_common_pkg.calculate_batch.exception',
2205: sqlerrm);
2206: end if;
2207:
2208: cn_message_pkg.debug('Exception occurs in calculate_batch: ');
3110: EXCEPTION
3111: WHEN OTHERS THEN
3112: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3113: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3114: 'cn.plsql.cn_formula_common_pkg.revert_batch_intel_comm.exception',
3115: sqlerrm);
3116: end if;
3117: cn_message_pkg.debug('Exception occurs in reversing transactions: ');
3118: cn_message_pkg.debug(sqlerrm );
3425: EXCEPTION
3426: when others then
3427: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3428: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3429: 'cn.plsql.cn_formula_common_pkg.revert_batch.exception',
3430: sqlerrm);
3431: end if;
3432:
3433: cn_message_pkg.debug('Exception occurs in reversing transactions: ');
3666: l_srp_pe_rec cn_srp_validation_pub.srp_pe_rec_type ;
3667: BEGIN
3668: if (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3669: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
3670: 'cn.plsql.cn_formula_common_pkg.create_trx.begin',
3671: 'Within create_trx.');
3672: end if;
3673:
3674: cn_message_pkg.debug('Creating or updating system-generated transaction ');
3718: EXCEPTION
3719: WHEN OTHERS THEN
3720: if (FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL ) then
3721: FND_LOG.STRING(FND_LOG.LEVEL_UNEXPECTED,
3722: 'cn.plsql.cn_formula_common_pkg.create_trx.exception',
3723: sqlerrm);
3724: end if;
3725:
3726: cn_message_pkg.debug('Exception occurs in creating or updating system-generated transaction: ');
3893: CLOSE l_itd_payment_csr;
3894:
3895: RETURN x_itd_payment;
3896: END get_spq_itd_payment;
3897: END cn_formula_common_pkg;