[Home] [Help]
714: procedure ensure_assact_rolled_back (p_assact_id in number,
715: p_rollback_mode in varchar2) is
716: --
717: cursor c1 is
718: select null from dual
719: where exists
720: (select null -- check for any RRs
721: from pay_run_results
722: where assignment_action_id = p_assact_id)
742: from pay_element_entries_f
743: where updating_action_id = p_assact_id);
744: --
745: cursor c2 is
746: select null from dual
747: where exists
748: (select null -- check for any RRs
749: from pay_run_results
750: where assignment_action_id = p_assact_id
817: */
818: procedure ensure_pact_rolled_back (p_pact_id in number) is
819: cursor c1 is
820: select null
821: from dual
822: where exists
823: (select null -- check for any ASSACTs
824: from pay_assignment_actions
825: where payroll_action_id = p_pact_id)
936: -- mark for retry is not locked by an assignment action
937: -- that has an action_status that is not mark for retry.
938: select null
939: into dummy
940: from dual
941: where not exists (
942: select null
943: from pay_action_interlocks int,
944: pay_assignment_actions act
950: -- Check that the assignment action we are attempting to
951: -- roll back is not locked by an assignment action.
952: select null
953: into dummy
954: from dual
955: where not exists (
956: select null
957: from pay_action_interlocks int
958: where int.locked_action_id = p_assact_rec.assact_id);
983: -- if there are future SEQUENCED assignment actions
984: -- for the assignment and these actions are not
985: -- marked for retry.
986: select null into dummy
987: from dual
988: where not exists
989: (select null
990: from pay_assignment_actions ACT,
991: pay_payroll_actions PACT,
1004: -- Disallow rollback assignment action
1005: -- if there are future SEQUENCED assignment actions
1006: -- for the assignment.
1007: select null into dummy
1008: from dual
1009: where not exists
1010: (select null
1011: from pay_assignment_actions ACT,
1012: pay_payroll_actions PACT,
1029: end if;
1030: if(p_rollback_mode = 'RETRY') then
1031: -- Case for RETRY mode.
1032: select null into dummy
1033: from dual
1034: where not exists
1035: (select null
1036: from pay_action_classifications CLASS,
1037: pay_action_classifications CLAS2,
1051: and CLAS2.classification_name = 'SEQUENCED' );
1052: else
1053: -- Case for ROLLBACK mode.
1054: select null into dummy
1055: from dual
1056: where not exists
1057: (select null
1058: from pay_action_classifications CLASS,
1059: pay_action_classifications CLAS2,
1148: hr_utility.set_location('hrassact.val_pact_rollback', 20);
1149: end if;
1150: select null
1151: into dummy
1152: from dual
1153: where not exists
1154: (select null
1155: from pay_action_classifications
1156: where action_type = p_pact_rec.action_type
2187: * This routine rolls back an entire payroll action.
2188: *
2189: * Three forms are available:
2190: *
2191: * 1) Rollback entire action without committing, fail if any individual
2192: * assignment action couldn't be rolled back.
2193: *
2194: * 2) Rollback entire action without committing, continue if any
2195: * assignment action couldn't be rolled back, setting
2424: and plb.defined_balance_id = pdb.defined_balance_id;
2425: --
2426: -- Select if run result value exists for input value
2427: cursor ivchk is
2428: select '1' from dual
2429: where exists (select 1
2430: from pay_run_results prr,
2431: pay_run_result_values rrv
2432: where rrv.input_value_id = l_input_value_id
4395: if (rmode = 'Y') then
4396: begin
4397: select 1
4398: into aa_exists
4399: from dual
4400: where exists (
4401: select /*+ INDEX (pay_pa2 pay_payroll_actions_pk) */ null
4402: from pay_action_classifications pay_acl,
4403: pay_payroll_actions pay_pa2,
4416: for dprec in perasg(persid) loop
4417: begin
4418: select 1
4419: into aa_exists
4420: from sys.dual
4421: where exists (
4422: select /*+ INDEX (pay_pa2 pay_payroll_actions_pk) */ null
4423: from pay_action_classifications pay_acl,
4424: pay_payroll_actions pay_pa2,
4441: for dprec in perobj(asgid) loop
4442: begin
4443: select 1
4444: into aa_exists
4445: from sys.dual
4446: where exists (
4447: select /*+ INDEX (pay_pa2 pay_payroll_actions_pk) */ null
4448: from pay_action_classifications pay_acl,
4449: pay_payroll_actions pay_pa2,
4494: aa_id,
4495: 1,
4496: taxunt2,
4497: l_run_type_id
4498: from sys.dual
4499: where not exists (
4500: select null
4501: from pay_payroll_actions pac,
4502: pay_payroll_actions pa2,
4812: PAY_ASSIGNMENT_ACTIONS_S.nextval,
4813: p_pre_payment_id,
4814: p_serial_number,
4815: 1
4816: from sys.dual
4817: where not exists (
4818: select null
4819: from pay_assignment_actions act
4820: where act.pre_payment_id = p_pre_payment_id
4966: -- Get the assignment_action_id
4967: -- that has just been inserted
4968: select pay_assignment_actions_s.currval
4969: into assactid
4970: from sys.dual;
4971: --
4972: -- Return information.
4973: p_assignment_action_id := assactid;
4974: p_object_version_number := 1;
5222: and act.assignment_id = asgid;
5223: --
5224: select pay_core_utils.get_process_path(assactid)
5225: into l_process_path
5226: from dual;
5227: -- need to set process path for reversals
5228: update pay_assignment_actions
5229: set process_path =l_process_path
5230: where assignment_action_id=rev_assact;
5241: locking_action_id,
5242: locked_action_id)
5243: select rev_assact,
5244: assactid
5245: from dual
5246: where not exists (
5247: select null
5248: from pay_assignment_actions ac2,
5249: pay_payroll_actions pa2,
5284: --create new interlock if needed
5285: insert into pay_action_interlocks
5286: (locking_action_id,locked_action_id)
5287: select rev_assact,assactid
5288: from dual where not exists (select 1
5289: from pay_action_interlocks
5290: where locking_action_id=rev_assact
5291: and locked_action_id=assactid);
5292:
6349: select udca.assact_id(cnt),
6350: udca.asg_id(cnt),
6351: udca.cxt_id(cnt),
6352: udca.cxt_value(cnt)
6353: from sys.dual
6354: where not exists (select ''
6355: from pay_action_contexts
6356: where assignment_action_id = udca.assact_id(cnt)
6357: and assignment_id = udca.asg_id(cnt)
8353: AND paa.source_action_id is null;
8354:
8355: select 1
8356: into found
8357: from dual
8358: where exists (select 1 from pay_assignment_actions paa
8359: where paa.source_action_id=l_mst_id);
8360:
8361: begin