1 PACKAGE BODY PA_PAXMGSLD_XMLP_PKG AS
2 /* $Header: PAXMGSLDB.pls 120.1 2008/01/03 11:15:05 krreddy noship $ */
3 FUNCTION get_cover_page_values RETURN BOOLEAN IS
4 BEGIN
5 RETURN(TRUE);
6 EXCEPTION
7 WHEN OTHERS THEN
8 RETURN(FALSE);
9 END;
10 function BeforeReport return boolean is
11 begin
12 Declare
13 init_failure exception;
14 ndf VARCHAR2(80);
15 BEGIN
16
17 /*srw.user_exit('FND SRWINIT');*/null;
18 CP_from_date_1 := to_char(P_FROM_GL_DATE,'DD-MON-YY');
19 CP_to_date_1 := to_char(P_TO_GL_DATE,'DD-MON-YY');
20 /*srw.user_exit('FND GETPROFILE
21 NAME="PA_DEBUG_MODE"
22 FIELD=":p_debug_mode"
23 PRINT_ERROR="N"');*/null;
24 /*srw.user_exit('FND GETPROFILE
25 NAME="PA_RULE_BASED_OPTIMIZER"
26 FIELD=":p_rule_optimizer"
27 PRINT_ERROR="N"');*/null;
28 IF (get_company_name <> TRUE) THEN
29 RAISE init_failure;
30 END IF;
31 select meaning into ndf from pa_lookups where
32 lookup_code = 'NO_DATA_FOUND' and
33 lookup_type = 'MESSAGE';
34 c_no_data_found := ndf;
35 null;
36 /*srw.reference(P_COA_ID);*/null;
37 null;
38 null;
39 IF p_sort_type = 'P' AND p_project_id IS NOT NULL THEN
40 select distinct project_number into p_from_project
41 from pa_proj_cost_subledger_v
42 where project_id = p_project_id ;
43 END IF;
44 EXCEPTION
45 WHEN NO_DATA_FOUND THEN
46 select meaning into ndf from pa_lookups where
47 lookup_code = 'NO_DATA_FOUND' and
48 lookup_type = 'MESSAGE';
49 c_no_data_found := ndf;
50 c_dummy_data := 1;
51 WHEN OTHERS THEN
52 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
53 END; return (TRUE);
54 end;
55 FUNCTION get_company_name RETURN BOOLEAN IS
56 l_name gl_sets_of_books.name%TYPE;
57 BEGIN
58 SELECT gl.name
59 INTO l_name
60 FROM gl_sets_of_books gl
61 WHERE gl.set_of_books_id = p_ca_set_of_books_id;
62 c_company_name_header := l_name;
63 RETURN (TRUE);
64 EXCEPTION
65 WHEN OTHERS THEN
66 RETURN (FALSE);
67 END;
68 function cf_account_idformula(code_combination_id in number) return varchar2 is
69 begin
70 RETURN fnd_flex_ext.get_segs('SQLGL', 'GL#', p_coa_id, code_combination_id);
71 end;
72 function cf_account_id1formula(code_combination_id1 in number) return varchar2 is
73 begin
74 RETURN fnd_flex_ext.get_segs('SQLGL', 'GL#', p_coa_id, code_combination_id1);
75 end;
76 function CP_from_dateFormula return date is
77 begin
78 RETURN p_from_gl_date ;
79 end;
80 function CP_to_dateFormula return Date is
81 begin
82 RETURN p_to_gl_date ;
83 end;
84 function CF_CURR_CODEFormula return VARCHAR2 is
85 l_curr_code varchar2(30);
86 begin
87 select currency_code
88 into l_curr_code
89 from gl_sets_of_books
90 where set_of_books_id = p_ca_set_of_books_id;
91 return (l_curr_code);
92 end;
93 function AfterReport return boolean is
94 begin
95 /*srw.user_exit('FND SRWEXIT');*/null;
96 return (TRUE);
97 end;
98 function AfterPForm return boolean is
99 begin
100 return (TRUE);
101 end;
102 --Functions to refer Oracle report placeholders--
103 Function C_COMPANY_NAME_HEADER_p return varchar2 is
104 Begin
105 return C_COMPANY_NAME_HEADER;
106 END;
107 Function C_no_data_found_p return varchar2 is
108 Begin
109 return C_no_data_found;
110 END;
111 Function C_dummy_data_p return number is
112 Begin
113 return C_dummy_data;
114 END;
115 Function C_where_p return varchar2 is
116 Begin
117 return C_where;
118 END;
119 Function C_FLEXDATA2_p return varchar2 is
120 Begin
121 return C_FLEXDATA2;
122 END;
123 Function C_FLEXDATA1_p return varchar2 is
124 Begin
125 return C_FLEXDATA1;
126 END;
127 END PA_PAXMGSLD_XMLP_PKG ;
128