eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
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;