1: PACKAGE BODY WMS_CONFIG_UI AS
2: /* $Header: WMSCFGUIB.pls 115.2 2004/01/22 21:42:02 kkandiku noship $ */
3:
4:
5: g_version_printed BOOLEAN := FALSE;
2: /* $Header: WMSCFGUIB.pls 115.2 2004/01/22 21:42:02 kkandiku noship $ */
3:
4:
5: g_version_printed BOOLEAN := FALSE;
6: g_pkg_name VARCHAR2 (30) := 'WMS_CONFIG_UI';
7:
8: PROCEDURE DEBUG (p_message IN VARCHAR2, p_module IN VARCHAR2, p_level NUMBER)
9: IS
10: l_debug NUMBER := NVL (fnd_profile.VALUE ('INV_DEBUG_TRACE'), 0);
359: DEBUG (' ERROR CODE = ' || SQLCODE, l_module_name, 9);
360: DEBUG (' ERROR MESSAGE = ' || SQLERRM, l_module_name, 9);
361: END get_field_properties;
362:
363: END WMS_CONFIG_UI;