[Home] [Help]
10:
11: procedure get_procedure_status(
12: cur out nocopy sys_refcursor)
13: is
14: v_tab_procedure_details tab_procedure_details := tab_procedure_details();
15: tmp varchar2(50);
16: tmp_schema_name varchar2(500);
17: tmp_package_name varchar2(500);
18: tmp_procedure_name varchar2(500);
375: and custom_procedure_name is not null
376: order by full_name
377: )
378: loop
379: v_tab_procedure_details.extend(1);
380: tmp_schema_name := substr(x.full_name,1, instr(x.full_name, '.', 1, 1)-1);
381: tmp_schema_name := substr(x.full_name,1, instr(x.full_name, '.', 1, 1)-1);
382: tmp := substr(x.full_name, instr(x.full_name, '.', 1, 1) +1,
383: instr(x.full_name, '.', 1, 2)-instr(x.full_name, '.', 1, 1)-1);
387: else
388: tmp_package_name := tmp;
389: tmp_procedure_name:= substr(x.full_name, instr(x.full_name, '.', 1, 2)+1);
390: end if;
391: v_tab_procedure_details(v_counter) := rec_procedure_details(x.map_id, x.map_code,
392: x.full_name, tmp_schema_name, tmp_procedure_name,
393: tmp_package_name, NULL, 'FALSE');
394:
395: /* Calls the nested procedure--is_pkg_not_found_or_invalid */
392: x.full_name, tmp_schema_name, tmp_procedure_name,
393: tmp_package_name, NULL, 'FALSE');
394:
395: /* Calls the nested procedure--is_pkg_not_found_or_invalid */
396: is_pkg_not_found_or_invalid(v_tab_procedure_details(v_counter));
397:
398: /* Calls the nested procedure--is_proc_not_found_or_invalid */
399: is_proc_not_found_or_invalid(v_tab_procedure_details(v_counter));
400: v_counter:= v_counter+1;
395: /* Calls the nested procedure--is_pkg_not_found_or_invalid */
396: is_pkg_not_found_or_invalid(v_tab_procedure_details(v_counter));
397:
398: /* Calls the nested procedure--is_proc_not_found_or_invalid */
399: is_proc_not_found_or_invalid(v_tab_procedure_details(v_counter));
400: v_counter:= v_counter+1;
401: end loop;
402:
403: /*
405: oracle.apps.fnd.wf.diagnose.procedurevalidationtest
406: */
407: open cur for
408: select *
409: from table(cast(v_tab_procedure_details as tab_procedure_details)) t1
410: where t1.pkg_proc_notfoundorinvalid= 'TRUE';
411:
412: exception
413: when others then