1 PACKAGE BODY PA_PAXCCGLA_XMLP_PKG AS
2 /* $Header: PAXCCGLAB.pls 120.0 2008/01/02 11:23:22 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 GET_COVER_PAGE_VALUES;
10
11 function BeforeReport return boolean is
12 begin
13
14 Declare
15 init_failure exception;
16 ndf VARCHAR2(80);
17 tmp_usr_je_sname VARCHAR2(25);
18 tmp_gl_start DATE;
19 tmp_gl_end DATE;
20 tmp_period_set VARCHAR2(15);
21 BEGIN
22 /*srw.user_exit('FND SRWINIT');*/null;
23
24 P_FROM_INTERFACE_DATE1 := TO_CHAR(P_FROM_INTERFACE_DATE,'DD-MON-YY');
25 P_TO_INTERFACE_DATE1 := TO_CHAR(P_TO_INTERFACE_DATE,'DD-MON-YY');
26 IF (get_company_name <> TRUE) THEN RAISE init_failure;
27 END IF;
28
29 select meaning into ndf from pa_lookups where
30 lookup_code = 'NO_DATA_FOUND' and
31 lookup_type = 'MESSAGE';
32 c_no_data_found := ndf;
33
34 SELECT user_je_source_name INTO tmp_usr_je_sname
35 FROM gl_je_sources WHERE
36 je_source_name = 'Project Accounting' ;
37 cp_usr_je_sname := tmp_usr_je_sname ;
38
39 SELECT period_set_name INTO tmp_period_set
40 FROM gl_sets_of_books
41
42 WHERE set_of_books_id = p_ca_set_of_books_id ;
43
44 IF p_from_periods IS NOT NULL THEN
45 SELECT start_date INTO tmp_gl_start
46 FROM gl_periods
47 WHERE period_set_name = tmp_period_set
48 AND period_name = p_from_periods ;
49 END IF;
50
51 cp_gl_start := tmp_gl_start ;
52
53 IF p_to_period IS NOT NULL THEN
54 SELECT end_date INTO tmp_gl_end
55 FROM gl_periods
56 WHERE period_set_name = tmp_period_set
57 AND period_name = p_to_period ;
58 END IF;
59 cp_gl_start := tmp_gl_start ;
60 cp_gl_end := tmp_gl_end ;
61
62 IF (cp_gl_start is not null AND cp_gl_end is not null) THEN
63 l_where_clause := 'gl_date BETWEEN ''' || to_char( cp_gl_start,'DD-MON-YYYY') || ''' AND ''' || to_char( cp_gl_end , 'DD-MON-YYYY') || '''';
64 ELSIF (cp_gl_start is null AND cp_gl_end is null) THEN
65 l_where_clause := '1=1';
66 ELSIF (cp_gl_start is null AND cp_gl_end is not null) THEN
67 l_where_clause := 'gl_date <= '''||to_char(cp_gl_end,'DD-MON-YYYY')||'''';
68 ELSE
69 l_where_clause := 'gl_date >= '''||to_char(cp_gl_start,'DD_MON-YYYY')||'''';
70 END IF;
71
72 null;
73 EXCEPTION
74 WHEN NO_DATA_FOUND THEN
75 select meaning into ndf from pa_lookups where
76 lookup_code = 'NO_DATA_FOUND' and
77 lookup_type = 'MESSAGE';
78 c_no_data_found := ndf;
79 c_dummy_data := 1;
80 WHEN OTHERS THEN
81 RAISE_application_error(-20101,null);/*SRW.PROGRAM_ABORT;*/null;
82
83 END; return (TRUE);
84 end;
85
86 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
87 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
88 BEGIN
89 SELECT
90 GL.NAME
91 INTO
92 L_NAME
93 FROM
94 GL_SETS_OF_BOOKS GL
95 WHERE GL.SET_OF_BOOKS_ID = P_CA_SET_OF_BOOKS_ID;
96 C_COMPANY_NAME_HEADER := L_NAME;
97 RETURN (TRUE);
98 EXCEPTION
99 WHEN OTHERS THEN
100 RETURN (FALSE);
101 END GET_COMPANY_NAME;
102
103 FUNCTION CF_ACCT_CURRENCY_CODEFORMULA RETURN VARCHAR2 IS
104 L_CURR_CODE VARCHAR2(30);
105 BEGIN
106 SELECT
107 CURRENCY_CODE
108 INTO
109 L_CURR_CODE
110 FROM
111 GL_SETS_OF_BOOKS
112 WHERE SET_OF_BOOKS_ID = P_CA_SET_OF_BOOKS_ID;
113 RETURN (L_CURR_CODE);
114 END CF_ACCT_CURRENCY_CODEFORMULA;
115
116 FUNCTION CF_FROM_DATEFORMULA RETURN DATE IS
117 BEGIN
118 RETURN P_FROM_INTERFACE_DATE1;
119 END CF_FROM_DATEFORMULA;
120
121 FUNCTION CF_TO_DATEFORMULA RETURN DATE IS
122 BEGIN
123 RETURN P_TO_INTERFACE_DATE1;
124 END CF_TO_DATEFORMULA;
125
126 FUNCTION AFTERREPORT RETURN BOOLEAN IS
127 BEGIN
128 RETURN (TRUE);
129 END AFTERREPORT;
130
131 FUNCTION ACCOUNT_IDFORMULA(CODE_COMBINATION_ID IN NUMBER) RETURN VARCHAR2 IS
132 BEGIN
133 RETURN FND_FLEX_EXT.GET_SEGS('SQLGL'
134 ,'GL#'
135 ,P_COA_ID
136 ,CODE_COMBINATION_ID);
137 END ACCOUNT_IDFORMULA;
138
139 FUNCTION AFTERPFORM RETURN BOOLEAN IS
140 BEGIN
141 RETURN (TRUE);
142 END AFTERPFORM;
143
144 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
145 BEGIN
146 RETURN C_COMPANY_NAME_HEADER;
147 END C_COMPANY_NAME_HEADER_P;
148
149 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
150 BEGIN
151 RETURN C_NO_DATA_FOUND;
152 END C_NO_DATA_FOUND_P;
153
154 FUNCTION C_DUMMY_DATA_P RETURN NUMBER IS
155 BEGIN
156 RETURN C_DUMMY_DATA;
157 END C_DUMMY_DATA_P;
158
159 FUNCTION CP_WHERE_P RETURN VARCHAR2 IS
160 BEGIN
161 RETURN CP_WHERE;
162 END CP_WHERE_P;
163
164 FUNCTION CP_GL_START_P RETURN DATE IS
165 BEGIN
166 RETURN CP_GL_START;
167 END CP_GL_START_P;
168
169 FUNCTION CP_GL_END_P RETURN DATE IS
170 BEGIN
171 RETURN CP_GL_END;
172 END CP_GL_END_P;
173
174 FUNCTION CP_USR_JE_SNAME_P RETURN VARCHAR2 IS
175 BEGIN
176 RETURN CP_USR_JE_SNAME;
177 END CP_USR_JE_SNAME_P;
178
179 END PA_PAXCCGLA_XMLP_PKG;
180