[Home] [Help]
PACKAGE BODY: APPS.PA_REPORT_TYPES_UTILS
Source
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,
6 x_page_id OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
7 x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
8 x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
9 x_msg_data OUT NOCOPY VARCHAR2) IS --File.Sql.39 bug 4440895
10
11 Begin
12 x_return_status := 'S';
13
14 if nvl(p_init_msg_list,'T') = 'T' then
15 fnd_msg_pub.initialize;
16 end if;
17
18 begin
19 select page_id
20 into x_page_id
21 from pa_page_layouts
22 where page_type_code = 'PPR'
23 and page_name = p_page_layout
24 and trunc(SYSDATE) between trunc(Start_Date_Active) and nvl(trunc(End_Date_Active),trunc(SYSDATE));
25 exception
26 when no_data_found then
27 x_return_status := 'E';
28 PA_UTILS.Add_Message( p_app_short_name => 'PA'
29 ,p_msg_name => 'PA_PAGE_LAYOUT_NAME_INV');
30 end ;
31
32 End get_page_id_from_layout;
33
34 Procedure get_report_type_info( p_report_type_id IN NUMBER,
35 x_name OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
36 x_return_status OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
37 x_msg_count OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
38 x_msg_data OUT NOCOPY VARCHAR2) IS --File.Sql.39 bug 4440895
39
40 l_msg_index_out NUMBER;
41 Begin
42 x_return_status := 'S';
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';
52 PA_UTILS.Add_Message( p_app_short_name => 'PA'
53 ,p_msg_name => 'PA_REPORT_NAME_INV');
54 end ;
55 x_msg_count := FND_MSG_PUB.Count_Msg;
56 If x_msg_count = 1 then
57 pa_interface_utils_pub.get_messages(p_encoded => FND_API.G_TRUE
58 ,p_msg_index => 1
59 ,p_data => x_msg_data
60 ,p_msg_index_out => l_msg_index_out
61 );
62 end if;
63
64 End get_report_type_info;
65
66 Function page_used_by_report_type (p_page_id IN NUMBER) return varchar2 Is
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