1: PACKAGE BODY PER_DATA_UPDATE_REPORT AS
2: /* $Header: perdtupr.pkb 120.15 2006/09/08 17:33:44 jabubaka noship $ */
3: summCtr NUMBER;
4: critCtr NUMBER;
5: vCtr NUMBER;
243: dt_fndate.set_effective_date(trunc(sysdate));
244: --
245: -- Initialise counters for the XMLTables
246: --
247: PER_DATA_UPDATE_REPORT.summXMLTable.DELETE;
248: summCtr:=0;
249: PER_DATA_UPDATE_REPORT.critXMLTable.DELETE;
250: critCtr:=0;
251: PER_DATA_UPDATE_REPORT.vXMLTable.DELETE;
245: -- Initialise counters for the XMLTables
246: --
247: PER_DATA_UPDATE_REPORT.summXMLTable.DELETE;
248: summCtr:=0;
249: PER_DATA_UPDATE_REPORT.critXMLTable.DELETE;
250: critCtr:=0;
251: PER_DATA_UPDATE_REPORT.vXMLTable.DELETE;
252: vCtr:=0;
253: --
247: PER_DATA_UPDATE_REPORT.summXMLTable.DELETE;
248: summCtr:=0;
249: PER_DATA_UPDATE_REPORT.critXMLTable.DELETE;
250: critCtr:=0;
251: PER_DATA_UPDATE_REPORT.vXMLTable.DELETE;
252: vCtr:=0;
253: --
254: --
255: --
253: --
254: --
255: --
256: if p_report_content in (l_content_summary, l_content_both) then
257: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_list_g_summary || '>' ;
258: summCtr:=summCtr+1;
259: end if;
260: --
261: --
260: --
261: --
262: --
263: if p_report_content in (l_content_detail, l_content_both) then
264: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_list_g_criticality || '>';
265: critCtr:=critCtr+1;
266: end if;
267: --
268: -- retrieve the processes
306: end;
307: --
308: if p_report_content in (l_content_summary, l_content_both) then
309: --
310: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_g_summary || '>';
311: summCtr:=summCtr+1;
312: --
313: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_process_name || '>' || l_c_data_start || l_cursor_get_data.process_name || l_c_data_end || '';
314: summCtr:=summCtr+1;
309: --
310: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_g_summary || '>';
311: summCtr:=summCtr+1;
312: --
313: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_process_name || '>' || l_c_data_start || l_cursor_get_data.process_name || l_c_data_end || '';
314: summCtr:=summCtr+1;
315: --
316: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_upgrade_level || '>' || l_cursor_get_data.upgrade_level || '';
317: summCtr:=summCtr+1;
312: --
313: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_process_name || '>' || l_c_data_start || l_cursor_get_data.process_name || l_c_data_end || '';
314: summCtr:=summCtr+1;
315: --
316: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_upgrade_level || '>' || l_cursor_get_data.upgrade_level || '';
317: summCtr:=summCtr+1;
318: --
319: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_required || '>' || l_required || '';
320: summCtr:=summCtr+1;
315: --
316: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_upgrade_level || '>' || l_cursor_get_data.upgrade_level || '';
317: summCtr:=summCtr+1;
318: --
319: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_required || '>' || l_required || '';
320: summCtr:=summCtr+1;
321: --
322: open c_detect_status(l_cursor_get_data.upgrade_definition_id);
323: fetch c_detect_status into l_status_rows;
326: else
327: l_exec_status := l_lookup_no;
328: end if;
329: close c_detect_status;
330: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_exec_status || '>' || l_exec_status || '';
331: summCtr:=summCtr+1;
332: --
333: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_introduced || '>' || l_cursor_get_data.introduced || '';
334: summCtr:=summCtr+1;
329: close c_detect_status;
330: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_exec_status || '>' || l_exec_status || '';
331: summCtr:=summCtr+1;
332: --
333: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_introduced || '>' || l_cursor_get_data.introduced || '';
334: summCtr:=summCtr+1;
335: --
336: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_criticality || '>' || l_cursor_get_data.criticality || '';
337: summCtr:=summCtr+1;
332: --
333: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_introduced || '>' || l_cursor_get_data.introduced || '';
334: summCtr:=summCtr+1;
335: --
336: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '<' || l_str_criticality || '>' || l_cursor_get_data.criticality || '';
337: summCtr:=summCtr+1;
338: end if;
339: --
340: if p_report_content in (l_content_detail, l_content_both) then
346: --
347: --
348: if (l_cursor_get_data.criticality_code = 'C') and
349: not l_critCodeCShown then
350: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
351: critCtr:=critCtr+1;
352: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_criticality_code || '>' || l_cursor_get_data.criticality_code || '';
353: critCtr:=critCtr+1;
354: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_list_g_process || '>';
348: if (l_cursor_get_data.criticality_code = 'C') and
349: not l_critCodeCShown then
350: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
351: critCtr:=critCtr+1;
352: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_criticality_code || '>' || l_cursor_get_data.criticality_code || '';
353: critCtr:=critCtr+1;
354: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_list_g_process || '>';
355: critCtr:=critCtr+1;
356: l_critCodeCShown := true;
350: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
351: critCtr:=critCtr+1;
352: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_criticality_code || '>' || l_cursor_get_data.criticality_code || '';
353: critCtr:=critCtr+1;
354: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_list_g_process || '>';
355: critCtr:=critCtr+1;
356: l_critCodeCShown := true;
357: end if;
358: if (l_cursor_get_data.criticality_code = 'R') and
357: end if;
358: if (l_cursor_get_data.criticality_code = 'R') and
359: not l_critCodeRShown then
360: if l_critCodeCShown then
361: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
362: critCtr:=critCtr+1;
363: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
364: critCtr:=critCtr+1;
365: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
359: not l_critCodeRShown then
360: if l_critCodeCShown then
361: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
362: critCtr:=critCtr+1;
363: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
364: critCtr:=critCtr+1;
365: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
366: critCtr:=critCtr+1;
367: else
361: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
362: critCtr:=critCtr+1;
363: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
364: critCtr:=critCtr+1;
365: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
366: critCtr:=critCtr+1;
367: else
368: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
369: critCtr:=critCtr+1;
364: critCtr:=critCtr+1;
365: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
366: critCtr:=critCtr+1;
367: else
368: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
369: critCtr:=critCtr+1;
370: end if;
371: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_criticality_code || '>' || l_cursor_get_data.criticality_code || '';
372: critCtr:=critCtr+1;
367: else
368: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
369: critCtr:=critCtr+1;
370: end if;
371: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_criticality_code || '>' || l_cursor_get_data.criticality_code || '';
372: critCtr:=critCtr+1;
373: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_list_g_process || '>';
374: critCtr:=critCtr+1;
375: l_critCodeRShown := true;
369: critCtr:=critCtr+1;
370: end if;
371: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_criticality_code || '>' || l_cursor_get_data.criticality_code || '';
372: critCtr:=critCtr+1;
373: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_list_g_process || '>';
374: critCtr:=critCtr+1;
375: l_critCodeRShown := true;
376: end if;
377: if (l_cursor_get_data.criticality_code = 'O') and
376: end if;
377: if (l_cursor_get_data.criticality_code = 'O') and
378: not l_critCodeOShown then
379: if l_critCodeRShown or l_critCodeCShown then
380: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
381: critCtr:=critCtr+1;
382: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
383: critCtr:=critCtr+1;
384: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
378: not l_critCodeOShown then
379: if l_critCodeRShown or l_critCodeCShown then
380: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
381: critCtr:=critCtr+1;
382: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
383: critCtr:=critCtr+1;
384: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
385: critCtr:=critCtr+1;
386: else
380: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
381: critCtr:=critCtr+1;
382: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
383: critCtr:=critCtr+1;
384: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
385: critCtr:=critCtr+1;
386: else
387: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
388: critCtr:=critCtr+1;
383: critCtr:=critCtr+1;
384: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
385: critCtr:=critCtr+1;
386: else
387: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
388: critCtr:=critCtr+1;
389: end if;
390: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_criticality_code || '>' || l_cursor_get_data.criticality_code || '';
391: critCtr:=critCtr+1;
386: else
387: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_criticality || '>';
388: critCtr:=critCtr+1;
389: end if;
390: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_criticality_code || '>' || l_cursor_get_data.criticality_code || '';
391: critCtr:=critCtr+1;
392: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_list_g_process || '>';
393: critCtr:=critCtr+1;
394: l_critCodeOShown := true;
388: critCtr:=critCtr+1;
389: end if;
390: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_criticality_code || '>' || l_cursor_get_data.criticality_code || '';
391: critCtr:=critCtr+1;
392: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_list_g_process || '>';
393: critCtr:=critCtr+1;
394: l_critCodeOShown := true;
395: end if;
396: --
394: l_critCodeOShown := true;
395: end if;
396: --
397: --
398: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_process || '>';
399: critCtr:=critCtr+1;
400: --
401: -- derivation of Detailed Report Fields
402: --
508: else
509: l_config_option_name := l_option_name;
510: end if;
511: --
512: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_upgrade_level || '>' || l_cursor_get_data.upgrade_level || '';
513: critCtr:=critCtr+1;
514: --
515: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_criticality || '>' || l_cursor_get_data.criticality || '';
516: critCtr:=critCtr+1;
511: --
512: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_upgrade_level || '>' || l_cursor_get_data.upgrade_level || '';
513: critCtr:=critCtr+1;
514: --
515: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_criticality || '>' || l_cursor_get_data.criticality || '';
516: critCtr:=critCtr+1;
517: --
518: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_process_name || '>' || l_c_data_start || l_cursor_get_data.process_name || l_c_data_end || '';
519: critCtr:=critCtr+1;
514: --
515: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_criticality || '>' || l_cursor_get_data.criticality || '';
516: critCtr:=critCtr+1;
517: --
518: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_process_name || '>' || l_c_data_start || l_cursor_get_data.process_name || l_c_data_end || '';
519: critCtr:=critCtr+1;
520: --
521: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_legislation_code || '>' || l_cursor_get_data.legislation_code || '';
522: critCtr:=critCtr+1;
517: --
518: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_process_name || '>' || l_c_data_start || l_cursor_get_data.process_name || l_c_data_end || '';
519: critCtr:=critCtr+1;
520: --
521: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_legislation_code || '>' || l_cursor_get_data.legislation_code || '';
522: critCtr:=critCtr+1;
523: --
524: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_enabled_leg_code || '>' || l_enabled_leg_code || '' ;
525: critCtr:=critCtr+1;
520: --
521: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_legislation_code || '>' || l_cursor_get_data.legislation_code || '';
522: critCtr:=critCtr+1;
523: --
524: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_enabled_leg_code || '>' || l_enabled_leg_code || '' ;
525: critCtr:=critCtr+1;
526: --
527: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_required || '>' || l_required || '';
528: critCtr:=critCtr+1;
523: --
524: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_enabled_leg_code || '>' || l_enabled_leg_code || '' ;
525: critCtr:=critCtr+1;
526: --
527: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_required || '>' || l_required || '';
528: critCtr:=critCtr+1;
529: --
530: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_prepatch || '>' || l_prepatch || '';
531: critCtr:=critCtr+1;
526: --
527: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_required || '>' || l_required || '';
528: critCtr:=critCtr+1;
529: --
530: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_prepatch || '>' || l_prepatch || '';
531: critCtr:=critCtr+1;
532: --
533: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_inpatch || '>' || l_inpatch || '';
534: critCtr:=critCtr+1;
529: --
530: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_prepatch || '>' || l_prepatch || '';
531: critCtr:=critCtr+1;
532: --
533: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_inpatch || '>' || l_inpatch || '';
534: critCtr:=critCtr+1;
535: --
536: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_postpatch || '>' || l_postpatch || '';
537: critCtr:=critCtr+1;
532: --
533: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_inpatch || '>' || l_inpatch || '';
534: critCtr:=critCtr+1;
535: --
536: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_postpatch || '>' || l_postpatch || '';
537: critCtr:=critCtr+1;
538: --
539: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_configurable || '>' || l_configurable || '';
540: critCtr:=critCtr+1;
535: --
536: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_postpatch || '>' || l_postpatch || '';
537: critCtr:=critCtr+1;
538: --
539: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_configurable || '>' || l_configurable || '';
540: critCtr:=critCtr+1;
541: --
542: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_config_option_name || '>' || l_c_data_start || l_config_option_name || l_c_data_end || '';
543: critCtr:=critCtr+1;
538: --
539: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_configurable || '>' || l_configurable || '';
540: critCtr:=critCtr+1;
541: --
542: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_config_option_name || '>' || l_c_data_start || l_config_option_name || l_c_data_end || '';
543: critCtr:=critCtr+1;
544: --
545: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_execution_point || '>' || l_execution_point || '';
546: critCtr:=critCtr+1;
541: --
542: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_config_option_name || '>' || l_c_data_start || l_config_option_name || l_c_data_end || '';
543: critCtr:=critCtr+1;
544: --
545: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_execution_point || '>' || l_execution_point || '';
546: critCtr:=critCtr+1;
547: --
548: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_introduced || '>' || l_cursor_get_data.introduced || '';
549: critCtr:=critCtr+1;
544: --
545: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_execution_point || '>' || l_execution_point || '';
546: critCtr:=critCtr+1;
547: --
548: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_introduced || '>' || l_cursor_get_data.introduced || '';
549: critCtr:=critCtr+1;
550: --
551: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_additional_info || '>' || l_c_data_start || l_cursor_get_data.additional_info || l_c_data_end || '';
552: critCtr:=critCtr+1;
547: --
548: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_introduced || '>' || l_cursor_get_data.introduced || '';
549: critCtr:=critCtr+1;
550: --
551: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_additional_info || '>' || l_c_data_start || l_cursor_get_data.additional_info || l_c_data_end || '';
552: critCtr:=critCtr+1;
553: ----------- STATUS SECTION ---------------------------------------------
554: for l_cursor_status_data in c_execution_status(l_cursor_get_data.upgrade_definition_id)
555: loop
553: ----------- STATUS SECTION ---------------------------------------------
554: for l_cursor_status_data in c_execution_status(l_cursor_get_data.upgrade_definition_id)
555: loop
556: --
557: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_status || '>';
558: critCtr:=critCtr+1;
559: --
560: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_status_leg_code || '>' || l_cursor_status_data.status_leg_code || '';
561: critCtr:=critCtr+1;
556: --
557: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_g_status || '>';
558: critCtr:=critCtr+1;
559: --
560: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_status_leg_code || '>' || l_cursor_status_data.status_leg_code || '';
561: critCtr:=critCtr+1;
562: --
563: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_status_bg_name || '>' || l_c_data_start || nvl(l_cursor_status_data.status_bg_name,'N/A') || l_c_data_end || '';
564: critCtr:=critCtr+1;
559: --
560: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_status_leg_code || '>' || l_cursor_status_data.status_leg_code || '';
561: critCtr:=critCtr+1;
562: --
563: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_status_bg_name || '>' || l_c_data_start || nvl(l_cursor_status_data.status_bg_name,'N/A') || l_c_data_end || '';
564: critCtr:=critCtr+1;
565: --
566: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_status || '>' || l_cursor_status_data.status || '';
567: critCtr:=critCtr+1;
562: --
563: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_status_bg_name || '>' || l_c_data_start || nvl(l_cursor_status_data.status_bg_name,'N/A') || l_c_data_end || '';
564: critCtr:=critCtr+1;
565: --
566: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_status || '>' || l_cursor_status_data.status || '';
567: critCtr:=critCtr+1;
568: --
569: if l_cursor_status_data.executed = 'Y'
570: then l_executed := l_lookup_yes;
569: if l_cursor_status_data.executed = 'Y'
570: then l_executed := l_lookup_yes;
571: else l_executed := l_lookup_no;
572: end if;
573: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_executed || '>' || l_executed || '';
574: critCtr:=critCtr+1;
575: --
576: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_request_id || '>' || to_char(l_request_id) || '';
577: critCtr:=critCtr+1;
572: end if;
573: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_executed || '>' || l_executed || '';
574: critCtr:=critCtr+1;
575: --
576: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_request_id || '>' || to_char(l_request_id) || '';
577: critCtr:=critCtr+1;
578: --
579: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
580: critCtr:=critCtr+1;
575: --
576: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '<' || l_str_request_id || '>' || to_char(l_request_id) || '';
577: critCtr:=critCtr+1;
578: --
579: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
580: critCtr:=critCtr+1;
581: end loop;---- for each status
582:
583:
580: critCtr:=critCtr+1;
581: end loop;---- for each status
582:
583:
584: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
585: critCtr:=critCtr+1;
586:
587: end if;
588: --
587: end if;
588: --
589: --
590: if p_report_content in (l_content_summary, l_content_both) then
591: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '';
592: summCtr:=summCtr+1;
593: end if;
594:
595: end loop; -- for each process
599: --
600: --
601: if p_report_content in (l_content_detail, l_content_both) then
602: if l_rows_found then
603: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
604: critCtr:=critCtr+1;
605: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
606: critCtr:=critCtr+1;
607: end if;
601: if p_report_content in (l_content_detail, l_content_both) then
602: if l_rows_found then
603: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
604: critCtr:=critCtr+1;
605: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
606: critCtr:=critCtr+1;
607: end if;
608: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
609: critCtr:=critCtr+1;
604: critCtr:=critCtr+1;
605: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
606: critCtr:=critCtr+1;
607: end if;
608: PER_DATA_UPDATE_REPORT.critXMLTable(critCtr).TagValue := '';
609: critCtr:=critCtr+1;
610: end if;
611: --
612: --
611: --
612: --
613: --
614: if p_report_content in (l_content_summary, l_content_both) then
615: PER_DATA_UPDATE_REPORT.summXMLTable(summCtr).TagValue := '';
616: summCtr:=summCtr+1;
617: end if;
618:
619: /*
712: --
713: --
714: --
715: --
716: PER_DATA_UPDATE_REPORT.vXMLTable(vCtr).TagValue := '
718: --
719: --
720: --
718: --
719: --
720: --
721: select name into l_database_name from v$database;
722: PER_DATA_UPDATE_REPORT.vXMLTable(vCtr).TagValue := '
723: vCtr:=vCtr+1;
724: --
725: -- SUMMARY LISTINGS
726: --
725: -- SUMMARY LISTINGS
726: --
727: IF summXMLTable.count > 0 then
728: FOR ctr_summ_table IN summXMLTable.FIRST .. summXMLTable.LAST LOOP
729: PER_DATA_UPDATE_REPORT.vXMLTable(vCtr).TagValue := summXMLTable(ctr_summ_table).TagValue;
730: vCtr:=vCtr+1;
731: END LOOP;
732: END IF;
733: --
734: -- CRITICALITY LISTINGS
735: --
736: IF critXMLTable.count > 0 then
737: FOR ctr_crit_table IN critXMLTable.FIRST .. critXMLTable.LAST LOOP
738: PER_DATA_UPDATE_REPORT.vXMLTable(vCtr).TagValue := critXMLTable(ctr_crit_table).TagValue;
739: vCtr:=vCtr+1;
740: END LOOP;
741: END IF;
742: --
741: END IF;
742: --
743: --
744: --
745: PER_DATA_UPDATE_REPORT.vXMLTable(vCtr).TagValue := '';
746: vCtr:=vCtr+1;
747: -- Write to XML
748: --
749: IF vXMLTable.count > 0 then
773: null;
774: END fetch_rtf_blob;
775:
776:
777: end PER_DATA_UPDATE_REPORT;