[Home] [Help]
PACKAGE BODY: APPS.PAY_PAYGBACT_XMLP_PKG
Source
1 PACKAGE BODY PAY_PAYGBACT_XMLP_PKG AS
2 /* $Header: PAYGBACTB.pls 120.1 2008/01/07 15:57:55 srikrish noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 --HR_STANDARD.EVENT('BEFORE REPORT');
7 P_SESSION_DATE_T := TO_CHAR(P_SESSION_DATE,'DD-MON-YYYY');
8 P_START_DATE_T := TO_CHAR(P_START_DATE,'DD-MON-YYYY');
9 C_BUSINESS_GROUP_NAME := GET_BUSINESS_GROUP(P_BUSINESS_GROUP_ID);
10 IF P_PERSON_ID IS NOT NULL THEN
11 C_PERSON_NAME := GET_PERSON_NAME(P_SESSION_DATE
12 ,P_PERSON_ID);
13 END IF;
14 END;
15 RETURN (TRUE);
16 END BEFOREREPORT;
17
18 FUNCTION GET_STAT_PERIOD_START(ASSIGNMENT_ACTION_ID IN NUMBER) RETURN DATE IS
19 L_STAT_PERIOD_START DATE;
20 BEGIN
21 BEGIN
22 L_STAT_PERIOD_START := APPS.HR_GBNIDIR.STATUTORY_PERIOD_START_DATE(ASSIGNMENT_ACTION_ID);
23 EXCEPTION
24 WHEN NO_DATA_FOUND THEN
25 L_STAT_PERIOD_START := TO_DATE('01-01-0001'
26 ,'dd-mm-yyyy');
27 END;
28 RETURN L_STAT_PERIOD_START;
29 END GET_STAT_PERIOD_START;
30
31 FUNCTION GET_NI_PTD(ASSIGNMENT_ACTION_ID IN NUMBER
32 ,ELEMENT_NAME IN VARCHAR2
33 ,INPUT_NAME IN VARCHAR2) RETURN NUMBER IS
34 DEF_BAL_ID NUMBER;
35 TEMP_VALUE NUMBER;
36 BEGIN
37 SET_CONTEXT('BUSINESS_GROUP_ID'
38 ,TO_CHAR(P_BUSINESS_GROUP_ID));
39 SET_CONTEXT('ASSIGNMENT_ACTION_ID'
40 ,TO_CHAR(ASSIGNMENT_ACTION_ID));
41 BEGIN
42 SELECT
43 BDEF.DEFINED_BALANCE_ID
44 INTO DEF_BAL_ID
45 FROM
46 PAY_DEFINED_BALANCES BDEF,
47 PAY_BALANCE_TYPES BTYP,
48 PAY_BALANCE_DIMENSIONS BDIM
49 WHERE BDEF.BALANCE_TYPE_ID = BTYP.BALANCE_TYPE_ID
50 AND ( ( BTYP.BALANCE_NAME = ELEMENT_NAME || DECODE(INPUT_NAME
51 ,'Pay Value'
52 ,' Employee'
53 ,'NI Employer'
54 ,' Employer'
55 ,'NI Able'
56 ,' Able'
57 ,'NI CO Able'
58 ,' CO Able'
59 ,'NI CO Employee'
60 ,' CO'
61 ,'')
62 AND BDIM.DIMENSION_NAME = '_PER_NI_PTD' )
63 OR ( BTYP.BALANCE_NAME = ELEMENT_NAME
64 AND BDIM.DIMENSION_NAME = '_PER_NI_PTD' )
65 OR ( BTYP.BALANCE_NAME = ELEMENT_NAME
66 AND NVL(INPUT_NAME
67 ,'Pay Value') = 'Pay Value'
68 AND BDIM.DIMENSION_NAME = '_PER_PAYE_PTD' ) )
69 AND BDEF.BALANCE_DIMENSION_ID = BDIM.BALANCE_DIMENSION_ID;
70 EXCEPTION
71 WHEN NO_DATA_FOUND THEN
72 TEMP_VALUE := 0;
73 RETURN TEMP_VALUE;
74 END;
75 BEGIN
76 TEMP_VALUE := GET_VALUE(DEF_BAL_ID
77 ,ASSIGNMENT_ACTION_ID);
78 EXCEPTION
79 WHEN NO_DATA_FOUND THEN
80 TEMP_VALUE := 0;
81 END;
82 RETURN TEMP_VALUE;
83 END GET_NI_PTD;
84
85 FUNCTION GET_NI_YTD(ASSIGNMENT_ACTION_ID IN NUMBER
86 ,ELEMENT_NAME IN VARCHAR2
87 ,INPUT_NAME IN VARCHAR2) RETURN NUMBER IS
88 DEF_BAL_ID NUMBER;
89 TEMP_VALUE NUMBER;
90 BEGIN
91 SET_CONTEXT('BUSINESS_GROUP_ID'
92 ,TO_CHAR(P_BUSINESS_GROUP_ID));
93 SET_CONTEXT('ASSIGNMENT_ACTION_ID'
94 ,TO_CHAR(ASSIGNMENT_ACTION_ID));
95 BEGIN
96 SELECT
97 BDEF.DEFINED_BALANCE_ID
98 INTO DEF_BAL_ID
99 FROM
100 PAY_DEFINED_BALANCES BDEF,
101 PAY_BALANCE_TYPES BTYP,
102 PAY_BALANCE_DIMENSIONS BDIM
103 WHERE BDEF.BALANCE_TYPE_ID = BTYP.BALANCE_TYPE_ID
104 AND ( ( BTYP.BALANCE_NAME = ELEMENT_NAME || DECODE(INPUT_NAME
105 ,'Pay Value'
106 ,' Employee'
107 ,'NI Employer'
108 ,' Employer'
109 ,'NI Able'
110 ,' Able'
111 ,'NI CO Able'
112 ,' CO Able'
113 ,'NI CO Employee'
114 ,' CO'
115 ,'x') )
116 OR ( BTYP.BALANCE_NAME = ELEMENT_NAME
117 AND NVL(INPUT_NAME
118 ,'Pay Value') = 'Pay Value' ) )
119 AND BDEF.BALANCE_DIMENSION_ID = BDIM.BALANCE_DIMENSION_ID
120 AND BDIM.DIMENSION_NAME = '_PER_TD_YTD';
121 EXCEPTION
122 WHEN NO_DATA_FOUND THEN
123 TEMP_VALUE := 0;
124 RETURN TEMP_VALUE;
125 END;
126 BEGIN
127 TEMP_VALUE := GET_VALUE(DEF_BAL_ID
128 ,ASSIGNMENT_ACTION_ID);
129 EXCEPTION
130 WHEN NO_DATA_FOUND THEN
131 TEMP_VALUE := 0;
132 END;
133 RETURN TEMP_VALUE;
134 END GET_NI_YTD;
135
136 FUNCTION BEFOREPFORM RETURN BOOLEAN IS
137 BEGIN
138 RETURN (TRUE);
139 END BEFOREPFORM;
140
141 FUNCTION AFTERPFORM RETURN BOOLEAN IS
142 BEGIN
143 RETURN (TRUE);
144 END AFTERPFORM;
145
146 FUNCTION BETWEENPAGE RETURN BOOLEAN IS
147 BEGIN
148 RETURN (TRUE);
149 END BETWEENPAGE;
150
151 FUNCTION AFTERREPORT RETURN BOOLEAN IS
152 BEGIN
153 --HR_STANDARD.EVENT('AFTER REPORT');
154 RETURN (TRUE);
155 END AFTERREPORT;
156
157 FUNCTION C_BUSINESS_GROUP_NAME_P RETURN VARCHAR2 IS
158 BEGIN
159 RETURN C_BUSINESS_GROUP_NAME;
160 END C_BUSINESS_GROUP_NAME_P;
161
162 FUNCTION C_REPORT_SUBTITLE_P RETURN VARCHAR2 IS
163 BEGIN
164 RETURN C_REPORT_SUBTITLE;
165 END C_REPORT_SUBTITLE_P;
166
167 FUNCTION C_PERSON_NAME_P RETURN VARCHAR2 IS
168 BEGIN
169 RETURN C_PERSON_NAME;
170 END C_PERSON_NAME_P;
171
172 FUNCTION GET_BUDGET(P_BUDGET_ID IN NUMBER) RETURN VARCHAR2 IS
173 X0 VARCHAR2(2000);
174 BEGIN
175 /* STPROC.INIT('begin :X0 := HR_REPORTS.GET_BUDGET(:P_BUDGET_ID); end;');
176 STPROC.BIND_O(X0);
177 STPROC.BIND_I(P_BUDGET_ID);
178 STPROC.EXECUTE;
179 STPROC.RETRIEVE(1
180 ,X0);*/NULL;
181 RETURN X0;
182 END GET_BUDGET;
183
184 FUNCTION GET_BUDGET_VERSION(P_BUDGET_ID IN NUMBER
185 ,P_BUDGET_VERSION_ID IN NUMBER) RETURN VARCHAR2 IS
186 X0 VARCHAR2(2000);
187 BEGIN
188 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_BUDGET_VERSION(:P_BUDGET_ID, :P_BUDGET_VERSION_ID); end;');
189 STPROC.BIND_O(X0);
190 STPROC.BIND_I(P_BUDGET_ID);
191 STPROC.BIND_I(P_BUDGET_VERSION_ID);
192 STPROC.EXECUTE;
193 STPROC.RETRIEVE(1
194 ,X0);*/NULL;
195 RETURN X0;
196 END GET_BUDGET_VERSION;
197
198 PROCEDURE GET_ORGANIZATION(P_ORGANIZATION_ID IN NUMBER
199 ,P_ORG_NAME OUT NOCOPY VARCHAR2
200 ,P_ORG_TYPE OUT NOCOPY VARCHAR2) IS
201 BEGIN
202 /*STPROC.INIT('begin HR_REPORTS.GET_ORGANIZATION(:P_ORGANIZATION_ID, :P_ORG_NAME, :P_ORG_TYPE); end;');
203 STPROC.BIND_I(P_ORGANIZATION_ID);
204 STPROC.BIND_O(P_ORG_NAME);
205 STPROC.BIND_O(P_ORG_TYPE);
206 STPROC.EXECUTE;
207 STPROC.RETRIEVE(2
208 ,P_ORG_NAME);
209 STPROC.RETRIEVE(3
210 ,P_ORG_TYPE);*/NULL;
211 END GET_ORGANIZATION;
212
213 FUNCTION GET_JOB(P_JOB_ID IN NUMBER) RETURN VARCHAR2 IS
214 X0 VARCHAR2(2000);
215 BEGIN
216 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_JOB(:P_JOB_ID); end;');
217 STPROC.BIND_O(X0);
218 STPROC.BIND_I(P_JOB_ID);
219 STPROC.EXECUTE;
220 STPROC.RETRIEVE(1
221 ,X0);*/NULL;
222 RETURN X0;
223 END GET_JOB;
224
225 FUNCTION GET_POSITION(P_POSITION_ID IN NUMBER) RETURN VARCHAR2 IS
226 X0 VARCHAR2(2000);
227 BEGIN
228 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_POSITION(:P_POSITION_ID); end;');
229 STPROC.BIND_O(X0);
230 STPROC.BIND_I(P_POSITION_ID);
231 STPROC.EXECUTE;
232 STPROC.RETRIEVE(1
233 ,X0);*/NULL;
234 RETURN X0;
235 END GET_POSITION;
236
237 FUNCTION GET_GRADE(P_GRADE_ID IN NUMBER) RETURN VARCHAR2 IS
238 X0 VARCHAR2(2000);
239 BEGIN
240 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_GRADE(:P_GRADE_ID); end;');
241 STPROC.BIND_O(X0);
242 STPROC.BIND_I(P_GRADE_ID);
243 STPROC.EXECUTE;
244 STPROC.RETRIEVE(1
245 ,X0);*/NULL;
246 RETURN X0;
247 END GET_GRADE;
248
249 FUNCTION GET_STATUS(P_BUSINESS_GROUP_ID IN NUMBER
250 ,P_ASSIGNMENT_STATUS_TYPE_ID IN NUMBER
251 ,P_LEGISLATION_CODE IN VARCHAR2) RETURN VARCHAR2 IS
252 X0 VARCHAR2(2000);
253 BEGIN
254 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_STATUS(:P_BUSINESS_GROUP_ID, :P_ASSIGNMENT_STATUS_TYPE_ID,
255 :P_LEGISLATION_CODE); end;');
256 STPROC.BIND_O(X0);
257 STPROC.BIND_I(P_BUSINESS_GROUP_ID);
258 STPROC.BIND_I(P_ASSIGNMENT_STATUS_TYPE_ID);
259 STPROC.BIND_I(P_LEGISLATION_CODE);
260 STPROC.EXECUTE;
261 STPROC.RETRIEVE(1
262 ,X0);*/NULL;
263 RETURN X0;
264 END GET_STATUS;
265
266 FUNCTION GET_ABS_TYPE(P_ABS_ATT_TYPE_ID IN NUMBER) RETURN VARCHAR2 IS
267 X0 VARCHAR2(2000);
268 BEGIN
269 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_ABS_TYPE(:P_ABS_ATT_TYPE_ID); end;');
270 STPROC.BIND_O(X0);
271 STPROC.BIND_I(P_ABS_ATT_TYPE_ID);
272 STPROC.EXECUTE;
273 STPROC.RETRIEVE(1
274 ,X0);*/NULL;
275 RETURN X0;
276 END GET_ABS_TYPE;
277
278 PROCEDURE GET_TIME_PERIOD(P_TIME_PERIOD_ID IN NUMBER
279 ,P_PERIOD_NAME OUT NOCOPY VARCHAR2
280 ,P_START_DATE OUT NOCOPY DATE
281 ,P_END_DATE OUT NOCOPY DATE) IS
282 BEGIN
283 /*STPROC.INIT('begin HR_REPORTS.GET_TIME_PERIOD(:P_TIME_PERIOD_ID, :P_PERIOD_NAME, :P_START_DATE,
284 :P_END_DATE); end;');
285 STPROC.BIND_I(P_TIME_PERIOD_ID);
286 STPROC.BIND_O(P_PERIOD_NAME);
287 STPROC.BIND_O(P_START_DATE);
288 STPROC.BIND_O(P_END_DATE);
289 STPROC.EXECUTE;
290 STPROC.RETRIEVE(2
291 ,P_PERIOD_NAME);
292 STPROC.RETRIEVE(3
293 ,P_START_DATE);
294 STPROC.RETRIEVE(4
295 ,P_END_DATE);*/NULL;
296 END GET_TIME_PERIOD;
297
298 FUNCTION GET_BUSINESS_GROUP(P_BUSINESS_GROUP_ID IN NUMBER) RETURN VARCHAR2 IS
299 X0 VARCHAR2(2000);
300 BEGIN
301 X0 := HR_REPORTS.GET_BUSINESS_GROUP(P_BUSINESS_GROUP_ID);
302 /*STPROC.BIND_O(X0);
303 STPROC.BIND_I(P_BUSINESS_GROUP_ID);
304 STPROC.EXECUTE;
305 STPROC.RETRIEVE(1
306 ,X0);*/NULL;
307 RETURN X0;
308 END GET_BUSINESS_GROUP;
309
310 FUNCTION COUNT_ORG_SUBORDINATES(P_ORG_STRUCTURE_VERSION_ID IN NUMBER
311 ,P_PARENT_ORGANIZATION_ID IN NUMBER) RETURN NUMBER IS
312 X0 NUMBER;
313 BEGIN
314 /* STPROC.INIT('begin :X0 := HR_REPORTS.COUNT_ORG_SUBORDINATES(:P_ORG_STRUCTURE_VERSION_ID,
315 :P_PARENT_ORGANIZATION_ID); end;');
316 STPROC.BIND_O(X0);
317 STPROC.BIND_I(P_ORG_STRUCTURE_VERSION_ID);
318 STPROC.BIND_I(P_PARENT_ORGANIZATION_ID);
319 STPROC.EXECUTE;
320 STPROC.RETRIEVE(1
321 ,X0);*/NULL;
322 RETURN X0;
323 END COUNT_ORG_SUBORDINATES;
324
325 FUNCTION COUNT_POS_SUBORDINATES(P_POS_STRUCTURE_VERSION_ID IN NUMBER
326 ,P_PARENT_POSITION_ID IN NUMBER) RETURN NUMBER IS
327 X0 NUMBER;
328 BEGIN
329 /*STPROC.INIT('begin :X0 := HR_REPORTS.COUNT_POS_SUBORDINATES(:P_POS_STRUCTURE_VERSION_ID,
330 :P_PARENT_POSITION_ID); end;');
331 STPROC.BIND_O(X0);
332 STPROC.BIND_I(P_POS_STRUCTURE_VERSION_ID);
333 STPROC.BIND_I(P_PARENT_POSITION_ID);
334 STPROC.EXECUTE;
335 STPROC.RETRIEVE(1
336 ,X0);*/NULL;
337 RETURN X0;
338 END COUNT_POS_SUBORDINATES;
339
340 PROCEDURE GET_ORGANIZATION_HIERARCHY(P_ORGANIZATION_STRUCTURE_ID IN NUMBER
341 ,P_ORG_STRUCTURE_VERSION_ID IN NUMBER
342 ,P_ORG_STRUCTURE_NAME OUT NOCOPY VARCHAR2
343 ,P_ORG_VERSION OUT NOCOPY NUMBER
344 ,P_VERSION_START_DATE OUT NOCOPY DATE
345 ,P_VERSION_END_DATE OUT NOCOPY DATE) IS
346 BEGIN
347 /*STPROC.INIT('begin HR_REPORTS.GET_ORGANIZATION_HIERARCHY(:P_ORGANIZATION_STRUCTURE_ID,
348 :P_ORG_STRUCTURE_VERSION_ID, :P_ORG_STRUCTURE_NAME, :P_ORG_VERSION, :P_VERSION_START_DATE,
349 :P_VERSION_END_DATE); end;');
350 STPROC.BIND_I(P_ORGANIZATION_STRUCTURE_ID);
351 STPROC.BIND_I(P_ORG_STRUCTURE_VERSION_ID);
352 STPROC.BIND_O(P_ORG_STRUCTURE_NAME);
353 STPROC.BIND_O(P_ORG_VERSION);
354 STPROC.BIND_O(P_VERSION_START_DATE);
355 STPROC.BIND_O(P_VERSION_END_DATE);
356 STPROC.EXECUTE;
357 STPROC.RETRIEVE(3
358 ,P_ORG_STRUCTURE_NAME);
359 STPROC.RETRIEVE(4
360 ,P_ORG_VERSION);
361 STPROC.RETRIEVE(5
362 ,P_VERSION_START_DATE);
363 STPROC.RETRIEVE(6
364 ,P_VERSION_END_DATE);*/NULL;
365 END GET_ORGANIZATION_HIERARCHY;
366
367 PROCEDURE GET_POSITION_HIERARCHY(P_POSITION_STRUCTURE_ID IN NUMBER
368 ,P_POS_STRUCTURE_VERSION_ID IN NUMBER
369 ,P_POS_STRUCTURE_NAME OUT NOCOPY VARCHAR2
370 ,P_POS_VERSION OUT NOCOPY NUMBER
371 ,P_VERSION_START_DATE OUT NOCOPY DATE
372 ,P_VERSION_END_DATE OUT NOCOPY DATE) IS
373 BEGIN
374 /*STPROC.INIT('begin HR_REPORTS.GET_POSITION_HIERARCHY(:P_POSITION_STRUCTURE_ID, :P_POS_STRUCTURE_VERSION_ID,
375 :P_POS_STRUCTURE_NAME, :P_POS_VERSION, :P_VERSION_START_DATE, :P_VERSION_END_DATE); end;');
376 STPROC.BIND_I(P_POSITION_STRUCTURE_ID);
377 STPROC.BIND_I(P_POS_STRUCTURE_VERSION_ID);
378 STPROC.BIND_O(P_POS_STRUCTURE_NAME);
379 STPROC.BIND_O(P_POS_VERSION);
380 STPROC.BIND_O(P_VERSION_START_DATE);
381 STPROC.BIND_O(P_VERSION_END_DATE);
382 STPROC.EXECUTE;
383 STPROC.RETRIEVE(3
384 ,P_POS_STRUCTURE_NAME);
385 STPROC.RETRIEVE(4
386 ,P_POS_VERSION);
387 STPROC.RETRIEVE(5
388 ,P_VERSION_START_DATE);
389 STPROC.RETRIEVE(6
390 ,P_VERSION_END_DATE);*/NULL;
391 END GET_POSITION_HIERARCHY;
392
393 FUNCTION GET_LOOKUP_MEANING(P_LOOKUP_TYPE IN VARCHAR2
394 ,P_LOOKUP_CODE IN VARCHAR2) RETURN VARCHAR2 IS
395 X0 VARCHAR2(2000);
396 BEGIN
397 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_LOOKUP_MEANING(:P_LOOKUP_TYPE, :P_LOOKUP_CODE); end;');
398 STPROC.BIND_O(X0);
399 STPROC.BIND_I(P_LOOKUP_TYPE);
400 STPROC.BIND_I(P_LOOKUP_CODE);
401 STPROC.EXECUTE;
402 STPROC.RETRIEVE(1
403 ,X0);*/NULL;
404 RETURN X0;
405 END GET_LOOKUP_MEANING;
406
407 FUNCTION PERSON_MATCHING_SKILLS(P_PERSON_ID IN NUMBER
408 ,P_JOB_POSITION_ID IN NUMBER
409 ,P_JOB_POSITION_TYPE IN VARCHAR2
410 ,P_MATCHING_LEVEL IN VARCHAR2
411 ,P_NO_OF_ESSENTIAL IN NUMBER
412 ,P_NO_OF_DESIRABLE IN NUMBER) RETURN BOOLEAN IS
416 :P_JOB_POSITION_ID, :P_JOB_POSITION_TYPE,
413 X0 BOOLEAN;
414 BEGIN
415 /*STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := HR_REPORTS.PERSON_MATCHING_SKILLS(:P_PERSON_ID,
417 :P_MATCHING_LEVEL, :P_NO_OF_ESSENTIAL, :P_NO_OF_DESIRABLE); :X0 := sys.diutil.bool_to_int(X0rv); end;');
418 STPROC.BIND_I(P_PERSON_ID);
419 STPROC.BIND_I(P_JOB_POSITION_ID);
420 STPROC.BIND_I(P_JOB_POSITION_TYPE);
421 STPROC.BIND_I(P_MATCHING_LEVEL);
422 STPROC.BIND_I(P_NO_OF_ESSENTIAL);
423 STPROC.BIND_I(P_NO_OF_DESIRABLE);
424 STPROC.BIND_O(X0);
425 STPROC.EXECUTE;
426 STPROC.RETRIEVE(7
427 ,X0);*/NULL;
428 RETURN X0;
429 END PERSON_MATCHING_SKILLS;
430
431 FUNCTION GET_PAYROLL_NAME(P_SESSION_DATE IN DATE
432 ,P_PAYROLL_ID IN NUMBER) RETURN VARCHAR2 IS
433 X0 VARCHAR2(2000);
434 BEGIN
435 /* STPROC.INIT('begin :X0 := HR_REPORTS.GET_PAYROLL_NAME(:P_SESSION_DATE, :P_PAYROLL_ID); end;');
436 STPROC.BIND_O(X0);
437 STPROC.BIND_I(P_SESSION_DATE);
438 STPROC.BIND_I(P_PAYROLL_ID);
439 STPROC.EXECUTE;
440 STPROC.RETRIEVE(1
441 ,X0);*/NULL;
442 RETURN X0;
443 END GET_PAYROLL_NAME;
444
445 FUNCTION GET_ELEMENT_NAME(P_SESSION_DATE IN DATE
446 ,P_ELEMENT_TYPE_ID IN NUMBER) RETURN VARCHAR2 IS
447 X0 VARCHAR2(2000);
448 BEGIN
449 /*STPROC.INIT('begin :X0 := HR_REPORTS.GET_ELEMENT_NAME(:P_SESSION_DATE, :P_ELEMENT_TYPE_ID); end;');
450 STPROC.BIND_O(X0);
451 STPROC.BIND_I(P_SESSION_DATE);
452 STPROC.BIND_I(P_ELEMENT_TYPE_ID);
453 STPROC.EXECUTE;
454 STPROC.RETRIEVE(1
455 ,X0);*/NULL;
456 RETURN X0;
457 END GET_ELEMENT_NAME;
458
459 PROCEDURE GEN_PARTIAL_MATCHING_LEXICAL(P_CONCATENATED_SEGMENTS IN VARCHAR2
460 ,P_ID_FLEX_NUM IN NUMBER
461 ,P_MATCHING_LEXICAL IN OUT NOCOPY VARCHAR2) IS
462 BEGIN
463 /* STPROC.INIT('begin HR_REPORTS.GEN_PARTIAL_MATCHING_LEXICAL(:P_CONCATENATED_SEGMENTS, :P_ID_FLEX_NUM, :P_MATCHING_LEXICAL); end;');
464 STPROC.BIND_I(P_CONCATENATED_SEGMENTS);
465 STPROC.BIND_I(P_ID_FLEX_NUM);
466 STPROC.BIND_IO(P_MATCHING_LEXICAL);
467 STPROC.EXECUTE;
468 STPROC.RETRIEVE(3
469 ,P_MATCHING_LEXICAL);*/NULL;
470 END GEN_PARTIAL_MATCHING_LEXICAL;
471
472 PROCEDURE GET_ATTRIBUTES(P_CONCATENATED_SEGMENTS IN VARCHAR2
473 ,P_NAME IN VARCHAR2
474 ,P_SEGMENTS_USED OUT NOCOPY NUMBER
475 ,P_VALUE1 OUT NOCOPY VARCHAR2
476 ,P_VALUE2 OUT NOCOPY VARCHAR2
477 ,P_VALUE3 OUT NOCOPY VARCHAR2
478 ,P_VALUE4 OUT NOCOPY VARCHAR2
479 ,P_VALUE5 OUT NOCOPY VARCHAR2
480 ,P_VALUE6 OUT NOCOPY VARCHAR2
481 ,P_VALUE7 OUT NOCOPY VARCHAR2
482 ,P_VALUE8 OUT NOCOPY VARCHAR2
483 ,P_VALUE9 OUT NOCOPY VARCHAR2
484 ,P_VALUE10 OUT NOCOPY VARCHAR2
485 ,P_VALUE11 OUT NOCOPY VARCHAR2
486 ,P_VALUE12 OUT NOCOPY VARCHAR2
487 ,P_VALUE13 OUT NOCOPY VARCHAR2
488 ,P_VALUE14 OUT NOCOPY VARCHAR2
489 ,P_VALUE15 OUT NOCOPY VARCHAR2
490 ,P_VALUE16 OUT NOCOPY VARCHAR2
491 ,P_VALUE17 OUT NOCOPY VARCHAR2
492 ,P_VALUE18 OUT NOCOPY VARCHAR2
493 ,P_VALUE19 OUT NOCOPY VARCHAR2
494 ,P_VALUE20 OUT NOCOPY VARCHAR2
495 ,P_VALUE21 OUT NOCOPY VARCHAR2
496 ,P_VALUE22 OUT NOCOPY VARCHAR2
497 ,P_VALUE23 OUT NOCOPY VARCHAR2
498 ,P_VALUE24 OUT NOCOPY VARCHAR2
499 ,P_VALUE25 OUT NOCOPY VARCHAR2
500 ,P_VALUE26 OUT NOCOPY VARCHAR2
501 ,P_VALUE27 OUT NOCOPY VARCHAR2
502 ,P_VALUE28 OUT NOCOPY VARCHAR2
503 ,P_VALUE29 OUT NOCOPY VARCHAR2
504 ,P_VALUE30 OUT NOCOPY VARCHAR2) IS
505 BEGIN
506 /* STPROC.INIT('begin HR_REPORTS.GET_ATTRIBUTES(:P_CONCATENATED_SEGMENTS,
507 :P_NAME, :P_SEGMENTS_USED, :P_VALUE1, :P_VALUE2, :P_VALUE3, :P_VALUE4, :P_VALUE5,
508 :P_VALUE6, :P_VALUE7, :P_VALUE8, :P_VALUE9, :P_VALUE10, :P_VALUE11, :P_VALUE12, :P_VALUE13,
509 :P_VALUE14, :P_VALUE15, :P_VALUE16, :P_VALUE17, :P_VALUE18, :P_VALUE19, :P_VALUE20, :P_VALUE21,
510 :P_VALUE22, :P_VALUE23, :P_VALUE24, :P_VALUE25, :P_VALUE26, :P_VALUE27, :P_VALUE28, :P_VALUE29,
511 :P_VALUE30); end;');
512 STPROC.BIND_I(P_CONCATENATED_SEGMENTS);
513 STPROC.BIND_I(P_NAME);
514 STPROC.BIND_O(P_SEGMENTS_USED);
515 STPROC.BIND_O(P_VALUE1);
516 STPROC.BIND_O(P_VALUE2);
517 STPROC.BIND_O(P_VALUE3);
518 STPROC.BIND_O(P_VALUE4);
519 STPROC.BIND_O(P_VALUE5);
520 STPROC.BIND_O(P_VALUE6);
521 STPROC.BIND_O(P_VALUE7);
522 STPROC.BIND_O(P_VALUE8);
523 STPROC.BIND_O(P_VALUE9);
524 STPROC.BIND_O(P_VALUE10);
525 STPROC.BIND_O(P_VALUE11);
526 STPROC.BIND_O(P_VALUE12);
527 STPROC.BIND_O(P_VALUE13);
528 STPROC.BIND_O(P_VALUE14);
529 STPROC.BIND_O(P_VALUE15);
530 STPROC.BIND_O(P_VALUE16);
531 STPROC.BIND_O(P_VALUE17);
532 STPROC.BIND_O(P_VALUE18);
533 STPROC.BIND_O(P_VALUE19);
534 STPROC.BIND_O(P_VALUE20);
535 STPROC.BIND_O(P_VALUE21);
536 STPROC.BIND_O(P_VALUE22);
537 STPROC.BIND_O(P_VALUE23);
538 STPROC.BIND_O(P_VALUE24);
542 STPROC.BIND_O(P_VALUE28);
539 STPROC.BIND_O(P_VALUE25);
540 STPROC.BIND_O(P_VALUE26);
541 STPROC.BIND_O(P_VALUE27);
543 STPROC.BIND_O(P_VALUE29);
544 STPROC.BIND_O(P_VALUE30);
545 STPROC.EXECUTE;
546 STPROC.RETRIEVE(3
547 ,P_SEGMENTS_USED);
548 STPROC.RETRIEVE(4
549 ,P_VALUE1);
550 STPROC.RETRIEVE(5
551 ,P_VALUE2);
552 STPROC.RETRIEVE(6
553 ,P_VALUE3);
554 STPROC.RETRIEVE(7
555 ,P_VALUE4);
556 STPROC.RETRIEVE(8
557 ,P_VALUE5);
558 STPROC.RETRIEVE(9
559 ,P_VALUE6);
560 STPROC.RETRIEVE(10
561 ,P_VALUE7);
562 STPROC.RETRIEVE(11
563 ,P_VALUE8);
564 STPROC.RETRIEVE(12
565 ,P_VALUE9);
566 STPROC.RETRIEVE(13
567 ,P_VALUE10);
568 STPROC.RETRIEVE(14
569 ,P_VALUE11);
570 STPROC.RETRIEVE(15
571 ,P_VALUE12);
572 STPROC.RETRIEVE(16
573 ,P_VALUE13);
574 STPROC.RETRIEVE(17
575 ,P_VALUE14);
576 STPROC.RETRIEVE(18
577 ,P_VALUE15);
578 STPROC.RETRIEVE(19
579 ,P_VALUE16);
580 STPROC.RETRIEVE(20
581 ,P_VALUE17);
582 STPROC.RETRIEVE(21
583 ,P_VALUE18);
584 STPROC.RETRIEVE(22
585 ,P_VALUE19);
586 STPROC.RETRIEVE(23
587 ,P_VALUE20);
588 STPROC.RETRIEVE(24
589 ,P_VALUE21);
590 STPROC.RETRIEVE(25
591 ,P_VALUE22);
592 STPROC.RETRIEVE(26
593 ,P_VALUE23);
594 STPROC.RETRIEVE(27
595 ,P_VALUE24);
596 STPROC.RETRIEVE(28
597 ,P_VALUE25);
598 STPROC.RETRIEVE(29
599 ,P_VALUE26);
600 STPROC.RETRIEVE(30
601 ,P_VALUE27);
602 STPROC.RETRIEVE(31
603 ,P_VALUE28);
604 STPROC.RETRIEVE(32
605 ,P_VALUE29);
606 STPROC.RETRIEVE(33
607 ,P_VALUE30);*/ NULL;
608 END GET_ATTRIBUTES;
609
610 PROCEDURE GET_SEGMENTS(P_CONCATENATED_SEGMENTS IN VARCHAR2
611 ,P_ID_FLEX_NUM IN NUMBER
612 ,P_SEGMENTS_USED OUT NOCOPY NUMBER
613 ,P_VALUE1 OUT NOCOPY VARCHAR2
614 ,P_VALUE2 OUT NOCOPY VARCHAR2
615 ,P_VALUE3 OUT NOCOPY VARCHAR2
616 ,P_VALUE4 OUT NOCOPY VARCHAR2
617 ,P_VALUE5 OUT NOCOPY VARCHAR2
618 ,P_VALUE6 OUT NOCOPY VARCHAR2
619 ,P_VALUE7 OUT NOCOPY VARCHAR2
620 ,P_VALUE8 OUT NOCOPY VARCHAR2
621 ,P_VALUE9 OUT NOCOPY VARCHAR2
622 ,P_VALUE10 OUT NOCOPY VARCHAR2
623 ,P_VALUE11 OUT NOCOPY VARCHAR2
624 ,P_VALUE12 OUT NOCOPY VARCHAR2
625 ,P_VALUE13 OUT NOCOPY VARCHAR2
626 ,P_VALUE14 OUT NOCOPY VARCHAR2
627 ,P_VALUE15 OUT NOCOPY VARCHAR2
628 ,P_VALUE16 OUT NOCOPY VARCHAR2
629 ,P_VALUE17 OUT NOCOPY VARCHAR2
630 ,P_VALUE18 OUT NOCOPY VARCHAR2
631 ,P_VALUE19 OUT NOCOPY VARCHAR2
632 ,P_VALUE20 OUT NOCOPY VARCHAR2
633 ,P_VALUE21 OUT NOCOPY VARCHAR2
634 ,P_VALUE22 OUT NOCOPY VARCHAR2
635 ,P_VALUE23 OUT NOCOPY VARCHAR2
636 ,P_VALUE24 OUT NOCOPY VARCHAR2
637 ,P_VALUE25 OUT NOCOPY VARCHAR2
638 ,P_VALUE26 OUT NOCOPY VARCHAR2
639 ,P_VALUE27 OUT NOCOPY VARCHAR2
640 ,P_VALUE28 OUT NOCOPY VARCHAR2
641 ,P_VALUE29 OUT NOCOPY VARCHAR2
642 ,P_VALUE30 OUT NOCOPY VARCHAR2) IS
643 BEGIN
644 /*STPROC.INIT('begin HR_REPORTS.GET_SEGMENTS(:P_CONCATENATED_SEGMENTS,
645 :P_ID_FLEX_NUM, :P_SEGMENTS_USED, :P_VALUE1, :P_VALUE2, :P_VALUE3, :P_VALUE4,
646 :P_VALUE5, :P_VALUE6, :P_VALUE7, :P_VALUE8, :P_VALUE9, :P_VALUE10, :P_VALUE11,
647 :P_VALUE12, :P_VALUE13, :P_VALUE14, :P_VALUE15, :P_VALUE16, :P_VALUE17, :P_VALUE18,
648 :P_VALUE19, :P_VALUE20, :P_VALUE21, :P_VALUE22, :P_VALUE23, :P_VALUE24, :P_VALUE25,
649 :P_VALUE26, :P_VALUE27, :P_VALUE28, :P_VALUE29, :P_VALUE30); end;');
650 STPROC.BIND_I(P_CONCATENATED_SEGMENTS);
651 STPROC.BIND_I(P_ID_FLEX_NUM);
652 STPROC.BIND_O(P_SEGMENTS_USED);
653 STPROC.BIND_O(P_VALUE1);
654 STPROC.BIND_O(P_VALUE2);
655 STPROC.BIND_O(P_VALUE3);
656 STPROC.BIND_O(P_VALUE4);
657 STPROC.BIND_O(P_VALUE5);
658 STPROC.BIND_O(P_VALUE6);
659 STPROC.BIND_O(P_VALUE7);
660 STPROC.BIND_O(P_VALUE8);
661 STPROC.BIND_O(P_VALUE9);
662 STPROC.BIND_O(P_VALUE10);
663 STPROC.BIND_O(P_VALUE11);
664 STPROC.BIND_O(P_VALUE12);
665 STPROC.BIND_O(P_VALUE13);
666 STPROC.BIND_O(P_VALUE14);
667 STPROC.BIND_O(P_VALUE15);
668 STPROC.BIND_O(P_VALUE16);
669 STPROC.BIND_O(P_VALUE17);
670 STPROC.BIND_O(P_VALUE18);
671 STPROC.BIND_O(P_VALUE19);
672 STPROC.BIND_O(P_VALUE20);
673 STPROC.BIND_O(P_VALUE21);
674 STPROC.BIND_O(P_VALUE22);
675 STPROC.BIND_O(P_VALUE23);
676 STPROC.BIND_O(P_VALUE24);
677 STPROC.BIND_O(P_VALUE25);
678 STPROC.BIND_O(P_VALUE26);
679 STPROC.BIND_O(P_VALUE27);
683 STPROC.EXECUTE;
680 STPROC.BIND_O(P_VALUE28);
681 STPROC.BIND_O(P_VALUE29);
682 STPROC.BIND_O(P_VALUE30);
684 STPROC.RETRIEVE(3
685 ,P_SEGMENTS_USED);
686 STPROC.RETRIEVE(4
687 ,P_VALUE1);
688 STPROC.RETRIEVE(5
689 ,P_VALUE2);
690 STPROC.RETRIEVE(6
691 ,P_VALUE3);
692 STPROC.RETRIEVE(7
693 ,P_VALUE4);
694 STPROC.RETRIEVE(8
695 ,P_VALUE5);
696 STPROC.RETRIEVE(9
697 ,P_VALUE6);
698 STPROC.RETRIEVE(10
699 ,P_VALUE7);
700 STPROC.RETRIEVE(11
701 ,P_VALUE8);
702 STPROC.RETRIEVE(12
703 ,P_VALUE9);
704 STPROC.RETRIEVE(13
705 ,P_VALUE10);
706 STPROC.RETRIEVE(14
707 ,P_VALUE11);
708 STPROC.RETRIEVE(15
709 ,P_VALUE12);
710 STPROC.RETRIEVE(16
711 ,P_VALUE13);
712 STPROC.RETRIEVE(17
713 ,P_VALUE14);
714 STPROC.RETRIEVE(18
715 ,P_VALUE15);
716 STPROC.RETRIEVE(19
717 ,P_VALUE16);
718 STPROC.RETRIEVE(20
719 ,P_VALUE17);
720 STPROC.RETRIEVE(21
721 ,P_VALUE18);
722 STPROC.RETRIEVE(22
723 ,P_VALUE19);
724 STPROC.RETRIEVE(23
725 ,P_VALUE20);
726 STPROC.RETRIEVE(24
727 ,P_VALUE21);
728 STPROC.RETRIEVE(25
729 ,P_VALUE22);
730 STPROC.RETRIEVE(26
731 ,P_VALUE23);
732 STPROC.RETRIEVE(27
733 ,P_VALUE24);
734 STPROC.RETRIEVE(28
735 ,P_VALUE25);
736 STPROC.RETRIEVE(29
737 ,P_VALUE26);
738 STPROC.RETRIEVE(30
739 ,P_VALUE27);
740 STPROC.RETRIEVE(31
741 ,P_VALUE28);
742 STPROC.RETRIEVE(32
743 ,P_VALUE29);
744 STPROC.RETRIEVE(33
745 ,P_VALUE30);*/NULL;
746 END GET_SEGMENTS;
747
748 PROCEDURE GET_DESC_FLEX(P_APPL_SHORT_NAME IN VARCHAR2
749 ,P_DESC_FLEX_NAME IN VARCHAR2
750 ,P_TABLE_ALIAS IN VARCHAR2
751 ,P_TITLE OUT NOCOPY VARCHAR2
752 ,P_LABEL_EXPR OUT NOCOPY VARCHAR2
753 ,P_COLUMN_EXPR OUT NOCOPY VARCHAR2) IS
754 BEGIN
755 /*STPROC.INIT('begin HR_REPORTS.GET_DESC_FLEX(:P_APPL_SHORT_NAME, :P_DESC_FLEX_NAME,
756 :P_TABLE_ALIAS, :P_TITLE, :P_LABEL_EXPR, :P_COLUMN_EXPR); end;');
757 STPROC.BIND_I(P_APPL_SHORT_NAME);
758 STPROC.BIND_I(P_DESC_FLEX_NAME);
759 STPROC.BIND_I(P_TABLE_ALIAS);
760 STPROC.BIND_O(P_TITLE);
761 STPROC.BIND_O(P_LABEL_EXPR);
762 STPROC.BIND_O(P_COLUMN_EXPR);
763 STPROC.EXECUTE;
764 STPROC.RETRIEVE(4
765 ,P_TITLE);
766 STPROC.RETRIEVE(5
767 ,P_LABEL_EXPR);
768 STPROC.RETRIEVE(6
769 ,P_COLUMN_EXPR);*/ NULL;
770 END GET_DESC_FLEX;
771
772 PROCEDURE GET_DESC_FLEX_CONTEXT(P_APPL_SHORT_NAME IN VARCHAR2
773 ,P_DESC_FLEX_NAME IN VARCHAR2
774 ,P_TABLE_ALIAS IN VARCHAR2
775 ,P_TITLE OUT NOCOPY VARCHAR2
776 ,P_LABEL_EXPR OUT NOCOPY VARCHAR2
777 ,P_COLUMN_EXPR OUT NOCOPY VARCHAR2) IS
778 BEGIN
779 /*STPROC.INIT('begin HR_REPORTS.GET_DESC_FLEX_CONTEXT(:P_APPL_SHORT_NAME, :P_DESC_FLEX_NAME,
780 :P_TABLE_ALIAS, :P_TITLE, :P_LABEL_EXPR, :P_COLUMN_EXPR); end;');
781 STPROC.BIND_I(P_APPL_SHORT_NAME);
782 STPROC.BIND_I(P_DESC_FLEX_NAME);
783 STPROC.BIND_I(P_TABLE_ALIAS);
784 STPROC.BIND_O(P_TITLE);
785 STPROC.BIND_O(P_LABEL_EXPR);
786 STPROC.BIND_O(P_COLUMN_EXPR);
787 STPROC.EXECUTE;
788 STPROC.RETRIEVE(4
789 ,P_TITLE);
790 STPROC.RETRIEVE(5
791 ,P_LABEL_EXPR);
792 STPROC.RETRIEVE(6
793 ,P_COLUMN_EXPR);*/ NULL;
794 END GET_DESC_FLEX_CONTEXT;
795
796 PROCEDURE GET_DVLPR_DESC_FLEX(P_APPL_SHORT_NAME IN VARCHAR2
797 ,P_DESC_FLEX_NAME IN VARCHAR2
798 ,P_DESC_FLEX_CONTEXT IN VARCHAR2
799 ,P_TABLE_ALIAS IN VARCHAR2
800 ,P_TITLE OUT NOCOPY VARCHAR2
801 ,P_LABEL_EXPR OUT NOCOPY VARCHAR2
802 ,P_COLUMN_EXPR OUT NOCOPY VARCHAR2) IS
803 BEGIN
804 /* STPROC.INIT('begin HR_REPORTS.GET_DVLPR_DESC_FLEX(:P_APPL_SHORT_NAME, :P_DESC_FLEX_NAME,
805 :P_DESC_FLEX_CONTEXT, :P_TABLE_ALIAS, :P_TITLE, :P_LABEL_EXPR, :P_COLUMN_EXPR); end;');
806 STPROC.BIND_I(P_APPL_SHORT_NAME);
807 STPROC.BIND_I(P_DESC_FLEX_NAME);
808 STPROC.BIND_I(P_DESC_FLEX_CONTEXT);
809 STPROC.BIND_I(P_TABLE_ALIAS);
810 STPROC.BIND_O(P_TITLE);
811 STPROC.BIND_O(P_LABEL_EXPR);
812 STPROC.BIND_O(P_COLUMN_EXPR);
813 STPROC.EXECUTE;
814 STPROC.RETRIEVE(5
815 ,P_TITLE);
816 STPROC.RETRIEVE(6
817 ,P_LABEL_EXPR);
818 STPROC.RETRIEVE(7
819 ,P_COLUMN_EXPR);*/ NULL;
820 END GET_DVLPR_DESC_FLEX;
821
822 FUNCTION GET_PERSON_NAME(P_SESSION_DATE IN DATE
823 ,P_PERSON_ID IN NUMBER) RETURN VARCHAR2 IS
824 X0 VARCHAR2(2000);
825 BEGIN
826 X0 := HR_REPORTS.GET_PERSON_NAME(P_SESSION_DATE, P_PERSON_ID);
830 STPROC.EXECUTE;
827 /*STPROC.BIND_O(X0);
828 STPROC.BIND_I(P_SESSION_DATE);
829 STPROC.BIND_I(P_PERSON_ID);
831 STPROC.RETRIEVE(1
832 ,X0);*/NULL;
833 RETURN X0;
834 END GET_PERSON_NAME;
835
836 PROCEDURE SET_CONTEXT(P_CONTEXT_NAME IN VARCHAR2
837 ,P_CONTEXT_VALUE IN VARCHAR2) IS
838 BEGIN
839 /* STPROC.INIT('begin PAY_BALANCE_PKG.SET_CONTEXT(:P_CONTEXT_NAME, :P_CONTEXT_VALUE); end;');
840 STPROC.BIND_I(P_CONTEXT_NAME);
841 STPROC.BIND_I(P_CONTEXT_VALUE);
842 STPROC.EXECUTE;*/ NULL;
843 END SET_CONTEXT;
844
845 FUNCTION RUN_DB_ITEM(P_DATABASE_NAME IN VARCHAR2
846 ,P_BUS_GROUP_ID IN NUMBER
847 ,P_LEGISLATION_CODE IN VARCHAR2) RETURN VARCHAR2 IS
848 X0 VARCHAR2(2000);
849 BEGIN
850 /* STPROC.INIT('begin :X0 := PAY_BALANCE_PKG.RUN_DB_ITEM(:P_DATABASE_NAME, :P_BUS_GROUP_ID,
851 :P_LEGISLATION_CODE); end;');
852 STPROC.BIND_O(X0);
853 STPROC.BIND_I(P_DATABASE_NAME);
854 STPROC.BIND_I(P_BUS_GROUP_ID);
855 STPROC.BIND_I(P_LEGISLATION_CODE);
856 STPROC.EXECUTE;
857 STPROC.RETRIEVE(1
858 ,X0);*/NULL;
859 RETURN X0;
860 END RUN_DB_ITEM;
861
862 FUNCTION CHECK_BAL_EXPIRY(P_BAL_OWNER_ASG_ACTION IN NUMBER
863 ,P_ASSIGNMENT_ACTION_ID IN NUMBER
864 ,P_DIMENSION_NAME IN VARCHAR2
865 ,P_EXPIRY_CHECKING_LEVEL IN VARCHAR2
866 ,P_EXPIRY_CHECKING_CODE IN VARCHAR2
867 ,P_BAL_CONTEXT_STR IN VARCHAR2) RETURN BOOLEAN IS
868 X0 BOOLEAN;
869 BEGIN
870 /* STPROC.INIT('declare X0rv BOOLEAN; begin X0rv := PAY_BALANCE_PKG.CHECK_BAL_EXPIRY(:P_BAL_OWNER_ASG_ACTION,
871 :P_ASSIGNMENT_ACTION_ID, :P_DIMENSION_NAME, :P_EXPIRY_CHECKING_LEVEL, :P_EXPIRY_CHECKING_CODE, :P_BAL_CONTEXT_STR);
872 :X0 := sys.diutil.bool_to_int(X0rv); end;');
873 STPROC.BIND_I(P_BAL_OWNER_ASG_ACTION);
874 STPROC.BIND_I(P_ASSIGNMENT_ACTION_ID);
875 STPROC.BIND_I(P_DIMENSION_NAME);
876 STPROC.BIND_I(P_EXPIRY_CHECKING_LEVEL);
877 STPROC.BIND_I(P_EXPIRY_CHECKING_CODE);
878 STPROC.BIND_I(P_BAL_CONTEXT_STR);
879 STPROC.BIND_O(X0);
880 STPROC.EXECUTE;
881 STPROC.RETRIEVE(7
882 ,X0);*/NULL;
883 RETURN X0;
884 END CHECK_BAL_EXPIRY;
885
886 FUNCTION GET_VALUE(P_DEFINED_BALANCE_ID IN NUMBER
887 ,P_ASSIGNMENT_ACTION_ID IN NUMBER) RETURN NUMBER IS
888 X0 NUMBER;
889 BEGIN
890 /* STPROC.INIT('begin :X0 := PAY_BALANCE_PKG.GET_VALUE(:P_DEFINED_BALANCE_ID, :P_ASSIGNMENT_ACTION_ID); end;');
891 STPROC.BIND_O(X0);
892 STPROC.BIND_I(P_DEFINED_BALANCE_ID);
893 STPROC.BIND_I(P_ASSIGNMENT_ACTION_ID);
894 STPROC.EXECUTE;
895 STPROC.RETRIEVE(1
896 ,X0);*/NULL;
897 RETURN X0;
898 END GET_VALUE;
899
900 FUNCTION GET_VALUE(P_DEFINED_BALANCE_ID IN NUMBER
901 ,P_ASSIGNMENT_ACTION_ID IN NUMBER
902 ,P_ALWAYS_GET_DB_ITEM IN BOOLEAN) RETURN NUMBER IS
903 X0 NUMBER;
904 BEGIN
905 /* STPROC.INIT('declare X0P_ALWAYS_GET_DB_ITEM BOOLEAN;
906 begin X0P_ALWAYS_GET_DB_ITEM := sys.diutil.int_to_bool(:P_ALWAYS_GET_DB_ITEM);
907 :X0 := PAY_BALANCE_PKG.GET_VALUE(:P_DEFINED_BALANCE_ID, :P_ASSIGNMENT_ACTION_ID, X0P_ALWAYS_GET_DB_ITEM); end;');
908 STPROC.BIND_I(P_ALWAYS_GET_DB_ITEM);
909 STPROC.BIND_O(X0);
910 STPROC.BIND_I(P_DEFINED_BALANCE_ID);
911 STPROC.BIND_I(P_ASSIGNMENT_ACTION_ID);
912 STPROC.EXECUTE;
913 STPROC.RETRIEVE(2
914 ,X0);*/NULL;
915 RETURN X0;
916 END GET_VALUE;
917
918 FUNCTION GET_VALUE(P_DEFINED_BALANCE_ID IN NUMBER
919 ,P_ASSIGNMENT_ID IN NUMBER
920 ,P_VIRTUAL_DATE IN DATE) RETURN NUMBER IS
921 X0 NUMBER;
922 BEGIN
923 /*STPROC.INIT('begin :X0 := PAY_BALANCE_PKG.GET_VALUE(:P_DEFINED_BALANCE_ID, :P_ASSIGNMENT_ID, :P_VIRTUAL_DATE); end;');
924 STPROC.BIND_O(X0);
925 STPROC.BIND_I(P_DEFINED_BALANCE_ID);
926 STPROC.BIND_I(P_ASSIGNMENT_ID);
927 STPROC.BIND_I(P_VIRTUAL_DATE);
928 STPROC.EXECUTE;
929 STPROC.RETRIEVE(1
930 ,X0);*/NULL;
931 RETURN X0;
932 END GET_VALUE;
933
934 FUNCTION GET_VALUE(P_DEFINED_BALANCE_ID IN NUMBER
935 ,P_ASSIGNMENT_ID IN NUMBER
936 ,P_VIRTUAL_DATE IN DATE
937 ,P_ALWAYS_GET_DB_ITEM IN BOOLEAN) RETURN NUMBER IS
938 X0 NUMBER;
939 BEGIN
940 /*STPROC.INIT('declare X0P_ALWAYS_GET_DB_ITEM BOOLEAN;
941 begin X0P_ALWAYS_GET_DB_ITEM := sys.diutil.int_to_bool(:P_ALWAYS_GET_DB_ITEM);
942 :X0 := PAY_BALANCE_PKG.GET_VALUE(:P_DEFINED_BALANCE_ID, :P_ASSIGNMENT_ID, :P_VIRTUAL_DATE, X0P_ALWAYS_GET_DB_ITEM); end;');
943 STPROC.BIND_I(P_ALWAYS_GET_DB_ITEM);
944 STPROC.BIND_O(X0);
945 STPROC.BIND_I(P_DEFINED_BALANCE_ID);
946 STPROC.BIND_I(P_ASSIGNMENT_ID);
947 STPROC.BIND_I(P_VIRTUAL_DATE);
948 STPROC.EXECUTE;
949 STPROC.RETRIEVE(2
950 ,X0);*/NULL;
951 RETURN X0;
952 END GET_VALUE;
953
954 FUNCTION GET_VALUE_LOCK(P_DEFINED_BALANCE_ID IN NUMBER
955 ,P_ASSIGNMENT_ID IN NUMBER
956 ,P_VIRTUAL_DATE IN DATE
957 ,P_ASG_LOCK IN VARCHAR2) RETURN NUMBER IS
958 X0 NUMBER;
959 BEGIN
960 /* STPROC.INIT('begin :X0 := PAY_BALANCE_PKG.GET_VALUE_LOCK(:P_DEFINED_BALANCE_ID, :P_ASSIGNMENT_ID, :P_VIRTUAL_DATE, :P_ASG_LOCK); end;');
961 STPROC.BIND_O(X0);
962 STPROC.BIND_I(P_DEFINED_BALANCE_ID);
963 STPROC.BIND_I(P_ASSIGNMENT_ID);
964 STPROC.BIND_I(P_VIRTUAL_DATE);
965 STPROC.BIND_I(P_ASG_LOCK);
966 STPROC.EXECUTE;
967 STPROC.RETRIEVE(1
968 ,X0);*/NULL;
969 RETURN X0;
970 END GET_VALUE_LOCK;
971
972 FUNCTION GET_VALUE_LOCK(P_DEFINED_BALANCE_ID IN NUMBER
973 ,P_ASSIGNMENT_ID IN NUMBER
974 ,P_VIRTUAL_DATE IN DATE
975 ,P_ALWAYS_GET_DB_ITEM IN BOOLEAN
976 ,P_ASG_LOCK IN VARCHAR2) RETURN NUMBER IS
977 X0 NUMBER;
978 BEGIN
979 /* STPROC.INIT('declare X0P_ALWAYS_GET_DB_ITEM BOOLEAN;
980 begin X0P_ALWAYS_GET_DB_ITEM := sys.diutil.int_to_bool(:P_ALWAYS_GET_DB_ITEM);
981 :X0 := PAY_BALANCE_PKG.GET_VALUE_LOCK(:P_DEFINED_BALANCE_ID, :P_ASSIGNMENT_ID,
982 :P_VIRTUAL_DATE, X0P_ALWAYS_GET_DB_ITEM, :P_ASG_LOCK); end;');
983 STPROC.BIND_I(P_ALWAYS_GET_DB_ITEM);
984 STPROC.BIND_O(X0);
985 STPROC.BIND_I(P_DEFINED_BALANCE_ID);
986 STPROC.BIND_I(P_ASSIGNMENT_ID);
987 STPROC.BIND_I(P_VIRTUAL_DATE);
988 STPROC.BIND_I(P_ASG_LOCK);
989 STPROC.EXECUTE;
990 STPROC.RETRIEVE(2
991 ,X0);*/NULL;
992 RETURN X0;
993 END GET_VALUE_LOCK;
994
995 END PAY_PAYGBACT_XMLP_PKG;