1: package body PA_REPORT_TYPES_UTILS as
2: /* $Header: PARTYPUB.pls 120.1 2005/08/19 17:02:40 mwasowic noship $ */
3:
4: Procedure get_page_id_from_layout(p_init_msg_list IN VARCHAR2 := 'T',
5: p_page_layout IN VARCHAR2,
43:
44: begin
45: select name
46: into x_name
47: from pa_report_types
48: where report_type_id = p_report_type_id;
49: exception
50: when no_data_found then
51: x_return_status := 'E';
67: l_return_char varchar2(1) := 'N';
68: begin
69: select 'Y'
70: into l_return_char
71: from pa_report_types
72: where page_id = p_page_id;
73:
74: return l_return_char;
75:
76: exception when others then
77: return 'N';
78: end;
79:
80: END PA_REPORT_TYPES_UTILS;
81: