PACKAGE BODY: APPS.OKL_REVERSE_CONTRACT_PUB

Source

1 PACKAGE BODY OKL_REVERSE_CONTRACT_PUB AS
2 /* $Header: OKLPRVKB.pls 115.4 2002/12/02 04:49:51 arajagop noship $ */
3 
4 PROCEDURE Reverse_Contract (p_api_version         IN   NUMBER,
5                             p_init_msg_list       IN   VARCHAR2,
6                             x_return_status       OUT  NOCOPY VARCHAR2,
7                             x_msg_count           OUT  NOCOPY NUMBER,
8                             x_msg_data            OUT  NOCOPY VARCHAR2,
9                             p_contract_id         IN   NUMBER,
10                             p_transaction_date    IN   DATE )
11 
12 IS
13   l_api_version       CONSTANT NUMBER        := 1.0;
14   l_api_name          CONSTANT VARCHAR2(30)  := 'REVERSE_CONTRACT';
15   l_return_status     VARCHAR2(1) := G_RET_STS_SUCCESS;
16 
17 
18 BEGIN
19   SAVEPOINT REVERSE_CONTRACT;
20   x_return_status    := G_RET_STS_SUCCESS;
21 
22   -- customer pre-processing
23 
24 
25 
26 
27 -- Run the MAIN Procedure
28 
29 
30   OKL_REVERSE_CONTRACT_PVT.REVERSE_CONTRACT(p_api_version      => l_api_version,
31                                             p_init_msg_list    => p_init_msg_list,
32                                             x_return_status    => x_return_status,
33                                             x_msg_count        => x_msg_count,
34                                             x_msg_data         => x_msg_data,
35 					    p_contract_id      => p_contract_id,
36 				            p_transaction_date => p_transaction_date);
37 
38 
39 
40        IF l_return_status = G_RET_STS_ERROR THEN
41           RAISE G_EXCEPTION_ERROR;
42        ELSIF l_return_status = G_RET_STS_UNEXP_ERROR THEN
43           RAISE G_EXCEPTION_UNEXPECTED_ERROR;
44        END IF;
45 
46 
47 
48 
49 
50 
51 EXCEPTION
52 
53   WHEN G_EXCEPTION_ERROR THEN
54       ROLLBACK TO REVERSE_CONTRACT;
55       x_return_status := G_RET_STS_ERROR;
56       FND_MSG_PUB.Count_and_get(p_encoded => G_FALSE
57                                ,p_count   => x_msg_count
58                                ,p_data    => x_msg_data);
59 
60   WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
61       ROLLBACK TO REVERSE_CONTRACT;
62       x_return_status := G_RET_STS_UNEXP_ERROR;
63       FND_MSG_PUB.Count_and_get(p_encoded => G_FALSE
64                                ,p_count   => x_msg_count
65                                ,p_data    => x_msg_data);
66 
67   WHEN OTHERS THEN
68       ROLLBACK TO REVERSE_CONTRACT;
69       x_return_status := G_RET_STS_UNEXP_ERROR;
70       FND_MSG_PUB.ADD_EXC_MSG('OKL_REVERSE_CONTRACT_PUB','REVERSE_CONTRACT');
71       FND_MSG_PUB.Count_and_get(p_encoded => G_FALSE
72                                ,p_count   => x_msg_count
73                                ,p_data    => x_msg_data);
74 
75 END Reverse_Contract;
76 
77 
78 END OKL_REVERSE_CONTRACT_PUB;