[Home] [Help]
PACKAGE BODY: APPS.PA_PAXPRWBS_XMLP_PKG
Source
1 PACKAGE BODY PA_PAXPRWBS_XMLP_PKG AS
2 /* $Header: PAXPRWBSB.pls 120.0 2008/01/02 11:52:54 krreddy noship $ */
3
4 FUNCTION get_cover_page_values RETURN BOOLEAN IS
5
6 BEGIN
7
8 RETURN(TRUE);
9
10 EXCEPTION
11 WHEN OTHERS THEN
12 RETURN(FALSE);
13
14 END;
15
16 function BeforeReport return boolean is
17 begin
18
19 Declare
20 init_failure exception;
21 tsk_number VARCHAR2(40);
22 tsk_name VARCHAR2(40);
23 proj_name VARCHAR2(40);
24 proj_number VARCHAR2(40);
25 BEGIN
26 /*srw.user_exit('FND SRWINIT');*/null;
27
28
29 /*srw.user_exit('FND GETPROFILE
30 NAME="PA_RULE_BASED_OPTIMIZER"
31 FIELD=":p_rule_optimizer"
32 PRINT_ERROR="N"');*/null;
33
34
35
36
37
38
39
40 /*srw.user_exit('FND GETPROFILE
41 NAME="PA_DEBUG_MODE"
42 FIELD=":p_debug_mode"
43 PRINT_ERROR="N"');*/null;
44
45
46
47 TOP_TASK_ID1:=top_task_id;
48
49
50 IF (top_task_id1 is not null
51 and top_task_id <> 'All') then
52 select task_name,task_number
53 into tsk_name,tsk_number
54 from pa_tasks where top_task_id1 = task_id;
55 end if;
56
57 c_top_task_number := tsk_number;
58 c_top_task_name := tsk_name;
59
60 IF proj is not null then
61 select segment1,name
62 into proj_number,proj_name
63 from pa_projects where proj = project_id;
64 end if;
65 c_project_name := proj_name;
66 c_project_number := proj_number;
67
68 IF (get_company_name <> TRUE) THEN RAISE init_failure;
69 END IF;
70 IF (no_data_found_func <> TRUE) THEN
71 RAISE init_failure;
72 END IF;
73 EXCEPTION
74 WHEN OTHERS THEN
75 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
76
77 END; return (TRUE);
78 end;
79
80 FUNCTION get_company_name RETURN BOOLEAN IS
81 l_name gl_sets_of_books.name%TYPE;
82 BEGIN
83 SELECT gl.name
84 INTO l_name
85 FROM gl_sets_of_books gl,pa_implementations pi
86 WHERE gl.set_of_books_id = pi.set_of_books_id;
87
88 c_company_name_header := l_name;
89
90 RETURN (TRUE);
91
92 EXCEPTION
93
94 WHEN OTHERS THEN
95 RETURN (FALSE);
96
97 END;
98
99 FUNCTION NO_DATA_FOUND_FUNC RETURN BOOLEAN IS
100
101 message_name VARCHAR2(80);
102
103 begin
104 select meaning into message_name from pa_lookups
105 where lookup_type = 'MESSAGE'
106 and lookup_code = 'NO_DATA_FOUND';
107
108 c_no_data_found := message_name;
109
110 return(TRUE);
111
112 EXCEPTION
113 WHEN OTHERS THEN
114 RETURN(FALSE);
115 END;
116
117 function AfterReport return boolean is
118 begin
119
120 BEGIN
121 /*srw.user_exit('FND SRWEXIT');*/null;
122
123 END; return (TRUE);
124 end;
125
126 --Functions to refer Oracle report placeholders--
127
128 Function C_COMPANY_NAME_HEADER_p return varchar2 is
129 Begin
130 return C_COMPANY_NAME_HEADER;
131 END;
132 Function c_no_data_found_p return varchar2 is
133 Begin
134 return c_no_data_found;
135 END;
136 Function C_top_task_number_p return varchar2 is
137 Begin
138 return C_top_task_number;
139 END;
140 Function C_top_task_name_p return varchar2 is
141 Begin
142 return C_top_task_name;
143 END;
144 Function C_project_number_p return varchar2 is
145 Begin
146 return C_project_number;
147 END;
148 Function c_project_name_p return varchar2 is
149 Begin
150 return c_project_name;
151 END;
152 END PA_PAXPRWBS_XMLP_PKG ;
153