1 PACKAGE BODY PO_CO_TOLERANCES_GRP AS
2 /* $Header: PO_CO_TOLERANCES_GRP.plb 120.2 2005/07/08 02:06:42 svasamse noship $ */
3
4 g_pkg_name CONSTANT VARCHAR2(30) := 'PO_CO_TOLERANCES_GRP';
5
6 --<R12 REQUESTER DRIVEN PROCUREMENT START>
7
8 ------------------------------------------------------------------------------
9 --Start of Comments
10 --Name: GET_TOLERANCES
11 --Pre-reqs:
12 -- None
13 --Modifies:
14 -- None
15 --Locks:
16 -- None
17 --Function:
18 -- 1. This procedure will retrieve the tolerances of a
19 -- given change order type and operating unit.
20 --Parameters:
21 --IN:
22 -- p_api_version
23 -- Used to determine compatibility of API and calling program
24 -- p_init_msg_list
25 -- True/False parameter to initialize message list
26 -- p_organization_id
27 -- Operating Unit Id
28 -- p_change_order_type
29 -- Change Order Type for which the tolerances should be retrieved.
30 --OUT:
31 -- x_tolerances_tbl
32 -- Table containing the tolerances and their values
33 -- x_return_status
34 -- The standard OUT parameter giving return status of the API call.
35 -- FND_API.G_RET_STS_ERROR - for expected error
36 -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
37 -- FND_API.G_RET_STS_SUCCESS - for success
38 -- x_msg_count
39 -- The count of number of messages added to the message list in this call
40 -- x_msg_data
41 -- If the count is 1 then x_msg_data contains the message returned
42 --End of Comment
43 -------------------------------------------------------------------------------
44 procedure GET_TOLERANCES(p_api_version IN NUMBER,
45 p_init_msg_list IN VARCHAR2,
46 p_organization_id IN NUMBER,
47 p_change_order_type IN VARCHAR2,
48 x_tolerances_tbl IN OUT NOCOPY tolerances_tbl_type,
49 x_return_status OUT NOCOPY VARCHAR2,
50 x_msg_count OUT NOCOPY NUMBER,
51 x_msg_data OUT NOCOPY VARCHAR2) IS
52
53 l_api_name CONSTANT VARCHAR(30) := 'GET_TOLERANCES';
54 l_api_version CONSTANT NUMBER := 1.0;
55
56 BEGIN
57 -- Standard API initialization
58 IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
59 l_api_name, G_PKG_NAME)
60 THEN
61 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
62 END IF;
63
64 -- Initialize message list if p_init_msg_list is set to TRUE.
65 IF FND_API.to_Boolean( p_init_msg_list ) THEN
66 FND_MSG_PUB.initialize;
67 END IF;
68
69 -- Initialize API return status to success
70 x_return_status := FND_API.G_RET_STS_SUCCESS;
71
72 -- Invoke call to retrieve tolerances
73 PO_CO_TOLERANCES_PVT.Get_Tolerances (p_api_version,
74 p_init_msg_list,
75 p_organization_id,
76 p_change_order_type,
77 x_tolerances_tbl,
78 x_return_status,
79 x_msg_count,
80 x_msg_data);
81
82 END GET_TOLERANCES;
83
84 --<R12 REQUESTER DRIVEN PROCUREMENT END>
85
86 END;