8: g_parameter_list PARAM_TABLE_TYPE;
9: g_rule_list RULE_TABLE_TYPE;
10: g_tpl_rule_id_list TPL_RULE_ID_TABLE_TYPE;
11:
12: g_current_runtime_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
14: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
15: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
16: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
9: g_rule_list RULE_TABLE_TYPE;
10: g_tpl_rule_id_list TPL_RULE_ID_TABLE_TYPE;
11:
12: g_current_runtime_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
14: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
15: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
16: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: g_error_buffer VARCHAR2(100);
10: g_tpl_rule_id_list TPL_RULE_ID_TABLE_TYPE;
11:
12: g_current_runtime_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
14: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
15: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
16: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: g_error_buffer VARCHAR2(100);
18:
11:
12: g_current_runtime_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
14: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
15: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
16: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: g_error_buffer VARCHAR2(100);
18:
19: -- procedure get_lang_territories
12: g_current_runtime_level CONSTANT NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
13: g_level_statement CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
14: g_level_procedure CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
15: g_level_event CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
16: g_level_unexpected CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
17: g_error_buffer VARCHAR2(100);
18:
19: -- procedure get_lang_territories
20: -- Description: fills attributes template_lang_territory_codes and template_lang_territory_desc
192: IS
193: BEGIN
194:
195: IF (g_level_statement >= g_current_runtime_level ) THEN
196: FND_LOG.STRING(g_level_statement,
197: 'xdo_dgf_rpt_pkg.get_context_reports.write_rule',
198: 'write_rule START: p_rule_id = ' || p_rule_id);
199: END IF;
200:
201: -- find out whether the corresponding catalog rule is already recorded
202: IF NOT l_rule_table.exists(p_rule_id) THEN
203:
204: IF (g_level_statement >= g_current_runtime_level ) THEN
205: FND_LOG.STRING(g_level_statement,
206: 'xdo_dgf_rpt_pkg.get_context_reports.write_rule',
207: 'go to fetch new RULE record; id = ' || p_rule_id);
208: END IF;
209:
245: -- end of local procedures
246:
247: BEGIN
248: IF (g_level_statement >= g_current_runtime_level ) THEN
249: FND_LOG.STRING(g_level_statement,
250: 'xdo_dgf_rpt_pkg.get_context_reports',
251: 'START: pp_form_code = ' || p_form_code
252: || ' p_block_code = ' || p_block_code);
253: END IF;
254:
255: fnd_profile.get('RESP_ID',l_resp_id);
256:
257: IF (g_level_statement >= g_current_runtime_level ) THEN
258: FND_LOG.STRING(g_level_statement,
259: 'xdo_dgf_rpt_pkg.get_context_reports',
260: 'RESP_ID = ' || l_resp_id);
261: END IF;
262:
280: l_template_table(j).template_lang_territory_codes,
281: l_template_table(j).template_lang_territory_desc);
282:
283: IF (g_level_statement >= g_current_runtime_level ) THEN
284: FND_LOG.STRING(g_level_statement,
285: 'xdo_dgf_rpt_pkg.get_context_reports',
286: 'l_template_table(' || j || ').template_lang_territory_codes=' || l_template_table(j).template_lang_territory_codes || ';' ||
287: 'l_template_table(' || j || ').template_lang_territory_desc=' || l_template_table(j).template_lang_territory_desc);
288: END IF;
348: TYPE ref_cursor_type is REF CURSOR;
349: c_params ref_cursor_type;
350: BEGIN
351: IF (g_level_statement >= g_current_runtime_level ) THEN
352: FND_LOG.STRING(g_level_statement,
353: 'xdo_dgf_rpt_pkg.get_report_parameters',
354: 'START');
355: END IF;
356:
381: p_parameters(i).parameter_name := l_parameter_name; -- added 29.11.2006 - new column PARAMETER_NAME
382: END LOOP;
383:
384: IF (g_level_statement >= g_current_runtime_level ) THEN
385: FND_LOG.STRING(g_level_statement,
386: 'xdo_dgf_rpt_pkg.get_report_parameters',
387: 'END: p_parameters.count = ' || p_parameters.count);
388: END IF;
389:
435: k integer := 1;
436: j integer;
437: BEGIN
438: IF (g_level_statement >= g_current_runtime_level ) THEN
439: FND_LOG.STRING(g_level_statement,
440: 'xdo_dgf_rpt_pkg.apply_tpl_rules',
441: 'START ...p_template_list.count = ' || p_template_list.count);
442: END IF;
443:
453: IF p_template_list(i).first_r_id <> -1 THEN
454: j := p_template_list(i).first_r_id;
455:
456: IF (g_level_statement >= g_current_runtime_level ) THEN
457: FND_LOG.STRING(g_level_statement,
458: 'xdo_dgf_rpt_pkg.apply_tpl_rules',
459: 'p_template_list(i).template_code = ' || p_template_list(i).template_code
460: || ' p_template_list(i).first_r_id = '|| p_template_list(i).first_r_id);
461: END IF;
477: -- logging
478: IF p_rule_list(p_tpl_rule_id_list(j).rule_id).return_value THEN
479:
480: IF (g_level_statement >= g_current_runtime_level ) THEN
481: FND_LOG.STRING(g_level_statement,
482: 'xdo_dgf_rpt_pkg.apply_tpl_rules',
483: 'j=' || j ||
484: ' p_rule_list(p_tpl_rule_id_list(j).rule_id).return_value = TRUE');
485: END IF;
486:
487: ELSE
488:
489: IF (g_level_statement >= g_current_runtime_level ) THEN
490: FND_LOG.STRING(g_level_statement,
491: 'xdo_dgf_rpt_pkg.apply_tpl_rules',
492: 'j=' || j ||
493: ' p_rule_list(p_tpl_rule_id_list(j).rule_id).return_value = FALSE');
494: END IF;
537: END LOOP;
538: return l_template_list;
539: --log('xxobl_report_pkg.apply_tpl_rules - END ...');
540: IF (g_level_statement >= g_current_runtime_level ) THEN
541: FND_LOG.STRING(g_level_statement,
542: 'xdo_dgf_rpt_pkg.apply_tpl_rules',
543: 'END');
544: END IF;
545:
554: g_tpl_rule_id_list);
555:
556: -- remove reports with no templates
557: IF (g_level_statement >= g_current_runtime_level ) THEN
558: FND_LOG.STRING(g_level_statement,
559: 'xdo_dgf_rpt_pkg.filter_templates',
560: 'check for reports with no templates - start');
561: END IF;
562:
567: k INTEGER := 1; -- pointer na volnou bunku v l_report_list_final
568: l_no_more_templates BOOLEAN := false;
569: BEGIN
570: IF (g_level_statement >= g_current_runtime_level ) THEN
571: FND_LOG.STRING(g_level_statement,
572: 'xdo_dgf_rpt_pkg.filter_templates',
573: 'g_report_list.count = ' || g_report_list.count);
574: END IF;
575:
593: -- copy the result back to the global variable
594: g_report_list := l_report_list_final;
595:
596: IF (g_level_statement >= g_current_runtime_level ) THEN
597: FND_LOG.STRING(g_level_statement,
598: 'xdo_dgf_rpt_pkg.filter_templates',
599: 'l_report_list_final.count = '|| l_report_list_final.count);
600: END IF;
601: END;
667: IS
668: BEGIN
669:
670: IF (g_level_statement >= g_current_runtime_level ) THEN
671: FND_LOG.STRING(g_level_statement,
672: 'xdo_dgf_rpt_pkg.store_parameter_list',
673: 'START: p_parameter_list.count = ' || p_parameter_list.count);
674: END IF;
675: g_parameter_list := p_parameter_list;
678: FUNCTION get_report_list RETURN RPT_TABLE_TYPE
679: IS
680: BEGIN
681: IF (g_level_statement >= g_current_runtime_level ) THEN
682: FND_LOG.STRING(g_level_statement,
683: 'xdo_dgf_rpt_pkg.get_report_list',
684: 'START: g_report_list.count = ' || g_report_list.count);
685: END IF;
686:
697: IS
698: BEGIN
699:
700: IF (g_level_statement >= g_current_runtime_level ) THEN
701: FND_LOG.STRING(g_level_statement,
702: 'xdo_dgf_rpt_pkg.get_parameter_list',
703: 'START2: g_parameter_list.count = ' || g_parameter_list.count);
704: END IF;
705:
710: IS
711: BEGIN
712:
713: IF (g_level_statement >= g_current_runtime_level ) THEN
714: FND_LOG.STRING(g_level_statement,
715: 'xdo_dgf_rpt_pkg.get_rule_list',
716: 'START2: g_rule_list.count = ' || g_rule_list.count);
717: END IF;
718:
825: l_report_list_o XDO_DGF_RPT_TABLE_TYPE := XDO_DGF_RPT_TABLE_TYPE();
826: BEGIN
827:
828: IF (g_level_statement >= g_current_runtime_level ) THEN
829: FND_LOG.STRING(g_level_statement,
830: 'xdo_dgf_rpt_pkg.get_report_list_o',
831: 'g_report_list.count = '|| g_report_list.count);
832: END IF;
833: