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