[Home] [Help]
1: PACKAGE BODY OKL_AM_VENDOR_RES_SHARE_PVT AS
2: /* $Header: OKLRVRSB.pls 120.9 2007/05/18 13:14:24 ansethur noship $ */
3:
4: -- *********************
5: -- GLOBAL DATASTRUCTURES
79:
80: -- *********************
81: -- GLOBAL VARIABLES
82: -- *********************
83: G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_AM_VENDOR_RES_SHARE_PVT';
84: G_APP_NAME CONSTANT VARCHAR2(3) := OKL_API.G_APP_NAME;
85: G_APP_NAME_1 CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
86: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_UNEXP_ERROR;
87: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := OKL_API.G_RET_STS_ERROR;
516: BEGIN
517:
518: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
519: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
520: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',
521: 'Begin(+)');
522: END IF;
523:
524: -- get rule data
608: x_share_formula := l_rulv_rec.rule_information1;
609:
610: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
611: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
612: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',
613: 'End(-)');
614: END IF;
615:
616: EXCEPTION
620: x_return_status := OKL_API.G_RET_STS_ERROR;
621:
622: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
623: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
624: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',
625: 'EXP - l_no_rule_data');
626: END IF;
627:
628: WHEN G_EXCEPTION_ERROR THEN
630: x_return_status := OKL_API.G_RET_STS_ERROR;
631:
632: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
633: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
634: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',
635: 'EXP - G_EXCEPTION_ERROR');
636: END IF;
637:
638: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
640: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
641:
642: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
643: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
644: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',
645: 'EXP - G_EXCEPTION_UNEXPECTED_ERROR');
646: END IF;
647:
648: WHEN OTHERS THEN
650: x_return_status := OKL_API.G_RET_STS_UNEXP_ERROR;
651:
652: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
653: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
654: 'OKL_AM_VENDOR_RES_SHARE_PVT.get_residual_share_terms.',
655: 'EXP - OTHERS');
656: END IF;
657:
658: END get_residual_share_terms;
776: BEGIN
777:
778: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
779: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
780: 'OKL_AM_VENDOR_RES_SHARE_PVT.vendor_share.',
781: 'Begin(+)');
782: END IF;
783:
784: /*
796:
797:
798: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
799: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
800: 'OKL_AM_VENDOR_RES_SHARE_PVT.vendor_share.',
801: 'start_activity = '||l_return_status );
802: END IF;
803:
804: -- Rollback if error setting activity for api
1180: --OKL_API.end_activity (x_msg_count, x_msg_data);
1181:
1182: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1183: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1184: 'OKL_AM_VENDOR_RES_SHARE_PVT.vendor_share.',
1185: 'End(-)');
1186: END IF;
1187:
1188: EXCEPTION
1198: */
1199: rollback to vend_res_share;
1200: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1201: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1202: 'OKL_AM_VENDOR_RES_SHARE_PVT.vendor_share.',
1203: 'EXP - G_EXCEPTION_ERROR');
1204: END IF;
1205:
1206: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
1215: */
1216: rollback to vend_res_share;
1217: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1218: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1219: 'OKL_AM_VENDOR_RES_SHARE_PVT.vendor_share.',
1220: 'EXP - G_EXCEPTION_UNEXPECTED_ERROR');
1221: END IF;
1222:
1223: WHEN OTHERS THEN
1232: */
1233: rollback to vend_res_share;
1234: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1235: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1236: 'OKL_AM_VENDOR_RES_SHARE_PVT.vendor_share.',
1237: 'EXP - OTHERS');
1238: END IF;
1239:
1240: END vendor_share;
1354: BEGIN
1355:
1356: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1357: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1358: 'OKL_AM_VENDOR_RES_SHARE_PVT.do_write_off_balances.',
1359: 'Begin(+)');
1360: END IF;
1361:
1362: SELECT sysdate INTO l_sys_date FROM DUAL;
1470: OKL_API.end_activity (x_msg_count, x_msg_data);
1471:
1472: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1473: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
1474: 'OKL_AM_VENDOR_RES_SHARE_PVT.do_vendor_share.',
1475: 'End(-)');
1476: END IF;
1477:
1478: EXCEPTION
1488: p_api_type => '_PVT');
1489:
1490: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1491: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1492: 'OKL_AM_VENDOR_RES_SHARE_PVT.do_vendor_share.',
1493: 'EXP - G_EXCEPTION_ERROR');
1494: END IF;
1495:
1496: WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
1504: p_api_type => '_PVT');
1505:
1506: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1507: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1508: 'OKL_AM_VENDOR_RES_SHARE_PVT.do_vendor_share.',
1509: 'EXP - G_EXCEPTION_UNEXPECTED_ERROR');
1510: END IF;
1511:
1512: WHEN OTHERS THEN
1520: p_api_type => '_PVT');
1521:
1522: IF( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1523: FND_LOG.STRING(FND_LOG.LEVEL_STATEMENT,
1524: 'OKL_AM_VENDOR_RES_SHARE_PVT.do_vendor_share.',
1525: 'EXP - OTHERS');
1526: END IF;
1527:
1528: END do_vendor_share;
2044: RETURN TRUE;
2045:
2046: END BEFORE_REPORT_INIT_WHRE_CLAUSE;
2047:
2048: END OKL_AM_VENDOR_RES_SHARE_PVT;