1 PACKAGE BODY PA_PAXPCIDF_XMLP_PKG AS
2 /* $Header: PAXPCIDFB.pls 120.0 2008/01/02 11:41:35 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 DECLARE
14 INIT_FAILURE EXCEPTION;
15 ORG_NAME HR_ORGANIZATION_UNITS.NAME%TYPE;
16 MEMBER_NAME VARCHAR2(240);
17 ROLE_TYPE VARCHAR2(80);
18 REL_STAT VARCHAR2(10);
19 ENTER_PARAM VARCHAR2(80);
20 NDF VARCHAR2(80);
21 INV_STAT VARCHAR2(30);
22 BEGIN
23 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
24 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
25 /*SRW.USER_EXIT('FND GETPROFILE
26 NAME="PA_DEBUG_MODE"
27 FIELD=":p_debug_mode"
28 PRINT_ERROR="N"')*/NULL;
29 P_RULE_OPTIMIZER := FND_PROFILE.VALUE('PA_RULE_BASED_OPTIMIZER');
30 IF (P_START_ORGANIZATION_ID IS NULL AND PROJECT_MEMBER IS NULL) THEN
31 BEGIN
32 SELECT
33 MEANING
34 INTO ENTER_PARAM
35 FROM
36 PA_LOOKUPS
37 WHERE LOOKUP_TYPE = 'ENTER VALUE'
38 AND LOOKUP_CODE = 'ENTER_ORG_MGR';
39 EXCEPTION
40 WHEN NO_DATA_FOUND THEN
41 /*SRW.MESSAGE(2
42 ,'Start ORg Not found ')*/NULL;
43 WHEN OTHERS THEN
44 /*SRW.MESSAGE(2
45 ,'Start ORG ' || SQLERRM)*/NULL;
46 END;
47 END IF;
48 C_ENTER := ENTER_PARAM;
49 IF INVOICE_STATUS IS NOT NULL THEN
50 BEGIN
51 SELECT
52 INITCAP(INVOICE_STATUS)
53 INTO INV_STAT
54 FROM
55 DUAL;
56 EXCEPTION
57 WHEN NO_DATA_FOUND THEN
58 /*SRW.MESSAGE(2
59 ,'Invoice Status No Data Found')*/NULL;
60 WHEN OTHERS THEN
61 /*SRW.MESSAGE(2
62 ,'InvStatus ' || SQLERRM)*/NULL;
63 END;
64 END IF;
65 C_INVOICE_STAT := INV_STAT;
66 IF INCLUDE_RELEASED_STATUS IS NOT NULL THEN
67 BEGIN
68 SELECT
69 MEANING
70 INTO REL_STAT
71 FROM
72 FND_LOOKUPS
73 WHERE LOOKUP_TYPE = 'YES_NO'
74 AND LOOKUP_CODE = INCLUDE_RELEASED_STATUS;
75 EXCEPTION
76 WHEN NO_DATA_FOUND THEN
77 /*SRW.MESSAGE(2
78 ,'Include Released Not found ')*/NULL;
79 WHEN OTHERS THEN
80 /*SRW.MESSAGE(2
81 ,'Incl.Rel ' || SQLERRM)*/NULL;
82 END;
83 END IF;
84 C_RELEASED := REL_STAT;
85 IF P_START_ORGANIZATION_ID IS NOT NULL THEN
86 BEGIN
87 SELECT
88 SUBSTR(NAME
89 ,1
90 ,60)
91 INTO ORG_NAME
92 FROM
93 HR_ORGANIZATION_UNITS
94 WHERE ORGANIZATION_ID = P_START_ORGANIZATION_ID;
95 EXCEPTION
96 WHEN NO_DATA_FOUND THEN
97 /*SRW.MESSAGE(2
98 ,'start org name not found ')*/NULL;
99 WHEN OTHERS THEN
100 /*SRW.MESSAGE(2
101 ,'start orgname ' || SQLERRM)*/NULL;
102 END;
103 END IF;
104 C_START_ORG := ORG_NAME;
105 IF PROJECT_MEMBER IS NOT NULL THEN
106 BEGIN
107 SELECT
108 FULL_NAME
109 INTO MEMBER_NAME
110 FROM
111 PER_PEOPLE_F
112 WHERE PERSON_ID = PROJECT_MEMBER
113 AND sysdate between EFFECTIVE_START_DATE
114 AND NVL(EFFECTIVE_END_DATE
115 ,SYSDATE + 1)
116 AND ( CURRENT_NPW_FLAG = 'Y'
117 OR CURRENT_EMPLOYEE_FLAG = 'Y' )
118 AND DECODE(CURRENT_NPW_FLAG
119 ,'Y'
120 ,NPW_NUMBER
121 ,EMPLOYEE_NUMBER) IS NOT NULL;
122 EXCEPTION
123 WHEN NO_DATA_FOUND THEN
124 /*SRW.MESSAGE(2
125 ,'Project Member Name not found ')*/NULL;
126 WHEN OTHERS THEN
127 /*SRW.MESSAGE(2
128 ,'ProjectMember ' || SQLERRM)*/NULL;
129 END;
130 END IF;
131 C_PROJECT_MEMBER := MEMBER_NAME;
132 IF PROJECT_ROLE_TYPE IS NOT NULL THEN
133 BEGIN
134 SELECT
135 MEANING
136 INTO ROLE_TYPE
137 FROM
138 PA_PROJECT_ROLE_TYPES
139 WHERE PROJECT_ROLE_TYPE = PROJECT_ROLE_TYPE;
140 EXCEPTION
141 WHEN NO_DATA_FOUND THEN
142 /*SRW.MESSAGE(2
143 ,'RoleType not found')*/NULL;
144 WHEN OTHERS THEN
145 /*SRW.MESSAGE(2
146 ,'RoleType ' || SQLERRM)*/NULL;
147 END;
148 END IF;
149 C_ROLE_TYPE := ROLE_TYPE;
150 IF INVOICE_AMOUNT_RANGE IS NOT NULL THEN
151 IF INVOICE_AMOUNT_RANGE = 'All' THEN
152 LOW_RANGE := -9999999999999.99;
153 HIGH_RANGE := 9999999999999.99;
154 ELSIF INVOICE_AMOUNT_RANGE = 'Amount1' THEN
155 LOW_RANGE := -9999999999999.99;
156 HIGH_RANGE := 24999.99;
157 ELSIF INVOICE_AMOUNT_RANGE = 'Amount2' THEN
158 LOW_RANGE := 25000.00;
159 HIGH_RANGE := 99999.99;
160 ELSIF INVOICE_AMOUNT_RANGE = 'Amount3' THEN
161 LOW_RANGE := 100000.00;
162 HIGH_RANGE := 9999999999999.99;
163 END IF;
164 END IF;
165 IF (GET_COMPANY_NAME <> TRUE) THEN
166 RAISE INIT_FAILURE;
167 END IF;
168 IF (GET_START_ORG <> TRUE) THEN
169 RAISE INIT_FAILURE;
170 END IF;
171 BEGIN
172 SELECT
173 MEANING
174 INTO NDF
175 FROM
176 PA_LOOKUPS
177 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
178 AND LOOKUP_TYPE = 'MESSAGE';
179 C_NO_DATA_FOUND := NDF;
180 EXCEPTION
181 WHEN NO_DATA_FOUND THEN
182 /*SRW.MESSAGE(2
183 ,'MEANING not found ')*/NULL;
184 WHEN OTHERS THEN
185 /*SRW.MESSAGE(2
186 ,'Meaning ' || SQLERRM)*/NULL;
187 END;
188 EXCEPTION
189 WHEN NO_DATA_FOUND THEN
190 SELECT
191 MEANING
192 INTO NDF
193 FROM
194 PA_LOOKUPS
195 WHERE LOOKUP_CODE = 'NO_DATA_FOUND'
196 AND LOOKUP_TYPE = 'MESSAGE';
197 C_NO_DATA_FOUND := NDF;
198 C_DUMMY_DATA := 1;
199 WHEN OTHERS THEN
200 /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
201 END;
202 LCREATION_DATE_FROM:=to_char(CREATION_DATE_FROM,'DD-MON-YY');
203 LCREATION_DATE_TO:=to_char(CREATION_DATE_TO,'DD-MON-YY');
204 RETURN (TRUE);
205 END BEFOREREPORT;
206
207 FUNCTION GET_COMPANY_NAME RETURN BOOLEAN IS
208 L_NAME GL_SETS_OF_BOOKS.NAME%TYPE;
209 BEGIN
210 SELECT
211 GL.NAME
212 INTO L_NAME
213 FROM
214 GL_SETS_OF_BOOKS GL,
215 PA_IMPLEMENTATIONS PI
216 WHERE GL.SET_OF_BOOKS_ID = PI.SET_OF_BOOKS_ID;
217 C_COMPANY_NAME_HEADER := L_NAME;
218 RETURN (TRUE);
219 EXCEPTION
220 WHEN OTHERS THEN
221 /*SRW.MESSAGE(2
222 ,'GetCompanyName ' || SQLERRM)*/NULL;
223 RETURN (FALSE);
224 END GET_COMPANY_NAME;
225
226 FUNCTION GET_START_ORG RETURN BOOLEAN IS
227 C_START_ORGANIZATION_ID NUMBER;
228 BEGIN
229 SELECT
230 DECODE(P_START_ORGANIZATION_ID
231 ,NULL
232 ,START_ORGANIZATION_ID
233 ,P_START_ORGANIZATION_ID)
234 INTO C_START_ORGANIZATION_ID
235 FROM
236 PA_IMPLEMENTATIONS;
237 INSERT INTO PA_ORG_REPORTING_SESSIONS
238 (START_ORGANIZATION_ID
239 ,SESSION_ID)
240 VALUES (C_START_ORGANIZATION_ID
241 ,USERENV('SESSIONID'));
242 RETURN (TRUE);
243 EXCEPTION
244 WHEN OTHERS THEN
245 /*SRW.MESSAGE(2
246 ,'getstartorg ' || SQLERRM)*/NULL;
247 RETURN (FALSE);
248 END GET_START_ORG;
249
250 FUNCTION G_PROJECT_ORGANIZATIONGROUPFIL RETURN BOOLEAN IS
251 BEGIN
252 BEGIN
253 IF P_START_ORGANIZATION_ID IS NULL THEN
254 IF PROJECT_MEMBER IS NULL THEN
255 RETURN (FALSE);
256 ELSE
257 RETURN (TRUE);
258 END IF;
259 ELSE
260 RETURN (TRUE);
261 END IF;
262 END;
263 RETURN (TRUE);
264 END G_PROJECT_ORGANIZATIONGROUPFIL;
265
266 FUNCTION AFTERREPORT RETURN BOOLEAN IS
267 BEGIN
268 BEGIN
269 ROLLBACK;
270 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
271 END;
272 RETURN (TRUE);
273 END AFTERREPORT;
274
275 FUNCTION CF_CURRENCY_CODEFORMULA RETURN VARCHAR2 IS
276 BEGIN
277 RETURN (PA_MULTI_CURRENCY.GET_ACCT_CURRENCY_CODE);
278 END CF_CURRENCY_CODEFORMULA;
279
280 FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
281 BEGIN
282 RETURN C_COMPANY_NAME_HEADER;
283 END C_COMPANY_NAME_HEADER_P;
284
285 FUNCTION LOW_RANGE_P RETURN NUMBER IS
286 BEGIN
287 RETURN LOW_RANGE;
288 END LOW_RANGE_P;
289
290 FUNCTION HIGH_RANGE_P RETURN NUMBER IS
291 BEGIN
292 RETURN HIGH_RANGE;
293 END HIGH_RANGE_P;
294
295 FUNCTION C_START_ORG_P RETURN VARCHAR2 IS
296 BEGIN
297 RETURN C_START_ORG;
298 END C_START_ORG_P;
299
300 FUNCTION C_PROJECT_MEMBER_P RETURN VARCHAR2 IS
301 BEGIN
302 RETURN C_PROJECT_MEMBER;
303 END C_PROJECT_MEMBER_P;
304
305 FUNCTION C_ROLE_TYPE_P RETURN VARCHAR2 IS
306 BEGIN
307 RETURN C_ROLE_TYPE;
308 END C_ROLE_TYPE_P;
309
310 FUNCTION C_RELEASED_P RETURN VARCHAR2 IS
311 BEGIN
312 RETURN C_RELEASED;
313 END C_RELEASED_P;
314
315 FUNCTION C_ENTER_P RETURN VARCHAR2 IS
316 BEGIN
317 RETURN C_ENTER;
318 END C_ENTER_P;
319
320 FUNCTION C_NO_DATA_FOUND_P RETURN VARCHAR2 IS
321 BEGIN
322 RETURN C_NO_DATA_FOUND;
323 END C_NO_DATA_FOUND_P;
324
325 FUNCTION C_DUMMY_DATA_P RETURN NUMBER IS
326 BEGIN
327 RETURN C_DUMMY_DATA;
328 END C_DUMMY_DATA_P;
329
330 FUNCTION C_INVOICE_STAT_P RETURN VARCHAR2 IS
331 BEGIN
332 RETURN C_INVOICE_STAT;
333 END C_INVOICE_STAT_P;
334
335 END PA_PAXPCIDF_XMLP_PKG;
336