[Home] [Help]
1: package body hr_payments as
2: /* $Header: pypaymnt.pkb 120.4 2011/09/22 09:38:37 kskoduri ship $ */
3: /*
4: * ---------------------------------------------------------------------------
5: Copyright (c) Oracle Corporation (UK) Ltd 1992.
8: --
9: PRODUCT
10: Oracle*Payroll
11: NAME
12: hr_payments (hrppm.pkb)
13: NOTES
14: per-payments procedures. Used for validation of DDL on:
15: PAY_PAYMENT_TYPES
16: PAY_ORG_PAYMENT_METHODS
59: validation_value in varchar2) return boolean is
60: --
61: begin
62: --
63: hr_utility.set_location('HR_PAYMENTS.VALIDATE_MAGNETIC',1);
64: --
65: -- Check mand values for mag method are there.
66: --
67: if validate is null then
103: */
104: function check_ok_default(category in varchar2) return boolean is
105: begin
106: --
107: hr_utility.set_location('HR_PAYMENTS.CHECK_DEFAULT',1);
108: --
109: if category = 'CA' or category = 'CH' then
110: --
111: return(true);
171: begin
172: --
173: -- One row each from EXA and PPT.
174: --
175: hr_utility.set_location('HR_PAYMENTS.CHECK_ACCOUNT',1);
176: --
177: select ppt.territory_code,
178: exa.territory_code
179: into required_territory,
184: and ppt.payment_type_id = type;
185: --
186: -- Check that they are the same and generate an error if not
187: --
188: hr_utility.set_location('HR_PAYMENTS.CHECK_ACCOUNT',2);
189: --
190: if required_territory <> actual_territory then
191: --
192: hr_utility.set_message(801,'HR_6220_PAYM_INVALID_ACT');
226: opm_currency in varchar2) return boolean is
227: required_currency varchar2(16);
228: begin
229: --
230: hr_utility.set_location('HR_PAYMENTS.CHECK_CURRENCY',1);
231: --
232: select ppt.currency_code
233: into required_currency
234: from pay_payment_types ppt
278: bal_type varchar2(9);
279: bal_currency varchar2(16);
280: begin
281: --
282: hr_utility.set_location('HR_PAYMENTS.MATCH_CURRENCY',1);
283: --
284: if check_currency(type,opm_currency) then
285: --
286: select pdb.balance_type_id
328: begin
329: --
330: -- Get it then (if its there)
331: --
332: hr_utility.set_location('HR_PAYMENTS.GEN_BALANCE',1);
333: --
334: select pdb.defined_balance_id
335: into defined_balance
336: from pay_balance_types pbt,
371: val_start_date in varchar2) return boolean is
372: dummy varchar2(2);
373: begin
374: --
375: hr_utility.set_location('HR_PAYMENTS.CHECK_PREPAY',1);
376: --
377: select 1
378: into dummy
379: from dual
428: -- If there is a ppm which finishes after the validation start date, then
429: -- the (DE) delete is invalid. This case is given if no rows are returned
430: -- and is picked up in the error handler.
431: --
432: hr_utility.set_location('HR_PAYMENTS.CHECK_PPM',1);
433: --
434: select 1
435: into dummy
436: from dual
474: begin
475: --
476: -- Check if any payrolls use this OPM whichare valid after the delete date.
477: --
478: hr_utility.set_location('HR_PAYMENTS.CHECK_DEFAULT',1);
479: --
480: select 'Y'
481: into valid_del
482: from dual
554: begin
555: --
556: -- Check if an account is specified and if so get the territory
557: --
558: hr_utility.set_location('HR_PAYMENTS.MT_CHECKS',1);
559: --
560: if account_id is null then
561: --
562: actual_territory := 'NONE';
584: end if;
585: --
586: -- Now make sure its in the right territory (if required)
587: --
588: hr_utility.set_location('HR_PAYMENTS.MT_CHECKS',2);
589: --
590: select nvl(ppt.territory_code, 'NONE'),
591: ppt.category
592: into required_territory,
599: opm.effective_start_date and opm.effective_end_date;
600: --
601: -- Check the category. If it is 'MT' do the checks...
602: --
603: hr_utility.set_location('HR_PAYMENTS.MT_CHECKS',3);
604: --
605: if category = 'MT' then
606: --
607: if actual_territory <> required_territory then
647: assignment in varchar2) return boolean is
648: duplicate varchar2(2);
649: begin
650: --
651: hr_utility.set_location('HR_PAYMENTS.UNIQUE_PRIORITY',1);
652: --
653: select 'N'
654: into duplicate
655: from sys.dual
693: val_start_date in varchar2) return boolean is
694: status varchar2(2);
695: begin
696: --
697: hr_utility.set_location('HR_PAYMENTS.CHECK_PP',1);
698: --
699: -- WWbug 264094. Changed below from effective_date >= val_start_date to
700: -- effective_date > val_start_date. This has the effect of allowing the
701: -- delete if there are pre-payments on the deleteion date, providing there
715: and pa.effective_date > fnd_date.canonical_to_date(val_start_date));
716: --
717: -- If there is a row, then all is cool, but check anyhow to be defensive.
718: --
719: hr_utility.set_location('HR_PAYMENTS.CHECK_PP',2);
720: --
721: if status = 'Y' then
722: --
723: return true;
755: eff_date date;
756: begin
757: --
758: status := 'Y';
759: hr_utility.set_location('HR_PAYMENTS.CHECK_PPM',1);
760: hr_utility.trace('trans_step_id is '||trans_step_id);
761:
762: /*Handled the No Data Found for the bug 13010568 */
763:
769: WHERE transaction_step_id = trans_step_id;
770: exception
771: --
772: when no_data_found then
773: hr_utility.set_location('HR_PAYMENTS.CHECK_PPM',11);
774: status := 'Y';
775: return;
776: end;
777:
774: status := 'Y';
775: return;
776: end;
777:
778: hr_utility.set_location('HR_PAYMENTS.CHECK_PPM',2);
779:
780: select 'Y'
781: into status
782: from sys.dual
789: and pp.assignment_action_id = aa.assignment_action_id
790: and aa.payroll_action_id = pa.payroll_action_id
791: and pa.effective_date > eff_date);
792:
793: hr_utility.set_location('HR_PAYMENTS.CHECK_PPM',4);
794: --
795: if status = 'Y' then
796: status := 'Y';
797: --
799: --
800: exception
801: --
802: when no_data_found then
803: hr_utility.set_location('HR_PAYMENTS.CHECK_PPM',5);
804: status := 'N';
805: --
806: end check_ppm;
807: --
804: status := 'N';
805: --
806: end check_ppm;
807: --
808: end hr_payments;