[Home] [Help]
1: PACKAGE BODY WSH_PICKING_BATCHES_PUB AS
2: /* $Header: WSHPRPBB.pls 120.3 2007/12/21 14:25:29 mvudugul ship $ */
3:
4: --
5: -- Package Variables
7: --===================
8: -- CONSTANTS
9: --===================
10: --
11: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_PICKING_BATCHES_PUB';
12: -- add your constants here if any
13: --
14: --
15: --===================
59:
60: -- program specific paramters.
61: p_rule_id IN NUMBER DEFAULT NULL,
62: p_rule_name IN VARCHAR2 DEFAULT NULL,
63: p_batch_rec IN WSH_PICKING_BATCHES_PUB.Batch_Info_Rec ,
64: p_batch_prefix IN VARCHAR2 DEFAULT NULL ,
65: x_batch_id OUT NOCOPY NUMBER
66:
67: ) IS
68:
69:
70:
71: l_api_version CONSTANT NUMBER := 1.0;
72: l_api_name CONSTANT VARCHAR2(30):= 'WSH_PICKING_BATCHES_PUB';
73:
74: l_return_status VARCHAR2(30) := NULL;
75: l_msg_count NUMBER;
76: l_msg_data VARCHAR2(32767);
78: l_number_of_warnings NUMBER := 0;
79:
80: l_rule_id NUMBER;
81: l_rule_name VARCHAR2(150);
82: l_batch_rec WSH_PICKING_BATCHES_PUB.Batch_Info_Rec;
83: l_batch_prefix VARCHAR2(30);
84: l_batch_id NUMBER;
85:
86: l_debug_on BOOLEAN;
231:
232:
233: IF l_debug_on THEN
234: --{
235: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_GRP.CREATE_BATCH',WSH_DEBUG_SV.C_PROC_LEVEL);
236: --}
237: END IF;
238:
239: --
280: return;
281: END IF;
282: -- End of ECO 4634966
283:
284: WSH_PICKING_BATCHES_GRP.Create_Batch(
285: p_api_version_number => p_api_version,
286: p_init_msg_list => NULL, --- Treated as False in Group API
287: p_commit => NULL, --- Treated as False in Group API
288: x_return_status => l_return_status,
377: --}
378: END IF;
379: WHEN OTHERS THEN
380: ROLLBACK TO PICKING_BATCH_PUB;
381: wsh_util_core.default_handler('WSH_PICKING_BATCHES_PUB.CREATE_BATCH');
382: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
383: FND_MSG_PUB.Count_And_Get
384: (
385: p_count => x_msg_count,
416: -- x_return_status return status
417: -- x_msg_count number of messages in the list
418: -- x_msg_data text of messages
419: -- p_batch_id Picking Batch Id which is used to get Batch
420: -- information from the wsh_picking_batches table.
421: -- p_batch_name Picking Batch Name which is used to get Batch
422: -- information from the wsh_picking_batches table.
423: -- p_log_level Controlls the log message generated by cuncurrent
424: -- pick release process.
418: -- x_msg_data text of messages
419: -- p_batch_id Picking Batch Id which is used to get Batch
420: -- information from the wsh_picking_batches table.
421: -- p_batch_name Picking Batch Name which is used to get Batch
422: -- information from the wsh_picking_batches table.
423: -- p_log_level Controlls the log message generated by cuncurrent
424: -- pick release process.
425: -- p_release_mode Used to do ONLINE or CONCURRENT pick release,
426: -- Default is "CONCURREN"
448: x_request_id OUT NOCOPY NUMBER
449: ) IS
450:
451: l_api_version CONSTANT NUMBER := 1.0;
452: l_api_name CONSTANT VARCHAR2(30):= 'WSH_PICKING_BATCHES_PUB';
453:
454: l_return_status VARCHAR2(30) := NULL;
455: l_msg_count NUMBER;
456: l_msg_data VARCHAR2(32767);
530:
531:
532: IF l_debug_on THEN
533: --{
534: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_GRP.RELASE_BATCH',WSH_DEBUG_SV.C_PROC_LEVEL);
535: --}
536: END IF;
537: --
538: WSH_PICKING_BATCHES_GRP.Release_Batch(
534: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_GRP.RELASE_BATCH',WSH_DEBUG_SV.C_PROC_LEVEL);
535: --}
536: END IF;
537: --
538: WSH_PICKING_BATCHES_GRP.Release_Batch(
539: p_api_version_number => p_api_version,
540: p_init_msg_list => NULL, --- Treated as False in Group API
541: p_commit => NULL, --- Treated as False in Group API
542: x_return_status => l_return_status,
627: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
628: --}
629: END IF;
630: WHEN OTHERS THEN
631: wsh_util_core.default_handler('WSH_PICKING_BATCHES_PUB.RELEASE_BATCH');
632: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
633: FND_MSG_PUB.Count_And_Get
634: (
635: p_count => x_msg_count,
657: -- Type : Public
658: -- Purpose
659: -- Pre-reqs : None.
660: -- Function : The procedure takes in a Batch_id or Batch_name and retrieves
661: -- the batch record from wsh_picking_batches.
662: -- Note: Non-database attributes will be NULL.
663: --
664: -- PARAMETERS : p_api_version_number known api version number
665: -- p_init_msg_list FND_API.G_TRUE to reset list
667: -- x_return_status return status
668: -- x_msg_count number of messages in the list
669: -- x_msg_data text of messages
670: -- p_batch_id Picking Batch Id which is used to get Batch
671: -- information from the wsh_picking_batches table.
672: -- p_batch_name Picking Batch Name which is used to get Batch
673: -- information from the wsh_picking_batches table.
674: -- x_batch_rec Batch record from wsh_picking_batches
675: -- VERSION : current version 1.0
669: -- x_msg_data text of messages
670: -- p_batch_id Picking Batch Id which is used to get Batch
671: -- information from the wsh_picking_batches table.
672: -- p_batch_name Picking Batch Name which is used to get Batch
673: -- information from the wsh_picking_batches table.
674: -- x_batch_rec Batch record from wsh_picking_batches
675: -- VERSION : current version 1.0
676: -- initial version 1.0
677: -- End of comments
670: -- p_batch_id Picking Batch Id which is used to get Batch
671: -- information from the wsh_picking_batches table.
672: -- p_batch_name Picking Batch Name which is used to get Batch
673: -- information from the wsh_picking_batches table.
674: -- x_batch_rec Batch record from wsh_picking_batches
675: -- VERSION : current version 1.0
676: -- initial version 1.0
677: -- End of comments
678:
686: x_msg_data OUT NOCOPY VARCHAR2,
687: -- program specific paramters.
688: p_batch_id IN NUMBER DEFAULT NULL,
689: p_batch_name IN VARCHAR2 DEFAULT NULL,
690: x_batch_rec OUT NOCOPY WSH_PICKING_BATCHES_PUB.Batch_Info_Rec
691: ) IS
692: l_api_version CONSTANT NUMBER := 1.0;
693: l_api_name CONSTANT VARCHAR2(30):= 'WSH_PICKING_BATCHES_PUB';
694:
689: p_batch_name IN VARCHAR2 DEFAULT NULL,
690: x_batch_rec OUT NOCOPY WSH_PICKING_BATCHES_PUB.Batch_Info_Rec
691: ) IS
692: l_api_version CONSTANT NUMBER := 1.0;
693: l_api_name CONSTANT VARCHAR2(30):= 'WSH_PICKING_BATCHES_PUB';
694:
695: l_return_status VARCHAR2(30) := NULL;
696: l_msg_count NUMBER;
697: l_msg_data VARCHAR2(32767);
788: allocation_method, -- X-dock
789: crossdock_criteria_id, -- X-dock
790: NULL, -- not in the table:crossdock_criteria_name
791: dynamic_replenishment_flag --bug# 6689448 (replenishment project)
792: FROM wsh_picking_batches
793: WHERE batch_id = x_batch_id;
794:
795: BEGIN
796:
1050: WHEN OTHERS THEN
1051: IF c_batch_info%ISOPEN THEN
1052: CLOSE c_batch_info;
1053: END IF;
1054: wsh_util_core.default_handler('WSH_PICKING_BATCHES_PUB.GET_BATCH_RECORD');
1055: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1056: FND_MSG_PUB.Count_And_Get
1057: (
1058: p_count => x_msg_count,
1068: END IF;
1069: --
1070: END Get_Batch_Record;
1071:
1072: END WSH_PICKING_BATCHES_PUB;