[Home] [Help]
PACKAGE BODY: APPS.PO_REQ_DOCUMENT_CANCEL_GRP
Source
1 PACKAGE BODY PO_REQ_DOCUMENT_CANCEL_GRP AS
2 /* $Header: POXGRCAB.pls 115.0 2003/08/28 06:29:01 bmunagal noship $*/
3
4 G_PKG_NAME CONSTANT varchar2(30) := 'PO_REQ_DOCUMENT_CANCEL_GRP';
5
6 c_log_head CONSTANT VARCHAR2(50) := 'po.plsql.'|| G_PKG_NAME || '.';
7
8 -- Read the profile option that enables/disables the debug log
9 g_fnd_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
10
11 -------------------------------------------------------------------------------
12 --Start of Comments
13 --Name: cancel_requisition
14 --Pre-reqs:
15 -- None.
16 --Modifies:
17 -- None.
18 --Locks:
19 -- None.
20 --Function:
21 -- Group procedure to cancel a Requisition. Validates and calls private procedure
22 -- This currently does not do any validations. This may do validations in the future.
23 --Notes:
24 -- Detailed comments maintained in PVT Package Body PO_REQ_DOCUMENT_CANCEL_PVT.cancel_requisition
25 --End of Comments
26 -------------------------------------------------------------------------------
27 PROCEDURE cancel_requisition (
28 p_api_version IN NUMBER,
29 p_req_header_id IN PO_TBL_NUMBER,
30 p_req_line_id IN PO_TBL_NUMBER,
31 p_cancel_date IN DATE,
32 p_cancel_reason IN VARCHAR2,
33 p_source IN VARCHAR2,
34 x_return_status OUT NOCOPY VARCHAR2,
35 x_msg_count OUT NOCOPY NUMBER,
36 x_msg_data OUT NOCOPY VARCHAR2
37 ) IS
38
39 l_api_name CONSTANT VARCHAR(30) := 'cancel_requisition';
40 l_api_version CONSTANT NUMBER := 1.0;
41 l_progress VARCHAR2(3) := '000';
42
43 BEGIN
44
45 --Standard call to check for call compatibility
46 IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
47 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
48 END IF;
49
50 --Call the private procedure to cancel requisition
51 l_progress := '010';
52 PO_REQ_DOCUMENT_CANCEL_PVT.cancel_requisition(
53 p_api_version => 1.0,
54 p_req_header_id => p_req_header_id,
55 p_req_line_id => p_req_line_id,
56 p_cancel_date => p_cancel_date,
57 p_source => p_source,
58 p_cancel_reason => p_cancel_reason,
59 x_return_status => x_return_status,
60 x_msg_count => x_msg_count,
61 x_msg_data => x_msg_data);
62
63 l_progress := '020';
64
65 EXCEPTION
66 WHEN FND_API.G_EXC_ERROR THEN
67 FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
68 x_return_status := FND_API.G_RET_STS_ERROR;
69 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
70 FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
71 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
72 WHEN OTHERS THEN
73 FND_MSG_PUB.add_exc_msg(G_PKG_NAME, l_api_name || '.' || l_progress);
74 FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
75 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
76
77 END cancel_requisition;
78
79
80 END PO_REQ_DOCUMENT_CANCEL_GRP;