[Home] [Help]
PACKAGE BODY: APPS.OKL_CONTRACT_STATUS_PUB
Source
1 Package body OKL_CONTRACT_STATUS_PUB as
2 /* $Header: OKLPSTKB.pls 115.2 2002/11/30 08:40:52 spillaip noship $ */
3
4 -------------------------------------------------------------------------------------------------
5 -- GLOBAL MESSAGE CONSTANTS
6 -------------------------------------------------------------------------------------------------
7 G_NO_PARENT_RECORD CONSTANT VARCHAR2(200) := 'OKC_NO_PARENT_RECORD';
8 G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
9 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
10 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
11 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_CONTRACTS_UNEXP_ERROR';
12 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'SQLerrm';
13 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'SQLcode';
14 G_UPPERCASE_REQUIRED CONSTANT VARCHAR2(200) := 'OKL_CONTRACTS_UPPERCASE_REQ';
15 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
16 ------------------------------------------------------------------------------------
17 -- GLOBAL EXCEPTION
18 ------------------------------------------------------------------------------------
19 G_EXCEPTION_HALT_VALIDATION EXCEPTION;
20 G_EXCEPTION_STOP_VALIDATION EXCEPTION;
21 G_API_TYPE CONSTANT VARCHAR2(4) := '_PUB';
22 G_API_VERSION CONSTANT NUMBER := 1.0;
23 G_SCOPE CONSTANT VARCHAR2(4) := '_PUB';
24
25 -- GLOBAL VARIABLES
26 -----------------------------------------------------------------------------------
27
28 Procedure get_contract_status(
29 p_api_version IN NUMBER,
30 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
31 x_return_status OUT NOCOPY VARCHAR2,
32 x_msg_count OUT NOCOPY NUMBER,
33 x_msg_data OUT NOCOPY VARCHAR2,
34 x_isAllowed OUT NOCOPY BOOLEAN,
35 x_PassStatus OUT NOCOPY VARCHAR2,
36 x_FailStatus OUT NOCOPY VARCHAR2,
37 p_event IN VARCHAR2,
38 p_chr_id IN VARCHAR2) IS
39
40 l_api_name CONSTANT VARCHAR2(30) := 'RETURN_CONTRACT_STATUS';
41 l_api_version CONSTANT NUMBER := 1;
42
43
44
45 BEGIN
46
47 -- x_return_status := OKC_API.G_RET_STS_SUCCESS;
48
49
50 x_return_status := OKC_API.START_ACTIVITY(
51 p_api_name => l_api_name,
52 p_pkg_name => g_pkg_name,
53 p_init_msg_list => p_init_msg_list,
54 l_api_version => l_api_version,
55 p_api_version => p_api_version,
56 p_api_type => G_API_TYPE,
57 x_return_status => x_return_status);
58
59 -- check if activity started successfully
60 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
61 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
62 ElSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
63 raise OKC_API.G_EXCEPTION_ERROR;
64 End If;
65
66 OKL_CONTRACT_STATUS_PVT.get_contract_status(
67 p_api_version,
68 p_init_msg_list,
69 x_return_status,
70 x_msg_count,
71 x_msg_data,
72 x_isAllowed,
73 x_PassStatus,
74 x_FailStatus,
75 p_event,
76 p_chr_id);
77
78 OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
79
80 Exception
81 when OKC_API.G_EXCEPTION_ERROR then
82 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
83 p_api_name => l_api_name,
84 p_pkg_name => g_pkg_name,
85 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
86 x_msg_count => x_msg_count,
87 x_msg_data => x_msg_data,
88 p_api_type => g_api_type);
89
90 when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
91 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
92 p_api_name => l_api_name,
93 p_pkg_name => g_pkg_name,
94 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
95 x_msg_count => x_msg_count,
96 x_msg_data => x_msg_data,
97 p_api_type => g_api_type);
98
99 when OTHERS then
100 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
101 p_api_name => l_api_name,
102 p_pkg_name => g_pkg_name,
103 p_exc_name => 'OTHERS',
104 x_msg_count => x_msg_count,
105 x_msg_data => x_msg_data,
106 p_api_type => g_api_type);
107
108
109 END get_contract_status;
110
111 Procedure update_contract_status(
112 p_api_version IN NUMBER,
113 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
114 x_return_status OUT NOCOPY VARCHAR2,
115 x_msg_count OUT NOCOPY NUMBER,
116 x_msg_data OUT NOCOPY VARCHAR2,
117 p_khr_status IN VARCHAR2,
118 p_chr_id IN VARCHAR2) IS
119
120 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_CONTRACT_STATUS';
121 l_api_version CONSTANT NUMBER := 1;
122
123 BEGIN
124
125 -- x_return_status := OKC_API.G_RET_STS_SUCCESS;
126
127
128 x_return_status := OKC_API.START_ACTIVITY(
129 p_api_name => l_api_name,
130 p_pkg_name => g_pkg_name,
131 p_init_msg_list => p_init_msg_list,
132 l_api_version => l_api_version,
133 p_api_version => p_api_version,
134 p_api_type => G_API_TYPE,
135 x_return_status => x_return_status);
136
137 -- check if activity started successfully
138 If (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) then
139 raise OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
140 ElSIF (x_return_status = OKC_API.G_RET_STS_ERROR) then
141 raise OKC_API.G_EXCEPTION_ERROR;
142 End If;
143
144 OKL_CONTRACT_STATUS_PVT.update_contract_status(
145 p_api_version,
146 p_init_msg_list,
147 x_return_status,
148 x_msg_count,
149 x_msg_data,
150 p_khr_status,
151 p_chr_id);
152
153 OKC_API.END_ACTIVITY(x_msg_count => x_msg_count, x_msg_data => x_msg_data);
154
155 Exception
156 when OKC_API.G_EXCEPTION_ERROR then
157 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
158 p_api_name => l_api_name,
159 p_pkg_name => g_pkg_name,
160 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
161 x_msg_count => x_msg_count,
162 x_msg_data => x_msg_data,
163 p_api_type => g_api_type);
164
165 when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
166 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
167 p_api_name => l_api_name,
168 p_pkg_name => g_pkg_name,
169 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
170 x_msg_count => x_msg_count,
171 x_msg_data => x_msg_data,
172 p_api_type => g_api_type);
173
174 when OTHERS then
175 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
176 p_api_name => l_api_name,
177 p_pkg_name => g_pkg_name,
178 p_exc_name => 'OTHERS',
179 x_msg_count => x_msg_count,
180 x_msg_data => x_msg_data,
181 p_api_type => g_api_type);
182
183
184 END update_contract_status;
185
186 Procedure cascade_lease_status
187 (p_api_version IN NUMBER,
188 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
189 x_return_status OUT NOCOPY VARCHAR2,
190 x_msg_count OUT NOCOPY NUMBER,
191 x_msg_data OUT NOCOPY VARCHAR2,
192 p_chr_id IN NUMBER) IS
193
194 l_api_name CONSTANT VARCHAR2(30) := 'CASCADE_LEASE_STS';
195 l_api_version CONSTANT NUMBER := 1;
196
197 BEGIN
198
199 OKL_CONTRACT_STATUS_PVT.cascade_lease_status
200 (p_api_version,
201 p_init_msg_list,
202 x_return_status,
203 x_msg_count,
204 x_msg_data,
205 p_chr_id);
206
207
208 Exception
209 when OKC_API.G_EXCEPTION_ERROR then
210 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
211 p_api_name => l_api_name,
212 p_pkg_name => g_pkg_name,
213 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
214 x_msg_count => x_msg_count,
215 x_msg_data => x_msg_data,
216 p_api_type => g_api_type);
217
218 when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
219 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
220 p_api_name => l_api_name,
221 p_pkg_name => g_pkg_name,
222 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
223 x_msg_count => x_msg_count,
224 x_msg_data => x_msg_data,
225 p_api_type => g_api_type);
226
227 when OTHERS then
228 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
229 p_api_name => l_api_name,
230 p_pkg_name => g_pkg_name,
231 p_exc_name => 'OTHERS',
232 x_msg_count => x_msg_count,
233 x_msg_data => x_msg_data,
234 p_api_type => g_api_type);
235
236 END cascade_lease_status;
237
238
239
240 Procedure cascade_lease_status_edit
241 (p_api_version IN NUMBER,
242 p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
243 x_return_status OUT NOCOPY VARCHAR2,
244 x_msg_count OUT NOCOPY NUMBER,
245 x_msg_data OUT NOCOPY VARCHAR2,
246 p_chr_id IN NUMBER) IS
247
248 l_api_name CONSTANT VARCHAR2(30) := 'CASCADE_LEASE_STS_E';
249 l_api_version CONSTANT NUMBER := 1;
250
251 BEGIN
252
253 OKL_CONTRACT_STATUS_PVT.cascade_lease_status_edit
254 (p_api_version,
255 p_init_msg_list,
256 x_return_status,
257 x_msg_count,
258 x_msg_data,
259 p_chr_id);
260
261
262 Exception
263 when OKC_API.G_EXCEPTION_ERROR then
264 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
265 p_api_name => l_api_name,
266 p_pkg_name => g_pkg_name,
267 p_exc_name => 'OKC_API.G_RET_STS_ERROR',
268 x_msg_count => x_msg_count,
269 x_msg_data => x_msg_data,
270 p_api_type => g_api_type);
271
272 when OKC_API.G_EXCEPTION_UNEXPECTED_ERROR then
273 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
274 p_api_name => l_api_name,
275 p_pkg_name => g_pkg_name,
276 p_exc_name => 'OKC_API.G_RET_STS_UNEXP_ERROR',
277 x_msg_count => x_msg_count,
278 x_msg_data => x_msg_data,
279 p_api_type => g_api_type);
280
281 when OTHERS then
282 x_return_status := OKC_API.HANDLE_EXCEPTIONS(
283 p_api_name => l_api_name,
284 p_pkg_name => g_pkg_name,
285 p_exc_name => 'OTHERS',
286 x_msg_count => x_msg_count,
287 x_msg_data => x_msg_data,
288 p_api_type => g_api_type);
289
290 END cascade_lease_status_edit;
291
292
293 End OKL_CONTRACT_STATUS_PUB;