[Home] [Help]
1: package body hr_payments as
2: /* $Header: pypaymnt.pkb 120.0 2005/05/29 07:16:45 appldev noship $ */
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
54: validation_value in varchar2) return boolean is
55: --
56: begin
57: --
58: hr_utility.set_location('HR_PAYMENTS.VALIDATE_MAGNETIC',1);
59: --
60: -- Check mand values for mag method are there.
61: --
62: if validate is null then
98: */
99: function check_ok_default(category in varchar2) return boolean is
100: begin
101: --
102: hr_utility.set_location('HR_PAYMENTS.CHECK_DEFAULT',1);
103: --
104: if category = 'CA' or category = 'CH' then
105: --
106: return(true);
166: begin
167: --
168: -- One row each from EXA and PPT.
169: --
170: hr_utility.set_location('HR_PAYMENTS.CHECK_ACCOUNT',1);
171: --
172: select ppt.territory_code,
173: exa.territory_code
174: into required_territory,
179: and ppt.payment_type_id = type;
180: --
181: -- Check that they are the same and generate an error if not
182: --
183: hr_utility.set_location('HR_PAYMENTS.CHECK_ACCOUNT',2);
184: --
185: if required_territory <> actual_territory then
186: --
187: hr_utility.set_message(801,'HR_6220_PAYM_INVALID_ACT');
221: opm_currency in varchar2) return boolean is
222: required_currency varchar2(16);
223: begin
224: --
225: hr_utility.set_location('HR_PAYMENTS.CHECK_CURRENCY',1);
226: --
227: select ppt.currency_code
228: into required_currency
229: from pay_payment_types ppt
273: bal_type varchar2(9);
274: bal_currency varchar2(16);
275: begin
276: --
277: hr_utility.set_location('HR_PAYMENTS.MATCH_CURRENCY',1);
278: --
279: if check_currency(type,opm_currency) then
280: --
281: select pdb.balance_type_id
323: begin
324: --
325: -- Get it then (if its there)
326: --
327: hr_utility.set_location('HR_PAYMENTS.GEN_BALANCE',1);
328: --
329: select pdb.defined_balance_id
330: into defined_balance
331: from pay_balance_types pbt,
366: val_start_date in varchar2) return boolean is
367: dummy varchar2(2);
368: begin
369: --
370: hr_utility.set_location('HR_PAYMENTS.CHECK_PREPAY',1);
371: --
372: select 1
373: into dummy
374: from dual
423: -- If there is a ppm which finishes after the validation start date, then
424: -- the (DE) delete is invalid. This case is given if no rows are returned
425: -- and is picked up in the error handler.
426: --
427: hr_utility.set_location('HR_PAYMENTS.CHECK_PPM',1);
428: --
429: select 1
430: into dummy
431: from dual
469: begin
470: --
471: -- Check if any payrolls use this OPM whichare valid after the delete date.
472: --
473: hr_utility.set_location('HR_PAYMENTS.CHECK_DEFAULT',1);
474: --
475: select 'Y'
476: into valid_del
477: from dual
549: begin
550: --
551: -- Check if an account is specified and if so get the territory
552: --
553: hr_utility.set_location('HR_PAYMENTS.MT_CHECKS',1);
554: --
555: if account_id is null then
556: --
557: actual_territory := 'NONE';
579: end if;
580: --
581: -- Now make sure its in the right territory (if required)
582: --
583: hr_utility.set_location('HR_PAYMENTS.MT_CHECKS',2);
584: --
585: select nvl(ppt.territory_code, 'NONE'),
586: ppt.category
587: into required_territory,
594: opm.effective_start_date and opm.effective_end_date;
595: --
596: -- Check the category. If it is 'MT' do the checks...
597: --
598: hr_utility.set_location('HR_PAYMENTS.MT_CHECKS',3);
599: --
600: if category = 'MT' then
601: --
602: if actual_territory <> required_territory then
642: assignment in varchar2) return boolean is
643: duplicate varchar2(2);
644: begin
645: --
646: hr_utility.set_location('HR_PAYMENTS.UNIQUE_PRIORITY',1);
647: --
648: select 'N'
649: into duplicate
650: from sys.dual
688: val_start_date in varchar2) return boolean is
689: status varchar2(2);
690: begin
691: --
692: hr_utility.set_location('HR_PAYMENTS.CHECK_PP',1);
693: --
694: -- WWbug 264094. Changed below from effective_date >= val_start_date to
695: -- effective_date > val_start_date. This has the effect of allowing the
696: -- delete if there are pre-payments on the deleteion date, providing there
710: and pa.effective_date > fnd_date.canonical_to_date(val_start_date));
711: --
712: -- If there is a row, then all is cool, but check anyhow to be defensive.
713: --
714: hr_utility.set_location('HR_PAYMENTS.CHECK_PP',2);
715: --
716: if status = 'Y' then
717: --
718: return true;
730: return false;
731: --
732: end check_pp;
733: --
734: end hr_payments;