[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_TERMINATE_INV_AGMT_PUB
Source
1 PACKAGE BODY OKL_AM_TERMINATE_INV_AGMT_PUB AS
2 /* $Header: OKLPTIAB.pls 115.2 2003/10/20 22:14:52 rmunjulu noship $ */
3
4 -- Start of comments
5 --
6 -- Procedure Name : terminate_investor_agreement
7 -- Description : procedure to terminate investor agreement
8 -- Business Rules :
9 -- Parameters :
10 -- Version : 1.0
11 -- History : RMUNJULU 3061748 Created
12 --
13 -- End of comments
14 PROCEDURE terminate_investor_agreement(
15 p_api_version IN NUMBER,
16 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
17 x_return_status OUT NOCOPY VARCHAR2,
18 x_msg_count OUT NOCOPY NUMBER,
19 x_msg_data OUT NOCOPY VARCHAR2,
20 p_ia_rec IN ia_rec_type,
21 p_control_flag IN VARCHAR2 DEFAULT NULL) IS
22
23 l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
24
25 BEGIN
26
27 -- *************
28 -- Create Savepoint
29 -- *************
30
31 SAVEPOINT terminate_ia_trx;
32
33 -- *************
34 -- Call PVT Terminate IA Prog
35 -- *************
36
37 OKL_AM_TERMINATE_INV_AGMT_PVT.terminate_investor_agreement(
38 p_api_version => p_api_version,
39 p_init_msg_list => G_FALSE,
40 x_return_status => l_return_status,
41 x_msg_count => x_msg_count,
42 x_msg_data => x_msg_data,
43 p_ia_rec => p_ia_rec,
44 p_control_flag => p_control_flag);
45
46 -- Raise exception if error
47 IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
48 RAISE G_EXCEPTION_UNEXPECTED_ERROR;
49 ELSIF (l_return_status = G_RET_STS_ERROR) THEN
50 RAISE G_EXCEPTION_ERROR;
51 END IF;
52
53 -- *************
54 -- Set the return status
55 -- *************
56
57 x_return_status := l_return_status;
58
59 EXCEPTION
60
61 WHEN G_EXCEPTION_ERROR THEN
62 ROLLBACK TO terminate_ia_trx;
63 x_return_status := G_RET_STS_ERROR;
64
65 WHEN G_EXCEPTION_UNEXPECTED_ERROR THEN
66 ROLLBACK TO terminate_ia_trx;
67 x_return_status := G_RET_STS_UNEXP_ERROR;
68
69 WHEN OTHERS THEN
70 ROLLBACK TO terminate_ia_trx;
71
72 -- Set the oracle error message
73 OKL_API.set_message(
74 p_app_name => G_APP_NAME_1,
75 p_msg_name => G_UNEXPECTED_ERROR,
76 p_token1 => G_SQLCODE_TOKEN,
77 p_token1_value => SQLCODE,
78 p_token2 => G_SQLERRM_TOKEN,
79 p_token2_value => SQLERRM);
80
81 x_return_status := G_RET_STS_UNEXP_ERROR;
82
83 END terminate_investor_agreement;
84
85 -- Start of comments
86 --
87 -- Procedure Name : concurrent_expire_inv_agrmt
88 -- Description : This procedure is called by concurrent manager to terminate
89 -- ended investor agreements. When running the concurrent
90 -- manager request, a request can be made for a single IA to
91 -- be terminated or else all the ended IAs will be picked
92 -- Business Rules :
93 -- Parameters :
94 -- Version : 1.0
95 -- History : RMUNJULU 3061748 Created
96 --
97 -- End of comments
98 PROCEDURE concurrent_expire_inv_agrmt(
99 errbuf OUT NOCOPY VARCHAR2,
100 retcode OUT NOCOPY VARCHAR2,
101 p_api_version IN VARCHAR2,
102 p_init_msg_list IN VARCHAR2 DEFAULT G_FALSE,
103 p_ia_id IN VARCHAR2 DEFAULT NULL,
104 p_date IN VARCHAR2 DEFAULT NULL) IS
105
106 BEGIN
107
108 -- Call the PVT conc prog
109 OKL_AM_TERMINATE_INV_AGMT_PVT.concurrent_expire_inv_agrmt(
110 errbuf => errbuf,
111 retcode => retcode,
112 p_api_version => p_api_version,
113 p_init_msg_list => p_init_msg_list,
114 p_ia_id => p_ia_id,
115 p_date => p_date);
116
117 EXCEPTION
118
119 WHEN OTHERS THEN
120 -- Set the oracle error message
121 OKL_API.set_message(
122 p_app_name => G_APP_NAME_1,
123 p_msg_name => G_UNEXPECTED_ERROR,
124 p_token1 => G_SQLCODE_TOKEN,
125 p_token1_value => SQLCODE,
126 p_token2 => G_SQLERRM_TOKEN,
127 p_token2_value => SQLERRM);
128
129 END concurrent_expire_inv_agrmt;
130
131 END OKL_AM_TERMINATE_INV_AGMT_PUB;