[Home] [Help]
1: PACKAGE BODY wms_zones_pvt AS
2: /* $Header: WMSZONEB.pls 120.0 2005/05/25 02:35:41 appldev noship $ */
3:
4: -- Package : WMS_ZONES_PVT
5: -- File : $RCSfile: WMSZONEB.pls,v $
1: PACKAGE BODY wms_zones_pvt AS
2: /* $Header: WMSZONEB.pls 120.0 2005/05/25 02:35:41 appldev noship $ */
3:
4: -- Package : WMS_ZONES_PVT
5: -- File : $RCSfile: WMSZONEB.pls,v $
6: -- Content :
7: -- Description : This package provides the following services,
8: -- 1. Table handlers for WMSZONES.fmb
12:
13: /**
14: **/
15: g_version_printed BOOLEAN := FALSE;
16: g_pkg_name VARCHAR2 (30) := 'WMS_ZONES_PVT';
17:
18: /**
19: * Flag to indicate whether the initialization of the data
20: * structures (g_locator_types.. .etc, see below) needed to
434:
435: IF(Nvl(p_mode, 1) = 1) THEN
436: -- only in view/modify mode, populate message when OK is pressed
437: l_jtf_message_id := '1';
438: l_jtf_message := wms_zones_pvt.g_add_locators_message;
439: ELSE
440: -- clear the temp table if OK was pressed in ADD or REMOVE mode
441: DELETE wms_zone_locators_temp;
442: END IF;
720: 9
721: );
722: END IF;
723: ELSE --zone_id is null
724: DEBUG ('zone id is null ' || wms_zones_pvt.g_add_locators_message,
725: l_module_name,
726: 9
727: );
728: l_is_all_locators := FALSE;
1730: If the value is 1, the corresponding record will be deleted from the table.
1731: Else do nothing.
1732: **/
1733: PROCEDURE save_sel_locators (
1734: p_zoneloc_rowid_t IN wms_zones_pvt.zoneloc_rowid_t,
1735: p_zone_id IN wms_zone_locators.zone_id%TYPE
1736: ) IS
1737:
1738: l_progress_indicator VARCHAR2(10) := '0';
2789: x_msg_count := 1;
2790:
2791: END delete_locators;
2792:
2793: END wms_zones_pvt;