[Home] [Help]
PACKAGE BODY: APPS.AMW_PROCESS_CERT_SCOPE_PVT
Source
1 PACKAGE BODY amw_process_cert_scope_pvt AS
2 /* $Header: amwvpcsb.pls 120.1 2005/07/05 18:27:45 appldev noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- AMW_PROCESS_CERT_SCOPE_PVT
7 -- Purpose
8 --
9 -- History
10 --
11 -- NOTE
12 --
13 -- End of Comments
14 -- ===============================================================
15 g_pkg_name CONSTANT VARCHAR2 (30) := 'AMW_PROCESS_CERT_SCOPE_PVT';
16 g_file_name CONSTANT VARCHAR2 (12) := 'amwvpcsb.pls';
17
18
19
20
21 PROCEDURE Insert_Process(
22 p_level_id IN NUMBER,
23 p_parent_process_id IN NUMBER,
24 p_top_process_id IN NUMBER,
25 p_subsidiary_vs IN VARCHAR2,
26 p_subsidiary_code IN VARCHAR2,
27 p_lob_vs IN VARCHAR2,
28 p_lob_code IN VARCHAR2,
29 p_organization_id IN NUMBER,
30 p_certification_id IN NUMBER
31 ) IS
32 CURSOR c_process IS
33 SELECT apv.child_process_id process_id
34 FROM AMW_CURR_APP_HIERARCHY_ORG_V apv
35 WHERE apv.PARENT_PROCESS_ID = p_parent_process_id
36 and apv.child_organization_id = p_organization_id;
37 BEGIN
38 FOR proc_rec IN c_process LOOP
39 Insert_Process (p_level_id+1,proc_rec.process_id,p_top_process_id,p_subsidiary_vs,
40 p_subsidiary_code,p_lob_vs,p_lob_code,p_organization_id,p_certification_id);
41 INSERT INTO AMW_EXECUTION_SCOPE (
42 EXECUTION_SCOPE_ID,
43 ENTITY_TYPE,
44 ENTITY_ID,
45 CREATED_BY,
46 CREATION_DATE,
47 LAST_UPDATE_DATE,
48 LAST_UPDATED_BY,
49 LAST_UPDATE_LOGIN,
50 SCOPE_CHANGED_STATUS,
51 LEVEL_ID,
52 SUBSIDIARY_VS,
53 SUBSIDIARY_CODE,
54 LOB_VS,
55 LOB_CODE,
56 ORGANIZATION_ID,
57 PROCESS_ID,
58 TOP_PROCESS_ID,
59 PARENT_PROCESS_ID)
60 SELECT amw_execution_scope_s.nextval,
61 'PROCESS_CERTIFICATION',
62 p_certification_id,
63 FND_GLOBAL.USER_ID,
64 SYSDATE,
65 SYSDATE,
66 FND_GLOBAL.USER_ID,
67 FND_GLOBAL.USER_ID,
68 'C',
69 p_level_id,
70 p_subsidiary_vs,
71 p_subsidiary_code,
72 p_lob_vs,
73 p_lob_code,
74 p_organization_id,
75 proc_rec.process_id,
76 p_top_process_id,
77 p_parent_process_id
78 FROM DUAL;
79 END LOOP;
80 END Insert_Process;
81
82 PROCEDURE Insert_Audit_Units(
83 p_api_version_number IN NUMBER := 1.0,
84 p_init_msg_list IN VARCHAR2 := FND_API.g_false,
85 p_commit IN VARCHAR2 := FND_API.g_false,
86 p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
87 p_certification_id IN NUMBER,
88 x_return_status OUT nocopy VARCHAR2,
89 x_msg_count OUT nocopy NUMBER,
90 x_msg_data OUT nocopy VARCHAR2
91 )
92 IS
93 CURSOR c_audit_unit IS
94 SELECT audit_v.company_code,audit_v.subsidiary_valueset,
95 audit_v.lob_code,audit_v.lob_valueset,
96 audit_v.organization_id
97 FROM amw_audit_units_v audit_v;
98
99 CURSOR c_org_process IS
100 SELECT org_v.child_process_id as top_process_id,
101 org_v.child_organization_id as organization_id,
102 audit_v.company_code,audit_v.subsidiary_valueset,
103 audit_v.lob_code,audit_v.lob_valueset
104 FROM AMW_CURR_APP_HIERARCHY_ORG_V org_v,
105 amw_audit_units_v audit_v
106 where org_v.parent_process_id = -2
107 and audit_v.organization_id = org_v.child_organization_id;
108 l_api_name VARCHAR2(150) := 'Insert_Audit_Units';
109 BEGIN
110
111 x_return_status := fnd_api.g_ret_sts_success;
112
113 SAVEPOINT INSERT_AUDIT_UNITS_PVT;
114
115 delete from AMW_EXECUTION_SCOPE
116 where entity_id = p_certification_id
117 and entity_type = 'PROCESS_CERTIFICATION';
118
119
120 FOR audit_rec IN c_audit_unit LOOP
121
122 INSERT INTO AMW_EXECUTION_SCOPE (
123 EXECUTION_SCOPE_ID,
124 ENTITY_TYPE,
125 ENTITY_ID,
126 CREATED_BY,
127 CREATION_DATE,
128 LAST_UPDATE_DATE,
129 LAST_UPDATED_BY,
130 LAST_UPDATE_LOGIN,
131 SCOPE_CHANGED_STATUS,
132 LEVEL_ID,
133 SUBSIDIARY_VS,
134 SUBSIDIARY_CODE,
135 LOB_VS,
136 LOB_CODE,
137 ORGANIZATION_ID,
138 PROCESS_ID,
139 TOP_PROCESS_ID,
140 PARENT_PROCESS_ID)
141 SELECT amw_execution_scope_s.nextval,
142 'PROCESS_CERTIFICATION',
143 p_certification_id,
144 FND_GLOBAL.USER_ID,
145 SYSDATE,
146 SYSDATE,
147 FND_GLOBAL.USER_ID,
148 FND_GLOBAL.USER_ID,
149 'C',
150 1,
151 audit_rec.subsidiary_valueset,
152 audit_rec.company_code,
153 null,
154 null,
155 null,
156 null,
157 null,
158 null
159 FROM DUAL
160 WHERE not exists (SELECT 'Y'
161 FROM AMW_EXECUTION_SCOPE
162 WHERE entity_type='PROCESS_CERTIFICATION'
163 AND entity_id= p_certification_id
164 AND subsidiary_vs = audit_rec.subsidiary_valueset
165 AND subsidiary_code= audit_rec.company_code
166 AND level_id=1);
167
168
169 INSERT INTO AMW_EXECUTION_SCOPE (
170 EXECUTION_SCOPE_ID,
171 ENTITY_TYPE,
172 ENTITY_ID,
173 CREATED_BY,
174 CREATION_DATE,
175 LAST_UPDATE_DATE,
176 LAST_UPDATED_BY,
177 LAST_UPDATE_LOGIN,
178 SCOPE_CHANGED_STATUS,
179 LEVEL_ID,
180 SUBSIDIARY_VS,
181 SUBSIDIARY_CODE,
182 LOB_VS,
183 LOB_CODE,
184 ORGANIZATION_ID,
185 PROCESS_ID,
186 TOP_PROCESS_ID,
187 PARENT_PROCESS_ID)
188 SELECT amw_execution_scope_s.nextval,
189 'PROCESS_CERTIFICATION',
190 p_certification_id,
191 FND_GLOBAL.USER_ID,
192 SYSDATE,
193 SYSDATE,
194 FND_GLOBAL.USER_ID,
195 FND_GLOBAL.USER_ID,
196 'C',
197 2,
198 audit_rec.subsidiary_valueset,
199 audit_rec.company_code,
200 audit_rec.lob_valueset,
201 audit_rec.lob_code,
202 null,
203 null,
204 null,
205 null
206 FROM DUAL
207 WHERE not exists (SELECT 'Y'
208 FROM AMW_EXECUTION_SCOPE
209 WHERE entity_type='PROCESS_CERTIFICATION'
210 AND entity_id= p_certification_id
211 AND subsidiary_vs = audit_rec.subsidiary_valueset
212 AND subsidiary_code= audit_rec.company_code
213 AND lob_vs = audit_rec.lob_valueset
214 AND lob_code = audit_rec.lob_code
215 AND level_id=2);
216
217
218 INSERT INTO AMW_EXECUTION_SCOPE (
219 EXECUTION_SCOPE_ID,
220 ENTITY_TYPE,
221 ENTITY_ID,
222 CREATED_BY,
223 CREATION_DATE,
224 LAST_UPDATE_DATE,
225 LAST_UPDATED_BY,
226 LAST_UPDATE_LOGIN,
227 SCOPE_CHANGED_STATUS,
228 LEVEL_ID,
229 SUBSIDIARY_VS,
230 SUBSIDIARY_CODE,
231 LOB_VS,
232 LOB_CODE,
233 ORGANIZATION_ID,
234 PROCESS_ID,
235 TOP_PROCESS_ID,
236 PARENT_PROCESS_ID)
237 SELECT amw_execution_scope_s.nextval,
238 'PROCESS_CERTIFICATION',
239 p_certification_id,
240 FND_GLOBAL.USER_ID,
241 SYSDATE,
242 SYSDATE,
243 FND_GLOBAL.USER_ID,
244 FND_GLOBAL.USER_ID,
245 'C',
246 3,
247 audit_rec.subsidiary_valueset,
248 audit_rec.company_code,
249 audit_rec.lob_valueset,
250 audit_rec.lob_code,
251 audit_rec.organization_id,
252 null,
253 null,
254 null
255 FROM DUAL
256 WHERE not exists (SELECT 'Y'
257 FROM AMW_EXECUTION_SCOPE
258 WHERE entity_type='PROCESS_CERTIFICATION'
259 AND entity_id= p_certification_id
260 AND subsidiary_vs = audit_rec.subsidiary_valueset
261 AND subsidiary_code= audit_rec.company_code
262 AND lob_vs = audit_rec.lob_valueset
263 AND lob_code = audit_rec.lob_code
264 AND organization_id = audit_rec.organization_id
265 AND level_id=3);
266 END LOOP;
267
268 FOR org_process_rec IN c_org_process LOOP
269
270 INSERT INTO AMW_EXECUTION_SCOPE (
271 EXECUTION_SCOPE_ID,
272 ENTITY_TYPE,
273 ENTITY_ID,
274 CREATED_BY,
275 CREATION_DATE,
276 LAST_UPDATE_DATE,
277 LAST_UPDATED_BY,
278 LAST_UPDATE_LOGIN,
279 SCOPE_CHANGED_STATUS,
280 LEVEL_ID,
281 SUBSIDIARY_VS,
282 SUBSIDIARY_CODE,
283 LOB_VS,
284 LOB_CODE,
285 ORGANIZATION_ID,
286 PROCESS_ID,
287 TOP_PROCESS_ID,
288 PARENT_PROCESS_ID)
289 SELECT amw_execution_scope_s.nextval,
290 'PROCESS_CERTIFICATION',
291 p_certification_id,
292 FND_GLOBAL.USER_ID,
293 SYSDATE,
294 SYSDATE,
295 FND_GLOBAL.USER_ID,
296 FND_GLOBAL.USER_ID,
297 'C',
298 4,
299 org_process_rec.subsidiary_valueset,
300 org_process_rec.company_code,
301 org_process_rec.lob_valueset,
302 org_process_rec.lob_code,
303 org_process_rec.organization_id,
304 org_process_rec.top_process_id,
305 org_process_rec.top_process_id,
306 -1
307 FROM DUAL
308 WHERE not exists (SELECT 'Y'
309 FROM AMW_EXECUTION_SCOPE
313 AND subsidiary_code= org_process_rec.company_code
310 WHERE entity_type='PROCESS_CERTIFICATION'
311 AND entity_id= p_certification_id
312 AND subsidiary_vs = org_process_rec.subsidiary_valueset
314 AND lob_vs = org_process_rec.lob_valueset
315 AND lob_code = org_process_rec.lob_code
316 AND process_id = org_process_rec.top_process_id
317 AND level_id=4);
318
319 -- Insert All the processes in the process Hierarchy using the top_process_id's
320 Insert_Process(5,org_process_rec.top_process_id,org_process_rec.top_process_id,org_process_rec.subsidiary_valueset,
321 org_process_rec.company_code,org_process_rec.lob_valueset,org_process_rec.lob_code,
322 org_process_rec.organization_id,p_certification_id);
323
324 END LOOP;
325 EXCEPTION WHEN OTHERS THEN
326 rollback to INSERT_AUDIT_UNITS_PVT;
327 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
328 FND_MSG_PUB.Add_Exc_Msg(g_pkg_name, l_api_name);
329 FND_MSG_PUB.Count_And_Get(
330 p_encoded => FND_API.G_FALSE,
331 p_count => x_msg_count,
332 p_data => x_msg_data);
333 END Insert_Audit_Units;
334
335 -- Removed the following procedure to fix bug 4474874
336 -- This procedure is only called in AMW_POPULATE_HIERARCHIES_PVT
337 -- (amwphierb.pls). amwphierb.pls has been obsolete.
338 /*
339 PROCEDURE insert_specific_audit_units(
340 p_api_version_number IN NUMBER := 1.0,
341 p_init_msg_list IN VARCHAR2 := FND_API.g_false,
342 p_commit IN VARCHAR2 := FND_API.g_false,
343 p_validation_level IN NUMBER := fnd_api.g_valid_level_full,
344 p_certification_id IN NUMBER,
345 p_org_tbl IN AMW_POPULATE_HIERARCHIES_PVT.g_org_tbl%TYPE,
346 p_process_tbl IN AMW_POPULATE_HIERARCHIES_PVT.g_process_tbl%TYPE,
347 x_return_status OUT nocopy VARCHAR2,
348 x_msg_count OUT nocopy NUMBER,
349 x_msg_data OUT nocopy VARCHAR2
350 ) IS
351
352 CURSOR c_audit_unit(p_org_id NUMBER) IS
353 SELECT audit_v.company_code,audit_v.subsidiary_valueset,
354 audit_v.lob_code,audit_v.lob_valueset,
355 audit_v.organization_id
356 FROM amw_audit_units_v audit_v
357 WHERE organization_id = p_org_id;
358
359 l_api_name VARCHAR2(150) := 'Insert_Specific_Audit_Units';
360 l_api_version_number CONSTANT NUMBER := 1.0;
361
362 TYPE orgprocesstype IS REF CURSOR;
363 process_cursor orgprocesstype;
364
365 l_get_processes_query VARCHAR2(32767) :=
366 'SELECT org_v.child_process_id as top_process_id,
367 org_v.child_organization_id as organization_id,
368 audit_v.company_code,
369 audit_v.subsidiary_valueset,
370 audit_v.lob_code,
371 audit_v.lob_valueset
372 FROM AMW_CURR_APP_HIERARCHY_ORG_V org_v,
373 amw_audit_units_v audit_v
374 WHERE org_v.parent_process_id = -2
375 AND audit_v.organization_id = org_v.child_organization_id
376 AND audit_v.organization_id =';
377
378 l_extra_query VARCHAR2(32767);
379 l_final_query VARCHAR2(32767);
380
381 l_process_id NUMBER;
382 l_organization_id NUMBER;
383 l_company_code amw_audit_units_v.company_code%TYPE;
384 l_subsidiary_valueset amw_audit_units_v.subsidiary_valueset%TYPE;
385 l_lob_code amw_audit_units_v.lob_code%TYPE;
386 l_lob_valueset amw_audit_units_v.lob_valueset%TYPE;
387
388 BEGIN
389
390 SAVEPOINT INSERT_SPEC_AUDIT_UNITS_PVT;
391
392 -- Standard call to check for call compatibility.
393 IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
394 p_api_version_number,
395 l_api_name,
396 G_PKG_NAME)
397 THEN
398 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
399 END IF;
400
401 -- Initialize message list if p_init_msg_list is set to TRUE.
402 IF FND_API.to_Boolean( p_init_msg_list )
403 THEN
404 FND_MSG_PUB.initialize;
405 END IF;
406
407 -- Initialize API return status to SUCCESS
408 x_return_status := FND_API.G_RET_STS_SUCCESS;
409
410 DELETE FROM AMW_EXECUTION_SCOPE
411 WHERE entity_id = p_certification_id
412 AND entity_type = 'PROCESS_CERTIFICATION';
413
414 FOR each_rec IN 1..p_org_tbl.count
415 LOOP
416
417 FOR audit_rec IN c_audit_unit(p_org_tbl(each_rec).org_id)
418 LOOP
419
420 INSERT INTO AMW_EXECUTION_SCOPE (
421 EXECUTION_SCOPE_ID,
422 ENTITY_TYPE,
423 ENTITY_ID,
424 CREATED_BY,
425 CREATION_DATE,
426 LAST_UPDATE_DATE,
427 LAST_UPDATED_BY,
428 LAST_UPDATE_LOGIN,
429 SCOPE_CHANGED_STATUS,
430 LEVEL_ID,
431 SUBSIDIARY_VS,
432 SUBSIDIARY_CODE,
433 LOB_VS,
434 LOB_CODE,
435 ORGANIZATION_ID,
436 PROCESS_ID,
437 TOP_PROCESS_ID,
438 PARENT_PROCESS_ID)
439 SELECT amw_execution_scope_s.nextval,
440 'PROCESS_CERTIFICATION',
441 p_certification_id,
442 FND_GLOBAL.USER_ID,
443 SYSDATE,
444 SYSDATE,
445 FND_GLOBAL.USER_ID,
446 FND_GLOBAL.USER_ID,
447 'C',
448 1,
449 audit_rec.subsidiary_valueset,
450 audit_rec.company_code,
451 null,
452 null,
453 null,
454 null,
455 null,
456 null
457 FROM DUAL
458 WHERE not exists (SELECT 'Y'
459 FROM AMW_EXECUTION_SCOPE
460 WHERE entity_type='PROCESS_CERTIFICATION'
461 AND entity_id= p_certification_id
462 AND subsidiary_vs = audit_rec.subsidiary_valueset
466 INSERT INTO AMW_EXECUTION_SCOPE (
463 AND subsidiary_code= audit_rec.company_code
464 AND level_id=1);
465
467 EXECUTION_SCOPE_ID,
468 ENTITY_TYPE,
469 ENTITY_ID,
470 CREATED_BY,
471 CREATION_DATE,
472 LAST_UPDATE_DATE,
473 LAST_UPDATED_BY,
474 LAST_UPDATE_LOGIN,
475 SCOPE_CHANGED_STATUS,
476 LEVEL_ID,
477 SUBSIDIARY_VS,
478 SUBSIDIARY_CODE,
479 LOB_VS,
480 LOB_CODE,
481 ORGANIZATION_ID,
482 PROCESS_ID,
483 TOP_PROCESS_ID,
484 PARENT_PROCESS_ID)
485 SELECT amw_execution_scope_s.nextval,
486 'PROCESS_CERTIFICATION',
487 p_certification_id,
488 FND_GLOBAL.USER_ID,
489 SYSDATE,
490 SYSDATE,
491 FND_GLOBAL.USER_ID,
492 FND_GLOBAL.USER_ID,
493 'C',
494 2,
495 audit_rec.subsidiary_valueset,
496 audit_rec.company_code,
497 audit_rec.lob_valueset,
498 audit_rec.lob_code,
499 null,
500 null,
501 null,
502 null
503 FROM DUAL
504 WHERE not exists (SELECT 'Y'
505 FROM AMW_EXECUTION_SCOPE
506 WHERE entity_type='PROCESS_CERTIFICATION'
507 AND entity_id= p_certification_id
508 AND subsidiary_vs = audit_rec.subsidiary_valueset
509 AND subsidiary_code= audit_rec.company_code
510 AND lob_vs = audit_rec.lob_valueset
511 AND lob_code = audit_rec.lob_code
512 AND level_id=2);
513
514 INSERT INTO AMW_EXECUTION_SCOPE (
515 EXECUTION_SCOPE_ID,
516 ENTITY_TYPE,
517 ENTITY_ID,
518 CREATED_BY,
519 CREATION_DATE,
520 LAST_UPDATE_DATE,
521 LAST_UPDATED_BY,
522 LAST_UPDATE_LOGIN,
523 SCOPE_CHANGED_STATUS,
524 LEVEL_ID,
525 SUBSIDIARY_VS,
526 SUBSIDIARY_CODE,
527 LOB_VS,
528 LOB_CODE,
529 ORGANIZATION_ID,
530 PROCESS_ID,
531 TOP_PROCESS_ID,
532 PARENT_PROCESS_ID)
533 SELECT amw_execution_scope_s.nextval,
534 'PROCESS_CERTIFICATION',
535 p_certification_id,
536 FND_GLOBAL.USER_ID,
537 SYSDATE,
538 SYSDATE,
539 FND_GLOBAL.USER_ID,
540 FND_GLOBAL.USER_ID,
541 'C',
542 3,
543 audit_rec.subsidiary_valueset,
544 audit_rec.company_code,
545 audit_rec.lob_valueset,
546 audit_rec.lob_code,
547 audit_rec.organization_id,
548 null,
549 null,
550 null
551 FROM DUAL
552 WHERE not exists (SELECT 'Y'
553 FROM AMW_EXECUTION_SCOPE
554 WHERE entity_type='PROCESS_CERTIFICATION'
555 AND entity_id= p_certification_id
556 AND subsidiary_vs = audit_rec.subsidiary_valueset
557 AND subsidiary_code= audit_rec.company_code
558 AND lob_vs = audit_rec.lob_valueset
559 AND lob_code = audit_rec.lob_code
560 AND organization_id = audit_rec.organization_id
561 AND level_id=3);
562 END LOOP; --audit_rec IN c_audit_unit
563
564 IF(p_process_tbl.count > 0)
565 THEN
566 l_extra_query := ' AND org_v.child_process_id IN (';
567 END IF;
568
569 FOR i IN 1..p_process_tbl.count LOOP
570 l_extra_query := l_extra_query || p_process_tbl(i).process_id;
571 IF (i = p_process_tbl.count)
572 THEN
573 l_extra_query := l_extra_query || ' )';
574 ELSE
575 l_extra_query := l_extra_query || ', ';
576 END IF;
577 END LOOP;
578
579 l_final_query := l_get_processes_query || p_org_tbl(each_rec).org_id || l_extra_query;
580
581 OPEN process_cursor FOR l_final_query;
582 LOOP
583 FETCH process_cursor INTO l_process_id,
584 l_organization_id,
585 l_company_code,
586 l_subsidiary_valueset,
587 l_lob_code,
588 l_lob_valueset;
589 EXIT WHEN process_cursor%NOTFOUND;
590
591 INSERT INTO AMW_EXECUTION_SCOPE (
592 EXECUTION_SCOPE_ID,
593 ENTITY_TYPE,
594 ENTITY_ID,
595 CREATED_BY,
596 CREATION_DATE,
597 LAST_UPDATE_DATE,
598 LAST_UPDATED_BY,
599 LAST_UPDATE_LOGIN,
600 SCOPE_CHANGED_STATUS,
601 LEVEL_ID,
602 SUBSIDIARY_VS,
603 SUBSIDIARY_CODE,
604 LOB_VS,
605 LOB_CODE,
606 ORGANIZATION_ID,
607 PROCESS_ID,
608 TOP_PROCESS_ID,
609 PARENT_PROCESS_ID)
610 SELECT amw_execution_scope_s.nextval,
611 'PROCESS_CERTIFICATION',
612 p_certification_id,
613 FND_GLOBAL.USER_ID,
614 SYSDATE,
615 SYSDATE,
616 FND_GLOBAL.USER_ID,
617 FND_GLOBAL.USER_ID,
618 'C',
619 4,
620 l_subsidiary_valueset,
621 l_company_code,
622 l_lob_valueset,
623 l_lob_code,
624 l_organization_id,
625 l_process_id,
626 l_process_id,
627 -1
628 FROM DUAL
629 WHERE not exists (SELECT 'Y'
630 FROM AMW_EXECUTION_SCOPE
631 WHERE entity_type='PROCESS_CERTIFICATION'
632 AND entity_id= p_certification_id
633 AND subsidiary_vs = l_subsidiary_valueset
634 AND subsidiary_code= l_company_code
635 AND lob_vs = l_lob_valueset
636 AND lob_code = l_lob_code
637 AND process_id = l_process_id
638 AND level_id=4);
639
640 -- Insert All the processes in the process Hierarchy using the top_process_id's
641 Insert_Process(5,
642 l_process_id,
643 l_process_id,
644 l_subsidiary_valueset,
645 l_company_code,
646 l_lob_valueset,
647 l_lob_code,
648 l_organization_id,
649 p_certification_id);
650
651 END LOOP;
652 CLOSE process_cursor;
653
654
655 END LOOP;--each_rec IN 1..p_org_tbl.count
656
657 EXCEPTION WHEN OTHERS THEN
658 rollback to INSERT_SPEC_AUDIT_UNITS_PVT;
659 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
660 FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
661 FND_MSG_PUB.Count_And_Get(
662 p_encoded => FND_API.G_FALSE,
663 p_count => x_msg_count,
664 p_data => x_msg_data);
665 END insert_specific_audit_units;
666 */
667
668 END amw_process_cert_scope_pvt;
669