1 PACKAGE BODY OE_VALIDATE_SCH_LINE AS
2 /* $Header: OEXLSCHB.pls 120.1 2006/03/29 16:45:00 spooruli noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30):='OE_VALIDATE_SCH_LINE';
5
6 /*---------------------------------------------------------------------
7 Procedure Name : Validate_Line
8 Description : Validates a line before transferring the reservations.
9 Lines are not allowed to hold the reservations before
10 not allowed to hold the reservations
11 --------------------------------------------------------------------- */
12 FUNCTION Validate_Line(p_line_id IN NUMBER)
13 RETURN BOOLEAN
14 IS
15
16 l_schedule_status VARCHAR2(30);
17 l_scheduling_level_code VARCHAR2(30);
18 l_header_id NUMBER;
19 l_line_type_id NUMBER;
20 BEGIN
21
22 oe_debug_pub.add('Entering OE_VALIDATE_SCH_LINE.validate ' || p_line_id,1);
23 Select schedule_status_code,
24 header_id,
25 line_type_id
26 Into l_schedule_status,
27 l_header_id,
28 l_line_type_id
29 From oe_order_lines_all
30 Where line_id = p_line_id;
31
32
33 IF l_schedule_status is Null THEN
34
35 Return FALSE;
36 END IF;
37
38 oe_debug_pub.add('Exiting the call with success',1);
39 RETURN TRUE;
40
41 EXCEPTION
42 WHEN OTHERS THEN
43 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
44 THEN
45 OE_MSG_PUB.Add_Exc_Msg
46 ( G_PKG_NAME
47 , 'OE_VALIDATE_SCH_LINE.validate'
48 );
49 END IF;
50 RETURN FALSE;
51
52 END Validate_Line;
53 END OE_VALIDATE_SCH_LINE;