[Home] [Help]
PACKAGE BODY: APPS.PER_PERUSEOC_XMLP_PKG
Source
1 PACKAGE BODY PER_PERUSEOC_XMLP_PKG AS
2 /* $Header: PERUSEOCB.pls 120.3 2008/03/25 06:36:14 vjaganat 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 L_BUFFER VARCHAR2(400);
11 G_DELIMITER VARCHAR2(1) := ',';
12 G_EOL VARCHAR2(1) := FND_GLOBAL.LOCAL_CHR(10);
13 temp boolean;
14 BEGIN
15
16 --HR_STANDARD.EVENT('BEFORE REPORT');
17 CP_PREV_YEAR_FILED := TO_CHAR(TO_NUMBER(P_REPORT_YEAR - 1));
18 /*SRW.MESSAGE('35'
19 ,'previous year ' || CP_PREV_YEAR_FILED)*/NULL;
20 P_PAYROLL_PERIOD_DATE_START_T := FND_DATE.CANONICAL_TO_DATE(P_PAYROLL_PERIOD_DATE_START);
21 P_PAYROLL_PERIOD_DATE_END_T := FND_DATE.CANONICAL_TO_DATE(P_PAYROLL_PERIOD_DATE_END);
22 temp := P_REPORT_YEARVALIDTRIGGER;
23 C_PAYROLL_PERIOD_DATE_START := P_PAYROLL_PERIOD_DATE_START_T;
24 C_PAYROLL_PERIOD_DATE_END := P_PAYROLL_PERIOD_DATE_END_T;
25 C_BUSINESS_GROUP_NAME := GET_BUSINESS_GROUP(P_BUSINESS_GROUP_ID);
26 C_REPORT_MODE := P_REPORT_MODE;
27 SELECT
28 PGH.NAME,
29 PGV.VERSION_NUMBER,
30 PGN.ENTITY_ID,
31 PGN.HIERARCHY_NODE_ID
32 INTO C_HIERARCHY_NAME,C_HIERARCHY_VERSION_NUM,C_PARENT_ORG_ID,C_PARENT_NODE_ID
33 FROM
34 PER_GEN_HIERARCHY PGH,
35 PER_GEN_HIERARCHY_VERSIONS PGV,
36 PER_GEN_HIERARCHY_NODES PGN
37 WHERE PGH.HIERARCHY_ID = P_HIERARCHY_ID
38 AND PGH.HIERARCHY_ID = PGV.HIERARCHY_ID
39 AND PGV.HIERARCHY_VERSION_ID = P_HIERARCHY_VERSION_ID
40 AND PGN.HIERARCHY_VERSION_ID = PGV.HIERARCHY_VERSION_ID
41 AND PGN.NODE_TYPE = 'PAR';
42 /*SRW.MESSAGE('36'
43 ,'c_hierarchy_name ' || C_HIERARCHY_NAME)*/NULL;
44 /*SRW.MESSAGE('37'
45 ,'c_hierarchy_version_num ' || C_HIERARCHY_VERSION_NUM)*/NULL;
46 /*SRW.MESSAGE('38'
47 ,'c_parent_org_id ' || C_PARENT_ORG_ID)*/NULL;
48 /*SRW.MESSAGE('39'
49 ,'c_parent_node_id ' || C_PARENT_NODE_ID)*/NULL;
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 /*SRW.MESSAGE('40'
58 ,'p_audit_report : ' || P_AUDIT_REPORT)*/NULL;
59 IF P_AUDIT_REPORT = 'Y' THEN
60 --OPEN;
61 L_BUFFER := 'Person Id' || G_DELIMITER || 'Last Name' || G_DELIMITER || 'First Name'
62 || G_DELIMITER || 'Employee Number' || G_DELIMITER || 'Gender' || G_DELIMITER ||
63 'Ethnic Origin' || G_DELIMITER || 'Assignment Id' || G_DELIMITER || 'Job Id' ||
64 G_DELIMITER || 'Job Name' || G_DELIMITER || 'Location Id' || G_DELIMITER || 'Location Code'
65 || G_DELIMITER || G_EOL;
66 -- PUT(L_BUFFER);
67 FND_FILE.PUT_LINE(FND_FILE.LOG,L_BUFFER);
68 NULL;
69 END IF;
70 RETURN TRUE;
71 END BEFOREREPORT;
72
73 FUNCTION P_REPORT_YEARVALIDTRIGGER RETURN BOOLEAN IS
74 C_DATE_FORMAT varchar2(25):='DD-MON-YY';
75 BEGIN
76 IF P_PAYROLL_PERIOD_DATE_END_T IS NOT NULL THEN
77 P_REPORT_YEAR := TO_CHAR(to_date(P_PAYROLL_PERIOD_DATE_END_T,C_DATE_FORMAT),'RRRR');
78 ELSE
79 P_REPORT_YEAR := TO_CHAR(SYSDATE
80 ,'RRRR');
81 END IF;
82 RETURN (TRUE);
83 END P_REPORT_YEARVALIDTRIGGER;
84
85 FUNCTION AFTERREPORT RETURN BOOLEAN IS
86 BEGIN
87 --HR_STANDARD.EVENT('AFTER REPORT');
88 IF P_AUDIT_REPORT = 'Y' THEN
89 -- CLOSE;
90 NULL;
91 END IF;
92 RETURN (TRUE);
93 END AFTERREPORT;
94
95 FUNCTION CF_SET_DEFAULTSFORMULA RETURN NUMBER IS
96 BEGIN
97 C_DEF_SIC := '';
98 C_DEF_NAICS := '';
99 C_DEF_GRE := '';
100 C_DEF_DUNS := '';
101 C_DEF_GOV_CON := '';
102 C_DEF_APPRENT := '';
103 C_DEF_ACTIV_1 := '';
104 C_DEF_ACTIV_2 := '';
105 C_DEF_ACTIV_3 := '';
106 C_DEF_ACTIV_4 := '';
107 RETURN NULL;
108 END CF_SET_DEFAULTSFORMULA;
109
110 FUNCTION C_TOT_EMPSFORMULA RETURN NUMBER IS
111 BEGIN
112 C_100_EMPS := '';
113 RETURN 0;
114 END C_TOT_EMPSFORMULA;
115
116 FUNCTION CF_SET_EST_ACTIVFORMULA RETURN NUMBER IS
117 BEGIN
118 C_EST_ACTIV_1 := '';
119 C_EST_ACTIV_2 := '';
120 C_EST_ACTIV_3 := '';
121 C_EST_ACTIV_4 := '';
122 RETURN NULL;
123 END CF_SET_EST_ACTIVFORMULA;
124
125 FUNCTION C_TOT_CATFORMULA(C_TOT_HLMALE IN NUMBER
126 ,C_TOT_HLFEMALE IN NUMBER
127 ,C_TOT_TMRACESMALE IN NUMBER
128 ,C_TOT_TMRACESFEMALE IN NUMBER
129 ,C_TOT_WMALE IN NUMBER
130 ,C_TOT_BMALE IN NUMBER
131 ,C_TOT_HMALE IN NUMBER
132 ,C_TOT_AMALE IN NUMBER
133 ,C_TOT_IMALE IN NUMBER
134 ,C_TOT_WFEMALE IN NUMBER
135 ,C_TOT_BFEMALE IN NUMBER
136 ,C_TOT_HFEMALE IN NUMBER
137 ,C_TOT_AFEMALE IN NUMBER
138 ,C_TOT_IFEMALE IN NUMBER) RETURN NUMBER IS
139 L_TOT_CAT NUMBER(10);
140 BEGIN
141 L_TOT_CAT := C_TOT_HLMALE + C_TOT_HLFEMALE + C_TOT_TMRACESMALE + C_TOT_TMRACESFEMALE +
142 C_TOT_WMALE + C_TOT_BMALE + C_TOT_HMALE + C_TOT_AMALE + C_TOT_IMALE + C_TOT_WFEMALE +
143 C_TOT_BFEMALE + C_TOT_HFEMALE + C_TOT_AFEMALE + C_TOT_IFEMALE;
144 RETURN (L_TOT_CAT);
145 END C_TOT_CATFORMULA;
146
147 FUNCTION CF_SET_REPFORMULA RETURN NUMBER IS
148 BEGIN
149 C_REPORT_TYPE := 'Consolidated Report - Type 2';
150 C_REPORT_YEAR := P_REPORT_YEAR;
151 RETURN NULL;
152 END CF_SET_REPFORMULA;
153
154 FUNCTION CF_CREATEUPD_ARCHEITFORMULA(C_TOT_CAT IN NUMBER
155 ,C_TOT_WMALE IN NUMBER
156 ,C_TOT_BMALE IN NUMBER
157 ,C_TOT_HMALE IN NUMBER
158 ,C_TOT_AMALE IN NUMBER
159 ,C_TOT_IMALE IN NUMBER
160 ,C_TOT_WFEMALE IN NUMBER
161 ,C_TOT_BFEMALE IN NUMBER
162 ,C_TOT_HFEMALE IN NUMBER
163 ,C_TOT_AFEMALE IN NUMBER
164 ,C_TOT_IFEMALE IN NUMBER
165 ,C_TOT_HLMALE IN NUMBER
166 ,C_TOT_HLFEMALE IN NUMBER
167 ,C_TOT_TMRACESMALE IN NUMBER
168 ,C_TOT_TMRACESFEMALE IN NUMBER) RETURN NUMBER IS
169 P_UPDATE VARCHAR2(1) := 'C';
170 L_EFFECTIVE_DATE DATE := SYSDATE;
171 L_ORG_INFORMATION_ID NUMBER := NULL;
172 L_OBJECT_VERSION_NUMBER NUMBER := NULL;
173 L_ORGANIZATION_ID NUMBER(15,0);
174 L_LOCATION_CODE VARCHAR2(20);
175 L_LOCATION_EXTRA_INFO_ID NUMBER := NULL;
176 L_EIT_COUNT NUMBER := 0;
177 L_MIN_YEAR VARCHAR2(4) := NULL;
178 BEGIN
179 IF P_REPORT_MODE = 'F' THEN
180 BEGIN
181 SELECT
182 'U',
183 ORG_INFORMATION_ID
184 INTO P_UPDATE,L_ORG_INFORMATION_ID
185 FROM
186 HR_ORGANIZATION_INFORMATION
187 WHERE ORG_INFORMATION1 = P_REPORT_YEAR
188 AND ORG_INFORMATION_CONTEXT = 'EEO_Archive';
189 EXCEPTION
190 WHEN NO_DATA_FOUND THEN
191 P_UPDATE := 'C';
192 /*SRW.MESSAGE('20'
193 ,' ')*/NULL;
194 /*SRW.MESSAGE('20'
195 ,'need to create new eit')*/NULL;
196 /*SRW.MESSAGE('20'
197 ,' ')*/NULL;
198 /*SRW.MESSAGE('9999'
199 ,'IMPORTANT. IF YOU FILED LAST YEAR BUT LAST YEARS DATES')*/NULL;
200 /*SRW.MESSAGE('9999'
201 ,'ARE NOT BEING PRINTED, PLEASE EITHER MANUALLY ENTER DATA')*/NULL;
202 /*SRW.MESSAGE('9999'
203 ,'IN THE ORGANIZATION EIT, OR RE-RUN THIS REPORT IN FINAL ')*/NULL;
204 /*SRW.MESSAGE('9999'
205 ,'MODE FOR LAST YEARS DATES. ')*/NULL;
206 /*SRW.MESSAGE('20'
207 ,' ')*/NULL;
208 WHEN OTHERS THEN
209 NULL;
210 END;
211 IF P_UPDATE = 'U' THEN
212 /*SRW.MESSAGE('21'
213 ,'p_update ' || P_UPDATE || ' org_id to update is ' || C_PARENT_ORG_ID)*/NULL;
214 /*SRW.MESSAGE('22'
215 ,' org_information_id to delete for update is ' || L_ORG_INFORMATION_ID)*/NULL;
216 BEGIN
217 SELECT
218 OBJECT_VERSION_NUMBER
219 INTO L_OBJECT_VERSION_NUMBER
220 FROM
221 HR_ORGANIZATION_INFORMATION
222 WHERE ORG_INFORMATION_ID = L_ORG_INFORMATION_ID;
223 END;
224 /*SRW.MESSAGE('25'
225 ,'object version number to delete for update is ' || L_OBJECT_VERSION_NUMBER)*/NULL;
226 BEGIN
227 HR_ORGANIZATION_API.DELETE_ORG_MANAGER(P_VALIDATE => FALSE
228 ,P_ORG_INFORMATION_ID => L_ORG_INFORMATION_ID
229 ,P_OBJECT_VERSION_NUMBER => L_OBJECT_VERSION_NUMBER);
230 END;
231 COMMIT;
232 P_UPDATE := 'C';
233 END IF;
234 IF P_UPDATE = 'C' THEN
235 /*SRW.MESSAGE('30'
236 ,' ')*/NULL;
237 /*SRW.MESSAGE('31'
238 ,'p_update ' || P_UPDATE || ' org id ' || C_PARENT_ORG_ID)*/NULL;
239 /*SRW.MESSAGE('32'
240 ,'need to create new eit')*/NULL;
241 BEGIN
242 HR_ORGANIZATION_API.CREATE_ORG_INFORMATION(P_VALIDATE => FALSE
243 ,P_EFFECTIVE_DATE => L_EFFECTIVE_DATE
244 ,P_ORGANIZATION_ID => C_PARENT_ORG_ID
245 ,P_ORG_INFO_TYPE_CODE => 'EEO_Archive'
246 ,P_ORG_INFORMATION1 => P_REPORT_YEAR
247 ,P_ORG_INFORMATION2 => P_CONC_REQUEST_ID
248 ,P_ORG_INFORMATION3 => C_TOT_CAT
249 ,P_ORG_INFORMATION4 => C_TOT_WMALE
250 ,P_ORG_INFORMATION5 => C_TOT_BMALE
251 ,P_ORG_INFORMATION6 => C_TOT_HMALE
252 ,P_ORG_INFORMATION7 => C_TOT_AMALE
253 ,P_ORG_INFORMATION8 => C_TOT_IMALE
254 ,P_ORG_INFORMATION9 => C_TOT_WFEMALE
255 ,P_ORG_INFORMATION10 => C_TOT_BFEMALE
256 ,P_ORG_INFORMATION11 => C_TOT_HFEMALE
257 ,P_ORG_INFORMATION12 => C_TOT_AFEMALE
258 ,P_ORG_INFORMATION13 => C_TOT_IFEMALE
259 ,P_ORG_INFORMATION14 => C_TOT_HLMALE
260 ,P_ORG_INFORMATION15 => C_TOT_HLFEMALE
261 ,P_ORG_INFORMATION16 => C_TOT_TMRACESMALE
262 ,P_ORG_INFORMATION17 => C_TOT_TMRACESFEMALE
263 ,P_ORG_INFORMATION_ID => L_ORG_INFORMATION_ID
264 ,P_OBJECT_VERSION_NUMBER => L_OBJECT_VERSION_NUMBER);
265 END;
266 COMMIT;
267 /*SRW.MESSAGE('23'
268 ,' ')*/NULL;
269 /*SRW.MESSAGE('23'
270 ,'eit created for org id ' || C_PARENT_ORG_ID || ' year ' || P_REPORT_YEAR)*/NULL;
271 /*SRW.MESSAGE('24'
272 ,'out params: org_information_id is ' || L_ORG_INFORMATION_ID)*/NULL;
273 /*SRW.MESSAGE('25'
274 ,'object version number is ' || L_OBJECT_VERSION_NUMBER)*/NULL;
275 /*SRW.MESSAGE('23'
276 ,' ')*/NULL;
277 END IF;
278 BEGIN
279 BEGIN
280 SELECT
281 count(*)
282 INTO L_EIT_COUNT
283 FROM
284 HR_ORGANIZATION_INFORMATION
285 WHERE ORGANIZATION_ID = C_PARENT_ORG_ID
286 AND ORG_INFORMATION_CONTEXT = 'EEO_Archive';
287 EXCEPTION
288 WHEN NO_DATA_FOUND THEN
289 NULL;
290 WHEN OTHERS THEN
291 NULL;
292 END;
293 IF L_EIT_COUNT > 4 THEN
294 BEGIN
295 SELECT
296 MIN(ORG_INFORMATION1)
297 INTO L_MIN_YEAR
298 FROM
299 HR_ORGANIZATION_INFORMATION
300 WHERE ORGANIZATION_ID = C_PARENT_ORG_ID
301 AND ORG_INFORMATION_CONTEXT = 'EEO_Archive';
302 END;
303 BEGIN
304 SELECT
305 ORG_INFORMATION_ID,
306 OBJECT_VERSION_NUMBER
307 INTO L_ORG_INFORMATION_ID,L_OBJECT_VERSION_NUMBER
308 FROM
309 HR_ORGANIZATION_INFORMATION
310 WHERE ORG_INFORMATION1 = L_MIN_YEAR
311 AND ORG_INFORMATION_CONTEXT = 'EEO_Archive'
312 AND ORGANIZATION_ID = C_PARENT_ORG_ID;
313 END;
314 BEGIN
315 HR_ORGANIZATION_API.DELETE_ORG_MANAGER(P_VALIDATE => FALSE
316 ,P_ORG_INFORMATION_ID => L_ORG_INFORMATION_ID
317 ,P_OBJECT_VERSION_NUMBER => L_OBJECT_VERSION_NUMBER);
318 END;
319 /*SRW.MESSAGE('999999'
320 ,' there are over 4 Archive EITs for organization id ' || C_PARENT_ORG_ID ||
321 ' so deleting for year ' || L_MIN_YEAR)*/NULL;
322 END IF;
323 END;
324 END IF;
325 RETURN (NULL);
326 END CF_CREATEUPD_ARCHEITFORMULA;
327
328 FUNCTION CF_AUDIT_REPORTFORMULA(CONS_JOB_CATEGORY_CODE IN VARCHAR2) RETURN NUMBER IS
329 CURSOR C_PERSONS IS
330 SELECT
331 PEO.PERSON_ID,
332 PEO.FIRST_NAME,
333 PEO.LAST_NAME,
334 PEO.SEX,
335 PEO.PER_INFORMATION1 ETHNIC,
336 PEO.EMPLOYEE_NUMBER,
337 ASS.ASSIGNMENT_ID,
338 ASS.LOCATION_ID,
339 LOC.LOCATION_CODE,
340 JOB.NAME JOB_NAME,
341 ASS.JOB_ID
342 FROM
343 PER_ALL_PEOPLE_F PEO,
344 PER_ASSIGNMENTS_F ASS,
345 PER_JOBS_VL JOB,
346 HR_LOCATIONS_ALL LOC
347 WHERE PEO.PERSON_ID = ASS.PERSON_ID
348 AND PEO.PER_INFORMATION1 is not null
349 AND PEO.PER_INFORMATION_CATEGORY = 'US'
350 AND JOB.JOB_INFORMATION_CATEGORY = 'US'
351 AND P_PAYROLL_PERIOD_DATE_START_T <= NVL(JOB.DATE_TO
352 ,P_PAYROLL_PERIOD_DATE_END_T)
353 AND P_PAYROLL_PERIOD_DATE_END_T >= JOB.DATE_FROM
354 AND JOB.JOB_INFORMATION1 = CONS_JOB_CATEGORY_CODE
355 AND ASS.JOB_ID = JOB.JOB_ID
356 AND PEO.EFFECTIVE_START_DATE = (
357 SELECT
358 MAX(PEO1.EFFECTIVE_START_DATE)
359 FROM
360 PER_PEOPLE_F PEO1
361 WHERE P_PAYROLL_PERIOD_DATE_START_T <= PEO1.EFFECTIVE_END_DATE
362 AND P_PAYROLL_PERIOD_DATE_END_T >= PEO1.EFFECTIVE_START_DATE
363 AND PEO.PERSON_ID = PEO1.PERSON_ID
364 AND PEO1.CURRENT_EMPLOYEE_FLAG = 'Y' )
365 AND ASS.EFFECTIVE_START_DATE = (
366 SELECT
367 MAX(ASS1.EFFECTIVE_START_DATE)
368 FROM
372 AND ASS.PERSON_ID = ASS1.PERSON_ID
369 PER_ASSIGNMENTS_F ASS1
370 WHERE P_PAYROLL_PERIOD_DATE_START_T <= ASS1.EFFECTIVE_END_DATE
371 AND P_PAYROLL_PERIOD_DATE_END_T >= ASS1.EFFECTIVE_START_DATE
373 AND ASS1.ASSIGNMENT_TYPE = 'E'
374 AND ASS1.PRIMARY_FLAG = 'Y' )
375 AND ASS.ASSIGNMENT_TYPE = 'E'
376 AND ASS.PRIMARY_FLAG = 'Y'
377 AND ASS.BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID
378 AND PEO.BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID
379 AND JOB.BUSINESS_GROUP_ID = P_BUSINESS_GROUP_ID
380 AND EXISTS (
381 SELECT
382 'X'
383 FROM
384 HR_ORGANIZATION_INFORMATION HOI1,
385 HR_ORGANIZATION_INFORMATION HOI2
386 WHERE TO_CHAR(ASS.ASSIGNMENT_STATUS_TYPE_ID) = HOI1.ORG_INFORMATION1
387 AND HOI1.ORG_INFORMATION_CONTEXT = 'Reporting Statuses'
388 AND HOI1.ORGANIZATION_ID = P_BUSINESS_GROUP_ID
389 AND ASS.EMPLOYMENT_CATEGORY = HOI2.ORG_INFORMATION1
390 AND HOI2.ORGANIZATION_ID = P_BUSINESS_GROUP_ID
391 AND HOI2.ORG_INFORMATION_CONTEXT = 'Reporting Categories' )
392 AND ASS.LOCATION_ID = LOC.LOCATION_ID
393 AND ASS.LOCATION_ID in (
394 SELECT
395 ENTITY_ID
396 FROM
397 PER_GEN_HIERARCHY_NODES PGHN,
398 HR_LOCATION_EXTRA_INFO HLEI1,
399 HR_LOCATION_EXTRA_INFO HLEI2
400 WHERE PGHN.NODE_TYPE <> 'PAR'
401 AND HIERARCHY_VERSION_ID = P_HIERARCHY_VERSION_ID
402 AND TO_CHAR(HLEI1.LOCATION_ID) = PGHN.ENTITY_ID
403 AND TO_CHAR(HLEI2.LOCATION_ID) = PGHN.ENTITY_ID
404 AND HLEI1.LOCATION_ID = HLEI2.LOCATION_ID
405 AND HLEI1.INFORMATION_TYPE = 'EEO-1 Specific Information'
406 AND HLEI1.LEI_INFORMATION_CATEGORY = 'EEO-1 Specific Information'
407 AND HLEI2.INFORMATION_TYPE = 'Establishment Information'
408 AND HLEI2.LEI_INFORMATION_CATEGORY = 'Establishment Information' );
409 L_BUFFER VARCHAR2(2000);
410 G_DELIMITER VARCHAR2(1) := ',';
411 G_EOL VARCHAR2(1) := FND_GLOBAL.LOCAL_CHR(10);
412 BEGIN
413 IF P_AUDIT_REPORT = 'Y' THEN
414 FOR per IN C_PERSONS LOOP
415 L_BUFFER := PER.PERSON_ID || G_DELIMITER || PER.LAST_NAME || G_DELIMITER || NVL(PER.FIRST_NAME
416 ,' ') || G_DELIMITER || NVL(PER.EMPLOYEE_NUMBER
417 ,' ') || G_DELIMITER || NVL(PER.SEX
418 ,' ') || G_DELIMITER || NVL(PER.ETHNIC
419 ,' ') || G_DELIMITER || PER.ASSIGNMENT_ID || G_DELIMITER || NVL(PER.JOB_ID
420 ,' ') || G_DELIMITER || NVL(PER.JOB_NAME
421 ,' ') || G_DELIMITER || NVL(PER.LOCATION_ID
422 ,' ') || G_DELIMITER || NVL(PER.LOCATION_CODE
423 ,' ') || G_DELIMITER || G_EOL;
424 --PUT(L_BUFFER);
425 FND_FILE.PUT_LINE(FND_FILE.LOG,L_BUFFER);
426 END LOOP;
427 END IF;
428 RETURN NULL;
429 END CF_AUDIT_REPORTFORMULA;
430
431 FUNCTION C_DEF_SIC_P RETURN VARCHAR2 IS
432 BEGIN
433 RETURN C_DEF_SIC;
434 END C_DEF_SIC_P;
435
436 FUNCTION C_DEF_NAICS_P RETURN VARCHAR2 IS
437 BEGIN
438 RETURN C_DEF_NAICS;
439 END C_DEF_NAICS_P;
440
441 FUNCTION C_DEF_GRE_P RETURN NUMBER IS
442 BEGIN
443 RETURN C_DEF_GRE;
444 END C_DEF_GRE_P;
445
446 FUNCTION C_DEF_DUNS_P RETURN VARCHAR2 IS
447 BEGIN
448 RETURN C_DEF_DUNS;
449 END C_DEF_DUNS_P;
450
451 FUNCTION C_DEF_GOV_CON_P RETURN VARCHAR2 IS
452 BEGIN
453 RETURN C_DEF_GOV_CON;
454 END C_DEF_GOV_CON_P;
455
456 FUNCTION C_DEF_APPRENT_P RETURN VARCHAR2 IS
457 BEGIN
458 RETURN C_DEF_APPRENT;
459 END C_DEF_APPRENT_P;
460
461 FUNCTION C_DEF_ACTIV_1_P RETURN VARCHAR2 IS
462 BEGIN
463 RETURN C_DEF_ACTIV_1;
464 END C_DEF_ACTIV_1_P;
465
466 FUNCTION C_DEF_ACTIV_2_P RETURN VARCHAR2 IS
467 BEGIN
468 RETURN C_DEF_ACTIV_2;
469 END C_DEF_ACTIV_2_P;
470
471 FUNCTION C_DEF_ACTIV_3_P RETURN VARCHAR2 IS
472 BEGIN
473 RETURN C_DEF_ACTIV_3;
474 END C_DEF_ACTIV_3_P;
475
476 FUNCTION C_DEF_ACTIV_4_P RETURN VARCHAR2 IS
477 BEGIN
478 RETURN C_DEF_ACTIV_4;
479 END C_DEF_ACTIV_4_P;
480
481 FUNCTION C_100_EMPS_P RETURN VARCHAR2 IS
482 BEGIN
483 RETURN C_100_EMPS;
484 END C_100_EMPS_P;
485
486 FUNCTION C_EST_ACTIV_1_P RETURN VARCHAR2 IS
487 BEGIN
488 RETURN C_EST_ACTIV_1;
489 END C_EST_ACTIV_1_P;
490
491 FUNCTION C_EST_ACTIV_2_P RETURN VARCHAR2 IS
492 BEGIN
493 RETURN C_EST_ACTIV_2;
494 END C_EST_ACTIV_2_P;
495
496 FUNCTION C_EST_ACTIV_3_P RETURN VARCHAR2 IS
497 BEGIN
498 RETURN C_EST_ACTIV_3;
499 END C_EST_ACTIV_3_P;
500
501 FUNCTION C_EST_ACTIV_4_P RETURN VARCHAR2 IS
502 BEGIN
503 RETURN C_EST_ACTIV_4;
504 END C_EST_ACTIV_4_P;
505
506 FUNCTION C_BUSINESS_GROUP_NAME_P RETURN VARCHAR2 IS
507 BEGIN
508 RETURN C_BUSINESS_GROUP_NAME;
509 END C_BUSINESS_GROUP_NAME_P;
510
511 FUNCTION C_HIERARCHY_NAME_P RETURN VARCHAR2 IS
512 BEGIN
513 RETURN C_HIERARCHY_NAME;
514 END C_HIERARCHY_NAME_P;
515
516 FUNCTION C_HIERARCHY_VERSION_NUM_P RETURN NUMBER IS
517 BEGIN
518 RETURN C_HIERARCHY_VERSION_NUM;
519 END C_HIERARCHY_VERSION_NUM_P;
520
521 FUNCTION C_PARENT_ORG_ID_P RETURN NUMBER IS
522 BEGIN
523 RETURN C_PARENT_ORG_ID;
524 END C_PARENT_ORG_ID_P;
525
526 FUNCTION C_PARENT_NODE_ID_P RETURN NUMBER IS
527 BEGIN
528 RETURN C_PARENT_NODE_ID;
529 END C_PARENT_NODE_ID_P;
530
531 FUNCTION C_NO_OF_ESTABLISHMENTS_P RETURN NUMBER IS
532 BEGIN
533 RETURN C_NO_OF_ESTABLISHMENTS;
534 END C_NO_OF_ESTABLISHMENTS_P;
535
536 FUNCTION C_REPORT_TYPE_P RETURN VARCHAR2 IS
537 BEGIN
538 RETURN C_REPORT_TYPE;
539 END C_REPORT_TYPE_P;
540
541 FUNCTION CP_PREV_YEAR_FILED_P RETURN VARCHAR2 IS
542 BEGIN
543 RETURN CP_PREV_YEAR_FILED;
544 END CP_PREV_YEAR_FILED_P;
545
546 FUNCTION C_REPORT_YEAR_P RETURN VARCHAR2 IS
547 BEGIN
548 RETURN C_REPORT_YEAR;
549 END C_REPORT_YEAR_P;
550
551 FUNCTION C_PAYROLL_PERIOD_DATE_START_P RETURN DATE IS
552 BEGIN
553 RETURN C_PAYROLL_PERIOD_DATE_START;
554 END C_PAYROLL_PERIOD_DATE_START_P;
555
556 FUNCTION C_PAYROLL_PERIOD_DATE_END_P RETURN DATE IS
557 BEGIN
558 RETURN C_PAYROLL_PERIOD_DATE_END;
559 END C_PAYROLL_PERIOD_DATE_END_P;
560
561 FUNCTION C_REPORT_MODE_P RETURN VARCHAR2 IS
562 BEGIN
563 RETURN C_REPORT_MODE;
564 END C_REPORT_MODE_P;
565
566 PROCEDURE ASSERT_CONDITION(P_CONDITION IN BOOLEAN) IS
567 BEGIN
568 /*STPROC.INIT('declare P_CONDITION BOOLEAN;
569 begin P_CONDITION := sys.diutil.int_to_bool(:P_CONDITION);
570 HR_GENERAL.ASSERT_CONDITION(P_CONDITION); end;');
571 STPROC.BIND_I(P_CONDITION);
572 STPROC.EXECUTE;*/null;
573 END ASSERT_CONDITION;
574
575 FUNCTION GET_BUSINESS_GROUP_ID RETURN NUMBER IS
576 X0 NUMBER;
577 BEGIN
578 X0 := HR_GENERAL.GET_BUSINESS_GROUP_ID;
579 /*STPROC.INIT('begin :X0 := HR_GENERAL.GET_BUSINESS_GROUP_ID; end;');
580 STPROC.BIND_O(X0);
581 STPROC.EXECUTE;
582 STPROC.RETRIEVE(1
583 ,X0);*/null;
584 RETURN X0;
585 END GET_BUSINESS_GROUP_ID;
586
587 FUNCTION CHK_APPLICATION_ID(P_APPLICATION_ID IN NUMBER) RETURN VARCHAR2 IS
588 X0 VARCHAR2(2000);
589 BEGIN
590 /*STPROC.INIT('begin :X0 := HR_GENERAL.CHK_APPLICATION_ID(:P_APPLICATION_ID); end;');
591 STPROC.BIND_O(X0);
592 STPROC.BIND_I(P_APPLICATION_ID);
593 STPROC.EXECUTE;
594 STPROC.RETRIEVE(1
595 ,X0);*/null;
596 RETURN X0;
597 END CHK_APPLICATION_ID;
598
599 FUNCTION CORE_HR_APP_ID(P_APPLICATION_ID IN NUMBER) RETURN VARCHAR2 IS
600 X0 VARCHAR2(2000);
601 BEGIN
602 /*STPROC.INIT('begin :X0 := HR_GENERAL.CORE_HR_APP_ID(:P_APPLICATION_ID); end;');
603 STPROC.BIND_O(X0);
604 STPROC.BIND_I(P_APPLICATION_ID);
605 STPROC.EXECUTE;
606 STPROC.RETRIEVE(1
607 ,X0);*/null;
608 RETURN X0;
609 END CORE_HR_APP_ID;
610
611 FUNCTION VERTICAL_APP_ID(P_APPLICATION_ID IN NUMBER) RETURN VARCHAR2 IS
612 X0 VARCHAR2(2000);
613 BEGIN
614 /*STPROC.INIT('begin :X0 := HR_GENERAL.VERTICAL_APP_ID(:P_APPLICATION_ID); end;');
615 STPROC.BIND_O(X0);
616 STPROC.BIND_I(P_APPLICATION_ID);
617 STPROC.EXECUTE;
618 STPROC.RETRIEVE(1
619 ,X0);*/null;
620 RETURN X0;
621 END VERTICAL_APP_ID;
622
623 FUNCTION HRMS_OBJECT(P_OBJECT_NAME IN VARCHAR2) RETURN VARCHAR2 IS
624 X0 VARCHAR2(2000);
625 BEGIN
626 /* STPROC.INIT('begin :X0 := HR_GENERAL.HRMS_OBJECT(:P_OBJECT_NAME); end;');
627 STPROC.BIND_O(X0);
628 STPROC.BIND_I(P_OBJECT_NAME);
629 STPROC.EXECUTE;
630 STPROC.RETRIEVE(1
631 ,X0);*/null;
632 RETURN X0;
633 END HRMS_OBJECT;
634
635 FUNCTION GET_APPLICATION_SHORT_NAME(P_APPLICATION_ID IN VARCHAR2) RETURN VARCHAR2 IS
636 X0 VARCHAR2(2000);
637 BEGIN
638 /*STPROC.INIT('begin :X0 := HR_GENERAL.GET_APPLICATION_SHORT_NAME(:P_APPLICATION_ID); end;');
639 STPROC.BIND_O(X0);
640 STPROC.BIND_I(P_APPLICATION_ID);
641 STPROC.EXECUTE;
642 STPROC.RETRIEVE(1
643 ,X0);*/null;
644 RETURN X0;
645 END GET_APPLICATION_SHORT_NAME;
646
647 FUNCTION EFFECTIVE_DATE RETURN DATE IS
648 X0 DATE;
649 BEGIN
650 /*STPROC.INIT('begin :X0 := HR_GENERAL.EFFECTIVE_DATE; end;');
651 STPROC.BIND_O(X0);
652 STPROC.EXECUTE;
653 STPROC.RETRIEVE(1
654 ,X0);*/null;
655 RETURN X0;
656 END EFFECTIVE_DATE;
657
658 FUNCTION START_OF_TIME RETURN DATE IS
659 X0 DATE;
660 BEGIN
661 /*STPROC.INIT('begin :X0 := HR_GENERAL.START_OF_TIME; end;');
662 STPROC.BIND_O(X0);
663 STPROC.EXECUTE;
664 STPROC.RETRIEVE(1
665 ,X0);*/null;
666 RETURN X0;
667 END START_OF_TIME;
668
669 FUNCTION END_OF_TIME RETURN DATE IS
670 X0 DATE;
671 BEGIN
672 /*STPROC.INIT('begin :X0 := HR_GENERAL.END_OF_TIME; end;');
673 STPROC.BIND_O(X0);
674 STPROC.EXECUTE;
675 STPROC.RETRIEVE(1
676 ,X0);*/null;
677 RETURN X0;
678 END END_OF_TIME;
679
680 FUNCTION PAY_VALUE RETURN VARCHAR2 IS
681 X0 VARCHAR2(2000);
682 BEGIN
683 /*STPROC.INIT('begin :X0 := HR_GENERAL.PAY_VALUE; end;');
684 STPROC.BIND_O(X0);
685 STPROC.EXECUTE;
686 STPROC.RETRIEVE(1
687 ,X0);*/null;
688 RETURN X0;
689 END PAY_VALUE;
690
691 FUNCTION MONEY_UNIT RETURN VARCHAR2 IS
692 X0 VARCHAR2(2000);
693 BEGIN
694 /*STPROC.INIT('begin :X0 := HR_GENERAL.MONEY_UNIT; end;');
695 STPROC.BIND_O(X0);
696 STPROC.EXECUTE;
697 STPROC.RETRIEVE(1
698 ,X0);*/null;
699 RETURN X0;
700 END MONEY_UNIT;
701
702 FUNCTION DEFAULT_CURRENCY_CODE(P_LEGISLATION_CODE IN VARCHAR2) RETURN VARCHAR2 IS
703 X0 VARCHAR2(2000);
704 BEGIN
705 /*STPROC.INIT('begin :X0 := HR_GENERAL.DEFAULT_CURRENCY_CODE(:P_LEGISLATION_CODE); end;');
706 STPROC.BIND_O(X0);
707 STPROC.BIND_I(P_LEGISLATION_CODE);
708 STPROC.EXECUTE;
709 STPROC.RETRIEVE(1
710 ,X0);*/null;
711 RETURN X0;
712 END DEFAULT_CURRENCY_CODE;
713
714 FUNCTION DEFAULT_CURRENCY_CODE(P_BUSINESS_GROUP_ID IN NUMBER) RETURN VARCHAR2 IS
715 X0 VARCHAR2(2000);
716 BEGIN
717 /*STPROC.INIT('begin :X0 := HR_GENERAL.DEFAULT_CURRENCY_CODE(:P_BUSINESS_GROUP_ID); end;');
718 STPROC.BIND_O(X0);
719 STPROC.BIND_I(P_BUSINESS_GROUP_ID);
720 STPROC.EXECUTE;
721 STPROC.RETRIEVE(1
722 ,X0);*/null;
723 RETURN X0;
724 END DEFAULT_CURRENCY_CODE;
725
726 FUNCTION LOCATION_VALID(P_LOCATION_ID IN NUMBER
727 ,P_DATE IN DATE
728 ,P_ERROR_IF_INVALID IN BOOLEAN) RETURN BOOLEAN IS
729 X0 BOOLEAN;
730 BEGIN
731 /*STPROC.INIT('declare X0rv BOOLEAN; X0P_ERROR_IF_INVALID BOOLEAN;
732 begin X0P_ERROR_IF_INVALID := sys.diutil.int_to_bool(:P_ERROR_IF_INVALID);
733 X0rv := HR_GENERAL.LOCATION_VALID(:P_LOCATION_ID, :P_DATE, X0P_ERROR_IF_INVALID);
734 :X0 := sys.diutil.bool_to_int(X0rv); end;');
735 STPROC.BIND_I(P_ERROR_IF_INVALID);
736 STPROC.BIND_I(P_LOCATION_ID);
737 STPROC.BIND_I(P_DATE);
738 STPROC.BIND_O(X0);
739 STPROC.EXECUTE;
740 STPROC.RETRIEVE(4
741 ,X0);*/null;
742 RETURN X0;
743 END LOCATION_VALID;
744
745 FUNCTION DECODE_LOOKUP(P_LOOKUP_TYPE IN VARCHAR2
746 ,P_LOOKUP_CODE IN VARCHAR2) RETURN VARCHAR2 IS
747 X0 VARCHAR2(2000);
748 BEGIN
749 /* STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_LOOKUP(:P_LOOKUP_TYPE, :P_LOOKUP_CODE); end;');
750 STPROC.BIND_O(X0);
751 STPROC.BIND_I(P_LOOKUP_TYPE);
752 STPROC.BIND_I(P_LOOKUP_CODE);
753 STPROC.EXECUTE;
754 STPROC.RETRIEVE(1
755 ,X0);*/null;
756 RETURN X0;
757 END DECODE_LOOKUP;
758
759 FUNCTION DECODE_GRADE(P_GRADE_ID IN NUMBER) RETURN VARCHAR2 IS
760 X0 VARCHAR2(2000);
761 BEGIN
762 /*STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_GRADE(:P_GRADE_ID); end;');
763 STPROC.BIND_O(X0);
764 STPROC.BIND_I(P_GRADE_ID);
765 STPROC.EXECUTE;
766 STPROC.RETRIEVE(1
767 ,X0);*/null;
768 RETURN X0;
769 END DECODE_GRADE;
770
771 FUNCTION DECODE_PAYROLL(P_PAYROLL_ID IN NUMBER) RETURN VARCHAR2 IS
772 X0 VARCHAR2(2000);
773 BEGIN
774 /*STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_PAYROLL(:P_PAYROLL_ID); end;');
775 STPROC.BIND_O(X0);
776 STPROC.BIND_I(P_PAYROLL_ID);
777 STPROC.EXECUTE;
778 STPROC.RETRIEVE(1
779 ,X0);*/null;
780 RETURN X0;
781 END DECODE_PAYROLL;
782
783 FUNCTION GET_SALARY(P_PAY_BASIS_ID IN NUMBER
784 ,P_ASSIGNMENT_ID IN NUMBER) RETURN VARCHAR2 IS
785 X0 VARCHAR2(2000);
786 BEGIN
787 /*STPROC.INIT('begin :X0 := HR_GENERAL.GET_SALARY(:P_PAY_BASIS_ID, :P_ASSIGNMENT_ID); end;');
788 STPROC.BIND_O(X0);
789 STPROC.BIND_I(P_PAY_BASIS_ID);
790 STPROC.BIND_I(P_ASSIGNMENT_ID);
791 STPROC.EXECUTE;
792 STPROC.RETRIEVE(1
793 ,X0);*/null;
794 RETURN X0;
795 END GET_SALARY;
796
797 FUNCTION DECODE_JOB(P_JOB_ID IN NUMBER) RETURN VARCHAR2 IS
798 X0 VARCHAR2(2000);
799 BEGIN
800 /*STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_JOB(:P_JOB_ID); end;');
801 STPROC.BIND_O(X0);
802 STPROC.BIND_I(P_JOB_ID);
803 STPROC.EXECUTE;
804 STPROC.RETRIEVE(1
805 ,X0);*/null;
806 RETURN X0;
807 END DECODE_JOB;
808
809 FUNCTION DECODE_POSITION(P_POSITION_ID IN NUMBER) RETURN VARCHAR2 IS
810 X0 VARCHAR2(2000);
811 BEGIN
812 /*STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_POSITION(:P_POSITION_ID); end;');
813 STPROC.BIND_O(X0);
814 STPROC.BIND_I(P_POSITION_ID);
815 STPROC.EXECUTE;
816 STPROC.RETRIEVE(1
817 ,X0);*/null;
818 RETURN X0;
819 END DECODE_POSITION;
820
821 FUNCTION DECODE_LOCATION(P_LOCATION_ID IN NUMBER) RETURN VARCHAR2 IS
822 X0 VARCHAR2(2000);
823 BEGIN
824 /* STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_LOCATION(:P_LOCATION_ID); end;');
825 STPROC.BIND_O(X0);
826 STPROC.BIND_I(P_LOCATION_ID);
827 STPROC.EXECUTE;
828 STPROC.RETRIEVE(1
829 ,X0);*/
830 RETURN X0;
831 END DECODE_LOCATION;
832
833 FUNCTION DECODE_PAY_BASIS(P_PAY_BASIS_ID IN NUMBER) RETURN VARCHAR2 IS
834 X0 VARCHAR2(2000);
835 BEGIN
836 /*STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_PAY_BASIS(:P_PAY_BASIS_ID); end;');
837 STPROC.BIND_O(X0);
838 STPROC.BIND_I(P_PAY_BASIS_ID);
839 STPROC.EXECUTE;
840 STPROC.RETRIEVE(1
841 ,X0);*/null;
842 RETURN X0;
843 END DECODE_PAY_BASIS;
844
845 FUNCTION DECODE_ASS_STATUS_TYPE(P_ASSIGNMENT_STATUS_TYPE_ID IN NUMBER
846 ,P_BUSINESS_GROUP_ID IN NUMBER) RETURN VARCHAR2 IS
847 X0 VARCHAR2(2000);
848 BEGIN
849 /*STPROC.INIT('begin :X0 := HR_GENERAL.DECODE_ASS_STATUS_TYPE(:P_ASSIGNMENT_STATUS_TYPE_ID, :P_BUSINESS_GROUP_ID); end;');
850 STPROC.BIND_O(X0);
851 STPROC.BIND_I(P_ASSIGNMENT_STATUS_TYPE_ID);
852 STPROC.BIND_I(P_BUSINESS_GROUP_ID);
853 STPROC.EXECUTE;
854 STPROC.RETRIEVE(1
855 ,X0);*/null;
856 RETURN X0;
857 END DECODE_ASS_STATUS_TYPE;
858
859 FUNCTION GET_WORK_PHONE(P_PERSON_ID IN NUMBER) RETURN VARCHAR2 IS
860 X0 VARCHAR2(2000);
861 BEGIN
862 /*STPROC.INIT('begin :X0 := HR_GENERAL.GET_WORK_PHONE(:P_PERSON_ID); end;');
863 STPROC.BIND_O(X0);
864 STPROC.BIND_I(P_PERSON_ID);
865 STPROC.EXECUTE;
866 STPROC.RETRIEVE(1
867 ,X0);*/null;
868 RETURN X0;
869 END GET_WORK_PHONE;
870
871 FUNCTION GET_HOME_PHONE(P_PERSON_ID IN NUMBER) RETURN VARCHAR2 IS
872 X0 VARCHAR2(2000);
873 BEGIN
874 /*STPROC.INIT('begin :X0 := HR_GENERAL.GET_HOME_PHONE(:P_PERSON_ID); end;');
875 STPROC.BIND_O(X0);
876 STPROC.BIND_I(P_PERSON_ID);
877 STPROC.EXECUTE;
878 STPROC.RETRIEVE(1
879 ,X0);*/null;
880 RETURN X0;
881 END GET_HOME_PHONE;
882
883 PROCEDURE INIT_FORMS(P_BUSINESS_GROUP_ID IN NUMBER
884 ,P_SHORT_NAME OUT NOCOPY VARCHAR2
885 ,P_BG_NAME OUT NOCOPY VARCHAR2
886 ,P_BG_CURRENCY_CODE OUT NOCOPY VARCHAR2
887 ,P_LEGISLATION_CODE OUT NOCOPY VARCHAR2
888 ,P_SESSION_DATE IN OUT NOCOPY DATE
889 ,P_SES_YESTERDAY OUT NOCOPY DATE
890 ,P_START_OF_TIME OUT NOCOPY DATE
891 ,P_END_OF_TIME OUT NOCOPY DATE
892 ,P_SYS_DATE OUT NOCOPY DATE
893 ,P_ENABLE_HR_TRACE IN BOOLEAN) IS
894 BEGIN
895 /*STPROC.INIT('declare P_ENABLE_HR_TRACE BOOLEAN;
896 begin P_ENABLE_HR_TRACE := sys.diutil.int_to_bool(:P_ENABLE_HR_TRACE);
897 HR_GENERAL.INIT_FORMS(:P_BUSINESS_GROUP_ID, :P_SHORT_NAME, :P_BG_NAME,
898 :P_BG_CURRENCY_CODE, :P_LEGISLATION_CODE, :P_SESSION_DATE, :P_SES_YESTERDAY,
899 :P_START_OF_TIME, :P_END_OF_TIME, :P_SYS_DATE, P_ENABLE_HR_TRACE); end;');
900 STPROC.BIND_I(P_ENABLE_HR_TRACE);
901 STPROC.BIND_I(P_BUSINESS_GROUP_ID);
902 STPROC.BIND_O(P_SHORT_NAME);
903 STPROC.BIND_O(P_BG_NAME);
904 STPROC.BIND_O(P_BG_CURRENCY_CODE);
905 STPROC.BIND_O(P_LEGISLATION_CODE);
906 STPROC.BIND_IO(P_SESSION_DATE);
907 STPROC.BIND_O(P_SES_YESTERDAY);
908 STPROC.BIND_O(P_START_OF_TIME);
909 STPROC.BIND_O(P_END_OF_TIME);
910 STPROC.BIND_O(P_SYS_DATE);
911 STPROC.EXECUTE;
912 STPROC.RETRIEVE(3
913 ,P_SHORT_NAME);
914 STPROC.RETRIEVE(4
915 ,P_BG_NAME);
916 STPROC.RETRIEVE(5
917 ,P_BG_CURRENCY_CODE);
918 STPROC.RETRIEVE(6
919 ,P_LEGISLATION_CODE);
920 STPROC.RETRIEVE(7
921 ,P_SESSION_DATE);
922 STPROC.RETRIEVE(8
923 ,P_SES_YESTERDAY);
924 STPROC.RETRIEVE(9
925 ,P_START_OF_TIME);
926 STPROC.RETRIEVE(10
927 ,P_END_OF_TIME);
928 STPROC.RETRIEVE(11
929 ,P_SYS_DATE);*/null;
930 END INIT_FORMS;
931
932 FUNCTION CHK_GEOCODES_INSTALLED RETURN VARCHAR2 IS
933 X0 VARCHAR2(2000);
934 BEGIN
935 /*STPROC.INIT('begin :X0 := HR_GENERAL.CHK_GEOCODES_INSTALLED; end;');
936 STPROC.BIND_O(X0);
937 STPROC.EXECUTE;
938 STPROC.RETRIEVE(1
939 ,X0);*/null;
940 RETURN X0;
941 END CHK_GEOCODES_INSTALLED;
942
943 FUNCTION GET_BUDGET(P_BUDGET_ID IN NUMBER) RETURN VARCHAR2 IS
944 X0 VARCHAR2(2000);
945 BEGIN
946 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_BUDGET(:P_BUDGET_ID); end;');
947 STPROC.BIND_O(X0);
948 STPROC.BIND_I(P_BUDGET_ID);
949 STPROC.EXECUTE;
950 STPROC.RETRIEVE(1
951 ,X0);*/null;
952 RETURN X0;
953 END GET_BUDGET;
954
955 FUNCTION GET_BUDGET_VERSION(P_BUDGET_ID IN NUMBER
956 ,P_BUDGET_VERSION_ID IN NUMBER) RETURN VARCHAR2 IS
957 X0 VARCHAR2(2000);
958 BEGIN
959 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_BUDGET_VERSION(:P_BUDGET_ID, :P_BUDGET_VERSION_ID); end;');
960 STPROC.BIND_O(X0);
961 STPROC.BIND_I(P_BUDGET_ID);
962 STPROC.BIND_I(P_BUDGET_VERSION_ID);
963 STPROC.EXECUTE;
964 STPROC.RETRIEVE(1
965 ,X0);*/null;
966 RETURN X0;
967 END GET_BUDGET_VERSION;
968
969 PROCEDURE GET_ORGANIZATION(P_ORGANIZATION_ID IN NUMBER
970 ,P_ORG_NAME OUT NOCOPY VARCHAR2
971 ,P_ORG_TYPE OUT NOCOPY VARCHAR2) IS
972 BEGIN
973 /*STPROC.INIT('begin HR_REPORTS.GET_ORGANIZATION(:P_ORGANIZATION_ID, :P_ORG_NAME, :P_ORG_TYPE); end;');
974 STPROC.BIND_I(P_ORGANIZATION_ID);
975 STPROC.BIND_O(P_ORG_NAME);
976 STPROC.BIND_O(P_ORG_TYPE);
977 STPROC.EXECUTE;
978 STPROC.RETRIEVE(2
979 ,P_ORG_NAME);
980 STPROC.RETRIEVE(3
981 ,P_ORG_TYPE);*/null;
982 END GET_ORGANIZATION;
983
984 FUNCTION GET_JOB(P_JOB_ID IN NUMBER) RETURN VARCHAR2 IS
985 X0 VARCHAR2(2000);
986 BEGIN
987 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_JOB(:P_JOB_ID); end;');
988 STPROC.BIND_O(X0);
989 STPROC.BIND_I(P_JOB_ID);
990 STPROC.EXECUTE;
991 STPROC.RETRIEVE(1
992 ,X0);*/null;
993 RETURN X0;
994 END GET_JOB;
995
996 FUNCTION GET_POSITION(P_POSITION_ID IN NUMBER) RETURN VARCHAR2 IS
997 X0 VARCHAR2(2000);
998 BEGIN
999 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_POSITION(:P_POSITION_ID); end;');
1000 STPROC.BIND_O(X0);
1001 STPROC.BIND_I(P_POSITION_ID);
1002 STPROC.EXECUTE;
1003 STPROC.RETRIEVE(1
1004 ,X0);*/null;
1005 RETURN X0;
1006 END GET_POSITION;
1007
1008 FUNCTION GET_GRADE(P_GRADE_ID IN NUMBER) RETURN VARCHAR2 IS
1009 X0 VARCHAR2(2000);
1010 BEGIN
1011 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_GRADE(:P_GRADE_ID); end;');
1012 STPROC.BIND_O(X0);
1013 STPROC.BIND_I(P_GRADE_ID);
1014 STPROC.EXECUTE;
1015 STPROC.RETRIEVE(1
1016 ,X0);*/null;
1017 RETURN X0;
1018 END GET_GRADE;
1019
1020 FUNCTION GET_STATUS(P_BUSINESS_GROUP_ID IN NUMBER
1021 ,P_ASSIGNMENT_STATUS_TYPE_ID IN NUMBER
1022 ,P_LEGISLATION_CODE IN VARCHAR2) RETURN VARCHAR2 IS
1023 X0 VARCHAR2(2000);
1024 BEGIN
1025 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_STATUS(:P_BUSINESS_GROUP_ID, :P_ASSIGNMENT_STATUS_TYPE_ID, :P_LEGISLATION_CODE); end;');
1026 STPROC.BIND_O(X0);
1027 STPROC.BIND_I(P_BUSINESS_GROUP_ID);
1028 STPROC.BIND_I(P_ASSIGNMENT_STATUS_TYPE_ID);
1029 STPROC.BIND_I(P_LEGISLATION_CODE);
1030 STPROC.EXECUTE;
1031 STPROC.RETRIEVE(1
1032 ,X0);*/null;
1033 RETURN X0;
1034 END GET_STATUS;
1035
1036 FUNCTION GET_ABS_TYPE(P_ABS_ATT_TYPE_ID IN NUMBER) RETURN VARCHAR2 IS
1037 X0 VARCHAR2(2000);
1038 BEGIN
1039 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_ABS_TYPE(:P_ABS_ATT_TYPE_ID); end;');
1040 STPROC.BIND_O(X0);
1041 STPROC.BIND_I(P_ABS_ATT_TYPE_ID);
1042 STPROC.EXECUTE;
1043 STPROC.RETRIEVE(1
1044 ,X0);*/null;
1045 RETURN X0;
1046 END GET_ABS_TYPE;
1047
1048 PROCEDURE GET_TIME_PERIOD(P_TIME_PERIOD_ID IN NUMBER
1049 ,P_PERIOD_NAME OUT NOCOPY VARCHAR2
1050 ,P_START_DATE OUT NOCOPY DATE
1051 ,P_END_DATE OUT NOCOPY DATE) IS
1052 BEGIN
1053 /*STPROC.INIT('begin HR_REPORTS.GET_TIME_PERIOD(:P_TIME_PERIOD_ID, :P_PERIOD_NAME, :P_START_DATE, :P_END_DATE); end;');
1054 STPROC.BIND_I(P_TIME_PERIOD_ID);
1055 STPROC.BIND_O(P_PERIOD_NAME);
1056 STPROC.BIND_O(P_START_DATE);
1057 STPROC.BIND_O(P_END_DATE);
1058 STPROC.EXECUTE;
1059 STPROC.RETRIEVE(2
1060 ,P_PERIOD_NAME);
1061 STPROC.RETRIEVE(3
1062 ,P_START_DATE);
1063 STPROC.RETRIEVE(4
1064 ,P_END_DATE);*/null;
1065 END GET_TIME_PERIOD;
1066
1067 FUNCTION GET_BUSINESS_GROUP(P_BUSINESS_GROUP_ID IN NUMBER) RETURN VARCHAR2 IS
1068 X0 VARCHAR2(2000);
1069 BEGIN
1070 X0:= HR_REPORTS.GET_BUSINESS_GROUP(P_BUSINESS_GROUP_ID);
1071 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_BUSINESS_GROUP(:P_BUSINESS_GROUP_ID); end;');
1072 STPROC.BIND_O(X0);
1073 STPROC.BIND_I(P_BUSINESS_GROUP_ID);
1074 STPROC.EXECUTE;
1075 STPROC.RETRIEVE(1
1076 ,X0);*/null;
1077 RETURN X0;
1078 END GET_BUSINESS_GROUP;
1079
1080 FUNCTION COUNT_ORG_SUBORDINATES(P_ORG_STRUCTURE_VERSION_ID IN NUMBER
1081 ,P_PARENT_ORGANIZATION_ID IN NUMBER) RETURN NUMBER IS
1082 X0 NUMBER;
1083 BEGIN
1084 /*STPROC.INIT('begin :X0 := HR_REPORTS.COUNT_ORG_SUBORDINATES(:P_ORG_STRUCTURE_VERSION_ID, :P_PARENT_ORGANIZATION_ID); end;');
1085 STPROC.BIND_O(X0);
1086 STPROC.BIND_I(P_ORG_STRUCTURE_VERSION_ID);
1087 STPROC.BIND_I(P_PARENT_ORGANIZATION_ID);
1088 STPROC.EXECUTE;
1089 STPROC.RETRIEVE(1
1090 ,X0);*/null;
1091 RETURN X0;
1092 END COUNT_ORG_SUBORDINATES;
1093
1094 FUNCTION COUNT_POS_SUBORDINATES(P_POS_STRUCTURE_VERSION_ID IN NUMBER
1095 ,P_PARENT_POSITION_ID IN NUMBER) RETURN NUMBER IS
1096 X0 NUMBER;
1097 BEGIN
1098 /*STPROC.INIT('begin :X0 := HR_REPORTS.COUNT_POS_SUBORDINATES(:P_POS_STRUCTURE_VERSION_ID, :P_PARENT_POSITION_ID); end;');
1099 STPROC.BIND_O(X0);
1100 STPROC.BIND_I(P_POS_STRUCTURE_VERSION_ID);
1101 STPROC.BIND_I(P_PARENT_POSITION_ID);
1102 STPROC.EXECUTE;
1103 STPROC.RETRIEVE(1
1104 ,X0);*/null;
1105 RETURN X0;
1106 END COUNT_POS_SUBORDINATES;
1107
1108 PROCEDURE GET_ORGANIZATION_HIERARCHY(P_ORGANIZATION_STRUCTURE_ID IN NUMBER
1109 ,P_ORG_STRUCTURE_VERSION_ID IN NUMBER
1110 ,P_ORG_STRUCTURE_NAME OUT NOCOPY VARCHAR2
1111 ,P_ORG_VERSION OUT NOCOPY NUMBER
1112 ,P_VERSION_START_DATE OUT NOCOPY DATE
1113 ,P_VERSION_END_DATE OUT NOCOPY DATE) IS
1114 BEGIN
1115 /*STPROC.INIT('begin HR_REPORTS.GET_ORGANIZATION_HIERARCHY(:P_ORGANIZATION_STRUCTURE_ID,
1116 :P_ORG_STRUCTURE_VERSION_ID, :P_ORG_STRUCTURE_NAME, :P_ORG_VERSION, :P_VERSION_START_DATE,
1117 :P_VERSION_END_DATE); end;');
1118 STPROC.BIND_I(P_ORGANIZATION_STRUCTURE_ID);
1119 STPROC.BIND_I(P_ORG_STRUCTURE_VERSION_ID);
1120 STPROC.BIND_O(P_ORG_STRUCTURE_NAME);
1121 STPROC.BIND_O(P_ORG_VERSION);
1122 STPROC.BIND_O(P_VERSION_START_DATE);
1123 STPROC.BIND_O(P_VERSION_END_DATE);
1124 STPROC.EXECUTE;
1125 STPROC.RETRIEVE(3
1126 ,P_ORG_STRUCTURE_NAME);
1127 STPROC.RETRIEVE(4
1128 ,P_ORG_VERSION);
1129 STPROC.RETRIEVE(5
1130 ,P_VERSION_START_DATE);
1131 STPROC.RETRIEVE(6
1132 ,P_VERSION_END_DATE);*/null;
1133 END GET_ORGANIZATION_HIERARCHY;
1134
1135 PROCEDURE GET_POSITION_HIERARCHY(P_POSITION_STRUCTURE_ID IN NUMBER
1136 ,P_POS_STRUCTURE_VERSION_ID IN NUMBER
1137 ,P_POS_STRUCTURE_NAME OUT NOCOPY VARCHAR2
1138 ,P_POS_VERSION OUT NOCOPY NUMBER
1139 ,P_VERSION_START_DATE OUT NOCOPY DATE
1140 ,P_VERSION_END_DATE OUT NOCOPY DATE) IS
1141 BEGIN
1142 /*STPROC.INIT('begin HR_REPORTS.GET_POSITION_HIERARCHY(:P_POSITION_STRUCTURE_ID, :P_POS_STRUCTURE_VERSION_ID, :P_POS_STRUCTURE_NAME,
1143 :P_POS_VERSION, :P_VERSION_START_DATE, :P_VERSION_END_DATE); end;');
1144 STPROC.BIND_I(P_POSITION_STRUCTURE_ID);
1145 STPROC.BIND_I(P_POS_STRUCTURE_VERSION_ID);
1146 STPROC.BIND_O(P_POS_STRUCTURE_NAME);
1147 STPROC.BIND_O(P_POS_VERSION);
1148 STPROC.BIND_O(P_VERSION_START_DATE);
1149 STPROC.BIND_O(P_VERSION_END_DATE);
1150 STPROC.EXECUTE;
1151 STPROC.RETRIEVE(3
1152 ,P_POS_STRUCTURE_NAME);
1153 STPROC.RETRIEVE(4
1154 ,P_POS_VERSION);
1155 STPROC.RETRIEVE(5
1156 ,P_VERSION_START_DATE);
1157 STPROC.RETRIEVE(6
1158 ,P_VERSION_END_DATE);*/null;
1159 END GET_POSITION_HIERARCHY;
1160
1161 FUNCTION GET_LOOKUP_MEANING(P_LOOKUP_TYPE IN VARCHAR2
1162 ,P_LOOKUP_CODE IN VARCHAR2) RETURN VARCHAR2 IS
1163 X0 VARCHAR2(2000);
1164 BEGIN
1165 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_LOOKUP_MEANING(:P_LOOKUP_TYPE, :P_LOOKUP_CODE); end;');
1166 STPROC.BIND_O(X0);
1167 STPROC.BIND_I(P_LOOKUP_TYPE);
1168 STPROC.BIND_I(P_LOOKUP_CODE);
1169 STPROC.EXECUTE;
1170 STPROC.RETRIEVE(1
1171 ,X0);*/null;
1172 RETURN X0;
1173 END GET_LOOKUP_MEANING;
1174
1175 FUNCTION PERSON_MATCHING_SKILLS(P_PERSON_ID IN NUMBER
1176 ,P_JOB_POSITION_ID IN NUMBER
1177 ,P_JOB_POSITION_TYPE IN VARCHAR2
1178 ,P_MATCHING_LEVEL IN VARCHAR2
1179 ,P_NO_OF_ESSENTIAL IN NUMBER
1180 ,P_NO_OF_DESIRABLE IN NUMBER) RETURN BOOLEAN IS
1181 X0 BOOLEAN;
1182 BEGIN
1183 /*STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := HR_REPORTS.PERSON_MATCHING_SKILLS(:P_PERSON_ID, :P_JOB_POSITION_ID,
1184 :P_JOB_POSITION_TYPE, :P_MATCHING_LEVEL, :P_NO_OF_ESSENTIAL, :P_NO_OF_DESIRABLE); :X0 := sys.diutil.bool_to_int(X0rv); end;');
1185 STPROC.BIND_I(P_PERSON_ID);
1186 STPROC.BIND_I(P_JOB_POSITION_ID);
1187 STPROC.BIND_I(P_JOB_POSITION_TYPE);
1188 STPROC.BIND_I(P_MATCHING_LEVEL);
1189 STPROC.BIND_I(P_NO_OF_ESSENTIAL);
1190 STPROC.BIND_I(P_NO_OF_DESIRABLE);
1191 STPROC.BIND_O(X0);
1192 STPROC.EXECUTE;
1193 STPROC.RETRIEVE(7
1194 ,X0);*/null;
1195 RETURN X0;
1196 END PERSON_MATCHING_SKILLS;
1197
1198 FUNCTION GET_PAYROLL_NAME(P_SESSION_DATE IN DATE
1199 ,P_PAYROLL_ID IN NUMBER) RETURN VARCHAR2 IS
1200 X0 VARCHAR2(2000);
1201 BEGIN
1202 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_PAYROLL_NAME(:P_SESSION_DATE, :P_PAYROLL_ID); end;');
1203 STPROC.BIND_O(X0);
1204 STPROC.BIND_I(P_SESSION_DATE);
1205 STPROC.BIND_I(P_PAYROLL_ID);
1206 STPROC.EXECUTE;
1207 STPROC.RETRIEVE(1
1208 ,X0);*/null;
1209 RETURN X0;
1210 END GET_PAYROLL_NAME;
1211
1212 FUNCTION GET_ELEMENT_NAME(P_SESSION_DATE IN DATE
1213 ,P_ELEMENT_TYPE_ID IN NUMBER) RETURN VARCHAR2 IS
1214 X0 VARCHAR2(2000);
1215 BEGIN
1216 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_ELEMENT_NAME(:P_SESSION_DATE, :P_ELEMENT_TYPE_ID); end;');
1217 STPROC.BIND_O(X0);
1218 STPROC.BIND_I(P_SESSION_DATE);
1219 STPROC.BIND_I(P_ELEMENT_TYPE_ID);
1220 STPROC.EXECUTE;
1221 STPROC.RETRIEVE(1
1222 ,X0);*/null;
1223 RETURN X0;
1224 END GET_ELEMENT_NAME;
1225
1226 PROCEDURE GEN_PARTIAL_MATCHING_LEXICAL(P_CONCATENATED_SEGMENTS IN VARCHAR2
1227 ,P_ID_FLEX_NUM IN NUMBER
1228 ,P_MATCHING_LEXICAL IN OUT NOCOPY VARCHAR2) IS
1229 BEGIN
1230 /*STPROC.INIT('begin HR_REPORTS.GEN_PARTIAL_MATCHING_LEXICAL(:P_CONCATENATED_SEGMENTS, :P_ID_FLEX_NUM, :P_MATCHING_LEXICAL); end;');
1231 STPROC.BIND_I(P_CONCATENATED_SEGMENTS);
1232 STPROC.BIND_I(P_ID_FLEX_NUM);
1233 STPROC.BIND_IO(P_MATCHING_LEXICAL);
1234 STPROC.EXECUTE;
1235 STPROC.RETRIEVE(3
1236 ,P_MATCHING_LEXICAL);*/null;
1237 END GEN_PARTIAL_MATCHING_LEXICAL;
1238
1239 PROCEDURE GET_ATTRIBUTES(P_CONCATENATED_SEGMENTS IN VARCHAR2
1240 ,P_NAME IN VARCHAR2
1241 ,P_SEGMENTS_USED OUT NOCOPY NUMBER
1242 ,P_VALUE1 OUT NOCOPY VARCHAR2
1243 ,P_VALUE2 OUT NOCOPY VARCHAR2
1244 ,P_VALUE3 OUT NOCOPY VARCHAR2
1245 ,P_VALUE4 OUT NOCOPY VARCHAR2
1246 ,P_VALUE5 OUT NOCOPY VARCHAR2
1247 ,P_VALUE6 OUT NOCOPY VARCHAR2
1248 ,P_VALUE7 OUT NOCOPY VARCHAR2
1249 ,P_VALUE8 OUT NOCOPY VARCHAR2
1250 ,P_VALUE9 OUT NOCOPY VARCHAR2
1251 ,P_VALUE10 OUT NOCOPY VARCHAR2
1252 ,P_VALUE11 OUT NOCOPY VARCHAR2
1253 ,P_VALUE12 OUT NOCOPY VARCHAR2
1254 ,P_VALUE13 OUT NOCOPY VARCHAR2
1255 ,P_VALUE14 OUT NOCOPY VARCHAR2
1256 ,P_VALUE15 OUT NOCOPY VARCHAR2
1257 ,P_VALUE16 OUT NOCOPY VARCHAR2
1258 ,P_VALUE17 OUT NOCOPY VARCHAR2
1259 ,P_VALUE18 OUT NOCOPY VARCHAR2
1260 ,P_VALUE19 OUT NOCOPY VARCHAR2
1261 ,P_VALUE20 OUT NOCOPY VARCHAR2
1262 ,P_VALUE21 OUT NOCOPY VARCHAR2
1263 ,P_VALUE22 OUT NOCOPY VARCHAR2
1264 ,P_VALUE23 OUT NOCOPY VARCHAR2
1265 ,P_VALUE24 OUT NOCOPY VARCHAR2
1266 ,P_VALUE25 OUT NOCOPY VARCHAR2
1267 ,P_VALUE26 OUT NOCOPY VARCHAR2
1268 ,P_VALUE27 OUT NOCOPY VARCHAR2
1269 ,P_VALUE28 OUT NOCOPY VARCHAR2
1270 ,P_VALUE29 OUT NOCOPY VARCHAR2
1271 ,P_VALUE30 OUT NOCOPY VARCHAR2) IS
1272 BEGIN
1273 /*STPROC.INIT('begin HR_REPORTS.GET_ATTRIBUTES(:P_CONCATENATED_SEGMENTS, :P_NAME, :P_SEGMENTS_USED, :P_VALUE1, :P_VALUE2,
1274 :P_VALUE3, :P_VALUE4, :P_VALUE5, :P_VALUE6, :P_VALUE7, :P_VALUE8, :P_VALUE9, :P_VALUE10, :P_VALUE11, :P_VALUE12, :P_VALUE13,
1275 :P_VALUE14, :P_VALUE15, :P_VALUE16, :P_VALUE17, :P_VALUE18, :P_VALUE19, :P_VALUE20, :P_VALUE21, :P_VALUE22, :P_VALUE23, :P_VALUE24,
1276 :P_VALUE25, :P_VALUE26, :P_VALUE27, :P_VALUE28, :P_VALUE29, :P_VALUE30); end;');
1277 STPROC.BIND_I(P_CONCATENATED_SEGMENTS);
1278 STPROC.BIND_I(P_NAME);
1279 STPROC.BIND_O(P_SEGMENTS_USED);
1280 STPROC.BIND_O(P_VALUE1);
1281 STPROC.BIND_O(P_VALUE2);
1282 STPROC.BIND_O(P_VALUE3);
1283 STPROC.BIND_O(P_VALUE4);
1284 STPROC.BIND_O(P_VALUE5);
1285 STPROC.BIND_O(P_VALUE6);
1286 STPROC.BIND_O(P_VALUE7);
1287 STPROC.BIND_O(P_VALUE8);
1288 STPROC.BIND_O(P_VALUE9);
1289 STPROC.BIND_O(P_VALUE10);
1290 STPROC.BIND_O(P_VALUE11);
1291 STPROC.BIND_O(P_VALUE12);
1292 STPROC.BIND_O(P_VALUE13);
1293 STPROC.BIND_O(P_VALUE14);
1294 STPROC.BIND_O(P_VALUE15);
1295 STPROC.BIND_O(P_VALUE16);
1296 STPROC.BIND_O(P_VALUE17);
1297 STPROC.BIND_O(P_VALUE18);
1298 STPROC.BIND_O(P_VALUE19);
1299 STPROC.BIND_O(P_VALUE20);
1300 STPROC.BIND_O(P_VALUE21);
1301 STPROC.BIND_O(P_VALUE22);
1302 STPROC.BIND_O(P_VALUE23);
1303 STPROC.BIND_O(P_VALUE24);
1304 STPROC.BIND_O(P_VALUE25);
1305 STPROC.BIND_O(P_VALUE26);
1306 STPROC.BIND_O(P_VALUE27);
1307 STPROC.BIND_O(P_VALUE28);
1308 STPROC.BIND_O(P_VALUE29);
1309 STPROC.BIND_O(P_VALUE30);
1310 STPROC.EXECUTE;
1311 STPROC.RETRIEVE(3
1312 ,P_SEGMENTS_USED);
1313 STPROC.RETRIEVE(4
1314 ,P_VALUE1);
1315 STPROC.RETRIEVE(5
1316 ,P_VALUE2);
1317 STPROC.RETRIEVE(6
1318 ,P_VALUE3);
1319 STPROC.RETRIEVE(7
1320 ,P_VALUE4);
1321 STPROC.RETRIEVE(8
1322 ,P_VALUE5);
1323 STPROC.RETRIEVE(9
1324 ,P_VALUE6);
1325 STPROC.RETRIEVE(10
1326 ,P_VALUE7);
1327 STPROC.RETRIEVE(11
1328 ,P_VALUE8);
1329 STPROC.RETRIEVE(12
1330 ,P_VALUE9);
1331 STPROC.RETRIEVE(13
1332 ,P_VALUE10);
1333 STPROC.RETRIEVE(14
1334 ,P_VALUE11);
1335 STPROC.RETRIEVE(15
1336 ,P_VALUE12);
1337 STPROC.RETRIEVE(16
1338 ,P_VALUE13);
1339 STPROC.RETRIEVE(17
1340 ,P_VALUE14);
1341 STPROC.RETRIEVE(18
1342 ,P_VALUE15);
1343 STPROC.RETRIEVE(19
1344 ,P_VALUE16);
1345 STPROC.RETRIEVE(20
1346 ,P_VALUE17);
1347 STPROC.RETRIEVE(21
1348 ,P_VALUE18);
1349 STPROC.RETRIEVE(22
1350 ,P_VALUE19);
1351 STPROC.RETRIEVE(23
1352 ,P_VALUE20);
1353 STPROC.RETRIEVE(24
1354 ,P_VALUE21);
1355 STPROC.RETRIEVE(25
1356 ,P_VALUE22);
1357 STPROC.RETRIEVE(26
1361 STPROC.RETRIEVE(28
1358 ,P_VALUE23);
1359 STPROC.RETRIEVE(27
1360 ,P_VALUE24);
1362 ,P_VALUE25);
1363 STPROC.RETRIEVE(29
1364 ,P_VALUE26);
1365 STPROC.RETRIEVE(30
1366 ,P_VALUE27);
1367 STPROC.RETRIEVE(31
1368 ,P_VALUE28);
1369 STPROC.RETRIEVE(32
1370 ,P_VALUE29);
1371 STPROC.RETRIEVE(33
1372 ,P_VALUE30);*/null;
1373 END GET_ATTRIBUTES;
1374
1375 PROCEDURE GET_SEGMENTS(P_CONCATENATED_SEGMENTS IN VARCHAR2
1376 ,P_ID_FLEX_NUM IN NUMBER
1377 ,P_SEGMENTS_USED OUT NOCOPY NUMBER
1378 ,P_VALUE1 OUT NOCOPY VARCHAR2
1379 ,P_VALUE2 OUT NOCOPY VARCHAR2
1380 ,P_VALUE3 OUT NOCOPY VARCHAR2
1381 ,P_VALUE4 OUT NOCOPY VARCHAR2
1382 ,P_VALUE5 OUT NOCOPY VARCHAR2
1383 ,P_VALUE6 OUT NOCOPY VARCHAR2
1384 ,P_VALUE7 OUT NOCOPY VARCHAR2
1385 ,P_VALUE8 OUT NOCOPY VARCHAR2
1386 ,P_VALUE9 OUT NOCOPY VARCHAR2
1387 ,P_VALUE10 OUT NOCOPY VARCHAR2
1388 ,P_VALUE11 OUT NOCOPY VARCHAR2
1389 ,P_VALUE12 OUT NOCOPY VARCHAR2
1390 ,P_VALUE13 OUT NOCOPY VARCHAR2
1391 ,P_VALUE14 OUT NOCOPY VARCHAR2
1392 ,P_VALUE15 OUT NOCOPY VARCHAR2
1393 ,P_VALUE16 OUT NOCOPY VARCHAR2
1394 ,P_VALUE17 OUT NOCOPY VARCHAR2
1395 ,P_VALUE18 OUT NOCOPY VARCHAR2
1396 ,P_VALUE19 OUT NOCOPY VARCHAR2
1397 ,P_VALUE20 OUT NOCOPY VARCHAR2
1398 ,P_VALUE21 OUT NOCOPY VARCHAR2
1399 ,P_VALUE22 OUT NOCOPY VARCHAR2
1400 ,P_VALUE23 OUT NOCOPY VARCHAR2
1401 ,P_VALUE24 OUT NOCOPY VARCHAR2
1402 ,P_VALUE25 OUT NOCOPY VARCHAR2
1403 ,P_VALUE26 OUT NOCOPY VARCHAR2
1404 ,P_VALUE27 OUT NOCOPY VARCHAR2
1405 ,P_VALUE28 OUT NOCOPY VARCHAR2
1406 ,P_VALUE29 OUT NOCOPY VARCHAR2
1407 ,P_VALUE30 OUT NOCOPY VARCHAR2) IS
1408 BEGIN
1409 /*STPROC.INIT('begin HR_REPORTS.GET_SEGMENTS(:P_CONCATENATED_SEGMENTS, :P_ID_FLEX_NUM, :P_SEGMENTS_USED, :P_VALUE1, :P_VALUE2,
1410 :P_VALUE3, :P_VALUE4, :P_VALUE5, :P_VALUE6, :P_VALUE7, :P_VALUE8, :P_VALUE9, :P_VALUE10, :P_VALUE11, :P_VALUE12, :P_VALUE13,
1411 :P_VALUE14, :P_VALUE15, :P_VALUE16, :P_VALUE17, :P_VALUE18, :P_VALUE19, :P_VALUE20, :P_VALUE21, :P_VALUE22, :P_VALUE23, :P_VALUE24,
1412 :P_VALUE25, :P_VALUE26, :P_VALUE27, :P_VALUE28, :P_VALUE29, :P_VALUE30); end;');
1413 STPROC.BIND_I(P_CONCATENATED_SEGMENTS);
1414 STPROC.BIND_I(P_ID_FLEX_NUM);
1415 STPROC.BIND_O(P_SEGMENTS_USED);
1416 STPROC.BIND_O(P_VALUE1);
1417 STPROC.BIND_O(P_VALUE2);
1418 STPROC.BIND_O(P_VALUE3);
1419 STPROC.BIND_O(P_VALUE4);
1420 STPROC.BIND_O(P_VALUE5);
1421 STPROC.BIND_O(P_VALUE6);
1422 STPROC.BIND_O(P_VALUE7);
1423 STPROC.BIND_O(P_VALUE8);
1424 STPROC.BIND_O(P_VALUE9);
1425 STPROC.BIND_O(P_VALUE10);
1426 STPROC.BIND_O(P_VALUE11);
1427 STPROC.BIND_O(P_VALUE12);
1428 STPROC.BIND_O(P_VALUE13);
1429 STPROC.BIND_O(P_VALUE14);
1430 STPROC.BIND_O(P_VALUE15);
1431 STPROC.BIND_O(P_VALUE16);
1432 STPROC.BIND_O(P_VALUE17);
1433 STPROC.BIND_O(P_VALUE18);
1434 STPROC.BIND_O(P_VALUE19);
1435 STPROC.BIND_O(P_VALUE20);
1436 STPROC.BIND_O(P_VALUE21);
1437 STPROC.BIND_O(P_VALUE22);
1438 STPROC.BIND_O(P_VALUE23);
1439 STPROC.BIND_O(P_VALUE24);
1440 STPROC.BIND_O(P_VALUE25);
1441 STPROC.BIND_O(P_VALUE26);
1442 STPROC.BIND_O(P_VALUE27);
1443 STPROC.BIND_O(P_VALUE28);
1444 STPROC.BIND_O(P_VALUE29);
1445 STPROC.BIND_O(P_VALUE30);
1446 STPROC.EXECUTE;
1447 STPROC.RETRIEVE(3
1448 ,P_SEGMENTS_USED);
1449 STPROC.RETRIEVE(4
1450 ,P_VALUE1);
1451 STPROC.RETRIEVE(5
1452 ,P_VALUE2);
1453 STPROC.RETRIEVE(6
1454 ,P_VALUE3);
1455 STPROC.RETRIEVE(7
1456 ,P_VALUE4);
1457 STPROC.RETRIEVE(8
1458 ,P_VALUE5);
1459 STPROC.RETRIEVE(9
1460 ,P_VALUE6);
1461 STPROC.RETRIEVE(10
1462 ,P_VALUE7);
1463 STPROC.RETRIEVE(11
1464 ,P_VALUE8);
1465 STPROC.RETRIEVE(12
1466 ,P_VALUE9);
1467 STPROC.RETRIEVE(13
1468 ,P_VALUE10);
1469 STPROC.RETRIEVE(14
1470 ,P_VALUE11);
1471 STPROC.RETRIEVE(15
1472 ,P_VALUE12);
1473 STPROC.RETRIEVE(16
1474 ,P_VALUE13);
1475 STPROC.RETRIEVE(17
1476 ,P_VALUE14);
1477 STPROC.RETRIEVE(18
1478 ,P_VALUE15);
1479 STPROC.RETRIEVE(19
1480 ,P_VALUE16);
1481 STPROC.RETRIEVE(20
1482 ,P_VALUE17);
1483 STPROC.RETRIEVE(21
1484 ,P_VALUE18);
1485 STPROC.RETRIEVE(22
1486 ,P_VALUE19);
1487 STPROC.RETRIEVE(23
1488 ,P_VALUE20);
1489 STPROC.RETRIEVE(24
1490 ,P_VALUE21);
1491 STPROC.RETRIEVE(25
1492 ,P_VALUE22);
1493 STPROC.RETRIEVE(26
1494 ,P_VALUE23);
1495 STPROC.RETRIEVE(27
1496 ,P_VALUE24);
1497 STPROC.RETRIEVE(28
1501 STPROC.RETRIEVE(30
1498 ,P_VALUE25);
1499 STPROC.RETRIEVE(29
1500 ,P_VALUE26);
1502 ,P_VALUE27);
1503 STPROC.RETRIEVE(31
1504 ,P_VALUE28);
1505 STPROC.RETRIEVE(32
1506 ,P_VALUE29);
1507 STPROC.RETRIEVE(33
1508 ,P_VALUE30);*/null;
1509 END GET_SEGMENTS;
1510
1511 PROCEDURE GET_DESC_FLEX(P_APPL_SHORT_NAME IN VARCHAR2
1512 ,P_DESC_FLEX_NAME IN VARCHAR2
1513 ,P_TABLE_ALIAS IN VARCHAR2
1514 ,P_TITLE OUT NOCOPY VARCHAR2
1515 ,P_LABEL_EXPR OUT NOCOPY VARCHAR2
1516 ,P_COLUMN_EXPR OUT NOCOPY VARCHAR2) IS
1517 BEGIN
1518 /*STPROC.INIT('begin HR_REPORTS.GET_DESC_FLEX(:P_APPL_SHORT_NAME, :P_DESC_FLEX_NAME, :P_TABLE_ALIAS, :P_TITLE, :P_LABEL_EXPR,
1519 :P_COLUMN_EXPR); end;');
1520 STPROC.BIND_I(P_APPL_SHORT_NAME);
1521 STPROC.BIND_I(P_DESC_FLEX_NAME);
1522 STPROC.BIND_I(P_TABLE_ALIAS);
1523 STPROC.BIND_O(P_TITLE);
1524 STPROC.BIND_O(P_LABEL_EXPR);
1525 STPROC.BIND_O(P_COLUMN_EXPR);
1526 STPROC.EXECUTE;
1527 STPROC.RETRIEVE(4
1528 ,P_TITLE);
1529 STPROC.RETRIEVE(5
1530 ,P_LABEL_EXPR);
1531 STPROC.RETRIEVE(6
1532 ,P_COLUMN_EXPR);*/null;
1533 END GET_DESC_FLEX;
1534
1535 PROCEDURE GET_DESC_FLEX_CONTEXT(P_APPL_SHORT_NAME IN VARCHAR2
1536 ,P_DESC_FLEX_NAME IN VARCHAR2
1537 ,P_TABLE_ALIAS IN VARCHAR2
1538 ,P_TITLE OUT NOCOPY VARCHAR2
1539 ,P_LABEL_EXPR OUT NOCOPY VARCHAR2
1540 ,P_COLUMN_EXPR OUT NOCOPY VARCHAR2) IS
1541 BEGIN
1542 /*STPROC.INIT('begin HR_REPORTS.GET_DESC_FLEX_CONTEXT(:P_APPL_SHORT_NAME, :P_DESC_FLEX_NAME, :P_TABLE_ALIAS, :P_TITLE, :P_LABEL_EXPR,
1543 :P_COLUMN_EXPR); end;');
1544 STPROC.BIND_I(P_APPL_SHORT_NAME);
1545 STPROC.BIND_I(P_DESC_FLEX_NAME);
1546 STPROC.BIND_I(P_TABLE_ALIAS);
1547 STPROC.BIND_O(P_TITLE);
1548 STPROC.BIND_O(P_LABEL_EXPR);
1549 STPROC.BIND_O(P_COLUMN_EXPR);
1550 STPROC.EXECUTE;
1551 STPROC.RETRIEVE(4
1552 ,P_TITLE);
1553 STPROC.RETRIEVE(5
1554 ,P_LABEL_EXPR);
1555 STPROC.RETRIEVE(6
1556 ,P_COLUMN_EXPR);*/null;
1557 END GET_DESC_FLEX_CONTEXT;
1558
1559 PROCEDURE GET_DVLPR_DESC_FLEX(P_APPL_SHORT_NAME IN VARCHAR2
1560 ,P_DESC_FLEX_NAME IN VARCHAR2
1561 ,P_DESC_FLEX_CONTEXT IN VARCHAR2
1562 ,P_TABLE_ALIAS IN VARCHAR2
1563 ,P_TITLE OUT NOCOPY VARCHAR2
1564 ,P_LABEL_EXPR OUT NOCOPY VARCHAR2
1565 ,P_COLUMN_EXPR OUT NOCOPY VARCHAR2) IS
1566 BEGIN
1567 /*STPROC.INIT('begin HR_REPORTS.GET_DVLPR_DESC_FLEX(:P_APPL_SHORT_NAME, :P_DESC_FLEX_NAME, :P_DESC_FLEX_CONTEXT, :P_TABLE_ALIAS,
1568 :P_TITLE, :P_LABEL_EXPR, :P_COLUMN_EXPR); end;');
1569 STPROC.BIND_I(P_APPL_SHORT_NAME);
1570 STPROC.BIND_I(P_DESC_FLEX_NAME);
1571 STPROC.BIND_I(P_DESC_FLEX_CONTEXT);
1572 STPROC.BIND_I(P_TABLE_ALIAS);
1573 STPROC.BIND_O(P_TITLE);
1574 STPROC.BIND_O(P_LABEL_EXPR);
1575 STPROC.BIND_O(P_COLUMN_EXPR);
1576 STPROC.EXECUTE;
1577 STPROC.RETRIEVE(5
1578 ,P_TITLE);
1579 STPROC.RETRIEVE(6
1580 ,P_LABEL_EXPR);
1581 STPROC.RETRIEVE(7
1582 ,P_COLUMN_EXPR);*/null;
1583 END GET_DVLPR_DESC_FLEX;
1584
1585 FUNCTION GET_PERSON_NAME(P_SESSION_DATE IN DATE
1586 ,P_PERSON_ID IN NUMBER) RETURN VARCHAR2 IS
1587 X0 VARCHAR2(2000);
1588 BEGIN
1589 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_PERSON_NAME(:P_SESSION_DATE, :P_PERSON_ID); end;');
1590 STPROC.BIND_O(X0);
1591 STPROC.BIND_I(P_SESSION_DATE);
1592 STPROC.BIND_I(P_PERSON_ID);
1593 STPROC.EXECUTE;
1594 STPROC.RETRIEVE(1
1595 ,X0);*/null;
1596 RETURN X0;
1597 END GET_PERSON_NAME;
1598
1599 FUNCTION GET_SALARY(P_BUSINESS_GROUP_ID IN NUMBER
1600 ,P_ASSIGNMENT_ID IN NUMBER
1601 ,P_REPORT_DATE IN DATE) RETURN NUMBER IS
1602 X0 NUMBER;
1603 BEGIN
1604 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_SALARY(:P_BUSINESS_GROUP_ID, :P_ASSIGNMENT_ID, :P_REPORT_DATE); end;');
1605 STPROC.BIND_O(X0);
1606 STPROC.BIND_I(P_BUSINESS_GROUP_ID);
1607 STPROC.BIND_I(P_ASSIGNMENT_ID);
1608 STPROC.BIND_I(P_REPORT_DATE);
1609 STPROC.EXECUTE;
1610 STPROC.RETRIEVE(1
1611 ,X0);*/null;
1612 RETURN X0;
1613 END GET_SALARY;
1614
1615 PROCEDURE GET_NEW_HIRE_CONTACT(P_PERSON_ID IN NUMBER
1616 ,P_BUSINESS_GROUP_ID IN NUMBER
1617 ,P_REPORT_DATE IN DATE
1618 ,P_CONTACT_NAME OUT NOCOPY VARCHAR2
1619 ,P_CONTACT_TITLE OUT NOCOPY VARCHAR2
1620 ,P_CONTACT_PHONE OUT NOCOPY VARCHAR2) IS
1621 BEGIN
1622 /*STPROC.INIT('begin HR_US_REPORTS.GET_NEW_HIRE_CONTACT(:P_PERSON_ID, :P_BUSINESS_GROUP_ID, :P_REPORT_DATE, :P_CONTACT_NAME,
1623 :P_CONTACT_TITLE, :P_CONTACT_PHONE); end;');
1624 STPROC.BIND_I(P_PERSON_ID);
1625 STPROC.BIND_I(P_BUSINESS_GROUP_ID);
1626 STPROC.BIND_I(P_REPORT_DATE);
1627 STPROC.BIND_O(P_CONTACT_NAME);
1628 STPROC.BIND_O(P_CONTACT_TITLE);
1629 STPROC.BIND_O(P_CONTACT_PHONE);
1630 STPROC.EXECUTE;
1631 STPROC.RETRIEVE(4
1632 ,P_CONTACT_NAME);
1633 STPROC.RETRIEVE(5
1637 END GET_NEW_HIRE_CONTACT;
1634 ,P_CONTACT_TITLE);
1635 STPROC.RETRIEVE(6
1636 ,P_CONTACT_PHONE);*/null;
1638
1639 PROCEDURE GET_ADDRESS(P_LOCATION_ID IN NUMBER
1640 ,P_ADDRESS OUT NOCOPY VARCHAR2) IS
1641 BEGIN
1642 /*STPROC.INIT('begin HR_US_REPORTS.GET_ADDRESS(:P_LOCATION_ID, :P_ADDRESS); end;');
1643 STPROC.BIND_I(P_LOCATION_ID);
1644 STPROC.BIND_O(P_ADDRESS);
1645 STPROC.EXECUTE;
1646 STPROC.RETRIEVE(2
1647 ,P_ADDRESS);*/null;
1648 END GET_ADDRESS;
1649
1650 PROCEDURE GET_EMPLOYEE_ADDRESS(P_PERSON_ID IN NUMBER
1651 ,P_ADDRESS OUT NOCOPY VARCHAR2) IS
1652 BEGIN
1653 /*STPROC.INIT('begin HR_US_REPORTS.GET_EMPLOYEE_ADDRESS(:P_PERSON_ID, :P_ADDRESS); end;');
1654 STPROC.BIND_I(P_PERSON_ID);
1655 STPROC.BIND_O(P_ADDRESS);
1656 STPROC.EXECUTE;
1657 STPROC.RETRIEVE(2
1658 ,P_ADDRESS);*/null;
1659 END GET_EMPLOYEE_ADDRESS;
1660
1661 PROCEDURE GET_COUNTY_ADDRESS(P_LOCATION_ID IN NUMBER
1662 ,P_ADDRESS OUT NOCOPY VARCHAR2) IS
1663 BEGIN
1664 /*STPROC.INIT('begin HR_US_REPORTS.GET_COUNTY_ADDRESS(:P_LOCATION_ID, :P_ADDRESS); end;');
1665 STPROC.BIND_I(P_LOCATION_ID);
1666 STPROC.BIND_O(P_ADDRESS);
1667 STPROC.EXECUTE;
1668 STPROC.RETRIEVE(2
1669 ,P_ADDRESS);*/null;
1670 END GET_COUNTY_ADDRESS;
1671
1672 PROCEDURE GET_ACTIVITY(P_ESTABLISHMENT_ID IN NUMBER
1673 ,P_ACTIVITY OUT NOCOPY VARCHAR2) IS
1674 BEGIN
1675 /*STPROC.INIT('begin HR_US_REPORTS.GET_ACTIVITY(:P_ESTABLISHMENT_ID, :P_ACTIVITY); end;');
1676 STPROC.BIND_I(P_ESTABLISHMENT_ID);
1677 STPROC.BIND_O(P_ACTIVITY);
1678 STPROC.EXECUTE;
1679 STPROC.RETRIEVE(2
1680 ,P_ACTIVITY);*/null;
1681 END GET_ACTIVITY;
1682
1683 FUNCTION GET_CONSOLIDATION_SET(P_CONSOLIDATION_SET_ID IN NUMBER) RETURN VARCHAR2 IS
1684 X0 VARCHAR2(2000);
1685 BEGIN
1686 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_CONSOLIDATION_SET(:P_CONSOLIDATION_SET_ID); end;');
1687 STPROC.BIND_O(X0);
1688 STPROC.BIND_I(P_CONSOLIDATION_SET_ID);
1689 STPROC.EXECUTE;
1690 STPROC.RETRIEVE(1
1691 ,X0);*/null;
1692 RETURN X0;
1693 END GET_CONSOLIDATION_SET;
1694
1695 FUNCTION GET_PAYMENT_TYPE_NAME(P_PAYMENT_TYPE_ID IN NUMBER) RETURN VARCHAR2 IS
1696 X0 VARCHAR2(2000);
1697 BEGIN
1698 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_PAYMENT_TYPE_NAME(:P_PAYMENT_TYPE_ID); end;');
1699 STPROC.BIND_O(X0);
1700 STPROC.BIND_I(P_PAYMENT_TYPE_ID);
1701 STPROC.EXECUTE;
1702 STPROC.RETRIEVE(1
1703 ,X0);*/null;
1704 RETURN X0;
1705 END GET_PAYMENT_TYPE_NAME;
1706
1707 FUNCTION GET_ELEMENT_TYPE_NAME(P_ELEMENT_TYPE_ID IN NUMBER) RETURN VARCHAR2 IS
1708 X0 VARCHAR2(2000);
1709 BEGIN
1710 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_ELEMENT_TYPE_NAME(:P_ELEMENT_TYPE_ID); end;');
1711 STPROC.BIND_O(X0);
1712 STPROC.BIND_I(P_ELEMENT_TYPE_ID);
1713 STPROC.EXECUTE;
1714 STPROC.RETRIEVE(1
1715 ,X0);*/null;
1716 RETURN X0;
1717 END GET_ELEMENT_TYPE_NAME;
1718
1719 FUNCTION GET_TAX_UNIT(P_TAX_UNIT_ID IN NUMBER) RETURN VARCHAR2 IS
1720 X0 VARCHAR2(2000);
1721 BEGIN
1722 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_TAX_UNIT(:P_TAX_UNIT_ID); end;');
1723 STPROC.BIND_O(X0);
1724 STPROC.BIND_I(P_TAX_UNIT_ID);
1725 STPROC.EXECUTE;
1726 STPROC.RETRIEVE(1
1727 ,X0);*/null;
1728 RETURN X0;
1729 END GET_TAX_UNIT;
1730
1731 FUNCTION GET_PERSON_NAME(P_PERSON_ID IN NUMBER) RETURN VARCHAR2 IS
1732 X0 VARCHAR2(2000);
1733 BEGIN
1734 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_PERSON_NAME(:P_PERSON_ID); end;');
1735 STPROC.BIND_O(X0);
1736 STPROC.BIND_I(P_PERSON_ID);
1737 STPROC.EXECUTE;
1738 STPROC.RETRIEVE(1
1739 ,X0);*/null;
1740 RETURN X0;
1741 END GET_PERSON_NAME;
1742
1743 FUNCTION GET_PAYROLL_ACTION(P_PAYROLL_ACTION_ID IN NUMBER) RETURN VARCHAR2 IS
1744 X0 VARCHAR2(2000);
1745 BEGIN
1746 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_PAYROLL_ACTION(:P_PAYROLL_ACTION_ID); end;');
1747 STPROC.BIND_O(X0);
1748 STPROC.BIND_I(P_PAYROLL_ACTION_ID);
1749 STPROC.EXECUTE;
1750 STPROC.RETRIEVE(1
1751 ,X0);*/null;
1752 RETURN X0;
1753 END GET_PAYROLL_ACTION;
1754
1755 FUNCTION GET_LEGISLATION_CODE(P_BUSINESS_GROUP_ID IN NUMBER) RETURN VARCHAR2 IS
1756 X0 VARCHAR2(2000);
1757 BEGIN
1758 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_LEGISLATION_CODE(:P_BUSINESS_GROUP_ID); end;');
1759 STPROC.BIND_O(X0);
1760 STPROC.BIND_I(P_BUSINESS_GROUP_ID);
1761 STPROC.EXECUTE;
1762 STPROC.RETRIEVE(1
1763 ,X0);*/null;
1764 RETURN X0;
1765 END GET_LEGISLATION_CODE;
1766
1767 FUNCTION GET_DEFINED_BALANCE_ID(P_BALANCE_NAME IN VARCHAR2
1768 ,P_DIMENSION_SUFFIX IN VARCHAR2
1769 ,P_BUSINESS_GROUP_ID IN NUMBER) RETURN NUMBER IS
1770 X0 NUMBER;
1771 BEGIN
1772 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_DEFINED_BALANCE_ID(:P_BALANCE_NAME, :P_DIMENSION_SUFFIX, :P_BUSINESS_GROUP_ID); end;');
1773 STPROC.BIND_O(X0);
1774 STPROC.BIND_I(P_BALANCE_NAME);
1775 STPROC.BIND_I(P_DIMENSION_SUFFIX);
1776 STPROC.BIND_I(P_BUSINESS_GROUP_ID);
1777 STPROC.EXECUTE;
1778 STPROC.RETRIEVE(1
1779 ,X0);*/null;
1780 RETURN X0;
1781 END GET_DEFINED_BALANCE_ID;
1782
1783 FUNCTION GET_STARTUP_DEFINED_BALANCE(P_REPORTING_NAME IN VARCHAR2
1787 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_STARTUP_DEFINED_BALANCE(:P_REPORTING_NAME, :P_DIMENSION_SUFFIX); end;');
1784 ,P_DIMENSION_SUFFIX IN VARCHAR2) RETURN NUMBER IS
1785 X0 NUMBER;
1786 BEGIN
1788 STPROC.BIND_O(X0);
1789 STPROC.BIND_I(P_REPORTING_NAME);
1790 STPROC.BIND_I(P_DIMENSION_SUFFIX);
1791 STPROC.EXECUTE;
1792 STPROC.RETRIEVE(1
1793 ,X0);*/null;
1794 RETURN X0;
1795 END GET_STARTUP_DEFINED_BALANCE;
1796
1797 FUNCTION GET_DEFINED_BALANCE_BY_TYPE(P_BOX_NUM IN VARCHAR2
1798 ,P_DIMENSION_SUFFIX IN VARCHAR2) RETURN NUMBER IS
1799 X0 NUMBER;
1800 BEGIN
1801 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_DEFINED_BALANCE_BY_TYPE(:P_BOX_NUM, :P_DIMENSION_SUFFIX); end;');
1802 STPROC.BIND_O(X0);
1803 STPROC.BIND_I(P_BOX_NUM);
1804 STPROC.BIND_I(P_DIMENSION_SUFFIX);
1805 STPROC.EXECUTE;
1806 STPROC.RETRIEVE(1
1807 ,X0);*/null;
1808 RETURN X0;
1809 END GET_DEFINED_BALANCE_BY_TYPE;
1810
1811 FUNCTION GET_BEN_CLASS_NAME(P_SESSION_DATE IN DATE
1812 ,P_BENEFIT_CLASSIFICATION_ID IN NUMBER) RETURN VARCHAR2 IS
1813 X0 VARCHAR2(2000);
1814 BEGIN
1815 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_BEN_CLASS_NAME(:P_SESSION_DATE, :P_BENEFIT_CLASSIFICATION_ID); end;');
1816 STPROC.BIND_O(X0);
1817 STPROC.BIND_I(P_SESSION_DATE);
1818 STPROC.BIND_I(P_BENEFIT_CLASSIFICATION_ID);
1819 STPROC.EXECUTE;
1820 STPROC.RETRIEVE(1
1821 ,X0);*/null;
1822 RETURN X0;
1823 END GET_BEN_CLASS_NAME;
1824
1825 FUNCTION GET_COBRA_QUALIFYING_EVENT(P_QUALIFYING_EVENT IN VARCHAR2) RETURN VARCHAR2 IS
1826 X0 VARCHAR2(2000);
1827 BEGIN
1828 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_COBRA_QUALIFYING_EVENT(:P_QUALIFYING_EVENT); end;');
1829 STPROC.BIND_O(X0);
1830 STPROC.BIND_I(P_QUALIFYING_EVENT);
1831 STPROC.EXECUTE;
1832 STPROC.RETRIEVE(1
1833 ,X0);*/null;
1834 RETURN X0;
1835 END GET_COBRA_QUALIFYING_EVENT;
1836
1837 FUNCTION GET_COBRA_STATUS(P_COBRA_STATUS IN VARCHAR2) RETURN VARCHAR2 IS
1838 X0 VARCHAR2(2000);
1839 BEGIN
1840 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_COBRA_STATUS(:P_COBRA_STATUS); end;');
1841 STPROC.BIND_O(X0);
1842 STPROC.BIND_I(P_COBRA_STATUS);
1843 STPROC.EXECUTE;
1844 STPROC.RETRIEVE(1
1845 ,X0);*/null;
1846 RETURN X0;
1847 END GET_COBRA_STATUS;
1848
1849 FUNCTION GET_EST_TAX_UNIT(P_STARTING_ORG_ID IN NUMBER
1850 ,P_ORG_STRUCTURE_VERSION_ID IN NUMBER) RETURN NUMBER IS
1851 X0 NUMBER;
1852 BEGIN
1853 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_EST_TAX_UNIT(:P_STARTING_ORG_ID, :P_ORG_STRUCTURE_VERSION_ID); end;');
1854 STPROC.BIND_O(X0);
1855 STPROC.BIND_I(P_STARTING_ORG_ID);
1856 STPROC.BIND_I(P_ORG_STRUCTURE_VERSION_ID);
1857 STPROC.EXECUTE;
1858 STPROC.RETRIEVE(1
1859 ,X0);*/null;
1860 RETURN X0;
1861 END GET_EST_TAX_UNIT;
1862
1863 FUNCTION GET_ORG_HIERARCHY_NAME(P_ORG_STRUCTURE_VERSION_ID IN NUMBER) RETURN VARCHAR2 IS
1864 X0 VARCHAR2(2000);
1865 BEGIN
1866 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_ORG_HIERARCHY_NAME(:P_ORG_STRUCTURE_VERSION_ID); end;');
1867 STPROC.BIND_O(X0);
1868 STPROC.BIND_I(P_ORG_STRUCTURE_VERSION_ID);
1869 STPROC.EXECUTE;
1870 STPROC.RETRIEVE(1
1871 ,X0);*/null;
1872 RETURN X0;
1873 END GET_ORG_HIERARCHY_NAME;
1874
1875 FUNCTION GET_STATE_NAME(P_STATE_CODE IN VARCHAR2) RETURN VARCHAR2 IS
1876 X0 VARCHAR2(2000);
1877 BEGIN
1878 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_STATE_NAME(:P_STATE_CODE); end;');
1879 STPROC.BIND_O(X0);
1880 STPROC.BIND_I(P_STATE_CODE);
1881 STPROC.EXECUTE;
1882 STPROC.RETRIEVE(1
1883 ,X0);*/null;
1884 RETURN X0;
1885 END GET_STATE_NAME;
1886
1887 FUNCTION GET_ORG_NAME(P_ORGANIZATION_ID IN NUMBER
1888 ,P_BUSINESS_GROUP_ID IN NUMBER) RETURN VARCHAR2 IS
1889 X0 VARCHAR2(2000);
1890 BEGIN
1891 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_ORG_NAME(:P_ORGANIZATION_ID, :P_BUSINESS_GROUP_ID); end;');
1892 STPROC.BIND_O(X0);
1893 STPROC.BIND_I(P_ORGANIZATION_ID);
1894 STPROC.BIND_I(P_BUSINESS_GROUP_ID);
1895 STPROC.EXECUTE;
1896 STPROC.RETRIEVE(1
1897 ,X0);*/null;
1898 RETURN X0;
1899 END GET_ORG_NAME;
1900
1901 FUNCTION GET_CAREER_PATH_NAME(P_CAREER_PATH_ID IN NUMBER
1902 ,P_BUSINESS_GROUP_ID IN NUMBER) RETURN VARCHAR2 IS
1903 X0 VARCHAR2(2000);
1904 BEGIN
1905 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_CAREER_PATH_NAME(:P_CAREER_PATH_ID, :P_BUSINESS_GROUP_ID); end;');
1906 STPROC.BIND_O(X0);
1907 STPROC.BIND_I(P_CAREER_PATH_ID);
1908 STPROC.BIND_I(P_BUSINESS_GROUP_ID);
1909 STPROC.EXECUTE;
1910 STPROC.RETRIEVE(1
1911 ,X0);*/null;
1912 RETURN X0;
1913 END GET_CAREER_PATH_NAME;
1914
1915 FUNCTION GET_AAP_ORG_ID(P_AAP_NAME IN VARCHAR2
1916 ,P_BUSINESS_GROUP_ID IN NUMBER) RETURN NUMBER IS
1917 X0 NUMBER;
1918 BEGIN
1919 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_AAP_ORG_ID(:P_AAP_NAME, :P_BUSINESS_GROUP_ID); end;');
1920 STPROC.BIND_O(X0);
1921 STPROC.BIND_I(P_AAP_NAME);
1922 STPROC.BIND_I(P_BUSINESS_GROUP_ID);
1923 STPROC.EXECUTE;
1924 STPROC.RETRIEVE(1
1925 ,X0);*/null;
1926 RETURN X0;
1927 END GET_AAP_ORG_ID;
1928
1929 PROCEDURE GET_ADDRESS_31(P_LOCATION_ID IN NUMBER
1930 ,P_ADDRESS OUT NOCOPY VARCHAR2) IS
1934 STPROC.BIND_O(P_ADDRESS);
1931 BEGIN
1932 /*STPROC.INIT('begin HR_US_REPORTS.GET_ADDRESS_31(:P_LOCATION_ID, :P_ADDRESS); end;');
1933 STPROC.BIND_I(P_LOCATION_ID);
1935 STPROC.EXECUTE;
1936 STPROC.RETRIEVE(2
1937 ,P_ADDRESS);*/null;
1938 END GET_ADDRESS_31;
1939
1940 FUNCTION GET_LOCATION_CODE(P_LOCATION_ID IN NUMBER) RETURN VARCHAR2 IS
1941 X0 VARCHAR2(2000);
1942 BEGIN
1943 /*STPROC.INIT('begin :X0 := HR_US_REPORTS.GET_LOCATION_CODE(:P_LOCATION_ID); end;');
1944 STPROC.BIND_O(X0);
1945 STPROC.BIND_I(P_LOCATION_ID);
1946 STPROC.EXECUTE;
1947 STPROC.RETRIEVE(1
1948 ,X0);*/null;
1949 RETURN X0;
1950 END GET_LOCATION_CODE;
1951
1952 PROCEDURE GET_ADDRESS_3LINES(P_PERSON_ID IN NUMBER
1953 ,P_EFFECTIVE_DATE IN DATE
1954 ,P_ADDR_LINE1 OUT NOCOPY VARCHAR2
1955 ,P_ADDR_LINE2 OUT NOCOPY VARCHAR2
1956 ,P_CITY_STATE_ZIP OUT NOCOPY VARCHAR2) IS
1957 BEGIN
1958 /*STPROC.INIT('begin HR_US_REPORTS.GET_ADDRESS_3LINES(:P_PERSON_ID, :P_EFFECTIVE_DATE, :P_ADDR_LINE1, :P_ADDR_LINE2,
1959 :P_CITY_STATE_ZIP); end;');
1960 STPROC.BIND_I(P_PERSON_ID);
1961 STPROC.BIND_I(P_EFFECTIVE_DATE);
1962 STPROC.BIND_O(P_ADDR_LINE1);
1963 STPROC.BIND_O(P_ADDR_LINE2);
1964 STPROC.BIND_O(P_CITY_STATE_ZIP);
1965 STPROC.EXECUTE;
1966 STPROC.RETRIEVE(3
1967 ,P_ADDR_LINE1);
1968 STPROC.RETRIEVE(4
1969 ,P_ADDR_LINE2);
1970 STPROC.RETRIEVE(5
1971 ,P_CITY_STATE_ZIP);*/null;
1972 END GET_ADDRESS_3LINES;
1973
1974
1975 END PER_PERUSEOC_XMLP_PKG;