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;