1: PACKAGE BODY WSH_PR_PICKING_SESSION AS
2: /* $Header: WSHPRPSB.pls 115.23 99/08/18 17:46:23 porting ship $ */
3:
4: --
5: -- Package
2: /* $Header: WSHPRPSB.pls 115.23 99/08/18 17:46:23 porting ship $ */
3:
4: --
5: -- Package
6: -- WSH_PR_PICKING_SESSION
7: --
8: -- Purpose
9: -- This package does the following:
10: -- - Maintain all the session variables for Pick Release
230: cs BINARY_INTEGER;
231:
232: BEGIN
233:
234: WSH_UTIL.Write_Log('Starting WSH_PR_PICKING_SESSION.Init');
235:
236: IF initialized = TRUE THEN
237: RETURN SUCCESS;
238: END IF;
572: WSH_UTIL.Write_Log('Picking Batch ' || to_char(p_batch_id) || ' does not exist ');
573: WSH_UTIL.Write_Log('or another pick release request has already released this batch');
574: END IF;
575:
576: -- package WSH_PR_PICKING_SESSION has been initialized
577: initialized := TRUE;
578:
579: RETURN SUCCESS;
580:
601: IF ps_mode_param%ISOPEN THEN
602: CLOSE ps_mode_param;
603: END IF;
604:
605: WSH_UTIL.Default_Handler('WSH_PR_PICKING_SESSION.Init','');
606: RETURN FAILURE;
607:
608: END Init;
609:
827: RETURN SUCCESS;
828:
829: EXCEPTION
830: WHEN OTHERS THEN
831: WSH_UTIL.Default_Handler('WSH_PR_PICKING_SESSION.Launc_Doc_Set','');
832: RETURN FAILURE;
833:
834: END SRS_Picking_Batch;
835:
1913: RETURN SUCCESS;
1914:
1915: EXCEPTION
1916: WHEN OTHERS THEN
1917: WSH_UTIL.Default_Handler('WSH_PR_PICKING_SESSION.Launc_Doc_Set','');
1918: RETURN FAILURE;
1919:
1920: END;
1921:
1969: RETURN SUCCESS;
1970:
1971: END Get_Session_Value;
1972:
1973: END WSH_PR_PICKING_SESSION;