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