[Home] [Help]
47:
48: l_tmp number := null;
49: begin
50:
51: hr_utility.set_location(' Entering:' || l_proc,5);
52:
53: Open c1 (p_asg_id, to_date(p_eff_date,'RRRR-MM-DD'));
54: Fetch c1 into l_tmp;
55: Close c1;
56: l_tmp := hr_entry_api.get_link(p_asg_id, l_tmp,
57: to_date(p_eff_date,'RRRR-MM-DD'));
58:
59: if (l_tmp is not null) then
60: hr_utility.set_location(' Leaving:' || l_proc,10);
61: return true;
62: end If;
63: hr_utility.set_location(' Leaving:' || l_proc,15);
64: return false;
59: if (l_tmp is not null) then
60: hr_utility.set_location(' Leaving:' || l_proc,10);
61: return true;
62: end If;
63: hr_utility.set_location(' Leaving:' || l_proc,15);
64: return false;
65: Exception when others then
66: hr_utility.set_location(' Leaving:' || l_proc,555);
67: return false;
62: end If;
63: hr_utility.set_location(' Leaving:' || l_proc,15);
64: return false;
65: Exception when others then
66: hr_utility.set_location(' Leaving:' || l_proc,555);
67: return false;
68: end check_ele_eligibility;
69:
70:
137: AND assignment_type = 'E';
138:
139:
140: BEGIN
141: hr_utility.set_location(' Entering:' || l_proc,5);
142: IF ( funmode = 'RUN' )
143: THEN
144: hr_utility.set_location(l_proc,10);
145: -- Get the ASG and Pay Rate transaction step id
140: BEGIN
141: hr_utility.set_location(' Entering:' || l_proc,5);
142: IF ( funmode = 'RUN' )
143: THEN
144: hr_utility.set_location(l_proc,10);
145: -- Get the ASG and Pay Rate transaction step id
146: FOR I in csr_trs
147: LOOP
148: IF I.api_name = g_asg_api_name
153: END LOOP;
154:
155: IF l_asg_txn_step_id IS NOT NULL
156: THEN
157: hr_utility.set_location(l_proc,15);
158: l_effective_date := to_date(
159: hr_transaction_ss.get_wf_effective_date
160: (p_transaction_step_id => l_asg_txn_step_id),
161: hr_transaction_ss.g_date_format);
177: OPEN csr_get_old_asg_data;
178: FETCH csr_get_old_asg_data into l_old_pay_basis_id;
179: IF csr_get_old_asg_data%NOTFOUND
180: THEN
181: hr_utility.set_location(l_proc,20);
182: -- could be a new hire or applicant hire, there is no asg rec
183: CLOSE csr_get_old_asg_data;
184: ELSE
185: CLOSE csr_get_old_asg_data;
189: l_new_pay_basis_id IS NOT NULL and
190: l_old_pay_basis_id <> l_new_pay_basis_id and
191: l_payroll_id IS NOT NULL
192: THEN
193: hr_utility.set_location(l_proc,25);
194: -- perform mid pay period check
195: OPEN csr_check_mid_pay_period
196: (p_eff_date_csr => l_effective_date
197: ,p_payroll_id_csr => l_payroll_id);
198: FETCH csr_check_mid_pay_period into l_pay_period_start_date
199: ,l_pay_period_end_date;
200: IF csr_check_mid_pay_period%NOTFOUND
201: THEN
202: hr_utility.set_location(l_proc,30);
203: -- That means the effective date is not in mid pay period
204: CLOSE csr_check_mid_pay_period;
205: -- Need to set the item attribute to 'N' because this may be
206: -- a Return For Correction and the value of the item attribute
210: ,itemkey => p_item_key
211: ,aname => g_mid_pay_period_change
212: ,avalue => 'N');
213: ELSE
214: hr_utility.set_location(l_proc,35);
215: -- Only set the WF Item attribute HR_MID_PAY_PERIOD_CHANGE to
216: -- 'Y' when there is payroll installed and the employee is not a
217: -- new hire (ie. first time salary basis was entered).
218: -- We determine New Hire by looking at the old db assignment rec
230:
231: END IF;
232: END IF;
233: ELSE
234: hr_utility.set_location(l_proc,40);
235: result := 'COMPLETE:'||'N';
236: END IF; -- asg txn step is not null
237: ELSIF ( funmode = 'CANCEL' ) then
238: hr_utility.set_location(l_proc,45);
234: hr_utility.set_location(l_proc,40);
235: result := 'COMPLETE:'||'N';
236: END IF; -- asg txn step is not null
237: ELSIF ( funmode = 'CANCEL' ) then
238: hr_utility.set_location(l_proc,45);
239: --
240: NULL;
241: --
242: END IF;
240: NULL;
241: --
242: END IF;
243:
244: hr_utility.set_location(' Leaving:' || l_proc,50);
245: END check_mid_pay_period_change;
246:
247: -- 05/14/2002 - Bug 2374140 Fix Ends
248:
263: ln_grade_dif NUMBER ;
264:
265: BEGIN
266:
267: hr_utility.set_location(' Entering:' || l_proc,5);
268: IF p_grade_min IS NULL OR
269: p_grade_max IS NULL OR
270: p_grade_mid IS NULL
271: THEN
268: IF p_grade_min IS NULL OR
269: p_grade_max IS NULL OR
270: p_grade_mid IS NULL
271: THEN
272: hr_utility.set_location(' Leaving:' || l_proc,10);
273: return NULL ;
274: END IF ;
275:
276: ln_grade_dif := p_grade_max- p_grade_min ;
277:
278:
279: IF p_annual_salary < ( p_grade_min + ln_grade_dif/4)
280: THEN
281: hr_utility.set_location(l_proc,15);
282: ln_quartile := 1 ;
283: ELSIF p_annual_salary < ( p_grade_min + ln_grade_dif/2 )
284: THEN
285: hr_utility.set_location(l_proc,20);
281: hr_utility.set_location(l_proc,15);
282: ln_quartile := 1 ;
283: ELSIF p_annual_salary < ( p_grade_min + ln_grade_dif/2 )
284: THEN
285: hr_utility.set_location(l_proc,20);
286: ln_quartile := 2 ;
287: ELSIF p_annual_salary < ( p_grade_min + (ln_grade_dif * 3/4))
288: THEN
289: hr_utility.set_location(l_proc,25);
285: hr_utility.set_location(l_proc,20);
286: ln_quartile := 2 ;
287: ELSIF p_annual_salary < ( p_grade_min + (ln_grade_dif * 3/4))
288: THEN
289: hr_utility.set_location(l_proc,25);
290: ln_quartile := 3;
291:
292: ELSIF p_annual_salary < p_grade_max
293: THEN
290: ln_quartile := 3;
291:
292: ELSIF p_annual_salary < p_grade_max
293: THEN
294: hr_utility.set_location(l_proc,30);
295: ln_quartile := 4 ;
296: ELSE
297: hr_utility.set_location(l_proc,35);
298: ln_quartile := NULL ;
293: THEN
294: hr_utility.set_location(l_proc,30);
295: ln_quartile := 4 ;
296: ELSE
297: hr_utility.set_location(l_proc,35);
298: ln_quartile := NULL ;
299: END IF ;
300:
301: hr_utility.set_location(' Leaving:' || l_proc,40);
297: hr_utility.set_location(l_proc,35);
298: ln_quartile := NULL ;
299: END IF ;
300:
301: hr_utility.set_location(' Leaving:' || l_proc,40);
302: return ln_quartile ;
303:
304: END get_quartile;
305:
311: i integer := 1;
312: diff integer;
313: cnt integer := 20;
314: BEGIN
315: hr_utility.set_location(' Entering:' || l_proc,5);
316: if (p_divisor = p_divider) then
317: hr_utility.set_location(' Leaving:' || l_proc,10);
318: return 1;
319: end if;
313: cnt integer := 20;
314: BEGIN
315: hr_utility.set_location(' Entering:' || l_proc,5);
316: if (p_divisor = p_divider) then
317: hr_utility.set_location(' Leaving:' || l_proc,10);
318: return 1;
319: end if;
320: diff := p_divisor;
321: loop
328: if(i = cnt) then
329: exit;
330: end if;
331: end loop;
332: hr_utility.set_location(' Leaving:' || l_proc,15);
333: return i;
334: END;
335:
336: FUNCTION format_number(p_number number,
338:
339: l_proc varchar2(200) := g_package || 'format_number';
340:
341: BEGIN
342: hr_utility.set_location(' Entering:' || l_proc,5);
343: IF (fnd_profile.value('CURRENCY:THOUSANDS_SEPARATOR') = 'Y' AND
344: p_number is not null) THEN
345:
346: declare
359: p_af VARCHAR2(80);
360: p_indx NUMBER;
361: p_negative BOOLEAN := false;
362: begin
363: hr_utility.set_location( l_proc,10);
364: p_input := to_char(p_number);
365: -- check if we have negative number
366: IF (substr(p_input, 1, 1) = '-') THEN
367: hr_utility.set_location( l_proc,15);
363: hr_utility.set_location( l_proc,10);
364: p_input := to_char(p_number);
365: -- check if we have negative number
366: IF (substr(p_input, 1, 1) = '-') THEN
367: hr_utility.set_location( l_proc,15);
368: p_negative := true;
369: p_input := substr(p_input, 2, length(p_input));
370: END IF;
371: p_decimalSep := substr(fnd_profile.value('ICX_NUMERIC_CHARACTERS'),1,1);
370: END IF;
371: p_decimalSep := substr(fnd_profile.value('ICX_NUMERIC_CHARACTERS'),1,1);
372: p_groupSep := substr(fnd_profile.value('ICX_NUMERIC_CHARACTERS'),2,1);
373: if(p_decimalSep = ',') then
374: hr_utility.set_location( l_proc,20);
375: p_input := replace(p_input,p_decimalSep,p_groupSep);
376: end if;
377: if(instr(p_input, '.') = 0) then
378: hr_utility.set_location( l_proc,25);
374: hr_utility.set_location( l_proc,20);
375: p_input := replace(p_input,p_decimalSep,p_groupSep);
376: end if;
377: if(instr(p_input, '.') = 0) then
378: hr_utility.set_location( l_proc,25);
379: p_afDec := '.0';
380: p_wNum := p_input;
381: else
382: hr_utility.set_location( l_proc,30);
378: hr_utility.set_location( l_proc,25);
379: p_afDec := '.0';
380: p_wNum := p_input;
381: else
382: hr_utility.set_location( l_proc,30);
383: p_afDec := substr(p_input, instr(p_input, '.'));
384: p_wNum := substr(p_input, 1, (length(p_input) - length(p_afDec)));
385: end if;
386: p_len := length(p_wNum);
386: p_len := length(p_wNum);
387: p_times := 0;
388: p_rem := MOD(p_len, 3);
389: if(p_len is null) then
390: hr_utility.set_location( l_proc,35);
391: p_quo := 0;
392: else
393: hr_utility.set_location( l_proc,40);
394: p_quo := get_quotient(3, p_len);
389: if(p_len is null) then
390: hr_utility.set_location( l_proc,35);
391: p_quo := 0;
392: else
393: hr_utility.set_location( l_proc,40);
394: p_quo := get_quotient(3, p_len);
395: end if;
396: p_bf := null;
397: p_af := null;
397: p_af := null;
398: p_indx := 3;
399:
400: IF (p_quo > 1 AND p_rem = 0) THEN
401: hr_utility.set_location( l_proc,45);
402: p_times := p_quo - 1;
403: ELSE
404: IF (p_quo <> 1 OR p_len > 3) THEN
405: hr_utility.set_location( l_proc,50);
401: hr_utility.set_location( l_proc,45);
402: p_times := p_quo - 1;
403: ELSE
404: IF (p_quo <> 1 OR p_len > 3) THEN
405: hr_utility.set_location( l_proc,50);
406: p_times := p_quo;
407: END IF;
408: END IF;
409:
414: p_indx := p_indx + 3;
415: END LOOP;
416:
417: if(p_decimalSep = ',') then
418: hr_utility.set_location( l_proc,55);
419: p_afDec := replace(p_afDec,'.',p_decimalSep);
420: end if;
421: -- append zeroes equal to precision length
422: p_prc_len := length(p_afDec);
425: p_afDec := p_afDec || '0';
426: end loop;
427: -- if negative, then append it back
428: if(p_negative) then
429: hr_utility.set_location( l_proc,60);
430: p_wNum := '-'||p_wNum;
431: end if;
432: hr_utility.set_location(' Leaving:' || l_proc,65);
433: return (p_wNum || p_afDec);
428: if(p_negative) then
429: hr_utility.set_location( l_proc,60);
430: p_wNum := '-'||p_wNum;
431: end if;
432: hr_utility.set_location(' Leaving:' || l_proc,65);
433: return (p_wNum || p_afDec);
434: END;
435: END IF;
436: hr_utility.set_location(' Leaving:' || l_proc,70);
432: hr_utility.set_location(' Leaving:' || l_proc,65);
433: return (p_wNum || p_afDec);
434: END;
435: END IF;
436: hr_utility.set_location(' Leaving:' || l_proc,70);
437: return to_char(p_number);
438: END;
439:
440:
460: And paf.pay_basis_id = ppb.pay_basis_id
461: Order By change_date desc;
462:
463: BEGIN
464: hr_utility.set_location(' Entering:' || l_proc,5);
465: OPEN c_last_pay ;
466: FETCH c_last_pay INTO ln_last_pay1;
467: FETCH c_last_pay INTO ln_last_pay2 ;
468: IF c_last_pay%NOTFOUND
467: FETCH c_last_pay INTO ln_last_pay2 ;
468: IF c_last_pay%NOTFOUND
469: THEN
470: CLOSE c_last_pay ;
471: hr_utility.set_location(' Leaving:' || l_proc,10);
472: return NULL ;
473: END IF ;
474: CLOSE c_last_pay ;
475:
473: END IF ;
474: CLOSE c_last_pay ;
475:
476: if not ln_last_pay2 = 0 then
477: hr_utility.set_location(l_proc,15);
478: p_percent := format_number(round(((ln_last_pay1-ln_last_pay2)/ln_last_pay2)*100,p_precision), p_precision);
479: end if;
480:
481: hr_utility.set_location(' Leaving:' || l_proc,20);
477: hr_utility.set_location(l_proc,15);
478: p_percent := format_number(round(((ln_last_pay1-ln_last_pay2)/ln_last_pay2)*100,p_precision), p_precision);
479: end if;
480:
481: hr_utility.set_location(' Leaving:' || l_proc,20);
482: return format_number(round((ln_last_pay1-ln_last_pay2), p_precision), p_precision);
483:
484: EXCEPTION
485: WHEN OTHERS THEN
482: return format_number(round((ln_last_pay1-ln_last_pay2), p_precision), p_precision);
483:
484: EXCEPTION
485: WHEN OTHERS THEN
486: hr_utility.set_location(' Leaving:' || l_proc,555);
487: raise;
488:
489: END ;
490:
521: lv_flsa_meaning VARCHAr2(80);
522:
523: BEGIN
524:
525: hr_utility.set_location(' Entering:' || l_proc,5);
526: IF( p_job_id is not null) THEN
527: hr_utility.set_location( l_proc,10);
528: OPEN lc_txn_flsa_status ;
529: FETCH lc_txn_flsa_status into lv_flsa_status ;
523: BEGIN
524:
525: hr_utility.set_location(' Entering:' || l_proc,5);
526: IF( p_job_id is not null) THEN
527: hr_utility.set_location( l_proc,10);
528: OPEN lc_txn_flsa_status ;
529: FETCH lc_txn_flsa_status into lv_flsa_status ;
530: IF lc_txn_flsa_status%NOTFOUND THEN
531: CLOSE lc_txn_flsa_status;
528: OPEN lc_txn_flsa_status ;
529: FETCH lc_txn_flsa_status into lv_flsa_status ;
530: IF lc_txn_flsa_status%NOTFOUND THEN
531: CLOSE lc_txn_flsa_status;
532: hr_utility.set_location(' Leaving:' || l_proc,15);
533: return NULL ;
534: END IF;
535: CLOSE lc_txn_flsa_status;
536: ELSE
533: return NULL ;
534: END IF;
535: CLOSE lc_txn_flsa_status;
536: ELSE
537: hr_utility.set_location( l_proc,20);
538: OPEN lc_flsa_status ;
539: FETCH lc_flsa_status into lv_flsa_status ;
540: IF lc_flsa_status%NOTFOUND THEN
541: CLOSE lc_flsa_status;
538: OPEN lc_flsa_status ;
539: FETCH lc_flsa_status into lv_flsa_status ;
540: IF lc_flsa_status%NOTFOUND THEN
541: CLOSE lc_flsa_status;
542: hr_utility.set_location(' Leaving:' || l_proc,25);
543: return NULL ;
544: END IF;
545: CLOSE lc_flsa_status;
546: END IF ;
548: lv_flsa_meaning := hr_misc_web.get_lookup_meaning (
549: lv_flsa_status ,
550: 'US_EXEMPT_NON_EXEMPT',
551: p_date);
552: hr_utility.set_location(' Leaving:' || l_proc,30);
553: return lv_flsa_meaning ;
554: END get_flsa_status;
555:
556: /* ======================================================================
604:
605: ln_precision NUMBER ;
606:
607: BEGIN
608: hr_utility.set_location(' Entering:' || l_proc,5);
609: IF p_uom = 'N'
610: THEN
611: hr_utility.set_location(l_proc,10);
612: ln_precision:= 5 ;
607: BEGIN
608: hr_utility.set_location(' Entering:' || l_proc,5);
609: IF p_uom = 'N'
610: THEN
611: hr_utility.set_location(l_proc,10);
612: ln_precision:= 5 ;
613: ELSE
614: hr_utility.set_location(l_proc,15);
615: OPEN c_precision ;
610: THEN
611: hr_utility.set_location(l_proc,10);
612: ln_precision:= 5 ;
613: ELSE
614: hr_utility.set_location(l_proc,15);
615: OPEN c_precision ;
616: FETCH c_precision into ln_precision ;
617: CLOSE c_precision ;
618:
616: FETCH c_precision into ln_precision ;
617: CLOSE c_precision ;
618:
619: END IF ;
620: hr_utility.set_location(' Leaving:' || l_proc,20);
621: return ln_precision ;
622: EXCEPTION
623: WHEN OTHERS THEN
624: hr_utility.set_location(' Leaving:' || l_proc,25);
620: hr_utility.set_location(' Leaving:' || l_proc,20);
621: return ln_precision ;
622: EXCEPTION
623: WHEN OTHERS THEN
624: hr_utility.set_location(' Leaving:' || l_proc,25);
625: raise;
626: END get_precision ;
627:
628: /*===============================================================
640: IS
641:
642: l_proc varchar2(200) := g_package || 'check_gsp_txn';
643: begin
644: hr_utility.set_location(' Entering:' || l_proc,5);
645: p_gsp_assignment := null; -- default value
646: IF p_transaction_step_id IS NOT NULL
647: THEN
648: hr_utility.set_location(l_proc,10);
644: hr_utility.set_location(' Entering:' || l_proc,5);
645: p_gsp_assignment := null; -- default value
646: IF p_transaction_step_id IS NOT NULL
647: THEN
648: hr_utility.set_location(l_proc,10);
649: p_gsp_assignment :=
650: hr_transaction_api.get_varchar2_value
651: (p_transaction_step_id => p_transaction_step_id,
652: p_name =>'p_gsp_dummy_txn');
650: hr_transaction_api.get_varchar2_value
651: (p_transaction_step_id => p_transaction_step_id,
652: p_name =>'p_gsp_dummy_txn');
653: END IF;
654: hr_utility.set_location(' Leaving:' || l_proc,15);
655: end check_gsp_txn;
656:
657:
658: /*===============================================================
720: ln_txn_grade_ladder_id PER_ALL_ASSIGNMENTS_F.grade_ladder_pgm_id%TYPE default null;
721:
722: BEGIN
723:
724: hr_utility.set_location(' Entering:' || l_proc,5);
725: lv_msg_text := '';
726: lv_msg_text := lv_msg_text ||
727: hr_util_misc_web.return_msg_text(
728: p_message_name =>'HR_PAY_RATE_GSP_NO_UPD'
732: -- assignment and also grade ladder assignment.
733: IF p_flow_mode IS NOT NULL and
734: p_flow_mode = hr_process_assignment_ss.g_new_hire_registration
735: THEN
736: hr_utility.set_location(l_proc,10);
737: NULL;
738: ELSE
739: hr_utility.set_location(l_proc,15);
740: OPEN lc_asg_grade_ladder_id;
735: THEN
736: hr_utility.set_location(l_proc,10);
737: NULL;
738: ELSE
739: hr_utility.set_location(l_proc,15);
740: OPEN lc_asg_grade_ladder_id;
741: FETCH lc_asg_grade_ladder_id into p_old_grade_ladder_id,lv_applicant_asg_type;
742: CLOSE lc_asg_grade_ladder_id;
743: END IF;
743: END IF;
744: -- GSP won't support for CWK
745: IF lv_applicant_asg_type = 'C'
746: THEN
747: hr_utility.set_location(' Leaving:' || l_proc,20);
748: return;
749: END IF;
750:
751: IF lv_applicant_asg_type = 'A'
749: END IF;
750:
751: IF lv_applicant_asg_type = 'A'
752: THEN
753: hr_utility.set_location(l_proc,25);
754: -- zap the p_old_grade_ladder_pgm_id
755: p_old_grade_ladder_id := null;
756: --p_flow_mode := hr_process_assignment_ss.g_hire_an_applicant;
757: END IF;
757: END IF;
758:
759: IF p_asg_txn_step_id IS NOT NULL
760: THEN
761: hr_utility.set_location(l_proc,30);
762: -- In a chained process navigated from the Assignment page.
763: -- Get the grade_ladder_id from the txn step
764: ln_transaction_step_id := p_asg_txn_step_id;
765: ln_txn_grade_ladder_id := hr_transaction_api.get_number_value
777: p_excep_message := lv_msg_text;
778: END IF;
779:
780: ELSE
781: hr_utility.set_location(l_proc,35);
782: -- 2 possibilities:
783: -- 1) On re-entry of a Save For Later transaction where the user last
784: -- stopped at the Pay Rate page, asg_txn_step_id is not known now
785: -- OR
794: ,p_transaction_id => ln_transaction_id);
795:
796: IF nvl(ln_transaction_step_id, -1) > 0
797: THEN
798: hr_utility.set_location(l_proc,40);
799: -- It's a Save For Later transaction, Pay Rate was being chained
800: -- to the Assignment page but user last stopped at the Pay Rate
801: -- page.
802: -- Get the grade_ladder_id from the txn step
810: open lc_sal_updateable_grade_ladder( p_grade_ladder_id => p_new_grade_ladder_id,
811: p_effective_date => p_effective_date);
812: fetch lc_sal_updateable_grade_ladder into lc_temp_grade_ladder_id;
813: if (lc_sal_updateable_grade_ladder%FOUND) THEN
814: hr_utility.set_location(l_proc,45);
815: -- set exception message
816: -- it's an error, we cannot proceed further
817: p_excep_message := lv_msg_text;
818: END IF;
817: p_excep_message := lv_msg_text;
818: END IF;
819:
820: ELSE
821: hr_utility.set_location(l_proc,50);
822: -- There is no passed ASG transaction step id and
823: -- It's Pay Rate standalone.
824: IF p_old_grade_ladder_id IS NOT NULL
825: THEN
822: -- There is no passed ASG transaction step id and
823: -- It's Pay Rate standalone.
824: IF p_old_grade_ladder_id IS NOT NULL
825: THEN
826: hr_utility.set_location(l_proc,55);
827: -- check whether grade ladder won't allow salary update
828: open lc_sal_updateable_grade_ladder(p_grade_ladder_id => p_old_grade_ladder_id,
829: p_effective_date => p_effective_date);
830: fetch lc_sal_updateable_grade_ladder into lc_temp_grade_ladder_id;
837: END IF; -- p_old_grade_ladder_pgm_id is not null
838: END IF;
839: END IF; -- end p_asg_txn_step_id is NOT null
840:
841: hr_utility.set_location(' Leaving:' || l_proc,60);
842: EXCEPTION
843: -- WHEN lv_grade_ladder_excep THEN
844:
845: -- The Java caller PayRateAMImpl.java will throw the exception.
845: -- The Java caller PayRateAMImpl.java will throw the exception.
846: -- null;
847:
848: WHEN OTHERS THEN
849: hr_utility.set_location(' Leaving:' || l_proc,560);
850: RAISE;
851:
852: END check_gsp_asg_txn_data;
853:
1016:
1017:
1018: BEGIN
1019:
1020: hr_utility.set_location(' Entering:' || l_proc,5);
1021:
1022: ld_get_defaults_date := p_effective_date;
1023:
1024: -- Read from the database to determine if there is an existing
1043:
1044: IF p_flow_mode IS NOT NULL and
1045: p_flow_mode = hr_process_assignment_ss.g_new_hire_registration
1046: THEN
1047: hr_utility.set_location(l_proc,10);
1048: NULL;
1049: ELSE
1050: hr_utility.set_location(l_proc,15);
1051: OPEN lc_get_curr_asg_pay_basis_id;
1046: THEN
1047: hr_utility.set_location(l_proc,10);
1048: NULL;
1049: ELSE
1050: hr_utility.set_location(l_proc,15);
1051: OPEN lc_get_curr_asg_pay_basis_id;
1052: FETCH lc_get_curr_asg_pay_basis_id into ln_payroll_id
1053: ,p_old_pay_basis_id
1054: ,ln_business_group_id
1079: END IF;
1080:
1081: IF lv_applicant_asg_type = 'A'
1082: THEN
1083: hr_utility.set_location(l_proc,20);
1084: -- zap the ln_payroll_id, lv_old_salary_basis_name and
1085: -- ln_old_pay_annual_factor to null
1086: -- Change the p_flow_mode to reflect APPLICANT_HIRE
1087: ln_payroll_id := null;
1094: -- Bug 2355929 Fix Ends
1095:
1096: IF p_asg_txn_step_id IS NOT NULL
1097: THEN
1098: hr_utility.set_location(l_proc,25);
1099: -- In a chained process navigated from the Assignment page.
1100: -- Get the pay_basis_id from the txn step
1101: ln_transaction_step_id := p_asg_txn_step_id;
1102: ln_txn_pay_basis_id := hr_transaction_api.get_number_value
1120: -- Issue an error when the old and new pay basis id are null regardless
1121: -- it's a New Hire or Applicant Hire.
1122: IF p_old_pay_basis_id IS NULL and p_new_pay_basis_id IS NULL
1123: THEN
1124: hr_utility.set_location(l_proc,30);
1125: -- it's an error, we cannot proceed further
1126: lv_msg_text := lv_msg_text ||
1127: hr_util_misc_web.return_msg_text(
1128: p_message_name =>'HR_289855_SAL_ASS_NOT_SAL_ELIG'
1131: raise lv_no_sal_basis_excep;
1132: END IF;
1133: -- 05/03/2002 Fix Ends
1134: ELSE
1135: hr_utility.set_location(l_proc,35);
1136: -- 2 possibilities:
1137: -- 1) On re-entry of a Save For Later transaction where the user last
1138: -- stopped at the Pay Rate page, asg_txn_step_id is not known now
1139: -- OR
1148: ,p_transaction_id => ln_transaction_id);
1149:
1150: IF nvl(ln_transaction_step_id, -1) > 0
1151: THEN
1152: hr_utility.set_location(l_proc,40);
1153: -- It's a Save For Later transaction, Pay Rate was being chained
1154: -- to the Assignment page but user last stopped at the Pay Rate
1155: -- page.
1156: -- Get the value of pay basis id from the txn table.
1179: -- Issue an error when the old and new pay basis id are null regardless
1180: -- it's a New Hire or Applicant Hire.
1181: IF p_old_pay_basis_id IS NULL and p_new_pay_basis_id IS NULL
1182: THEN
1183: hr_utility.set_location(l_proc,45);
1184: -- it's an error, we cannot proceed further
1185: lv_msg_text := lv_msg_text ||
1186: hr_util_misc_web.return_msg_text(
1187: p_message_name =>'HR_289855_SAL_ASS_NOT_SAL_ELIG'
1190: raise lv_no_sal_basis_excep;
1191: END IF;
1192: -- 05/03/2002 Fix Ends
1193: ELSE
1194: hr_utility.set_location(l_proc,50);
1195: -- There is no passed ASG transaction step id and none in
1196: -- the database.
1197: -- It's Pay Rate standalone. Get the pay basis id from the asg
1198: -- rec in the database.
1198: -- rec in the database.
1199: -- Set the old and new pay basis id to be the same.
1200: IF p_old_pay_basis_id IS NULL
1201: THEN
1202: hr_utility.set_location(l_proc,55);
1203: -- it's an error, we cannot proceed further
1204: lv_msg_text := lv_msg_text ||
1205: hr_util_misc_web.return_msg_text(
1206: p_message_name =>'HR_289855_SAL_ASS_NOT_SAL_ELIG'
1207: ,p_Application_id =>'PER');
1208: p_excep_message := lv_msg_text;
1209: raise lv_no_sal_basis_excep;
1210: ELSE
1211: hr_utility.set_location(l_proc,60);
1212: -- p_old_pay_basis_id is already set
1213: p_new_pay_basis_id := p_old_pay_basis_id;
1214: END IF;
1215: END IF;
1217:
1218: IF p_new_pay_basis_id IS NOT NULL and
1219: nvl(p_old_pay_basis_id, -1) <> p_new_pay_basis_id
1220: THEN
1221: hr_utility.set_location(l_proc,65);
1222: IF p_old_pay_basis_id IS NULL
1223: THEN
1224: hr_utility.set_location(l_proc,70);
1225: -- Adding a new salary basis
1220: THEN
1221: hr_utility.set_location(l_proc,65);
1222: IF p_old_pay_basis_id IS NULL
1223: THEN
1224: hr_utility.set_location(l_proc,70);
1225: -- Adding a new salary basis
1226: lv_salary_basis_change_type := 'NEW';
1227: ELSE
1228: hr_utility.set_location(l_proc,75);
1224: hr_utility.set_location(l_proc,70);
1225: -- Adding a new salary basis
1226: lv_salary_basis_change_type := 'NEW';
1227: ELSE
1228: hr_utility.set_location(l_proc,75);
1229: -- Changing an existing salary basis
1230: lv_salary_basis_change_type := 'CHANGE';
1231: END IF;
1232: ELSE
1229: -- Changing an existing salary basis
1230: lv_salary_basis_change_type := 'CHANGE';
1231: END IF;
1232: ELSE
1233: hr_utility.set_location(l_proc,80);
1234: IF p_old_pay_basis_id = p_new_pay_basis_id
1235: THEN
1236: hr_utility.set_location(l_proc,85);
1237: -- An existing salary basis is already in the db, the user is trying to
1232: ELSE
1233: hr_utility.set_location(l_proc,80);
1234: IF p_old_pay_basis_id = p_new_pay_basis_id
1235: THEN
1236: hr_utility.set_location(l_proc,85);
1237: -- An existing salary basis is already in the db, the user is trying to
1238: -- add pay proposal data.
1239: -- get the default values based on the existing assignment id
1240: lv_salary_basis_change_type := 'NOCHANGE';
1244: IF lv_salary_basis_change_type = 'NEW' Or
1245: lv_salary_basis_change_type = 'CHANGE' Or
1246: nvl(ln_transaction_step_id, -1) > 0 -- bug# 2343933
1247: THEN
1248: hr_utility.set_location(l_proc,90);
1249: -- that means p_new_pay_basis_id IS NOT NULL and
1250: -- p_old_pay_basis_id <> p_new_pay_basis_id
1251: -- We need to simulate saving of the assignment data in the
1252: -- transaction table to the database because the get_defaults call
1266: -- Bug 2547283: need to update person info and asg info.
1267: IF NOT (p_flow_mode IS NOT NULL and
1268: p_flow_mode = hr_process_assignment_ss.g_new_hire_registration)
1269: THEN
1270: hr_utility.set_location(l_proc,95);
1271: hr_new_user_reg_ss.process_selected_transaction
1272: (p_item_type => p_item_type,
1273: p_item_key => p_item_key);
1274: END IF;
1330: -- in the Proposed Pay Rate region.
1331: IF lv_salary_basis_change_type = 'NOCHANGE' and
1332: ln_pay_proposal_id is NULL
1333: THEN
1334: hr_utility.set_location(l_proc,100);
1335: lv_salary_basis_change_type := 'NOCHANGE_NOPAYPROPOSAL';
1336: END IF;
1337: -- 05/09/02 Bug 2367833 Fix Ends
1338:
1339: --4002387 start
1340: IF lv_salary_basis_change_type = 'CHANGE' and
1341: ln_pay_proposal_id is NULL
1342: THEN
1343: hr_utility.set_location(l_proc,100);
1344: lv_salary_basis_change_type := 'CHANGE_NOPAYPROPOSAL';
1345: END IF;
1346: --4002387 end
1347:
1359: -- sal_review_period_frequency only.
1360: BEGIN
1361: IF lv_sal_rev_period_frequency IS NOT NULL
1362: THEN
1363: hr_utility.set_location(l_proc,105);
1364: -- Check the frequency to see if it is 'Y', 'M', 'W' or 'D'. I can't
1365: -- call the function derive_next_sal_perf_date directly because it is
1366: -- private.
1367: IF lv_sal_rev_period_frequency = 'Y' OR
1369: lv_sal_rev_period_frequency = 'W' OR
1370: lv_sal_rev_period_frequency = 'D'
1371: THEN
1372: -- it's ok
1373: hr_utility.set_location(l_proc,110);
1374: NULL;
1375: ELSE
1376: hr_utility.set_location(l_proc,115);
1377: lv_message := hr_util_misc_web.return_msg_text(
1372: -- it's ok
1373: hr_utility.set_location(l_proc,110);
1374: NULL;
1375: ELSE
1376: hr_utility.set_location(l_proc,115);
1377: lv_message := hr_util_misc_web.return_msg_text(
1378: p_message_name =>'HR_51258_PYP_INVAL_FREQ_PERIOD'
1379: ,p_Application_id =>'PAY');
1380: END IF;
1382: END;
1383:
1384: IF lv_message IS NOT NULL
1385: THEN
1386: hr_utility.set_location(l_proc,120);
1387: lv_message := lv_message || ' ';
1388: END IF;
1389:
1390: p_warning_message := lv_warning_message;
1392: --
1393: -- 04/23/02 Salary Basis Enhancement Change Begins
1394: IF lv_salary_basis_change_type = 'CHANGE'
1395: THEN
1396: hr_utility.set_location(l_proc,125);
1397: -- If it is a change to a salary basis, we need to derive previous salary
1398: -- again. This is because in my_get_defaults which calls
1399: -- per_pay_proposals_populate.get_defaults, that procedure will set prev
1400: -- salary to null when the old and new salary basis's element type id is
1409: CLOSE lc_previous_pay;
1410:
1411: IF ln_prev_salary is NULL and ln_prev_salary2 IS NOT NULL
1412: THEN
1413: hr_utility.set_location(l_proc,130);
1414: -- Element type id is changed because in the procedure
1415: -- per_pay_proposals_populate.get_prev_salary, it will zap the
1416: -- previous salary to null if element type id are not equal between
1417: -- the old and new salary basis.
1417: -- the old and new salary basis.
1418: p_element_type_id_changed := 'Y';
1419: ln_prev_salary := ln_prev_salary2;
1420: ELSE
1421: hr_utility.set_location(l_proc,135);
1422: p_element_type_id_changed := 'N';
1423: END IF;
1424: END IF;
1425:
1445: --4002387 end
1446:
1447: IF lb_savepoint_exists
1448: THEN
1449: hr_utility.set_location(l_proc,140);
1450: rollback to check_asg_txn_data_save;
1451: lb_savepoint_exists := FALSE;
1452: END IF;
1453:
1486: p_old_pay_annualization_factor := ln_old_pay_annual_factor;
1487: p_old_salary_basis_name := lv_old_salary_basis_name;
1488: p_salary_basis_change_type := lv_salary_basis_change_type;
1489:
1490: hr_utility.set_location(' Leaving:' || l_proc,145);
1491:
1492: EXCEPTION
1493: WHEN lv_no_sal_basis_excep THEN
1494: hr_utility.set_location(' Leaving:' || l_proc,555);
1490: hr_utility.set_location(' Leaving:' || l_proc,145);
1491:
1492: EXCEPTION
1493: WHEN lv_no_sal_basis_excep THEN
1494: hr_utility.set_location(' Leaving:' || l_proc,555);
1495: -- The Java caller PayRateAMImpl.java will throw the exception.
1496: null;
1497:
1498: WHEN OTHERS THEN
1499: IF lb_savepoint_exists
1500: THEN
1501: rollback to check_asg_txn_data_save;
1502: END IF;
1503: hr_utility.set_location(' Leaving:' || l_proc,560);
1504: RAISE;
1505:
1506: END check_asg_txn_data;
1507:
1541: ln_percent varchar2(300) ;
1542:
1543:
1544: BEGIN
1545: hr_utility.set_location(' Entering:' || l_proc,5);
1546: per_pay_proposals_populate.get_defaults(
1547: p_assignment_id => p_assignment_id ,
1548: p_date => p_date,
1549: p_business_group_id => p_business_group_id,
1608: p_job_id ) ;
1609:
1610:
1611:
1612: hr_utility.set_location(' Leaving:' || l_proc,10);
1613:
1614: EXCEPTION
1615: WHEN OTHERS THEN
1616: hr_utility.set_location(' Leaving:' || l_proc,555);
1612: hr_utility.set_location(' Leaving:' || l_proc,10);
1613:
1614: EXCEPTION
1615: WHEN OTHERS THEN
1616: hr_utility.set_location(' Leaving:' || l_proc,555);
1617: RAISE;
1618:
1619: END my_get_defaults;
1620:
1654: l_value pay_user_column_instances_f.value%type;
1655: l_conversion_type varchar2(30);
1656: BEGIN
1657: --
1658: hr_utility.set_location(' Entering:' || l_proc,5);
1659: if p_processing_type = 'P' then
1660: hr_utility.set_location(l_proc,10);
1661: l_row_name := 'PAY' ;
1662: elsif p_processing_type = 'R' then
1656: BEGIN
1657: --
1658: hr_utility.set_location(' Entering:' || l_proc,5);
1659: if p_processing_type = 'P' then
1660: hr_utility.set_location(l_proc,10);
1661: l_row_name := 'PAY' ;
1662: elsif p_processing_type = 'R' then
1663: hr_utility.set_location(l_proc,15);
1664: l_row_name := 'HRMS';
1659: if p_processing_type = 'P' then
1660: hr_utility.set_location(l_proc,10);
1661: l_row_name := 'PAY' ;
1662: elsif p_processing_type = 'R' then
1663: hr_utility.set_location(l_proc,15);
1664: l_row_name := 'HRMS';
1665: elsif p_processing_type = 'I' then
1666: hr_utility.set_location(l_proc,20);
1667: l_row_name := 'BIS';
1662: elsif p_processing_type = 'R' then
1663: hr_utility.set_location(l_proc,15);
1664: l_row_name := 'HRMS';
1665: elsif p_processing_type = 'I' then
1666: hr_utility.set_location(l_proc,20);
1667: l_row_name := 'BIS';
1668: else
1669: hr_utility.set_location(' Leaving:' || l_proc,25);
1670: return null;
1665: elsif p_processing_type = 'I' then
1666: hr_utility.set_location(l_proc,20);
1667: l_row_name := 'BIS';
1668: else
1669: hr_utility.set_location(' Leaving:' || l_proc,25);
1670: return null;
1671: end if;
1672: --
1673: l_value := hruserdt.get_table_value(p_business_group_id,
1683: into l_conversion_type
1684: from gl_daily_conversion_types
1685: where user_conversion_type = l_value;
1686: --
1687: hr_utility.set_location(' Leaving:' || l_proc,30);
1688: return l_conversion_type;
1689: --
1690: EXCEPTION
1691: WHEN OTHERS THEN
1688: return l_conversion_type;
1689: --
1690: EXCEPTION
1691: WHEN OTHERS THEN
1692: hr_utility.set_location(' Leaving:' || l_proc,555);
1693: RETURN null; -- Don't know what the problem was with the user the table.
1694: -- However don't want to percolate an exception from get_table_value
1695: -- Request from payroll team for this to be put in.
1696: END get_rate_type;
1813: where
1814: transaction_id = l_transaction_id;
1815:
1816: Begin
1817: hr_utility.set_location(' Entering:' || l_proc,5);
1818: if funmode = 'RUN' then
1819: hr_utility.set_location( l_proc,10);
1820: savepoint start_transaction;
1821:
1815:
1816: Begin
1817: hr_utility.set_location(' Entering:' || l_proc,5);
1818: if funmode = 'RUN' then
1819: hr_utility.set_location( l_proc,10);
1820: savepoint start_transaction;
1821:
1822: -- check to see if the TRANSACTION_ID attribute has been created
1823: if hr_workflow_utility.item_attribute_exists(p_item_type => itemtype
1830: ,p_item_key => itemkey) is not null then
1831:
1832: -- a current transaction is in progress we cannot overwrite it
1833: -- get the Transaction Step Id
1834: hr_utility.set_location( l_proc,15);
1835: l_transaction_id := hr_transaction_ss.get_transaction_id(p_item_type => itemtype
1836: ,p_item_key => itemkey);
1837: open c_get_transaction_step_id;
1838: fetch c_get_transaction_step_id into l_transaction_step_id;
1837: open c_get_transaction_step_id;
1838: fetch c_get_transaction_step_id into l_transaction_step_id;
1839: /*if c_get_transaction_step_id%found then
1840: close c_get_transaction_step_id;
1841: hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
1842: hr_utility.raise_error;
1843: end if;*/
1844: close c_get_transaction_step_id;
1845: hr_transaction_ss.delete_transaction_step(l_transaction_step_id,null,p_creator_person_id);
1838: fetch c_get_transaction_step_id into l_transaction_step_id;
1839: /*if c_get_transaction_step_id%found then
1840: close c_get_transaction_step_id;
1841: hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
1842: hr_utility.raise_error;
1843: end if;*/
1844: close c_get_transaction_step_id;
1845: hr_transaction_ss.delete_transaction_step(l_transaction_step_id,null,p_creator_person_id);
1846: end if;
1845: hr_transaction_ss.delete_transaction_step(l_transaction_step_id,null,p_creator_person_id);
1846: end if;
1847:
1848: else
1849: hr_utility.set_location( l_proc,20);
1850: -- the TRANSACTION_ID does not exist so create it
1851: wf_engine.additemattr(itemtype => itemtype
1852: ,itemkey => itemkey
1853: ,aname => 'TRANSACTION_ID');
1859: ,p_item_key => itemkey
1860: ,p_name => 'TRANSACTION_PRIVILEGE') then
1861:
1862: -- the TRANSACTION_PRIVILEGE does not exist so create it
1863: hr_utility.set_location( l_proc,25);
1864: wf_engine.additemattr(itemtype => itemtype
1865: ,itemkey => itemkey
1866: ,aname => 'TRANSACTION_PRIVILEGE');
1867: end if;
1871: ,itemkey => itemkey
1872: ,aname => 'TRANSACTION_PRIVILEGE');
1873: -- check to see if the TRANSACTION_PRIVILEGE is null
1874: if l_transaction_privilege is null then
1875: hr_utility.set_location( l_proc,30);
1876: -- default the TRANSACTION_PRIVILEGE to PRIVATE
1877: l_transaction_privilege := 'PRIVATE';
1878: wf_engine.setitemattrtext(itemtype => itemtype
1879: ,itemkey => itemkey
1896: -- commit;
1897: result := 'SUCCESS';
1898:
1899: elsif funmode = 'CANCEL' then
1900: hr_utility.set_location( l_proc,35);
1901: null;
1902: end if;
1903:
1904: hr_utility.set_location(' Leaving:' || l_proc,40);
1900: hr_utility.set_location( l_proc,35);
1901: null;
1902: end if;
1903:
1904: hr_utility.set_location(' Leaving:' || l_proc,40);
1905:
1906: Exception
1907: when others then
1908: rollback to start_transaction;
1905:
1906: Exception
1907: when others then
1908: rollback to start_transaction;
1909: hr_utility.set_location(' Leaving:' || l_proc,555);
1910: raise;
1911: End start_transaction;
1912:
1913: -- End of Procedure start_transaction
1984: l_bg_id per_all_assignments_f.business_group_id%TYPE;
1985: l_person_type VARCHAR2(5) := 'E';
1986: BEGIN
1987:
1988: hr_utility.set_location(' Entering:' || l_proc,5);
1989: begin
1990: if (p_item_type is not null) and (p_item_key is not null)
1991: then
1992: hr_utility.set_location(l_proc,10);
1988: hr_utility.set_location(' Entering:' || l_proc,5);
1989: begin
1990: if (p_item_type is not null) and (p_item_key is not null)
1991: then
1992: hr_utility.set_location(l_proc,10);
1993: l_person_type := wf_engine.GetItemAttrText(itemtype => p_item_type,
1994: itemkey => p_item_key,
1995: aname => 'HR_SELECTED_PERSON_TYPE_ATTR');
1996: end if;
2001:
2002: if l_person_type <> 'C'
2003: then
2004:
2005: hr_utility.set_location(l_proc,15);
2006: Open c_assignment ;
2007: fetch c_assignment into l_bg_id, l_payroll_id;
2008: IF (c_assignment%NOTFOUND) THEN
2009: message := message || hr_util_misc_web.return_msg_text(
2029:
2030: IF (c_last_salary%NOTFOUND) OR (l_pay_proposal_id IS NULL )
2031: -- first proposal can not be created
2032: THEN
2033: hr_utility.set_location(l_proc,20);
2034: -- No previous approved pay proposal exists for this person.
2035: message := message || hr_util_misc_web.return_msg_text(
2036: p_message_name=>'HR_PR_INI_MSG01',
2037: p_Application_id=>'PER');
2047: -- if not approved , raise error
2048:
2049: IF l_Approved <>'Y'
2050: THEN
2051: hr_utility.set_location(l_proc,25);
2052: message := message || hr_util_misc_web.return_msg_text(
2053: p_message_name=>'HR_PR_INI_MSG02',
2054: p_Application_id=>'PER');
2055: message := message || ' ';
2057:
2058: -- check if eligible for salary basis/element
2059: IF (NOT check_ele_eligibility(p_assignment_id,
2060: to_char(p_effective_date,'RRRR-MM-DD'))) THEN
2061: hr_utility.set_location(l_proc,30);
2062: message := message || hr_util_misc_web.return_msg_text(
2063: p_message_name=>'HR_13016_SAL_ELE_NOT_ELIG',
2064: p_Application_id=>'PER');
2065: message := message || ' ';
2068: -- check that last_change date is <= effective date
2069: -- if equal to effective date we are in correction mode
2070:
2071: IF l_change_date is not null THEN
2072: hr_utility.set_location(l_proc,35);
2073: p_proposal_change_date := l_change_date + 1;
2074: --message := message || hr_util_misc_web.return_msg_text(
2075: -- p_message_name=>'HR_PR_INI_MSG04',
2076: -- p_Application_id=>'PER');
2082: p_ovn := ln_ovn;
2083: p_api_mode := 'INSERT';
2084:
2085: else
2086: hr_utility.set_location(l_proc,40);
2087: excep_message := null;
2088: p_pay_proposal_id := null;
2089: p_current_salary := null;
2090: p_ovn := null;
2090: p_ovn := null;
2091: p_api_mode := null;
2092: end if;
2093:
2094: hr_utility.set_location(' Leaving:' || l_proc,45);
2095: END validate_salary_details;
2096:
2097:
2098: PROCEDURE validate_salary_details (
2185: -- Bug 2354730 Fix Ends
2186:
2187: BEGIN
2188:
2189: hr_utility.set_location(' Entering:' || l_proc,5);
2190:
2191: -- get last salary details
2192: -- p_new_pay_basis_id always has a value
2193: -- p_old_pay_basis_id can be null
2198: -- now we will do validations when previous proposal data exists
2199: -- no matter salary basis is changed or not
2200: IF p_old_pay_basis_id IS NOT NULL OR p_new_pay_basis_id IS NOT NULL
2201: THEN
2202: hr_utility.set_location( l_proc,10);
2203: -- Bug 2354730 Fix Begins
2204: -- Only validate pay proposal data when there's no change to the
2205: -- salary basis. That means Pay Rate is standalone, in which case
2206: -- pay proposal data may exist. If we cannot find a record in
2225: ln_ovn ;
2226:
2227: IF (c_last_salary%NOTFOUND)
2228: THEN
2229: hr_utility.set_location( l_proc,15);
2230: NULL; -- bypass the rest of the validations
2231: ELSE
2232: hr_utility.set_location( l_proc,20);
2233: lv_pay_proposal_rec_found := TRUE;
2228: THEN
2229: hr_utility.set_location( l_proc,15);
2230: NULL; -- bypass the rest of the validations
2231: ELSE
2232: hr_utility.set_location( l_proc,20);
2233: lv_pay_proposal_rec_found := TRUE;
2234: END IF;
2235:
2236: close c_last_Salary ;
2236: close c_last_Salary ;
2237:
2238: END IF;
2239:
2240: -- hr_utility.trace(' first proposal can not be created ' );
2241: -- hr_utility.trace(message );
2242: -- check if a valid payroll exist for the assignment
2243: -- validation 1
2244: -- check if this proposal is approved
2237:
2238: END IF;
2239:
2240: -- hr_utility.trace(' first proposal can not be created ' );
2241: -- hr_utility.trace(message );
2242: -- check if a valid payroll exist for the assignment
2243: -- validation 1
2244: -- check if this proposal is approved
2245: -- if not approved , raise error
2245: -- if not approved , raise error
2246:
2247: IF lv_pay_proposal_rec_found
2248: THEN
2249: hr_utility.set_location( l_proc,25);
2250: IF l_Approved <>'Y'
2251: THEN
2252: hr_utility.set_location( l_proc,30);
2253: message := message || hr_util_misc_web.return_msg_text(
2248: THEN
2249: hr_utility.set_location( l_proc,25);
2250: IF l_Approved <>'Y'
2251: THEN
2252: hr_utility.set_location( l_proc,30);
2253: message := message || hr_util_misc_web.return_msg_text(
2254: p_message_name=>'HR_PR_MSG02_WEB',
2255: p_Application_id=>'PER');
2256: message := message || ' ';
2258:
2259: -- check if eligible for salary basis/element
2260: IF (NOT check_ele_eligibility(p_assignment_id,
2261: p_effective_date)) THEN
2262: hr_utility.set_location( l_proc,35);
2263: message := message || hr_util_misc_web.return_msg_text(
2264: p_message_name=>'HR_13016_SAL_ELE_NOT_ELIG',
2265: p_Application_id=>'PER');
2266: message := message || ' ';
2265: p_Application_id=>'PER');
2266: message := message || ' ';
2267: END IF;
2268:
2269: --hr_utility.trace(message );
2270: -- validation 2
2271: -- check that last_change date is <= effective date
2272: -- if equal to effective date we are in correction mode
2273:
2275: THEN
2276:
2277: IF l_change_date = to_date(p_effective_date,'RRRR-MM-DD')
2278: THEN
2279: hr_utility.set_location( l_proc,40);
2280: message := message || hr_util_misc_web.return_msg_text(
2281: p_message_name=>'HR_PR_MSG03_WEB',
2282: p_Application_id=>'PER');
2283: message := message || ' ';
2282: p_Application_id=>'PER');
2283: message := message || ' ';
2284: END IF ;
2285: ELSE
2286: hr_utility.set_location( l_proc,45);
2287: message := message || hr_util_misc_web.return_msg_text(
2288: p_message_name=>'HR_PR_MSG04_WEB',
2289: p_Application_id=>'PER');
2290: message := message || ' ';
2291: END IF ;
2292: END IF; -- lv_pay_proposal_rec_found = TRUE
2293: -- Bug 2354730 Fix Ends
2294:
2295: -- hr_utility.trace(message );
2296: -- validate that assignment is not terminated on the date of the
2297: -- change
2298: open c_assignment_status ;
2299: fetch c_assignment_status into
2300: lv_system_status, lv_payroll_status ;
2301:
2302: IF lv_system_status = 'TERM_ASSIGN'
2303: THEN
2304: hr_utility.set_location( l_proc,50);
2305: message := message || hr_util_misc_web.return_msg_text(
2306: p_message_name=>'HR_PR_MSG16_WEB',
2307: p_Application_id=>'PER');
2308: message := message || ' ';
2308: message := message || ' ';
2309: END IF ;
2310:
2311: close c_assignment_status ;
2312: -- hr_utility.trace(message );
2313: -- validation 3
2314: -- validate that assignment does not have future changes to
2315: -- be effective after the effective date , if so raise warning
2316: OPEN c_future_assignment_changes ;
2316: OPEN c_future_assignment_changes ;
2317: FETCH c_future_assignment_changes into lv_exists ;
2318: IF c_future_assignment_changes%NOTFOUND
2319: THEN
2320: hr_utility.set_location( l_proc,55);
2321: lv_exists := 'N';
2322: END IF ;
2323:
2324: CLOSE c_future_assignment_changes ;
2322: END IF ;
2323:
2324: CLOSE c_future_assignment_changes ;
2325:
2326: -- hr_utility.trace(message );
2327: IF lv_exists ='Y' THEN
2328: hr_utility.set_location( l_proc,60);
2329: -- future assignment changes exists warning
2330: -- bug 3033365 raise a warning
2324: CLOSE c_future_assignment_changes ;
2325:
2326: -- hr_utility.trace(message );
2327: IF lv_exists ='Y' THEN
2328: hr_utility.set_location( l_proc,60);
2329: -- future assignment changes exists warning
2330: -- bug 3033365 raise a warning
2331: /*message := message || hr_util_misc_web.return_msg_text(
2332: p_message_name=>'HR_PR_MSG05_WEB',
2347:
2348: IF to_date(p_effective_date,'RRRR-MM-DD') < ld_payroll_start_date
2349: AND p_payroll_id is not null
2350: THEN
2351: hr_utility.set_location( l_proc,65);
2352: -- hr_utility.trace('effective Date is less than ld_payroll_start_date ');
2353: warn_message := warn_message || hr_util_misc_web.return_msg_text(
2354: p_message_name=>'HR_PR_MSG17_WEB',
2355: p_Application_id=>'PER');
2348: IF to_date(p_effective_date,'RRRR-MM-DD') < ld_payroll_start_date
2349: AND p_payroll_id is not null
2350: THEN
2351: hr_utility.set_location( l_proc,65);
2352: -- hr_utility.trace('effective Date is less than ld_payroll_start_date ');
2353: warn_message := warn_message || hr_util_misc_web.return_msg_text(
2354: p_message_name=>'HR_PR_MSG17_WEB',
2355: p_Application_id=>'PER');
2356: warn_message := warn_message || ' ';
2357: END IF ;
2358:
2359: -- validation 4
2360: -- raise a warning if assignment is placed on the grade step
2361: -- hr_utility.trace(message );
2362: OPEN c_grade_step_placement ;
2363: FETCH c_grade_step_placement into lv_exists ;
2364:
2365: IF c_grade_step_placement%NOTFOUND
2363: FETCH c_grade_step_placement into lv_exists ;
2364:
2365: IF c_grade_step_placement%NOTFOUND
2366: THEN
2367: hr_utility.set_location( l_proc,70);
2368: lv_exists := 'N' ;
2369: END IF ;
2370:
2371: -- statement here for error checking ;
2372: CLOSE c_grade_step_placement ;
2373:
2374: IF lv_exists ='Y'
2375: THEN
2376: hr_utility.set_location( l_proc,75);
2377: -- hr_utility.trace('c_grade_step_placement warning');
2378: warn_message := warn_message || hr_util_misc_web.return_msg_text(
2379: p_message_name=>'HR_PR_MSG06_WEB',
2380: p_Application_id=>'PER');
2373:
2374: IF lv_exists ='Y'
2375: THEN
2376: hr_utility.set_location( l_proc,75);
2377: -- hr_utility.trace('c_grade_step_placement warning');
2378: warn_message := warn_message || hr_util_misc_web.return_msg_text(
2379: p_message_name=>'HR_PR_MSG06_WEB',
2380: p_Application_id=>'PER');
2381: warn_message := warn_message || ' ';
2380: p_Application_id=>'PER');
2381: warn_message := warn_message || ' ';
2382: END IF ;
2383:
2384: -- hr_utility.trace(message );
2385:
2386: excep_message := message;
2387: p_warning_message := warn_message;
2388: p_pay_proposal_id := l_pay_Proposal_Id;
2389: p_current_salary := l_Current_Salary;
2390: p_ovn := ln_ovn;
2391: p_api_mode := 'INSERT';
2392:
2393: -- hr_utility.trace(excep_message );
2394:
2395:
2396: hr_utility.set_location(' Leaving:' || l_proc,80);
2397: END validate_salary_details;
2392:
2393: -- hr_utility.trace(excep_message );
2394:
2395:
2396: hr_utility.set_location(' Leaving:' || l_proc,80);
2397: END validate_salary_details;
2398:
2399:
2400: -- GSP changes
2421:
2422:
2423: BEGIN
2424:
2425: hr_utility.set_location(' Entering:' || l_proc,5);
2426: trans_exists := '';
2427: no_of_components := 0;
2428: is_multiple_payrate := '';
2429:
2426: trans_exists := '';
2427: no_of_components := 0;
2428: is_multiple_payrate := '';
2429:
2430: --hr_utility.trace(' ********** In is_transaction_exists ');
2431: --hr_utility.trace(' p_item_type' || p_item_type || ' ' ||
2432: -- ' p_item_key' || p_item_key || ' ' ||
2433: -- ' p_transaction_step_id' || p_transaction_step_id );
2434:
2427: no_of_components := 0;
2428: is_multiple_payrate := '';
2429:
2430: --hr_utility.trace(' ********** In is_transaction_exists ');
2431: --hr_utility.trace(' p_item_type' || p_item_type || ' ' ||
2432: -- ' p_item_key' || p_item_key || ' ' ||
2433: -- ' p_transaction_step_id' || p_transaction_step_id );
2434:
2435: ln_transaction_id := hr_transaction_ss.get_transaction_id
2437: p_Item_Key => p_item_key);
2438:
2439: IF p_transaction_step_id IS NOT NULL
2440: THEN
2441: hr_utility.set_location(l_proc,10);
2442: ln_no_of_components :=
2443: hr_transaction_api.get_number_value
2444: (p_transaction_step_id => p_transaction_step_id,
2445: p_name => 'p_no_of_components');
2444: (p_transaction_step_id => p_transaction_step_id,
2445: p_name => 'p_no_of_components');
2446:
2447: IF ln_no_of_components IS NOT NULL THEN
2448: hr_utility.set_location(l_proc,15);
2449: no_of_components := ln_no_of_components;
2450: END IF;
2451:
2452: lv_pay_rate_type :=
2454: (p_transaction_step_id => p_transaction_step_id,
2455: p_name => 'P_MULTIPLE_COMPONENTS');
2456:
2457: IF lv_pay_rate_type IS NOT NULL THEN
2458: hr_utility.set_location(l_proc,20);
2459: is_multiple_payrate := lv_pay_rate_type;
2460: END IF;
2461:
2462: lv_trans_exists := 'YES';
2463: trans_exists := lv_trans_exists;
2464:
2465: END IF;
2466:
2467: hr_utility.set_location(' Leaving:' || l_proc,25);
2468: EXCEPTION
2469: WHEN OTHERS THEN
2470: hr_utility.set_location(' Leaving:' || l_proc,555);
2471: raise;
2466:
2467: hr_utility.set_location(' Leaving:' || l_proc,25);
2468: EXCEPTION
2469: WHEN OTHERS THEN
2470: hr_utility.set_location(' Leaving:' || l_proc,555);
2471: raise;
2472: END get_transaction_step_details;
2473: -- End of GSP changes
2474:
2496: lv_pay_rate_type VARCHAR2(10) := '';
2497:
2498:
2499: BEGIN
2500: hr_utility.set_location(' Entering:' || l_proc,5);
2501: trans_exists := '';
2502: no_of_components := 0;
2503: is_multiple_payrate := '';
2504:
2501: trans_exists := '';
2502: no_of_components := 0;
2503: is_multiple_payrate := '';
2504:
2505: -- hr_utility.trace_on(null,'dev_log');
2506:
2507: -- hr_utility.trace(' ********** In is_transaction_exists ');
2508: --hr_utility.trace(' p_item_type' || p_item_type || ' ' ||
2509: -- ' p_item_key' || p_item_key || ' ' ||
2503: is_multiple_payrate := '';
2504:
2505: -- hr_utility.trace_on(null,'dev_log');
2506:
2507: -- hr_utility.trace(' ********** In is_transaction_exists ');
2508: --hr_utility.trace(' p_item_type' || p_item_type || ' ' ||
2509: -- ' p_item_key' || p_item_key || ' ' ||
2510: -- ' p_act_id' || p_act_id );
2511:
2504:
2505: -- hr_utility.trace_on(null,'dev_log');
2506:
2507: -- hr_utility.trace(' ********** In is_transaction_exists ');
2508: --hr_utility.trace(' p_item_type' || p_item_type || ' ' ||
2509: -- ' p_item_key' || p_item_key || ' ' ||
2510: -- ' p_act_id' || p_act_id );
2511:
2512: IF( hr_transaction_ss.check_txn_step_exists(
2514: p_item_key,
2515: p_act_id )= TRUE )
2516: THEN
2517:
2518: hr_utility.set_location(l_proc,10);
2519: ln_transaction_id := hr_transaction_ss.get_transaction_id
2520: (p_Item_Type => p_item_type,
2521: p_Item_Key => p_item_key);
2522:
2519: ln_transaction_id := hr_transaction_ss.get_transaction_id
2520: (p_Item_Type => p_item_type,
2521: p_Item_Key => p_item_key);
2522:
2523: -- hr_utility.trace(' ln_transaction_id ' || ln_transaction_id);
2524:
2525: IF ln_transaction_id IS NOT NULL
2526: THEN
2527: hr_utility.set_location(l_proc,15);
2523: -- hr_utility.trace(' ln_transaction_id ' || ln_transaction_id);
2524:
2525: IF ln_transaction_id IS NOT NULL
2526: THEN
2527: hr_utility.set_location(l_proc,15);
2528: hr_transaction_api.get_transaction_step_info
2529: (p_Item_Type => p_item_type,
2530: p_Item_Key => p_item_key,
2531: p_activity_id =>p_act_id,
2536:
2537: -- if no transaction steps are found , return
2538: IF ln_trans_step_rows < 1
2539: THEN
2540: hr_utility.set_location(' Leaving:' || l_proc,20);
2541: RETURN ;
2542: ELSE
2543: hr_utility.set_location(l_proc,25);
2544: hr_mee_workflow_service.get_activity_name
2539: THEN
2540: hr_utility.set_location(' Leaving:' || l_proc,20);
2541: RETURN ;
2542: ELSE
2543: hr_utility.set_location(l_proc,25);
2544: hr_mee_workflow_service.get_activity_name
2545: (p_item_type => p_item_type
2546: ,p_item_key => p_item_key
2547: ,p_actid => p_act_id
2548: ,p_activity_name => lv_activity_name
2549: ,p_activity_display_name => lv_activity_display_name);
2550:
2551:
2552: -- hr_utility.trace(' lv_activity_name ' || lv_activity_name);
2553:
2554: ln_transaction_step_id :=
2555: hr_transaction_ss.get_activity_trans_step_id
2556: (p_activity_name =>lv_activity_name,
2562: (p_transaction_step_id => ln_transaction_step_id,
2563: p_name => 'p_no_of_components');
2564:
2565: IF ln_no_of_components IS NOT NULL THEN
2566: hr_utility.set_location(l_proc,30);
2567: no_of_components := ln_no_of_components;
2568: END IF;
2569:
2570: -- hr_utility.trace(' ln_no_of_components ' || ln_no_of_components);
2566: hr_utility.set_location(l_proc,30);
2567: no_of_components := ln_no_of_components;
2568: END IF;
2569:
2570: -- hr_utility.trace(' ln_no_of_components ' || ln_no_of_components);
2571:
2572: lv_pay_rate_type :=
2573: hr_transaction_api.get_varchar2_value
2574: (p_transaction_step_id => ln_transaction_step_id,
2574: (p_transaction_step_id => ln_transaction_step_id,
2575: p_name => 'P_MULTIPLE_COMPONENTS');
2576:
2577: IF lv_pay_rate_type IS NOT NULL THEN
2578: hr_utility.set_location(l_proc,35);
2579: is_multiple_payrate := lv_pay_rate_type;
2580: END IF;
2581:
2582: -- hr_utility.trace(' is_multiple_payrate ' || is_multiple_payrate);
2578: hr_utility.set_location(l_proc,35);
2579: is_multiple_payrate := lv_pay_rate_type;
2580: END IF;
2581:
2582: -- hr_utility.trace(' is_multiple_payrate ' || is_multiple_payrate);
2583:
2584: lv_trans_exists := 'YES';
2585: trans_exists := lv_trans_exists;
2586:
2583:
2584: lv_trans_exists := 'YES';
2585: trans_exists := lv_trans_exists;
2586:
2587: -- hr_utility.trace(' trans_exists ' || trans_exists);
2588: END IF;
2589: END IF;
2590: END IF;
2591:
2589: END IF;
2590: END IF;
2591:
2592:
2593: hr_utility.set_location(' Leaving:' || l_proc,40);
2594: EXCEPTION
2595: WHEN OTHERS THEN
2596: hr_utility.set_location(' Leaving:' || l_proc,555);
2597: raise;
2592:
2593: hr_utility.set_location(' Leaving:' || l_proc,40);
2594: EXCEPTION
2595: WHEN OTHERS THEN
2596: hr_utility.set_location(' Leaving:' || l_proc,555);
2597: raise;
2598: END is_transaction_exists;
2599:
2600:
2612: ln_component_id NUMBER ;
2613: lv_message_number VARCHAR2(15);
2614:
2615: BEGIN
2616: hr_utility.set_location(' Entering:' || l_proc,5);
2617: -- hr_utility.trace(' ***** IN validate_component_api_java *****');
2618:
2619: -- get the no of components
2620: --ln_count := p_ltt_component.count ;
2613: lv_message_number VARCHAR2(15);
2614:
2615: BEGIN
2616: hr_utility.set_location(' Entering:' || l_proc,5);
2617: -- hr_utility.trace(' ***** IN validate_component_api_java *****');
2618:
2619: -- get the no of components
2620: --ln_count := p_ltt_component.count ;
2621:
2620: --ln_count := p_ltt_component.count ;
2621:
2622: ln_count := p_ltt_salary_data(1).no_of_components;
2623:
2624: -- hr_utility.trace('No Of Components In Component Proc' || ln_count);
2625: -- now call the component API for each component
2626: FOR i in 1..ln_count
2627: LOOP
2628: hr_maintain_proposal_api.insert_proposal_component(
2661:
2662: p_ltt_component(i).component_id := ln_component_id ;
2663: END LOOP ;
2664:
2665: -- hr_utility.trace(' ***** OUT validate_component_api_java *****');
2666:
2667:
2668: hr_utility.set_location(' Leaving:' || l_proc,10);
2669: EXCEPTION
2664:
2665: -- hr_utility.trace(' ***** OUT validate_component_api_java *****');
2666:
2667:
2668: hr_utility.set_location(' Leaving:' || l_proc,10);
2669: EXCEPTION
2670: WHEN hr_utility.hr_error THEN
2671: hr_utility.set_location(' Leaving:' || l_proc,555);
2672: -- ROLLBACK;
2666:
2667:
2668: hr_utility.set_location(' Leaving:' || l_proc,10);
2669: EXCEPTION
2670: WHEN hr_utility.hr_error THEN
2671: hr_utility.set_location(' Leaving:' || l_proc,555);
2672: -- ROLLBACK;
2673: -- hr_utility.trace('Utility Exception in validate_component_api_java');
2674: raise;
2667:
2668: hr_utility.set_location(' Leaving:' || l_proc,10);
2669: EXCEPTION
2670: WHEN hr_utility.hr_error THEN
2671: hr_utility.set_location(' Leaving:' || l_proc,555);
2672: -- ROLLBACK;
2673: -- hr_utility.trace('Utility Exception in validate_component_api_java');
2674: raise;
2675: --hr_message.provide_error;
2669: EXCEPTION
2670: WHEN hr_utility.hr_error THEN
2671: hr_utility.set_location(' Leaving:' || l_proc,555);
2672: -- ROLLBACK;
2673: -- hr_utility.trace('Utility Exception in validate_component_api_java');
2674: raise;
2675: --hr_message.provide_error;
2676: -- lv_message_number := hr_message.last_message_number;
2677: --hr_errors_api.addErrorToTable(
2678: -- p_errormsg => hr_message.get_message_text,
2679: -- p_errorcode => lv_message_number);
2680:
2681: WHEN OTHERS THEN
2682: hr_utility.set_location(' Leaving:' || l_proc,560);
2683: ROLLBACK;
2684: -- hr_utility.trace(' Others Exception in validate_component_api_java');
2685: raise;
2686: --hr_util_disp_web.display_fatal_errors (
2680:
2681: WHEN OTHERS THEN
2682: hr_utility.set_location(' Leaving:' || l_proc,560);
2683: ROLLBACK;
2684: -- hr_utility.trace(' Others Exception in validate_component_api_java');
2685: raise;
2686: --hr_util_disp_web.display_fatal_errors (
2687: -- p_message => UPPER(gv_package_name ||
2688: -- '.validate_component_api: '|| SQLERRM));
2723: lb_save_point_exists boolean default false;
2724:
2725: BEGIN
2726:
2727: -- hr_utility.trace(' ***** IN validate_salary_ins_api_java *****');
2728:
2729: /*
2730: message := message ||
2731: ' attribute_category' || p_ltt_salary_data(1).attribute_category ||
2751: ' attribute20' || p_ltt_salary_data(1).attribute20 ||
2752: ' no_of_components' || p_ltt_salary_data(1).no_of_components ;
2753:
2754:
2755: hr_utility.trace(message);
2756: */
2757:
2758: hr_utility.set_location(' Entering:' || l_proc,5);
2759: if(p_effective_date is null) then
2754:
2755: hr_utility.trace(message);
2756: */
2757:
2758: hr_utility.set_location(' Entering:' || l_proc,5);
2759: if(p_effective_date is null) then
2760: hr_utility.set_location(l_proc,10);
2761: ld_effec_date := p_ltt_salary_data(1).effective_date;
2762: else
2756: */
2757:
2758: hr_utility.set_location(' Entering:' || l_proc,5);
2759: if(p_effective_date is null) then
2760: hr_utility.set_location(l_proc,10);
2761: ld_effec_date := p_ltt_salary_data(1).effective_date;
2762: else
2763: hr_utility.set_location(l_proc,15);
2764: ld_effec_date := to_date(p_effective_date, 'RRRR-MM-DD');
2759: if(p_effective_date is null) then
2760: hr_utility.set_location(l_proc,10);
2761: ld_effec_date := p_ltt_salary_data(1).effective_date;
2762: else
2763: hr_utility.set_location(l_proc,15);
2764: ld_effec_date := to_date(p_effective_date, 'RRRR-MM-DD');
2765: end if;
2766: -- check if multiple components exists
2767: -- call the salary API in validate mode
2773:
2774:
2775: IF p_ltt_salary_data(1).multiple_components = 'Y'
2776: THEN
2777: hr_utility.set_location(l_proc,20);
2778: lv_proposal_reason := NULL ;
2779: ELSE
2780: hr_utility.set_location(l_proc,25);
2781: lv_proposal_reason := p_ltt_salary_data(1).proposal_reason ;
2776: THEN
2777: hr_utility.set_location(l_proc,20);
2778: lv_proposal_reason := NULL ;
2779: ELSE
2780: hr_utility.set_location(l_proc,25);
2781: lv_proposal_reason := p_ltt_salary_data(1).proposal_reason ;
2782: END IF ;
2783:
2784: -- hr_utility.trace(' *****************************************************');
2780: hr_utility.set_location(l_proc,25);
2781: lv_proposal_reason := p_ltt_salary_data(1).proposal_reason ;
2782: END IF ;
2783:
2784: -- hr_utility.trace(' *****************************************************');
2785: -- hr_utility.trace(' Start hr_maintain_proposal_api.insert_salary_proposal');
2786: -- hr_utility.trace(' *****************************************************');
2787:
2788:
2781: lv_proposal_reason := p_ltt_salary_data(1).proposal_reason ;
2782: END IF ;
2783:
2784: -- hr_utility.trace(' *****************************************************');
2785: -- hr_utility.trace(' Start hr_maintain_proposal_api.insert_salary_proposal');
2786: -- hr_utility.trace(' *****************************************************');
2787:
2788:
2789:
2782: END IF ;
2783:
2784: -- hr_utility.trace(' *****************************************************');
2785: -- hr_utility.trace(' Start hr_maintain_proposal_api.insert_salary_proposal');
2786: -- hr_utility.trace(' *****************************************************');
2787:
2788:
2789:
2790:
2839: p_approved_warning=>l_approved_warning,
2840: p_payroll_warning =>l_payroll_warning) ;
2841:
2842:
2843: -- hr_utility.trace(' *****************************************************');
2844: -- hr_utility.trace(' l_pay_proposal_id' || l_pay_proposal_id);
2845: -- hr_utility.trace(' l_element_entry_id ' || l_element_entry_id);
2846: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
2847: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
2840: p_payroll_warning =>l_payroll_warning) ;
2841:
2842:
2843: -- hr_utility.trace(' *****************************************************');
2844: -- hr_utility.trace(' l_pay_proposal_id' || l_pay_proposal_id);
2845: -- hr_utility.trace(' l_element_entry_id ' || l_element_entry_id);
2846: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
2847: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
2848: if ( l_approved_warning) then hr_utility.trace(' l_approved_warning ' ); end if;
2841:
2842:
2843: -- hr_utility.trace(' *****************************************************');
2844: -- hr_utility.trace(' l_pay_proposal_id' || l_pay_proposal_id);
2845: -- hr_utility.trace(' l_element_entry_id ' || l_element_entry_id);
2846: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
2847: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
2848: if ( l_approved_warning) then hr_utility.trace(' l_approved_warning ' ); end if;
2849: if ( l_payroll_warning) then hr_utility.trace(' l_payroll_warning ' ); end if;
2842:
2843: -- hr_utility.trace(' *****************************************************');
2844: -- hr_utility.trace(' l_pay_proposal_id' || l_pay_proposal_id);
2845: -- hr_utility.trace(' l_element_entry_id ' || l_element_entry_id);
2846: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
2847: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
2848: if ( l_approved_warning) then hr_utility.trace(' l_approved_warning ' ); end if;
2849: if ( l_payroll_warning) then hr_utility.trace(' l_payroll_warning ' ); end if;
2850: -- hr_utility.trace(' *****************************************************');
2843: -- hr_utility.trace(' *****************************************************');
2844: -- hr_utility.trace(' l_pay_proposal_id' || l_pay_proposal_id);
2845: -- hr_utility.trace(' l_element_entry_id ' || l_element_entry_id);
2846: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
2847: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
2848: if ( l_approved_warning) then hr_utility.trace(' l_approved_warning ' ); end if;
2849: if ( l_payroll_warning) then hr_utility.trace(' l_payroll_warning ' ); end if;
2850: -- hr_utility.trace(' *****************************************************');
2851:
2844: -- hr_utility.trace(' l_pay_proposal_id' || l_pay_proposal_id);
2845: -- hr_utility.trace(' l_element_entry_id ' || l_element_entry_id);
2846: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
2847: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
2848: if ( l_approved_warning) then hr_utility.trace(' l_approved_warning ' ); end if;
2849: if ( l_payroll_warning) then hr_utility.trace(' l_payroll_warning ' ); end if;
2850: -- hr_utility.trace(' *****************************************************');
2851:
2852:
2845: -- hr_utility.trace(' l_element_entry_id ' || l_element_entry_id);
2846: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
2847: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
2848: if ( l_approved_warning) then hr_utility.trace(' l_approved_warning ' ); end if;
2849: if ( l_payroll_warning) then hr_utility.trace(' l_payroll_warning ' ); end if;
2850: -- hr_utility.trace(' *****************************************************');
2851:
2852:
2853:
2846: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
2847: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
2848: if ( l_approved_warning) then hr_utility.trace(' l_approved_warning ' ); end if;
2849: if ( l_payroll_warning) then hr_utility.trace(' l_payroll_warning ' ); end if;
2850: -- hr_utility.trace(' *****************************************************');
2851:
2852:
2853:
2854: -- hr_utility.trace(' End hr_maintain_proposal_api.insert_salary_proposal');
2850: -- hr_utility.trace(' *****************************************************');
2851:
2852:
2853:
2854: -- hr_utility.trace(' End hr_maintain_proposal_api.insert_salary_proposal');
2855:
2856: p_ltt_salary_data(1).pay_proposal_id := l_pay_proposal_id ;
2857:
2858: p_ltt_salary_data(1).element_entry_id := l_element_entry_id ;
2859:
2860:
2861: IF p_ltt_salary_data(1).multiple_components = 'Y'
2862: THEN
2863: hr_utility.set_location(l_proc,30);
2864: -- hr_utility.trace(' Start validate_component_api_java.insert_salary_proposal');
2865:
2866: validate_component_api_java(
2867: p_ltt_salary_data,
2860:
2861: IF p_ltt_salary_data(1).multiple_components = 'Y'
2862: THEN
2863: hr_utility.set_location(l_proc,30);
2864: -- hr_utility.trace(' Start validate_component_api_java.insert_salary_proposal');
2865:
2866: validate_component_api_java(
2867: p_ltt_salary_data,
2868: p_ltt_component ,
2866: validate_component_api_java(
2867: p_ltt_salary_data,
2868: p_ltt_component ,
2869: p_validate ) ;
2870: -- hr_utility.trace(' End validate_component_api_java.insert_salary_proposal');
2871:
2872:
2873: END IF ;
2874:
2874:
2875:
2876: IF p_validate
2877: THEN
2878: hr_utility.set_location(l_proc,40);
2879: ROLLBACK to insert_salary ;
2880: lb_save_point_exists := FALSE;
2881: END IF ;
2882:
2885: p_approved_warning := l_approved_warning;
2886: p_payroll_warning := l_payroll_warning;
2887:
2888:
2889: hr_utility.set_location(' Leaving:' || l_proc,45);
2890: EXCEPTION
2891: WHEN hr_utility.hr_error THEN
2892:
2893: IF lb_save_point_exists
2887:
2888:
2889: hr_utility.set_location(' Leaving:' || l_proc,45);
2890: EXCEPTION
2891: WHEN hr_utility.hr_error THEN
2892:
2893: IF lb_save_point_exists
2894: THEN
2895: ROLLBACK to insert_salary;
2894: THEN
2895: ROLLBACK to insert_salary;
2896: END IF;
2897:
2898: --hr_utility.trace(' validate_salary_ins_api_java Execption hr_utility ');
2899: hr_utility.set_location(' Leaving:' || l_proc,555);
2900: raise;
2901: --hr_message.provide_error;
2902: --lv_message_number := hr_message.last_message_number;
2895: ROLLBACK to insert_salary;
2896: END IF;
2897:
2898: --hr_utility.trace(' validate_salary_ins_api_java Execption hr_utility ');
2899: hr_utility.set_location(' Leaving:' || l_proc,555);
2900: raise;
2901: --hr_message.provide_error;
2902: --lv_message_number := hr_message.last_message_number;
2903: --hr_errors_api.addErrorToTable(
2908: WHEN OTHERS THEN
2909: --hr_util_disp_web.display_fatal_errors (
2910: -- p_message => UPPER(gv_package_name || '.validate_salary_insert_api: '
2911: -- ||SQLERRM));
2912: --hr_utility.trace(' validate_salary_ins_api_java When Others Execption '|| SQLERRM);
2913: IF lb_save_point_exists
2914: THEN
2915: ROLLBACK to insert_salary;
2916: END IF;
2913: IF lb_save_point_exists
2914: THEN
2915: ROLLBACK to insert_salary;
2916: END IF;
2917: hr_utility.set_location(' Leaving:' || l_proc,560);
2918: raise;
2919:
2920:
2921: END validate_salary_ins_api_java;
2973:
2974: gtt_trans_steps hr_transaction_ss.transaction_table;
2975:
2976: BEGIN
2977: hr_utility.set_location(' Entering:' || l_proc,5);
2978: -- bug # 1641590
2979:
2980: -- hr_utility.trace('Start Maintain Transaction');
2981:
2976: BEGIN
2977: hr_utility.set_location(' Entering:' || l_proc,5);
2978: -- bug # 1641590
2979:
2980: -- hr_utility.trace('Start Maintain Transaction');
2981:
2982: lv_review_url := gv_package_name||'.salary_review';
2983: --lv_api_name := gv_package_name||'.process_api_java' ;
2984: lv_api_name := gv_package_name||'.PROCESS_API' ;
2988: ln_creator_person_id := wf_engine.GetItemAttrNumber(p_item_type,
2989: p_item_key,
2990: 'CREATOR_PERSON_ID');
2991:
2992: -- hr_utility.trace('Creator Person Id ' || ln_creator_person_id);
2993:
2994: --insert into dev_test values (' In Maintain Transaction ');
2995: -- commit;
2996:
3102: gtt_trans_steps(li_count).param_value :=
3103: p_ltt_salary_data(1).annual_change;
3104: gtt_trans_steps(li_count).param_data_type := 'NUMBER' ;
3105:
3106: -- hr_utility.trace('setting p_annual_change ' || p_ltt_salary_data(1).annual_change);
3107:
3108:
3109: li_count:= li_count + 1 ;
3110: gtt_trans_steps(li_count).param_name := 'p_proposal_reason' ;
3147: gtt_trans_steps(li_count).param_value :=
3148: p_ltt_salary_data(1).quartile;
3149: gtt_trans_steps(li_count).param_data_type := 'NUMBER' ;
3150:
3151: -- hr_utility.trace('setting p_quartile ' || p_ltt_salary_data(1).quartile);
3152:
3153: li_count:= li_count + 1 ;
3154: gtt_trans_steps(li_count).param_name := 'p_comparatio' ;
3155: gtt_trans_steps(li_count).param_value :=
3155: gtt_trans_steps(li_count).param_value :=
3156: p_ltt_salary_data(1).comparatio;
3157: gtt_trans_steps(li_count).param_data_type := 'NUMBER' ;
3158:
3159: -- hr_utility.trace('setting p_comparatio ' || p_ltt_salary_data(1).comparatio);
3160:
3161: li_count:= li_count + 1 ;
3162: gtt_trans_steps(li_count).param_name := 'p_ranking' ;
3163: gtt_trans_steps(li_count).param_value :=
3170: gtt_trans_steps(li_count).param_value :=
3171: p_ltt_salary_data(1).comments;
3172: gtt_trans_steps(li_count).param_data_type := 'VARCHAR2' ;
3173:
3174: -- hr_utility.trace('setting p_comments ' || p_ltt_salary_data(1).comments);
3175:
3176: li_count:= li_count + 1 ;
3177: gtt_trans_steps(li_count).param_name := 'p_element_entry_id' ;
3178: gtt_trans_steps(li_count).param_value :=
3201: := p_ltt_salary_data(1).no_of_components;
3202: gtt_trans_steps(li_count).param_data_type
3203: := 'NUMBER';
3204:
3205: -- hr_utility.trace(' p_no_of_components ' || p_ltt_salary_data(1).no_of_components);
3206:
3207: li_count := li_count + 1;
3208: gtt_trans_steps(li_count).param_name
3209: := 'p_attribute1';
3364: := p_ltt_salary_data(1).attribute20;
3365: gtt_trans_steps(li_count).param_data_type
3366: := 'VARCHAR2';
3367:
3368: -- hr_utility.trace('Populated Proposal Values ');
3369: -- store components record here
3370: -- each component record will be stored as individual parameters with
3371: -- suffix no identifying the record number
3372: -- for example, component row 1 will be stored as component_id1,
3387: message := ' ln_no_of_components =' || ln_no_of_components;
3388: --insert into dev_test values (' Written Proposal Values ');
3389: -- commit;
3390:
3391: -- hr_utility.trace('No Of Components' || ln_no_of_components);
3392: FOR i in 1..ln_no_of_components
3393: LOOP
3394: li_count := li_count + 1 ;
3395: gtt_trans_steps(li_count).param_name := 'p_approved'||i ;
3749:
3750: --insert into dev_test values (' prepared component values for writing to Txn Tables');
3751: --commit;
3752:
3753: -- hr_utility.trace('Populated Component values in Global Struct');
3754:
3755: /********
3756: -- check if there is a txn for this transaction
3757: ln_transaction_id :=
3758: hr_transaction_ss.get_transaction_id
3759: (p_Item_Type => p_item_type
3760: ,p_Item_Key => p_item_key);
3761:
3762: hr_utility.trace('No Txn Exists' || ln_transaction_id);
3763: -- insert into dev_test values (' Txn does not exist in Maintain function');
3764: --commit;
3765:
3766: -- if txn is not started , create a new one
3765:
3766: -- if txn is not started , create a new one
3767: IF ln_transaction_id IS NULL
3768: THEN
3769: hr_utility.set_location(l_proc,10);
3770: hr_utility.trace('Start Txn' );
3771:
3772: start_transaction(p_item_type
3773: ,p_item_key
3766: -- if txn is not started , create a new one
3767: IF ln_transaction_id IS NULL
3768: THEN
3769: hr_utility.set_location(l_proc,10);
3770: hr_utility.trace('Start Txn' );
3771:
3772: start_transaction(p_item_type
3773: ,p_item_key
3774: ,p_act_id
3775: ,'RUN'
3776: ,ln_creator_person_id
3777: ,result );
3778:
3779: hr_utility.trace('Started Txn with result '||result);
3780: -- insert into dev_test values (' result of start_transaction' || lv_result);
3781: -- commit;
3782:
3783: ln_transaction_id :=
3791:
3792:
3793:
3794:
3795: hr_utility.trace('Created Txn' || ln_transaction_id);
3796: --insert into dev_test values (' Created Txn');
3797: --commit;
3798:
3799: -- now we have a valid txn id , let's find out txn steps
3804: ,p_transaction_step_id => ltt_trans_step_ids
3805: ,p_object_version_number => ltt_trans_obj_vers_num
3806: ,p_rows => ln_trans_step_rows);
3807:
3808: hr_utility.trace('get_transaction_step_info completed');
3809:
3810: IF ln_trans_step_rows < 1 THEN
3811: hr_utility.set_location(l_proc,15);
3812:
3807:
3808: hr_utility.trace('get_transaction_step_info completed');
3809:
3810: IF ln_trans_step_rows < 1 THEN
3811: hr_utility.set_location(l_proc,15);
3812:
3813: --There is no transaction step for this transaction.
3814: --Create a step within this new transaction
3815:
3812:
3813: --There is no transaction step for this transaction.
3814: --Create a step within this new transaction
3815:
3816: hr_utility.trace('create_transaction_step ');
3817:
3818: hr_transaction_api.create_transaction_step
3819: (p_validate => false
3820: ,p_creator_person_id => ln_creator_person_id
3825: ,p_activity_id => p_act_id
3826: ,p_transaction_step_id => ln_transaction_step_id
3827: ,p_object_version_number =>ln_ovn ) ;
3828:
3829: hr_utility.trace('ln_transaction_id ' || ln_transaction_id);
3830: hr_utility.trace('ln_transaction_step_id ' || ln_transaction_step_id);
3831: ELSE
3832:
3833: hr_utility.set_location(l_proc,20);
3826: ,p_transaction_step_id => ln_transaction_step_id
3827: ,p_object_version_number =>ln_ovn ) ;
3828:
3829: hr_utility.trace('ln_transaction_id ' || ln_transaction_id);
3830: hr_utility.trace('ln_transaction_step_id ' || ln_transaction_step_id);
3831: ELSE
3832:
3833: hr_utility.set_location(l_proc,20);
3834: --There are transaction steps for this transaction.
3829: hr_utility.trace('ln_transaction_id ' || ln_transaction_id);
3830: hr_utility.trace('ln_transaction_step_id ' || ln_transaction_step_id);
3831: ELSE
3832:
3833: hr_utility.set_location(l_proc,20);
3834: --There are transaction steps for this transaction.
3835: --Get the Transaction Step ID for this activity.
3836:
3837: hr_utility.trace('Txn Step Id'|| ln_transaction_step_id);
3833: hr_utility.set_location(l_proc,20);
3834: --There are transaction steps for this transaction.
3835: --Get the Transaction Step ID for this activity.
3836:
3837: hr_utility.trace('Txn Step Id'|| ln_transaction_step_id);
3838: ln_transaction_step_id :=
3839: hr_Transaction_ss.get_activity_trans_step_id (
3840: p_activity_name => lv_activity_name,
3841: p_trans_step_id_tbl => ltt_trans_step_ids);
3847: LOOP
3848: message := message || gtt_trans_steps(i).param_value;
3849: END LOOP;
3850:
3851: hr_utility.trace('GLOBAL STRUCTURE' || message );
3852:
3853: --insert into dev_test values (' created Txn Step');
3854: --commit;
3855: ************/
3856:
3857: -- save the txn data
3858: --hr_transaction_ss.save_transaction_step(
3859:
3860: -- hr_utility.trace('Create Transaction and Transaction Step ');
3861:
3862: open get_transaction_step_id
3863: (c_item_type => p_item_type
3864: ,c_item_key => p_item_key
3866:
3867: fetch get_transaction_step_id into ln_transaction_step_id;
3868: close get_transaction_step_id;
3869:
3870: -- hr_utility.trace(' existing ln_transaction_step_id ' || ln_transaction_step_id);
3871:
3872: hr_transaction_ss.save_transaction_step(
3873: p_Item_Type => p_item_type
3874: ,p_Item_Key => p_item_key
3881: ,p_rptg_grp_id => p_rptg_grp_id
3882: ,p_effective_date_option => p_effective_date_option);
3883:
3884:
3885: -- hr_utility.trace(' Transaction Step Id ' || ln_transaction_step_id );
3886:
3887: -- hr_utility.trace('Saved Txn Steps to Txn Tables');
3888: --insert into dev_test values (' written values to Txn Tables');
3889: --commit;
3883:
3884:
3885: -- hr_utility.trace(' Transaction Step Id ' || ln_transaction_step_id );
3886:
3887: -- hr_utility.trace('Saved Txn Steps to Txn Tables');
3888: --insert into dev_test values (' written values to Txn Tables');
3889: --commit;
3890: -- transaction data has been stored ,
3891: -- transition this activity
3897:
3898:
3899: p_step_id := ln_transaction_step_id;
3900:
3901: hr_utility.set_location(' Leaving:' || l_proc,25);
3902: EXCEPTION
3903: WHEN OTHERS THEN
3904: message := 'Exception in maintain_txn_java' || SQLERRM;
3905:
3902: EXCEPTION
3903: WHEN OTHERS THEN
3904: message := 'Exception in maintain_txn_java' || SQLERRM;
3905:
3906: -- hr_utility.trace(message);
3907: hr_utility.set_location(' Leaving:' || l_proc,555);
3908: raise;
3909: --insert into dev_test values(message);
3910: --commit;
3903: WHEN OTHERS THEN
3904: message := 'Exception in maintain_txn_java' || SQLERRM;
3905:
3906: -- hr_utility.trace(message);
3907: hr_utility.set_location(' Leaving:' || l_proc,555);
3908: raise;
3909: --insert into dev_test values(message);
3910: --commit;
3911: END maintain_txn_java;
3956: lv_disp_warn_error_max_rate varchar2(20) default null;
3957:
3958: BEGIN
3959:
3960: hr_utility.set_location(' Entering:' || l_proc,5);
3961: -- 04/24/02 Change Begins
3962: -- Save the previous salary and old pay annualization factor because
3963: -- my_get_defaults will overwrite these 2 values when a salary basis is
3964: -- changed and element_type_id is different between the old and the new.
3969: if(p_save_mode = 'SAVE_FOR_LATER') then
3970: if p_flow_mode is not null and
3971: p_flow_mode = hr_process_assignment_ss.g_new_hire_registration
3972: then
3973: hr_utility.set_location(l_proc,10);
3974: rollback;
3975: end if;
3976:
3977: maintain_txn_java(p_item_type => p_item_type
4042: ' attribute19' || ltt_salary_data(1).attribute19 ||
4043: ' attribute20' || ltt_salary_data(1).attribute20 ||
4044: ' no_of_components' || ltt_salary_data(1).no_of_components ;
4045:
4046: hr_utility.trace(message);
4047:
4048: for i in 1 .. ltt_component(i).
4049: message := ' COMPONENT VALUES' ||
4050: 'component_id'|| ltt_component(i).component_id ||
4079: 'attribute19'|| ltt_component(i).attribute19 ||
4080: 'attribute20'|| ltt_component(i).attribute20 ||
4081: 'object_version_number'|| ltt_component(i).object_version_number ;
4082:
4083: hr_utility.trace(message);
4084: */
4085: --insert into dev_test values (message);
4086: --commit;
4087:
4132: p_item_key => p_item_key);
4133: IF (( hr_process_person_ss.g_assignment_id is not null) and
4134: (hr_process_person_ss.g_session_id= ICX_SEC.G_SESSION_ID))
4135: THEN
4136: hr_utility.set_location(l_proc,15);
4137: -- Set the Assignment Id to the one just created, don't use the
4138: -- transaction table.
4139: ltt_salary_data(1).assignment_id := hr_process_person_ss.g_assignment_id;
4140: END IF;
4223: -- 04/24/02 Change Ends
4224:
4225:
4226: if (p_api_mode = 'INSERT') then
4227: hr_utility.set_location(l_proc,20);
4228: validate_salary_ins_api_java (
4229: p_item_type => p_item_type
4230: ,p_item_key => p_item_key
4231: ,p_act_id => p_act_id
4241:
4242: -- The following warning message names were obtained from PERWSEPY.fmb.
4243: IF lb_inv_next_sal_date_warning
4244: THEN
4245: hr_utility.set_location(l_proc,25);
4246: -- Need to construct the output p_warning_msg_name parm with the
4247: -- following format:
4248: -- PER,HR_7340_SAL_ASS_TERMINATED|PAY,HR_APP_PROPOS_APP_COMP| .....
4249: p_warning_msg_name := 'PER,HR_7340_SAL_ASS_TERMINATED|';
4250: END IF;
4251:
4252: IF lb_proposed_salary_warning
4253: THEN
4254: hr_utility.set_location(l_proc,30);
4255: -- fix for bug#2826852
4256: -- new config option
4257: -- get the activity attribute DISP_WARN_ERROR_PAY_RATE
4258: lv_disp_warn_error_max_rate:= wf_engine.GetActivityAttrText(itemtype =>p_item_type,
4263: if(lv_disp_warn_error_max_rate='WARNING') then
4264: p_warning_msg_name := p_warning_msg_name ||
4265: 'PAY,HR_SAL_SAL_ELE_RANGE_WARN|';
4266: elsif(lv_disp_warn_error_max_rate='ERROR') then
4267: hr_utility.set_message(801, 'HR_SAL_SAL_ELE_RANGE_WARN');
4268: raise g_exceeded_grade_range;
4269: end if;
4270: END IF;
4271:
4270: END IF;
4271:
4272: IF lb_approved_warning
4273: THEN
4274: hr_utility.set_location(l_proc,35);
4275: p_warning_msg_name := p_warning_msg_name ||
4276: 'PAY,HR_APP_PROPOS_APP_COMP|';
4277: END IF;
4278:
4277: END IF;
4278:
4279: IF lb_payroll_warning
4280: THEN
4281: hr_utility.set_location(l_proc,40);
4282: p_warning_msg_name := p_warning_msg_name ||
4283: 'PER,HR_SAL_PAYROLL_PERIOD_CLOSED|';
4284: END IF;
4285:
4286:
4287: rollback to pay2 ;
4288: lb_save_point_pay2_exists := false;
4289:
4290: -- hr_utility.trace('Validated Proposal and Components');
4291:
4292: -- 05/03/02 Salary Basis Enhancement Begins
4293:
4294: --start registration
4298: -- there is no dummy person created in Applicant Hire in the txn.
4299: IF p_flow_mode is not null and
4300: p_flow_mode = hr_process_assignment_ss.g_new_hire_registration
4301: THEN
4302: hr_utility.set_location(l_proc,45);
4303: rollback;
4304: END IF;
4305: --end registration
4306:
4320: ,p_plan_id => p_plan_id
4321: ,p_effective_date_option => p_effective_date_option
4322: );
4323:
4324: -- hr_utility.trace('End of process_salary_java');
4325: -- hr_utility.trace_off;
4326: END IF; -- end of save for later
4327:
4328: hr_utility.set_location(' Leaving:' || l_proc,50);
4321: ,p_effective_date_option => p_effective_date_option
4322: );
4323:
4324: -- hr_utility.trace('End of process_salary_java');
4325: -- hr_utility.trace_off;
4326: END IF; -- end of save for later
4327:
4328: hr_utility.set_location(' Leaving:' || l_proc,50);
4329: EXCEPTION
4324: -- hr_utility.trace('End of process_salary_java');
4325: -- hr_utility.trace_off;
4326: END IF; -- end of save for later
4327:
4328: hr_utility.set_location(' Leaving:' || l_proc,50);
4329: EXCEPTION
4330: WHEN hr_utility.hr_error THEN
4331: p_error_msg_text := hr_message.get_message_text;
4332:
4326: END IF; -- end of save for later
4327:
4328: hr_utility.set_location(' Leaving:' || l_proc,50);
4329: EXCEPTION
4330: WHEN hr_utility.hr_error THEN
4331: p_error_msg_text := hr_message.get_message_text;
4332:
4333: --start registration
4334: -- This is to rollback the dummy person created during the process
4345: IF lb_save_point_pay2_exists
4346: THEN
4347: rollback;
4348: END IF;
4349: hr_utility.set_location(' Leaving:' || l_proc,555);
4350:
4351: WHEN g_exceeded_grade_range THEN
4352: p_error_msg_text := hr_util_misc_web.return_msg_text(
4353: p_message_name=>'HR_SAL_SAL_ELE_RANGE_WARN',
4369: IF lb_save_point_pay2_exists
4370: THEN
4371: rollback;
4372: END IF;
4373: hr_utility.set_location(' Leaving:' || l_proc,560);
4374:
4375: WHEN OTHERS THEN
4376: p_error_msg_text := hr_message.get_message_text;
4377:
4391: IF lb_save_point_pay2_exists
4392: THEN
4393: rollback;
4394: END IF;
4395: hr_utility.set_location(' Leaving:' || l_proc,565);
4396:
4397: END process_salary_java ;
4398:
4399: -- ---------------------------------------------------------
4416: ln_no_of_components NUMBER ;
4417: i INTEGER ;
4418: lv_activity_display_name VARCHAR2(100);
4419: BEGIN
4420: hr_utility.set_location(' Entering:' || l_proc,5);
4421:
4422: -- hr_utility.trace_on(null,'dev_log');
4423:
4424:
4418: lv_activity_display_name VARCHAR2(100);
4419: BEGIN
4420: hr_utility.set_location(' Entering:' || l_proc,5);
4421:
4422: -- hr_utility.trace_on(null,'dev_log');
4423:
4424:
4425:
4426: ln_transaction_id := hr_transaction_ss.get_transaction_id
4428: p_Item_Key => p_item_key);
4429:
4430: IF ln_transaction_id IS NOT NULL
4431: THEN
4432: hr_utility.set_location(l_proc,10);
4433: -- hr_utility.trace('Transaction Exists');
4434: hr_transaction_api.get_transaction_step_info
4435: (p_Item_Type => p_item_type,
4436: p_Item_Key => p_item_key,
4429:
4430: IF ln_transaction_id IS NOT NULL
4431: THEN
4432: hr_utility.set_location(l_proc,10);
4433: -- hr_utility.trace('Transaction Exists');
4434: hr_transaction_api.get_transaction_step_info
4435: (p_Item_Type => p_item_type,
4436: p_Item_Key => p_item_key,
4437: p_activity_id =>p_act_id,
4442:
4443: -- if no transaction steps are found , return
4444: IF ln_trans_step_rows < 1
4445: THEN
4446: hr_utility.set_location(' Leaving:' || l_proc,15);
4447: -- hr_utility.trace('no transaction steps are found ');
4448: RETURN ;
4449: ELSE
4450: hr_utility.set_location(l_proc,20);
4443: -- if no transaction steps are found , return
4444: IF ln_trans_step_rows < 1
4445: THEN
4446: hr_utility.set_location(' Leaving:' || l_proc,15);
4447: -- hr_utility.trace('no transaction steps are found ');
4448: RETURN ;
4449: ELSE
4450: hr_utility.set_location(l_proc,20);
4451: -- hr_utility.trace(' Transaction Step Found');
4446: hr_utility.set_location(' Leaving:' || l_proc,15);
4447: -- hr_utility.trace('no transaction steps are found ');
4448: RETURN ;
4449: ELSE
4450: hr_utility.set_location(l_proc,20);
4451: -- hr_utility.trace(' Transaction Step Found');
4452: hr_mee_workflow_service.get_activity_name
4453: (p_item_type => p_item_type
4454: ,p_item_key => p_item_key
4447: -- hr_utility.trace('no transaction steps are found ');
4448: RETURN ;
4449: ELSE
4450: hr_utility.set_location(l_proc,20);
4451: -- hr_utility.trace(' Transaction Step Found');
4452: hr_mee_workflow_service.get_activity_name
4453: (p_item_type => p_item_type
4454: ,p_item_key => p_item_key
4455: ,p_actid => p_act_id
4460: hr_transaction_ss.get_activity_trans_step_id
4461: (p_activity_name =>lv_activity_name,
4462: p_trans_step_id_tbl => ltt_trans_step_ids);
4463:
4464: -- hr_utility.trace(' ln_transaction_step_id ' || ln_transaction_step_id);
4465:
4466: -- now get the individual salary data
4467: p_ltt_salary_data(1).current_salary :=
4468: hr_transaction_api.get_number_value
4468: hr_transaction_api.get_number_value
4469: (p_transaction_step_id => ln_transaction_step_id,
4470: p_name =>'p_current_salary');
4471:
4472: -- hr_utility.trace(' p_current_salary ' || p_ltt_salary_data(1).current_salary);
4473:
4474: p_ltt_salary_data(1).assignment_id :=
4475: hr_transaction_api.get_number_value
4476: (p_transaction_step_id => ln_transaction_step_id,
4482: hr_transaction_api.get_number_value
4483: (p_transaction_step_id => ln_transaction_step_id,
4484: p_name =>'p_bus_group_id');
4485:
4486: -- hr_utility.trace(' p_bus_group_id ' || p_ltt_salary_data(1).business_group_id);
4487:
4488: p_ltt_salary_data(1).effective_date :=
4489: hr_transaction_api.get_date_value
4490: (p_transaction_step_id => ln_transaction_step_id,
4506: hr_transaction_api.get_number_value
4507: (p_transaction_step_id => ln_transaction_step_id,
4508: p_name =>'p_change_amount');
4509:
4510: -- hr_utility.trace(' p_change_amount ' || p_ltt_salary_data(1).salary_change_amount);
4511:
4512: p_ltt_salary_data(1).annual_change:=
4513: hr_transaction_api.get_number_value
4514: (p_transaction_step_id => ln_transaction_step_id,
4513: hr_transaction_api.get_number_value
4514: (p_transaction_step_id => ln_transaction_step_id,
4515: p_name =>'p_annual_change');
4516:
4517: -- hr_utility.trace(' p_annual_change ' || p_ltt_salary_data(1).annual_change);
4518:
4519:
4520: p_ltt_salary_data(1).salary_change_percent:=
4521: hr_transaction_api.get_number_value
4604: p_transaction_step_id => ln_transaction_step_id,
4605: p_name => 'p_attribute1'
4606: );
4607:
4608: -- hr_utility.trace(' p_attribute1 ' || p_ltt_salary_data(1).attribute1);
4609:
4610: p_ltt_salary_data(1).attribute2 :=
4611: hr_transaction_api.get_varchar2_value (
4612: p_transaction_step_id => ln_transaction_step_id,
4612: p_transaction_step_id => ln_transaction_step_id,
4613: p_name => 'p_attribute2'
4614: );
4615:
4616: -- hr_utility.trace(' p_attribute2 ' || p_ltt_salary_data(1).attribute2);
4617:
4618: p_ltt_salary_data(1).attribute3 :=
4619: hr_transaction_api.get_varchar2_value (
4620: p_transaction_step_id => ln_transaction_step_id,
4902: );
4903:
4904: -- 04/12/02 Salary Basis Enhancement Ends'
4905:
4906: -- hr_utility.trace('Populated Proposal Values');
4907:
4908: -- now get the component records
4909: ln_no_of_components :=
4910: hr_transaction_api.get_number_value
4910: hr_transaction_api.get_number_value
4911: (p_transaction_step_id => ln_transaction_step_id,
4912: p_name => 'p_no_of_components');
4913:
4914: -- hr_utility.trace('ln_no_of_components' || ln_no_of_components);
4915:
4916: FOR i in 1..ln_no_of_components
4917: LOOP
4918:
4915:
4916: FOR i in 1..ln_no_of_components
4917: LOOP
4918:
4919: -- hr_utility.trace(' Retrieving ' || i || ' compoent ');
4920: p_ltt_component(i).change_amount :=
4921: hr_transaction_api.get_number_value
4922: (p_transaction_step_id => ln_transaction_step_id,
4923: p_name => 'p_change_amount'||i);
4920: p_ltt_component(i).change_amount :=
4921: hr_transaction_api.get_number_value
4922: (p_transaction_step_id => ln_transaction_step_id,
4923: p_name => 'p_change_amount'||i);
4924: -- hr_utility.trace('change_amount ' || p_ltt_component(i).change_amount);
4925:
4926:
4927:
4928: p_ltt_component(i).component_reason :=
4928: p_ltt_component(i).component_reason :=
4929: hr_transaction_api.get_varchar2_value
4930: (p_transaction_step_id => ln_transaction_step_id,
4931: p_name => 'p_component_reason'||i);
4932: -- hr_utility.trace('p_component_reason ' || p_ltt_component(i).component_reason);
4933:
4934: p_ltt_component(i).reason_meaning :=
4935: hr_transaction_api.get_varchar2_value
4936: (p_transaction_step_id => ln_transaction_step_id,
4934: p_ltt_component(i).reason_meaning :=
4935: hr_transaction_api.get_varchar2_value
4936: (p_transaction_step_id => ln_transaction_step_id,
4937: p_name => 'p_reason_meaning'||i);
4938: -- hr_utility.trace('p_reason_meaning ' || p_ltt_component(i).reason_meaning);
4939:
4940: /*
4941: hr_misc_web.get_lookup_meaning(
4942: p_ltt_component(i).component_reason,
4941: hr_misc_web.get_lookup_meaning(
4942: p_ltt_component(i).component_reason,
4943: 'PROPOSAL_REASON',
4944: p_ltt_salary_data(1).effective_date);
4945: hr_utility.trace('reason_meaning ' || p_ltt_component(i).reason_meaning);
4946: */
4947:
4948: p_ltt_component(i).change_percent :=
4949: hr_transaction_api.get_number_value
4949: hr_transaction_api.get_number_value
4950: (p_transaction_step_id => ln_transaction_step_id,
4951: p_name => 'p_change_percent'||i);
4952:
4953: -- hr_utility.trace('p_change_percent ' || p_ltt_component(i).change_percent);
4954:
4955: p_ltt_component(i).change_annual :=
4956: hr_transaction_api.get_number_value
4957: (p_transaction_step_id => ln_transaction_step_id,
4977: hr_transaction_api.get_varchar2_value
4978: (p_transaction_step_id => ln_transaction_step_id,
4979: p_name => 'p_cattribute1'||i);
4980:
4981: -- hr_utility.trace('p_cattribute1 ' || p_ltt_component(i).attribute1);
4982:
4983:
4984: p_ltt_component(i).attribute2:=
4985: hr_transaction_api.get_varchar2_value
4985: hr_transaction_api.get_varchar2_value
4986: (p_transaction_step_id => ln_transaction_step_id,
4987: p_name => 'p_cattribute2'||i);
4988:
4989: -- hr_utility.trace('p_cattribute1 ' || p_ltt_component(i).attribute2);
4990:
4991:
4992: p_ltt_component(i).attribute3 :=
4993: hr_transaction_api.get_varchar2_value
4993: hr_transaction_api.get_varchar2_value
4994: (p_transaction_step_id => ln_transaction_step_id,
4995: p_name => 'p_cattribute3'||i);
4996:
4997: -- hr_utility.trace('p_cattribute1 ');
4998:
4999: p_ltt_component(i).attribute4 :=
5000: hr_transaction_api.get_varchar2_value
5001: (p_transaction_step_id => ln_transaction_step_id,
5005: hr_transaction_api.get_varchar2_value
5006: (p_transaction_step_id => ln_transaction_step_id,
5007: p_name => 'p_cattribute5'||i);
5008:
5009: -- hr_utility.trace('p_cattribute5 ');
5010:
5011: p_ltt_component(i).attribute6 :=
5012: hr_transaction_api.get_varchar2_value
5013: (p_transaction_step_id => ln_transaction_step_id,
5017: hr_transaction_api.get_varchar2_value
5018: (p_transaction_step_id => ln_transaction_step_id,
5019: p_name => 'p_cattribute7'||i);
5020:
5021: -- hr_utility.trace('p_cattribute7 ');
5022:
5023:
5024: p_ltt_component(i).attribute8 :=
5025: hr_transaction_api.get_varchar2_value
5030: hr_transaction_api.get_varchar2_value
5031: (p_transaction_step_id => ln_transaction_step_id,
5032: p_name => 'p_cattribute9'||i);
5033:
5034: -- hr_utility.trace('p_cattribute9 ');
5035:
5036: p_ltt_component(i).attribute10 :=
5037: hr_transaction_api.get_varchar2_value
5038: (p_transaction_step_id => ln_transaction_step_id,
5047: hr_transaction_api.get_varchar2_value
5048: (p_transaction_step_id => ln_transaction_step_id,
5049: p_name => 'p_cattribute12'||i);
5050:
5051: -- hr_utility.trace('p_cattribute12 ');
5052:
5053: p_ltt_component(i).attribute13 :=
5054: hr_transaction_api.get_varchar2_value
5055: (p_transaction_step_id => ln_transaction_step_id,
5059: hr_transaction_api.get_varchar2_value
5060: (p_transaction_step_id => ln_transaction_step_id,
5061: p_name => 'p_cattribute14'||i);
5062:
5063: -- hr_utility.trace('p_cattribute14 ');
5064:
5065: p_ltt_component(i).attribute15 :=
5066: hr_transaction_api.get_varchar2_value
5067: (p_transaction_step_id => ln_transaction_step_id,
5071: hr_transaction_api.get_varchar2_value
5072: (p_transaction_step_id => ln_transaction_step_id,
5073: p_name => 'p_cattribute16'||i);
5074:
5075: -- hr_utility.trace('p_cattribute16 ');
5076:
5077: p_ltt_component(i).attribute17 :=
5078: hr_transaction_api.get_varchar2_value
5079: (p_transaction_step_id => ln_transaction_step_id,
5083: hr_transaction_api.get_varchar2_value
5084: (p_transaction_step_id => ln_transaction_step_id,
5085: p_name => 'p_cattribute18'||i);
5086:
5087: -- hr_utility.trace('p_cattribute18 ');
5088:
5089: p_ltt_component(i).attribute19 :=
5090: hr_transaction_api.get_varchar2_value
5091: (p_transaction_step_id => ln_transaction_step_id,
5095: hr_transaction_api.get_varchar2_value
5096: (p_transaction_step_id => ln_transaction_step_id,
5097: p_name => 'p_cattribute20'||i);
5098:
5099: -- hr_utility.trace('p_cattribute20 ' || p_ltt_component(i).attribute20);
5100:
5101: END LOOP ;
5102:
5103: END IF ;
5103: END IF ;
5104: END IF ;
5105:
5106:
5107: hr_utility.set_location(' Leaving:' || l_proc,25);
5108: -- hr_utility.trace_off;
5109:
5110: EXCEPTION
5111: WHEN OTHERS THEN
5104: END IF ;
5105:
5106:
5107: hr_utility.set_location(' Leaving:' || l_proc,25);
5108: -- hr_utility.trace_off;
5109:
5110: EXCEPTION
5111: WHEN OTHERS THEN
5112: hr_utility.set_location(' Leaving:' || l_proc,555);
5108: -- hr_utility.trace_off;
5109:
5110: EXCEPTION
5111: WHEN OTHERS THEN
5112: hr_utility.set_location(' Leaving:' || l_proc,555);
5113: raise;
5114: END get_transaction_details;
5115:
5116: --GSP changes
5151: lv_tmp_currency PAY_ELEMENT_TYPES_F.INPUT_CURRENCY_CODE%TYPE;
5152:
5153: BEGIN
5154:
5155: hr_utility.set_location(' Entering:' || l_proc,5);
5156: -- hr_utility.trace('starting of get_transaction_details');
5157:
5158: IF p_transaction_step_id IS NOT NULL
5159: THEN
5152:
5153: BEGIN
5154:
5155: hr_utility.set_location(' Entering:' || l_proc,5);
5156: -- hr_utility.trace('starting of get_transaction_details');
5157:
5158: IF p_transaction_step_id IS NOT NULL
5159: THEN
5160:
5157:
5158: IF p_transaction_step_id IS NOT NULL
5159: THEN
5160:
5161: hr_utility.set_location(l_proc,10);
5162: ln_transaction_step_id := p_transaction_step_id;
5163:
5164: PER_PAY_PROPOSALS_POPULATE.GET_BASIS_DETAILS(p_effective_date => hr_transaction_api.get_date_value
5165: (p_transaction_step_id => ln_transaction_step_id,
5657:
5658: FOR i in 1..ln_no_of_components
5659: LOOP
5660:
5661: --hr_utility.trace(' Retrieving ' || i || ' compoent ');
5662: p_ltt_component(i).change_amount :=
5663: hr_transaction_api.get_number_value
5664: (p_transaction_step_id => ln_transaction_step_id,
5665: p_name => 'p_change_amount'||i);
5683: hr_misc_web.get_lookup_meaning(
5684: p_ltt_component(i).component_reason,
5685: 'PROPOSAL_REASON',
5686: p_ltt_salary_data(1).effective_date);
5687: hr_utility.trace('reason_meaning ' || p_ltt_component(i).reason_meaning);
5688: */
5689:
5690: p_ltt_component(i).change_percent :=
5691: hr_transaction_api.get_number_value
5736: hr_transaction_api.get_varchar2_value
5737: (p_transaction_step_id => ln_transaction_step_id,
5738: p_name => 'p_cattribute5'||i);
5739:
5740: -- hr_utility.trace('p_cattribute5 ');
5741:
5742: p_ltt_component(i).attribute6 :=
5743: hr_transaction_api.get_varchar2_value
5744: (p_transaction_step_id => ln_transaction_step_id,
5748: hr_transaction_api.get_varchar2_value
5749: (p_transaction_step_id => ln_transaction_step_id,
5750: p_name => 'p_cattribute7'||i);
5751:
5752: -- hr_utility.trace('p_cattribute7 ');
5753:
5754:
5755: p_ltt_component(i).attribute8 :=
5756: hr_transaction_api.get_varchar2_value
5761: hr_transaction_api.get_varchar2_value
5762: (p_transaction_step_id => ln_transaction_step_id,
5763: p_name => 'p_cattribute9'||i);
5764:
5765: -- hr_utility.trace('p_cattribute9 ');
5766:
5767: p_ltt_component(i).attribute10 :=
5768: hr_transaction_api.get_varchar2_value
5769: (p_transaction_step_id => ln_transaction_step_id,
5778: hr_transaction_api.get_varchar2_value
5779: (p_transaction_step_id => ln_transaction_step_id,
5780: p_name => 'p_cattribute12'||i);
5781:
5782: -- hr_utility.trace('p_cattribute12 ');
5783:
5784: p_ltt_component(i).attribute13 :=
5785: hr_transaction_api.get_varchar2_value
5786: (p_transaction_step_id => ln_transaction_step_id,
5790: hr_transaction_api.get_varchar2_value
5791: (p_transaction_step_id => ln_transaction_step_id,
5792: p_name => 'p_cattribute14'||i);
5793:
5794: -- hr_utility.trace('p_cattribute14 ');
5795:
5796: p_ltt_component(i).attribute15 :=
5797: hr_transaction_api.get_varchar2_value
5798: (p_transaction_step_id => ln_transaction_step_id,
5802: hr_transaction_api.get_varchar2_value
5803: (p_transaction_step_id => ln_transaction_step_id,
5804: p_name => 'p_cattribute16'||i);
5805:
5806: -- hr_utility.trace('p_cattribute16 ');
5807:
5808: p_ltt_component(i).attribute17 :=
5809: hr_transaction_api.get_varchar2_value
5810: (p_transaction_step_id => ln_transaction_step_id,
5814: hr_transaction_api.get_varchar2_value
5815: (p_transaction_step_id => ln_transaction_step_id,
5816: p_name => 'p_cattribute18'||i);
5817:
5818: -- hr_utility.trace('p_cattribute18 ');
5819:
5820: p_ltt_component(i).attribute19 :=
5821: hr_transaction_api.get_varchar2_value
5822: (p_transaction_step_id => ln_transaction_step_id,
5826: hr_transaction_api.get_varchar2_value
5827: (p_transaction_step_id => ln_transaction_step_id,
5828: p_name => 'p_cattribute20'||i);
5829:
5830: -- hr_utility.trace('p_cattribute20 ' || p_ltt_component(i).attribute20);
5831:
5832: END LOOP ;
5833:
5834: END IF ;
5832: END LOOP ;
5833:
5834: END IF ;
5835:
5836: hr_utility.set_location(' Leaving:' || l_proc,15);
5837: EXCEPTION
5838: WHEN OTHERS THEN
5839: hr_utility.trace('There is an exception in get_transaction_details' || SQLERRM);
5840: hr_utility.set_location(' Leaving:' || l_proc,555);
5835:
5836: hr_utility.set_location(' Leaving:' || l_proc,15);
5837: EXCEPTION
5838: WHEN OTHERS THEN
5839: hr_utility.trace('There is an exception in get_transaction_details' || SQLERRM);
5840: hr_utility.set_location(' Leaving:' || l_proc,555);
5841: raise;
5842: END get_txn_details_for_review;
5843: --End of GSP changes
5836: hr_utility.set_location(' Leaving:' || l_proc,15);
5837: EXCEPTION
5838: WHEN OTHERS THEN
5839: hr_utility.trace('There is an exception in get_transaction_details' || SQLERRM);
5840: hr_utility.set_location(' Leaving:' || l_proc,555);
5841: raise;
5842: END get_txn_details_for_review;
5843: --End of GSP changes
5844:
5877: lc_gsp_assignment varchar2(30) default null;
5878: -- End of GSP changes
5879:
5880: BEGIN
5881: hr_utility.set_location(' Entering:' || l_proc,5);
5882: if (p_effective_date is not null) then
5883: hr_utility.set_location(l_proc,10);
5884: l_effective_date:= p_effective_date;
5885: else
5879:
5880: BEGIN
5881: hr_utility.set_location(' Entering:' || l_proc,5);
5882: if (p_effective_date is not null) then
5883: hr_utility.set_location(l_proc,10);
5884: l_effective_date:= p_effective_date;
5885: else
5886: hr_utility.set_location(l_proc,15);
5887: l_effective_date:= hr_transaction_ss.get_wf_effective_date
5882: if (p_effective_date is not null) then
5883: hr_utility.set_location(l_proc,10);
5884: l_effective_date:= p_effective_date;
5885: else
5886: hr_utility.set_location(l_proc,15);
5887: l_effective_date:= hr_transaction_ss.get_wf_effective_date
5888: (p_transaction_step_id => p_transaction_step_id);
5889: end if;
5890:
6060: -- Adding the session id check to avoid connection pooling problems.
6061: IF (( hr_process_person_ss.g_assignment_id is not null) and
6062: (hr_process_person_ss.g_session_id= ICX_SEC.G_SESSION_ID))
6063: THEN
6064: hr_utility.set_location(l_proc,20);
6065: -- Set the Assignment Id to the one just created, don't use the
6066: -- transaction table.
6067: ltt_salary_data(1).assignment_id := hr_process_person_ss.g_assignment_id;
6068: END IF;
6101: -- 05/13/02 - Bug 2360907 Fix Ends
6102: -- 04/25/02 Salary Basis Enhancement Change Ends
6103:
6104:
6105: -- hr_utility.trace('********* After get_transaction_details *********' );
6106: /*
6107:
6108:
6109: message := ' PROPOSAL VALUES' ||
6154: ' attribute18' || ltt_salary_data(1).attribute18 ||
6155: ' attribute19' || ltt_salary_data(1).attribute19 ||
6156: ' attribute20' || ltt_salary_data(1).attribute20 ;
6157:
6158: hr_utility.trace(message);
6159: */
6160:
6161:
6162: -- 04/19/02 Salary Basis Enhancement Change Begins
6173: ,p_approved_warning => lb_approved_warning
6174: ,p_payroll_warning => lb_payroll_warning
6175: );
6176:
6177: -- hr_utility.trace('After validate_salary_ins_api_java' );
6178:
6179: -- The following warning message names were obtained from PERWSEPY.fmb.
6180: IF lb_inv_next_sal_date_warning
6181: THEN
6178:
6179: -- The following warning message names were obtained from PERWSEPY.fmb.
6180: IF lb_inv_next_sal_date_warning
6181: THEN
6182: hr_utility.set_location(l_proc,25);
6183: -- Need to construct the output p_warning_msg_name parm with the
6184: -- following format:
6185: -- PER,HR_7340_SAL_ASS_TERMINATED|PAY,HR_APP_PROPOS_APP_COMP| .....
6186: lv_warning_msg_name := 'PER,HR_7340_SAL_ASS_TERMINATED|';
6187: END IF;
6188:
6189: IF lb_proposed_salary_warning
6190: THEN
6191: hr_utility.set_location(l_proc,30);
6192: lv_warning_msg_name := lv_warning_msg_name ||
6193: 'PAY,HR_SAL_SAL_ELE_RANGE_WARN|';
6194: END IF;
6195:
6194: END IF;
6195:
6196: IF lb_approved_warning
6197: THEN
6198: hr_utility.set_location(l_proc,35);
6199: lv_warning_msg_name := lv_warning_msg_name ||
6200: 'PAY,HR_APP_PROPOS_APP_COMP|';
6201: END IF;
6202:
6201: END IF;
6202:
6203: IF lb_payroll_warning
6204: THEN
6205: hr_utility.set_location(l_proc,40);
6206: lv_warning_msg_name := lv_warning_msg_name ||
6207: 'PER,HR_SAL_PAYROLL_PERIOD_CLOSED|';
6208: END IF;
6209:
6209:
6210: -- The warnings are for debugging only. In the actual commit phase, we
6211: -- don't issue any warnings.
6212:
6213: hr_utility.set_location(' Leaving:' || l_proc,45);
6214: EXCEPTION
6215: WHEN hr_utility.hr_error THEN
6216: rollback to insert_salary_details;
6217:
6211: -- don't issue any warnings.
6212:
6213: hr_utility.set_location(' Leaving:' || l_proc,45);
6214: EXCEPTION
6215: WHEN hr_utility.hr_error THEN
6216: rollback to insert_salary_details;
6217:
6218: hr_utility.set_location(' Leaving:' || l_proc,555);
6219: -- ---------------------------------------------------
6214: EXCEPTION
6215: WHEN hr_utility.hr_error THEN
6216: rollback to insert_salary_details;
6217:
6218: hr_utility.set_location(' Leaving:' || l_proc,555);
6219: -- ---------------------------------------------------
6220: -- an application error has been raised
6221: -- ----------------------------------------------------
6222: RAISE;
6222: RAISE;
6223:
6224: WHEN OTHERS THEN
6225: ROLLBACK to insert_salary_details;
6226: hr_utility.set_location(' Leaving:' || l_proc,560);
6227: RAISE;
6228:
6229: -- 04/19/02 Salary Basis Enhancement Change Ends
6230:
6308: from hr_api_transaction_steps
6309: where transaction_id = p_transaction_id
6310: and api_name = 'HR_PAY_RATE_SS.PROCESS_API';
6311: BEGIN
6312: hr_utility.set_location(' Entering:' || l_proc,5);
6313: open c1(p_transaction_id);
6314: fetch c1 into l_transaction_step_id;
6315: close c1;
6316: HR_TRANSACTION_SS.delete_transaction_step(
6315: close c1;
6316: HR_TRANSACTION_SS.delete_transaction_step(
6317: p_transaction_step_id =>l_transaction_step_id,
6318: p_login_person_id => p_login_person_id);
6319: hr_utility.set_location(' Leaving:' || l_proc,10);
6320: END;
6321:
6322:
6323: END hr_pay_rate_ss;