[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:
1039:
1040:
1041: BEGIN
1042:
1043: hr_utility.set_location(' Entering:' || l_proc,5);
1044:
1045: ld_get_defaults_date := p_effective_date;
1046:
1047: -- Read from the database to determine if there is an existing
1066:
1067: IF p_flow_mode IS NOT NULL and
1068: p_flow_mode = hr_process_assignment_ss.g_new_hire_registration
1069: THEN
1070: hr_utility.set_location(l_proc,10);
1071: NULL;
1072: ELSE
1073: hr_utility.set_location(l_proc,15);
1074: OPEN lc_get_curr_asg_pay_basis_id;
1069: THEN
1070: hr_utility.set_location(l_proc,10);
1071: NULL;
1072: ELSE
1073: hr_utility.set_location(l_proc,15);
1074: OPEN lc_get_curr_asg_pay_basis_id;
1075: FETCH lc_get_curr_asg_pay_basis_id into ln_payroll_id
1076: ,p_old_pay_basis_id
1077: ,ln_business_group_id
1105: END IF;
1106:
1107: IF lv_applicant_asg_type = 'A'
1108: THEN
1109: hr_utility.set_location(l_proc,20);
1110: -- zap the ln_payroll_id, lv_old_salary_basis_name and
1111: -- ln_old_pay_annual_factor to null
1112: -- Change the p_flow_mode to reflect APPLICANT_HIRE
1113: ln_payroll_id := null;
1121: -- Bug 2355929 Fix Ends
1122:
1123: IF p_asg_txn_step_id IS NOT NULL
1124: THEN
1125: hr_utility.set_location(l_proc,25);
1126: -- In a chained process navigated from the Assignment page.
1127: -- Get the pay_basis_id from the txn step
1128: ln_transaction_step_id := p_asg_txn_step_id;
1129: ln_txn_pay_basis_id := hr_transaction_api.get_number_value
1147: -- Issue an error when the old and new pay basis id are null regardless
1148: -- it's a New Hire or Applicant Hire.
1149: IF p_old_pay_basis_id IS NULL and p_new_pay_basis_id IS NULL
1150: THEN
1151: hr_utility.set_location(l_proc,30);
1152: -- it's an error, we cannot proceed further
1153: -- commenting this for bug 10208443.
1154: /*
1155: lv_msg_text := lv_msg_text ||
1164: raise lv_no_sal_basis_excep;
1165: END IF;
1166: -- 05/03/2002 Fix Ends
1167: ELSE
1168: hr_utility.set_location(l_proc,35);
1169: -- 2 possibilities:
1170: -- 1) On re-entry of a Save For Later transaction where the user last
1171: -- stopped at the Pay Rate page, asg_txn_step_id is not known now
1172: -- OR
1181: ,p_transaction_id => ln_transaction_id);
1182:
1183: IF nvl(ln_transaction_step_id, -1) > 0
1184: THEN
1185: hr_utility.set_location(l_proc,40);
1186: -- It's a Save For Later transaction, Pay Rate was being chained
1187: -- to the Assignment page but user last stopped at the Pay Rate
1188: -- page.
1189: -- Get the value of pay basis id from the txn table.
1212: -- Issue an error when the old and new pay basis id are null regardless
1213: -- it's a New Hire or Applicant Hire.
1214: IF p_old_pay_basis_id IS NULL and p_new_pay_basis_id IS NULL
1215: THEN
1216: hr_utility.set_location(l_proc,45);
1217: -- it's an error, we cannot proceed further
1218: lv_msg_text := lv_msg_text ||
1219: hr_util_misc_web.return_msg_text(
1220: p_message_name =>'HR_289855_SAL_ASS_NOT_SAL_ELIG'
1223: raise lv_no_sal_basis_excep;
1224: END IF;
1225: -- 05/03/2002 Fix Ends
1226: ELSE
1227: hr_utility.set_location(l_proc,50);
1228: -- There is no passed ASG transaction step id and none in
1229: -- the database.
1230: -- It's Pay Rate standalone. Get the pay basis id from the asg
1231: -- rec in the database.
1231: -- rec in the database.
1232: -- Set the old and new pay basis id to be the same.
1233: IF p_old_pay_basis_id IS NULL
1234: THEN
1235: hr_utility.set_location(l_proc,55);
1236: -- it's an error, we cannot proceed further
1237: lv_msg_text := lv_msg_text ||
1238: hr_util_misc_web.return_msg_text(
1239: p_message_name =>'HR_289855_SAL_ASS_NOT_SAL_ELIG'
1240: ,p_Application_id =>'PER');
1241: p_excep_message := lv_msg_text;
1242: raise lv_no_sal_basis_excep;
1243: ELSE
1244: hr_utility.set_location(l_proc,60);
1245: -- p_old_pay_basis_id is already set
1246: p_new_pay_basis_id := p_old_pay_basis_id;
1247: END IF;
1248: END IF;
1259:
1260: IF p_new_pay_basis_id IS NOT NULL and
1261: nvl(p_old_pay_basis_id, -1) <> p_new_pay_basis_id
1262: THEN
1263: hr_utility.set_location(l_proc,65);
1264: IF p_old_pay_basis_id IS NULL
1265: THEN
1266: hr_utility.set_location(l_proc,70);
1267: -- Adding a new salary basis
1262: THEN
1263: hr_utility.set_location(l_proc,65);
1264: IF p_old_pay_basis_id IS NULL
1265: THEN
1266: hr_utility.set_location(l_proc,70);
1267: -- Adding a new salary basis
1268: lv_salary_basis_change_type := 'NEW';
1269: ELSE
1270: hr_utility.set_location(l_proc,75);
1266: hr_utility.set_location(l_proc,70);
1267: -- Adding a new salary basis
1268: lv_salary_basis_change_type := 'NEW';
1269: ELSE
1270: hr_utility.set_location(l_proc,75);
1271: -- Changing an existing salary basis
1272: lv_salary_basis_change_type := 'CHANGE';
1273: END IF;
1274: ELSE
1271: -- Changing an existing salary basis
1272: lv_salary_basis_change_type := 'CHANGE';
1273: END IF;
1274: ELSE
1275: hr_utility.set_location(l_proc,80);
1276: IF p_old_pay_basis_id = p_new_pay_basis_id
1277: THEN
1278: hr_utility.set_location(l_proc,85);
1279: -- An existing salary basis is already in the db, the user is trying to
1274: ELSE
1275: hr_utility.set_location(l_proc,80);
1276: IF p_old_pay_basis_id = p_new_pay_basis_id
1277: THEN
1278: hr_utility.set_location(l_proc,85);
1279: -- An existing salary basis is already in the db, the user is trying to
1280: -- add pay proposal data.
1281: -- get the default values based on the existing assignment id
1282: lv_salary_basis_change_type := 'NOCHANGE';
1286: IF lv_salary_basis_change_type = 'NEW' Or
1287: lv_salary_basis_change_type = 'CHANGE' Or
1288: nvl(ln_transaction_step_id, -1) > 0 -- bug# 2343933
1289: THEN
1290: hr_utility.set_location(l_proc,90);
1291: -- that means p_new_pay_basis_id IS NOT NULL and
1292: -- p_old_pay_basis_id <> p_new_pay_basis_id
1293: -- We need to simulate saving of the assignment data in the
1294: -- transaction table to the database because the get_defaults call
1308: -- Bug 2547283: need to update person info and asg info.
1309: IF NOT (p_flow_mode IS NOT NULL and
1310: p_flow_mode = hr_process_assignment_ss.g_new_hire_registration)
1311: THEN
1312: hr_utility.set_location(l_proc,95);
1313: if p_proc_sel_txn is null then
1314: hr_new_user_reg_ss.process_selected_transaction
1315: (p_item_type => p_item_type,
1316: p_item_key => p_item_key);
1377: -- in the Proposed Pay Rate region.
1378: IF lv_salary_basis_change_type = 'NOCHANGE' and
1379: ln_pay_proposal_id is NULL
1380: THEN
1381: hr_utility.set_location(l_proc,100);
1382: lv_salary_basis_change_type := 'NOCHANGE_NOPAYPROPOSAL';
1383: END IF;
1384: -- 05/09/02 Bug 2367833 Fix Ends
1385:
1386: --4002387 start
1387: IF lv_salary_basis_change_type = 'CHANGE' and
1388: ln_pay_proposal_id is NULL
1389: THEN
1390: hr_utility.set_location(l_proc,100);
1391: lv_salary_basis_change_type := 'CHANGE_NOPAYPROPOSAL';
1392: END IF;
1393: --4002387 end
1394:
1406: -- sal_review_period_frequency only.
1407: BEGIN
1408: IF lv_sal_rev_period_frequency IS NOT NULL
1409: THEN
1410: hr_utility.set_location(l_proc,105);
1411: -- Check the frequency to see if it is 'Y', 'M', 'W' or 'D'. I can't
1412: -- call the function derive_next_sal_perf_date directly because it is
1413: -- private.
1414: IF lv_sal_rev_period_frequency = 'Y' OR
1416: lv_sal_rev_period_frequency = 'W' OR
1417: lv_sal_rev_period_frequency = 'D'
1418: THEN
1419: -- it's ok
1420: hr_utility.set_location(l_proc,110);
1421: NULL;
1422: ELSE
1423: hr_utility.set_location(l_proc,115);
1424: lv_message := hr_util_misc_web.return_msg_text(
1419: -- it's ok
1420: hr_utility.set_location(l_proc,110);
1421: NULL;
1422: ELSE
1423: hr_utility.set_location(l_proc,115);
1424: lv_message := hr_util_misc_web.return_msg_text(
1425: p_message_name =>'HR_51258_PYP_INVAL_FREQ_PERIOD'
1426: ,p_Application_id =>'PAY');
1427: END IF;
1429: END;
1430:
1431: IF lv_message IS NOT NULL
1432: THEN
1433: hr_utility.set_location(l_proc,120);
1434: lv_message := lv_message || ' ';
1435: END IF;
1436:
1437: p_warning_message := lv_warning_message;
1439: --
1440: -- 04/23/02 Salary Basis Enhancement Change Begins
1441: IF lv_salary_basis_change_type = 'CHANGE'
1442: THEN
1443: hr_utility.set_location(l_proc,125);
1444: -- If it is a change to a salary basis, we need to derive previous salary
1445: -- again. This is because in my_get_defaults which calls
1446: -- per_pay_proposals_populate.get_defaults, that procedure will set prev
1447: -- salary to null when the old and new salary basis's element type id is
1456: CLOSE lc_previous_pay;
1457:
1458: IF ln_prev_salary is NULL and ln_prev_salary2 IS NOT NULL
1459: THEN
1460: hr_utility.set_location(l_proc,130);
1461: -- Element type id is changed because in the procedure
1462: -- per_pay_proposals_populate.get_prev_salary, it will zap the
1463: -- previous salary to null if element type id are not equal between
1464: -- the old and new salary basis.
1464: -- the old and new salary basis.
1465: p_element_type_id_changed := 'Y';
1466: ln_prev_salary := ln_prev_salary2;
1467: ELSE
1468: hr_utility.set_location(l_proc,135);
1469: p_element_type_id_changed := 'N';
1470: END IF;
1471: END IF;
1472:
1492: --4002387 end
1493:
1494: IF lb_savepoint_exists
1495: THEN
1496: hr_utility.set_location(l_proc,140);
1497: rollback to check_asg_txn_data_save;
1498: lb_savepoint_exists := FALSE;
1499: END IF;
1500:
1536: p_old_fte_factor := ln_old_fte_factor;
1537: p_old_salary_basis_name := lv_old_salary_basis_name;
1538: p_salary_basis_change_type := lv_salary_basis_change_type;
1539:
1540: hr_utility.set_location(' Leaving:' || l_proc,145);
1541:
1542: EXCEPTION
1543: WHEN lv_no_sal_basis_excep THEN
1544: hr_utility.set_location(' Leaving:' || l_proc,555);
1540: hr_utility.set_location(' Leaving:' || l_proc,145);
1541:
1542: EXCEPTION
1543: WHEN lv_no_sal_basis_excep THEN
1544: hr_utility.set_location(' Leaving:' || l_proc,555);
1545: -- The Java caller PayRateAMImpl.java will throw the exception.
1546: null;
1547:
1548: WHEN OTHERS THEN
1549: IF lb_savepoint_exists
1550: THEN
1551: rollback to check_asg_txn_data_save;
1552: END IF;
1553: hr_utility.set_location(' Leaving:' || l_proc,560);
1554: RAISE;
1555:
1556: END check_asg_txn_data;
1557:
1616: AND p_date BETWEEN pgr.effective_start_date
1617: AND pgr.effective_end_date;
1618:
1619: BEGIN
1620: hr_utility.set_location(' Entering:' || l_proc,5);
1621: per_pay_proposals_populate.get_defaults(
1622: p_assignment_id => p_assignment_id ,
1623: p_date => p_date,
1624: p_business_group_id => p_business_group_id,
1708: p_job_id ) ;
1709:
1710:
1711:
1712: hr_utility.set_location(' Leaving:' || l_proc,10);
1713:
1714: EXCEPTION
1715: WHEN OTHERS THEN
1716: hr_utility.set_location(' Leaving:' || l_proc,555);
1712: hr_utility.set_location(' Leaving:' || l_proc,10);
1713:
1714: EXCEPTION
1715: WHEN OTHERS THEN
1716: hr_utility.set_location(' Leaving:' || l_proc,555);
1717: RAISE;
1718:
1719: END my_get_defaults;
1720:
1754: l_value pay_user_column_instances_f.value%type;
1755: l_conversion_type varchar2(30);
1756: BEGIN
1757: --
1758: hr_utility.set_location(' Entering:' || l_proc,5);
1759: if p_processing_type = 'P' then
1760: hr_utility.set_location(l_proc,10);
1761: l_row_name := 'PAY' ;
1762: elsif p_processing_type = 'R' then
1756: BEGIN
1757: --
1758: hr_utility.set_location(' Entering:' || l_proc,5);
1759: if p_processing_type = 'P' then
1760: hr_utility.set_location(l_proc,10);
1761: l_row_name := 'PAY' ;
1762: elsif p_processing_type = 'R' then
1763: hr_utility.set_location(l_proc,15);
1764: l_row_name := 'HRMS';
1759: if p_processing_type = 'P' then
1760: hr_utility.set_location(l_proc,10);
1761: l_row_name := 'PAY' ;
1762: elsif p_processing_type = 'R' then
1763: hr_utility.set_location(l_proc,15);
1764: l_row_name := 'HRMS';
1765: elsif p_processing_type = 'I' then
1766: hr_utility.set_location(l_proc,20);
1767: l_row_name := 'BIS';
1762: elsif p_processing_type = 'R' then
1763: hr_utility.set_location(l_proc,15);
1764: l_row_name := 'HRMS';
1765: elsif p_processing_type = 'I' then
1766: hr_utility.set_location(l_proc,20);
1767: l_row_name := 'BIS';
1768: else
1769: hr_utility.set_location(' Leaving:' || l_proc,25);
1770: return null;
1765: elsif p_processing_type = 'I' then
1766: hr_utility.set_location(l_proc,20);
1767: l_row_name := 'BIS';
1768: else
1769: hr_utility.set_location(' Leaving:' || l_proc,25);
1770: return null;
1771: end if;
1772: --
1773: l_value := hruserdt.get_table_value(p_business_group_id,
1783: into l_conversion_type
1784: from gl_daily_conversion_types
1785: where user_conversion_type = l_value;
1786: --
1787: hr_utility.set_location(' Leaving:' || l_proc,30);
1788: return l_conversion_type;
1789: --
1790: EXCEPTION
1791: WHEN OTHERS THEN
1788: return l_conversion_type;
1789: --
1790: EXCEPTION
1791: WHEN OTHERS THEN
1792: hr_utility.set_location(' Leaving:' || l_proc,555);
1793: RETURN null; -- Don't know what the problem was with the user the table.
1794: -- However don't want to percolate an exception from get_table_value
1795: -- Request from payroll team for this to be put in.
1796: END get_rate_type;
1913: where
1914: transaction_id = l_transaction_id;
1915:
1916: Begin
1917: hr_utility.set_location(' Entering:' || l_proc,5);
1918: if funmode = 'RUN' then
1919: hr_utility.set_location( l_proc,10);
1920: savepoint start_transaction;
1921:
1915:
1916: Begin
1917: hr_utility.set_location(' Entering:' || l_proc,5);
1918: if funmode = 'RUN' then
1919: hr_utility.set_location( l_proc,10);
1920: savepoint start_transaction;
1921:
1922: -- check to see if the TRANSACTION_ID attribute has been created
1923: if hr_workflow_utility.item_attribute_exists(p_item_type => itemtype
1930: ,p_item_key => itemkey) is not null then
1931:
1932: -- a current transaction is in progress we cannot overwrite it
1933: -- get the Transaction Step Id
1934: hr_utility.set_location( l_proc,15);
1935: l_transaction_id := hr_transaction_ss.get_transaction_id(p_item_type => itemtype
1936: ,p_item_key => itemkey);
1937: open c_get_transaction_step_id;
1938: fetch c_get_transaction_step_id into l_transaction_step_id;
1937: open c_get_transaction_step_id;
1938: fetch c_get_transaction_step_id into l_transaction_step_id;
1939: /*if c_get_transaction_step_id%found then
1940: close c_get_transaction_step_id;
1941: hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
1942: hr_utility.raise_error;
1943: end if;*/
1944: close c_get_transaction_step_id;
1945: hr_transaction_ss.delete_transaction_step(l_transaction_step_id,null,p_creator_person_id);
1938: fetch c_get_transaction_step_id into l_transaction_step_id;
1939: /*if c_get_transaction_step_id%found then
1940: close c_get_transaction_step_id;
1941: hr_utility.set_message(801, 'HR_51750_WEB_TRANSAC_STARTED');
1942: hr_utility.raise_error;
1943: end if;*/
1944: close c_get_transaction_step_id;
1945: hr_transaction_ss.delete_transaction_step(l_transaction_step_id,null,p_creator_person_id);
1946: end if;
1945: hr_transaction_ss.delete_transaction_step(l_transaction_step_id,null,p_creator_person_id);
1946: end if;
1947:
1948: else
1949: hr_utility.set_location( l_proc,20);
1950: -- the TRANSACTION_ID does not exist so create it
1951: wf_engine.additemattr(itemtype => itemtype
1952: ,itemkey => itemkey
1953: ,aname => 'TRANSACTION_ID');
1959: ,p_item_key => itemkey
1960: ,p_name => 'TRANSACTION_PRIVILEGE') then
1961:
1962: -- the TRANSACTION_PRIVILEGE does not exist so create it
1963: hr_utility.set_location( l_proc,25);
1964: wf_engine.additemattr(itemtype => itemtype
1965: ,itemkey => itemkey
1966: ,aname => 'TRANSACTION_PRIVILEGE');
1967: end if;
1971: ,itemkey => itemkey
1972: ,aname => 'TRANSACTION_PRIVILEGE');
1973: -- check to see if the TRANSACTION_PRIVILEGE is null
1974: if l_transaction_privilege is null then
1975: hr_utility.set_location( l_proc,30);
1976: -- default the TRANSACTION_PRIVILEGE to PRIVATE
1977: l_transaction_privilege := 'PRIVATE';
1978: wf_engine.setitemattrtext(itemtype => itemtype
1979: ,itemkey => itemkey
1996: -- commit;
1997: result := 'SUCCESS';
1998:
1999: elsif funmode = 'CANCEL' then
2000: hr_utility.set_location( l_proc,35);
2001: null;
2002: end if;
2003:
2004: hr_utility.set_location(' Leaving:' || l_proc,40);
2000: hr_utility.set_location( l_proc,35);
2001: null;
2002: end if;
2003:
2004: hr_utility.set_location(' Leaving:' || l_proc,40);
2005:
2006: Exception
2007: when others then
2008: rollback to start_transaction;
2005:
2006: Exception
2007: when others then
2008: rollback to start_transaction;
2009: hr_utility.set_location(' Leaving:' || l_proc,555);
2010: raise;
2011: End start_transaction;
2012:
2013: -- End of Procedure start_transaction
2084: l_bg_id per_all_assignments_f.business_group_id%TYPE;
2085: l_person_type VARCHAR2(5) := 'E';
2086: BEGIN
2087:
2088: hr_utility.set_location(' Entering:' || l_proc,5);
2089: begin
2090: if (p_item_type is not null) and (p_item_key is not null)
2091: then
2092: hr_utility.set_location(l_proc,10);
2088: hr_utility.set_location(' Entering:' || l_proc,5);
2089: begin
2090: if (p_item_type is not null) and (p_item_key is not null)
2091: then
2092: hr_utility.set_location(l_proc,10);
2093: l_person_type := wf_engine.GetItemAttrText(itemtype => p_item_type,
2094: itemkey => p_item_key,
2095: aname => 'HR_SELECTED_PERSON_TYPE_ATTR');
2096: end if;
2101:
2102: if l_person_type <> 'C'
2103: then
2104:
2105: hr_utility.set_location(l_proc,15);
2106: Open c_assignment ;
2107: fetch c_assignment into l_bg_id, l_payroll_id;
2108: IF (c_assignment%NOTFOUND) THEN
2109: message := message || hr_util_misc_web.return_msg_text(
2129:
2130: IF (c_last_salary%NOTFOUND) OR (l_pay_proposal_id IS NULL )
2131: -- first proposal can not be created
2132: THEN
2133: hr_utility.set_location(l_proc,20);
2134: -- No previous approved pay proposal exists for this person.
2135: message := message || hr_util_misc_web.return_msg_text(
2136: p_message_name=>'HR_PR_INI_MSG01',
2137: p_Application_id=>'PER');
2147: -- if not approved , raise error
2148:
2149: IF l_Approved <>'Y'
2150: THEN
2151: hr_utility.set_location(l_proc,25);
2152: message := message || hr_util_misc_web.return_msg_text(
2153: p_message_name=>'HR_PR_INI_MSG02',
2154: p_Application_id=>'PER');
2155: message := message || ' ';
2157:
2158: -- check if eligible for salary basis/element
2159: IF (NOT check_ele_eligibility(p_assignment_id,
2160: to_char(p_effective_date,'RRRR-MM-DD'))) THEN
2161: hr_utility.set_location(l_proc,30);
2162: message := message || hr_util_misc_web.return_msg_text(
2163: p_message_name=>'HR_13016_SAL_ELE_NOT_ELIG',
2164: p_Application_id=>'PER');
2165: message := message || ' ';
2168: -- check that last_change date is <= effective date
2169: -- if equal to effective date we are in correction mode
2170:
2171: IF l_change_date is not null THEN
2172: hr_utility.set_location(l_proc,35);
2173: p_proposal_change_date := l_change_date + 1;
2174: --message := message || hr_util_misc_web.return_msg_text(
2175: -- p_message_name=>'HR_PR_INI_MSG04',
2176: -- p_Application_id=>'PER');
2182: p_ovn := ln_ovn;
2183: p_api_mode := 'INSERT';
2184:
2185: else
2186: hr_utility.set_location(l_proc,40);
2187: excep_message := null;
2188: p_pay_proposal_id := null;
2189: p_current_salary := null;
2190: p_ovn := null;
2190: p_ovn := null;
2191: p_api_mode := null;
2192: end if;
2193:
2194: hr_utility.set_location(' Leaving:' || l_proc,45);
2195: END validate_salary_details;
2196:
2197:
2198: PROCEDURE validate_salary_details (
2286: -- Bug 2354730 Fix Ends
2287:
2288: BEGIN
2289:
2290: hr_utility.set_location(' Entering:' || l_proc,5);
2291:
2292: -- get last salary details
2293: -- p_new_pay_basis_id always has a value
2294: -- p_old_pay_basis_id can be null
2299: -- now we will do validations when previous proposal data exists
2300: -- no matter salary basis is changed or not
2301: IF p_old_pay_basis_id IS NOT NULL OR p_new_pay_basis_id IS NOT NULL
2302: THEN
2303: hr_utility.set_location( l_proc,10);
2304: -- Bug 2354730 Fix Begins
2305: -- Only validate pay proposal data when there's no change to the
2306: -- salary basis. That means Pay Rate is standalone, in which case
2307: -- pay proposal data may exist. If we cannot find a record in
2326: ln_ovn ;
2327:
2328: IF (c_last_salary%NOTFOUND)
2329: THEN
2330: hr_utility.set_location( l_proc,15);
2331: NULL; -- bypass the rest of the validations
2332: ELSE
2333: hr_utility.set_location( l_proc,20);
2334: lv_pay_proposal_rec_found := TRUE;
2329: THEN
2330: hr_utility.set_location( l_proc,15);
2331: NULL; -- bypass the rest of the validations
2332: ELSE
2333: hr_utility.set_location( l_proc,20);
2334: lv_pay_proposal_rec_found := TRUE;
2335: END IF;
2336:
2337: close c_last_Salary ;
2337: close c_last_Salary ;
2338:
2339: END IF;
2340:
2341: -- hr_utility.trace(' first proposal can not be created ' );
2342: -- hr_utility.trace(message );
2343: -- check if a valid payroll exist for the assignment
2344: -- validation 1
2345: -- check if this proposal is approved
2338:
2339: END IF;
2340:
2341: -- hr_utility.trace(' first proposal can not be created ' );
2342: -- hr_utility.trace(message );
2343: -- check if a valid payroll exist for the assignment
2344: -- validation 1
2345: -- check if this proposal is approved
2346: -- if not approved , raise error
2346: -- if not approved , raise error
2347:
2348: IF lv_pay_proposal_rec_found
2349: THEN
2350: hr_utility.set_location( l_proc,25);
2351: IF l_Approved <>'Y'
2352: THEN
2353: hr_utility.set_location( l_proc,30);
2354: message := message || hr_util_misc_web.return_msg_text(
2349: THEN
2350: hr_utility.set_location( l_proc,25);
2351: IF l_Approved <>'Y'
2352: THEN
2353: hr_utility.set_location( l_proc,30);
2354: message := message || hr_util_misc_web.return_msg_text(
2355: p_message_name=>'HR_PR_MSG02_WEB',
2356: p_Application_id=>'PER');
2357: message := message || ' ';
2359:
2360: -- check if eligible for salary basis/element
2361: IF (NOT check_ele_eligibility(p_assignment_id,
2362: p_effective_date)) THEN
2363: hr_utility.set_location( l_proc,35);
2364: message := message || hr_util_misc_web.return_msg_text(
2365: p_message_name=>'HR_13016_SAL_ELE_NOT_ELIG',
2366: p_Application_id=>'PER');
2367: message := message || ' ';
2366: p_Application_id=>'PER');
2367: message := message || ' ';
2368: END IF;
2369:
2370: --hr_utility.trace(message );
2371: -- validation 2
2372: -- check that last_change date is <= effective date
2373: -- if equal to effective date we are in correction mode
2374:
2375: IF l_change_date <= to_date(p_effective_date,'RRRR-MM-DD')
2376: THEN
2377: IF (l_change_date = to_date(p_effective_date,'RRRR-MM-DD') AND p_asg_type <> 'A')
2378: THEN
2379: hr_utility.set_location( l_proc,40);
2380: message := message || hr_util_misc_web.return_msg_text(
2381: p_message_name=>'HR_PR_MSG03_WEB',
2382: p_Application_id=>'PER');
2383: message := message || ' ';
2382: p_Application_id=>'PER');
2383: message := message || ' ';
2384: END IF ;
2385: ELSE
2386: hr_utility.set_location( l_proc,45);
2387: message := message || hr_util_misc_web.return_msg_text(
2388: p_message_name=>'HR_PR_MSG04_WEB',
2389: p_Application_id=>'PER');
2390: message := message || ' ';
2391: END IF ;
2392: END IF; -- lv_pay_proposal_rec_found = TRUE
2393: -- Bug 2354730 Fix Ends
2394:
2395: -- hr_utility.trace(message );
2396: -- validate that assignment is not terminated on the date of the
2397: -- change
2398: open c_assignment_status ;
2399: fetch c_assignment_status into
2400: lv_system_status, lv_payroll_status ;
2401:
2402: IF lv_system_status = 'TERM_ASSIGN'
2403: THEN
2404: hr_utility.set_location( l_proc,50);
2405: message := message || hr_util_misc_web.return_msg_text(
2406: p_message_name=>'HR_PR_MSG16_WEB',
2407: p_Application_id=>'PER');
2408: message := message || ' ';
2408: message := message || ' ';
2409: END IF ;
2410:
2411: close c_assignment_status ;
2412: -- hr_utility.trace(message );
2413: -- validation 3
2414: -- validate that assignment does not have future changes to
2415: -- be effective after the effective date , if so raise warning
2416: OPEN c_future_assignment_changes ;
2416: OPEN c_future_assignment_changes ;
2417: FETCH c_future_assignment_changes into lv_exists ;
2418: IF c_future_assignment_changes%NOTFOUND
2419: THEN
2420: hr_utility.set_location( l_proc,55);
2421: lv_exists := 'N';
2422: END IF ;
2423:
2424: CLOSE c_future_assignment_changes ;
2422: END IF ;
2423:
2424: CLOSE c_future_assignment_changes ;
2425:
2426: -- hr_utility.trace(message );
2427: IF lv_exists ='Y' THEN
2428: hr_utility.set_location( l_proc,60);
2429: -- future assignment changes exists warning
2430: -- bug 3033365 raise a warning
2424: CLOSE c_future_assignment_changes ;
2425:
2426: -- hr_utility.trace(message );
2427: IF lv_exists ='Y' THEN
2428: hr_utility.set_location( l_proc,60);
2429: -- future assignment changes exists warning
2430: -- bug 3033365 raise a warning
2431: /*message := message || hr_util_misc_web.return_msg_text(
2432: p_message_name=>'HR_PR_MSG05_WEB',
2447:
2448: IF to_date(p_effective_date,'RRRR-MM-DD') < ld_payroll_start_date
2449: AND p_payroll_id is not null
2450: THEN
2451: hr_utility.set_location( l_proc,65);
2452: -- hr_utility.trace('effective Date is less than ld_payroll_start_date ');
2453: warn_message := warn_message || hr_util_misc_web.return_msg_text(
2454: p_message_name=>'HR_PR_MSG17_WEB',
2455: p_Application_id=>'PER');
2448: IF to_date(p_effective_date,'RRRR-MM-DD') < ld_payroll_start_date
2449: AND p_payroll_id is not null
2450: THEN
2451: hr_utility.set_location( l_proc,65);
2452: -- hr_utility.trace('effective Date is less than ld_payroll_start_date ');
2453: warn_message := warn_message || hr_util_misc_web.return_msg_text(
2454: p_message_name=>'HR_PR_MSG17_WEB',
2455: p_Application_id=>'PER');
2456: warn_message := warn_message || ' ';
2457: END IF ;
2458:
2459: -- validation 4
2460: -- raise a warning if assignment is placed on the grade step
2461: -- hr_utility.trace(message );
2462: OPEN c_grade_step_placement ;
2463: FETCH c_grade_step_placement into lv_exists ;
2464:
2465: IF c_grade_step_placement%NOTFOUND
2463: FETCH c_grade_step_placement into lv_exists ;
2464:
2465: IF c_grade_step_placement%NOTFOUND
2466: THEN
2467: hr_utility.set_location( l_proc,70);
2468: lv_exists := 'N' ;
2469: END IF ;
2470:
2471: -- statement here for error checking ;
2472: CLOSE c_grade_step_placement ;
2473:
2474: IF lv_exists ='Y'
2475: THEN
2476: hr_utility.set_location( l_proc,75);
2477: -- hr_utility.trace('c_grade_step_placement warning');
2478: warn_message := warn_message || hr_util_misc_web.return_msg_text(
2479: p_message_name=>'HR_PR_MSG06_WEB',
2480: p_Application_id=>'PER');
2473:
2474: IF lv_exists ='Y'
2475: THEN
2476: hr_utility.set_location( l_proc,75);
2477: -- hr_utility.trace('c_grade_step_placement warning');
2478: warn_message := warn_message || hr_util_misc_web.return_msg_text(
2479: p_message_name=>'HR_PR_MSG06_WEB',
2480: p_Application_id=>'PER');
2481: warn_message := warn_message || ' ';
2480: p_Application_id=>'PER');
2481: warn_message := warn_message || ' ';
2482: END IF ;
2483:
2484: -- hr_utility.trace(message );
2485:
2486: excep_message := message;
2487: p_warning_message := warn_message;
2488: p_pay_proposal_id := l_pay_Proposal_Id;
2489: p_current_salary := l_Current_Salary;
2490: p_ovn := ln_ovn;
2491: p_api_mode := 'INSERT';
2492:
2493: -- hr_utility.trace(excep_message );
2494:
2495:
2496: hr_utility.set_location(' Leaving:' || l_proc,80);
2497: END validate_salary_details;
2492:
2493: -- hr_utility.trace(excep_message );
2494:
2495:
2496: hr_utility.set_location(' Leaving:' || l_proc,80);
2497: END validate_salary_details;
2498:
2499:
2500: -- GSP changes
2521:
2522:
2523: BEGIN
2524:
2525: hr_utility.set_location(' Entering:' || l_proc,5);
2526: trans_exists := '';
2527: no_of_components := 0;
2528: is_multiple_payrate := '';
2529:
2526: trans_exists := '';
2527: no_of_components := 0;
2528: is_multiple_payrate := '';
2529:
2530: --hr_utility.trace(' ********** In is_transaction_exists ');
2531: --hr_utility.trace(' p_item_type' || p_item_type || ' ' ||
2532: -- ' p_item_key' || p_item_key || ' ' ||
2533: -- ' p_transaction_step_id' || p_transaction_step_id );
2534:
2527: no_of_components := 0;
2528: is_multiple_payrate := '';
2529:
2530: --hr_utility.trace(' ********** In is_transaction_exists ');
2531: --hr_utility.trace(' p_item_type' || p_item_type || ' ' ||
2532: -- ' p_item_key' || p_item_key || ' ' ||
2533: -- ' p_transaction_step_id' || p_transaction_step_id );
2534:
2535: ln_transaction_id := hr_transaction_ss.get_transaction_id
2537: p_Item_Key => p_item_key);
2538:
2539: IF p_transaction_step_id IS NOT NULL
2540: THEN
2541: hr_utility.set_location(l_proc,10);
2542: ln_no_of_components :=
2543: hr_transaction_api.get_number_value
2544: (p_transaction_step_id => p_transaction_step_id,
2545: p_name => 'p_no_of_components');
2544: (p_transaction_step_id => p_transaction_step_id,
2545: p_name => 'p_no_of_components');
2546:
2547: IF ln_no_of_components IS NOT NULL THEN
2548: hr_utility.set_location(l_proc,15);
2549: no_of_components := ln_no_of_components;
2550: END IF;
2551:
2552: lv_pay_rate_type :=
2554: (p_transaction_step_id => p_transaction_step_id,
2555: p_name => 'P_MULTIPLE_COMPONENTS');
2556:
2557: IF lv_pay_rate_type IS NOT NULL THEN
2558: hr_utility.set_location(l_proc,20);
2559: is_multiple_payrate := lv_pay_rate_type;
2560: END IF;
2561:
2562: lv_trans_exists := 'YES';
2563: trans_exists := lv_trans_exists;
2564:
2565: END IF;
2566:
2567: hr_utility.set_location(' Leaving:' || l_proc,25);
2568: EXCEPTION
2569: WHEN OTHERS THEN
2570: hr_utility.set_location(' Leaving:' || l_proc,555);
2571: raise;
2566:
2567: hr_utility.set_location(' Leaving:' || l_proc,25);
2568: EXCEPTION
2569: WHEN OTHERS THEN
2570: hr_utility.set_location(' Leaving:' || l_proc,555);
2571: raise;
2572: END get_transaction_step_details;
2573: -- End of GSP changes
2574:
2596: lv_pay_rate_type VARCHAR2(10) := '';
2597:
2598:
2599: BEGIN
2600: hr_utility.set_location(' Entering:' || l_proc,5);
2601: trans_exists := '';
2602: no_of_components := 0;
2603: is_multiple_payrate := '';
2604:
2601: trans_exists := '';
2602: no_of_components := 0;
2603: is_multiple_payrate := '';
2604:
2605: -- hr_utility.trace_on(null,'dev_log');
2606:
2607: -- hr_utility.trace(' ********** In is_transaction_exists ');
2608: --hr_utility.trace(' p_item_type' || p_item_type || ' ' ||
2609: -- ' p_item_key' || p_item_key || ' ' ||
2603: is_multiple_payrate := '';
2604:
2605: -- hr_utility.trace_on(null,'dev_log');
2606:
2607: -- hr_utility.trace(' ********** In is_transaction_exists ');
2608: --hr_utility.trace(' p_item_type' || p_item_type || ' ' ||
2609: -- ' p_item_key' || p_item_key || ' ' ||
2610: -- ' p_act_id' || p_act_id );
2611:
2604:
2605: -- hr_utility.trace_on(null,'dev_log');
2606:
2607: -- hr_utility.trace(' ********** In is_transaction_exists ');
2608: --hr_utility.trace(' p_item_type' || p_item_type || ' ' ||
2609: -- ' p_item_key' || p_item_key || ' ' ||
2610: -- ' p_act_id' || p_act_id );
2611:
2612: IF( hr_transaction_ss.check_txn_step_exists(
2614: p_item_key,
2615: p_act_id )= TRUE )
2616: THEN
2617:
2618: hr_utility.set_location(l_proc,10);
2619: ln_transaction_id := hr_transaction_ss.get_transaction_id
2620: (p_Item_Type => p_item_type,
2621: p_Item_Key => p_item_key);
2622:
2619: ln_transaction_id := hr_transaction_ss.get_transaction_id
2620: (p_Item_Type => p_item_type,
2621: p_Item_Key => p_item_key);
2622:
2623: -- hr_utility.trace(' ln_transaction_id ' || ln_transaction_id);
2624:
2625: IF ln_transaction_id IS NOT NULL
2626: THEN
2627: hr_utility.set_location(l_proc,15);
2623: -- hr_utility.trace(' ln_transaction_id ' || ln_transaction_id);
2624:
2625: IF ln_transaction_id IS NOT NULL
2626: THEN
2627: hr_utility.set_location(l_proc,15);
2628: hr_transaction_api.get_transaction_step_info
2629: (p_Item_Type => p_item_type,
2630: p_Item_Key => p_item_key,
2631: p_activity_id =>p_act_id,
2636:
2637: -- if no transaction steps are found , return
2638: IF ln_trans_step_rows < 1
2639: THEN
2640: hr_utility.set_location(' Leaving:' || l_proc,20);
2641: RETURN ;
2642: ELSE
2643: hr_utility.set_location(l_proc,25);
2644: hr_mee_workflow_service.get_activity_name
2639: THEN
2640: hr_utility.set_location(' Leaving:' || l_proc,20);
2641: RETURN ;
2642: ELSE
2643: hr_utility.set_location(l_proc,25);
2644: hr_mee_workflow_service.get_activity_name
2645: (p_item_type => p_item_type
2646: ,p_item_key => p_item_key
2647: ,p_actid => p_act_id
2648: ,p_activity_name => lv_activity_name
2649: ,p_activity_display_name => lv_activity_display_name);
2650:
2651:
2652: -- hr_utility.trace(' lv_activity_name ' || lv_activity_name);
2653:
2654: ln_transaction_step_id :=
2655: hr_transaction_ss.get_activity_trans_step_id
2656: (p_activity_name =>lv_activity_name,
2662: (p_transaction_step_id => ln_transaction_step_id,
2663: p_name => 'p_no_of_components');
2664:
2665: IF ln_no_of_components IS NOT NULL THEN
2666: hr_utility.set_location(l_proc,30);
2667: no_of_components := ln_no_of_components;
2668: END IF;
2669:
2670: -- hr_utility.trace(' ln_no_of_components ' || ln_no_of_components);
2666: hr_utility.set_location(l_proc,30);
2667: no_of_components := ln_no_of_components;
2668: END IF;
2669:
2670: -- hr_utility.trace(' ln_no_of_components ' || ln_no_of_components);
2671:
2672: lv_pay_rate_type :=
2673: hr_transaction_api.get_varchar2_value
2674: (p_transaction_step_id => ln_transaction_step_id,
2674: (p_transaction_step_id => ln_transaction_step_id,
2675: p_name => 'P_MULTIPLE_COMPONENTS');
2676:
2677: IF lv_pay_rate_type IS NOT NULL THEN
2678: hr_utility.set_location(l_proc,35);
2679: is_multiple_payrate := lv_pay_rate_type;
2680: END IF;
2681:
2682: -- hr_utility.trace(' is_multiple_payrate ' || is_multiple_payrate);
2678: hr_utility.set_location(l_proc,35);
2679: is_multiple_payrate := lv_pay_rate_type;
2680: END IF;
2681:
2682: -- hr_utility.trace(' is_multiple_payrate ' || is_multiple_payrate);
2683:
2684: lv_trans_exists := 'YES';
2685: trans_exists := lv_trans_exists;
2686:
2683:
2684: lv_trans_exists := 'YES';
2685: trans_exists := lv_trans_exists;
2686:
2687: -- hr_utility.trace(' trans_exists ' || trans_exists);
2688: END IF;
2689: END IF;
2690: END IF;
2691:
2689: END IF;
2690: END IF;
2691:
2692:
2693: hr_utility.set_location(' Leaving:' || l_proc,40);
2694: EXCEPTION
2695: WHEN OTHERS THEN
2696: hr_utility.set_location(' Leaving:' || l_proc,555);
2697: raise;
2692:
2693: hr_utility.set_location(' Leaving:' || l_proc,40);
2694: EXCEPTION
2695: WHEN OTHERS THEN
2696: hr_utility.set_location(' Leaving:' || l_proc,555);
2697: raise;
2698: END is_transaction_exists;
2699:
2700:
2712: ln_component_id NUMBER ;
2713: lv_message_number VARCHAR2(15);
2714:
2715: BEGIN
2716: hr_utility.set_location(' Entering:' || l_proc,5);
2717: -- hr_utility.trace(' ***** IN validate_component_api_java *****');
2718:
2719: -- get the no of components
2720: --ln_count := p_ltt_component.count ;
2713: lv_message_number VARCHAR2(15);
2714:
2715: BEGIN
2716: hr_utility.set_location(' Entering:' || l_proc,5);
2717: -- hr_utility.trace(' ***** IN validate_component_api_java *****');
2718:
2719: -- get the no of components
2720: --ln_count := p_ltt_component.count ;
2721:
2720: --ln_count := p_ltt_component.count ;
2721:
2722: ln_count := p_ltt_salary_data(1).no_of_components;
2723:
2724: -- hr_utility.trace('No Of Components In Component Proc' || ln_count);
2725: -- now call the component API for each component
2726: FOR i in 1..ln_count
2727: LOOP
2728: hr_maintain_proposal_api.insert_proposal_component(
2761:
2762: p_ltt_component(i).component_id := ln_component_id ;
2763: END LOOP ;
2764:
2765: -- hr_utility.trace(' ***** OUT validate_component_api_java *****');
2766:
2767:
2768: hr_utility.set_location(' Leaving:' || l_proc,10);
2769: EXCEPTION
2764:
2765: -- hr_utility.trace(' ***** OUT validate_component_api_java *****');
2766:
2767:
2768: hr_utility.set_location(' Leaving:' || l_proc,10);
2769: EXCEPTION
2770: WHEN hr_utility.hr_error THEN
2771: hr_utility.set_location(' Leaving:' || l_proc,555);
2772: -- ROLLBACK;
2766:
2767:
2768: hr_utility.set_location(' Leaving:' || l_proc,10);
2769: EXCEPTION
2770: WHEN hr_utility.hr_error THEN
2771: hr_utility.set_location(' Leaving:' || l_proc,555);
2772: -- ROLLBACK;
2773: -- hr_utility.trace('Utility Exception in validate_component_api_java');
2774: raise;
2767:
2768: hr_utility.set_location(' Leaving:' || l_proc,10);
2769: EXCEPTION
2770: WHEN hr_utility.hr_error THEN
2771: hr_utility.set_location(' Leaving:' || l_proc,555);
2772: -- ROLLBACK;
2773: -- hr_utility.trace('Utility Exception in validate_component_api_java');
2774: raise;
2775: --hr_message.provide_error;
2769: EXCEPTION
2770: WHEN hr_utility.hr_error THEN
2771: hr_utility.set_location(' Leaving:' || l_proc,555);
2772: -- ROLLBACK;
2773: -- hr_utility.trace('Utility Exception in validate_component_api_java');
2774: raise;
2775: --hr_message.provide_error;
2776: -- lv_message_number := hr_message.last_message_number;
2777: --hr_errors_api.addErrorToTable(
2778: -- p_errormsg => hr_message.get_message_text,
2779: -- p_errorcode => lv_message_number);
2780:
2781: WHEN OTHERS THEN
2782: hr_utility.set_location(' Leaving:' || l_proc,560);
2783: ROLLBACK;
2784: -- hr_utility.trace(' Others Exception in validate_component_api_java');
2785: raise;
2786: --hr_util_disp_web.display_fatal_errors (
2780:
2781: WHEN OTHERS THEN
2782: hr_utility.set_location(' Leaving:' || l_proc,560);
2783: ROLLBACK;
2784: -- hr_utility.trace(' Others Exception in validate_component_api_java');
2785: raise;
2786: --hr_util_disp_web.display_fatal_errors (
2787: -- p_message => UPPER(gv_package_name ||
2788: -- '.validate_component_api: '|| SQLERRM));
2829: and change_date = ld_effec_date;
2830:
2831: BEGIN
2832:
2833: -- hr_utility.trace(' ***** IN validate_salary_ins_api_java *****');
2834:
2835: /*
2836: message := message ||
2837: ' attribute_category' || p_ltt_salary_data(1).attribute_category ||
2857: ' attribute20' || p_ltt_salary_data(1).attribute20 ||
2858: ' no_of_components' || p_ltt_salary_data(1).no_of_components ;
2859:
2860:
2861: hr_utility.trace(message);
2862: */
2863:
2864: hr_utility.set_location(' Entering:' || l_proc,5);
2865: if(p_effective_date is null) then
2860:
2861: hr_utility.trace(message);
2862: */
2863:
2864: hr_utility.set_location(' Entering:' || l_proc,5);
2865: if(p_effective_date is null) then
2866: hr_utility.set_location(l_proc,10);
2867: ld_effec_date := p_ltt_salary_data(1).effective_date;
2868: else
2862: */
2863:
2864: hr_utility.set_location(' Entering:' || l_proc,5);
2865: if(p_effective_date is null) then
2866: hr_utility.set_location(l_proc,10);
2867: ld_effec_date := p_ltt_salary_data(1).effective_date;
2868: else
2869: hr_utility.set_location(l_proc,15);
2870: ld_effec_date := to_date(p_effective_date, 'RRRR-MM-DD');
2865: if(p_effective_date is null) then
2866: hr_utility.set_location(l_proc,10);
2867: ld_effec_date := p_ltt_salary_data(1).effective_date;
2868: else
2869: hr_utility.set_location(l_proc,15);
2870: ld_effec_date := to_date(p_effective_date, 'RRRR-MM-DD');
2871: end if;
2872: -- check if multiple components exists
2873: -- call the salary API in validate mode
2879:
2880:
2881: IF p_ltt_salary_data(1).multiple_components = 'Y'
2882: THEN
2883: hr_utility.set_location(l_proc,20);
2884: lv_proposal_reason := NULL ;
2885: ELSE
2886: hr_utility.set_location(l_proc,25);
2887: lv_proposal_reason := p_ltt_salary_data(1).proposal_reason ;
2882: THEN
2883: hr_utility.set_location(l_proc,20);
2884: lv_proposal_reason := NULL ;
2885: ELSE
2886: hr_utility.set_location(l_proc,25);
2887: lv_proposal_reason := p_ltt_salary_data(1).proposal_reason ;
2888: END IF ;
2889:
2890: -- hr_utility.trace(' *****************************************************');
2886: hr_utility.set_location(l_proc,25);
2887: lv_proposal_reason := p_ltt_salary_data(1).proposal_reason ;
2888: END IF ;
2889:
2890: -- hr_utility.trace(' *****************************************************');
2891: -- hr_utility.trace(' Start hr_maintain_proposal_api.insert_salary_proposal');
2892: -- hr_utility.trace(' *****************************************************');
2893:
2894:
2887: lv_proposal_reason := p_ltt_salary_data(1).proposal_reason ;
2888: END IF ;
2889:
2890: -- hr_utility.trace(' *****************************************************');
2891: -- hr_utility.trace(' Start hr_maintain_proposal_api.insert_salary_proposal');
2892: -- hr_utility.trace(' *****************************************************');
2893:
2894:
2895:
2888: END IF ;
2889:
2890: -- hr_utility.trace(' *****************************************************');
2891: -- hr_utility.trace(' Start hr_maintain_proposal_api.insert_salary_proposal');
2892: -- hr_utility.trace(' *****************************************************');
2893:
2894:
2895:
2896:
2996:
2997: END IF;
2998:
2999:
3000: -- hr_utility.trace(' *****************************************************');
3001: -- hr_utility.trace(' l_pay_proposal_id' || l_pay_proposal_id);
3002: -- hr_utility.trace(' l_element_entry_id ' || l_element_entry_id);
3003: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
3004: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
2997: END IF;
2998:
2999:
3000: -- hr_utility.trace(' *****************************************************');
3001: -- hr_utility.trace(' l_pay_proposal_id' || l_pay_proposal_id);
3002: -- hr_utility.trace(' l_element_entry_id ' || l_element_entry_id);
3003: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
3004: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
3005: if ( l_approved_warning) then hr_utility.trace(' l_approved_warning ' ); end if;
2998:
2999:
3000: -- hr_utility.trace(' *****************************************************');
3001: -- hr_utility.trace(' l_pay_proposal_id' || l_pay_proposal_id);
3002: -- hr_utility.trace(' l_element_entry_id ' || l_element_entry_id);
3003: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
3004: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
3005: if ( l_approved_warning) then hr_utility.trace(' l_approved_warning ' ); end if;
3006: if ( l_payroll_warning) then hr_utility.trace(' l_payroll_warning ' ); end if;
2999:
3000: -- hr_utility.trace(' *****************************************************');
3001: -- hr_utility.trace(' l_pay_proposal_id' || l_pay_proposal_id);
3002: -- hr_utility.trace(' l_element_entry_id ' || l_element_entry_id);
3003: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
3004: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
3005: if ( l_approved_warning) then hr_utility.trace(' l_approved_warning ' ); end if;
3006: if ( l_payroll_warning) then hr_utility.trace(' l_payroll_warning ' ); end if;
3007: -- hr_utility.trace(' *****************************************************');
3000: -- hr_utility.trace(' *****************************************************');
3001: -- hr_utility.trace(' l_pay_proposal_id' || l_pay_proposal_id);
3002: -- hr_utility.trace(' l_element_entry_id ' || l_element_entry_id);
3003: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
3004: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
3005: if ( l_approved_warning) then hr_utility.trace(' l_approved_warning ' ); end if;
3006: if ( l_payroll_warning) then hr_utility.trace(' l_payroll_warning ' ); end if;
3007: -- hr_utility.trace(' *****************************************************');
3008:
3001: -- hr_utility.trace(' l_pay_proposal_id' || l_pay_proposal_id);
3002: -- hr_utility.trace(' l_element_entry_id ' || l_element_entry_id);
3003: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
3004: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
3005: if ( l_approved_warning) then hr_utility.trace(' l_approved_warning ' ); end if;
3006: if ( l_payroll_warning) then hr_utility.trace(' l_payroll_warning ' ); end if;
3007: -- hr_utility.trace(' *****************************************************');
3008:
3009:
3002: -- hr_utility.trace(' l_element_entry_id ' || l_element_entry_id);
3003: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
3004: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
3005: if ( l_approved_warning) then hr_utility.trace(' l_approved_warning ' ); end if;
3006: if ( l_payroll_warning) then hr_utility.trace(' l_payroll_warning ' ); end if;
3007: -- hr_utility.trace(' *****************************************************');
3008:
3009:
3010:
3003: if ( l_next_sal_date_warning) then hr_utility.trace(' l_next_sal_date_warning ' ); end if;
3004: if ( l_proposed_sal_warning) then hr_utility.trace(' l_proposed_sal_warning ' ); end if;
3005: if ( l_approved_warning) then hr_utility.trace(' l_approved_warning ' ); end if;
3006: if ( l_payroll_warning) then hr_utility.trace(' l_payroll_warning ' ); end if;
3007: -- hr_utility.trace(' *****************************************************');
3008:
3009:
3010:
3011: -- hr_utility.trace(' End hr_maintain_proposal_api.insert_salary_proposal');
3007: -- hr_utility.trace(' *****************************************************');
3008:
3009:
3010:
3011: -- hr_utility.trace(' End hr_maintain_proposal_api.insert_salary_proposal');
3012:
3013: p_ltt_salary_data(1).pay_proposal_id := l_pay_proposal_id ;
3014:
3015: p_ltt_salary_data(1).element_entry_id := l_element_entry_id ;
3016:
3017:
3018: IF p_ltt_salary_data(1).multiple_components = 'Y'
3019: THEN
3020: hr_utility.set_location(l_proc,30);
3021: -- hr_utility.trace(' Start validate_component_api_java.insert_salary_proposal');
3022:
3023: validate_component_api_java(
3024: p_ltt_salary_data,
3017:
3018: IF p_ltt_salary_data(1).multiple_components = 'Y'
3019: THEN
3020: hr_utility.set_location(l_proc,30);
3021: -- hr_utility.trace(' Start validate_component_api_java.insert_salary_proposal');
3022:
3023: validate_component_api_java(
3024: p_ltt_salary_data,
3025: p_ltt_component ,
3023: validate_component_api_java(
3024: p_ltt_salary_data,
3025: p_ltt_component ,
3026: p_validate ) ;
3027: -- hr_utility.trace(' End validate_component_api_java.insert_salary_proposal');
3028:
3029:
3030: END IF ;
3031:
3031:
3032:
3033: IF p_validate
3034: THEN
3035: hr_utility.set_location(l_proc,40);
3036: ROLLBACK to insert_salary ;
3037: lb_save_point_exists := FALSE;
3038: END IF ;
3039:
3042: p_approved_warning := l_approved_warning;
3043: p_payroll_warning := l_payroll_warning;
3044:
3045:
3046: hr_utility.set_location(' Leaving:' || l_proc,45);
3047: EXCEPTION
3048: WHEN hr_utility.hr_error THEN
3049:
3050: IF lb_save_point_exists
3044:
3045:
3046: hr_utility.set_location(' Leaving:' || l_proc,45);
3047: EXCEPTION
3048: WHEN hr_utility.hr_error THEN
3049:
3050: IF lb_save_point_exists
3051: THEN
3052: ROLLBACK to insert_salary;
3051: THEN
3052: ROLLBACK to insert_salary;
3053: END IF;
3054:
3055: --hr_utility.trace(' validate_salary_ins_api_java Execption hr_utility ');
3056: hr_utility.set_location(' Leaving:' || l_proc,555);
3057: raise;
3058: --hr_message.provide_error;
3059: --lv_message_number := hr_message.last_message_number;
3052: ROLLBACK to insert_salary;
3053: END IF;
3054:
3055: --hr_utility.trace(' validate_salary_ins_api_java Execption hr_utility ');
3056: hr_utility.set_location(' Leaving:' || l_proc,555);
3057: raise;
3058: --hr_message.provide_error;
3059: --lv_message_number := hr_message.last_message_number;
3060: --hr_errors_api.addErrorToTable(
3065: WHEN OTHERS THEN
3066: --hr_util_disp_web.display_fatal_errors (
3067: -- p_message => UPPER(gv_package_name || '.validate_salary_insert_api: '
3068: -- ||SQLERRM));
3069: --hr_utility.trace(' validate_salary_ins_api_java When Others Execption '|| SQLERRM);
3070: IF lb_save_point_exists
3071: THEN
3072: ROLLBACK to insert_salary;
3073: END IF;
3070: IF lb_save_point_exists
3071: THEN
3072: ROLLBACK to insert_salary;
3073: END IF;
3074: hr_utility.set_location(' Leaving:' || l_proc,560);
3075: raise;
3076:
3077:
3078: END validate_salary_ins_api_java;
3130:
3131: gtt_trans_steps hr_transaction_ss.transaction_table;
3132:
3133: BEGIN
3134: hr_utility.set_location(' Entering:' || l_proc,5);
3135: -- bug # 1641590
3136:
3137: -- hr_utility.trace('Start Maintain Transaction');
3138:
3133: BEGIN
3134: hr_utility.set_location(' Entering:' || l_proc,5);
3135: -- bug # 1641590
3136:
3137: -- hr_utility.trace('Start Maintain Transaction');
3138:
3139: lv_review_url := gv_package_name||'.salary_review';
3140: --lv_api_name := gv_package_name||'.process_api_java' ;
3141: lv_api_name := gv_package_name||'.PROCESS_API' ;
3145: ln_creator_person_id := wf_engine.GetItemAttrNumber(p_item_type,
3146: p_item_key,
3147: 'CREATOR_PERSON_ID');
3148:
3149: -- hr_utility.trace('Creator Person Id ' || ln_creator_person_id);
3150:
3151: --insert into dev_test values (' In Maintain Transaction ');
3152: -- commit;
3153:
3259: gtt_trans_steps(li_count).param_value :=
3260: p_ltt_salary_data(1).annual_change;
3261: gtt_trans_steps(li_count).param_data_type := 'NUMBER' ;
3262:
3263: -- hr_utility.trace('setting p_annual_change ' || p_ltt_salary_data(1).annual_change);
3264:
3265:
3266: li_count:= li_count + 1 ;
3267: gtt_trans_steps(li_count).param_name := 'p_proposal_reason' ;
3304: gtt_trans_steps(li_count).param_value :=
3305: p_ltt_salary_data(1).quartile;
3306: gtt_trans_steps(li_count).param_data_type := 'NUMBER' ;
3307:
3308: -- hr_utility.trace('setting p_quartile ' || p_ltt_salary_data(1).quartile);
3309:
3310: li_count:= li_count + 1 ;
3311: gtt_trans_steps(li_count).param_name := 'p_comparatio' ;
3312: gtt_trans_steps(li_count).param_value :=
3312: gtt_trans_steps(li_count).param_value :=
3313: p_ltt_salary_data(1).comparatio;
3314: gtt_trans_steps(li_count).param_data_type := 'NUMBER' ;
3315:
3316: -- hr_utility.trace('setting p_comparatio ' || p_ltt_salary_data(1).comparatio);
3317:
3318: li_count:= li_count + 1 ;
3319: gtt_trans_steps(li_count).param_name := 'p_ranking' ;
3320: gtt_trans_steps(li_count).param_value :=
3327: gtt_trans_steps(li_count).param_value :=
3328: p_ltt_salary_data(1).comments;
3329: gtt_trans_steps(li_count).param_data_type := 'VARCHAR2' ;
3330:
3331: -- hr_utility.trace('setting p_comments ' || p_ltt_salary_data(1).comments);
3332:
3333: li_count:= li_count + 1 ;
3334: gtt_trans_steps(li_count).param_name := 'p_element_entry_id' ;
3335: gtt_trans_steps(li_count).param_value :=
3358: := p_ltt_salary_data(1).no_of_components;
3359: gtt_trans_steps(li_count).param_data_type
3360: := 'NUMBER';
3361:
3362: -- hr_utility.trace(' p_no_of_components ' || p_ltt_salary_data(1).no_of_components);
3363:
3364: li_count := li_count + 1;
3365: gtt_trans_steps(li_count).param_name
3366: := 'p_attribute1';
3521: := p_ltt_salary_data(1).attribute20;
3522: gtt_trans_steps(li_count).param_data_type
3523: := 'VARCHAR2';
3524:
3525: -- hr_utility.trace('Populated Proposal Values ');
3526: -- store components record here
3527: -- each component record will be stored as individual parameters with
3528: -- suffix no identifying the record number
3529: -- for example, component row 1 will be stored as component_id1,
3544: message := ' ln_no_of_components =' || ln_no_of_components;
3545: --insert into dev_test values (' Written Proposal Values ');
3546: -- commit;
3547:
3548: -- hr_utility.trace('No Of Components' || ln_no_of_components);
3549: FOR i in 1..ln_no_of_components
3550: LOOP
3551: li_count := li_count + 1 ;
3552: gtt_trans_steps(li_count).param_name := 'p_approved'||i ;
3906:
3907: --insert into dev_test values (' prepared component values for writing to Txn Tables');
3908: --commit;
3909:
3910: -- hr_utility.trace('Populated Component values in Global Struct');
3911:
3912: /********
3913: -- check if there is a txn for this transaction
3914: ln_transaction_id :=
3915: hr_transaction_ss.get_transaction_id
3916: (p_Item_Type => p_item_type
3917: ,p_Item_Key => p_item_key);
3918:
3919: hr_utility.trace('No Txn Exists' || ln_transaction_id);
3920: -- insert into dev_test values (' Txn does not exist in Maintain function');
3921: --commit;
3922:
3923: -- if txn is not started , create a new one
3922:
3923: -- if txn is not started , create a new one
3924: IF ln_transaction_id IS NULL
3925: THEN
3926: hr_utility.set_location(l_proc,10);
3927: hr_utility.trace('Start Txn' );
3928:
3929: start_transaction(p_item_type
3930: ,p_item_key
3923: -- if txn is not started , create a new one
3924: IF ln_transaction_id IS NULL
3925: THEN
3926: hr_utility.set_location(l_proc,10);
3927: hr_utility.trace('Start Txn' );
3928:
3929: start_transaction(p_item_type
3930: ,p_item_key
3931: ,p_act_id
3932: ,'RUN'
3933: ,ln_creator_person_id
3934: ,result );
3935:
3936: hr_utility.trace('Started Txn with result '||result);
3937: -- insert into dev_test values (' result of start_transaction' || lv_result);
3938: -- commit;
3939:
3940: ln_transaction_id :=
3948:
3949:
3950:
3951:
3952: hr_utility.trace('Created Txn' || ln_transaction_id);
3953: --insert into dev_test values (' Created Txn');
3954: --commit;
3955:
3956: -- now we have a valid txn id , let's find out txn steps
3961: ,p_transaction_step_id => ltt_trans_step_ids
3962: ,p_object_version_number => ltt_trans_obj_vers_num
3963: ,p_rows => ln_trans_step_rows);
3964:
3965: hr_utility.trace('get_transaction_step_info completed');
3966:
3967: IF ln_trans_step_rows < 1 THEN
3968: hr_utility.set_location(l_proc,15);
3969:
3964:
3965: hr_utility.trace('get_transaction_step_info completed');
3966:
3967: IF ln_trans_step_rows < 1 THEN
3968: hr_utility.set_location(l_proc,15);
3969:
3970: --There is no transaction step for this transaction.
3971: --Create a step within this new transaction
3972:
3969:
3970: --There is no transaction step for this transaction.
3971: --Create a step within this new transaction
3972:
3973: hr_utility.trace('create_transaction_step ');
3974:
3975: hr_transaction_api.create_transaction_step
3976: (p_validate => false
3977: ,p_creator_person_id => ln_creator_person_id
3982: ,p_activity_id => p_act_id
3983: ,p_transaction_step_id => ln_transaction_step_id
3984: ,p_object_version_number =>ln_ovn ) ;
3985:
3986: hr_utility.trace('ln_transaction_id ' || ln_transaction_id);
3987: hr_utility.trace('ln_transaction_step_id ' || ln_transaction_step_id);
3988: ELSE
3989:
3990: hr_utility.set_location(l_proc,20);
3983: ,p_transaction_step_id => ln_transaction_step_id
3984: ,p_object_version_number =>ln_ovn ) ;
3985:
3986: hr_utility.trace('ln_transaction_id ' || ln_transaction_id);
3987: hr_utility.trace('ln_transaction_step_id ' || ln_transaction_step_id);
3988: ELSE
3989:
3990: hr_utility.set_location(l_proc,20);
3991: --There are transaction steps for this transaction.
3986: hr_utility.trace('ln_transaction_id ' || ln_transaction_id);
3987: hr_utility.trace('ln_transaction_step_id ' || ln_transaction_step_id);
3988: ELSE
3989:
3990: hr_utility.set_location(l_proc,20);
3991: --There are transaction steps for this transaction.
3992: --Get the Transaction Step ID for this activity.
3993:
3994: hr_utility.trace('Txn Step Id'|| ln_transaction_step_id);
3990: hr_utility.set_location(l_proc,20);
3991: --There are transaction steps for this transaction.
3992: --Get the Transaction Step ID for this activity.
3993:
3994: hr_utility.trace('Txn Step Id'|| ln_transaction_step_id);
3995: ln_transaction_step_id :=
3996: hr_Transaction_ss.get_activity_trans_step_id (
3997: p_activity_name => lv_activity_name,
3998: p_trans_step_id_tbl => ltt_trans_step_ids);
4004: LOOP
4005: message := message || gtt_trans_steps(i).param_value;
4006: END LOOP;
4007:
4008: hr_utility.trace('GLOBAL STRUCTURE' || message );
4009:
4010: --insert into dev_test values (' created Txn Step');
4011: --commit;
4012: ************/
4013:
4014: -- save the txn data
4015: --hr_transaction_ss.save_transaction_step(
4016:
4017: -- hr_utility.trace('Create Transaction and Transaction Step ');
4018:
4019: open get_transaction_step_id
4020: (c_item_type => p_item_type
4021: ,c_item_key => p_item_key
4023:
4024: fetch get_transaction_step_id into ln_transaction_step_id;
4025: close get_transaction_step_id;
4026:
4027: -- hr_utility.trace(' existing ln_transaction_step_id ' || ln_transaction_step_id);
4028:
4029: hr_transaction_ss.save_transaction_step(
4030: p_Item_Type => p_item_type
4031: ,p_Item_Key => p_item_key
4038: ,p_rptg_grp_id => p_rptg_grp_id
4039: ,p_effective_date_option => p_effective_date_option);
4040:
4041:
4042: -- hr_utility.trace(' Transaction Step Id ' || ln_transaction_step_id );
4043:
4044: -- hr_utility.trace('Saved Txn Steps to Txn Tables');
4045: --insert into dev_test values (' written values to Txn Tables');
4046: --commit;
4040:
4041:
4042: -- hr_utility.trace(' Transaction Step Id ' || ln_transaction_step_id );
4043:
4044: -- hr_utility.trace('Saved Txn Steps to Txn Tables');
4045: --insert into dev_test values (' written values to Txn Tables');
4046: --commit;
4047: -- transaction data has been stored ,
4048: -- transition this activity
4054:
4055:
4056: p_step_id := ln_transaction_step_id;
4057:
4058: hr_utility.set_location(' Leaving:' || l_proc,25);
4059: EXCEPTION
4060: WHEN OTHERS THEN
4061: message := 'Exception in maintain_txn_java' || SQLERRM;
4062:
4059: EXCEPTION
4060: WHEN OTHERS THEN
4061: message := 'Exception in maintain_txn_java' || SQLERRM;
4062:
4063: -- hr_utility.trace(message);
4064: hr_utility.set_location(' Leaving:' || l_proc,555);
4065: raise;
4066: --insert into dev_test values(message);
4067: --commit;
4060: WHEN OTHERS THEN
4061: message := 'Exception in maintain_txn_java' || SQLERRM;
4062:
4063: -- hr_utility.trace(message);
4064: hr_utility.set_location(' Leaving:' || l_proc,555);
4065: raise;
4066: --insert into dev_test values(message);
4067: --commit;
4068: END maintain_txn_java;
4115: lv_disp_warn_error_max_rate varchar2(20) default null;
4116:
4117: BEGIN
4118:
4119: hr_utility.set_location(' Entering:' || l_proc,5);
4120: -- 04/24/02 Change Begins
4121: -- Save the previous salary and old pay annualization factor because
4122: -- my_get_defaults will overwrite these 2 values when a salary basis is
4123: -- changed and element_type_id is different between the old and the new.
4128: if(p_save_mode = 'SAVE_FOR_LATER') then
4129: if p_flow_mode is not null and
4130: p_flow_mode = hr_process_assignment_ss.g_new_hire_registration
4131: then
4132: hr_utility.set_location(l_proc,10);
4133: rollback;
4134: end if;
4135:
4136: maintain_txn_java(p_item_type => p_item_type
4201: ' attribute19' || ltt_salary_data(1).attribute19 ||
4202: ' attribute20' || ltt_salary_data(1).attribute20 ||
4203: ' no_of_components' || ltt_salary_data(1).no_of_components ;
4204:
4205: hr_utility.trace(message);
4206:
4207: for i in 1 .. ltt_component(i).
4208: message := ' COMPONENT VALUES' ||
4209: 'component_id'|| ltt_component(i).component_id ||
4238: 'attribute19'|| ltt_component(i).attribute19 ||
4239: 'attribute20'|| ltt_component(i).attribute20 ||
4240: 'object_version_number'|| ltt_component(i).object_version_number ;
4241:
4242: hr_utility.trace(message);
4243: */
4244: --insert into dev_test values (message);
4245: --commit;
4246:
4291: p_item_key => p_item_key);
4292: IF (( hr_process_person_ss.g_assignment_id is not null) and
4293: (hr_process_person_ss.g_session_id= ICX_SEC.G_SESSION_ID))
4294: THEN
4295: hr_utility.set_location(l_proc,15);
4296: -- Set the Assignment Id to the one just created, don't use the
4297: -- transaction table.
4298: ltt_salary_data(1).assignment_id := hr_process_person_ss.g_assignment_id;
4299: END IF;
4384: -- 04/24/02 Change Ends
4385:
4386:
4387: if (p_api_mode = 'INSERT') then
4388: hr_utility.set_location(l_proc,20);
4389: validate_salary_ins_api_java (
4390: p_item_type => p_item_type
4391: ,p_item_key => p_item_key
4392: ,p_act_id => p_act_id
4402:
4403: -- The following warning message names were obtained from PERWSEPY.fmb.
4404: IF lb_inv_next_sal_date_warning
4405: THEN
4406: hr_utility.set_location(l_proc,25);
4407: -- Need to construct the output p_warning_msg_name parm with the
4408: -- following format:
4409: -- PER,HR_7340_SAL_ASS_TERMINATED|PAY,HR_APP_PROPOS_APP_COMP| .....
4410: p_warning_msg_name := 'PER,HR_7340_SAL_ASS_TERMINATED|';
4411: END IF;
4412:
4413: IF lb_proposed_salary_warning
4414: THEN
4415: hr_utility.set_location(l_proc,30);
4416: -- fix for bug#2826852
4417: -- new config option
4418: -- get the activity attribute DISP_WARN_ERROR_PAY_RATE
4419: lv_disp_warn_error_max_rate:= wf_engine.GetActivityAttrText(itemtype =>p_item_type,
4424: if(lv_disp_warn_error_max_rate='WARNING') then
4425: p_warning_msg_name := p_warning_msg_name ||
4426: 'PAY,HR_SAL_SAL_ELE_RANGE_WARN|';
4427: elsif(lv_disp_warn_error_max_rate='ERROR') then
4428: hr_utility.set_message(801, 'HR_SAL_SAL_ELE_RANGE_WARN');
4429: raise g_exceeded_grade_range;
4430: end if;
4431: END IF;
4432:
4431: END IF;
4432:
4433: IF lb_approved_warning
4434: THEN
4435: hr_utility.set_location(l_proc,35);
4436: p_warning_msg_name := p_warning_msg_name ||
4437: 'PAY,HR_APP_PROPOS_APP_COMP|';
4438: END IF;
4439:
4438: END IF;
4439:
4440: IF lb_payroll_warning
4441: THEN
4442: hr_utility.set_location(l_proc,40);
4443: p_warning_msg_name := p_warning_msg_name ||
4444: 'PER,HR_SAL_PAYROLL_PERIOD_CLOSED|';
4445: END IF;
4446:
4447:
4448: rollback to pay2 ;
4449: lb_save_point_pay2_exists := false;
4450:
4451: -- hr_utility.trace('Validated Proposal and Components');
4452:
4453: -- 05/03/02 Salary Basis Enhancement Begins
4454:
4455: --start registration
4459: -- there is no dummy person created in Applicant Hire in the txn.
4460: IF p_flow_mode is not null and
4461: p_flow_mode = hr_process_assignment_ss.g_new_hire_registration
4462: THEN
4463: hr_utility.set_location(l_proc,45);
4464: rollback;
4465: END IF;
4466: --end registration
4467:
4481: ,p_plan_id => p_plan_id
4482: ,p_effective_date_option => p_effective_date_option
4483: );
4484:
4485: -- hr_utility.trace('End of process_salary_java');
4486: -- hr_utility.trace_off;
4487: END IF; -- end of save for later
4488:
4489: hr_utility.set_location(' Leaving:' || l_proc,50);
4482: ,p_effective_date_option => p_effective_date_option
4483: );
4484:
4485: -- hr_utility.trace('End of process_salary_java');
4486: -- hr_utility.trace_off;
4487: END IF; -- end of save for later
4488:
4489: hr_utility.set_location(' Leaving:' || l_proc,50);
4490: EXCEPTION
4485: -- hr_utility.trace('End of process_salary_java');
4486: -- hr_utility.trace_off;
4487: END IF; -- end of save for later
4488:
4489: hr_utility.set_location(' Leaving:' || l_proc,50);
4490: EXCEPTION
4491: WHEN hr_utility.hr_error THEN
4492: p_error_msg_text := hr_message.get_message_text;
4493:
4487: END IF; -- end of save for later
4488:
4489: hr_utility.set_location(' Leaving:' || l_proc,50);
4490: EXCEPTION
4491: WHEN hr_utility.hr_error THEN
4492: p_error_msg_text := hr_message.get_message_text;
4493:
4494: --start registration
4495: -- This is to rollback the dummy person created during the process
4506: IF lb_save_point_pay2_exists
4507: THEN
4508: rollback;
4509: END IF;
4510: hr_utility.set_location(' Leaving:' || l_proc,555);
4511:
4512: WHEN g_exceeded_grade_range THEN
4513: p_error_msg_text := hr_util_misc_web.return_msg_text(
4514: p_message_name=>'HR_SAL_SAL_ELE_RANGE_WARN',
4530: IF lb_save_point_pay2_exists
4531: THEN
4532: rollback;
4533: END IF;
4534: hr_utility.set_location(' Leaving:' || l_proc,560);
4535:
4536: WHEN OTHERS THEN
4537: p_error_msg_text := hr_message.get_message_text;
4538:
4552: IF lb_save_point_pay2_exists
4553: THEN
4554: rollback;
4555: END IF;
4556: hr_utility.set_location(' Leaving:' || l_proc,565);
4557:
4558: END process_salary_java ;
4559:
4560: -- ---------------------------------------------------------
4577: ln_no_of_components NUMBER ;
4578: i INTEGER ;
4579: lv_activity_display_name VARCHAR2(100);
4580: BEGIN
4581: hr_utility.set_location(' Entering:' || l_proc,5);
4582:
4583: -- hr_utility.trace_on(null,'dev_log');
4584:
4585:
4579: lv_activity_display_name VARCHAR2(100);
4580: BEGIN
4581: hr_utility.set_location(' Entering:' || l_proc,5);
4582:
4583: -- hr_utility.trace_on(null,'dev_log');
4584:
4585:
4586:
4587: ln_transaction_id := hr_transaction_ss.get_transaction_id
4589: p_Item_Key => p_item_key);
4590:
4591: IF ln_transaction_id IS NOT NULL
4592: THEN
4593: hr_utility.set_location(l_proc,10);
4594: -- hr_utility.trace('Transaction Exists');
4595: hr_transaction_api.get_transaction_step_info
4596: (p_Item_Type => p_item_type,
4597: p_Item_Key => p_item_key,
4590:
4591: IF ln_transaction_id IS NOT NULL
4592: THEN
4593: hr_utility.set_location(l_proc,10);
4594: -- hr_utility.trace('Transaction Exists');
4595: hr_transaction_api.get_transaction_step_info
4596: (p_Item_Type => p_item_type,
4597: p_Item_Key => p_item_key,
4598: p_activity_id =>p_act_id,
4603:
4604: -- if no transaction steps are found , return
4605: IF ln_trans_step_rows < 1
4606: THEN
4607: hr_utility.set_location(' Leaving:' || l_proc,15);
4608: -- hr_utility.trace('no transaction steps are found ');
4609: RETURN ;
4610: ELSE
4611: hr_utility.set_location(l_proc,20);
4604: -- if no transaction steps are found , return
4605: IF ln_trans_step_rows < 1
4606: THEN
4607: hr_utility.set_location(' Leaving:' || l_proc,15);
4608: -- hr_utility.trace('no transaction steps are found ');
4609: RETURN ;
4610: ELSE
4611: hr_utility.set_location(l_proc,20);
4612: -- hr_utility.trace(' Transaction Step Found');
4607: hr_utility.set_location(' Leaving:' || l_proc,15);
4608: -- hr_utility.trace('no transaction steps are found ');
4609: RETURN ;
4610: ELSE
4611: hr_utility.set_location(l_proc,20);
4612: -- hr_utility.trace(' Transaction Step Found');
4613: hr_mee_workflow_service.get_activity_name
4614: (p_item_type => p_item_type
4615: ,p_item_key => p_item_key
4608: -- hr_utility.trace('no transaction steps are found ');
4609: RETURN ;
4610: ELSE
4611: hr_utility.set_location(l_proc,20);
4612: -- hr_utility.trace(' Transaction Step Found');
4613: hr_mee_workflow_service.get_activity_name
4614: (p_item_type => p_item_type
4615: ,p_item_key => p_item_key
4616: ,p_actid => p_act_id
4621: hr_transaction_ss.get_activity_trans_step_id
4622: (p_activity_name =>lv_activity_name,
4623: p_trans_step_id_tbl => ltt_trans_step_ids);
4624:
4625: -- hr_utility.trace(' ln_transaction_step_id ' || ln_transaction_step_id);
4626:
4627: -- now get the individual salary data
4628: p_ltt_salary_data(1).current_salary :=
4629: hr_transaction_api.get_number_value
4629: hr_transaction_api.get_number_value
4630: (p_transaction_step_id => ln_transaction_step_id,
4631: p_name =>'p_current_salary');
4632:
4633: -- hr_utility.trace(' p_current_salary ' || p_ltt_salary_data(1).current_salary);
4634:
4635: p_ltt_salary_data(1).assignment_id :=
4636: hr_transaction_api.get_number_value
4637: (p_transaction_step_id => ln_transaction_step_id,
4643: hr_transaction_api.get_number_value
4644: (p_transaction_step_id => ln_transaction_step_id,
4645: p_name =>'p_bus_group_id');
4646:
4647: -- hr_utility.trace(' p_bus_group_id ' || p_ltt_salary_data(1).business_group_id);
4648:
4649: p_ltt_salary_data(1).effective_date :=
4650: hr_transaction_api.get_date_value
4651: (p_transaction_step_id => ln_transaction_step_id,
4667: hr_transaction_api.get_number_value
4668: (p_transaction_step_id => ln_transaction_step_id,
4669: p_name =>'p_change_amount');
4670:
4671: -- hr_utility.trace(' p_change_amount ' || p_ltt_salary_data(1).salary_change_amount);
4672:
4673: p_ltt_salary_data(1).annual_change:=
4674: hr_transaction_api.get_number_value
4675: (p_transaction_step_id => ln_transaction_step_id,
4674: hr_transaction_api.get_number_value
4675: (p_transaction_step_id => ln_transaction_step_id,
4676: p_name =>'p_annual_change');
4677:
4678: -- hr_utility.trace(' p_annual_change ' || p_ltt_salary_data(1).annual_change);
4679:
4680:
4681: p_ltt_salary_data(1).salary_change_percent:=
4682: hr_transaction_api.get_number_value
4765: p_transaction_step_id => ln_transaction_step_id,
4766: p_name => 'p_attribute1'
4767: );
4768:
4769: -- hr_utility.trace(' p_attribute1 ' || p_ltt_salary_data(1).attribute1);
4770:
4771: p_ltt_salary_data(1).attribute2 :=
4772: hr_transaction_api.get_varchar2_value (
4773: p_transaction_step_id => ln_transaction_step_id,
4773: p_transaction_step_id => ln_transaction_step_id,
4774: p_name => 'p_attribute2'
4775: );
4776:
4777: -- hr_utility.trace(' p_attribute2 ' || p_ltt_salary_data(1).attribute2);
4778:
4779: p_ltt_salary_data(1).attribute3 :=
4780: hr_transaction_api.get_varchar2_value (
4781: p_transaction_step_id => ln_transaction_step_id,
5063: );
5064:
5065: -- 04/12/02 Salary Basis Enhancement Ends'
5066:
5067: -- hr_utility.trace('Populated Proposal Values');
5068:
5069: -- now get the component records
5070: ln_no_of_components :=
5071: hr_transaction_api.get_number_value
5071: hr_transaction_api.get_number_value
5072: (p_transaction_step_id => ln_transaction_step_id,
5073: p_name => 'p_no_of_components');
5074:
5075: -- hr_utility.trace('ln_no_of_components' || ln_no_of_components);
5076:
5077: FOR i in 1..ln_no_of_components
5078: LOOP
5079:
5076:
5077: FOR i in 1..ln_no_of_components
5078: LOOP
5079:
5080: -- hr_utility.trace(' Retrieving ' || i || ' compoent ');
5081: p_ltt_component(i).change_amount :=
5082: hr_transaction_api.get_number_value
5083: (p_transaction_step_id => ln_transaction_step_id,
5084: p_name => 'p_change_amount'||i);
5081: p_ltt_component(i).change_amount :=
5082: hr_transaction_api.get_number_value
5083: (p_transaction_step_id => ln_transaction_step_id,
5084: p_name => 'p_change_amount'||i);
5085: -- hr_utility.trace('change_amount ' || p_ltt_component(i).change_amount);
5086:
5087:
5088:
5089: p_ltt_component(i).component_reason :=
5089: p_ltt_component(i).component_reason :=
5090: hr_transaction_api.get_varchar2_value
5091: (p_transaction_step_id => ln_transaction_step_id,
5092: p_name => 'p_component_reason'||i);
5093: -- hr_utility.trace('p_component_reason ' || p_ltt_component(i).component_reason);
5094:
5095: p_ltt_component(i).reason_meaning :=
5096: hr_transaction_api.get_varchar2_value
5097: (p_transaction_step_id => ln_transaction_step_id,
5095: p_ltt_component(i).reason_meaning :=
5096: hr_transaction_api.get_varchar2_value
5097: (p_transaction_step_id => ln_transaction_step_id,
5098: p_name => 'p_reason_meaning'||i);
5099: -- hr_utility.trace('p_reason_meaning ' || p_ltt_component(i).reason_meaning);
5100:
5101: /*
5102: hr_misc_web.get_lookup_meaning(
5103: p_ltt_component(i).component_reason,
5102: hr_misc_web.get_lookup_meaning(
5103: p_ltt_component(i).component_reason,
5104: 'PROPOSAL_REASON',
5105: p_ltt_salary_data(1).effective_date);
5106: hr_utility.trace('reason_meaning ' || p_ltt_component(i).reason_meaning);
5107: */
5108:
5109: p_ltt_component(i).change_percent :=
5110: hr_transaction_api.get_number_value
5110: hr_transaction_api.get_number_value
5111: (p_transaction_step_id => ln_transaction_step_id,
5112: p_name => 'p_change_percent'||i);
5113:
5114: -- hr_utility.trace('p_change_percent ' || p_ltt_component(i).change_percent);
5115:
5116: p_ltt_component(i).change_annual :=
5117: hr_transaction_api.get_number_value
5118: (p_transaction_step_id => ln_transaction_step_id,
5138: hr_transaction_api.get_varchar2_value
5139: (p_transaction_step_id => ln_transaction_step_id,
5140: p_name => 'p_cattribute1'||i);
5141:
5142: -- hr_utility.trace('p_cattribute1 ' || p_ltt_component(i).attribute1);
5143:
5144:
5145: p_ltt_component(i).attribute2:=
5146: hr_transaction_api.get_varchar2_value
5146: hr_transaction_api.get_varchar2_value
5147: (p_transaction_step_id => ln_transaction_step_id,
5148: p_name => 'p_cattribute2'||i);
5149:
5150: -- hr_utility.trace('p_cattribute1 ' || p_ltt_component(i).attribute2);
5151:
5152:
5153: p_ltt_component(i).attribute3 :=
5154: hr_transaction_api.get_varchar2_value
5154: hr_transaction_api.get_varchar2_value
5155: (p_transaction_step_id => ln_transaction_step_id,
5156: p_name => 'p_cattribute3'||i);
5157:
5158: -- hr_utility.trace('p_cattribute1 ');
5159:
5160: p_ltt_component(i).attribute4 :=
5161: hr_transaction_api.get_varchar2_value
5162: (p_transaction_step_id => ln_transaction_step_id,
5166: hr_transaction_api.get_varchar2_value
5167: (p_transaction_step_id => ln_transaction_step_id,
5168: p_name => 'p_cattribute5'||i);
5169:
5170: -- hr_utility.trace('p_cattribute5 ');
5171:
5172: p_ltt_component(i).attribute6 :=
5173: hr_transaction_api.get_varchar2_value
5174: (p_transaction_step_id => ln_transaction_step_id,
5178: hr_transaction_api.get_varchar2_value
5179: (p_transaction_step_id => ln_transaction_step_id,
5180: p_name => 'p_cattribute7'||i);
5181:
5182: -- hr_utility.trace('p_cattribute7 ');
5183:
5184:
5185: p_ltt_component(i).attribute8 :=
5186: hr_transaction_api.get_varchar2_value
5191: hr_transaction_api.get_varchar2_value
5192: (p_transaction_step_id => ln_transaction_step_id,
5193: p_name => 'p_cattribute9'||i);
5194:
5195: -- hr_utility.trace('p_cattribute9 ');
5196:
5197: p_ltt_component(i).attribute10 :=
5198: hr_transaction_api.get_varchar2_value
5199: (p_transaction_step_id => ln_transaction_step_id,
5208: hr_transaction_api.get_varchar2_value
5209: (p_transaction_step_id => ln_transaction_step_id,
5210: p_name => 'p_cattribute12'||i);
5211:
5212: -- hr_utility.trace('p_cattribute12 ');
5213:
5214: p_ltt_component(i).attribute13 :=
5215: hr_transaction_api.get_varchar2_value
5216: (p_transaction_step_id => ln_transaction_step_id,
5220: hr_transaction_api.get_varchar2_value
5221: (p_transaction_step_id => ln_transaction_step_id,
5222: p_name => 'p_cattribute14'||i);
5223:
5224: -- hr_utility.trace('p_cattribute14 ');
5225:
5226: p_ltt_component(i).attribute15 :=
5227: hr_transaction_api.get_varchar2_value
5228: (p_transaction_step_id => ln_transaction_step_id,
5232: hr_transaction_api.get_varchar2_value
5233: (p_transaction_step_id => ln_transaction_step_id,
5234: p_name => 'p_cattribute16'||i);
5235:
5236: -- hr_utility.trace('p_cattribute16 ');
5237:
5238: p_ltt_component(i).attribute17 :=
5239: hr_transaction_api.get_varchar2_value
5240: (p_transaction_step_id => ln_transaction_step_id,
5244: hr_transaction_api.get_varchar2_value
5245: (p_transaction_step_id => ln_transaction_step_id,
5246: p_name => 'p_cattribute18'||i);
5247:
5248: -- hr_utility.trace('p_cattribute18 ');
5249:
5250: p_ltt_component(i).attribute19 :=
5251: hr_transaction_api.get_varchar2_value
5252: (p_transaction_step_id => ln_transaction_step_id,
5256: hr_transaction_api.get_varchar2_value
5257: (p_transaction_step_id => ln_transaction_step_id,
5258: p_name => 'p_cattribute20'||i);
5259:
5260: -- hr_utility.trace('p_cattribute20 ' || p_ltt_component(i).attribute20);
5261:
5262: END LOOP ;
5263:
5264: END IF ;
5264: END IF ;
5265: END IF ;
5266:
5267:
5268: hr_utility.set_location(' Leaving:' || l_proc,25);
5269: -- hr_utility.trace_off;
5270:
5271: EXCEPTION
5272: WHEN OTHERS THEN
5265: END IF ;
5266:
5267:
5268: hr_utility.set_location(' Leaving:' || l_proc,25);
5269: -- hr_utility.trace_off;
5270:
5271: EXCEPTION
5272: WHEN OTHERS THEN
5273: hr_utility.set_location(' Leaving:' || l_proc,555);
5269: -- hr_utility.trace_off;
5270:
5271: EXCEPTION
5272: WHEN OTHERS THEN
5273: hr_utility.set_location(' Leaving:' || l_proc,555);
5274: raise;
5275: END get_transaction_details;
5276:
5277: --GSP changes
5314: l_factor number default null;
5315:
5316: BEGIN
5317:
5318: hr_utility.set_location(' Entering:' || l_proc,5);
5319: -- hr_utility.trace('starting of get_transaction_details');
5320:
5321: IF p_transaction_step_id IS NOT NULL
5322: THEN
5315:
5316: BEGIN
5317:
5318: hr_utility.set_location(' Entering:' || l_proc,5);
5319: -- hr_utility.trace('starting of get_transaction_details');
5320:
5321: IF p_transaction_step_id IS NOT NULL
5322: THEN
5323:
5320:
5321: IF p_transaction_step_id IS NOT NULL
5322: THEN
5323:
5324: hr_utility.set_location(l_proc,10);
5325: ln_transaction_step_id := p_transaction_step_id;
5326:
5327: PER_PAY_PROPOSALS_POPULATE.GET_BASIS_DETAILS(p_effective_date => hr_transaction_api.get_date_value
5328: (p_transaction_step_id => ln_transaction_step_id,
5834:
5835: FOR i in 1..ln_no_of_components
5836: LOOP
5837:
5838: --hr_utility.trace(' Retrieving ' || i || ' compoent ');
5839: p_ltt_component(i).change_amount :=
5840: hr_transaction_api.get_number_value
5841: (p_transaction_step_id => ln_transaction_step_id,
5842: p_name => 'p_change_amount'||i);
5860: hr_misc_web.get_lookup_meaning(
5861: p_ltt_component(i).component_reason,
5862: 'PROPOSAL_REASON',
5863: p_ltt_salary_data(1).effective_date);
5864: hr_utility.trace('reason_meaning ' || p_ltt_component(i).reason_meaning);
5865: */
5866:
5867: p_ltt_component(i).change_percent :=
5868: hr_transaction_api.get_number_value
5913: hr_transaction_api.get_varchar2_value
5914: (p_transaction_step_id => ln_transaction_step_id,
5915: p_name => 'p_cattribute5'||i);
5916:
5917: -- hr_utility.trace('p_cattribute5 ');
5918:
5919: p_ltt_component(i).attribute6 :=
5920: hr_transaction_api.get_varchar2_value
5921: (p_transaction_step_id => ln_transaction_step_id,
5925: hr_transaction_api.get_varchar2_value
5926: (p_transaction_step_id => ln_transaction_step_id,
5927: p_name => 'p_cattribute7'||i);
5928:
5929: -- hr_utility.trace('p_cattribute7 ');
5930:
5931:
5932: p_ltt_component(i).attribute8 :=
5933: hr_transaction_api.get_varchar2_value
5938: hr_transaction_api.get_varchar2_value
5939: (p_transaction_step_id => ln_transaction_step_id,
5940: p_name => 'p_cattribute9'||i);
5941:
5942: -- hr_utility.trace('p_cattribute9 ');
5943:
5944: p_ltt_component(i).attribute10 :=
5945: hr_transaction_api.get_varchar2_value
5946: (p_transaction_step_id => ln_transaction_step_id,
5955: hr_transaction_api.get_varchar2_value
5956: (p_transaction_step_id => ln_transaction_step_id,
5957: p_name => 'p_cattribute12'||i);
5958:
5959: -- hr_utility.trace('p_cattribute12 ');
5960:
5961: p_ltt_component(i).attribute13 :=
5962: hr_transaction_api.get_varchar2_value
5963: (p_transaction_step_id => ln_transaction_step_id,
5967: hr_transaction_api.get_varchar2_value
5968: (p_transaction_step_id => ln_transaction_step_id,
5969: p_name => 'p_cattribute14'||i);
5970:
5971: -- hr_utility.trace('p_cattribute14 ');
5972:
5973: p_ltt_component(i).attribute15 :=
5974: hr_transaction_api.get_varchar2_value
5975: (p_transaction_step_id => ln_transaction_step_id,
5979: hr_transaction_api.get_varchar2_value
5980: (p_transaction_step_id => ln_transaction_step_id,
5981: p_name => 'p_cattribute16'||i);
5982:
5983: -- hr_utility.trace('p_cattribute16 ');
5984:
5985: p_ltt_component(i).attribute17 :=
5986: hr_transaction_api.get_varchar2_value
5987: (p_transaction_step_id => ln_transaction_step_id,
5991: hr_transaction_api.get_varchar2_value
5992: (p_transaction_step_id => ln_transaction_step_id,
5993: p_name => 'p_cattribute18'||i);
5994:
5995: -- hr_utility.trace('p_cattribute18 ');
5996:
5997: p_ltt_component(i).attribute19 :=
5998: hr_transaction_api.get_varchar2_value
5999: (p_transaction_step_id => ln_transaction_step_id,
6003: hr_transaction_api.get_varchar2_value
6004: (p_transaction_step_id => ln_transaction_step_id,
6005: p_name => 'p_cattribute20'||i);
6006:
6007: -- hr_utility.trace('p_cattribute20 ' || p_ltt_component(i).attribute20);
6008:
6009: END LOOP ;
6010:
6011: END IF ;
6009: END LOOP ;
6010:
6011: END IF ;
6012:
6013: hr_utility.set_location(' Leaving:' || l_proc,15);
6014: EXCEPTION
6015: WHEN OTHERS THEN
6016: hr_utility.trace('There is an exception in get_transaction_details' || SQLERRM);
6017: hr_utility.set_location(' Leaving:' || l_proc,555);
6012:
6013: hr_utility.set_location(' Leaving:' || l_proc,15);
6014: EXCEPTION
6015: WHEN OTHERS THEN
6016: hr_utility.trace('There is an exception in get_transaction_details' || SQLERRM);
6017: hr_utility.set_location(' Leaving:' || l_proc,555);
6018: raise;
6019: END get_txn_details_for_review;
6020: --End of GSP changes
6013: hr_utility.set_location(' Leaving:' || l_proc,15);
6014: EXCEPTION
6015: WHEN OTHERS THEN
6016: hr_utility.trace('There is an exception in get_transaction_details' || SQLERRM);
6017: hr_utility.set_location(' Leaving:' || l_proc,555);
6018: raise;
6019: END get_txn_details_for_review;
6020: --End of GSP changes
6021:
6110: l_get_defaults_date date;
6111: --
6112:
6113: BEGIN
6114: hr_utility.set_location(' Entering:' || l_proc,5);
6115: if (p_effective_date is not null) then
6116: hr_utility.set_location(l_proc,10);
6117: l_effective_date:= p_effective_date;
6118: else
6112:
6113: BEGIN
6114: hr_utility.set_location(' Entering:' || l_proc,5);
6115: if (p_effective_date is not null) then
6116: hr_utility.set_location(l_proc,10);
6117: l_effective_date:= p_effective_date;
6118: else
6119: hr_utility.set_location(l_proc,15);
6120: l_effective_date:= hr_transaction_ss.get_wf_effective_date
6115: if (p_effective_date is not null) then
6116: hr_utility.set_location(l_proc,10);
6117: l_effective_date:= p_effective_date;
6118: else
6119: hr_utility.set_location(l_proc,15);
6120: l_effective_date:= hr_transaction_ss.get_wf_effective_date
6121: (p_transaction_step_id => p_transaction_step_id);
6122: end if;
6123:
6293: -- Adding the session id check to avoid connection pooling problems.
6294: IF (( hr_process_person_ss.g_assignment_id is not null) and
6295: (hr_process_person_ss.g_session_id= ICX_SEC.G_SESSION_ID))
6296: THEN
6297: hr_utility.set_location(l_proc,20);
6298: -- Set the Assignment Id to the one just created, don't use the
6299: -- transaction table.
6300: ltt_salary_data(1).assignment_id := hr_process_person_ss.g_assignment_id;
6301: END IF;
6403: -- 05/13/02 - Bug 2360907 Fix Ends
6404: -- 04/25/02 Salary Basis Enhancement Change Ends
6405:
6406:
6407: -- hr_utility.trace('********* After get_transaction_details *********' );
6408: /*
6409:
6410:
6411: message := ' PROPOSAL VALUES' ||
6456: ' attribute18' || ltt_salary_data(1).attribute18 ||
6457: ' attribute19' || ltt_salary_data(1).attribute19 ||
6458: ' attribute20' || ltt_salary_data(1).attribute20 ;
6459:
6460: hr_utility.trace(message);
6461: */
6462:
6463:
6464: -- 04/19/02 Salary Basis Enhancement Change Begins
6475: ,p_approved_warning => lb_approved_warning
6476: ,p_payroll_warning => lb_payroll_warning
6477: );
6478:
6479: -- hr_utility.trace('After validate_salary_ins_api_java' );
6480:
6481: -- The following warning message names were obtained from PERWSEPY.fmb.
6482: IF lb_inv_next_sal_date_warning
6483: THEN
6480:
6481: -- The following warning message names were obtained from PERWSEPY.fmb.
6482: IF lb_inv_next_sal_date_warning
6483: THEN
6484: hr_utility.set_location(l_proc,25);
6485: -- Need to construct the output p_warning_msg_name parm with the
6486: -- following format:
6487: -- PER,HR_7340_SAL_ASS_TERMINATED|PAY,HR_APP_PROPOS_APP_COMP| .....
6488: lv_warning_msg_name := 'PER,HR_7340_SAL_ASS_TERMINATED|';
6489: END IF;
6490:
6491: IF lb_proposed_salary_warning
6492: THEN
6493: hr_utility.set_location(l_proc,30);
6494: lv_warning_msg_name := lv_warning_msg_name ||
6495: 'PAY,HR_SAL_SAL_ELE_RANGE_WARN|';
6496: END IF;
6497:
6496: END IF;
6497:
6498: IF lb_approved_warning
6499: THEN
6500: hr_utility.set_location(l_proc,35);
6501: lv_warning_msg_name := lv_warning_msg_name ||
6502: 'PAY,HR_APP_PROPOS_APP_COMP|';
6503: END IF;
6504:
6503: END IF;
6504:
6505: IF lb_payroll_warning
6506: THEN
6507: hr_utility.set_location(l_proc,40);
6508: lv_warning_msg_name := lv_warning_msg_name ||
6509: 'PER,HR_SAL_PAYROLL_PERIOD_CLOSED|';
6510: END IF;
6511:
6511:
6512: -- The warnings are for debugging only. In the actual commit phase, we
6513: -- don't issue any warnings.
6514:
6515: hr_utility.set_location(' Leaving:' || l_proc,45);
6516: EXCEPTION
6517: WHEN hr_utility.hr_error THEN
6518: rollback to insert_salary_details;
6519:
6513: -- don't issue any warnings.
6514:
6515: hr_utility.set_location(' Leaving:' || l_proc,45);
6516: EXCEPTION
6517: WHEN hr_utility.hr_error THEN
6518: rollback to insert_salary_details;
6519:
6520: hr_utility.set_location(' Leaving:' || l_proc,555);
6521: -- ---------------------------------------------------
6516: EXCEPTION
6517: WHEN hr_utility.hr_error THEN
6518: rollback to insert_salary_details;
6519:
6520: hr_utility.set_location(' Leaving:' || l_proc,555);
6521: -- ---------------------------------------------------
6522: -- an application error has been raised
6523: -- ----------------------------------------------------
6524: RAISE;
6524: RAISE;
6525:
6526: WHEN OTHERS THEN
6527: ROLLBACK to insert_salary_details;
6528: hr_utility.set_location(' Leaving:' || l_proc,560);
6529: RAISE;
6530:
6531: -- 04/19/02 Salary Basis Enhancement Change Ends
6532:
6610: from hr_api_transaction_steps
6611: where transaction_id = p_transaction_id
6612: and api_name = 'HR_PAY_RATE_SS.PROCESS_API';
6613: BEGIN
6614: hr_utility.set_location(' Entering:' || l_proc,5);
6615: open c1(p_transaction_id);
6616: fetch c1 into l_transaction_step_id;
6617: close c1;
6618: HR_TRANSACTION_SS.delete_transaction_step(
6617: close c1;
6618: HR_TRANSACTION_SS.delete_transaction_step(
6619: p_transaction_step_id =>l_transaction_step_id,
6620: p_login_person_id => p_login_person_id);
6621: hr_utility.set_location(' Leaving:' || l_proc,10);
6622: END;
6623:
6624:
6625: END hr_pay_rate_ss;