1 PACKAGE BODY OE_OPM_RMA_UTILS AS
2 /* $Header: OEXOPMIB.pls 120.0 2005/05/31 23:23:29 appldev noship $ */
3
4 -- Global constant holding the package name
5
6 G_PKG_NAME CONSTANT VARCHAR2(30) := 'OE_OPM_RMA_UTILS';
7
8
9 -- get_opm_lot_quantities
10
11 PROCEDURE get_opm_lot_quantities
12 ( p_line_id IN NUMBER,
13 p_lot_number IN VARCHAR2,
14 p_sublot_number IN VARCHAR2,
15 p_quantity OUT NOCOPY NUMBER,
16 p_quantity2 OUT NOCOPY NUMBER
17 )
18
19 IS
20
21 l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
22
23 BEGIN
24
25 IF l_debug_level > 0 THEN
26 OE_DEBUG_PUB.add('Entering Get_opm_lot_quantities ',1);
27 END IF;
28
29
30 IF (p_line_id IS NULL OR
31 p_line_id = FND_API.G_MISS_NUM)
32 THEN
33 IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
34 THEN
35 OE_MSG_PUB.Add_Exc_Msg
36 ( G_PKG_NAME
37 , 'get_opm_lot_quantities'
38 , 'line_id = '|| p_line_id );
39 END IF;
40
41 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
42
43 END IF; -- IF (p_line_id IS NULL OR
44
45 IF p_line_id <> FND_API.G_MISS_NUM THEN
46
47 SELECT quantity,
48 quantity2
49 INTO p_quantity,
50 p_quantity2
51 FROM oe_lot_serial_numbers
52 WHERE line_id = p_line_id
53 and lot_number = p_lot_number
54 and sublot_number = p_sublot_number;
55
56 END IF;
57
58
59 EXCEPTION
60
61 WHEN NO_DATA_FOUND THEN
62 IF l_debug_level > 0 THEN
63 OE_DEBUG_PUB.add('Get_opm_lot_quantities has error ',1);
64 OE_DEBUG_PUB.add('Error Message at 1 : '||sqlerrm,1);
65 END IF;
66
67 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
68
69 WHEN OTHERS THEN
70
71 IF l_debug_level > 0 THEN
72 OE_DEBUG_PUB.add('Get_opm_lot_quantities has error ',1);
73 OE_DEBUG_PUB.add('Error Message at 2 : '||sqlerrm,1);
74 END IF;
75
76 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
77
78 END get_opm_lot_quantities;
79
80 END OE_OPM_RMA_UTILS;