[Home] [Help]
PACKAGE BODY: APPS.PER_PERUSE1L_XMLP_PKG
Source
1 PACKAGE BODY PER_PERUSE1L_XMLP_PKG AS
2 /* $Header: PERUSE1LB.pls 120.0 2008/01/07 12:31:49 srikrish noship $ */
3 --G_FILE_TYPE TEXT_IO.FILE_TYPE;
4
5 --G_IL_FEIN VARCHAR2(10);
6
7 --G_FILE_NAME VARCHAR2(30);
8
9 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
10 CURSOR C_DEFAULTS IS
11 SELECT
12 ORG_INFORMATION8,
13 ORG_INFORMATION9,
14 ORG_INFORMATION11,
15 ORG_INFORMATION12
16 FROM
17 HR_ORGANIZATION_INFORMATION
18 WHERE ORGANIZATION_ID = C_PARENT_ORG_ID
19 AND ORG_INFORMATION_CONTEXT = 'VETS_EEO_Dup';
20 L_DEFAULT C_DEFAULTS%ROWTYPE;
21 L_BUFFER VARCHAR2(1000);
22 G_DELIMITER VARCHAR2(1) := ',';
23 G_EOL VARCHAR2(1) := FND_GLOBAL.LOCAL_CHR(10);
24 L_DUMMY BOOLEAN;
25 BEGIN
26 --HR_STANDARD.EVENT('BEFORE REPORT');
27 L_DUMMY:=P_REPORT_YEARVALIDTRIGGER;
28 C_END_OF_TIME := hr_general.END_OF_TIME;
29 C_BUSINESS_GROUP_NAME := hr_reports.GET_BUSINESS_GROUP(P_BUSINESS_GROUP_ID);
30 C_MAXIMUM_NO_OF_EMPLOYEES := P_MAXIMUM_NO_OF_EMPLOYEES;
31 C_PAYROLL_PERIOD_DATE_START := FND_DATE.CANONICAL_TO_DATE(P_PAYROLL_PERIOD_DATE_START);
32 C_PAYROLL_PERIOD_DATE_END := FND_DATE.CANONICAL_TO_DATE(P_PAYROLL_PERIOD_DATE_END);
33 C_REPORT_YEAR := P_REPORT_YEAR;
34 C_REPORT_DATE := TRUNC(SYSDATE);
35 SELECT
36 PGH.NAME,
37 PGV.VERSION_NUMBER,
38 PGN.ENTITY_ID,
39 PGN.HIERARCHY_NODE_ID
40 INTO C_HIERARCHY_NAME,C_HIERARCHY_VERSION_NUM,C_PARENT_ORG_ID,C_PARENT_NODE_ID
41 FROM
42 PER_GEN_HIERARCHY PGH,
43 PER_GEN_HIERARCHY_VERSIONS PGV,
44 PER_GEN_HIERARCHY_NODES PGN
45 WHERE PGH.HIERARCHY_ID = P_HIERARCHY_ID
46 AND PGH.HIERARCHY_ID = PGV.HIERARCHY_ID
47 AND PGV.HIERARCHY_VERSION_ID = P_HIERARCHY_VERSION_ID
48 AND PGN.HIERARCHY_VERSION_ID = PGV.HIERARCHY_VERSION_ID
49 AND PGN.NODE_TYPE = 'PAR';
50 SELECT
51 COUNT(PGHN.HIERARCHY_NODE_ID)
52 INTO C_NO_OF_ESTABLISHMENTS
53 FROM
54 PER_GEN_HIERARCHY_NODES PGHN
55 WHERE PGHN.HIERARCHY_VERSION_ID = P_HIERARCHY_VERSION_ID
56 AND PGHN.NODE_TYPE = 'EST';
57 OPEN C_DEFAULTS;
58 FETCH C_DEFAULTS
59 INTO L_DEFAULT;
60 IF C_DEFAULTS%NOTFOUND THEN
61 NULL;
62 ELSE
63 DEFAULT_ACTIVITIES_LINE1 := UPPER(LTRIM(RTRIM(L_DEFAULT.ORG_INFORMATION8)));
64 DEFAULT_ACTIVITIES_LINE2 := UPPER(LTRIM(RTRIM(L_DEFAULT.ORG_INFORMATION9)));
65 DEFAULT_ACTIVITIES_LINE3 := UPPER(LTRIM(RTRIM(L_DEFAULT.ORG_INFORMATION11)));
66 DEFAULT_ACTIVITIES_LINE4 := UPPER(LTRIM(RTRIM(L_DEFAULT.ORG_INFORMATION12)));
67 END IF;
68 CLOSE C_DEFAULTS;
69 IF P_AUDIT_REPORT = 'Y' THEN
70 --OPEN;
71 NULL;
72 L_BUFFER := 'Person Id' || G_DELIMITER || 'Last Name' || G_DELIMITER || 'First Name' || G_DELIMITER || 'Employee Number' || G_DELIMITER || 'Gender' || G_DELIMITER || 'Ethnic Origin' || G_DELIMITER
73 || 'Assignment Id' || G_DELIMITER || 'Job Id' || G_DELIMITER || 'Job Name' || G_DELIMITER || 'Location Id' || G_DELIMITER || 'Location Code' || G_DELIMITER || G_EOL;
74 --PUT(L_BUFFER);
75 FND_FILE.PUT_LINE(FND_FILE.LOG,L_BUFFER);
76 END IF;
77 RETURN TRUE;
78 END BEFOREREPORT;
79
80 FUNCTION P_REPORT_YEARVALIDTRIGGER RETURN BOOLEAN IS
81 BEGIN
82 IF P_PAYROLL_PERIOD_DATE_END IS NOT NULL THEN
83 P_REPORT_YEAR := TO_CHAR(FND_DATE.CANONICAL_TO_DATE(P_PAYROLL_PERIOD_DATE_END)
84 ,'YYYY');
85 ELSE
86 P_REPORT_YEAR := TO_CHAR(SYSDATE
87 ,'YYYY');
88 END IF;
89 RETURN (TRUE);
90 END P_REPORT_YEARVALIDTRIGGER;
91
92 FUNCTION AFTERREPORT RETURN BOOLEAN IS
93 BEGIN
94 --HR_STANDARD.EVENT('AFTER REPORT');
95 IF P_AUDIT_REPORT = 'Y' THEN
96 --CLOSE;
97 NULL;
98 END IF;
99 RETURN (TRUE);
100 END AFTERREPORT;
101
102 FUNCTION C_TOT_ACTFORMULA(EST_NODE_ID IN NUMBER
103 ,HEADQUARTERS IN VARCHAR2) RETURN NUMBER IS
104 L_E_ACT1 VARCHAR2(150) := NULL;
105 L_E_ACT2 VARCHAR2(150) := NULL;
106 L_E_ACT3 VARCHAR2(150) := NULL;
107 L_E_ACT4 VARCHAR2(150) := NULL;
108 L_ACTIVITY VARCHAR2(150) := NULL;
109 L_DATE_END DATE := FND_DATE.CANONICAL_TO_DATE(P_PAYROLL_PERIOD_DATE_END);
110 L_DATE_START DATE := FND_DATE.CANONICAL_TO_DATE(P_PAYROLL_PERIOD_DATE_START);
111 L_COUNT_EMPS NUMBER := 0;
112 L_REPORT_EMPS NUMBER := 0;
113 L_BUFFER VARCHAR2(2000);
114 G_DELIMITER VARCHAR2(1) := ',';
115 G_EOL VARCHAR2(1) := FND_GLOBAL.LOCAL_CHR(10);
116 CURSOR C_EST IS
117 SELECT
118 NVL(HLEI1.LEI_INFORMATION5
119 ,DEFAULT_ACTIVITIES_LINE1),
120 NVL(HLEI1.LEI_INFORMATION6
121 ,DEFAULT_ACTIVITIES_LINE2),
122 NVL(HLEI1.LEI_INFORMATION7
123 ,DEFAULT_ACTIVITIES_LINE3),
124 NVL(HLEI1.LEI_INFORMATION8
125 ,DEFAULT_ACTIVITIES_LINE4)
126 FROM
127 HR_LOCATION_EXTRA_INFO HLEI1,
128 PER_GEN_HIERARCHY_NODES PGHN
129 WHERE ( HLEI1.INFORMATION_TYPE = 'EEO-1 Specific Information'
130 AND HLEI1.LEI_INFORMATION_CATEGORY = 'EEO-1 Specific Information' )
131 AND HLEI1.LOCATION_ID = PGHN.ENTITY_ID
132 AND PGHN.PARENT_HIERARCHY_NODE_ID = C_PARENT_NODE_ID
133 AND PGHN.HIERARCHY_NODE_ID = C_TOT_ACTFORMULA.EST_NODE_ID
134 AND PGHN.NODE_TYPE = 'EST';
135 CURSOR C_AUDIT_REPORT IS
136 SELECT
137 PEO.PERSON_ID,
138 PEO.LAST_NAME,
139 PEO.FIRST_NAME,
140 PEO.EMPLOYEE_NUMBER,
141 PEO.SEX,
142 PEO.PER_INFORMATION1 ETHNIC,
143 ASS.ASSIGNMENT_ID,
144 ASS.JOB_ID,
145 JOB.NAME JOB_NAME,
146 ASS.LOCATION_ID,
147 HL.LOCATION_CODE
148 FROM
149 PER_PEOPLE_F PEO,
150 PER_ASSIGNMENTS_F ASS,
151 PER_JOBS_VL JOB,
152 HR_LOCATIONS_ALL HL
153 WHERE PEO.PERSON_ID = ASS.PERSON_ID
154 AND PEO.PER_INFORMATION1 is not null
155 AND PEO.PER_INFORMATION_CATEGORY = 'US'
156 AND JOB.JOB_INFORMATION_CATEGORY = 'US'
157 AND L_DATE_START <= NVL(JOB.DATE_TO
158 ,L_DATE_START)
159 AND L_DATE_END >= JOB.DATE_FROM
160 AND JOB.JOB_INFORMATION1 is not NULL
161 AND ASS.JOB_ID = JOB.JOB_ID
162 AND PEO.EFFECTIVE_START_DATE = (
163 SELECT
164 MAX(PEO1.EFFECTIVE_START_DATE)
165 FROM
166 PER_PEOPLE_F PEO1
167 WHERE L_DATE_START <= PEO1.EFFECTIVE_END_DATE
168 AND L_DATE_END >= PEO1.EFFECTIVE_START_DATE
169 AND PEO.PERSON_ID = PEO1.PERSON_ID
170 AND PEO1.CURRENT_EMPLOYEE_FLAG = 'Y' )
171 AND ASS.EFFECTIVE_START_DATE = (
172 SELECT
173 MAX(ASS1.EFFECTIVE_START_DATE)
174 FROM
175 PER_ASSIGNMENTS_F ASS1
176 WHERE L_DATE_START <= ASS1.EFFECTIVE_END_DATE
177 AND L_DATE_END >= ASS1.EFFECTIVE_START_DATE
178 AND ASS.PERSON_ID = ASS1.PERSON_ID
179 AND ASS1.ASSIGNMENT_TYPE = 'E'
180 AND ASS1.PRIMARY_FLAG = 'Y' )
181 AND ASS.ASSIGNMENT_TYPE = 'E'
182 AND ASS.PRIMARY_FLAG = 'Y'
183 AND ASS.BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID
184 AND PEO.BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID
185 AND JOB.BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID
186 AND EXISTS (
187 SELECT
188 'X'
189 FROM
190 HR_ORGANIZATION_INFORMATION HOI1,
191 HR_ORGANIZATION_INFORMATION HOI2
192 WHERE TO_CHAR(ASS.ASSIGNMENT_STATUS_TYPE_ID) = HOI1.ORG_INFORMATION1
193 AND HOI1.ORG_INFORMATION_CONTEXT = 'Reporting Statuses'
194 AND HOI1.ORGANIZATION_ID = P_BUSINESS_GROUP_ID
195 AND ASS.EMPLOYMENT_CATEGORY = HOI2.ORG_INFORMATION1
196 AND HOI2.ORGANIZATION_ID = P_BUSINESS_GROUP_ID
197 AND HOI2.ORG_INFORMATION_CONTEXT = 'Reporting Categories' )
198 AND ASS.LOCATION_ID = HL.LOCATION_ID
199 AND ASS.LOCATION_ID in (
200 SELECT
201 DISTINCT
202 PGN.ENTITY_ID
203 FROM
204 PER_GEN_HIERARCHY_NODES PGN
205 WHERE PGN.HIERARCHY_VERSION_ID = P_HIERARCHY_VERSION_ID
206 AND ( PGN.HIERARCHY_NODE_ID = EST_NODE_ID
207 OR PGN.PARENT_HIERARCHY_NODE_ID = EST_NODE_ID )
208 AND PGN.NODE_TYPE in ( 'EST' , 'LOC' ) )
209 AND HEADQUARTERS = 'N';
210 BEGIN
211 OPEN C_EST;
212 FETCH C_EST
213 INTO L_E_ACT1,L_E_ACT2,L_E_ACT3,L_E_ACT4;
214 IF L_E_ACT1 IS NOT NULL THEN
215 L_ACTIVITY := RPAD(LTRIM(RTRIM(UPPER(L_E_ACT1)))
216 ,40);
217 END IF;
218 IF L_E_ACT2 IS NOT NULL THEN
219 L_ACTIVITY := RPAD(L_ACTIVITY || ' ' || (LTRIM(RTRIM(UPPER(L_E_ACT2))))
220 ,40);
221 END IF;
222 IF L_E_ACT3 IS NOT NULL THEN
223 L_ACTIVITY := RPAD(L_ACTIVITY || ' ' || (LTRIM(RTRIM(UPPER(L_E_ACT3))))
224 ,40);
225 END IF;
226 IF L_E_ACT4 IS NOT NULL THEN
227 L_ACTIVITY := RPAD(L_ACTIVITY || ' ' || (LTRIM(RTRIM(UPPER(L_E_ACT4))))
228 ,40);
229 END IF;
230 C_MAIN_ACTIVITY := L_ACTIVITY;
231 SELECT
232 COUNT('ass')
233 INTO L_REPORT_EMPS
234 FROM
235 PER_PEOPLE_F PEO,
236 PER_ASSIGNMENTS_F ASS,
237 PER_JOBS_VL JOB
238 WHERE PEO.PERSON_ID = ASS.PERSON_ID
239 AND PEO.PER_INFORMATION1 is not null
240 AND PEO.PER_INFORMATION_CATEGORY = 'US'
241 AND JOB.JOB_INFORMATION_CATEGORY = 'US'
242 AND L_DATE_START <= NVL(JOB.DATE_TO
243 ,L_DATE_START)
244 AND L_DATE_END >= JOB.DATE_FROM
245 AND JOB.JOB_INFORMATION1 is not NULL
246 AND ASS.JOB_ID = JOB.JOB_ID
247 AND PEO.EFFECTIVE_START_DATE = (
248 SELECT
249 MAX(PEO1.EFFECTIVE_START_DATE)
250 FROM
251 PER_PEOPLE_F PEO1
252 WHERE L_DATE_START <= PEO1.EFFECTIVE_END_DATE
253 AND L_DATE_END >= PEO1.EFFECTIVE_START_DATE
254 AND PEO.PERSON_ID = PEO1.PERSON_ID
255 AND PEO1.CURRENT_EMPLOYEE_FLAG = 'Y' )
256 AND ASS.EFFECTIVE_START_DATE = (
257 SELECT
258 MAX(ASS1.EFFECTIVE_START_DATE)
259 FROM
260 PER_ASSIGNMENTS_F ASS1
261 WHERE L_DATE_START <= ASS1.EFFECTIVE_END_DATE
262 AND L_DATE_END >= ASS1.EFFECTIVE_START_DATE
263 AND ASS.PERSON_ID = ASS1.PERSON_ID
264 AND ASS1.ASSIGNMENT_TYPE = 'E'
265 AND ASS1.PRIMARY_FLAG = 'Y' )
266 AND ASS.ASSIGNMENT_TYPE = 'E'
267 AND ASS.PRIMARY_FLAG = 'Y'
268 AND ASS.BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID
269 AND PEO.BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID
270 AND JOB.BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID
271 AND EXISTS (
272 SELECT
273 'X'
274 FROM
275 HR_ORGANIZATION_INFORMATION HOI1,
276 HR_ORGANIZATION_INFORMATION HOI2
277 WHERE TO_CHAR(ASS.ASSIGNMENT_STATUS_TYPE_ID) = HOI1.ORG_INFORMATION1
278 AND HOI1.ORG_INFORMATION_CONTEXT = 'Reporting Statuses'
279 AND HOI1.ORGANIZATION_ID = P_BUSINESS_GROUP_ID
280 AND ASS.EMPLOYMENT_CATEGORY = HOI2.ORG_INFORMATION1
281 AND HOI2.ORGANIZATION_ID = P_BUSINESS_GROUP_ID
282 AND HOI2.ORG_INFORMATION_CONTEXT = 'Reporting Categories' )
283 AND ASS.LOCATION_ID in (
284 SELECT
285 DISTINCT
286 PGN.ENTITY_ID
287 FROM
288 PER_GEN_HIERARCHY_NODES PGN
289 WHERE PGN.HIERARCHY_VERSION_ID = P_HIERARCHY_VERSION_ID
290 AND ( PGN.HIERARCHY_NODE_ID = EST_NODE_ID
291 OR PGN.PARENT_HIERARCHY_NODE_ID = EST_NODE_ID )
292 AND PGN.NODE_TYPE in ( 'EST' , 'LOC' ) )
293 AND HEADQUARTERS = 'N';
294 C_REPORT_EMPS := NVL(L_REPORT_EMPS
295 ,0);
296 SELECT
297 COUNT('ass')
298 INTO L_COUNT_EMPS
299 FROM
300 PER_ASSIGNMENTS_F ASS,
301 PER_JOBS_VL JOB
302 WHERE JOB.JOB_INFORMATION_CATEGORY = 'US'
303 AND L_DATE_START <= NVL(JOB.DATE_TO
304 ,L_DATE_END)
305 AND L_DATE_END >= JOB.DATE_FROM
306 AND JOB.JOB_INFORMATION1 is not null
307 AND JOB.BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID
308 AND ASS.JOB_ID = JOB.JOB_ID
309 AND ASS.BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID
310 AND ASS.ASSIGNMENT_TYPE = 'E'
311 AND ASS.PRIMARY_FLAG = 'Y'
312 AND EXISTS (
313 SELECT
314 'X'
315 FROM
316 HR_ORGANIZATION_INFORMATION HOI1,
317 HR_ORGANIZATION_INFORMATION HOI2
318 WHERE TO_CHAR(ASS.ASSIGNMENT_STATUS_TYPE_ID) = HOI1.ORG_INFORMATION1
319 AND HOI1.ORG_INFORMATION_CONTEXT = 'Reporting Statuses'
320 AND HOI1.ORGANIZATION_ID = P_BUSINESS_GROUP_ID
321 AND ASS.EMPLOYMENT_CATEGORY = HOI2.ORG_INFORMATION1
322 AND HOI2.ORGANIZATION_ID = P_BUSINESS_GROUP_ID
323 AND HOI2.ORG_INFORMATION_CONTEXT = 'Reporting Categories' )
324 AND ASS.EFFECTIVE_START_DATE = (
325 SELECT
326 MAX(ASS1.EFFECTIVE_START_DATE)
327 FROM
328 PER_ASSIGNMENTS_F ASS1
329 WHERE L_DATE_START <= ASS1.EFFECTIVE_END_DATE
330 AND L_DATE_END >= ASS1.EFFECTIVE_START_DATE
331 AND ASS.PERSON_ID = ASS1.PERSON_ID
332 AND ASS1.ASSIGNMENT_TYPE = 'E'
333 AND ASS1.PRIMARY_FLAG = 'Y' )
334 AND L_DATE_START <= ASS.EFFECTIVE_END_DATE
335 AND L_DATE_END >= ASS.EFFECTIVE_START_DATE
336 AND HEADQUARTERS = 'N'
337 AND ASS.LOCATION_ID in (
338 SELECT
339 DISTINCT
340 PGN.ENTITY_ID
341 FROM
342 PER_GEN_HIERARCHY_NODES PGN
343 WHERE PGN.HIERARCHY_VERSION_ID = P_HIERARCHY_VERSION_ID
344 AND ( PGN.HIERARCHY_NODE_ID = EST_NODE_ID
345 OR PGN.PARENT_HIERARCHY_NODE_ID = EST_NODE_ID )
346 AND PGN.NODE_TYPE in ( 'EST' , 'LOC' ) );
347 C_TOT_EMPS := NVL(L_COUNT_EMPS
348 ,0);
349 /*SRW.MESSAGE(222
350 ,'est_node_id : ' || EST_NODE_ID)*/NULL;
351 /*SRW.MESSAGE(222
352 ,'c_tot_emps : ' || C_TOT_EMPS)*/NULL;
353 IF L_REPORT_EMPS BETWEEN 1 AND P_MAXIMUM_NO_OF_EMPLOYEES THEN
354 TOT_COUNT_EMPS := NVL(TOT_COUNT_EMPS
355 ,0) + L_REPORT_EMPS;
356 IF P_AUDIT_REPORT = 'Y' THEN
357 FOR per IN C_AUDIT_REPORT LOOP
358 L_BUFFER := PER.PERSON_ID || G_DELIMITER || PER.LAST_NAME || G_DELIMITER || NVL(PER.FIRST_NAME
359 ,' ') || G_DELIMITER || NVL(PER.EMPLOYEE_NUMBER
360 ,' ') || G_DELIMITER || NVL(PER.SEX
361 ,' ') || G_DELIMITER || NVL(PER.ETHNIC
362 ,' ') || G_DELIMITER || PER.ASSIGNMENT_ID || G_DELIMITER || NVL(PER.JOB_ID
363 ,' ') || G_DELIMITER || NVL(PER.JOB_NAME
364 ,' ') || G_DELIMITER || NVL(PER.LOCATION_ID
365 ,' ') || G_DELIMITER || NVL(PER.LOCATION_CODE
366 ,' ') || G_DELIMITER || G_EOL;
367 --PUT(L_BUFFER);
368 FND_FILE.PUT_LINE(FND_FILE.LOG,L_BUFFER);
369 END LOOP;
370 END IF;
371 END IF;
372 RETURN NULL;
373 END C_TOT_ACTFORMULA;
374
375 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
376 BEGIN
377 RETURN (TRUE);
378 END BEFOREPFORM;
379
380 FUNCTION C_REPORT_EMPS_P RETURN NUMBER IS
381 BEGIN
382 RETURN C_REPORT_EMPS;
383 END C_REPORT_EMPS_P;
384
385 FUNCTION C_MAIN_ACTIVITY_P RETURN VARCHAR2 IS
386 BEGIN
387 RETURN C_MAIN_ACTIVITY;
388 END C_MAIN_ACTIVITY_P;
389
390 FUNCTION C_TOT_EMPS_P RETURN NUMBER IS
391 BEGIN
392 RETURN C_TOT_EMPS;
393 END C_TOT_EMPS_P;
394
395 FUNCTION C_END_OF_TIME_P RETURN DATE IS
396 BEGIN
397 RETURN C_END_OF_TIME;
398 END C_END_OF_TIME_P;
399
400 FUNCTION TOT_COUNT_EMPS_P RETURN NUMBER IS
401 BEGIN
402 RETURN TOT_COUNT_EMPS;
403 END TOT_COUNT_EMPS_P;
404
405 FUNCTION C_BUSINESS_GROUP_NAME_P RETURN VARCHAR2 IS
406 BEGIN
407 RETURN C_BUSINESS_GROUP_NAME;
408 END C_BUSINESS_GROUP_NAME_P;
409
410 FUNCTION C_HIERARCHY_VERSION_NUM_P RETURN NUMBER IS
411 BEGIN
412 RETURN C_HIERARCHY_VERSION_NUM;
413 END C_HIERARCHY_VERSION_NUM_P;
414
415 FUNCTION C_PARENT_NODE_ID_P RETURN NUMBER IS
416 BEGIN
417 RETURN C_PARENT_NODE_ID;
418 END C_PARENT_NODE_ID_P;
419
420 FUNCTION C_PARENT_ORG_ID_P RETURN NUMBER IS
421 BEGIN
422 RETURN C_PARENT_ORG_ID;
423 END C_PARENT_ORG_ID_P;
424
425 FUNCTION DEFAULT_ACTIVITIES_LINE1_P RETURN VARCHAR2 IS
426 BEGIN
427 RETURN DEFAULT_ACTIVITIES_LINE1;
428 END DEFAULT_ACTIVITIES_LINE1_P;
429
430 FUNCTION DEFAULT_ACTIVITIES_LINE2_P RETURN VARCHAR2 IS
431 BEGIN
432 RETURN DEFAULT_ACTIVITIES_LINE2;
433 END DEFAULT_ACTIVITIES_LINE2_P;
434
435 FUNCTION DEFAULT_ACTIVITIES_LINE3_P RETURN VARCHAR2 IS
436 BEGIN
437 RETURN DEFAULT_ACTIVITIES_LINE3;
438 END DEFAULT_ACTIVITIES_LINE3_P;
439
440 FUNCTION DEFAULT_ACTIVITIES_LINE4_P RETURN VARCHAR2 IS
441 BEGIN
442 RETURN DEFAULT_ACTIVITIES_LINE4;
443 END DEFAULT_ACTIVITIES_LINE4_P;
444
445 FUNCTION C_HIERARCHY_NAME_P RETURN VARCHAR2 IS
446 BEGIN
447 RETURN C_HIERARCHY_NAME;
448 END C_HIERARCHY_NAME_P;
449
450 FUNCTION C_NO_OF_ESTABLISHMENTS_P RETURN NUMBER IS
451 BEGIN
452 RETURN C_NO_OF_ESTABLISHMENTS;
453 END C_NO_OF_ESTABLISHMENTS_P;
454
455 FUNCTION C_REPORT_YEAR_P RETURN VARCHAR2 IS
456 BEGIN
457 RETURN C_REPORT_YEAR;
458 END C_REPORT_YEAR_P;
459
460 FUNCTION C_REPORT_DATE_P RETURN DATE IS
461 BEGIN
462 RETURN C_REPORT_DATE;
463 END C_REPORT_DATE_P;
464
465 FUNCTION C_MAXIMUM_NO_OF_EMPLOYEES_P RETURN NUMBER IS
466 BEGIN
467 RETURN C_MAXIMUM_NO_OF_EMPLOYEES;
468 END C_MAXIMUM_NO_OF_EMPLOYEES_P;
469
470 FUNCTION C_PAYROLL_PERIOD_DATE_START_P RETURN DATE IS
471 BEGIN
472 RETURN C_PAYROLL_PERIOD_DATE_START;
473 END C_PAYROLL_PERIOD_DATE_START_P;
474
475 FUNCTION C_PAYROLL_PERIOD_DATE_END_P RETURN DATE IS
476 BEGIN
477 RETURN C_PAYROLL_PERIOD_DATE_END;
478 END C_PAYROLL_PERIOD_DATE_END_P;
479
480 /*PROCEDURE OPEN IS
481 L_APPLCSF VARCHAR2(2000);
482 L_PER_TOP VARCHAR2(2000);
483 L_APPLOUT VARCHAR2(2000);
484 L_PATH VARCHAR2(2000);
485 L_FILE_NAME VARCHAR2(100);
486 L_NAME VARCHAR2(60) := 'file_io.open';
487 CURSOR C_CONCURRENT_ID IS
488 SELECT
489 MAX(FCR.REQUEST_ID)
490 FROM
491 FND_CONCURRENT_REQUESTS FCR,
492 FND_CONCURRENT_PROGRAMS FCP
493 WHERE FCP.APPLICATION_ID = 800
494 AND FCP.CONCURRENT_PROGRAM_NAME = 'PERRPE1L'
495 AND FCR.CONCURRENT_PROGRAM_ID = FCP.CONCURRENT_PROGRAM_ID
496 AND FCR.PROGRAM_APPLICATION_ID = FCP.APPLICATION_ID;
497 L_REQUEST_ID NUMBER;
498 BEGIN
499 TOOL_ENV.GETVAR('APPLCSF'
500 ,L_APPLCSF);
501 TOOL_ENV.GETVAR('PER_TOP'
502 ,L_PER_TOP);
503 L_PATH := NVL(L_APPLCSF
504 ,L_PER_TOP);
505 OPEN C_CONCURRENT_ID;
506 FETCH C_CONCURRENT_ID
507 INTO L_REQUEST_ID;
508 CLOSE C_CONCURRENT_ID;
509 G_FILE_NAME := 'o' || TO_CHAR(L_REQUEST_ID);
510 L_FILE_NAME := G_FILE_NAME || '.a03';
511 IF L_PATH IS NOT NULL THEN
512 TOOL_ENV.GETVAR('APPLOUT'
513 ,L_APPLOUT);
514 L_PATH := L_PATH || '/' || L_APPLOUT || '/' || L_FILE_NAME;
515 ELSE
516 L_PATH := L_FILE_NAME;
517 END IF;
518 G_FILE_TYPE := TEXT_IO.FOPEN(L_PATH
519 ,'W');
520 HR_UTILITY.TRACE('file_io.open :' || L_PATH);
521 EXCEPTION
522 WHEN OTHERS THEN
523 HR_UTILITY.SET_LOCATION('Leaving....' || L_NAME
524 ,999);
528
525 NULL;
526 FND_MESSAGE.RAISE_ERROR;
527 END OPEN;*/
529 /*PROCEDURE PUT(P_CHAR IN VARCHAR2) IS
530 L_NAME VARCHAR2(60) := 'file_io.put';
531 BEGIN
532 TEXT_IO.PUT(G_FILE_TYPE
533 ,P_CHAR);
534 HR_UTILITY.TRACE('file_io .put :' || P_CHAR);
535 EXCEPTION
536 WHEN OTHERS THEN
537 HR_UTILITY.SET_LOCATION('Leaving....' || L_NAME
538 ,999);
539 NULL;
540 FND_MESSAGE.RAISE_ERROR;
541 END PUT;*/
542
543 /*PROCEDURE CLOSE IS
544 L_NAME VARCHAR2(60) := 'file_io.close';
545 BEGIN
546 TEXT_IO.FCLOSE(G_FILE_TYPE);
547 HR_UTILITY.TRACE('file_io.close state mag file closed ');
548 EXCEPTION
549 WHEN OTHERS THEN
550 HR_UTILITY.SET_LOCATION('Leaving....' || L_NAME
551 ,999);
552 NULL;
553 FND_MESSAGE.RAISE_ERROR;
554 END CLOSE;*/
555
556 END PER_PERUSE1L_XMLP_PKG;