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_APPROVAL_PUB

Source


1 Package Body OKL_CONTRACT_APPROVAL_PUB AS
2 /* $Header: OKLPCAVB.pls 115.5 2002/03/21 18:03:28 pkm ship       $ */
3   G_APP_NAME			CONSTANT VARCHAR2(3)   :=  OKC_API.G_APP_NAME;
4   G_PKG_NAME			CONSTANT VARCHAR2(200) := 'OKL_CONTRACT_APPROVAL_PUB';
5 -- Start of comments
6 --
7 -- Procedure Name  : start_process
8 -- Description     :
9 -- Business Rules  :
10 -- Parameters      :
11 -- Version         : 1.0
12 -- End of comments
13 PROCEDURE start_process(p_api_version IN number,
14                           p_init_msg_list IN varchar2,
15                           x_return_status OUT NOCOPY varchar2,
16                           x_msg_count OUT NOCOPY number,
17                           x_msg_data OUT NOCOPY varchar2,
18                           p_contract_id IN number,
19                           p_status IN VARCHAR2,
20                           p_do_commit IN VARCHAR2) IS
21 l_api_name                     CONSTANT VARCHAR2(30) := 'start_process';
22 l_api_version                  CONSTANT NUMBER := 1;
23 l_return_status                VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
24 BEGIN
25   l_return_status := OKC_API.START_ACTIVITY(SUBSTR(l_api_name,1,26),
26                                               G_PKG_NAME,
27                                               p_init_msg_list,
28                                               l_api_version,
29                                               p_api_version,
30                                               '_PUB',
31                                               x_return_status);
32   IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
33     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
34   ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
35     RAISE OKC_API.G_EXCEPTION_ERROR;
36   END IF;
37   --
38   -- Call Before Logic Hook
39   --
40   okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
41   IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
42     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
43   ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
44     RAISE OKC_API.G_EXCEPTION_ERROR;
45   END IF;
46  OKL_CONTRACT_APPROVAL_PVT.start_process(p_api_version,
47                p_init_msg_list,
48                x_return_status,
49                x_msg_count,
50                x_msg_data,
51                p_contract_id,
52                p_status,
53                p_do_commit);
54   IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
55     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
56   ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
57     RAISE OKC_API.G_EXCEPTION_ERROR;
58   END IF;
59   --
60   -- Call After Logic Hook
61   --
62   okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
63   IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
64     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
65   ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
66     RAISE OKC_API.G_EXCEPTION_ERROR;
67   END IF;
68   OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
69   EXCEPTION
70      WHEN OKC_API.G_EXCEPTION_ERROR THEN
71        x_return_status := OKC_API.HANDLE_EXCEPTIONS
72        (SUBSTR(l_api_name,1,26),
73         G_PKG_NAME,
74         'OKC_API.G_RET_STS_ERROR',
75         x_msg_count,
76         x_msg_data,
77         '_PUB');
78      WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
79        x_return_status := OKC_API.HANDLE_EXCEPTIONS
80        (SUBSTR(l_api_name,1,26),
81         G_PKG_NAME,
82         'OKC_API.G_RET_STS_UNEXP_ERROR',
83         x_msg_count,
84         x_msg_data,
85         '_PUB');
86      WHEN OTHERS THEN
87        x_return_status := OKC_API.HANDLE_EXCEPTIONS
88        (SUBSTR(l_api_name,1,26),
89         G_PKG_NAME,
90         'OTHERS',
91         x_msg_count,
92         x_msg_data,
93         '_PUB');
94 END;
95 
96 -- Start of comments
97 --
98 -- Procedure Name  : stop_process
99 -- Description     :
100 -- Business Rules  :
101 -- Parameters      :
102 -- Version         : 1.0
103 -- End of comments
104 PROCEDURE stop_process(p_api_version IN NUMBER,
105                        p_init_msg_list IN VARCHAR2,
106                        x_return_status OUT NOCOPY VARCHAR2,
107                        x_msg_count OUT NOCOPY NUMBER,
108                        x_msg_data OUT NOCOPY VARCHAR2,
109                        p_contract_id IN NUMBER,
110                        p_do_commit IN VARCHAR2) IS
111 l_api_name                     CONSTANT VARCHAR2(30) := 'stop_process';
112 l_api_version                  CONSTANT NUMBER := 1;
113 l_return_status                VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
114 BEGIN
115   l_return_status := OKC_API.START_ACTIVITY(SUBSTR(l_api_name,1,26),
116                                               G_PKG_NAME,
117                                               p_init_msg_list,
118                                               l_api_version,
119                                               p_api_version,
120                                               '_PUB',
121                                               x_return_status);
122   IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
123     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
124   ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
125     RAISE OKC_API.G_EXCEPTION_ERROR;
126   END IF;
127   --
128   -- Call Before Logic Hook
129   --
130   okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
131   IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
132     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
133   ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
134     RAISE OKC_API.G_EXCEPTION_ERROR;
135   END IF;
136   OKL_CONTRACT_APPROVAL_PVT.stop_process(p_api_version,
137                p_init_msg_list,
138                x_return_status,
139                x_msg_count,
140                x_msg_data,
141                p_contract_id,
142                p_do_commit);
143   IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
144     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
145   ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
146     RAISE OKC_API.G_EXCEPTION_ERROR;
147   END IF;
148   --
149   -- Call After Logic Hook
150   --
151   okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
152   IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
153     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
154   ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
155     RAISE OKC_API.G_EXCEPTION_ERROR;
156   END IF;
157   OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
158   EXCEPTION
159      WHEN OKC_API.G_EXCEPTION_ERROR THEN
160        x_return_status := OKC_API.HANDLE_EXCEPTIONS
161        (SUBSTR(l_api_name,1,26),
162         G_PKG_NAME,
163         'OKC_API.G_RET_STS_ERROR',
164         x_msg_count,
165         x_msg_data,
166         '_PUB');
167      WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
168        x_return_status := OKC_API.HANDLE_EXCEPTIONS
169        (SUBSTR(l_api_name,1,26),
170         G_PKG_NAME,
171         'OKC_API.G_RET_STS_UNEXP_ERROR',
172         x_msg_count,
173         x_msg_data,
174         '_PUB');
175      WHEN OTHERS THEN
176        x_return_status := OKC_API.HANDLE_EXCEPTIONS
177        (SUBSTR(l_api_name,1,26),
178         G_PKG_NAME,
179         'OTHERS',
180         x_msg_count,
181         x_msg_data,
182         '_PUB');
183 END;
184 
185 -- Start of comments
186 --
187 -- Procedure Name  : populate_active_process
188 -- Description     :
189 -- Business Rules  :
190 -- Parameters      :
191 -- Version         : 1.0
192 -- End of comments
193 PROCEDURE populate_active_process(p_api_version IN NUMBER,
194                           p_init_msg_list IN VARCHAR2,
195                           x_return_status OUT NOCOPY VARCHAR2,
196                           x_msg_count OUT NOCOPY NUMBER,
197                           x_msg_data OUT NOCOPY VARCHAR2,
198                           p_contract_number IN VARCHAR2,
199                           p_contract_number_modifier IN VARCHAR2,
200                           x_wf_name OUT NOCOPY VARCHAR2,
201                           x_wf_process_name OUT NOCOPY VARCHAR2,
202                           x_package_name OUT NOCOPY VARCHAR2,
203                           x_procedure_name OUT NOCOPY VARCHAR2,
204                           x_usage OUT NOCOPY VARCHAR2,
205                           x_activeyn OUT NOCOPY VARCHAR2) IS
206 l_api_name                     CONSTANT VARCHAR2(30) := 'populate_active_process';
207 l_api_version                  CONSTANT NUMBER := 1;
208 l_return_status                VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
209 BEGIN
210   l_return_status := OKC_API.START_ACTIVITY(SUBSTR(l_api_name,1,26),
211                                               G_PKG_NAME,
212                                               p_init_msg_list,
213                                               l_api_version,
214                                               p_api_version,
215                                               '_PUB',
216                                               x_return_status);
217   IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
218     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
219   ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
220     RAISE OKC_API.G_EXCEPTION_ERROR;
221   END IF;
222   --
223   -- Call Before Logic Hook
224   --
225   okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
226   IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
227     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
228   ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
229     RAISE OKC_API.G_EXCEPTION_ERROR;
230   END IF;
231   OKL_CONTRACT_APPROVAL_PVT.populate_active_process(p_api_version,
232                           p_init_msg_list,
233                           x_return_status,
234                           x_msg_count,
235                           x_msg_data,
236                           p_contract_number,
237                           p_contract_number_modifier,
238                           x_wf_name,
239                           x_wf_process_name,
240                           x_package_name,
241                           x_procedure_name,
242                           x_usage,
243                           x_activeyn);
244   IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
245     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
246   ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
247     RAISE OKC_API.G_EXCEPTION_ERROR;
248   END IF;
249   --
250   -- Call After Logic Hook
251   --
252   okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
253   IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
254     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
255   ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
256     RAISE OKC_API.G_EXCEPTION_ERROR;
257   END IF;
258   OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
259   EXCEPTION
260      WHEN OKC_API.G_EXCEPTION_ERROR THEN
261        x_return_status := OKC_API.HANDLE_EXCEPTIONS
262        (SUBSTR(l_api_name,1,26),
263         G_PKG_NAME,
264         'OKC_API.G_RET_STS_ERROR',
265         x_msg_count,
266         x_msg_data,
267         '_PUB');
268      WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
269        x_return_status := OKC_API.HANDLE_EXCEPTIONS
270        (SUBSTR(l_api_name,1,26),
271         G_PKG_NAME,
272         'OKC_API.G_RET_STS_UNEXP_ERROR',
273         x_msg_count,
274         x_msg_data,
275         '_PUB');
276      WHEN OTHERS THEN
277        x_return_status := OKC_API.HANDLE_EXCEPTIONS
278        (SUBSTR(l_api_name,1,26),
279         G_PKG_NAME,
280         'OTHERS',
281         x_msg_count,
282         x_msg_data,
283         '_PUB');
284 END;
285 
286 -- Start of comments
287 --
288 -- Procedure Name  : monitor_process
289 -- Description     :
290 -- Business Rules  :
291 -- Parameters      :
292 -- Version         : 1.0
293 -- End of comments
294 FUNCTION monitor_process(p_api_version IN NUMBER,
295                          p_init_msg_list IN VARCHAR2,
296                          x_return_status OUT NOCOPY VARCHAR2,
297                          x_msg_count OUT NOCOPY NUMBER,
298                          x_msg_data OUT NOCOPY VARCHAR2,
299                          p_contract_id IN NUMBER,
300                          p_pdf_id IN NUMBER) RETURN VARCHAR2 IS
301 url VARCHAR2(300);
302 l_api_name                     CONSTANT VARCHAR2(30) := 'monitor_process';
303 l_api_version                  CONSTANT NUMBER := 1;
304 l_return_status                VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
305 BEGIN
306   l_return_status := OKC_API.START_ACTIVITY(SUBSTR(l_api_name,1,26),
307                                               G_PKG_NAME,
308                                               p_init_msg_list,
309                                               l_api_version,
310                                               p_api_version,
311                                               '_PUB',
312                                               x_return_status);
313   IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
314     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
315   ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
316     RAISE OKC_API.G_EXCEPTION_ERROR;
317   END IF;
318   --
319   -- Call Before Logic Hook
320   --
321   okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
322   IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
323     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
324   ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
325     RAISE OKC_API.G_EXCEPTION_ERROR;
326   END IF;
327 url := OKL_CONTRACT_APPROVAL_PVT.monitor_process(p_api_version,
328                          p_init_msg_list,
329                          x_return_status,
330                          x_msg_count,
331                          x_msg_data,
332                          p_contract_id,
333                          p_pdf_id);
334   IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
335     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
336   ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
337     RAISE OKC_API.G_EXCEPTION_ERROR;
338   END IF;
339   --
340   -- Call After Logic Hook
341   --
342   okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
343   IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
344     RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
345   ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
346     RAISE OKC_API.G_EXCEPTION_ERROR;
347   END IF;
348   OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
349   EXCEPTION
350      WHEN OKC_API.G_EXCEPTION_ERROR THEN
351        x_return_status := OKC_API.HANDLE_EXCEPTIONS
352        (SUBSTR(l_api_name,1,26),
353         G_PKG_NAME,
354         'OKC_API.G_RET_STS_ERROR',
355         x_msg_count,
356         x_msg_data,
357         '_PUB');
358      WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
359        x_return_status := OKC_API.HANDLE_EXCEPTIONS
360        (SUBSTR(l_api_name,1,26),
361         G_PKG_NAME,
362         'OKC_API.G_RET_STS_UNEXP_ERROR',
363         x_msg_count,
364         x_msg_data,
365         '_PUB');
366      WHEN OTHERS THEN
367        x_return_status := OKC_API.HANDLE_EXCEPTIONS
368        (SUBSTR(l_api_name,1,26),
369         G_PKG_NAME,
370         'OTHERS',
371         x_msg_count,
372         x_msg_data,
373         '_PUB');
374 RETURN url;
375 END;
376 END; -- Package Body OKL_CONTRACT_APPROVAL_PUB