[Home] [Help]
PACKAGE BODY: APPS.IEX_EXT_AGNCY_PUB
Source
1 PACKAGE BODY IEX_EXT_AGNCY_PUB AS
2 /* $Header: IEXPIEAB.pls 120.2 2005/11/17 20:38:49 jsanju ship $ */
3
4 PROCEDURE insert_ext_agncy(
5 p_api_version IN NUMBER
6 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
7 ,x_return_status OUT NOCOPY VARCHAR2
8 ,x_msg_count OUT NOCOPY NUMBER
9 ,x_msg_data OUT NOCOPY VARCHAR2
10 ,p_ieav_rec IN ieav_rec_type
11 ,x_ieav_rec OUT NOCOPY ieav_rec_type) AS
12
13
14 l_api_version NUMBER ;
15 l_init_msg_list VARCHAR2(1) ;
16 l_return_status VARCHAR2(1);
17 l_msg_count NUMBER ;
18 l_msg_data VARCHAR2(2000);
19 lp_ieav_rec ieav_rec_type;
20 lx_ieav_rec ieav_rec_type;
21
22 BEGIN
23
24 SAVEPOINT ext_agncy_insert;
25
26
27 l_api_version := p_api_version ;
28 l_init_msg_list := p_init_msg_list ;
29 l_return_status := x_return_status ;
30 l_msg_count := x_msg_count ;
31 l_msg_data := x_msg_data ;
32 lp_ieav_rec := p_ieav_rec;
33 lx_ieav_rec := x_ieav_rec;
34
35
36 -- START commenting for bug 4741980
37 /*
38 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_ext_agncy', 'B', 'C')) THEN
39 iex_ext_agncy_cuhk.insert_ext_agncy_pre (
40 p_init_msg_list => l_init_msg_list
41 ,x_msg_data => l_msg_data
42 ,x_msg_count => l_msg_count
43 ,x_return_status => l_return_status
44 ,p_ieav_rec => lp_ieav_rec
45 ,x_ieav_rec => lx_ieav_rec) ;
46 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
47 RAISE FND_API.G_EXC_ERROR;
48 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
49 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
50 END IF;
51
52 --Copy value of OUT record type variable in the IN record type
53 lp_ieav_rec := lx_ieav_rec;
54
55 END IF;
56
57
58
59 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_ext_agncy', 'B', 'V')) THEN
60 iex_ext_agncy_vuhk.insert_ext_agncy_pre (
61 p_init_msg_list => l_init_msg_list
62 ,x_msg_data => l_msg_data
63 ,x_msg_count => l_msg_count
64 ,x_return_status => l_return_status
65 ,p_ieav_rec => lp_ieav_rec
66 ,x_ieav_rec => lx_ieav_rec );
67 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
68 RAISE FND_API.G_EXC_ERROR;
69 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
70 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
71 END IF;
72
73 --Copy value of OUT variable in the IN record type
74 lp_ieav_rec := lx_ieav_rec;
75
76 END IF;
77 */
78
79 -- END commenting for bug 4741980
80 iex_iea_pvt.insert_row(
81 l_api_version
82 ,l_init_msg_list
83 ,l_return_status
84 ,l_msg_count
85 ,l_msg_data
86 ,lp_ieav_rec
87 ,lx_ieav_rec);
88
89 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
90 RAISE FND_API.G_EXC_ERROR;
91 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
92 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
93 END IF;
94
95 --Copy value of OUT variable in the IN record type
96 lp_ieav_rec := lx_ieav_rec;
97 /*
98 --Vertical post processing user hook call start
99 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_ext_agncy', 'A', 'V')) THEN
100 iex_ext_agncy_vuhk.insert_ext_agncy_post(
101 p_init_msg_list => l_init_msg_list
102 ,x_msg_data => l_msg_data
103 ,x_msg_count => l_msg_count
104 ,x_return_status => l_return_status
105 ,p_ieav_rec => lp_ieav_rec);
106 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
107 RAISE FND_API.G_EXC_ERROR;
108 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
109 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
110 END IF;
111 END IF;
112 --Vertical post processing user hook call end
113
114
115 --Customer post processing user hook call start
116 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_ext_agncy', 'A', 'C')) THEN
117 iex_ext_agncy_cuhk.insert_ext_agncy_post(
118 p_init_msg_list => l_init_msg_list
119 ,x_msg_data => l_msg_data
120 ,x_msg_count => l_msg_count
121 ,x_return_status => l_return_status
122 ,p_ieav_rec => lp_ieav_rec);
123 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
124 RAISE FND_API.G_EXC_ERROR;
125 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
126 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
127 END IF;
128 END IF;
129 --Customer post processing user hook call end
130
131 */
132 --Assign value to OUT variables
133 x_ieav_rec := lx_ieav_rec;
134 x_return_status := l_return_status ;
135 x_msg_count := l_msg_count ;
136 x_msg_data := l_msg_data ;
137
138 EXCEPTION
139
140 WHEN FND_API.G_EXC_ERROR THEN
141 ROLLBACK TO ext_agncy_insert;
142 x_return_status := FND_API.G_RET_STS_ERROR;
143 x_msg_count := l_msg_count ;
144 x_msg_data := l_msg_data ;
145 FND_MSG_PUB.count_and_get(
146 p_count => x_msg_count
147 ,p_data => x_msg_data);
148 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
149 ROLLBACK TO ext_agncy_insert;
150 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
151 x_msg_count := l_msg_count ;
152 x_msg_data := l_msg_data ;
153 FND_MSG_PUB.count_and_get(
154 p_count => x_msg_count
155 ,p_data => x_msg_data);
156 WHEN OTHERS THEN
157 ROLLBACK TO ext_agncy_insert;
158 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
159 x_msg_count := l_msg_count ;
160 x_msg_data := l_msg_data ;
161 FND_MSG_PUB.ADD_EXC_MSG('IEX_EXT_AGNCY_PUB','insert_ext_agncy');
162 FND_MSG_PUB.count_and_get(
163 p_count => x_msg_count
164 ,p_data => x_msg_data);
165 END insert_ext_agncy;
166
167 PROCEDURE insert_ext_agncy(
168 p_api_version IN NUMBER
169 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
170 ,x_return_status OUT NOCOPY VARCHAR2
171 ,x_msg_count OUT NOCOPY NUMBER
172 ,x_msg_data OUT NOCOPY VARCHAR2
173 ,p_ieav_tbl IN ieav_tbl_type
174 ,x_ieav_tbl OUT NOCOPY ieav_tbl_type) AS
175
176 l_api_version NUMBER;
177 l_init_msg_list VARCHAR2(1) ;
178 l_msg_data VARCHAR2(2000);
179 l_msg_count NUMBER ;
180 l_return_status VARCHAR2(1);
181 lp_ieav_tbl ieav_tbl_type;
182 lx_ieav_tbl ieav_tbl_type;
183
184 BEGIN
185
186 SAVEPOINT ext_agncy_insert;
187
188
189 l_api_version := p_api_version ;
190 l_init_msg_list := p_init_msg_list ;
191 l_return_status := x_return_status ;
192 l_msg_count := x_msg_count ;
193 l_msg_data := x_msg_data ;
194 lp_ieav_tbl := p_ieav_tbl;
195 lx_ieav_tbl := x_ieav_tbl;
196
197 -- START commenting for bug 4741980
198 /*
199 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_ext_agncy', 'B', 'C')) THEN
200 iex_ext_agncy_cuhk.insert_ext_agncy_pre(
201 p_init_msg_list => l_init_msg_list
202 ,x_msg_data => l_msg_data
203 ,x_msg_count => l_msg_count
204 ,x_return_status => l_return_status
205 ,p_ieav_tbl => lp_ieav_tbl
206 ,x_ieav_tbl => lx_ieav_tbl);
207 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
208 RAISE FND_API.G_EXC_ERROR;
209 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
210 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211 END IF;
212
213 --Copy value of OUT variable in the IN record type
214 lp_ieav_tbl := lx_ieav_tbl;
215
216 END IF;
217
218 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_ext_agncy', 'B', 'V')) THEN
219 iex_ext_agncy_vuhk.insert_ext_agncy_pre(
220 p_init_msg_list => l_init_msg_list
221 ,x_msg_data => l_msg_data
222 ,x_msg_count => l_msg_count
223 ,x_return_status => l_return_status
224 ,p_ieav_tbl => lp_ieav_tbl
225 ,x_ieav_tbl => lx_ieav_tbl);
226 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
227 RAISE FND_API.G_EXC_ERROR;
228 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
229 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
230 END IF;
231
232 --Copy value of OUT variable in the IN record type
233 lp_ieav_tbl := lx_ieav_tbl;
234
235 END IF;
236
237 -- END commenting for bug 4741980
238 */
239
240 iex_iea_pvt.insert_row(
241 l_api_version
242 ,l_init_msg_list
243 ,l_return_status
244 ,l_msg_count
245 ,l_msg_data
246 ,lp_ieav_tbl
247 ,lx_ieav_tbl);
248
249 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
250 RAISE FND_API.G_EXC_ERROR;
251 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
252 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
253 END IF;
254
255 --Copy value of OUT variable in the IN record type
256 lp_ieav_tbl := lx_ieav_tbl;
257 /*
258 --Vertical post-processing user hook call start
259 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_ext_agncy', 'A', 'V')) THEN
260 iex_ext_agncy_vuhk.insert_ext_agncy_post (
261 p_init_msg_list => l_init_msg_list
262 ,x_msg_data => l_msg_data
263 ,x_msg_count => l_msg_count
264 ,x_return_status => l_return_status
265 ,p_ieav_tbl => lp_ieav_tbl) ;
266 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
267 RAISE FND_API.G_EXC_ERROR;
268 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
269 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
270 END IF;
271 END IF;
272 --Vertical post-processing user hook call end
273
274 --Customer post-processing user hook call start
275 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'insert_ext_agncy', 'A', 'C')) THEN
276 iex_ext_agncy_cuhk.insert_ext_agncy_post (
277 p_init_msg_list => l_init_msg_list
278 ,x_msg_data => l_msg_data
279 ,x_msg_count => l_msg_count
280 ,x_return_status => l_return_status
281 ,p_ieav_tbl => lp_ieav_tbl) ;
282 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
283 RAISE FND_API.G_EXC_ERROR;
284 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
285 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
286 END IF;
287 END IF;
288 --Customer post-processing user hook call end
292 x_return_status := l_return_status ;
289 */
290 --Assign value to OUT variables
291 x_ieav_tbl := lx_ieav_tbl;
293 x_msg_count := l_msg_count ;
294 x_msg_data := l_msg_data ;
295
296
297 EXCEPTION
298
299 WHEN FND_API.G_EXC_ERROR THEN
300 ROLLBACK TO ext_agncy_insert;
301 x_return_status := FND_API.G_RET_STS_ERROR;
302 x_msg_count := l_msg_count ;
303 x_msg_data := l_msg_data ;
304 FND_MSG_PUB.count_and_get(
305 p_count => x_msg_count
306 ,p_data => x_msg_data);
307 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
308 ROLLBACK TO ext_agncy_insert;
309 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
310 x_msg_count := l_msg_count ;
311 x_msg_data := l_msg_data ;
312 FND_MSG_PUB.count_and_get(
313 p_count => x_msg_count
314 ,p_data => x_msg_data);
315 WHEN OTHERS THEN
316 ROLLBACK TO ext_agncy_insert;
317 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
318 x_msg_count := l_msg_count ;
319 x_msg_data := l_msg_data ;
320 FND_MSG_PUB.ADD_EXC_MSG('IEX_EXT_AGNCY_PUB','insert_ext_agncy');
321 FND_MSG_PUB.count_and_get(
322 p_count => x_msg_count
323 ,p_data => x_msg_data);
324 END insert_ext_agncy;
325
326 PROCEDURE lock_ext_agncy(
327 p_api_version IN NUMBER
328 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
329 ,x_return_status OUT NOCOPY VARCHAR2
330 ,x_msg_count OUT NOCOPY NUMBER
331 ,x_msg_data OUT NOCOPY VARCHAR2
332 ,p_ieav_rec IN ieav_rec_type) AS
333
334 BEGIN
335 iex_iea_pvt.lock_row(
336 p_api_version,
337 p_init_msg_list,
338 x_return_status,
339 x_msg_count,
340 x_msg_data,
341 p_ieav_rec);
342
343 IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
344 RAISE FND_API.G_EXC_ERROR;
345 ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
346 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
347 END IF;
348
349
350 EXCEPTION
351
352 WHEN FND_API.G_EXC_ERROR THEN
353 FND_MSG_PUB.count_and_get(
354 p_count => x_msg_count
355 ,p_data => x_msg_data);
356 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
357 FND_MSG_PUB.count_and_get(
358 p_count => x_msg_count
359 ,p_data => x_msg_data);
360 WHEN OTHERS THEN
361 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
362 FND_MSG_PUB.ADD_EXC_MSG('IEX_EXT_AGNCY_PUB','lock_ext_agncy');
363 FND_MSG_PUB.count_and_get(
364 p_count => x_msg_count
365 ,p_data => x_msg_data);
366 END lock_ext_agncy;
367
368 PROCEDURE lock_ext_agncy(
369 p_api_version IN NUMBER
370 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
371 ,x_return_status OUT NOCOPY VARCHAR2
372 ,x_msg_count OUT NOCOPY NUMBER
373 ,x_msg_data OUT NOCOPY VARCHAR2
374 ,p_ieav_tbl IN ieav_tbl_type) AS
375
376 BEGIN
377 iex_iea_pvt.lock_row(
378 p_api_version,
379 p_init_msg_list,
380 x_return_status,
381 x_msg_count,
382 x_msg_data,
383 p_ieav_tbl);
384
385 IF ( x_return_status = FND_API.G_RET_STS_ERROR ) THEN
386 RAISE FND_API.G_EXC_ERROR;
387 ELSIF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
388 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
389 END IF;
390
391
392 EXCEPTION
393
394 WHEN FND_API.G_EXC_ERROR THEN
395 FND_MSG_PUB.count_and_get(
396 p_count => x_msg_count
397 ,p_data => x_msg_data);
398 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
399 FND_MSG_PUB.count_and_get(
400 p_count => x_msg_count
401 ,p_data => x_msg_data);
402 WHEN OTHERS THEN
403 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
404 FND_MSG_PUB.ADD_EXC_MSG('IEX_EXT_AGNCY_PUB','lock_ext_agncy');
405 FND_MSG_PUB.count_and_get(
406 p_count => x_msg_count
407 ,p_data => x_msg_data);
408 END lock_ext_agncy;
409
410 PROCEDURE update_ext_agncy(
411 p_api_version IN NUMBER
412 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
413 ,x_return_status OUT NOCOPY VARCHAR2
414 ,x_msg_count OUT NOCOPY NUMBER
415 ,x_msg_data OUT NOCOPY VARCHAR2
416 ,p_ieav_rec IN ieav_rec_type
417 ,x_ieav_rec OUT NOCOPY ieav_rec_type) AS
418
419 l_api_version NUMBER ;
420 l_init_msg_list VARCHAR2(1) ;
421 l_return_status VARCHAR2(1);
422 l_msg_count NUMBER ;
423 l_msg_data VARCHAR2(2000);
424 lp_ieav_rec ieav_rec_type;
425 lx_ieav_rec ieav_rec_type;
426
427 BEGIN
428
429 SAVEPOINT ext_agncy_update;
430
431
432 l_api_version := p_api_version ;
433 l_init_msg_list := p_init_msg_list ;
434 l_return_status := x_return_status ;
435 l_msg_count := x_msg_count ;
436 l_msg_data := x_msg_data ;
437 lp_ieav_rec := p_ieav_rec;
441 /*
438 lx_ieav_rec := x_ieav_rec;
439
440 --START FOR BUG 4741980
442 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_ext_agncy', 'B', 'C')) THEN
443 iex_ext_agncy_cuhk.update_ext_agncy_pre (
444 p_init_msg_list => l_init_msg_list
445 ,x_msg_data => l_msg_data
446 ,x_msg_count => l_msg_count
447 ,x_return_status => l_return_status
448 ,p_ieav_rec => lp_ieav_rec
449 ,x_ieav_rec => lx_ieav_rec) ;
450 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
451 RAISE FND_API.G_EXC_ERROR;
452 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
453 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
454 END IF;
455
456 --Copy value of OUT variable in the IN record type
457 lp_ieav_rec := lx_ieav_rec;
458
459 END IF;
460
461
462 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_ext_agncy', 'B', 'V')) THEN
463 iex_ext_agncy_vuhk.update_ext_agncy_pre (
464 p_init_msg_list => l_init_msg_list
465 ,x_msg_data => l_msg_data
466 ,x_msg_count => l_msg_count
467 ,x_return_status => l_return_status
468 ,p_ieav_rec => lp_ieav_rec
469 ,x_ieav_rec => lx_ieav_rec) ;
470 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
471 RAISE FND_API.G_EXC_ERROR;
472 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
473 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
474 END IF;
475
476 --Copy value of OUT variable in the IN record type
477 lp_ieav_rec := lx_ieav_rec;
478
479 END IF;
480
481 --END FOR BUG 4741980
482 */
483
484 iex_iea_pvt.update_row(
485 l_api_version
486 ,l_init_msg_list
487 ,l_return_status
488 ,l_msg_count
489 ,l_msg_data
490 ,lp_ieav_rec
491 ,lx_ieav_rec);
492
493 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
494 RAISE FND_API.G_EXC_ERROR;
495 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
496 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
497 END IF;
498
499 --Copy value of OUT variable in the IN record type
500 lp_ieav_rec := lx_ieav_rec;
501 /*
502 --Vertical post-processing user hook call start
503 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_ext_agncy', 'A', 'V')) THEN
504 iex_ext_agncy_vuhk.update_ext_agncy_post (
505 p_init_msg_list => l_init_msg_list
506 ,x_msg_data => l_msg_data
507 ,x_msg_count => l_msg_count
508 ,x_return_status => l_return_status
509 ,p_ieav_rec => lp_ieav_rec) ;
510 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
511 RAISE FND_API.G_EXC_ERROR;
512 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
513 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
514 END IF;
515 END IF;
516 --Vertical post-processing user hook call end
517
518
519 --Customer post-processing user hook call start
520 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_ext_agncy', 'A', 'C')) THEN
521 iex_ext_agncy_cuhk.update_ext_agncy_post (
522 p_init_msg_list=>l_init_msg_list
523 ,x_msg_data => l_msg_data
524 ,x_msg_count => l_msg_count
525 ,x_return_status => l_return_status
526 ,p_ieav_rec => lp_ieav_rec) ;
527 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
528 RAISE FND_API.G_EXC_ERROR;
529 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
530 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
531 END IF;
532 END IF;
533 --Customer post-processing user hook call end
534 */
535 --Assign value to OUT variables
536 x_ieav_rec := lx_ieav_rec;
537 x_return_status := l_return_status ;
538 x_msg_count := l_msg_count ;
539 x_msg_data := l_msg_data ;
540
541
542 EXCEPTION
543
544 WHEN FND_API.G_EXC_ERROR THEN
545 ROLLBACK TO ext_agncy_update;
546 x_return_status := FND_API.G_RET_STS_ERROR;
547 x_msg_count := l_msg_count ;
548 x_msg_data := l_msg_data ;
549 FND_MSG_PUB.count_and_get(
550 p_count => x_msg_count
551 ,p_data => x_msg_data);
552 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
553 ROLLBACK TO ext_agncy_update;
554 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
555 x_msg_count := l_msg_count ;
556 x_msg_data := l_msg_data ;
557 FND_MSG_PUB.count_and_get(
558 p_count => x_msg_count
559 ,p_data => x_msg_data);
560 WHEN OTHERS THEN
561 ROLLBACK TO ext_agncy_update;
565 FND_MSG_PUB.ADD_EXC_MSG('IEX_EXT_AGNCY_PUB','update_ext_agncy');
562 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
563 x_msg_count := l_msg_count ;
564 x_msg_data := l_msg_data ;
566 FND_MSG_PUB.count_and_get(
567 p_count => x_msg_count
568 ,p_data => x_msg_data);
569 END update_ext_agncy;
570
571 PROCEDURE update_ext_agncy(
572 p_api_version IN NUMBER
573 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
574 ,x_return_status OUT NOCOPY VARCHAR2
575 ,x_msg_count OUT NOCOPY NUMBER
576 ,x_msg_data OUT NOCOPY VARCHAR2
577 ,p_ieav_tbl IN ieav_tbl_type
578 ,x_ieav_tbl OUT NOCOPY ieav_tbl_type) AS
579
580 l_api_version NUMBER;
581 l_init_msg_list VARCHAR2(200);
582 l_msg_data VARCHAR2(100);
583 l_msg_count NUMBER ;
584 l_return_status VARCHAR2(1);
585 lp_ieav_tbl ieav_tbl_type;
586 lx_ieav_tbl ieav_tbl_type;
587
588 BEGIN
589
590 SAVEPOINT ext_agncy_update;
591
592
593 lp_ieav_tbl := p_ieav_tbl;
594 lx_ieav_tbl := x_ieav_tbl;
595 l_api_version := p_api_version ;
596 l_init_msg_list := p_init_msg_list ;
597 l_msg_data := x_msg_data ;
598 l_msg_count := x_msg_count ;
599
600
601 --START FOR BUG 4741980
602 /*
603 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_ext_agncy', 'B', 'C')) THEN
604 iex_ext_agncy_cuhk.update_ext_agncy_pre (
605 p_init_msg_list => l_init_msg_list
606 ,x_msg_data => l_msg_data
607 ,x_msg_count => l_msg_count
608 ,x_return_status => l_return_status
609 ,p_ieav_tbl => lp_ieav_tbl
610 ,x_ieav_tbl => lx_ieav_tbl) ;
611 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
612 RAISE FND_API.G_EXC_ERROR;
613 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
614 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
615 END IF;
616
617 --Copy value of OUT variable in the IN record type
618 lp_ieav_tbl := lx_ieav_tbl;
619
620 END IF;
621
622
623 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_ext_agncy', 'B', 'V')) THEN
624 iex_ext_agncy_vuhk.update_ext_agncy_pre (
625 p_init_msg_list => l_init_msg_list
626 ,x_msg_data => l_msg_data
627 ,x_msg_count => l_msg_count
628 ,x_return_status => l_return_status
629 ,p_ieav_tbl => lp_ieav_tbl
630 ,x_ieav_tbl => lx_ieav_tbl) ;
631 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
632 RAISE FND_API.G_EXC_ERROR;
633 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
634 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
635 END IF;
636
637 --Copy value of OUT variable in the IN record type
638 lp_ieav_tbl := lx_ieav_tbl;
639
640 END IF;
641
642 --END FOR BUG 4741980
643 */
644 iex_iea_pvt.update_row(
645 l_api_version
646 ,l_init_msg_list
647 ,l_return_status
648 ,l_msg_count
649 ,l_msg_data
650 ,lp_ieav_tbl
651 ,lx_ieav_tbl);
652
653 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
654 RAISE FND_API.G_EXC_ERROR;
655 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
656 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
657 END IF;
658
659 --Copy value of OUT variable in the IN record type
660 lp_ieav_tbl := lx_ieav_tbl;
661 /*
662 --Vertical post-processing user hook call start
663 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_ext_agncy', 'A', 'V')) THEN
664 iex_ext_agncy_vuhk.update_ext_agncy_post (
665 p_init_msg_list => l_init_msg_list
666 ,x_msg_data => l_msg_data
667 ,x_msg_count => l_msg_count
668 ,x_return_status => l_return_status
669 ,p_ieav_tbl => lp_ieav_tbl) ;
670 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
671 RAISE FND_API.G_EXC_ERROR;
672 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
673 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
674 END IF;
675 END IF;
676 --Vertical post-processing user hook call end
677
678 --Customer post-processing user hook call start
679 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'update_ext_agncy', 'A', 'C')) THEN
680 iex_ext_agncy_cuhk.update_ext_agncy_post (
681 p_init_msg_list => l_init_msg_list
682 ,x_msg_data => l_msg_data
683 ,x_msg_count => l_msg_count
684 ,x_return_status => l_return_status
685 ,p_ieav_tbl => lp_ieav_tbl) ;
689 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
686 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
687 RAISE FND_API.G_EXC_ERROR;
688 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
690 END IF;
691 END IF;
692 --Customer post-processing user hook call end
693 */
694 --Assign value to OUT variables
695 x_ieav_tbl := lx_ieav_tbl;
696 x_return_status := l_return_status ;
697 x_msg_count := l_msg_count ;
698 x_msg_data := l_msg_data ;
699
700
701 EXCEPTION
702
703 WHEN FND_API.G_EXC_ERROR THEN
704 ROLLBACK TO ext_agncy_update;
705 x_return_status := FND_API.G_RET_STS_ERROR;
706 x_msg_count := l_msg_count ;
707 x_msg_data := l_msg_data ;
708 FND_MSG_PUB.count_and_get(
709 p_count => x_msg_count
710 ,p_data => x_msg_data);
711 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
712 ROLLBACK TO ext_agncy_update;
713 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
714 x_msg_count := l_msg_count ;
715 x_msg_data := l_msg_data ;
716 FND_MSG_PUB.count_and_get(
717 p_count => x_msg_count
718 ,p_data => x_msg_data);
719 WHEN OTHERS THEN
720 ROLLBACK TO ext_agncy_update;
721 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
722 x_msg_count := l_msg_count ;
723 x_msg_data := l_msg_data ;
724 FND_MSG_PUB.ADD_EXC_MSG('IEX_EXT_AGNCY_PUB','update_ext_agncy');
725 FND_MSG_PUB.count_and_get(
726 p_count => x_msg_count
727 ,p_data => x_msg_data);
728 END update_ext_agncy;
729
730 --Put custom code for cascade delete by developer
731 PROCEDURE delete_ext_agncy(
732 p_api_version IN NUMBER
733 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
734 ,x_return_status OUT NOCOPY VARCHAR2
735 ,x_msg_count OUT NOCOPY NUMBER
736 ,x_msg_data OUT NOCOPY VARCHAR2
737 ,p_ieav_rec IN ieav_rec_type) AS
738
739 i NUMBER :=0;
740 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
741 l_api_version NUMBER ;
742 l_init_msg_list VARCHAR2(1) ;
743 l_msg_data VARCHAR2(2000);
744 l_msg_count NUMBER ;
745 lp_ieav_rec ieav_rec_type;
746 lx_ieav_rec ieav_rec_type;
747
748 BEGIN
749
750 SAVEPOINT ext_agncy_delete_rec;
751
752
753 l_api_version := p_api_version ;
754 l_init_msg_list := p_init_msg_list ;
755 l_msg_data := x_msg_data;
756 l_msg_count := x_msg_count ;
757 lp_ieav_rec := p_ieav_rec;
758 lx_ieav_rec := p_ieav_rec;
759
760 --START FOR BUG 4741980
761 /*
762 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_ext_agncy', 'B', 'C')) THEN
763 iex_ext_agncy_cuhk.delete_ext_agncy_pre (
764 p_init_msg_list => l_init_msg_list
765 ,x_msg_data => l_msg_data
766 ,x_msg_count => l_msg_count
767 ,x_return_status => l_return_status
768 ,p_ieav_rec => lp_ieav_rec
769 ,x_ieav_rec => lx_ieav_rec) ;
770 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
771 RAISE FND_API.G_EXC_ERROR;
772 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
773 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
774 END IF;
775
776 --Copy value of OUT variable in the IN record type
777 lp_ieav_rec := lx_ieav_rec;
778
779 END IF;
780
781
782 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_ext_agncy', 'B', 'V')) THEN
783 iex_ext_agncy_vuhk.delete_ext_agncy_pre (
784 p_init_msg_list => l_init_msg_list
785 ,x_msg_data => l_msg_data
786 ,x_msg_count => l_msg_count
787 ,x_return_status => l_return_status
788 ,p_ieav_rec => lp_ieav_rec
789 ,x_ieav_rec => lx_ieav_rec) ;
790 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
791 RAISE FND_API.G_EXC_ERROR;
792 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
793 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
794 END IF;
795
796 --Copy value of OUT variable in the IN record type
797 lp_ieav_rec := lx_ieav_rec;
798
799 END IF;
800
801 --END FOR BUG 4741980
802 */
803 --Delete the Master
804 iex_iea_pvt.delete_row(
805 l_api_version
806 ,l_init_msg_list
807 ,l_return_status
808 ,l_msg_count
809 ,l_msg_data
810 ,lp_ieav_rec);
811
812 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
813 RAISE FND_API.G_EXC_ERROR;
814 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
815 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
816 END IF;
817
818
819 --START FOR BUG 4741980
820 /*
821 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_ext_agncy', 'A', 'V')) THEN
825 ,x_msg_count => l_msg_count
822 iex_ext_agncy_vuhk.delete_ext_agncy_post (
823 p_init_msg_list => l_init_msg_list
824 ,x_msg_data => l_msg_data
826 ,x_return_status => l_return_status
827 ,p_ieav_rec => lp_ieav_rec) ;
828 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
829 RAISE FND_API.G_EXC_ERROR;
830 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
831 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
832 END IF;
833 END IF;
834
835
836 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_ext_agncy', 'A', 'C')) THEN
837 iex_ext_agncy_cuhk.delete_ext_agncy_post (
838 p_init_msg_list => l_init_msg_list
839 ,x_msg_data => l_msg_data
840 ,x_msg_count => l_msg_count
841 ,x_return_status => l_return_status
842 ,p_ieav_rec => lp_ieav_rec) ;
843 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
844 RAISE FND_API.G_EXC_ERROR;
845 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
846 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
847 END IF;
848 END IF;
849
850 --END FOR BUG 4741980
851 */
852 --Assign value to OUT variables
853 x_msg_count := l_msg_count ;
854 x_msg_data := l_msg_data ;
855 x_return_status := l_return_status ;
856
857 EXCEPTION
858
859 WHEN FND_API.G_EXC_ERROR THEN
860 ROLLBACK TO ext_agncy_delete_rec;
861 x_return_status := FND_API.G_RET_STS_ERROR;
862 x_msg_count := l_msg_count ;
863 x_msg_data := l_msg_data ;
864 FND_MSG_PUB.count_and_get(
865 p_count => x_msg_count
866 ,p_data => x_msg_data);
867 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
868 ROLLBACK TO ext_agncy_delete_rec;
869 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
870 x_msg_count := l_msg_count ;
871 x_msg_data := l_msg_data ;
872 FND_MSG_PUB.count_and_get(
873 p_count => x_msg_count
874 ,p_data => x_msg_data);
875 WHEN OTHERS THEN
876 ROLLBACK TO ext_agncy_delete_rec;
877 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
878 x_msg_count := l_msg_count ;
879 x_msg_data := l_msg_data ;
880 FND_MSG_PUB.ADD_EXC_MSG('IEX_EXT_AGNCY_PUB','delete_ext_agncy');
881 FND_MSG_PUB.count_and_get(
882 p_count => x_msg_count
883 ,p_data => x_msg_data);
884 END delete_ext_agncy;
885
886 PROCEDURE delete_ext_agncy(
887 p_api_version IN NUMBER
888 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
889 ,x_return_status OUT NOCOPY VARCHAR2
890 ,x_msg_count OUT NOCOPY NUMBER
891 ,x_msg_data OUT NOCOPY VARCHAR2
892 ,p_ieav_tbl IN ieav_tbl_type) AS
893
894 i NUMBER := 0;
895 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
896 l_api_version NUMBER := p_api_version ;
897 l_init_msg_list VARCHAR2(1) := p_init_msg_list ;
898 l_msg_data VARCHAR2(2000);
899 l_msg_count NUMBER ;
900 lp_ieav_tbl ieav_tbl_type;
901 lx_ieav_tbl ieav_tbl_type;
902
903 BEGIN
904
905 SAVEPOINT ext_agncy_delete_tbl;
906
907
908 l_api_version := p_api_version ;
909 l_init_msg_list := p_init_msg_list ;
910 l_msg_data := x_msg_data;
911 l_msg_count := x_msg_count ;
912 lp_ieav_tbl := p_ieav_tbl;
913 lx_ieav_tbl := p_ieav_tbl;
914
915 --START FOR BUG 4741980
916 /*
917 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_ext_agncy', 'B', 'C')) THEN
918 iex_ext_agncy_cuhk.delete_ext_agncy_pre (
919 p_init_msg_list => l_init_msg_list
920 ,x_msg_data => l_msg_data
921 ,x_msg_count => l_msg_count
922 ,x_return_status => l_return_status
923 ,p_ieav_tbl => lp_ieav_tbl
924 ,x_ieav_tbl => lx_ieav_tbl) ;
925 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
926 RAISE FND_API.G_EXC_ERROR;
927 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
928 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
929 END IF;
930
931 --Copy value of OUT variable in the IN record type
932 lp_ieav_tbl := lx_ieav_tbl;
933
934 END IF;
935 --Customer pre-processing user hook call end
936
937
938 --Vertical pre-processing user hook call start
939 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_ext_agncy', 'B', 'V')) THEN
940 iex_ext_agncy_vuhk.delete_ext_agncy_pre (
941 p_init_msg_list => l_init_msg_list
942 ,x_msg_data => l_msg_data
943 ,x_msg_count => l_msg_count
944 ,x_return_status => l_return_status
945 ,p_ieav_tbl => lp_ieav_tbl
949 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
946 ,x_ieav_tbl => lx_ieav_tbl) ;
947 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
948 RAISE FND_API.G_EXC_ERROR;
950 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
951 END IF;
952
953 --Copy value of OUT variable in the IN record type
954 lp_ieav_tbl := lx_ieav_tbl;
955
956 END IF;
957 --Vertical pre-processing user hook call end
958
959 --END FOR BUG 4741980
960 */
961
962 BEGIN
963 --Initialize the return status
964 l_return_status := OKC_API.G_RET_STS_SUCCESS;
965
966 IF (lp_ieav_tbl.COUNT > 0) THEN
967 i := p_ieav_tbl.FIRST;
968 LOOP
969 delete_ext_agncy(
970 l_api_version
971 ,l_init_msg_list
972 ,l_return_status
973 ,l_msg_count
974 ,l_msg_data
975 ,lp_ieav_tbl(i));
976 EXIT WHEN (i = lp_ieav_tbl.LAST);
977 i := p_ieav_tbl.NEXT(i);
978 END LOOP;
979 END IF;
980 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
981 RAISE FND_API.G_EXC_ERROR;
982 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
983 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
984 END IF;
985
986 END;
987
988 /*
989 --Vertical post-processing user hook call start
990 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_ext_agncy', 'A', 'V')) THEN
991 iex_ext_agncy_vuhk.delete_ext_agncy_post (
992 p_init_msg_list => l_init_msg_list
993 ,x_msg_data => l_msg_data
994 ,x_msg_count => l_msg_count
995 ,x_return_status => l_return_status
996 ,p_ieav_tbl => lp_ieav_tbl) ;
997 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
998 RAISE FND_API.G_EXC_ERROR;
999 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1000 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1001 END IF;
1002 END IF;
1003 --Vertical post-processing user hook call end
1004
1005
1006 --Customer post-processing user hook call start
1007 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'delete_ext_agncy', 'A', 'C')) THEN
1008 iex_ext_agncy_cuhk.delete_ext_agncy_post (
1009 p_init_msg_list => l_init_msg_list
1010 ,x_msg_data => l_msg_data
1011 ,x_msg_count => l_msg_count
1012 ,x_return_status => l_return_status
1013 ,p_ieav_tbl => lp_ieav_tbl) ;
1014 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1015 RAISE FND_API.G_EXC_ERROR;
1016 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1017 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1018 END IF;
1019 END IF;
1020 --Customer post-processing user hook call end
1021 */
1022 --Assign value to OUT variables
1023 x_msg_count := l_msg_count ;
1024 x_msg_data := l_msg_data ;
1025
1026 x_return_status := l_return_status ;
1027
1028 EXCEPTION
1029
1030 WHEN FND_API.G_EXC_ERROR THEN
1031 ROLLBACK TO ext_agncy_delete_tbl;
1032 x_return_status := FND_API.G_RET_STS_ERROR;
1033 x_msg_count := l_msg_count ;
1034 x_msg_data := l_msg_data ;
1035 FND_MSG_PUB.count_and_get(
1036 p_count => x_msg_count
1037 ,p_data => x_msg_data);
1038 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1039 ROLLBACK TO ext_agncy_delete_tbl;
1040 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1041 x_msg_count := l_msg_count ;
1042 x_msg_data := l_msg_data ;
1043 FND_MSG_PUB.count_and_get(
1044 p_count => x_msg_count
1045 ,p_data => x_msg_data);
1046 WHEN OTHERS THEN
1047 ROLLBACK TO ext_agncy_delete_tbl;
1048 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1049 x_msg_count := l_msg_count ;
1050 x_msg_data := l_msg_data ;
1051 FND_MSG_PUB.ADD_EXC_MSG('IEX_EXT_AGNCY_PUB','delete_ext_agncy');
1052 FND_MSG_PUB.count_and_get(
1053 p_count => x_msg_count
1054 ,p_data => x_msg_data);
1055 END delete_ext_agncy;
1056
1057 PROCEDURE validate_ext_agncy(
1058 p_api_version IN NUMBER
1059 ,p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE
1060 ,x_return_status OUT NOCOPY VARCHAR2
1061 ,x_msg_count OUT NOCOPY NUMBER
1062 ,x_msg_data OUT NOCOPY VARCHAR2
1063 ,p_ieav_rec IN ieav_rec_type) AS
1064
1065 l_api_version NUMBER ;
1066 l_init_msg_list VARCHAR2(1) ;
1067 l_msg_data VARCHAR2(2000);
1068 l_msg_count NUMBER ;
1069 lp_ieav_rec ieav_rec_type;
1070 lx_ieav_rec ieav_rec_type;
1071 l_return_status VARCHAR2(1);
1072
1073 BEGIN
1074
1075 SAVEPOINT ext_agncy_validate;
1076
1077
1078 l_api_version := p_api_version ;
1079 l_init_msg_list := p_init_msg_list ;
1080 l_msg_data := x_msg_data;
1081 l_msg_count := x_msg_count ;
1082 lp_ieav_rec := p_ieav_rec;
1083 lx_ieav_rec := p_ieav_rec;
1087 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'validate_ext_agncy', 'B', 'C')) THEN
1084
1085 --START FOR BUG 4741980
1086 /*
1088 iex_ext_agncy_cuhk.validate_ext_agncy_pre (
1089 p_init_msg_list => l_init_msg_list
1090 ,x_msg_data => l_msg_data
1091 ,x_msg_count => l_msg_count
1092 ,x_return_status => l_return_status
1093 ,p_ieav_rec => lp_ieav_rec
1094 ,x_ieav_rec => lx_ieav_rec) ;
1095 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1096 RAISE FND_API.G_EXC_ERROR;
1097 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1098 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1099 END IF;
1100
1101 --Copy value of OUT variable in the IN record type
1102 lp_ieav_rec := lx_ieav_rec;
1103
1104 END IF;
1105 --Customer pre-processing user hook call end
1106
1107
1108 --Vertical pre-processing user hook call start
1109 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'validate_ext_agncy', 'B', 'V')) THEN
1110 iex_ext_agncy_vuhk.validate_ext_agncy_pre (
1111 p_init_msg_list => l_init_msg_list
1112 ,x_msg_data => l_msg_data
1113 ,x_msg_count => l_msg_count
1114 ,x_return_status => l_return_status
1115 ,p_ieav_rec => lp_ieav_rec
1116 ,x_ieav_rec => lx_ieav_rec) ;
1117 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1118 RAISE FND_API.G_EXC_ERROR;
1119 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1120 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1121 END IF;
1122
1123 --Copy value of OUT variable in the IN record type
1124 lp_ieav_rec := lx_ieav_rec;
1125
1126 END IF;
1127 --Vertical pre-processing user hook call end
1128
1129 --END FOR BUG 4741980
1130 */
1131
1132 iex_iea_pvt.validate_row(
1133 l_api_version
1134 ,l_init_msg_list
1135 ,l_return_status
1136 ,l_msg_count
1137 ,l_msg_data
1138 ,lp_ieav_rec);
1139
1140 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1141 RAISE FND_API.G_EXC_ERROR;
1142 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1143 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1144 END IF;
1145
1146 --Copy value of OUT variable in the IN record type
1147 lp_ieav_rec := lx_ieav_rec;
1148
1149 /*
1150 --Vertical post-processing user hook call start
1151 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'validate_ext_agncy', 'A', 'V')) THEN
1152 iex_ext_agncy_vuhk.validate_ext_agncy_post (
1153 p_init_msg_list => l_init_msg_list
1154 ,x_msg_data => l_msg_data
1155 ,x_msg_count => l_msg_count
1156 ,x_return_status => l_return_status
1157 ,p_ieav_rec => lp_ieav_rec) ;
1158 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1159 RAISE FND_API.G_EXC_ERROR;
1160 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1161 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1162 END IF;
1163 END IF;
1164
1165
1166
1167 --Vertical post-processing user hook call end
1168
1169
1170 --Customer post-processing user hook call start
1171 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'validate_ext_agncy', 'A', 'C')) THEN
1172 iex_ext_agncy_cuhk.validate_ext_agncy_post (
1173 p_init_msg_list => l_init_msg_list
1174 ,x_msg_data => l_msg_data
1175 ,x_msg_count => l_msg_count
1176 ,x_return_status => l_return_status
1177 ,p_ieav_rec => lp_ieav_rec) ;
1178 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1179 RAISE FND_API.G_EXC_ERROR;
1180 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1181 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1182 END IF;
1183 END IF;
1184 --Customer post-processing user hook call end
1185 */
1186 --Assign value to OUT variables
1187 x_msg_count := l_msg_count ;
1188 x_msg_data := l_msg_data ;
1189
1190 x_return_status := l_return_status ;
1191
1192 EXCEPTION
1193
1194 WHEN FND_API.G_EXC_ERROR THEN
1195 ROLLBACK TO ext_agncy_validate;
1196 x_return_status := FND_API.G_RET_STS_ERROR;
1197 x_msg_count := l_msg_count ;
1198 x_msg_data := l_msg_data ;
1199 FND_MSG_PUB.count_and_get(
1200 p_count => x_msg_count
1201 ,p_data => x_msg_data);
1202 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1203 ROLLBACK TO ext_agncy_validate;
1204 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1205 x_msg_count := l_msg_count ;
1206 x_msg_data := l_msg_data ;
1207 FND_MSG_PUB.count_and_get(
1208 p_count => x_msg_count
1209 ,p_data => x_msg_data);
1210 WHEN OTHERS THEN
1211 ROLLBACK TO ext_agncy_validate;
1212 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1213 x_msg_count := l_msg_count ;
1214 x_msg_data := l_msg_data ;
1215 FND_MSG_PUB.ADD_EXC_MSG('IEX_EXT_AGNCY_PUB','validate_ext_agncy');
1216 FND_MSG_PUB.count_and_get(
1217 p_count => x_msg_count
1218 ,p_data => x_msg_data);
1219 END validate_ext_agncy;
1220
1221 PROCEDURE validate_ext_agncy(
1222 p_api_version IN NUMBER,
1223 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
1224 x_return_status OUT NOCOPY VARCHAR2,
1225 x_msg_count OUT NOCOPY NUMBER,
1226 x_msg_data OUT NOCOPY VARCHAR2,
1227 p_ieav_tbl IN ieav_tbl_type) AS
1228 l_api_version NUMBER ;
1229 l_init_msg_list VARCHAR2(1) ;
1230 l_msg_data VARCHAR2(2000);
1231 l_msg_count NUMBER ;
1232 lp_ieav_tbl ieav_tbl_type;
1233 lx_ieav_tbl ieav_tbl_type;
1234 l_return_status VARCHAR2(1);
1235
1236 BEGIN
1237
1238 SAVEPOINT ext_agncy_validate;
1239
1240
1241 l_api_version := p_api_version ;
1242 l_init_msg_list := p_init_msg_list ;
1243 l_msg_data := x_msg_data;
1244 l_msg_count := x_msg_count ;
1245 lp_ieav_tbl := p_ieav_tbl;
1246 lx_ieav_tbl := p_ieav_tbl;
1247
1248 --START FOR BUG 4741980
1249 /*
1250 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'validate_ext_agncy', 'B', 'C')) THEN
1251 iex_ext_agncy_cuhk.validate_ext_agncy_pre (
1252 p_init_msg_list => l_init_msg_list
1253 ,x_msg_data => l_msg_data
1254 ,x_msg_count => l_msg_count
1255 ,x_return_status => l_return_status
1256 ,p_ieav_tbl => lp_ieav_tbl
1257 ,x_ieav_tbl => lx_ieav_tbl) ;
1258 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1259 RAISE FND_API.G_EXC_ERROR;
1260 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1261 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1262 END IF;
1263
1264 --Copy value of OUT variable in the IN record type
1265 lp_ieav_tbl := lx_ieav_tbl;
1266
1267 END IF;
1268 --Customer pre-processing user hook call end
1269
1270 --Vertical pre-processing user hook call start
1271 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'validate_ext_agncy', 'B', 'V')) THEN
1272 iex_ext_agncy_vuhk.validate_ext_agncy_pre (
1273 p_init_msg_list => l_init_msg_list
1274 ,x_msg_data => l_msg_data
1275 ,x_msg_count => l_msg_count
1276 ,x_return_status => l_return_status
1277 ,p_ieav_tbl => lp_ieav_tbl
1278 ,x_ieav_tbl => lx_ieav_tbl) ;
1279 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1280 RAISE FND_API.G_EXC_ERROR;
1281 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1282 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1283 END IF;
1284
1285 --Copy value of OUT variable in the IN record type
1286 lp_ieav_tbl := lx_ieav_tbl;
1287
1288 END IF;
1289 --Vertical pre-processing user hook call end
1290
1291 --END FOR BUG 4741980
1292 */
1293 iex_iea_pvt.validate_row(
1294 p_api_version
1295 ,p_init_msg_list
1296 ,x_return_status
1297 ,x_msg_count
1298 ,x_msg_data
1299 ,lp_ieav_tbl);
1300
1301 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1302 RAISE FND_API.G_EXC_ERROR;
1303 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1304 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1305 END IF;
1306
1307 --Copy value of OUT variable in the IN record type
1308 lp_ieav_tbl := lx_ieav_tbl;
1309 /*
1310 --Vertical post-processing user hook call start
1311 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'validate_ext_agncy', 'A', 'V')) THEN
1312 iex_ext_agncy_vuhk.validate_ext_agncy_post (
1313 p_init_msg_list => l_init_msg_list
1314 ,x_msg_data => l_msg_data
1315 ,x_msg_count => l_msg_count
1316 ,x_return_status => l_return_status
1317 ,p_ieav_tbl => lp_ieav_tbl) ;
1318 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1319 RAISE FND_API.G_EXC_ERROR;
1320 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1321 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1322 END IF;
1323 END IF;
1324 --Vertical post-processing user hook call end
1325 --Customer post-processing user hook call start
1326 IF (JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, 'validate_ext_agncy', 'A', 'C')) THEN
1327 iex_ext_agncy_cuhk.validate_ext_agncy_post (
1328 p_init_msg_list => l_init_msg_list
1329 ,x_msg_data => l_msg_data
1330 ,x_msg_count => l_msg_count
1331 ,x_return_status => l_return_status
1332 ,p_ieav_tbl => lp_ieav_tbl) ;
1333 IF ( l_return_status = FND_API.G_RET_STS_ERROR ) THEN
1334 RAISE FND_API.G_EXC_ERROR;
1335 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR ) THEN
1336 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1337 END IF;
1338 END IF;
1339
1340 */
1341
1342 --Customer post-processing user hook call end
1343
1344 --Assign value to OUT variables
1345 x_msg_count := l_msg_count ;
1346 x_msg_data := l_msg_data ;
1347
1348 x_return_status := l_return_status ;
1349
1350 EXCEPTION
1351
1352 WHEN FND_API.G_EXC_ERROR THEN
1353 ROLLBACK TO ext_agncy_validate;
1354 x_return_status := FND_API.G_RET_STS_ERROR;
1355 x_msg_count := l_msg_count ;
1356 x_msg_data := l_msg_data ;
1357 FND_MSG_PUB.count_and_get(
1358 p_count => x_msg_count
1359 ,p_data => x_msg_data);
1360 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1361 ROLLBACK TO ext_agncy_validate;
1362 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1363 x_msg_count := l_msg_count ;
1364 x_msg_data := l_msg_data ;
1365 FND_MSG_PUB.count_and_get(
1366 p_count => x_msg_count
1367 ,p_data => x_msg_data);
1368 WHEN OTHERS THEN
1369 ROLLBACK TO ext_agncy_validate;
1370 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1371 x_msg_count := l_msg_count ;
1372 x_msg_data := l_msg_data ;
1373 FND_MSG_PUB.ADD_EXC_MSG('IEX_EXT_AGNCY_PUB','validate_ext_agncy');
1374 FND_MSG_PUB.count_and_get(
1375 p_count => x_msg_count
1376 ,p_data => x_msg_data);
1377 END validate_ext_agncy;
1378
1379 END IEX_EXT_AGNCY_PUB;