[Home] [Help]
PACKAGE BODY: APPS.OKE_K_PRINT_FORMS_PUB
Source
1 PACKAGE BODY OKE_K_PRINT_FORMS_PUB AS
2 /* $Header: OKEPKPFB.pls 120.2 2010/04/09 05:28:51 aveeraba ship $ */
3 g_api_type CONSTANT VARCHAR2(4) := '_PUB';
4 g_module CONSTANT VARCHAR2(250) := 'oke.plsql.oke_k_print_forms_pub.';
5
6
7 PROCEDURE create_print_form(
8 p_api_version IN NUMBER,
9 p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
10 x_return_status OUT NOCOPY VARCHAR2,
11 x_msg_count OUT NOCOPY NUMBER,
12 x_msg_data OUT NOCOPY VARCHAR2,
13 p_form_rec IN oke_form_pvt.form_rec_type,
14 x_form_rec OUT NOCOPY oke_form_pvt.form_rec_type) IS
15
16
17 l_form_rec oke_form_pvt.form_rec_type;
18
19 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_PRINT_FORM';
20 l_api_version CONSTANT NUMBER := 1.0;
21 l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
22 --bug 9354391 modified line_number length to 150 as per table
23 l_line_number VARCHAR2(150);
24
25 BEGIN
26 -- call START_ACTIVITY to create savepoint, check compatibility
27 -- and initialize message list
28 l_return_status := OKE_API.START_ACTIVITY(
29 p_api_name => l_api_name,
30 p_pkg_name => g_pkg_name,
31 p_init_msg_list => p_init_msg_list,
32 l_api_version => l_api_version,
33 p_api_version => p_api_version,
34 p_api_type => g_api_type,
35 x_return_status => x_return_status);
36
37 -- check if activity started successfully
38 If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
39 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
40 Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
41 raise OKE_API.G_EXCEPTION_ERROR;
42 End If;
43
44 l_form_rec := p_form_rec;
45
46 --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'start call forms pvt');
47
48 -- call procedure in complex API
49
50 OKE_FORM_PVT.Insert_Row(
51 p_api_version => p_api_version,
52 p_init_msg_list => p_init_msg_list,
53 x_return_status => x_return_status,
54 x_msg_count => x_msg_count,
55 x_msg_data => x_msg_data,
56 p_form_rec => l_form_rec,
57 x_form_rec => x_form_rec);
58
59
60 If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
61 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
62 Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
63 raise OKE_API.G_EXCEPTION_ERROR;
64 End If;
65
66 --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'oke call passed');
67
68 OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
69 x_msg_data => x_msg_data);
70 EXCEPTION
71 when OKE_API.G_EXCEPTION_ERROR then
72 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
73 p_api_name => l_api_name,
74 p_pkg_name => g_pkg_name,
75 p_exc_name => 'OKE_API.G_RET_STS_ERROR',
76 x_msg_count => x_msg_count,
77 x_msg_data => x_msg_data,
78 p_api_type => g_api_type);
79
80 when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
81 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
82 p_api_name => l_api_name,
83 p_pkg_name => g_pkg_name,
84 p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
85 x_msg_count => x_msg_count,
86 x_msg_data => x_msg_data,
87 p_api_type => g_api_type);
88
89 when OTHERS then
90 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
91 p_api_name => l_api_name,
92 p_pkg_name => g_pkg_name,
93 p_exc_name => 'OTHERS',
94 x_msg_count => x_msg_count,
95 x_msg_data => x_msg_data,
96 p_api_type => g_api_type);
97
98 END create_print_form;
99
100
101
102 PROCEDURE create_print_form(
103 p_api_version IN NUMBER,
104 p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
105 x_return_status OUT NOCOPY VARCHAR2,
106 x_msg_count OUT NOCOPY NUMBER,
107 x_msg_data OUT NOCOPY VARCHAR2,
108 p_form_tbl IN oke_form_pvt.form_tbl_type,
109 x_form_tbl OUT NOCOPY oke_form_pvt.form_tbl_type) IS
110
111 l_api_name CONSTANT VARCHAR2(30) := 'CREATE_PRINT_FORM';
112 l_api_version CONSTANT NUMBER := 1.0;
113 l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
114 l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
115 i NUMBER;
116 l_form_tbl oke_form_pvt.form_tbl_type;
117 BEGIN
118 -- call START_ACTIVITY to create savepoint, check compatibility
119 -- and initialize message list
120 l_return_status := OKE_API.START_ACTIVITY(
121 p_api_name => l_api_name,
122 p_pkg_name => g_pkg_name,
123 p_init_msg_list => p_init_msg_list,
124 l_api_version => l_api_version,
125 p_api_version => p_api_version,
126 p_api_type => g_api_type,
127 x_return_status => x_return_status);
128
129 -- check if activity started successfully
130 If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
131 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
132 Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
133 raise OKE_API.G_EXCEPTION_ERROR;
134 End If;
135
136 OKE_FORM_PVT.Insert_Row(
137 p_api_version => p_api_version,
138 p_init_msg_list => p_init_msg_list,
139 x_return_status => x_return_status,
140 x_msg_count => x_msg_count,
141 x_msg_data => x_msg_data,
142 p_form_tbl => p_form_tbl,
143 x_form_tbl => x_form_tbl);
144
145
146 If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
147 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
148 Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
149 raise OKE_API.G_EXCEPTION_ERROR;
150 End If;
151
152 OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
153 x_msg_data => x_msg_data);
154 EXCEPTION
155 when OKE_API.G_EXCEPTION_ERROR then
156 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
157 p_api_name => l_api_name,
158 p_pkg_name => g_pkg_name,
159 p_exc_name => 'OKE_API.G_RET_STS_ERROR',
160 x_msg_count => x_msg_count,
161 x_msg_data => x_msg_data,
162 p_api_type => g_api_type);
163
164 when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
165 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
166 p_api_name => l_api_name,
167 p_pkg_name => g_pkg_name,
168 p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
169 x_msg_count => x_msg_count,
170 x_msg_data => x_msg_data,
171 p_api_type => g_api_type);
172
173 when OTHERS then
174 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
175 p_api_name => l_api_name,
176 p_pkg_name => g_pkg_name,
177 p_exc_name => 'OTHERS',
178 x_msg_count => x_msg_count,
179 x_msg_data => x_msg_data,
180 p_api_type => g_api_type);
181
182 END create_print_form;
183
184 PROCEDURE update_print_form(
185 p_api_version IN NUMBER,
186 p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
187 x_return_status OUT NOCOPY VARCHAR2,
188 x_msg_count OUT NOCOPY NUMBER,
189 x_msg_data OUT NOCOPY VARCHAR2,
190 p_form_rec IN oke_form_pvt.form_rec_type,
191 x_form_rec OUT NOCOPY oke_form_pvt.form_rec_type) IS
192
193 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_PRINT_FORM';
194 l_api_version CONSTANT NUMBER := 1.0;
195 l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
196 BEGIN
197 -- call START_ACTIVITY to create savepoint, check compatibility
198 -- and initialize message list
199
200 --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'PUB.START TO CALL PUB LINE REC UPDATE');
201 l_return_status := OKE_API.START_ACTIVITY(
202 p_api_name => l_api_name,
203 p_pkg_name => g_pkg_name,
204 p_init_msg_list => p_init_msg_list,
205 l_api_version => l_api_version,
206 p_api_version => p_api_version,
207 p_api_type => g_api_type,
208 x_return_status => x_return_status);
209
210 -- check if activity started successfully
211 If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
212 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
213 Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
214 raise OKE_API.G_EXCEPTION_ERROR;
215 End If;
216
217 -- call complex api
218 --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'PUB.going to call pvt_update_row');
219 OKE_FORM_PVT.Update_Row(
220 p_api_version => p_api_version,
221 p_init_msg_list => p_init_msg_list,
222 x_return_status => x_return_status,
223 x_msg_count => x_msg_count,
224 x_msg_data => x_msg_data,
225 p_form_rec => p_form_rec,
226 x_form_rec => x_form_rec);
227
228
229 If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
230 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
231 Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
232 raise OKE_API.G_EXCEPTION_ERROR;
233 End If;
234
235 OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
236 x_msg_data => x_msg_data);
237 --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'PUB.ended');
238 EXCEPTION
239 when OKE_API.G_EXCEPTION_ERROR then
240 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
241 p_api_name => l_api_name,
242 p_pkg_name => g_pkg_name,
243 p_exc_name => 'OKE_API.G_RET_STS_ERROR',
244 x_msg_count => x_msg_count,
245 x_msg_data => x_msg_data,
246 p_api_type => g_api_type);
247
248 when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
249 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
250 p_api_name => l_api_name,
251 p_pkg_name => g_pkg_name,
252 p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
253 x_msg_count => x_msg_count,
254 x_msg_data => x_msg_data,
255 p_api_type => g_api_type);
256
257 when OTHERS then
258 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
259 p_api_name => l_api_name,
260 p_pkg_name => g_pkg_name,
261 p_exc_name => 'OTHERS',
262 x_msg_count => x_msg_count,
263 x_msg_data => x_msg_data,
264 p_api_type => g_api_type);
265
266 END update_print_form;
267
268
269 PROCEDURE update_print_form(
270 p_api_version IN NUMBER,
271 p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
272 x_return_status OUT NOCOPY VARCHAR2,
273 x_msg_count OUT NOCOPY NUMBER,
274 x_msg_data OUT NOCOPY VARCHAR2,
275 p_form_tbl IN oke_form_pvt.form_tbl_type,
276 x_form_tbl OUT NOCOPY oke_form_pvt.form_tbl_type) IS
277
278 l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_PRINT_FORM';
279 l_api_version CONSTANT NUMBER := 1.0;
280 l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
281 l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
282 i NUMBER;
283 BEGIN
284 -- call START_ACTIVITY to create savepoint, check compatibility
285 -- and initialize message list
286
287 --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'PUB.start call pub update table');
288
289 l_return_status := OKE_API.START_ACTIVITY(
290 p_api_name => l_api_name,
291 p_pkg_name => g_pkg_name,
292 p_init_msg_list => p_init_msg_list,
293 l_api_version => l_api_version,
294 p_api_version => p_api_version,
295 p_api_type => g_api_type,
296 x_return_status => x_return_status);
297
298 -- check if activity started successfully
299 If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
300 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
301 Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
302 raise OKE_API.G_EXCEPTION_ERROR;
303
304 End If;
305
306 --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'PUB.going to call PVT.update_row table version');
307
308 OKE_FORM_PVT.Update_Row(
309 p_api_version => p_api_version,
310 p_init_msg_list => p_init_msg_list,
311 x_return_status => x_return_status,
312 x_msg_count => x_msg_count,
313 x_msg_data => x_msg_data,
314 p_form_tbl => p_form_tbl,
315 x_form_tbl => x_form_tbl);
316
317
318
319 If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
320 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
321 Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
322 raise OKE_API.G_EXCEPTION_ERROR;
323 End If;
324
325 OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
326 x_msg_data => x_msg_data);
327 --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'PUB.ended');
328 EXCEPTION
329 when OKE_API.G_EXCEPTION_ERROR then
330 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
331 p_api_name => l_api_name,
332 p_pkg_name => g_pkg_name,
333 p_exc_name => 'OKE_API.G_RET_STS_ERROR',
334 x_msg_count => x_msg_count,
335 x_msg_data => x_msg_data,
336 p_api_type => g_api_type);
337
338 when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
339 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
340 p_api_name => l_api_name,
341 p_pkg_name => g_pkg_name,
342 p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
343 x_msg_count => x_msg_count,
344 x_msg_data => x_msg_data,
345 p_api_type => g_api_type);
346
347 when OTHERS then
348 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
349 p_api_name => l_api_name,
350 p_pkg_name => g_pkg_name,
351 p_exc_name => 'OTHERS',
352 x_msg_count => x_msg_count,
353 x_msg_data => x_msg_data,
354 p_api_type => g_api_type);
355
356 END update_print_form;
357
358
359
360 PROCEDURE validate_print_form(
361 p_api_version IN NUMBER,
362 p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
363 x_return_status OUT NOCOPY VARCHAR2,
364 x_msg_count OUT NOCOPY NUMBER,
365 x_msg_data OUT NOCOPY VARCHAR2,
366 p_form_rec IN oke_form_pvt.form_rec_type) IS
367
368 l_form_rec oke_form_pvt.form_rec_type;
369 l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_PRINT_FORM';
370 l_api_version CONSTANT NUMBER := 1.0;
371 l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
372
373 BEGIN
374 -- call START_ACTIVITY to create savepoint, check compatibility
375 -- and initialize message list
376 l_return_status := OKE_API.START_ACTIVITY(
377 p_api_name => l_api_name,
378 p_pkg_name => g_pkg_name,
379 p_init_msg_list => p_init_msg_list,
380 l_api_version => l_api_version,
381 p_api_version => p_api_version,
382 p_api_type => g_api_type,
383 x_return_status => x_return_status);
384
385 -- check if activity started successfully
386 If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
387 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
388 Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
389 raise OKE_API.G_EXCEPTION_ERROR;
390 End If;
391
392 -- call BEFORE user hook
393 l_form_rec := p_form_rec;
394
395 -- call complex API
396
397 OKE_FORM_PVT.Validate_Row(
398 p_api_version => p_api_version,
399 p_init_msg_list => p_init_msg_list,
400 x_return_status => x_return_status,
401 x_msg_count => x_msg_count,
402 x_msg_data => x_msg_data,
403 p_form_rec => p_form_rec);
404
405
406 If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
407 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
408 Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
409 raise OKE_API.G_EXCEPTION_ERROR;
410 End If;
411
412 -- end activity
413 OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
414 x_msg_data => x_msg_data);
415 EXCEPTION
416 when OKE_API.G_EXCEPTION_ERROR then
417 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
418 p_api_name => l_api_name,
419 p_pkg_name => g_pkg_name,
420 p_exc_name => 'OKE_API.G_RET_STS_ERROR',
421 x_msg_count => x_msg_count,
422 x_msg_data => x_msg_data,
423 p_api_type => g_api_type);
424
425 when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
426 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
427 p_api_name => l_api_name,
428 p_pkg_name => g_pkg_name,
429 p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
430 x_msg_count => x_msg_count,
431 x_msg_data => x_msg_data,
432 p_api_type => g_api_type);
433
434 when OTHERS then
435 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
436 p_api_name => l_api_name,
437 p_pkg_name => g_pkg_name,
441 p_api_type => g_api_type);
438 p_exc_name => 'OTHERS',
439 x_msg_count => x_msg_count,
440 x_msg_data => x_msg_data,
442
443 END validate_print_form;
444
445 PROCEDURE validate_print_form(
446 p_api_version IN NUMBER,
447 p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
448 x_return_status OUT NOCOPY VARCHAR2,
449 x_msg_count OUT NOCOPY NUMBER,
450 x_msg_data OUT NOCOPY VARCHAR2,
451 p_form_tbl IN oke_form_pvt.form_tbl_type) IS
452
453 l_api_name CONSTANT VARCHAR2(30) := 'VALIDATE_PRINT_FORM';
454
455 l_api_version CONSTANT NUMBER := 1.0;
456 l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
457 l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
458 i NUMBER;
459 l_form_tbl oke_form_pvt.form_tbl_type := p_form_tbl;
460 BEGIN
461 -- call START_ACTIVITY to create savepoint, check compatibility
462 -- and initialize message list
463 l_return_status := OKE_API.START_ACTIVITY(
464 p_api_name => l_api_name,
465 p_pkg_name => g_pkg_name,
466 p_init_msg_list => p_init_msg_list,
467 l_api_version => l_api_version,
468 p_api_version => p_api_version,
469 p_api_type => g_api_type,
470 x_return_status => x_return_status);
471
472 -- check if activity started successfully
473 If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
474 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
475 Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
476 raise OKE_API.G_EXCEPTION_ERROR;
477 End If;
478
479
480 OKE_FORM_PVT.Validate_Row(
481 p_api_version => p_api_version,
482 p_init_msg_list => p_init_msg_list,
483 x_return_status => x_return_status,
484 x_msg_count => x_msg_count,
485 x_msg_data => x_msg_data,
486 p_form_tbl => p_form_tbl);
487
488
489 If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
490 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
491 Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
492 raise OKE_API.G_EXCEPTION_ERROR;
493 End If;
494
495 -- end activity
496 OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
497 x_msg_data => x_msg_data);
498 EXCEPTION
499 when OKE_API.G_EXCEPTION_ERROR then
500 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
501 p_api_name => l_api_name,
502 p_pkg_name => g_pkg_name,
503 p_exc_name => 'OKE_API.G_RET_STS_ERROR',
504 x_msg_count => x_msg_count,
505 x_msg_data => x_msg_data,
506 p_api_type => g_api_type);
507
508 when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
509 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
510 p_api_name => l_api_name,
511 p_pkg_name => g_pkg_name,
512 p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
513 x_msg_count => x_msg_count,
514 x_msg_data => x_msg_data,
515 p_api_type => g_api_type);
516
517 when OTHERS then
518 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
519 p_api_name => l_api_name,
520 p_pkg_name => g_pkg_name,
521 p_exc_name => 'OTHERS',
522 x_msg_count => x_msg_count,
523 x_msg_data => x_msg_data,
524 p_api_type => g_api_type);
525
526 END validate_print_form;
527
528
529
530
531 PROCEDURE delete_print_form(
532
536 x_msg_count OUT NOCOPY NUMBER,
533 p_api_version IN NUMBER,
534 p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
535 x_return_status OUT NOCOPY VARCHAR2,
537 x_msg_data OUT NOCOPY VARCHAR2,
538 p_form_rec IN oke_form_pvt.form_rec_type) IS
539
540 l_form_rec oke_form_pvt.form_rec_type;
541 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_PRINT_FORM';
542 l_api_version CONSTANT NUMBER := 1.0;
543 l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
544 BEGIN
545 -- call START_ACTIVITY to create savepoint, check compatibility
546 -- and initialize message list
547 l_return_status := OKE_API.START_ACTIVITY(
548 p_api_name => l_api_name,
549 p_pkg_name => g_pkg_name,
550 p_init_msg_list => p_init_msg_list,
551 l_api_version => l_api_version,
552 p_api_version => p_api_version,
553 p_api_type => g_api_type,
554 x_return_status => x_return_status);
555
556 -- check if activity started successfully
557 If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
558 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
559 Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
560 raise OKE_API.G_EXCEPTION_ERROR;
561 End If;
562
563 l_form_rec := p_form_rec;
564
565 -- call complex api
566
567 OKE_FORM_PVT.delete_row(
568 p_api_version => p_api_version,
569 p_init_msg_list => p_init_msg_list,
570 x_return_status => x_return_status,
571 x_msg_count => x_msg_count,
572 x_msg_data => x_msg_data,
573 p_form_rec => p_form_rec);
574
575
576 If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
577 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
578 Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
579 raise OKE_API.G_EXCEPTION_ERROR;
580 End If;
581
582
583 OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
584 x_msg_data => x_msg_data);
585 EXCEPTION
586 when OKE_API.G_EXCEPTION_ERROR then
587 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
588 p_api_name => l_api_name,
589 p_pkg_name => g_pkg_name,
590 p_exc_name => 'OKE_API.G_RET_STS_ERROR',
591 x_msg_count => x_msg_count,
592 x_msg_data => x_msg_data,
593 p_api_type => g_api_type);
594
595 when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
596 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
597 p_api_name => l_api_name,
598 p_pkg_name => g_pkg_name,
599 p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
600 x_msg_count => x_msg_count,
601 x_msg_data => x_msg_data,
602 p_api_type => g_api_type);
603
604 when OTHERS then
605 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
606 p_api_name => l_api_name,
607 p_pkg_name => g_pkg_name,
608 p_exc_name => 'OTHERS',
609 x_msg_count => x_msg_count,
610 x_msg_data => x_msg_data,
611 p_api_type => g_api_type);
612
613 END delete_print_form;
614
615
616 PROCEDURE delete_print_form(
617 p_api_version IN NUMBER,
618 p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
619 x_return_status OUT NOCOPY VARCHAR2,
620 x_msg_count OUT NOCOPY NUMBER,
621 x_msg_data OUT NOCOPY VARCHAR2,
622 p_form_tbl IN oke_form_pvt.form_tbl_type) IS
623
624 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_PRINT_FORM';
625 l_api_version CONSTANT NUMBER := 1.0;
626 l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
627 l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
628 i NUMBER;
629 BEGIN
630 -- call START_ACTIVITY to create savepoint, check compatibility
631 -- and initialize message list
632 l_return_status := OKE_API.START_ACTIVITY(
633 p_api_name => l_api_name,
634 p_pkg_name => g_pkg_name,
635 p_init_msg_list => p_init_msg_list,
636 l_api_version => l_api_version,
637 p_api_version => p_api_version,
638 p_api_type => g_api_type,
639 x_return_status => x_return_status);
640
641 -- check if activity started successfully
642 If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
643 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
644 Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
645 raise OKE_API.G_EXCEPTION_ERROR;
646 End If;
647
648
649 OKE_FORM_PVT.Delete_Row(
650 p_api_version => p_api_version,
651 p_init_msg_list => p_init_msg_list,
652 x_return_status => x_return_status,
653 x_msg_count => x_msg_count,
654 x_msg_data => x_msg_data,
655 p_form_tbl => p_form_tbl);
656
657
658
659 If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
660 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
661 Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
662 raise OKE_API.G_EXCEPTION_ERROR;
663 End If;
664
665 OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
666 x_msg_data => x_msg_data);
667 EXCEPTION
671 p_pkg_name => g_pkg_name,
668 when OKE_API.G_EXCEPTION_ERROR then
669 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
670 p_api_name => l_api_name,
672 p_exc_name => 'OKE_API.G_RET_STS_ERROR',
673 x_msg_count => x_msg_count,
674 x_msg_data => x_msg_data,
675 p_api_type => g_api_type);
676
677 when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
678 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
679 p_api_name => l_api_name,
680 p_pkg_name => g_pkg_name,
681 p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
682 x_msg_count => x_msg_count,
683 x_msg_data => x_msg_data,
684 p_api_type => g_api_type);
685
686 when OTHERS then
687 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
688 p_api_name => l_api_name,
689 p_pkg_name => g_pkg_name,
690 p_exc_name => 'OTHERS',
691 x_msg_count => x_msg_count,
692 x_msg_data => x_msg_data,
693 p_api_type => g_api_type);
694
695 END delete_print_form;
696
697
698
699 PROCEDURE delete_print_form(
700 p_api_version IN NUMBER,
701 p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
702 x_return_status OUT NOCOPY VARCHAR2,
703 x_msg_count OUT NOCOPY NUMBER,
704 x_msg_data OUT NOCOPY VARCHAR2,
705 p_chr_id IN NUMBER,
706 p_cle_id IN NUMBER,
707 p_pfm_cd IN OKE_K_PRINT_FORMS.PRINT_FORM_CODE%TYPE ) IS
708
709 l_form_rec oke_form_pvt.form_rec_type;
710 l_api_name CONSTANT VARCHAR2(30) := 'DELETE_PRINT_FORM';
711 l_api_version CONSTANT NUMBER := 1.0;
712 l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
713 l_check_num1 NUMBER;
714 l_check_num2 NUMBER;
715
716 BEGIN
717 -- call START_ACTIVITY to create savepoint, check compatibility
718 -- and initialize message list
719 l_return_status := OKE_API.START_ACTIVITY(
720 p_api_name => l_api_name,
721 p_pkg_name => g_pkg_name,
722 p_init_msg_list => p_init_msg_list,
723 l_api_version => l_api_version,
724 p_api_version => p_api_version,
725 p_api_type => g_api_type,
726 x_return_status => x_return_status);
727
728 -- check if activity started successfully
729 If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
730 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
731 Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
732 raise OKE_API.G_EXCEPTION_ERROR;
733 End If;
734
735 If (p_cle_id IS NOT NULL) Then
736 OKE_FORM_PVT.delete_row(
737 p_api_version => p_api_version,
738 p_init_msg_list => p_init_msg_list,
739 x_return_status => x_return_status,
740 x_msg_count => x_msg_count,
741 x_msg_data => x_msg_data,
742 p_cle_id => p_cle_id,
743 p_pfm_cd => p_pfm_cd);
744
745
746 Else
747 OKE_FORM_PVT.delete_row(
748 p_api_version => p_api_version,
749 p_init_msg_list => p_init_msg_list,
750 x_return_status => x_return_status,
751 x_msg_count => x_msg_count,
752 x_msg_data => x_msg_data,
753 p_chr_id => p_chr_id,
754 p_pfm_cd => p_pfm_cd);
755
756 End If;
757
758
759
760 If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
761 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
762 Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
763 raise OKE_API.G_EXCEPTION_ERROR;
764 End If;
765
766 OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
767 x_msg_data => x_msg_data);
768 EXCEPTION
769 when OKE_API.G_EXCEPTION_ERROR then
770 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
771 p_api_name => l_api_name,
772 p_pkg_name => g_pkg_name,
773 p_exc_name => 'OKE_API.G_RET_STS_ERROR',
774 x_msg_count => x_msg_count,
775 x_msg_data => x_msg_data,
776 p_api_type => g_api_type);
777
778 when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
779 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
780 p_api_name => l_api_name,
781 p_pkg_name => g_pkg_name,
782 p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
783 x_msg_count => x_msg_count,
784 x_msg_data => x_msg_data,
785 p_api_type => g_api_type);
786
787 when OTHERS then
788 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
789 p_api_name => l_api_name,
790 p_pkg_name => g_pkg_name,
791 p_exc_name => 'OTHERS',
792 x_msg_count => x_msg_count,
793 x_msg_data => x_msg_data,
794 p_api_type => g_api_type);
795
796 END delete_print_form;
797
798
799
800 PROCEDURE copy_print_form(
801 p_api_version IN NUMBER,
802 p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
803 x_return_status OUT NOCOPY VARCHAR2,
804 x_msg_count OUT NOCOPY NUMBER,
805 x_msg_data OUT NOCOPY VARCHAR2,
806 p_from_level IN VARCHAR2,
807 p_to_level IN VARCHAR2,
808 p_from_chr_id IN NUMBER,
809 p_to_chr_id IN NUMBER,
810 p_from_cle_id IN NUMBER,
814 l_form_tbl oke_form_pvt.form_tbl_type;
811 p_to_cle_id IN NUMBER
812 ) IS
813
815 l_form_rec oke_form_pvt.form_rec_type;
816 l_api_name CONSTANT VARCHAR2(30) := 'COPY_PRINT_FORM';
817 l_api_version CONSTANT NUMBER := 1.0;
818 l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
819 l_rec_num NUMBER:=0;
820
821 x_form_tbl oke_form_pvt.form_tbl_type;
822
823 CURSOR form_cle_csr (p_id IN NUMBER) IS
824 SELECT
825 b.K_HEADER_ID ,
826 b.K_LINE_ID ,
827 b.PRINT_FORM_CODE ,
828 b.CREATION_DATE ,
829 b.CREATED_BY ,
830 b.LAST_UPDATE_DATE ,
831 b.LAST_UPDATED_BY ,
832 b.LAST_UPDATE_LOGIN ,
833 b.REQUIRED_FLAG ,
834 b.CUSTOMER_FURNISHED_FLAG ,
835 b.COMPLETED_FLAG ,
836 b.ATTRIBUTE_CATEGORY ,
837 b.ATTRIBUTE1 ,
838 b.ATTRIBUTE2 ,
839 b.ATTRIBUTE3 ,
840 b.ATTRIBUTE4 ,
841 b.ATTRIBUTE5 ,
842 b.ATTRIBUTE6 ,
843 b.ATTRIBUTE7 ,
844 b.ATTRIBUTE8 ,
845 b.ATTRIBUTE9 ,
846 b.ATTRIBUTE10 ,
847 b.ATTRIBUTE11 ,
848 b.ATTRIBUTE12 ,
849 b.ATTRIBUTE13 ,
850 b.ATTRIBUTE14 ,
851 b.ATTRIBUTE15
852 FROM OKE_K_PRINT_FORMS b
853 WHERE b.K_LINE_ID = p_id;
854
855 CURSOR form_chr_csr (p_id IN NUMBER) IS
856 SELECT
857 b.K_HEADER_ID ,
858 b.K_LINE_ID ,
859 b.PRINT_FORM_CODE ,
860 b.CREATION_DATE ,
861 b.CREATED_BY ,
862 b.LAST_UPDATE_DATE ,
863 b.LAST_UPDATED_BY ,
864 b.LAST_UPDATE_LOGIN ,
865 b.REQUIRED_FLAG ,
866 b.CUSTOMER_FURNISHED_FLAG ,
867 b.COMPLETED_FLAG ,
868 b.ATTRIBUTE_CATEGORY ,
869 b.ATTRIBUTE1 ,
870 b.ATTRIBUTE2 ,
871 b.ATTRIBUTE3 ,
872 b.ATTRIBUTE4 ,
873 b.ATTRIBUTE5 ,
874 b.ATTRIBUTE6 ,
875 b.ATTRIBUTE7 ,
876 b.ATTRIBUTE8 ,
877 b.ATTRIBUTE9 ,
878 b.ATTRIBUTE10 ,
879 b.ATTRIBUTE11 ,
880 b.ATTRIBUTE12 ,
881 b.ATTRIBUTE13 ,
882 b.ATTRIBUTE14 ,
883 b.ATTRIBUTE15
884 FROM OKE_K_PRINT_FORMS b
885 WHERE (b.K_HEADER_ID = p_id) AND (b.K_LINE_ID IS NULL);
886
887
888 BEGIN
889
890 --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'print forms start call copy forms pub');
891
892 -- call START_ACTIVITY to create savepoint, check compatibility
893 -- and initialize message list
894 l_return_status := OKE_API.START_ACTIVITY(
895 p_api_name => l_api_name,
896 p_pkg_name => g_pkg_name,
897 p_init_msg_list => p_init_msg_list,
898 l_api_version => l_api_version,
899 p_api_version => p_api_version,
900 p_api_type => g_api_type,
901 x_return_status => x_return_status);
902
903 -- check if activity started successfully
904 If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
905 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
906 Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
907 raise OKE_API.G_EXCEPTION_ERROR;
908 End If;
909
910 --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Print FORMS check conditions');
911
912 IF( p_from_level='H' ) THEN
913
914 --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'Print Form copy for chr');
915
916 OPEN form_chr_csr (p_from_chr_id);
917 LOOP
918 FETCH form_chr_csr INTO
919 l_form_rec.K_HEADER_ID ,
920 l_form_rec.K_LINE_ID ,
921 l_form_rec.PRINT_FORM_CODE ,
922 l_form_rec.CREATION_DATE ,
923 l_form_rec.CREATED_BY ,
924 l_form_rec.LAST_UPDATE_DATE ,
925 l_form_rec.LAST_UPDATED_BY ,
926 l_form_rec.LAST_UPDATE_LOGIN ,
927 l_form_rec.REQUIRED_FLAG ,
928 l_form_rec.CUSTOMER_FURNISHED_FLAG ,
929 l_form_rec.COMPLETED_FLAG ,
930 l_form_rec.ATTRIBUTE_CATEGORY ,
931 l_form_rec.ATTRIBUTE1 ,
932 l_form_rec.ATTRIBUTE2 ,
933 l_form_rec.ATTRIBUTE3 ,
934 l_form_rec.ATTRIBUTE4 ,
935 l_form_rec.ATTRIBUTE5 ,
936 l_form_rec.ATTRIBUTE6 ,
937 l_form_rec.ATTRIBUTE7 ,
938 l_form_rec.ATTRIBUTE8 ,
939 l_form_rec.ATTRIBUTE9 ,
940 l_form_rec.ATTRIBUTE10 ,
941 l_form_rec.ATTRIBUTE11 ,
942 l_form_rec.ATTRIBUTE12 ,
943 l_form_rec.ATTRIBUTE13 ,
944 l_form_rec.ATTRIBUTE14 ,
945 l_form_rec.ATTRIBUTE15 ;
946 EXIT WHEN form_chr_csr%NOTFOUND;
947
948 l_rec_num := l_rec_num+1;
949
950 IF(p_to_chr_id IS NULL)AND(p_to_cle_id IS NULL) THEN
951 raise OKE_API.G_EXCEPTION_ERROR;
952 END IF;
953
954 IF(p_to_chr_id IS NULL) THEN
955 l_form_rec.K_HEADER_ID := l_form_rec.K_HEADER_ID ;
956 l_form_rec.K_LINE_ID := p_to_cle_id;
957 ELSE
958 IF(p_to_cle_id IS NULL) THEN
959 l_form_rec.K_HEADER_ID := p_to_chr_id;
960 l_form_rec.K_LINE_ID := NULL;
961 ELSE
962 l_form_rec.K_HEADER_ID := p_to_chr_id;
963 l_form_rec.K_LINE_ID := p_to_cle_id;
964 END IF;
965 END IF;
966
967 l_form_tbl(l_rec_num) := l_form_rec;
968
969
970 END LOOP;
971 CLOSE form_chr_csr;
972
976 p_init_msg_list => p_init_msg_list,
973 --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'print FORMS inserting std form');
974 OKE_FORM_PVT.Insert_Row(
975 p_api_version => p_api_version,
977 x_return_status => x_return_status,
978 x_msg_count => x_msg_count,
979 x_msg_data => x_msg_data,
980 p_form_tbl => l_form_tbl,
981 x_form_tbl => x_form_tbl);
982
983 If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
984 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
985 Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
986 raise OKE_API.G_EXCEPTION_ERROR;
987 End If;
988
989
990 ELSIF( p_from_level='L' ) THEN
991
992 --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'print form copy for cle');
993
994 OPEN form_cle_csr (p_from_cle_id);
995 LOOP
996 FETCH form_cle_csr INTO
997 l_form_rec.K_HEADER_ID ,
998 l_form_rec.K_LINE_ID ,
999 l_form_rec.PRINT_FORM_CODE ,
1000 l_form_rec.CREATION_DATE ,
1001 l_form_rec.CREATED_BY ,
1002 l_form_rec.LAST_UPDATE_DATE ,
1003 l_form_rec.LAST_UPDATED_BY ,
1004 l_form_rec.LAST_UPDATE_LOGIN ,
1005 l_form_rec.REQUIRED_FLAG ,
1006 l_form_rec.CUSTOMER_FURNISHED_FLAG ,
1007 l_form_rec.COMPLETED_FLAG ,
1008 l_form_rec.ATTRIBUTE_CATEGORY ,
1009 l_form_rec.ATTRIBUTE1 ,
1010 l_form_rec.ATTRIBUTE2 ,
1011 l_form_rec.ATTRIBUTE3 ,
1012 l_form_rec.ATTRIBUTE4 ,
1013 l_form_rec.ATTRIBUTE5 ,
1014 l_form_rec.ATTRIBUTE6 ,
1015 l_form_rec.ATTRIBUTE7 ,
1016 l_form_rec.ATTRIBUTE8 ,
1017 l_form_rec.ATTRIBUTE9 ,
1018 l_form_rec.ATTRIBUTE10 ,
1019 l_form_rec.ATTRIBUTE11 ,
1020 l_form_rec.ATTRIBUTE12 ,
1021 l_form_rec.ATTRIBUTE13 ,
1022 l_form_rec.ATTRIBUTE14 ,
1023 l_form_rec.ATTRIBUTE15 ;
1024 EXIT WHEN form_cle_csr%NOTFOUND;
1025
1026 l_rec_num := l_rec_num+1;
1027
1028 IF(p_to_chr_id IS NULL)AND(p_to_cle_id IS NULL) THEN
1029 raise OKE_API.G_EXCEPTION_ERROR;
1030 END IF;
1031
1032 IF(p_to_chr_id IS NULL) THEN
1033 l_form_rec.K_HEADER_ID := l_form_rec.K_HEADER_ID ;
1034 l_form_rec.K_LINE_ID := p_to_cle_id;
1035 ELSE
1036 IF(p_to_cle_id IS NULL) THEN
1037 l_form_rec.K_HEADER_ID := p_to_chr_id;
1038 l_form_rec.K_LINE_ID := NULL;
1039 ELSE
1040 l_form_rec.K_HEADER_ID := p_to_chr_id;
1041 l_form_rec.K_LINE_ID := p_to_cle_id;
1042 END IF;
1043 END IF;
1044
1045 l_form_tbl(l_rec_num) := l_form_rec;
1046
1047
1048 END LOOP;
1049 CLOSE form_cle_csr;
1050
1051 --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'print form inserting std form');
1052 OKE_FORM_PVT.Insert_Row(
1053 p_api_version => p_api_version,
1054 p_init_msg_list => p_init_msg_list,
1055 x_return_status => x_return_status,
1056 x_msg_count => x_msg_count,
1057 x_msg_data => x_msg_data,
1058 p_form_tbl => l_form_tbl,
1059 x_form_tbl => x_form_tbl);
1060
1061 If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1062 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1063 Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1064 raise OKE_API.G_EXCEPTION_ERROR;
1065 End If;
1066
1067 ELSE
1068 --FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'conditions not met');
1069 raise OKE_API.G_EXCEPTION_ERROR;
1070 END IF;
1071
1072 OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1073 x_msg_data => x_msg_data);
1074 EXCEPTION
1075 when OKE_API.G_EXCEPTION_ERROR then
1076 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1077 p_api_name => l_api_name,
1078 p_pkg_name => g_pkg_name,
1079 p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1080 x_msg_count => x_msg_count,
1081 x_msg_data => x_msg_data,
1082 p_api_type => g_api_type);
1083
1084 when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1085 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1086 p_api_name => l_api_name,
1087 p_pkg_name => g_pkg_name,
1088 p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1089 x_msg_count => x_msg_count,
1090 x_msg_data => x_msg_data,
1091 p_api_type => g_api_type);
1092
1093 when OTHERS then
1094 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1095 p_api_name => l_api_name,
1096 p_pkg_name => g_pkg_name,
1097 p_exc_name => 'OTHERS',
1098 x_msg_count => x_msg_count,
1099 x_msg_data => x_msg_data,
1100 p_api_type => g_api_type);
1101
1102 END copy_print_form;
1103
1104
1105 PROCEDURE lock_print_form(
1106 p_api_version IN NUMBER,
1107 p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1108 x_return_status OUT NOCOPY VARCHAR2,
1109 x_msg_count OUT NOCOPY NUMBER,
1110 x_msg_data OUT NOCOPY VARCHAR2,
1111 p_form_rec IN OKE_FORM_PVT.form_rec_type) IS
1112
1113
1114 l_api_name CONSTANT VARCHAR2(30) := 'LOCK_PRINT_FORM';
1115 l_api_version CONSTANT NUMBER := 1.0;
1116 l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1117
1118 BEGIN
1119 l_return_status := OKE_API.START_ACTIVITY(
1123 l_api_version => l_api_version,
1120 p_api_name => l_api_name,
1121 p_pkg_name => g_pkg_name,
1122 p_init_msg_list => p_init_msg_list,
1124 p_api_version => p_api_version,
1125 p_api_type => g_api_type,
1126 x_return_status => x_return_status);
1127
1128 -- check if activity started successfully
1129 If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1130 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1131 Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1132 raise OKE_API.G_EXCEPTION_ERROR;
1133 End If;
1134
1135 OKE_FORM_PVT.Lock_Row(
1136 p_api_version => p_api_version,
1137 p_init_msg_list => p_init_msg_list,
1138 x_return_status => x_return_status,
1139 x_msg_count => x_msg_count,
1140 x_msg_data => x_msg_data,
1141 p_form_rec => p_form_rec);
1142
1143 -- check return status
1144 If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1145 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1146 Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1147 raise OKE_API.G_EXCEPTION_ERROR;
1148 End If;
1149
1150 OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1151 x_msg_data => x_msg_data);
1152 EXCEPTION
1153 when OKE_API.G_EXCEPTION_ERROR then
1154 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1155 p_api_name => l_api_name,
1156 p_pkg_name => g_pkg_name,
1157 p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1158 x_msg_count => x_msg_count,
1159 x_msg_data => x_msg_data,
1160 p_api_type => g_api_type);
1161
1162 when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1163 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1164 p_api_name => l_api_name,
1165 p_pkg_name => g_pkg_name,
1166 p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1167 x_msg_count => x_msg_count,
1168 x_msg_data => x_msg_data,
1169 p_api_type => g_api_type);
1170
1171 when OTHERS then
1172 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1173 p_api_name => l_api_name,
1174 p_pkg_name => g_pkg_name,
1175 p_exc_name => 'OTHERS',
1176 x_msg_count => x_msg_count,
1177 x_msg_data => x_msg_data,
1178 p_api_type => g_api_type);
1179
1180 END lock_print_form;
1181
1182 PROCEDURE lock_print_form(
1183 p_api_version IN NUMBER,
1184 p_init_msg_list IN VARCHAR2 DEFAULT OKE_API.G_FALSE,
1185 x_return_status OUT NOCOPY VARCHAR2,
1186 x_msg_count OUT NOCOPY NUMBER,
1187 x_msg_data OUT NOCOPY VARCHAR2,
1188 p_form_tbl IN oke_form_pvt.form_tbl_type) IS
1189
1190 l_api_name CONSTANT VARCHAR2(30) := 'LOCK_PRINT_FORM';
1191 l_api_version CONSTANT NUMBER := 1.0;
1192 l_return_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1193 l_overall_status VARCHAR2(1) := OKE_API.G_RET_STS_SUCCESS;
1194 i NUMBER;
1195 BEGIN
1196 -- call START_ACTIVITY to create savepoint, check compatibility
1197 -- and initialize message list
1198 l_return_status := OKE_API.START_ACTIVITY(
1199 p_api_name => l_api_name,
1200 p_pkg_name => g_pkg_name,
1201 p_init_msg_list => p_init_msg_list,
1202 l_api_version => l_api_version,
1203 p_api_version => p_api_version,
1204 p_api_type => g_api_type,
1205 x_return_status => x_return_status);
1206
1207 -- check if activity started successfully
1208 If (l_return_status = OKE_API.G_RET_STS_UNEXP_ERROR) then
1209 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1210 Elsif (l_return_status = OKE_API.G_RET_STS_ERROR) then
1211 raise OKE_API.G_EXCEPTION_ERROR;
1212 End If;
1213
1214 If (p_form_tbl.COUNT > 0) Then
1215 i := p_form_tbl.FIRST;
1216 LOOP
1217 -- call procedure in complex API
1218 OKE_FORM_PVT.lock_row(
1219 p_api_version => p_api_version,
1220 p_init_msg_list => p_init_msg_list,
1221 x_return_status => x_return_status,
1222 x_msg_count => x_msg_count,
1223 x_msg_data => x_msg_data,
1224 p_form_rec => p_form_tbl(i));
1225
1226 -- store the highest degree of error
1227 If x_return_status <> OKE_API.G_RET_STS_SUCCESS Then
1228 If l_overall_status <> OKE_API.G_RET_STS_UNEXP_ERROR Then
1229 l_overall_status := x_return_status;
1230 End If;
1231 End If;
1232 EXIT WHEN (i = p_form_tbl.LAST);
1233 i := p_form_tbl.NEXT(i);
1234 END LOOP;
1235 -- return overall status
1236 x_return_status := l_overall_status;
1237 End If;
1238
1239 If x_return_status = OKE_API.G_RET_STS_UNEXP_ERROR Then
1240 raise OKE_API.G_EXCEPTION_UNEXPECTED_ERROR;
1241 Elsif x_return_status = OKE_API.G_RET_STS_ERROR Then
1242 raise OKE_API.G_EXCEPTION_ERROR;
1243 End If;
1244
1245 -- end activity
1246 OKE_API.END_ACTIVITY( x_msg_count => x_msg_count,
1247 x_msg_data => x_msg_data);
1248 EXCEPTION
1249 when OKE_API.G_EXCEPTION_ERROR then
1250 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1251 p_api_name => l_api_name,
1252 p_pkg_name => g_pkg_name,
1253 p_exc_name => 'OKE_API.G_RET_STS_ERROR',
1254 x_msg_count => x_msg_count,
1255 x_msg_data => x_msg_data,
1256 p_api_type => g_api_type);
1260 p_api_name => l_api_name,
1257
1258 when OKE_API.G_EXCEPTION_UNEXPECTED_ERROR then
1259 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1261 p_pkg_name => g_pkg_name,
1262 p_exc_name => 'OKE_API.G_RET_STS_UNEXP_ERROR',
1263 x_msg_count => x_msg_count,
1264 x_msg_data => x_msg_data,
1265 p_api_type => g_api_type);
1266
1267 when OTHERS then
1268 x_return_status := OKE_API.HANDLE_EXCEPTIONS(
1269 p_api_name => l_api_name,
1270 p_pkg_name => g_pkg_name,
1271 p_exc_name => 'OTHERS',
1272 x_msg_count => x_msg_count,
1273 x_msg_data => x_msg_data,
1274 p_api_type => g_api_type);
1275
1276 END lock_print_form;
1277
1278 END OKE_K_PRINT_FORMS_PUB;
1279