1 package body PJI_PAGE_LAYOUTS as
2 /* $Header: PJIPGLYTB.pls 120.0 2005/05/29 12:31:01 appldev noship $ */
3 --Function for returning page_id
4 FUNCTION PJI_PAGE_ID(
5 p_project_id IN Number,
6 p_page_type_code IN varchar2
7 ) return number
8 IS
9 l_page_id number ;
10
11 CURSOR c_get_page_id is
12 SELECT page_id
13 FROM pa_page_layouts play,
14 pa_projects_all proj,
15 pa_project_types_all ptype
16 WHERE 1=1
17 AND proj.PROJECT_ID =p_project_id
18 AND play.PAGE_TYPE_CODE =p_page_type_code
19 AND proj.PROJECT_TYPE = ptype.PROJECT_TYPE
20 AND play.PERS_FUNCTION_NAME = 'PJI_REP_PP_' || ptype.PROJECT_TYPE_CLASS_CODE
21 AND proj.ORG_ID = ptype.ORG_ID
22 AND play.page_id < 1000;
23
24 Begin
25 if (p_project_id = null OR p_page_type_code = null ) then
26 return null;
27 end if;
28
29 Open c_get_page_id;
30 Fetch c_get_page_id into l_page_id;
31 Close c_get_page_id;
32
33 return l_page_id;
34
35 EXCEPTION
36 WHEN OTHERS THEN
37 return null;
38
39
40
41 END PJI_PAGE_ID;
42
43 -- Function for returning page_name
44 FUNCTION PJI_PAGE_NAME(
45 p_project_id IN Number,
46 p_page_type_code IN varchar2
47 ) return varchar2
48 IS
49 l_page_name varchar2(300);
50
51 CURSOR c_get_page_name is
52 SELECT page_name
53 FROM pa_page_layouts play,
54 pa_projects_all proj,
55 pa_project_types_all ptype
56 WHERE 1=1
57 AND proj.PROJECT_ID =p_project_id
58 AND play.PAGE_TYPE_CODE =p_page_type_code
59 AND proj.PROJECT_TYPE = ptype.PROJECT_TYPE
60 AND play.PERS_FUNCTION_NAME = 'PJI_REP_PP_' || ptype.PROJECT_TYPE_CLASS_CODE
61 AND proj.ORG_ID = ptype.ORG_ID
62 AND play.page_id < 1000;
63
64 Begin
65 if (p_project_id = null OR p_page_type_code = null ) then
66 return null;
67 end if;
68
69 Open c_get_page_name;
70 Fetch c_get_page_name into l_page_name;
71 Close c_get_page_name;
72
73 return l_page_name;
74
75 EXCEPTION
76 WHEN OTHERS THEN
77 return null;
78
79 END PJI_PAGE_NAME;
80
81 END PJI_PAGE_LAYOUTS;