PACKAGE BODY: APPS.SHPLEFT

Source

1 PACKAGE BODY SHPLEFT AS
2 /* $Header: SHPLEFTB.pls 115.1 99/07/16 08:17:31 porting shi $ */
3 
4 function SOMETHING_LEFT_TO_SHIP
5    (O_LINE_ID                       IN NUMBER       DEFAULT NULL)
6    RETURN VARCHAR2
7 IS
8 
9 	LEFT_TO_SHIP		VARCHAR2(1) := 'Y';
10 
11 
12 BEGIN
13 
14 
15 	SELECT
16 		NVL(MAX('N'), 'Y')
17 	INTO
18 		LEFT_TO_SHIP
19 	FROM
20  		DUAL
21 	WHERE
22 		NOT EXISTS
23 		  (SELECT
24 			'OPEN/PENDING PICK SLIP EXISTS'
25 		   FROM
26 			SO_PICKING_LINES PL, SO_PICKING_HEADERS PH
27 		   WHERE
28 			PL.ORDER_LINE_ID = O_LINE_ID AND
29 			PH.PICKING_HEADER_ID = PL.PICKING_HEADER_ID AND
30 			PH.STATUS_CODE || '' IN ('OPEN', 'PENDING'))
31 	AND    NOT EXISTS
32 		 (SELECT
33 			'ANY UNRELEASED LINE DETAIL IF PR IN CYCLE'
34 		  FROM
35 			SO_CYCLE_ACTIONS CA,
36 			SO_ORDER_TYPES OT,
37 			SO_HEADERS H,
38 			SO_LINES L,
39 			SO_LINE_DETAILS LD
40 		  WHERE
41 			LD.LINE_ID = O_LINE_ID AND
42 			LD.RELEASED_FLAG = 'N' AND
43 			LD.SHIPPABLE_FLAG = 'Y' AND
44 			LD.LINE_ID = L.LINE_ID AND
45 			L.HEADER_ID = H.HEADER_ID AND
46 			H.ORDER_TYPE_ID = OT.ORDER_TYPE_ID AND
47 			OT.CYCLE_ID = CA.CYCLE_ID AND
48 			CA.ACTION_ID = 2)
49 	AND    NOT EXISTS
50 		 (SELECT
51 		       'BACKORDERED PICKING LINES'
52 		  FROM
53 		       SO_PICKING_LINES PL
54 		  WHERE
55 		       PL.ORDER_LINE_ID = O_LINE_ID AND
56 		       PL.PICKING_HEADER_ID+0 = 0 AND
57 		       NVL(PL.CANCELLED_QUANTITY, 0) < PL.REQUESTED_QUANTITY);
58 
59 
60 	RETURN(LEFT_TO_SHIP);
61 
62 END;
63 
64 END SHPLEFT;