PACKAGE BODY: APPS.OE_LINE_UTILITY

Source

1 PACKAGE BODY OE_LINE_UTILITY as
2 /* $Header: OEXLUTSB.pls 115.1 99/07/16 08:13:23 porting shi $ */
3 
4 procedure GET_LINE_TRIPLET(
5    P_PARENT_LINE_ID                      IN NUMBER DEFAULT NULL
6 ,  P_SERVICE_PARENT_LINE_ID              IN NUMBER DEFAULT NULL
7 ,  P_SHIPMENT_SCHEDULE_LINE_ID           IN NUMBER DEFAULT NULL
8 ,  P_LINE_NUMBER                         IN NUMBER DEFAULT NULL
9 ,  P_BASE_LINE_NUMBER			 OUT NUMBER
10 ,  P_SHIPMENT_SCHEDULE_NUMBER		 OUT NUMBER
11 ,  P_OPTION_LINE_NUMBER			 OUT NUMBER
12 				)
13 IS
14 BEGIN
15   P_BASE_LINE_NUMBER := OE_QUERY.BASE_LINE_NUMBER (P_PARENT_LINE_ID, P_SERVICE_PARENT_LINE_ID,
16 				P_SHIPMENT_SCHEDULE_LINE_ID, P_LINE_NUMBER);
17   P_SHIPMENT_SCHEDULE_NUMBER := OE_QUERY.SHIPMENT_SCHEDULE_NUMBER (P_PARENT_LINE_ID,
18 				P_SERVICE_PARENT_LINE_ID, P_SHIPMENT_SCHEDULE_LINE_ID,
19 				P_LINE_NUMBER);
20   P_OPTION_LINE_NUMBER := OE_QUERY.OPTION_LINE_NUMBER (P_PARENT_LINE_ID, P_SERVICE_PARENT_LINE_ID,
21 				P_SHIPMENT_SCHEDULE_LINE_ID, P_LINE_NUMBER);
22 END GET_LINE_TRIPLET;
23 
24 procedure GET_LINE_QUADRUPLET(
25    P_LINE_ID				 IN NUMBER
26 ,  P_BASE_LINE_NUMBER			 OUT NUMBER
27 ,  P_SHIPMENT_SCHEDULE_NUMBER		 OUT NUMBER
28 ,  P_OPTION_LINE_NUMBER			 OUT NUMBER
29 ,  P_SERVICE_LINE_NUMBER		 OUT NUMBER
30 				)
31 IS
32   V_PARENT_LINE_ID 		NUMBER;
33   V_SERVICE_PARENT_LINE_ID	NUMBER;
34   V_SHIPMENT_SCHEDULE_LINE_ID	NUMBER;
35   V_LINE_NUMBER			NUMBER;
36 BEGIN
37   SELECT PARENT_LINE_ID, SERVICE_PARENT_LINE_ID, SHIPMENT_SCHEDULE_LINE_ID,
38 	 LINE_NUMBER
39   INTO   V_PARENT_LINE_ID, V_SERVICE_PARENT_LINE_ID, V_SHIPMENT_SCHEDULE_LINE_ID,
40 	 V_LINE_NUMBER
41   FROM   SO_LINES
42   WHERE  LINE_ID = P_LINE_ID;
43 
44   P_BASE_LINE_NUMBER := OE_QUERY.BASE_LINE_NUMBER (V_PARENT_LINE_ID, V_SERVICE_PARENT_LINE_ID,
45 				V_SHIPMENT_SCHEDULE_LINE_ID, V_LINE_NUMBER);
46   P_SHIPMENT_SCHEDULE_NUMBER := OE_QUERY.SHIPMENT_SCHEDULE_NUMBER (V_PARENT_LINE_ID,
47 				V_SERVICE_PARENT_LINE_ID, V_SHIPMENT_SCHEDULE_LINE_ID,
48 				V_LINE_NUMBER);
49   P_OPTION_LINE_NUMBER := OE_QUERY.OPTION_LINE_NUMBER (V_PARENT_LINE_ID, V_SERVICE_PARENT_LINE_ID,
50 				V_SHIPMENT_SCHEDULE_LINE_ID, V_LINE_NUMBER);
51 
52   IF (V_SERVICE_PARENT_LINE_ID IS NULL) THEN
53     P_SERVICE_LINE_NUMBER := NULL;
54   ELSE
55     P_SERVICE_LINE_NUMBER := V_LINE_NUMBER;
56   END IF;
57 
58 EXCEPTION
59 WHEN NO_DATA_FOUND
60 THEN
61   P_BASE_LINE_NUMBER := NULL;
62   P_SHIPMENT_SCHEDULE_NUMBER := NULL;
63   P_OPTION_LINE_NUMBER := NULL;
64   P_SERVICE_LINE_NUMBER := NULL;
65   RETURN;
66 END GET_LINE_QUADRUPLET;
67 
68 END OE_LINE_UTILITY;