1: PACKAGE BODY INV_CALCULATE_EXP_DATE AS
2: /* $Header: INVCEDTB.pls 120.6.12020000.2 2012/07/09 08:04:02 asugandh ship $ */
3:
4: g_pkg_name VARCHAR2(80) := 'INV_CALCULATE_EXP_DATE';
5: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1: PACKAGE BODY INV_CALCULATE_EXP_DATE AS
2: /* $Header: INVCEDTB.pls 120.6.12020000.2 2012/07/09 08:04:02 asugandh ship $ */
3:
4: g_pkg_name VARCHAR2(80) := 'INV_CALCULATE_EXP_DATE';
5: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6:
7: PROCEDURE mydebug( p_msg IN VARCHAR2
8: ,p_module IN VARCHAR2 DEFAULT NULL)
1629: WHEN OTHERS THEN
1630: mydebug('WHEN OTHERS exception : '||SQLERRM, 'LOG_TRANSACTION_REC');
1631: END log_transaction_rec;
1632:
1633: END INV_CALCULATE_EXP_DATE;