[Home] [Help]
71:
72: /* pay reg code */
73:
74: sqlstr := 'select distinct asg.person_id
75: from pay_assignment_actions act,
76: per_assignments_f asg,
77: pay_payroll_actions ppa2, /* run and quickpay payroll actions */
78: pay_assignment_actions act2, /* run and quickpay assignment actions */
79: pay_action_interlocks pai, /* interlocks table */
74: sqlstr := 'select distinct asg.person_id
75: from pay_assignment_actions act,
76: per_assignments_f asg,
77: pay_payroll_actions ppa2, /* run and quickpay payroll actions */
78: pay_assignment_actions act2, /* run and quickpay assignment actions */
79: pay_action_interlocks pai, /* interlocks table */
80: pay_payroll_actions ppa, /* PYUGEN information */
81: pay_payroll_actions pa1 /* Payroll Register information */
82: where ppa.payroll_action_id = :payroll_action_id
133: act.tax_unit_id,
134: ppa.action_type,
135: ppa.effective_date,
136: act.source_action_id
137: from pay_assignment_actions act,
138: per_assignments_f paf,
139: pay_payroll_actions ppa, /* pre-payments and reversals
140: payroll action id */
141: pay_payroll_actions ppa1, /* PYUGEN payroll action id */
176: )
177: and ( ( ppa.action_type in ('P','U') and
178: ( exists ( select 1
179: from pay_action_interlocks pai1
180: ,pay_assignment_actions paa1
181: ,pay_payroll_actions ppa2
182: where pai1.locking_action_id = act.assignment_action_id
183: and paa1.assignment_action_id = pai1.locked_action_id
184: and ppa2.payroll_action_id = paa1.payroll_action_id
209: and shortname = 'SEP_PAY';
210:
211: cursor c_get_map_flag(cp_prepay_action_id number) is
212: select ppf.multi_assignments_flag
213: from pay_assignment_actions paa,
214: pay_payroll_actions ppa,
215: pay_all_payrolls_f ppf
216: where assignment_action_id = cp_prepay_action_id
217: and ppa.payroll_action_id = paa.payroll_action_id
222: cursor c_child_pp_aaid(cp_prepay_action_id number
223: ,cp_assignment_id number
224: ,cp_tax_unit_id number) is
225: select paa.assignment_action_id
226: from pay_assignment_actions paa
227: where paa.source_action_id = cp_prepay_action_id
228: and paa.assignment_id = cp_assignment_id
229: and paa.tax_unit_id = cp_tax_unit_id;
230:
230:
231: cursor c_pp_aaid_for_sepchk(cp_source_action_id number) is
232: select paa.assignment_action_id
233: from pay_action_interlocks pai
234: ,pay_assignment_actions paa
235: ,pay_payroll_actions ppa
236: where pai.locked_action_id = cp_source_action_id
237: and paa.assignment_action_id = pai.locking_action_id
238: and paa.source_action_id is not null
243: cp_assignment_id number,
244: cp_tax_unit_id number,
245: cp_sepchk_run_tp_id number) is
246: select max(paa.assignment_action_id)
247: from pay_assignment_actions paa,
248: pay_action_interlocks pai,
249: pay_run_types_f prt,
250: pay_payroll_actions ppa
251: where pai.locking_action_id = cp_prepay_action_id
262: cursor c_taxgrp_max_run_aaid(cp_prepay_action_id number,
263: cp_assignment_id number,
264: cp_sepchk_run_tp_id number) is
265: select max(paa.assignment_action_id)
266: from pay_assignment_actions paa,
267: pay_action_interlocks pai,
268: pay_run_types_f prt,
269: pay_payroll_actions ppa
270: where pai.locking_action_id = cp_prepay_action_id
284: ****************************************************************/
285:
286: cursor c_sepchk_act_seq(cp_assignment_action_id number) is
287: select paa.action_sequence
288: from pay_assignment_actions paa
289: where paa.assignment_action_id = cp_assignment_action_id;
290:
291: cursor c_other_asg_for_sepchk(cp_prepay_asg_act_id number
292: ,cp_assignment_id number) is
301: ,cp_assignment_id number
302: ,cp_action_sequence number) is
303: select paa_run.action_sequence, paa_run.assignment_action_id
304: from pay_action_interlocks pai,
305: pay_assignment_actions paa_run,
306: pay_payroll_actions ppa_run,
307: pay_run_types_f prt
308: where pai.locking_action_id = cp_prepay_asg_act_id
309: and paa_run.assignment_action_id = pai.locked_action_id
565:
566: if ( ( ln_source_action_id <> prev_source_action_id ) or
567: ( ln_tax_unit_id <> prev_tax_unit_id ) ) then
568:
569: select pay_assignment_actions_s.nextval
570: into lockingactid
571: from dual;
572:
573: -- insert the action record.
586: lv_sep_check ||
587: nvl(lv_multi_asg_flag,'N') ||
588: to_char(ln_max_run_aa_id);
589:
590: -- update pay_assignment_actions serial_number with
591: -- runactid.
592:
593: update pay_assignment_actions
594: set serial_number = serialno
589:
590: -- update pay_assignment_actions serial_number with
591: -- runactid.
592:
593: update pay_assignment_actions
594: set serial_number = serialno
595: where assignment_action_id = lockingactid
596: and tax_unit_id = ln_tax_unit_id;
597:
696: end loop; -- c_payment_info
697: close c_payment_info;
698: else
699:
700: select pay_assignment_actions_s.nextval
701: into lockingactid
702: from dual;
703:
704: hr_utility.trace('B4 insact'||to_char(lockingactid) ||','||
714:
715: begin
716: --serialno := 'V'||to_char(runactid);
717: serialno := actiontype || 'NN' || to_char(lockedactid);
718: -- update pay_assignment_actions serial_number with runactid.
719: update pay_assignment_actions
720: set serial_number = serialno
721: where assignment_action_id = lockingactid
722: and tax_unit_id = greid;
715: begin
716: --serialno := 'V'||to_char(runactid);
717: serialno := actiontype || 'NN' || to_char(lockedactid);
718: -- update pay_assignment_actions serial_number with runactid.
719: update pay_assignment_actions
720: set serial_number = serialno
721: where assignment_action_id = lockingactid
722: and tax_unit_id = greid;
723: exception when others then
760: hr_all_organization_units hou1,
761: hr_locations_all loc,
762: per_all_people_f ppf,
763: per_all_assignments_f paf,
764: pay_assignment_actions paa1, /* PYUGEN assignment action */
765: pay_payroll_actions ppa1 /* PYUGEN payroll action id */
766: where ppa1.payroll_action_id = :pactid
767: and paa1.payroll_action_id = ppa1.payroll_action_id
768: and paa1.assignment_id = paf.assignment_id