40: --
41: v_pay_basis_id NUMBER;
42: --
43: Begin
44: hr_utility.set_location('hr_pay_basis.generate_unique_id',1);
45: Begin
46: select per_pay_bases_s.nextval
47: into v_pay_basis_id
48: from sys.dual;
48: from sys.dual;
49: --
50: exception
51: when NO_DATA_FOUND then
52: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
53: hr_utility.set_message_token('PROCEDURE','hr_salary_data',1 );
54: hr_utility.set_message_token('STEP','1');
55: hr_utility.raise_error;
56: End;
49: --
50: exception
51: when NO_DATA_FOUND then
52: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
53: hr_utility.set_message_token('PROCEDURE','hr_salary_data',1 );
54: hr_utility.set_message_token('STEP','1');
55: hr_utility.raise_error;
56: End;
57: --
50: exception
51: when NO_DATA_FOUND then
52: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
53: hr_utility.set_message_token('PROCEDURE','hr_salary_data',1 );
54: hr_utility.set_message_token('STEP','1');
55: hr_utility.raise_error;
56: End;
57: --
58: --
51: when NO_DATA_FOUND then
52: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
53: hr_utility.set_message_token('PROCEDURE','hr_salary_data',1 );
54: hr_utility.set_message_token('STEP','1');
55: hr_utility.raise_error;
56: End;
57: --
58: --
59: return v_pay_basis_id;
71: --
72: --
73: Begin
74: --
75: hr_utility.set_location ('hr_salary_date.insert_pay_basis',1);
76: --
77: Begin
78: --
79: p_pay_basis_id := generate_unique_id;
106: trunc(sysdate));
107: --
108: exception
109: when NO_DATA_FOUND then
110: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
111: hr_utility.set_message_token('PROCEDURE','hr_pay_basis.insert_row',1 );
112: hr_utility.set_message_token('STEP','1');
113: hr_utility.raise_error;
114: End;
107: --
108: exception
109: when NO_DATA_FOUND then
110: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
111: hr_utility.set_message_token('PROCEDURE','hr_pay_basis.insert_row',1 );
112: hr_utility.set_message_token('STEP','1');
113: hr_utility.raise_error;
114: End;
115: End insert_row;
108: exception
109: when NO_DATA_FOUND then
110: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
111: hr_utility.set_message_token('PROCEDURE','hr_pay_basis.insert_row',1 );
112: hr_utility.set_message_token('STEP','1');
113: hr_utility.raise_error;
114: End;
115: End insert_row;
116: --
109: when NO_DATA_FOUND then
110: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
111: hr_utility.set_message_token('PROCEDURE','hr_pay_basis.insert_row',1 );
112: hr_utility.set_message_token('STEP','1');
113: hr_utility.raise_error;
114: End;
115: End insert_row;
116: --
117: -------------------------------------------------------------------
126: duplicate VARCHAR2(1) := 'N';
127: --
128: BEGIN
129: --
130: -- hr_utility.set_location('hr_pay_basis.chk_name_uniqueness',1);
131: --
132: BEGIN
133: --
134: SELECT 'Y'
147: WHEN NO_DATA_FOUND THEN NULL;
148: --
149: END;
150: if duplicate = 'Y' then
151: hr_utility.set_message(801 ,'HR_13017_SAL_BASIS_DUP_NAME');
152: hr_utility.raise_error;
153: end if;
154: --
155: END chk_name_uniqueness;
148: --
149: END;
150: if duplicate = 'Y' then
151: hr_utility.set_message(801 ,'HR_13017_SAL_BASIS_DUP_NAME');
152: hr_utility.raise_error;
153: end if;
154: --
155: END chk_name_uniqueness;
156: --
169: duplicate VARCHAR2(1) := 'N';
170: --
171: BEGIN
172: --
173: -- hr_utility.set_location('hr_pay_basis.chk_input_val_rate_uk',1);
174: --
175: BEGIN
176: --
177: SELECT 'Y'
191: WHEN NO_DATA_FOUND THEN NULL;
192: END;
193: --
194: if duplicate = 'Y' then
195: hr_utility.set_message(801,'HR_13018_SAL_IV_RATE_DUP');
196: hr_utility.raise_error;
197: end if;
198: --
199: END chk_input_val_rate_uk;
192: END;
193: --
194: if duplicate = 'Y' then
195: hr_utility.set_message(801,'HR_13018_SAL_IV_RATE_DUP');
196: hr_utility.raise_error;
197: end if;
198: --
199: END chk_input_val_rate_uk;
200: --
214: --
215: BEGIN
216: --
217: v_validation_chk := 'N';
218: -- hr_utility.set_location('hr_pay_basis.chk_duplicate_element',1);
219: --
220: BEGIN
221: --
222: SELECT 'Y'
254: --
255: BEGIN
256: --
257: v_validation_chk := 'N';
258: -- hr_utility.set_location('hr_pay_basis.chk_element_entry',1);
259: --
260: --
261: BEGIN
262: --
277: --
278: --
279: if v_validation_chk = 'Y'
280: then
281: hr_utility.set_message(801,'HR_13019_SAL_ENTRY_EXISTS');
282: hr_utility.raise_error;
283: end if;
284: --
285: END chk_element_entry;
278: --
279: if v_validation_chk = 'Y'
280: then
281: hr_utility.set_message(801,'HR_13019_SAL_ENTRY_EXISTS');
282: hr_utility.raise_error;
283: end if;
284: --
285: END chk_element_entry;
286: --
297: --
298: BEGIN
299: --
300: v_validation_chk := 'N';
301: hr_utility.set_location('hr_pay_basis.chk_basis_assignment',1);
302: --
303: --
304: BEGIN
305: --
320: --
321: --
322: if v_validation_chk = 'Y'
323: then
324: hr_utility.set_message(801,'HR_13020_SAL_ASG_EXISTS');
325: hr_utility.raise_error;
326: end if;
327: --
328: END chk_basis_assignment;
321: --
322: if v_validation_chk = 'Y'
323: then
324: hr_utility.set_message(801,'HR_13020_SAL_ASG_EXISTS');
325: hr_utility.raise_error;
326: end if;
327: --
328: END chk_basis_assignment;
329: --
335: v_basis_meaning VARCHAR2(80);
336: --
337: Begin
338: --
339: hr_utility.set_location('hr_pay_basis.populate_basis',1);
340: --
341: Begin
342: select hlu.meaning into v_basis_meaning
343: from hr_lookups hlu
346: --
347: EXCEPTION
348: --
349: WHEN NO_DATA_FOUND THEN
350: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
351: hr_utility.set_message_token('PROCEDURE',
352: 'hr_pay.basis.populate_basis');
353: hr_utility.set_message_token('STEP','1');
354: hr_utility.raise_error;
347: EXCEPTION
348: --
349: WHEN NO_DATA_FOUND THEN
350: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
351: hr_utility.set_message_token('PROCEDURE',
352: 'hr_pay.basis.populate_basis');
353: hr_utility.set_message_token('STEP','1');
354: hr_utility.raise_error;
355: end;
349: WHEN NO_DATA_FOUND THEN
350: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
351: hr_utility.set_message_token('PROCEDURE',
352: 'hr_pay.basis.populate_basis');
353: hr_utility.set_message_token('STEP','1');
354: hr_utility.raise_error;
355: end;
356: --
357: RETURN v_basis_meaning;
350: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
351: hr_utility.set_message_token('PROCEDURE',
352: 'hr_pay.basis.populate_basis');
353: hr_utility.set_message_token('STEP','1');
354: hr_utility.raise_error;
355: end;
356: --
357: RETURN v_basis_meaning;
358: --
367: --
368: --
369: Begin
370: --
371: hr_utility.set_location ('hr_pay_basis.populate_element_iv_name',1);
372: --
373: Begin
374: --
375: select pivtl.name,
395: --
396: EXCEPTION
397: --
398: WHEN NO_DATA_FOUND THEN
399: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
400: hr_utility.set_message_token('PROCEDURE',
401: 'hr_pay.basis.populate_iv_name');
402: hr_utility.set_message_token('STEP','1');
403: hr_utility.raise_error;
396: EXCEPTION
397: --
398: WHEN NO_DATA_FOUND THEN
399: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
400: hr_utility.set_message_token('PROCEDURE',
401: 'hr_pay.basis.populate_iv_name');
402: hr_utility.set_message_token('STEP','1');
403: hr_utility.raise_error;
404: end;
398: WHEN NO_DATA_FOUND THEN
399: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
400: hr_utility.set_message_token('PROCEDURE',
401: 'hr_pay.basis.populate_iv_name');
402: hr_utility.set_message_token('STEP','1');
403: hr_utility.raise_error;
404: end;
405: --
406: End populate_element_iv_name;
399: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
400: hr_utility.set_message_token('PROCEDURE',
401: 'hr_pay.basis.populate_iv_name');
402: hr_utility.set_message_token('STEP','1');
403: hr_utility.raise_error;
404: end;
405: --
406: End populate_element_iv_name;
407: --
412: v_rate_name VARCHAR2(80);
413: --
414: Begin
415: --
416: hr_utility.set_location('hr_pay_basis.populate_rate_name',1);
417: Begin
418: --
419: select name into v_rate_name
420: from pay_rates
421: where rate_id = p_rate_id;
422: --
423: EXCEPTION
424: WHEN NO_DATA_FOUND THEN
425: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
426: hr_utility.set_message_token('PROCEDURE',
427: 'hr_pay.basis.populate_rate_name');
428: hr_utility.set_message_token('STEP','1');
429: hr_utility.raise_error;
422: --
423: EXCEPTION
424: WHEN NO_DATA_FOUND THEN
425: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
426: hr_utility.set_message_token('PROCEDURE',
427: 'hr_pay.basis.populate_rate_name');
428: hr_utility.set_message_token('STEP','1');
429: hr_utility.raise_error;
430: end;
424: WHEN NO_DATA_FOUND THEN
425: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
426: hr_utility.set_message_token('PROCEDURE',
427: 'hr_pay.basis.populate_rate_name');
428: hr_utility.set_message_token('STEP','1');
429: hr_utility.raise_error;
430: end;
431: --
432: RETURN v_rate_name;
425: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
426: hr_utility.set_message_token('PROCEDURE',
427: 'hr_pay.basis.populate_rate_name');
428: hr_utility.set_message_token('STEP','1');
429: hr_utility.raise_error;
430: end;
431: --
432: RETURN v_rate_name;
433: --
441: p_end_date OUT NOCOPY DATE) IS
442: --
443: Begin
444: --
445: hr_utility.set_location ('hr_pay_basis.populate_valid_dates',1);
446: --
447: Begin
448: --
449: select min(effective_start_date),
455: --
456: exception
457: when NO_DATA_FOUND
458: then
459: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
460: hr_utility.set_message_token('PROCEDURE',
461: 'hr_pay.basis.populate_rate_name');
462: hr_utility.set_message_token('STEP','1');
463: hr_utility.raise_error;
456: exception
457: when NO_DATA_FOUND
458: then
459: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
460: hr_utility.set_message_token('PROCEDURE',
461: 'hr_pay.basis.populate_rate_name');
462: hr_utility.set_message_token('STEP','1');
463: hr_utility.raise_error;
464: end;
458: then
459: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
460: hr_utility.set_message_token('PROCEDURE',
461: 'hr_pay.basis.populate_rate_name');
462: hr_utility.set_message_token('STEP','1');
463: hr_utility.raise_error;
464: end;
465: --
466: end populate_iv_valid_dates;
459: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
460: hr_utility.set_message_token('PROCEDURE',
461: 'hr_pay.basis.populate_rate_name');
462: hr_utility.set_message_token('STEP','1');
463: hr_utility.raise_error;
464: end;
465: --
466: end populate_iv_valid_dates;
467: --
483: v_valid VARCHAR2(1);
484: --
485: Begin
486: --
487: hr_utility.set_location ('hr_pay_basis.retreive_fields',1);
488: --
489: Begin
490: -- check to see if salary basis reteived is valid for the given session
491: -- date
500: and effective_end_date);
501: --
502: exception
503: when no_data_found then
504: hr_utility.set_message(801, 'HR_13027_SAL_BAS_DATE_INVALID');
505: hr_utility.raise_error;
506: end;
507:
508: p_basis := populate_basis (p_basis_code);
501: --
502: exception
503: when no_data_found then
504: hr_utility.set_message(801, 'HR_13027_SAL_BAS_DATE_INVALID');
505: hr_utility.raise_error;
506: end;
507:
508: p_basis := populate_basis (p_basis_code);
509: --
563: where rowid = p_row_id;
564:
565: --
566: Begin
567: hr_utility.set_location ('hr_pay_basis.validate_update',1);
568: --
569: OPEN C;
570: Fetch C into v_pay_basis, v_input_value_id;
571: if (C%NOTFOUND)
584: --
585: exception
586: when no_data_found
587: then
588: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
589: hr_utility.set_message_token('PROCEDURE',
590: 'hr_pay_basis.validate_update');
591: hr_utility.set_message_token('STEP','1');
592: hr_utility.raise_error;
585: exception
586: when no_data_found
587: then
588: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
589: hr_utility.set_message_token('PROCEDURE',
590: 'hr_pay_basis.validate_update');
591: hr_utility.set_message_token('STEP','1');
592: hr_utility.raise_error;
593: end;
587: then
588: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
589: hr_utility.set_message_token('PROCEDURE',
590: 'hr_pay_basis.validate_update');
591: hr_utility.set_message_token('STEP','1');
592: hr_utility.raise_error;
593: end;
594:
595:
588: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
589: hr_utility.set_message_token('PROCEDURE',
590: 'hr_pay_basis.validate_update');
591: hr_utility.set_message_token('STEP','1');
592: hr_utility.raise_error;
593: end;
594:
595:
596: END hr_pay_basis;