[Home] [Help]
746: procedure ensure_assact_rolled_back (p_assact_id in number,
747: p_rollback_mode in varchar2) is
748: --
749: cursor c1 is
750: select null from dual
751: where exists
752: (select null -- check for any RRs
753: from pay_run_results
754: where assignment_action_id = p_assact_id)
774: from pay_element_entries_f
775: where updating_action_id = p_assact_id);
776: --
777: cursor c2 is
778: select null from dual
779: where exists
780: (select null -- check for any RRs
781: from pay_run_results
782: where assignment_action_id = p_assact_id
849: */
850: procedure ensure_pact_rolled_back (p_pact_id in number) is
851: cursor c1 is
852: select null
853: from dual
854: where exists
855: (select null -- check for any ASSACTs
856: from pay_assignment_actions
857: where payroll_action_id = p_pact_id)
968: -- mark for retry is not locked by an assignment action
969: -- that has an action_status that is not mark for retry.
970: select null
971: into dummy
972: from dual
973: where not exists (
974: select null
975: from pay_action_interlocks int,
976: pay_assignment_actions act
982: -- Check that the assignment action we are attempting to
983: -- roll back is not locked by an assignment action.
984: select null
985: into dummy
986: from dual
987: where not exists (
988: select null
989: from pay_action_interlocks int
990: where int.locked_action_id = p_assact_rec.assact_id);
1015: -- if there are future SEQUENCED assignment actions
1016: -- for the assignment and these actions are not
1017: -- marked for retry.
1018: select null into dummy
1019: from dual
1020: where not exists
1021: (select null
1022: from pay_assignment_actions ACT,
1023: pay_payroll_actions PACT,
1036: -- Disallow rollback assignment action
1037: -- if there are future SEQUENCED assignment actions
1038: -- for the assignment.
1039: select null into dummy
1040: from dual
1041: where not exists
1042: (select null
1043: from pay_assignment_actions ACT,
1044: pay_payroll_actions PACT,
1061: end if;
1062: if(p_rollback_mode = 'RETRY') then
1063: -- Case for RETRY mode.
1064: select null into dummy
1065: from dual
1066: where not exists
1067: (select null
1068: from pay_action_classifications CLASS,
1069: pay_action_classifications CLAS2,
1083: and CLAS2.classification_name = 'SEQUENCED' );
1084: else
1085: -- Case for ROLLBACK mode.
1086: select null into dummy
1087: from dual
1088: where not exists
1089: (select null
1090: from pay_action_classifications CLASS,
1091: pay_action_classifications CLAS2,
1180: hr_utility.set_location('hrassact.val_pact_rollback', 20);
1181: end if;
1182: select null
1183: into dummy
1184: from dual
1185: where not exists
1186: (select null
1187: from pay_action_classifications
1188: where action_type = p_pact_rec.action_type
2219: * This routine rolls back an entire payroll action.
2220: *
2221: * Three forms are available:
2222: *
2223: * 1) Rollback entire action without committing, fail if any individual
2224: * assignment action couldn't be rolled back.
2225: *
2226: * 2) Rollback entire action without committing, continue if any
2227: * assignment action couldn't be rolled back, setting
2456: and plb.defined_balance_id = pdb.defined_balance_id;
2457: --
2458: -- Select if run result value exists for input value
2459: cursor ivchk is
2460: select '1' from dual
2461: where exists (select 1
2462: from pay_run_results prr,
2463: pay_run_result_values rrv
2464: where rrv.input_value_id = l_input_value_id
4415: if (rmode = 'Y') then
4416: begin
4417: select 1
4418: into aa_exists
4419: from dual
4420: where exists (
4421: select /*+ INDEX (pay_pa2 pay_payroll_actions_pk) */ null
4422: from pay_action_classifications pay_acl,
4423: pay_payroll_actions pay_pa2,
4436: for dprec in perasg(persid) loop
4437: begin
4438: select 1
4439: into aa_exists
4440: from sys.dual
4441: where exists (
4442: select /*+ INDEX (pay_pa2 pay_payroll_actions_pk) */ null
4443: from pay_action_classifications pay_acl,
4444: pay_payroll_actions pay_pa2,
4461: for dprec in perobj(asgid) loop
4462: begin
4463: select 1
4464: into aa_exists
4465: from sys.dual
4466: where exists (
4467: select /*+ INDEX (pay_pa2 pay_payroll_actions_pk) */ null
4468: from pay_action_classifications pay_acl,
4469: pay_payroll_actions pay_pa2,
4514: aa_id,
4515: 1,
4516: taxunt2,
4517: l_run_type_id
4518: from sys.dual
4519: where not exists (
4520: select null
4521: from pay_payroll_actions pac,
4522: pay_payroll_actions pa2,
5044: PAY_ASSIGNMENT_ACTIONS_S.nextval,
5045: p_pre_payment_id,
5046: p_serial_number,
5047: 1
5048: from sys.dual
5049: where not exists (
5050: select null
5051: from pay_assignment_actions act
5052: where act.pre_payment_id = p_pre_payment_id
5198: -- Get the assignment_action_id
5199: -- that has just been inserted
5200: select pay_assignment_actions_s.currval
5201: into assactid
5202: from sys.dual;
5203: --
5204: -- Return information.
5205: p_assignment_action_id := assactid;
5206: p_object_version_number := 1;
5454: and act.assignment_id = asgid;
5455: --
5456: select pay_core_utils.get_process_path(assactid)
5457: into l_process_path
5458: from dual;
5459: -- need to set process path for reversals
5460: update pay_assignment_actions
5461: set process_path =l_process_path
5462: where assignment_action_id=rev_assact;
5473: locking_action_id,
5474: locked_action_id)
5475: select rev_assact,
5476: assactid
5477: from dual
5478: where not exists (
5479: select null
5480: from pay_assignment_actions ac2,
5481: pay_payroll_actions pa2,
5516: --create new interlock if needed
5517: insert into pay_action_interlocks
5518: (locking_action_id,locked_action_id)
5519: select rev_assact,assactid
5520: from dual where not exists (select 1
5521: from pay_action_interlocks
5522: where locking_action_id=rev_assact
5523: and locked_action_id=assactid);
5524:
6613: select udca.assact_id(cnt),
6614: udca.asg_id(cnt),
6615: udca.cxt_id(cnt),
6616: udca.cxt_value(cnt)
6617: from sys.dual
6618: where not exists (select ''
6619: from pay_action_contexts
6620: where assignment_action_id = udca.assact_id(cnt)
6621: and assignment_id = udca.asg_id(cnt)
8615: AND paa.source_action_id is null;
8616:
8617: select 1
8618: into found
8619: from dual
8620: where exists (select 1 from pay_assignment_actions paa
8621: where paa.source_action_id=l_mst_id);
8622:
8623: begin