[Home] [Help]
1: PACKAGE BODY WSH_PICKING_BATCHES_GRP AS
2: /* $Header: WSHPRGPB.pls 120.6.12010000.2 2008/08/04 12:32:27 suppal ship $ */
3:
4: -- Package Variables
5: --
6: --===================
7: -- CONSTANTS
8: --===================
9: --
10: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_PICKING_BATCHES_GRP';
11: -- add your constants here if any
12:
13: --===================
14: -- PROCEDURES
197:
198:
199: -- Standard call to check for call compatibility
200: l_api_version CONSTANT NUMBER := 1.0;
201: l_api_name CONSTANT VARCHAR2(30) := 'WSH_PICKING_BATCHES_GRP';
202: l_return_status VARCHAR2(30) := NULL;
203: l_msg_count NUMBER;
204: l_msg_data VARCHAR2(32767);
205: l_number_of_errors NUMBER := 0;
208:
209: -- Record Variable which holds the input Batch Record
210: l_batch_in_rec WSH_PICKING_BATCHES_PUB.Batch_Info_rec;
211: -- Record Variable which holds final data to be sent to the private API
212: l_batch_grp_rec WSH_PICKING_BATCHES_GRP.Batch_Info_rec;
213:
214: l_rule_id NUMBER;
215: l_rule_name VARCHAR2(60);
216: l_batch_name_prefix VARCHAR2(60);
2720: ) IS
2721:
2722: -- Standard call to check for call compatibility
2723: l_api_version CONSTANT NUMBER := 1.0;
2724: l_api_name CONSTANT VARCHAR2(30) := 'WSH_PICKING_BATCHES_GRP';
2725: l_return_status VARCHAR2(30);
2726: l_msg_count NUMBER;
2727: l_msg_data VARCHAR2(32767);
2728: l_number_of_errors NUMBER := 0;
3047: --}
3048: END IF;
3049: WHEN OTHERS THEN
3050: ROLLBACK TO PICKING_BATCH_GRP;
3051: wsh_util_core.default_handler('WSH_PICKING_BATCHES_GRP.RELEASE_BATCH');
3052: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3053: FND_MSG_PUB.Count_And_Get
3054: (
3055: p_count => x_msg_count,
3065: END IF;
3066: --
3067: END Release_Batch;
3068:
3069: END WSH_PICKING_BATCHES_GRP;