[Home] [Help]
1: PACKAGE BODY wms_zones_pvt AS
2: /* $Header: WMSZONEB.pls 120.0.12010000.3 2009/08/03 06:45:01 ajunnikr ship $ */
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.12010000.3 2009/08/03 06:45:01 ajunnikr ship $ */
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
435:
436: IF(Nvl(p_mode, 1) = 1) THEN
437: -- only in view/modify mode, populate message when OK is pressed
438: l_jtf_message_id := '1';
439: l_jtf_message := wms_zones_pvt.g_add_locators_message;
440: ELSE
441: -- clear the temp table if OK was pressed in ADD or REMOVE mode
442: DELETE wms_zone_locators_temp;
443: END IF;
721: 9
722: );
723: END IF;
724: ELSE --zone_id is null
725: DEBUG ('zone id is null ' || wms_zones_pvt.g_add_locators_message,
726: l_module_name,
727: 9
728: );
729: l_is_all_locators := FALSE;
1754: If the value is 1, the corresponding record will be deleted from the table.
1755: Else do nothing.
1756: **/
1757: PROCEDURE save_sel_locators (
1758: p_zoneloc_rowid_t IN wms_zones_pvt.zoneloc_rowid_t,
1759: p_zone_id IN wms_zone_locators.zone_id%TYPE
1760: ) IS
1761:
1762: l_progress_indicator VARCHAR2(10) := '0';
2816: x_msg_count := 1;
2817:
2818: END delete_locators;
2819:
2820: END wms_zones_pvt;