[Home] [Help]
42: --
43: exception
44: --
45: when qpay_upgrade_in_progress then
46: hr_utility.set_message(801,'PAY_33880_QPAY_UPG_IN_PROGRESS');
47: hr_utility.raise_error;
48: --
49: end use_qpay_excl_model;
50: --
43: exception
44: --
45: when qpay_upgrade_in_progress then
46: hr_utility.set_message(801,'PAY_33880_QPAY_UPG_IN_PROGRESS');
47: hr_utility.raise_error;
48: --
49: end use_qpay_excl_model;
50: --
51: -- ----------------------------------------------------------------------------
296: begin
297:
298: l_step_reached := to_char (pi_step);
299:
300: hr_utility.set_location (lpi_message_prefix || l_procedure_name,
301: l_step_reached);
302:
303: end step;
304:
414: and asg.effective_end_date
415: and asg.payroll_id is not null
416: and asg.assignment_id = p_assignment_id;
417: begin
418: hr_utility.set_location('Entering:'|| v_proc, 5);
419: --
420: -- Check mandatory parameters have been set
421: --
422: hr_api.mandatory_arg_error
433: close pay_asg;
434: -- Error: You have tried to define QuickPay for an assignment that has no
435: -- payroll component valid at Date Paid. For the run to process, you
436: -- must create a payroll component that is valid at this date.
437: hr_utility.set_message(801, 'HR_7242_QPAY_NO_PAY_D_PAID');
438: hr_utility.raise_error;
439: end if;
440: close pay_asg;
441: --
434: -- Error: You have tried to define QuickPay for an assignment that has no
435: -- payroll component valid at Date Paid. For the run to process, you
436: -- must create a payroll component that is valid at this date.
437: hr_utility.set_message(801, 'HR_7242_QPAY_NO_PAY_D_PAID');
438: hr_utility.raise_error;
439: end if;
440: close pay_asg;
441: --
442: hr_utility.set_location(' Leaving:'|| v_proc, 10);
438: hr_utility.raise_error;
439: end if;
440: close pay_asg;
441: --
442: hr_utility.set_location(' Leaving:'|| v_proc, 10);
443: end chk_asg_on_payroll;
444: --
445: -- ----------------------------------------------------------------------------
446: -- |--------------------------< chk_new_eff_date >----------------------------|
462: and asg.payroll_id is not null
463: and v_new_date between asg.effective_start_date
464: and asg.effective_end_date;
465: begin
466: hr_utility.set_location('Entering:'|| v_proc, 5);
467: --
468: -- Check mandatory parameters have been set
469: --
470: hr_api.mandatory_arg_error
486: if cur_dat%notfound then
487: close cur_dat;
488: -- Error: You cannot change to this effective date, because the current
489: -- assignment is not on a payroll as of the new date.
490: hr_utility.set_message(801, 'HR_7243_QPAY_NOT_PAY_NEW_DATE');
491: hr_utility.raise_error;
492: end if;
493: close cur_dat;
494: --
487: close cur_dat;
488: -- Error: You cannot change to this effective date, because the current
489: -- assignment is not on a payroll as of the new date.
490: hr_utility.set_message(801, 'HR_7243_QPAY_NOT_PAY_NEW_DATE');
491: hr_utility.raise_error;
492: end if;
493: close cur_dat;
494: --
495: hr_utility.set_location(' Leaving:'|| v_proc, 10);
491: hr_utility.raise_error;
492: end if;
493: close cur_dat;
494: --
495: hr_utility.set_location(' Leaving:'|| v_proc, 10);
496: end chk_new_eff_date;
497: --
498: -- ----------------------------------------------------------------------------
499: -- |----------------------------< chk_assignment >----------------------------|
543: and business_group_id + 0 = p_business_group_id
544: and p_effective_date between effective_start_date
545: and effective_end_date;
546: begin
547: hr_utility.set_location('Entering:'|| v_proc, 5);
548: --
549: open sel_asg;
550: fetch sel_asg into v_exists;
551: if sel_asg%notfound then
551: if sel_asg%notfound then
552: close sel_asg;
553: -- Error: You have tried to define QuickPay for an assignment that is to a
554: -- different Business Group, or does not exist at Date Paid.
555: hr_utility.set_message(801, 'HR_7244_QPAY_NO_PAY_D_EFF');
556: hr_utility.raise_error;
557: end if;
558: close sel_asg;
559: --
552: close sel_asg;
553: -- Error: You have tried to define QuickPay for an assignment that is to a
554: -- different Business Group, or does not exist at Date Paid.
555: hr_utility.set_message(801, 'HR_7244_QPAY_NO_PAY_D_EFF');
556: hr_utility.raise_error;
557: end if;
558: close sel_asg;
559: --
560: hr_utility.set_location(' Leaving:'|| v_proc, 10);
556: hr_utility.raise_error;
557: end if;
558: close sel_asg;
559: --
560: hr_utility.set_location(' Leaving:'|| v_proc, 10);
561: end chk_assignment;
562: --
563: -- ----------------------------------------------------------------------------
564: -- |----------------------------< chk_consol_set >----------------------------|
605: from pay_consolidation_sets
606: where consolidation_set_id = p_consolidation_set_id
607: and business_group_id + 0 = p_business_group_id;
608: begin
609: hr_utility.set_location('Entering:'|| v_proc, 5);
610: --
611: open sel_set;
612: fetch sel_set into v_exists;
613: if sel_set%notfound then
614: close sel_set;
615: -- Error: You have tried to define QuickPay for a consolidation set that
616: -- does not exist, or does not exist in the Business Group defined for the
617: -- run.
618: hr_utility.set_message(801, 'HR_7245_QPAY_INVAL_CON_SET');
619: hr_utility.raise_error;
620: end if;
621: close sel_set;
622: --
615: -- Error: You have tried to define QuickPay for a consolidation set that
616: -- does not exist, or does not exist in the Business Group defined for the
617: -- run.
618: hr_utility.set_message(801, 'HR_7245_QPAY_INVAL_CON_SET');
619: hr_utility.raise_error;
620: end if;
621: close sel_set;
622: --
623: hr_utility.set_location(' Leaving:'|| v_proc, 10);
619: hr_utility.raise_error;
620: end if;
621: close sel_set;
622: --
623: hr_utility.set_location(' Leaving:'|| v_proc, 10);
624: end chk_consol_set;
625: --
626: -- ----------------------------------------------------------------------------
627: -- |---------------------------< chk_period_exists >--------------------------|
678: and p_date between start_date
679: and end_date;
680: --
681: begin
682: hr_utility.set_location('Entering:'|| v_proc, 5);
683: --
684: open sel_tim;
685: fetch sel_tim into v_time_period_id, v_period_name;
686: if sel_tim%notfound then
688: -- Could not find a row in per_time_periods which matches
689: -- p_date and p_payroll_id. So need to raise the error p_message.
690: --
691: close sel_tim;
692: hr_utility.set_message(801, p_message);
693: hr_utility.raise_error;
694: end if;
695: close sel_tim;
696: --
689: -- p_date and p_payroll_id. So need to raise the error p_message.
690: --
691: close sel_tim;
692: hr_utility.set_message(801, p_message);
693: hr_utility.raise_error;
694: end if;
695: close sel_tim;
696: --
697: p_time_period_id := v_time_period_id;
696: --
697: p_time_period_id := v_time_period_id;
698: p_period_name := v_period_name;
699: --
700: hr_utility.set_location(' Leaving:'|| v_proc, 10);
701: end chk_period_exists;
702: --
703: -- ----------------------------------------------------------------------------
704: -- |--------------------< chk_period_exists_eff_for_gb >----------------------|
754: where payroll_id = p_payroll_id
755: and p_date = regular_payment_date;
756: --
757: begin
758: hr_utility.set_location('Entering:'|| v_proc, 5);
759: --
760: open sel_tim;
761: fetch sel_tim into v_time_period_id, v_period_name;
762: if sel_tim%notfound then
764: -- Could not find a row in per_time_periods which matches
765: -- p_date and p_payroll_id. So need to raise the error p_message.
766: --
767: close sel_tim;
768: hr_utility.set_message(801, p_message);
769: hr_utility.raise_error;
770: end if;
771: close sel_tim;
772: --
765: -- p_date and p_payroll_id. So need to raise the error p_message.
766: --
767: close sel_tim;
768: hr_utility.set_message(801, p_message);
769: hr_utility.raise_error;
770: end if;
771: close sel_tim;
772: --
773: p_time_period_id := v_time_period_id;
772: --
773: p_time_period_id := v_time_period_id;
774: p_period_name := v_period_name;
775: --
776: hr_utility.set_location(' Leaving:'|| v_proc, 10);
777: end chk_period_exists_eff_for_gb;
778: --
779: -- ----------------------------------------------------------------------------
780: -- |------------------------< get_date_earned_for_gb >------------------------|
857: -- the processed records.
858: v_wrk_date date := null;
859: v_proc varchar2(72) := g_package||'get_date_earned_for_gb';
860: begin
861: hr_utility.set_location('Entering:'|| v_proc, 5);
862: --
863: -- Get the period start, end dates and the assignment's current payroll.
864: --
865: open csr_per_dat;
880: -- does not last after the end of the periods and the payroll_id
881: -- matches the current payroll.
882: --
883: v_wrk_date := cur_asg.effective_end_date;
884: hr_utility.set_location(v_proc, 6);
885: --
886: elsif cur_asg.payroll_id = v_cur_payroll_id then
887: --
888: -- If the assignment is still on the same payroll at the end of
888: -- If the assignment is still on the same payroll at the end of
889: -- the period, then use the end of period date.
890: --
891: v_wrk_date := v_period_end_date;
892: hr_utility.set_location(v_proc, 7);
893: --
894: else
895: --
896: -- The current assignment is not on the same payroll as of the
896: -- The current assignment is not on the same payroll as of the
897: -- driving date.
898: --
899: null;
900: hr_utility.set_location(v_proc, 8);
901: end if;
902: --
903: end loop csr_per_asg_loop;
904: --
901: end if;
902: --
903: end loop csr_per_asg_loop;
904: --
905: hr_utility.set_location(' Leaving:'|| v_proc, 10);
906: --
907: return v_wrk_date;
908: end get_date_earned_for_gb;
909: --
952: from per_time_periods
953: where time_period_id = p_time_period_id
954: and regular_payment_date = p_effective_date;
955: begin
956: hr_utility.set_location('Entering:'|| v_proc, 5);
957: --
958: open sel_tim;
959: fetch sel_tim into v_exists;
960: if sel_tim%notfound then
960: if sel_tim%notfound then
961: close sel_tim;
962: -- Error: The QuickPay Date Paid must be the same as a payroll
963: -- period regular payment date.
964: hr_utility.set_message(801, 'HR_7286_QPAY_EFF_FOR_GB');
965: hr_utility.raise_error;
966: end if;
967: close sel_tim;
968: --
961: close sel_tim;
962: -- Error: The QuickPay Date Paid must be the same as a payroll
963: -- period regular payment date.
964: hr_utility.set_message(801, 'HR_7286_QPAY_EFF_FOR_GB');
965: hr_utility.raise_error;
966: end if;
967: close sel_tim;
968: --
969: hr_utility.set_location(' Leaving:'|| v_proc, 10);
965: hr_utility.raise_error;
966: end if;
967: close sel_tim;
968: --
969: hr_utility.set_location(' Leaving:'|| v_proc, 10);
970: end chk_eff_date_for_gb;
971: --
972: -- ----------------------------------------------------------------------------
973: -- |-----------------------------< chk_eff_date >-----------------------------|
1008: where rule_type = 'ENABLE_QP_OFFSET'
1009: and legislation_code = p_legislation_code;
1010: --
1011: begin
1012: hr_utility.set_location('Entering:'|| v_proc, 5);
1013: --
1014: -- Check mandatory arguments have been set
1015: --
1016: hr_api.mandatory_arg_error
1036: if sel_pay%notfound then
1037: close sel_pay;
1038: -- Error: You have tried to define QuickPay for an assignment that has no
1039: -- payroll component defined at Date Paid.
1040: hr_utility.set_message(801, 'HR_7246_QPAY_ASG_PAY_D_PAID');
1041: hr_utility.raise_error;
1042: end if;
1043: close sel_pay;
1044: hr_utility.set_location(v_proc, 6);
1037: close sel_pay;
1038: -- Error: You have tried to define QuickPay for an assignment that has no
1039: -- payroll component defined at Date Paid.
1040: hr_utility.set_message(801, 'HR_7246_QPAY_ASG_PAY_D_PAID');
1041: hr_utility.raise_error;
1042: end if;
1043: close sel_pay;
1044: hr_utility.set_location(v_proc, 6);
1045: --
1040: hr_utility.set_message(801, 'HR_7246_QPAY_ASG_PAY_D_PAID');
1041: hr_utility.raise_error;
1042: end if;
1043: close sel_pay;
1044: hr_utility.set_location(v_proc, 6);
1045: --
1046: -- Possible Error to check for: You have tried to define QuickPay for an
1047: -- assignment that has no payroll period defined at Date Paid.
1048: --
1075: ,p_time_period_id => v_eff_time_period_id
1076: );
1077: --
1078: end if;
1079: hr_utility.set_location(v_proc, 8);
1080: close get_leg_rule;
1081: --
1082: -- If required re-calculate new default value for date_earned
1083: --
1107: p_time_period_id := v_eff_time_period_id;
1108: p_period_name := v_eff_time_period_name;
1109: p_new_date_earned := v_new_date_earned;
1110: --
1111: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1112: end chk_eff_date;
1113: --
1114: -- ----------------------------------------------------------------------------
1115: -- |------------------------< chk_date_earned_for_gb >------------------------|
1149: v_df_date_earned pay_payroll_actions.date_earned%TYPE;
1150: v_proc varchar2(72) := g_package||'chk_date_earned_for_gb';
1151: --
1152: begin
1153: hr_utility.set_location('Entering:'|| v_proc, 5);
1154: --
1155: -- Find out the default value for date earned
1156: --
1157: v_df_date_earned := get_date_earned_for_gb
1164: --
1165: if v_df_date_earned <> p_date_earned then
1166: -- Error: You must use the default value for the QuickPay Run Date Earned,
1167: -- when using GB legislation.
1168: hr_utility.set_message(801, 'HR_7288_QPAY_ERN_FOR_GB');
1169: hr_utility.raise_error;
1170: end if;
1171: --
1172: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1165: if v_df_date_earned <> p_date_earned then
1166: -- Error: You must use the default value for the QuickPay Run Date Earned,
1167: -- when using GB legislation.
1168: hr_utility.set_message(801, 'HR_7288_QPAY_ERN_FOR_GB');
1169: hr_utility.raise_error;
1170: end if;
1171: --
1172: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1173: end chk_date_earned_for_gb;
1168: hr_utility.set_message(801, 'HR_7288_QPAY_ERN_FOR_GB');
1169: hr_utility.raise_error;
1170: end if;
1171: --
1172: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1173: end chk_date_earned_for_gb;
1174: --
1175: -- ----------------------------------------------------------------------------
1176: -- |----------------------------< chk_date_earned >---------------------------|
1198: and p_date_earned between asg.effective_start_date
1199: and asg.effective_end_date;
1200: --
1201: begin
1202: hr_utility.set_location('Entering:'|| v_proc, 5);
1203: --
1204: -- Check mandatory parameters have been set
1205: --
1206: hr_api.mandatory_arg_error
1233: if sel_pay%notfound then
1234: close sel_pay;
1235: -- Error: You have tried to define QuickPay for an assignment that has no
1236: -- payroll component defined at Date Earned.
1237: hr_utility.set_message(801, 'HR_7249_QPAY_ASG_PAY_D_EARNED');
1238: hr_utility.raise_error;
1239: end if;
1240: close sel_pay;
1241: hr_utility.set_location(v_proc, 6);
1234: close sel_pay;
1235: -- Error: You have tried to define QuickPay for an assignment that has no
1236: -- payroll component defined at Date Earned.
1237: hr_utility.set_message(801, 'HR_7249_QPAY_ASG_PAY_D_EARNED');
1238: hr_utility.raise_error;
1239: end if;
1240: close sel_pay;
1241: hr_utility.set_location(v_proc, 6);
1242: --
1237: hr_utility.set_message(801, 'HR_7249_QPAY_ASG_PAY_D_EARNED');
1238: hr_utility.raise_error;
1239: end if;
1240: close sel_pay;
1241: hr_utility.set_location(v_proc, 6);
1242: --
1243: -- A time period must exist for the payroll
1244: -- as of date earned.
1245: --
1251: ,p_message => 'HR_7250_QPAY_NO_PERIOD_D_EARN'
1252: ,p_time_period_id => v_not_used_period_id
1253: ,p_period_name => v_not_used_period_name
1254: );
1255: hr_utility.set_location(v_proc, 7);
1256: --
1257: -- For GB, carry out legislation specific checks.
1258: --
1259: if p_legislation_code = 'GB' then
1263: ,p_effective_date => p_effective_date
1264: );
1265: end if;
1266: --
1267: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1268: end chk_date_earned;
1269: --
1270: -- ----------------------------------------------------------------------------
1271: -- |-----------------------< chk_eff_earned_payroll >-------------------------|
1328: /* Payrolls are the same */
1329: and asg1.payroll_id = asg2.payroll_id;
1330: --
1331: begin
1332: hr_utility.set_location('Entering:'|| v_proc, 5);
1333: --
1334: -- Ensure the assignment is the same payroll
1335: -- as of the effective_date and date_earned.
1336: --
1342: if p_raise_error then
1343: -- Error: You have tried to define QuickPay for an assignment that has
1344: -- different payroll components for Date Earned and Date Paid. The
1345: -- assignment must be to the same payroll for both dates.
1346: hr_utility.set_message(801, 'HR_7251_QPAY_DIFF_PAYROLLS');
1347: hr_utility.raise_error;
1348: end if;
1349: else
1350: close sel_same;
1343: -- Error: You have tried to define QuickPay for an assignment that has
1344: -- different payroll components for Date Earned and Date Paid. The
1345: -- assignment must be to the same payroll for both dates.
1346: hr_utility.set_message(801, 'HR_7251_QPAY_DIFF_PAYROLLS');
1347: hr_utility.raise_error;
1348: end if;
1349: else
1350: close sel_same;
1351: p_same_payroll := true;
1349: else
1350: close sel_same;
1351: p_same_payroll := true;
1352: end if;
1353: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1354: end chk_eff_earned_payroll;
1355: --
1356: -- ----------------------------------------------------------------------------
1357: -- |-------------------------< chk_action_status >----------------------------|
1395: --
1396: v_proc varchar2(72) := g_package||'chk_action_status';
1397: --
1398: begin
1399: hr_utility.set_location('Entering:'||v_proc, 5);
1400: --
1401: -- Check the updated status is from 'C'omplete to 'M'ark for Retry
1402: --
1403: if (p_old_action_status not in ('C', 'S')) and (p_new_action_status <> 'M') then
1403: if (p_old_action_status not in ('C', 'S')) and (p_new_action_status <> 'M') then
1404: -- Error: You have tried to enter an invalid status for a completed
1405: -- QuickPay run. You can only update a completed assignment process
1406: -- status to Marked for Retry.
1407: hr_utility.set_message(801, 'HR_7252_QPAY_ONLY_MARK_RETRY');
1408: hr_utility.raise_error;
1409: end if;
1410: hr_utility.set_location(v_proc, 6);
1411: --
1404: -- Error: You have tried to enter an invalid status for a completed
1405: -- QuickPay run. You can only update a completed assignment process
1406: -- status to Marked for Retry.
1407: hr_utility.set_message(801, 'HR_7252_QPAY_ONLY_MARK_RETRY');
1408: hr_utility.raise_error;
1409: end if;
1410: hr_utility.set_location(v_proc, 6);
1411: --
1412: -- Check that this QuickPay Run can have
1406: -- status to Marked for Retry.
1407: hr_utility.set_message(801, 'HR_7252_QPAY_ONLY_MARK_RETRY');
1408: hr_utility.raise_error;
1409: end if;
1410: hr_utility.set_location(v_proc, 6);
1411: --
1412: -- Check that this QuickPay Run can have
1413: -- a status of Mark for Retry
1414: --
1416: p_payroll_action_id => p_payroll_action_id,
1417: p_rollback_mode => 'RETRY',
1418: p_leave_base_table_row => TRUE);
1419: --
1420: hr_utility.set_location(' Leaving:'||v_proc, 10);
1421: end chk_action_status;
1422: --
1423: -- KKAWOl : Ok, commenting chk_legislative_parameters out as this is no
1424: -- longer required. We pass run type id to the run instead.
1475: --
1476: v_proc varchar2(72) := g_package||'chk_legislative_parameters';
1477: --
1478: begin
1479: hr_utility.set_location('Entering:'|| v_proc, 5);
1480: --
1481: if p_legislation_code = 'US' or
1482: p_legislation_code = 'CA' then
1483: --
1487: if p_action_status = 'C' then
1488: -- Error: You have tried to alter the Regular/Supplemental flag for a
1489: -- completed QuickPay run. You can only change this flag before a run
1490: -- commences.
1491: hr_utility.set_message(801, 'HR_7253_QPAY_REG_SUPP_NO_UPD');
1492: hr_utility.raise_error;
1493: end if;
1494: --
1495: -- When the legislation is US then legislative_parameters
1488: -- Error: You have tried to alter the Regular/Supplemental flag for a
1489: -- completed QuickPay run. You can only change this flag before a run
1490: -- commences.
1491: hr_utility.set_message(801, 'HR_7253_QPAY_REG_SUPP_NO_UPD');
1492: hr_utility.raise_error;
1493: end if;
1494: --
1495: -- When the legislation is US then legislative_parameters
1496: -- must be set to 'R' or 'S'.
1501: (p_legislative_parameters <> 'S')) then
1502: -- Error: For US Business Groups the payroll process
1503: -- legislative_parameters must be set to 'R' (for Regular) or 'S'
1504: -- (for Supplemental).
1505: hr_utility.set_message(801, 'HR_7254_QPAY_LEG_PAR_R_OR_S');
1506: hr_utility.raise_error;
1507: end if;
1508:
1509: elsif p_legislation_code = 'CA' then
1502: -- Error: For US Business Groups the payroll process
1503: -- legislative_parameters must be set to 'R' (for Regular) or 'S'
1504: -- (for Supplemental).
1505: hr_utility.set_message(801, 'HR_7254_QPAY_LEG_PAR_R_OR_S');
1506: hr_utility.raise_error;
1507: end if;
1508:
1509: elsif p_legislation_code = 'CA' then
1510:
1516: -- Error: For Canadian Business Groups the payroll process
1517: -- legislative_parameters must be set to 'R' (for Regular) or
1518: -- 'N' (for Non Periodic) or 'L' (for Lump Sum).
1519:
1520: hr_utility.set_message(801,'HR_7254_QPAY_LEG_PAR_R_OR_S');
1521: hr_utility.raise_error;
1522: end if;
1523:
1524: end if;
1517: -- legislative_parameters must be set to 'R' (for Regular) or
1518: -- 'N' (for Non Periodic) or 'L' (for Lump Sum).
1519:
1520: hr_utility.set_message(801,'HR_7254_QPAY_LEG_PAR_R_OR_S');
1521: hr_utility.raise_error;
1522: end if;
1523:
1524: end if;
1525: else
1529: --
1530: if p_legislative_parameters is not null then
1531: -- Error: For this legislation, you must set the payroll process
1532: -- legislative_parameters attribute to null.
1533: hr_utility.set_message(801, 'HR_7255_QPAY_LEG_PAR_NULL');
1534: hr_utility.raise_error;
1535: end if;
1536: end if;
1537: --
1530: if p_legislative_parameters is not null then
1531: -- Error: For this legislation, you must set the payroll process
1532: -- legislative_parameters attribute to null.
1533: hr_utility.set_message(801, 'HR_7255_QPAY_LEG_PAR_NULL');
1534: hr_utility.raise_error;
1535: end if;
1536: end if;
1537: --
1538: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1534: hr_utility.raise_error;
1535: end if;
1536: end if;
1537: --
1538: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1539: End chk_legislative_parameters;
1540: --
1541: */
1542: -- ----------------------------------------------------------------------------
1598: and p_effective_date between rt.effective_start_date
1599: and rt.effective_end_date;
1600: --
1601: begin
1602: hr_utility.set_location('Entering:'|| v_proc, 5);
1603: --
1604: -- Cannot have a run type id as not null if the row on
1605: -- pay_legislative_field_info does not exist.
1606: --
1609: fetch get_leg_rule into l_rule_mode;
1610: if ((get_leg_rule%notfound) OR
1611: (get_leg_rule%found and l_rule_mode <> 'Y')) then
1612: close get_leg_rule;
1613: hr_utility.set_message(801, 'PAY_52380_INVALID_RUN_TYPE');
1614: hr_utility.raise_error;
1615: end if;
1616: --
1617: close get_leg_rule;
1610: if ((get_leg_rule%notfound) OR
1611: (get_leg_rule%found and l_rule_mode <> 'Y')) then
1612: close get_leg_rule;
1613: hr_utility.set_message(801, 'PAY_52380_INVALID_RUN_TYPE');
1614: hr_utility.raise_error;
1615: end if;
1616: --
1617: close get_leg_rule;
1618: --
1622: open get_rt_exists;
1623: fetch get_rt_exists into l_rt_exists;
1624: if (get_rt_exists%notfound) then
1625: close get_rt_exists;
1626: hr_utility.set_message(801, 'PAY_52380_INVALID_RUN_TYPE');
1627: hr_utility.raise_error;
1628: end if;
1629: --
1630: close get_rt_exists;
1623: fetch get_rt_exists into l_rt_exists;
1624: if (get_rt_exists%notfound) then
1625: close get_rt_exists;
1626: hr_utility.set_message(801, 'PAY_52380_INVALID_RUN_TYPE');
1627: hr_utility.raise_error;
1628: end if;
1629: --
1630: close get_rt_exists;
1631: --
1630: close get_rt_exists;
1631: --
1632: end if;
1633: --
1634: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1635: End chk_run_type;
1636: --
1637: -- ----------------------------------------------------------------------------
1638: -- |-----------------------------< chk_cur_task >-----------------------------|
1668: --
1669: v_proc varchar2(72) := g_package||'chk_cur_task';
1670: --
1671: begin
1672: hr_utility.set_location('Entering:'|| v_proc, 5);
1673: --
1674: if p_current_task is not null then
1675: -- Error: You have tried to update a field or to delete the QuickPay run
1676: -- while the run is processing.
1673: --
1674: if p_current_task is not null then
1675: -- Error: You have tried to update a field or to delete the QuickPay run
1676: -- while the run is processing.
1677: hr_utility.set_message(801, 'HR_7241_QPAY_Q_PROCESSING');
1678: hr_utility.raise_error;
1679: end if;
1680: --
1681: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1674: if p_current_task is not null then
1675: -- Error: You have tried to update a field or to delete the QuickPay run
1676: -- while the run is processing.
1677: hr_utility.set_message(801, 'HR_7241_QPAY_Q_PROCESSING');
1678: hr_utility.raise_error;
1679: end if;
1680: --
1681: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1682: end chk_cur_task;
1677: hr_utility.set_message(801, 'HR_7241_QPAY_Q_PROCESSING');
1678: hr_utility.raise_error;
1679: end if;
1680: --
1681: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1682: end chk_cur_task;
1683: --
1684: -- ----------------------------------------------------------------------------
1685: -- |-------------------------< chk_for_con_request >--------------------------|
1702: select request_id
1703: from pay_payroll_actions
1704: where payroll_action_id = p_payroll_action_id;
1705: begin
1706: hr_utility.set_location('Entering:'|| v_proc, 5);
1707: --
1708: -- Try to obtain the AOL request_id for this payroll process.
1709: --
1710: open sel_reqt;
1712: if sel_reqt%notfound then
1713: close sel_reqt;
1714: -- A row could not be found in pay_payroll_actions
1715: -- with an id of p_payroll_action_id.
1716: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
1717: hr_utility.raise_error;
1718: end if;
1719: close sel_reqt;
1720: hr_utility.set_location(v_proc, 7);
1713: close sel_reqt;
1714: -- A row could not be found in pay_payroll_actions
1715: -- with an id of p_payroll_action_id.
1716: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
1717: hr_utility.raise_error;
1718: end if;
1719: close sel_reqt;
1720: hr_utility.set_location(v_proc, 7);
1721: --
1716: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
1717: hr_utility.raise_error;
1718: end if;
1719: close sel_reqt;
1720: hr_utility.set_location(v_proc, 7);
1721: --
1722: -- Only need to find out the concurrent request status
1723: -- if the request_id is set and is non-zero.
1724: --
1722: -- Only need to find out the concurrent request status
1723: -- if the request_id is set and is non-zero.
1724: --
1725: if (v_request_id is not null) and (v_request_id <> 0) then
1726: hr_utility.set_location(v_proc, 8);
1727: --
1728: v_bl := fnd_concurrent.get_request_status
1729: (request_id => v_request_id
1730: ,phase => v_phase
1732: ,dev_phase => v_dev_phase
1733: ,dev_status => v_dev_status
1734: ,message => v_message
1735: );
1736: hr_utility.set_location(v_proc, 9);
1737: --
1738: -- The process is still waiting or running if the
1739: -- concurrent phase value is not Completed.
1740: --
1742: -- Error: You cannot update or delete a QuickPay definition when a
1743: -- request is still running or waiting to run on the AOL concurrent
1744: -- manager. You may need to contact your system administrator to resolve
1745: -- this problem. Please quote AOL concurrent request_id *REQUEST_ID.
1746: hr_utility.set_message(801, 'HR_7264_QPAY_CON_REQ_STILL_RUN');
1747: hr_utility.set_message_token('REQUEST_ID', to_char(v_request_id));
1748: hr_utility.raise_error;
1749: end if;
1750: end if;
1743: -- request is still running or waiting to run on the AOL concurrent
1744: -- manager. You may need to contact your system administrator to resolve
1745: -- this problem. Please quote AOL concurrent request_id *REQUEST_ID.
1746: hr_utility.set_message(801, 'HR_7264_QPAY_CON_REQ_STILL_RUN');
1747: hr_utility.set_message_token('REQUEST_ID', to_char(v_request_id));
1748: hr_utility.raise_error;
1749: end if;
1750: end if;
1751: --
1744: -- manager. You may need to contact your system administrator to resolve
1745: -- this problem. Please quote AOL concurrent request_id *REQUEST_ID.
1746: hr_utility.set_message(801, 'HR_7264_QPAY_CON_REQ_STILL_RUN');
1747: hr_utility.set_message_token('REQUEST_ID', to_char(v_request_id));
1748: hr_utility.raise_error;
1749: end if;
1750: end if;
1751: --
1752: hr_utility.set_location(' Leaving:'|| v_proc, 15);
1748: hr_utility.raise_error;
1749: end if;
1750: end if;
1751: --
1752: hr_utility.set_location(' Leaving:'|| v_proc, 15);
1753: end chk_for_con_request;
1754: --
1755: -- ----------------------------------------------------------------------------
1756: -- |------------------------< get_legislation_code >--------------------------|
1790: v_legislation_code per_business_groups.legislation_code%TYPE;
1791: v_proc varchar2(72) := g_package||'get_legislation_code';
1792: --
1793: Begin
1794: hr_utility.set_location('Entering:'|| v_proc, 5);
1795: --
1796: -- Find out the legislation code for the current business group
1797: --
1798: open cur_leg;
1799: fetch cur_leg into v_legislation_code;
1800: if cur_leg%notfound then
1801: close cur_leg;
1802: -- The legislation code could not be found for current business group.
1803: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1804: hr_utility.set_message_token('PROCEDURE', v_proc);
1805: hr_utility.set_message_token('STEP', '6');
1806: hr_utility.raise_error;
1807: end if;
1800: if cur_leg%notfound then
1801: close cur_leg;
1802: -- The legislation code could not be found for current business group.
1803: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1804: hr_utility.set_message_token('PROCEDURE', v_proc);
1805: hr_utility.set_message_token('STEP', '6');
1806: hr_utility.raise_error;
1807: end if;
1808: close cur_leg;
1801: close cur_leg;
1802: -- The legislation code could not be found for current business group.
1803: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1804: hr_utility.set_message_token('PROCEDURE', v_proc);
1805: hr_utility.set_message_token('STEP', '6');
1806: hr_utility.raise_error;
1807: end if;
1808: close cur_leg;
1809: --
1802: -- The legislation code could not be found for current business group.
1803: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1804: hr_utility.set_message_token('PROCEDURE', v_proc);
1805: hr_utility.set_message_token('STEP', '6');
1806: hr_utility.raise_error;
1807: end if;
1808: close cur_leg;
1809: --
1810: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1806: hr_utility.raise_error;
1807: end if;
1808: close cur_leg;
1809: --
1810: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1811: --
1812: return v_legislation_code;
1813: end get_legislation_code;
1814: --
1820: --
1821: v_proc varchar2(72) := g_package||'return_api_dml_status';
1822: --
1823: begin
1824: hr_utility.set_location('Entering:'||v_proc, 5);
1825: --
1826: Return (nvl(g_api_dml, false));
1827: --
1828: hr_utility.set_location(' Leaving:'||v_proc, 10);
1824: hr_utility.set_location('Entering:'||v_proc, 5);
1825: --
1826: Return (nvl(g_api_dml, false));
1827: --
1828: hr_utility.set_location(' Leaving:'||v_proc, 10);
1829: end return_api_dml_status;
1830: --
1831: -- ----------------------------------------------------------------------------
1832: -- |---------------------------< constraint_error >---------------------------|
1876: --
1877: v_proc varchar2(72) := g_package||'constraint_error';
1878: --
1879: Begin
1880: hr_utility.set_location('Entering:'||v_proc, 5);
1881: --
1882: If (p_constraint_name = 'PAY_PAYRACT_ACTION_POPULAT_CHK') Then
1883: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1884: hr_utility.set_message_token('PROCEDURE', v_proc);
1879: Begin
1880: hr_utility.set_location('Entering:'||v_proc, 5);
1881: --
1882: If (p_constraint_name = 'PAY_PAYRACT_ACTION_POPULAT_CHK') Then
1883: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1884: hr_utility.set_message_token('PROCEDURE', v_proc);
1885: hr_utility.set_message_token('STEP','5');
1886: hr_utility.raise_error;
1887: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_STATUS_CHK') Then
1880: hr_utility.set_location('Entering:'||v_proc, 5);
1881: --
1882: If (p_constraint_name = 'PAY_PAYRACT_ACTION_POPULAT_CHK') Then
1883: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1884: hr_utility.set_message_token('PROCEDURE', v_proc);
1885: hr_utility.set_message_token('STEP','5');
1886: hr_utility.raise_error;
1887: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_STATUS_CHK') Then
1888: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1881: --
1882: If (p_constraint_name = 'PAY_PAYRACT_ACTION_POPULAT_CHK') Then
1883: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1884: hr_utility.set_message_token('PROCEDURE', v_proc);
1885: hr_utility.set_message_token('STEP','5');
1886: hr_utility.raise_error;
1887: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_STATUS_CHK') Then
1888: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1889: hr_utility.set_message_token('PROCEDURE', v_proc);
1882: If (p_constraint_name = 'PAY_PAYRACT_ACTION_POPULAT_CHK') Then
1883: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1884: hr_utility.set_message_token('PROCEDURE', v_proc);
1885: hr_utility.set_message_token('STEP','5');
1886: hr_utility.raise_error;
1887: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_STATUS_CHK') Then
1888: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1889: hr_utility.set_message_token('PROCEDURE', v_proc);
1890: hr_utility.set_message_token('STEP','10');
1884: hr_utility.set_message_token('PROCEDURE', v_proc);
1885: hr_utility.set_message_token('STEP','5');
1886: hr_utility.raise_error;
1887: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_STATUS_CHK') Then
1888: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1889: hr_utility.set_message_token('PROCEDURE', v_proc);
1890: hr_utility.set_message_token('STEP','10');
1891: hr_utility.raise_error;
1892: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_TYPE_CHK') Then
1885: hr_utility.set_message_token('STEP','5');
1886: hr_utility.raise_error;
1887: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_STATUS_CHK') Then
1888: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1889: hr_utility.set_message_token('PROCEDURE', v_proc);
1890: hr_utility.set_message_token('STEP','10');
1891: hr_utility.raise_error;
1892: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_TYPE_CHK') Then
1893: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1886: hr_utility.raise_error;
1887: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_STATUS_CHK') Then
1888: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1889: hr_utility.set_message_token('PROCEDURE', v_proc);
1890: hr_utility.set_message_token('STEP','10');
1891: hr_utility.raise_error;
1892: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_TYPE_CHK') Then
1893: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1894: hr_utility.set_message_token('PROCEDURE', v_proc);
1887: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_STATUS_CHK') Then
1888: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1889: hr_utility.set_message_token('PROCEDURE', v_proc);
1890: hr_utility.set_message_token('STEP','10');
1891: hr_utility.raise_error;
1892: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_TYPE_CHK') Then
1893: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1894: hr_utility.set_message_token('PROCEDURE', v_proc);
1895: hr_utility.set_message_token('STEP','15');
1889: hr_utility.set_message_token('PROCEDURE', v_proc);
1890: hr_utility.set_message_token('STEP','10');
1891: hr_utility.raise_error;
1892: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_TYPE_CHK') Then
1893: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1894: hr_utility.set_message_token('PROCEDURE', v_proc);
1895: hr_utility.set_message_token('STEP','15');
1896: elsif (p_constraint_name = 'PAY_PAYRACT_CURRENT_TASK_CHK') Then
1897: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1890: hr_utility.set_message_token('STEP','10');
1891: hr_utility.raise_error;
1892: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_TYPE_CHK') Then
1893: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1894: hr_utility.set_message_token('PROCEDURE', v_proc);
1895: hr_utility.set_message_token('STEP','15');
1896: elsif (p_constraint_name = 'PAY_PAYRACT_CURRENT_TASK_CHK') Then
1897: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1898: hr_utility.set_message_token('PROCEDURE', v_proc);
1891: hr_utility.raise_error;
1892: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_TYPE_CHK') Then
1893: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1894: hr_utility.set_message_token('PROCEDURE', v_proc);
1895: hr_utility.set_message_token('STEP','15');
1896: elsif (p_constraint_name = 'PAY_PAYRACT_CURRENT_TASK_CHK') Then
1897: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1898: hr_utility.set_message_token('PROCEDURE', v_proc);
1899: hr_utility.set_message_token('STEP','20');
1893: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1894: hr_utility.set_message_token('PROCEDURE', v_proc);
1895: hr_utility.set_message_token('STEP','15');
1896: elsif (p_constraint_name = 'PAY_PAYRACT_CURRENT_TASK_CHK') Then
1897: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1898: hr_utility.set_message_token('PROCEDURE', v_proc);
1899: hr_utility.set_message_token('STEP','20');
1900: hr_utility.raise_error;
1901: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1894: hr_utility.set_message_token('PROCEDURE', v_proc);
1895: hr_utility.set_message_token('STEP','15');
1896: elsif (p_constraint_name = 'PAY_PAYRACT_CURRENT_TASK_CHK') Then
1897: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1898: hr_utility.set_message_token('PROCEDURE', v_proc);
1899: hr_utility.set_message_token('STEP','20');
1900: hr_utility.raise_error;
1901: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1902: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1895: hr_utility.set_message_token('STEP','15');
1896: elsif (p_constraint_name = 'PAY_PAYRACT_CURRENT_TASK_CHK') Then
1897: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1898: hr_utility.set_message_token('PROCEDURE', v_proc);
1899: hr_utility.set_message_token('STEP','20');
1900: hr_utility.raise_error;
1901: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1902: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1903: hr_utility.set_message_token('PROCEDURE', v_proc);
1896: elsif (p_constraint_name = 'PAY_PAYRACT_CURRENT_TASK_CHK') Then
1897: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1898: hr_utility.set_message_token('PROCEDURE', v_proc);
1899: hr_utility.set_message_token('STEP','20');
1900: hr_utility.raise_error;
1901: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1902: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1903: hr_utility.set_message_token('PROCEDURE', v_proc);
1904: hr_utility.set_message_token('STEP','25');
1898: hr_utility.set_message_token('PROCEDURE', v_proc);
1899: hr_utility.set_message_token('STEP','20');
1900: hr_utility.raise_error;
1901: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1902: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1903: hr_utility.set_message_token('PROCEDURE', v_proc);
1904: hr_utility.set_message_token('STEP','25');
1905: hr_utility.raise_error;
1906: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1899: hr_utility.set_message_token('STEP','20');
1900: hr_utility.raise_error;
1901: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1902: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1903: hr_utility.set_message_token('PROCEDURE', v_proc);
1904: hr_utility.set_message_token('STEP','25');
1905: hr_utility.raise_error;
1906: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1907: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1900: hr_utility.raise_error;
1901: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1902: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1903: hr_utility.set_message_token('PROCEDURE', v_proc);
1904: hr_utility.set_message_token('STEP','25');
1905: hr_utility.raise_error;
1906: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1907: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1908: hr_utility.set_message_token('PROCEDURE', v_proc);
1901: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1902: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1903: hr_utility.set_message_token('PROCEDURE', v_proc);
1904: hr_utility.set_message_token('STEP','25');
1905: hr_utility.raise_error;
1906: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1907: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1908: hr_utility.set_message_token('PROCEDURE', v_proc);
1909: hr_utility.set_message_token('STEP','30');
1903: hr_utility.set_message_token('PROCEDURE', v_proc);
1904: hr_utility.set_message_token('STEP','25');
1905: hr_utility.raise_error;
1906: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1907: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1908: hr_utility.set_message_token('PROCEDURE', v_proc);
1909: hr_utility.set_message_token('STEP','30');
1910: hr_utility.raise_error;
1911: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1904: hr_utility.set_message_token('STEP','25');
1905: hr_utility.raise_error;
1906: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1907: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1908: hr_utility.set_message_token('PROCEDURE', v_proc);
1909: hr_utility.set_message_token('STEP','30');
1910: hr_utility.raise_error;
1911: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1912: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1905: hr_utility.raise_error;
1906: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1907: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1908: hr_utility.set_message_token('PROCEDURE', v_proc);
1909: hr_utility.set_message_token('STEP','30');
1910: hr_utility.raise_error;
1911: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1912: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1913: hr_utility.set_message_token('PROCEDURE', v_proc);
1906: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1907: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1908: hr_utility.set_message_token('PROCEDURE', v_proc);
1909: hr_utility.set_message_token('STEP','30');
1910: hr_utility.raise_error;
1911: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1912: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1913: hr_utility.set_message_token('PROCEDURE', v_proc);
1914: hr_utility.set_message_token('STEP','35');
1908: hr_utility.set_message_token('PROCEDURE', v_proc);
1909: hr_utility.set_message_token('STEP','30');
1910: hr_utility.raise_error;
1911: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1912: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1913: hr_utility.set_message_token('PROCEDURE', v_proc);
1914: hr_utility.set_message_token('STEP','35');
1915: hr_utility.raise_error;
1916: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1909: hr_utility.set_message_token('STEP','30');
1910: hr_utility.raise_error;
1911: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1912: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1913: hr_utility.set_message_token('PROCEDURE', v_proc);
1914: hr_utility.set_message_token('STEP','35');
1915: hr_utility.raise_error;
1916: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1917: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1910: hr_utility.raise_error;
1911: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1912: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1913: hr_utility.set_message_token('PROCEDURE', v_proc);
1914: hr_utility.set_message_token('STEP','35');
1915: hr_utility.raise_error;
1916: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1917: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1918: hr_utility.set_message_token('PROCEDURE', v_proc);
1911: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1912: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1913: hr_utility.set_message_token('PROCEDURE', v_proc);
1914: hr_utility.set_message_token('STEP','35');
1915: hr_utility.raise_error;
1916: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1917: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1918: hr_utility.set_message_token('PROCEDURE', v_proc);
1919: hr_utility.set_message_token('STEP','40');
1913: hr_utility.set_message_token('PROCEDURE', v_proc);
1914: hr_utility.set_message_token('STEP','35');
1915: hr_utility.raise_error;
1916: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1917: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1918: hr_utility.set_message_token('PROCEDURE', v_proc);
1919: hr_utility.set_message_token('STEP','40');
1920: hr_utility.raise_error;
1921: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1914: hr_utility.set_message_token('STEP','35');
1915: hr_utility.raise_error;
1916: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1917: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1918: hr_utility.set_message_token('PROCEDURE', v_proc);
1919: hr_utility.set_message_token('STEP','40');
1920: hr_utility.raise_error;
1921: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1922: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1915: hr_utility.raise_error;
1916: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1917: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1918: hr_utility.set_message_token('PROCEDURE', v_proc);
1919: hr_utility.set_message_token('STEP','40');
1920: hr_utility.raise_error;
1921: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1922: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1923: hr_utility.set_message_token('PROCEDURE', v_proc);
1916: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1917: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1918: hr_utility.set_message_token('PROCEDURE', v_proc);
1919: hr_utility.set_message_token('STEP','40');
1920: hr_utility.raise_error;
1921: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1922: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1923: hr_utility.set_message_token('PROCEDURE', v_proc);
1924: hr_utility.set_message_token('STEP','45');
1918: hr_utility.set_message_token('PROCEDURE', v_proc);
1919: hr_utility.set_message_token('STEP','40');
1920: hr_utility.raise_error;
1921: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1922: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1923: hr_utility.set_message_token('PROCEDURE', v_proc);
1924: hr_utility.set_message_token('STEP','45');
1925: hr_utility.raise_error;
1926: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1919: hr_utility.set_message_token('STEP','40');
1920: hr_utility.raise_error;
1921: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1922: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1923: hr_utility.set_message_token('PROCEDURE', v_proc);
1924: hr_utility.set_message_token('STEP','45');
1925: hr_utility.raise_error;
1926: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1927: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1920: hr_utility.raise_error;
1921: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1922: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1923: hr_utility.set_message_token('PROCEDURE', v_proc);
1924: hr_utility.set_message_token('STEP','45');
1925: hr_utility.raise_error;
1926: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1927: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1928: hr_utility.set_message_token('PROCEDURE', v_proc);
1921: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1922: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1923: hr_utility.set_message_token('PROCEDURE', v_proc);
1924: hr_utility.set_message_token('STEP','45');
1925: hr_utility.raise_error;
1926: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1927: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1928: hr_utility.set_message_token('PROCEDURE', v_proc);
1929: hr_utility.set_message_token('STEP','50');
1923: hr_utility.set_message_token('PROCEDURE', v_proc);
1924: hr_utility.set_message_token('STEP','45');
1925: hr_utility.raise_error;
1926: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1927: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1928: hr_utility.set_message_token('PROCEDURE', v_proc);
1929: hr_utility.set_message_token('STEP','50');
1930: hr_utility.raise_error;
1931: else
1924: hr_utility.set_message_token('STEP','45');
1925: hr_utility.raise_error;
1926: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1927: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1928: hr_utility.set_message_token('PROCEDURE', v_proc);
1929: hr_utility.set_message_token('STEP','50');
1930: hr_utility.raise_error;
1931: else
1932: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1925: hr_utility.raise_error;
1926: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1927: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1928: hr_utility.set_message_token('PROCEDURE', v_proc);
1929: hr_utility.set_message_token('STEP','50');
1930: hr_utility.raise_error;
1931: else
1932: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1933: hr_utility.set_message_token('PROCEDURE', v_proc);
1926: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1927: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1928: hr_utility.set_message_token('PROCEDURE', v_proc);
1929: hr_utility.set_message_token('STEP','50');
1930: hr_utility.raise_error;
1931: else
1932: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1933: hr_utility.set_message_token('PROCEDURE', v_proc);
1934: hr_utility.set_message_token('STEP','55');
1928: hr_utility.set_message_token('PROCEDURE', v_proc);
1929: hr_utility.set_message_token('STEP','50');
1930: hr_utility.raise_error;
1931: else
1932: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1933: hr_utility.set_message_token('PROCEDURE', v_proc);
1934: hr_utility.set_message_token('STEP','55');
1935: hr_utility.raise_error;
1936: end if;
1929: hr_utility.set_message_token('STEP','50');
1930: hr_utility.raise_error;
1931: else
1932: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1933: hr_utility.set_message_token('PROCEDURE', v_proc);
1934: hr_utility.set_message_token('STEP','55');
1935: hr_utility.raise_error;
1936: end if;
1937: --
1930: hr_utility.raise_error;
1931: else
1932: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1933: hr_utility.set_message_token('PROCEDURE', v_proc);
1934: hr_utility.set_message_token('STEP','55');
1935: hr_utility.raise_error;
1936: end if;
1937: --
1938: hr_utility.set_location(' Leaving:'||v_proc, 10);
1931: else
1932: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1933: hr_utility.set_message_token('PROCEDURE', v_proc);
1934: hr_utility.set_message_token('STEP','55');
1935: hr_utility.raise_error;
1936: end if;
1937: --
1938: hr_utility.set_location(' Leaving:'||v_proc, 10);
1939: End constraint_error;
1934: hr_utility.set_message_token('STEP','55');
1935: hr_utility.raise_error;
1936: end if;
1937: --
1938: hr_utility.set_location(' Leaving:'||v_proc, 10);
1939: End constraint_error;
1940: --
1941: -- ----------------------------------------------------------------------------
1942: -- |-------------------------< check_mandatory_args >-------------------------|
1972: v_proc varchar2(72) := g_package||'check_mandatory_args';
1973: v_argument varchar2(30);
1974: --
1975: Begin
1976: hr_utility.set_location('Entering:'||v_proc, 5);
1977: --
1978: -- This procedure does not check action_type, action_population_status,
1979: -- action_status because they are all set at by the pre-insert procedure.
1980: -- Consolidation_set_id is has been added to this procedure because it is
1995: ,p_argument => 'consolidation_set_id'
1996: ,p_argument_value => p_rec.consolidation_set_id
1997: );
1998: --
1999: hr_utility.set_location(' Leaving:'||v_proc, 10);
2000: End check_mandatory_args;
2001: --
2002: -- ----------------------------------------------------------------------------
2003: -- |----------------------< check_non_updateable_args >-----------------------|
2032: v_proc varchar2(72) := g_package||'check_non_updateable_args';
2033: v_argument varchar2(30);
2034: --
2035: Begin
2036: hr_utility.set_location('Entering:'||v_proc, 5);
2037: if nvl(p_rec.business_group_id, hr_api.g_number) <>
2038: nvl(g_old_rec.business_group_id, hr_api.g_number) then
2039: v_argument := 'business_group_id';
2040: raise hr_api.argument_changed;
2038: nvl(g_old_rec.business_group_id, hr_api.g_number) then
2039: v_argument := 'business_group_id';
2040: raise hr_api.argument_changed;
2041: end if;
2042: hr_utility.set_location(v_proc, 6);
2043: --
2044: if nvl(p_rec.effective_date, hr_api.g_date) <>
2045: nvl(g_old_rec.effective_date, hr_api.g_date) then
2046: v_argument := 'effective_date';
2045: nvl(g_old_rec.effective_date, hr_api.g_date) then
2046: v_argument := 'effective_date';
2047: raise hr_api.argument_changed;
2048: end if;
2049: hr_utility.set_location(v_proc, 7);
2050: --
2051: if nvl(p_rec.current_task, hr_api.g_varchar2) <>
2052: nvl(g_old_rec.current_task, hr_api.g_varchar2) then
2053: v_argument := 'current_task';
2052: nvl(g_old_rec.current_task, hr_api.g_varchar2) then
2053: v_argument := 'current_task';
2054: raise hr_api.argument_changed;
2055: end if;
2056: hr_utility.set_location(v_proc, 8);
2057: --
2058: if nvl(p_rec.date_earned, hr_api.g_date) <>
2059: nvl(g_old_rec.date_earned, hr_api.g_date) then
2060: v_argument := 'date_earned';
2060: v_argument := 'date_earned';
2061: raise hr_api.argument_changed;
2062: end if;
2063: --
2064: hr_utility.set_location(' Leaving:'||v_proc, 10);
2065: Exception
2066: When hr_api.argument_changed Then
2067: --
2068: -- A non updatetable attribute has been changed therefore we
2119: --
2120: Cursor C_Sel1 is select pay_payroll_actions_s.nextval from sys.dual;
2121: --
2122: Begin
2123: hr_utility.set_location('Entering:'|| v_proc, 5);
2124: --
2125: -- Set the following attributes to there insert values.
2126: -- (payroll_id and time_period_id are during the insert_validate logic.)
2127: --
2146: open C_Sel1;
2147: fetch C_Sel1 into p_rec.payroll_action_id;
2148: close C_Sel1;
2149: --
2150: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2151: End pre_insert;
2152: --
2153: -- ----------------------------------------------------------------------------
2154: -- |------------------------------< pre_update >------------------------------|
2179: --
2180: v_proc varchar2(72) := g_package||'pre_update';
2181: --
2182: Begin
2183: hr_utility.set_location('Entering:'|| v_proc, 5);
2184: --
2185: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2186: End pre_update;
2187: --
2181: --
2182: Begin
2183: hr_utility.set_location('Entering:'|| v_proc, 5);
2184: --
2185: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2186: End pre_update;
2187: --
2188: -- ----------------------------------------------------------------------------
2189: -- |------------------------------< pre_delete >------------------------------|
2216: --
2217: v_proc varchar2(72) := g_package||'pre_delete';
2218: --
2219: Begin
2220: hr_utility.set_location('Entering:'|| v_proc, 5);
2221: --
2222: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2223: End pre_delete;
2224: --
2218: --
2219: Begin
2220: hr_utility.set_location('Entering:'|| v_proc, 5);
2221: --
2222: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2223: End pre_delete;
2224: --
2225: -- ----------------------------------------------------------------------------
2226: -- |-----------------------------< post_insert >------------------------------|
2271: v_object_version_number pay_assignment_actions.object_version_number%TYPE;
2272: v_proc varchar2(72) := g_package||'post_insert';
2273: --
2274: begin
2275: hr_utility.set_location('Entering:'|| v_proc, 5);
2276: --
2277: -- For a QuickPay insert the assignment action
2278: -- and quickpay inclusion rows. (The payroll action and
2279: -- assignment action must be inserted in the same commit unit.
2286: ,p_assignment_id => p_assignment_id
2287: ,p_assignment_action_id => v_assignment_action_id
2288: ,p_object_version_number => v_object_version_number
2289: );
2290: hr_utility.set_location(v_proc, 6);
2291: --
2292: -- Insert default quickpay inclusions
2293: --
2294: -- Enhancement 3368211
2301: ,p_validate => p_validate
2302: );
2303: end if;
2304: --
2305: hr_utility.set_location(v_proc, 7);
2306: --
2307: p_assignment_action_id := v_assignment_action_id;
2308: p_a_object_version_number := v_object_version_number;
2309: --
2306: --
2307: p_assignment_action_id := v_assignment_action_id;
2308: p_a_object_version_number := v_object_version_number;
2309: --
2310: hr_utility.set_location('Leaving:'|| v_proc, 10);
2311: end post_insert;
2312: --
2313: -- ----------------------------------------------------------------------------
2314: -- |-----------------------------< post_update >------------------------------|
2341: --
2342: v_proc varchar2(72) := g_package||'post_update';
2343: --
2344: Begin
2345: hr_utility.set_location('Entering:'|| v_proc, 5);
2346: --
2347: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2348: End post_update;
2349: --
2343: --
2344: Begin
2345: hr_utility.set_location('Entering:'|| v_proc, 5);
2346: --
2347: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2348: End post_update;
2349: --
2350: -- ----------------------------------------------------------------------------
2351: -- |-----------------------------< post_delete >------------------------------|
2378: --
2379: v_proc varchar2(72) := g_package||'post_delete';
2380: --
2381: Begin
2382: hr_utility.set_location('Entering:'|| v_proc, 5);
2383: --
2384: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2385: End post_delete;
2386: --
2380: --
2381: Begin
2382: hr_utility.set_location('Entering:'|| v_proc, 5);
2383: --
2384: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2385: End post_delete;
2386: --
2387: -- ----------------------------------------------------------------------------
2388: -- |------------------------------< insert_dml >------------------------------|
2433: --
2434: v_proc varchar2(72) := g_package||'insert_dml';
2435: --
2436: Begin
2437: hr_utility.set_location('Entering:'|| v_proc, 5);
2438: p_rec.object_version_number := 1; -- Initialise the object version
2439: --
2440: g_api_dml := true; -- Set the api dml status
2441: --
2481: );
2482: --
2483: g_api_dml := false; -- Unset the api dml status
2484: --
2485: hr_utility.set_location(' Leaving:'||v_proc, 10);
2486: Exception
2487: When hr_api.check_integrity_violated Then
2488: --
2489: -- A check constraint has been violated
2559: --
2560: v_proc varchar2(72) := g_package||'update_dml';
2561: --
2562: Begin
2563: hr_utility.set_location('Entering:'|| v_proc, 5);
2564: --
2565: -- Increment the object version
2566: --
2567: p_rec.object_version_number := p_rec.object_version_number + 1;
2589: -- Unset the api dml status
2590: --
2591: g_api_dml := false;
2592: --
2593: hr_utility.set_location(' Leaving:'||v_proc, 10);
2594: --
2595: Exception
2596: When hr_api.check_integrity_violated Then
2597: --
2667: --
2668: v_proc varchar2(72) := g_package||'delete_dml';
2669: --
2670: Begin
2671: hr_utility.set_location('Entering:'|| v_proc, 5);
2672: --
2673: -- Set the api dml status
2674: --
2675: g_api_dml := true;
2682: -- Unset the api dml status
2683: --
2684: g_api_dml := false;
2685: --
2686: hr_utility.set_location(' Leaving:'||v_proc, 10);
2687: --
2688: Exception
2689: When hr_api.child_integrity_violated then
2690: --
2808: --
2809: v_proc varchar2(72) := g_package||'lck_general';
2810: --
2811: Begin
2812: hr_utility.set_location('Entering:'|| v_proc, 5);
2813: --
2814: -- Check the mandatory args have been set
2815: --
2816: hr_api.mandatory_arg_error
2827: (p_api_name => v_proc
2828: ,p_argument => 'a_object_version_number'
2829: ,p_argument_value => p_a_object_version_number
2830: );
2831: hr_utility.set_location(v_proc, 6);
2832: --
2833: -- Additional logic specific to this entity:
2834: -- Do not allow the lock to be taken out if there is an AOL concurrent
2835: -- request waiting to run or still running on a concurrent manager.
2835: -- request waiting to run or still running on a concurrent manager.
2836: --
2837: chk_for_con_request
2838: (p_payroll_action_id => p_payroll_action_id);
2839: hr_utility.set_location(v_proc, 7);
2840: --
2841: -- If the primary key exists, we must now attempt to lock the
2842: -- row and check the object version numbers.
2843: --
2863: Close C_Sel1;
2864: --
2865: -- The primary key is invalid therefore we must error
2866: --
2867: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
2868: hr_utility.raise_error;
2869: End If;
2870: Close C_Sel1;
2871: If (p_p_object_version_number <> g_old_rec.object_version_number) or
2864: --
2865: -- The primary key is invalid therefore we must error
2866: --
2867: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
2868: hr_utility.raise_error;
2869: End If;
2870: Close C_Sel1;
2871: If (p_p_object_version_number <> g_old_rec.object_version_number) or
2872: (p_a_object_version_number <> v_a_object_version_number) Then
2869: End If;
2870: Close C_Sel1;
2871: If (p_p_object_version_number <> g_old_rec.object_version_number) or
2872: (p_a_object_version_number <> v_a_object_version_number) Then
2873: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
2874: hr_utility.raise_error;
2875: End If;
2876: --
2877: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2870: Close C_Sel1;
2871: If (p_p_object_version_number <> g_old_rec.object_version_number) or
2872: (p_a_object_version_number <> v_a_object_version_number) Then
2873: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
2874: hr_utility.raise_error;
2875: End If;
2876: --
2877: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2878: --
2873: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
2874: hr_utility.raise_error;
2875: End If;
2876: --
2877: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2878: --
2879: -- We need to trap the ORA LOCK exception
2880: --
2881: Exception
2883: --
2884: -- The object is locked therefore we need to supply a meaningful
2885: -- error message.
2886: --
2887: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
2888: hr_utility.set_message_token('TABLE_NAME', 'pay_payroll_actions');
2889: hr_utility.raise_error;
2890: End lck_general;
2891: --
2884: -- The object is locked therefore we need to supply a meaningful
2885: -- error message.
2886: --
2887: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
2888: hr_utility.set_message_token('TABLE_NAME', 'pay_payroll_actions');
2889: hr_utility.raise_error;
2890: End lck_general;
2891: --
2892: -- ----------------------------------------------------------------------------
2885: -- error message.
2886: --
2887: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
2888: hr_utility.set_message_token('TABLE_NAME', 'pay_payroll_actions');
2889: hr_utility.raise_error;
2890: End lck_general;
2891: --
2892: -- ----------------------------------------------------------------------------
2893: -- |---------------------------------< lck >----------------------------------|
2965: v_proc varchar2(72) := g_package||'convert_args';
2966: --
2967: Begin
2968: --
2969: hr_utility.set_location('Entering:'|| v_proc, 5);
2970: --
2971: -- Convert arguments into local l_rec structure.
2972: --
2973: v_rec.payroll_action_id := p_payroll_action_id;
2984: v_rec.object_version_number := p_object_version_number;
2985: --
2986: -- Return the plsql record structure.
2987: --
2988: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2989: return(v_rec);
2990: --
2991: End convert_args;
2992: --
3035: v_proc varchar2(72) := g_package||'convert_defs';
3036: --
3037: Begin
3038: --
3039: hr_utility.set_location('Entering:'|| v_proc, 5);
3040: --
3041: -- We must now examine each argument value in the
3042: -- p_rec plsql record structure
3043: -- to see if a system default is being used. If a system default
3084: End If;
3085: --
3086: -- Return the plsql record structure.
3087: --
3088: hr_utility.set_location(' Leaving:'||v_proc, 10);
3089: Return(p_rec);
3090: --
3091: End convert_defs;
3092: --
3137: v_time_period_id pay_payroll_actions.time_period_id%TYPE;
3138: v_proc varchar2(72) := g_package||'insert_validate';
3139: --
3140: Begin
3141: hr_utility.set_location('Entering:'|| v_proc, 5);
3142: --
3143: -- Call all supporting business operations
3144: --
3145: --
3145: --
3146: -- Check mandatory values have been set
3147: --
3148: check_mandatory_args(p_rec => p_rec);
3149: hr_utility.set_location(v_proc, 6);
3150: --
3151: -- Validate business group id
3152: --
3153: hr_api.validate_bus_grp_id(p_rec.business_group_id);
3150: --
3151: -- Validate business group id
3152: --
3153: hr_api.validate_bus_grp_id(p_rec.business_group_id);
3154: hr_utility.set_location(v_proc, 7);
3155: --
3156: -- Validate the assignment is in the same business group
3157: -- (Some other validate checks are done when the assignment action is
3158: -- inserted as part of the post-insert logic.)
3161: (p_assignment_id => p_assignment_id
3162: ,p_business_group_id => p_rec.business_group_id
3163: ,p_effective_date => p_rec.effective_date
3164: );
3165: hr_utility.set_location(v_proc, 8);
3166: --
3167: -- Validate the consolidation set exists and it is in
3168: -- the same business group as the QuickPay.
3169: --
3170: chk_consol_set
3171: (p_consolidation_set_id => p_rec.consolidation_set_id
3172: ,p_business_group_id => p_rec.business_group_id
3173: );
3174: hr_utility.set_location(v_proc, 9);
3175: --
3176: -- Find out the legislation code for the current business group
3177: -- (Then it does not have to be derived many times in different
3178: -- business rule checks.)
3192: ,p_time_period_id => v_time_period_id
3193: ,p_period_name => v_unused_return_nam
3194: ,p_new_date_earned => v_unused_return_d
3195: );
3196: hr_utility.set_location(v_proc, 11);
3197: --
3198: -- Validate the assignment is on a payroll as of date earned.
3199: -- Check that a time period exists for the assignment's payroll as of
3200: -- date earned.
3204: ,p_assignment_id => p_assignment_id
3205: ,p_legislation_code => v_legislation_code
3206: ,p_effective_date => p_rec.effective_date
3207: );
3208: hr_utility.set_location(v_proc, 12);
3209: --
3210: -- Validate the assignment is on the same payroll
3211: -- as of the effective_date and date_earned.
3212: --
3216: ,p_assignment_id => p_assignment_id
3217: ,p_raise_error => true
3218: ,p_same_payroll => v_unused_return_b
3219: );
3220: hr_utility.set_location(v_proc, 13);
3221: --
3222: -- Validate the run_type - if not null, check it exists on
3223: -- pay_run_types_f.
3224: --
3233: --
3234: p_payroll_id := v_payroll_id;
3235: p_time_period_id := v_time_period_id;
3236: --
3237: hr_utility.set_location(' Leaving:'|| v_proc, 14);
3238: End insert_validate;
3239: --
3240: -- ----------------------------------------------------------------------------
3241: -- |---------------------------< update_validate >----------------------------|
3271: v_legislation_code per_business_groups.legislation_code%TYPE;
3272: v_proc varchar2(72) := g_package||'update_validate';
3273: --
3274: Begin
3275: hr_utility.set_location('Entering:'|| v_proc, 5);
3276: --
3277: -- Call all supporting business operations
3278: --
3279: -- Check mandatory values have been set
3337: --
3338: -- The user is allowed to update the pay advice date and
3339: -- the pay advice message. No validation is required.
3340: --
3341: hr_utility.set_location(' Leaving:'|| v_proc, 10);
3342: End update_validate;
3343: --
3344: -- ----------------------------------------------------------------------------
3345: -- |---------------------------< delete_validate >----------------------------|
3372: --
3373: v_proc varchar2(72) := g_package||'delete_validate';
3374: --
3375: Begin
3376: hr_utility.set_location('Entering:'|| v_proc, 5);
3377: --
3378: -- Check that the payroll_action has a null current_task.
3379: --
3380: chk_cur_task
3389: p_payroll_action_id => p_rec.payroll_action_id,
3390: p_rollback_mode => 'ROLLBACK',
3391: p_leave_base_table_row => TRUE);
3392: --
3393: hr_utility.set_location('Leaving:'|| v_proc, 10);
3394: End delete_validate;
3395: --
3396: -- ----------------------------------------------------------------------------
3397: -- |---------------------------------< ins >----------------------------------|
3422: v_assignment_action_id pay_assignment_actions.assignment_action_id%TYPE;
3423: v_a_object_version_number pay_assignment_actions.object_version_number%TYPE;
3424: --
3425: Begin
3426: hr_utility.set_location('Entering:'|| v_proc, 5);
3427: --
3428: -- Determine if the business process is to be validated.
3429: --
3430: If p_validate then
3481: if p_validate then
3482: raise hr_api.validate_enabled;
3483: end if;
3484: --
3485: hr_utility.set_location(' Leaving:'||v_proc, 10);
3486: exception
3487: when hr_api.validate_enabled then
3488: --
3489: -- As the Validate_Enabled exception has been raised
3517: v_rec g_rec_type;
3518: v_proc varchar2(72) := g_package||'ins';
3519: --
3520: Begin
3521: hr_utility.set_location('Entering:'||v_proc, 5);
3522: --
3523: -- Call conversion function to turn arguments into the
3524: -- p_rec structure.
3525: --
3538: ,p_pay_advice_date => p_pay_advice_date
3539: ,p_pay_advice_message => p_pay_advice_message
3540: ,p_object_version_number => null
3541: );
3542: hr_utility.set_location(v_proc, 6);
3543: --
3544: -- Having converted the arguments into the pay_payact_rec
3545: -- plsql record structure we call the corresponding record business process.
3546: --
3550: ,p_assignment_action_id => p_assignment_action_id
3551: ,p_a_object_version_number => p_a_object_version_number
3552: ,p_validate => p_validate
3553: );
3554: hr_utility.set_location(v_proc, 7);
3555: --
3556: -- As the primary key argument(s)
3557: -- are specified as an OUT's we must set these values.
3558: -- (p_a_object_version_number and p_assignment_action_id have
3560: --
3561: p_payroll_action_id := v_rec.payroll_action_id;
3562: p_p_object_version_number := v_rec.object_version_number;
3563: --
3564: hr_utility.set_location(' Leaving:'|| v_proc, 10);
3565: End ins;
3566: --
3567: -- ----------------------------------------------------------------------------
3568: -- |---------------------------------< upd >----------------------------------|
3577: --
3578: v_proc varchar2(72) := g_package||'upd';
3579: --
3580: Begin
3581: hr_utility.set_location('Entering:'|| v_proc, 5);
3582: --
3583: -- Determine if the business process is to be validated.
3584: --
3585: If p_validate then
3595: (p_payroll_action_id => p_rec.payroll_action_id
3596: ,p_p_object_version_number => p_rec.object_version_number
3597: ,p_a_object_version_number => p_a_object_version_number
3598: );
3599: hr_utility.set_location(v_proc, 6);
3600: --
3601: -- 1. During an update system defaults are used to determine if
3602: -- arguments have been defaulted or not. We must therefore
3603: -- derive the full record structure values to be updated.
3625: if p_validate then
3626: raise hr_api.validate_enabled;
3627: end if;
3628: --
3629: hr_utility.set_location(' Leaving:'||v_proc, 10);
3630: exception
3631: when hr_api.validate_enabled Then
3632: --
3633: -- As the Validate_Enabled exception has been raised
3658: v_rec g_rec_type;
3659: v_proc varchar2(72) := g_package||'upd';
3660: --
3661: Begin
3662: hr_utility.set_location('Entering:'|| v_proc, 5);
3663: --
3664: -- Call conversion function to turn arguments into the
3665: -- l_rec structure.
3666: --
3679: ,p_pay_advice_date => p_pay_advice_date
3680: ,p_pay_advice_message => p_pay_advice_message
3681: ,p_object_version_number => p_p_object_version_number
3682: );
3683: hr_utility.set_location(v_proc, 6);
3684: --
3685: -- Having converted the arguments into the
3686: -- plsql record structure we call the corresponding record
3687: -- business process.
3693: ,p_validate => p_validate
3694: );
3695: p_p_object_version_number := v_rec.object_version_number;
3696: --
3697: hr_utility.set_location(' Leaving:'|| v_proc, 10);
3698: End upd;
3699: --
3700: -- ----------------------------------------------------------------------------
3701: -- |---------------------------------< del >----------------------------------|
3709: --
3710: v_proc varchar2(72) := g_package||'del';
3711: --
3712: begin
3713: hr_utility.set_location('Entering:'|| v_proc, 5);
3714: --
3715: -- Determine if the business process is to be validated.
3716: --
3717: if p_validate then
3750: if p_validate then
3751: raise hr_api.validate_enabled;
3752: end if;
3753: --
3754: hr_utility.set_location(' Leaving:'||v_proc, 10);
3755: exception
3756: when hr_api.validate_enabled Then
3757: --
3758: -- As the Validate_Enabled exception has been raised
3775: v_rec g_rec_type;
3776: v_proc varchar2(72) := g_package||'del';
3777: --
3778: Begin
3779: hr_utility.set_location('Entering:'|| v_proc, 5);
3780: --
3781: -- As the delete procedure accepts a plsql record structure we do need to
3782: -- convert the arguments into the record structure.
3783: -- We don't need to call the supplied conversion argument routine as we
3795: ,p_a_object_version_number => p_a_object_version_number
3796: ,p_validate => p_validate
3797: );
3798: --
3799: hr_utility.set_location(' Leaving:'||v_proc, 10);
3800: End del;
3801: --
3802: -- ----------------------------------------------------------------------------
3803: -- |-----------------------------< default_values >---------------------------|
3902: --
3903: v_proc varchar2(72) := g_package||'default_values';
3904: --
3905: begin
3906: hr_utility.set_location('Entering:'|| v_proc, 5);
3907: --
3908: -- Work out which date to drive off. Try to use the Form's session effective
3909: -- date. If that has not been defined for this database session then
3910: -- use trunc(sysdate).
3914: if csr_eff_date%notfound then
3915: v_eff_date := trunc(sysdate);
3916: end if;
3917: close csr_eff_date;
3918: hr_utility.set_location(v_proc, 6);
3919: --
3920: -- Obtain the assignment's payroll, consolidation set details,
3921: -- action status meanings, QuickPay Run user description and
3922: -- the business group's legislation details.
3934: if csr_payroll%found then
3935: close csr_payroll;
3936: else
3937: close csr_payroll;
3938: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3939: hr_utility.set_message_token('PROCEDURE', v_proc);
3940: hr_utility.set_message_token('STEP', '7');
3941: hr_utility.raise_error;
3942: end if;
3935: close csr_payroll;
3936: else
3937: close csr_payroll;
3938: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3939: hr_utility.set_message_token('PROCEDURE', v_proc);
3940: hr_utility.set_message_token('STEP', '7');
3941: hr_utility.raise_error;
3942: end if;
3943: hr_utility.set_location(v_proc, 8);
3936: else
3937: close csr_payroll;
3938: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3939: hr_utility.set_message_token('PROCEDURE', v_proc);
3940: hr_utility.set_message_token('STEP', '7');
3941: hr_utility.raise_error;
3942: end if;
3943: hr_utility.set_location(v_proc, 8);
3944: --
3937: close csr_payroll;
3938: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3939: hr_utility.set_message_token('PROCEDURE', v_proc);
3940: hr_utility.set_message_token('STEP', '7');
3941: hr_utility.raise_error;
3942: end if;
3943: hr_utility.set_location(v_proc, 8);
3944: --
3945: -- Obtain the button prompts from hr_lookups
3939: hr_utility.set_message_token('PROCEDURE', v_proc);
3940: hr_utility.set_message_token('STEP', '7');
3941: hr_utility.raise_error;
3942: end if;
3943: hr_utility.set_location(v_proc, 8);
3944: --
3945: -- Obtain the button prompts from hr_lookups
3946: --
3947: p_start_run_prompt := hr_general.decode_lookup ('PAYWSRQP_BUTTONS','SR');
3954: p_start_pre_prompt is null or p_rerun_pre_prompt is null or
3955: p_start_arc_prompt is null or p_retry_arc_prompt is null then
3956: -- All six button labels could not be found in hr_lookups.
3957: -- (Where lookup_type = 'PAYWSRQP_BUTTONS'.)
3958: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3959: hr_utility.set_message_token('PROCEDURE', v_proc);
3960: hr_utility.set_message_token('STEP', '9');
3961: hr_utility.raise_error;
3962: end if;
3955: p_start_arc_prompt is null or p_retry_arc_prompt is null then
3956: -- All six button labels could not be found in hr_lookups.
3957: -- (Where lookup_type = 'PAYWSRQP_BUTTONS'.)
3958: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3959: hr_utility.set_message_token('PROCEDURE', v_proc);
3960: hr_utility.set_message_token('STEP', '9');
3961: hr_utility.raise_error;
3962: end if;
3963: hr_utility.set_location(v_proc, 10);
3956: -- All six button labels could not be found in hr_lookups.
3957: -- (Where lookup_type = 'PAYWSRQP_BUTTONS'.)
3958: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3959: hr_utility.set_message_token('PROCEDURE', v_proc);
3960: hr_utility.set_message_token('STEP', '9');
3961: hr_utility.raise_error;
3962: end if;
3963: hr_utility.set_location(v_proc, 10);
3964: --
3957: -- (Where lookup_type = 'PAYWSRQP_BUTTONS'.)
3958: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3959: hr_utility.set_message_token('PROCEDURE', v_proc);
3960: hr_utility.set_message_token('STEP', '9');
3961: hr_utility.raise_error;
3962: end if;
3963: hr_utility.set_location(v_proc, 10);
3964: --
3965: -- Set the out arguments p_df_effective_date and p_df_date_earned
3959: hr_utility.set_message_token('PROCEDURE', v_proc);
3960: hr_utility.set_message_token('STEP', '9');
3961: hr_utility.raise_error;
3962: end if;
3963: hr_utility.set_location(v_proc, 10);
3964: --
3965: -- Set the out arguments p_df_effective_date and p_df_date_earned
3966: -- depending on a payroll time period existing and the legislation.
3967: --
3978: close csr_per_dat;
3979: v_df_effective_date := null;
3980: v_df_date_earned := null;
3981: v_df_period_name := null;
3982: hr_utility.set_location(v_proc, 11);
3983: else
3984: --
3985: -- A time period does exist as of the session date. Set the
3986: -- period name out argument and set the date fields depending
3986: -- period name out argument and set the date fields depending
3987: -- on the current legislation.
3988: --
3989: close csr_per_dat;
3990: hr_utility.set_location(v_proc, 12);
3991: --
3992: if v_legislation_code = 'GB' then
3993: --
3994: -- Only for GB legislation.
4014: --v_df_date_earned := get_date_earned_for_gb
4015: -- (p_assignment_id => p_assignment_id
4016: -- ,p_effective_date => v_df_effective_date
4017: -- );
4018: --hr_utility.set_location(v_proc, 13);
4019: --
4020: -- If get_date_earned_for_gb returns a null value then a suitable
4021: -- default value could not be found or the assignment.
4022: --
4022: --
4023: --if v_df_date_earned is null then
4024: -- v_df_effective_date := null;
4025: -- v_df_period_name := null;
4026: -- hr_utility.set_location(v_proc, 14);
4027: --else
4028: --
4029: -- Check the assignment is on the same payroll as of the specified
4030: -- default effective_date and default date_earned.
4041: -- different.
4042: --v_df_effective_date := null;
4043: --v_df_date_earned := null;
4044: --v_df_period_name := null;
4045: --hr_utility.set_location(v_proc, 16);
4046: --end if;
4047: --hr_utility.set_location(v_proc, 17);
4048: --end if;
4049: --hr_utility.set_location(v_proc, 18);
4043: --v_df_date_earned := null;
4044: --v_df_period_name := null;
4045: --hr_utility.set_location(v_proc, 16);
4046: --end if;
4047: --hr_utility.set_location(v_proc, 17);
4048: --end if;
4049: --hr_utility.set_location(v_proc, 18);
4050: --else -- payrolls as of v_eff_date and v_df_effective_date are different
4051: --v_df_effective_date := null;
4045: --hr_utility.set_location(v_proc, 16);
4046: --end if;
4047: --hr_utility.set_location(v_proc, 17);
4048: --end if;
4049: --hr_utility.set_location(v_proc, 18);
4050: --else -- payrolls as of v_eff_date and v_df_effective_date are different
4051: --v_df_effective_date := null;
4052: --v_df_date_earned := null;
4053: --v_df_period_name := null;
4050: --else -- payrolls as of v_eff_date and v_df_effective_date are different
4051: --v_df_effective_date := null;
4052: --v_df_date_earned := null;
4053: --v_df_period_name := null;
4054: --hr_utility.set_location(v_proc, 19);
4055: --end if;
4056: else
4057: --
4058: -- For all other legislations. i.e. non-GB.
4059: --
4060: v_df_effective_date := v_eff_date;
4061: v_df_date_earned := v_eff_date;
4062: v_df_period_name := v_period_name;
4063: hr_utility.set_location(v_proc, 20);
4064: end if;
4065: end if;
4066: --
4067: p_df_effective_date := v_df_effective_date;
4067: p_df_effective_date := v_df_effective_date;
4068: p_df_date_earned := v_df_date_earned;
4069: p_period_name := v_df_period_name;
4070: --
4071: hr_utility.set_location(' Leaving:'|| v_proc, 21);
4072: end default_values;
4073: --
4074: -- ----------------------------------------------------------------------------
4075: -- |-----------------------------< get_latest_status >------------------------|
4121: , pay_assignment_actions aga
4122: where pya.payroll_action_id = p_payroll_action_id
4123: and aga.payroll_action_id = pya.payroll_action_id;
4124: begin
4125: hr_utility.set_location('Entering:'|| v_proc, 5);
4126: --
4127: -- Check mandatory parameters have been set
4128: --
4129: hr_api.mandatory_arg_error
4141: , p_a_action_status;
4142: if cur_stat%notfound then
4143: close cur_stat;
4144: -- Error: This primary key does not exist in the database.
4145: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
4146: hr_utility.raise_error;
4147: end if;
4148: close cur_stat;
4149: --
4142: if cur_stat%notfound then
4143: close cur_stat;
4144: -- Error: This primary key does not exist in the database.
4145: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
4146: hr_utility.raise_error;
4147: end if;
4148: close cur_stat;
4149: --
4150: hr_utility.set_location(' Leaving:'|| v_proc, 10);
4146: hr_utility.raise_error;
4147: end if;
4148: close cur_stat;
4149: --
4150: hr_utility.set_location(' Leaving:'|| v_proc, 10);
4151: end get_latest_status;
4152: --
4153: -- ----------------------------------------------------------------------------
4154: -- |--------------------------< start_quickpay_process >----------------------|
4317: AND NOT (ACT.action_status = 'B' AND EE.creator_type = 'RR')
4318: AND NOT (ACT.action_status = 'B' AND EE.creator_type = 'EE');
4319: --
4320: begin
4321: hr_utility.set_location('Entering:'|| v_proc, 5);
4322: --
4323: -- Check mandatory parameters have been set
4324: --
4325: hr_api.mandatory_arg_error
4337: ,p_only_action_type => null
4338: ,p_actual_action_type => v_action_type
4339: ,p_a_action_status => v_a_action_status
4340: );
4341: hr_utility.set_location(v_proc, 6);
4342: --
4343: select pbg.legislation_code
4344: into v_leg_code
4345: from per_business_groups_perf pbg,
4381: else
4382: -- Error: You have attempted to issue a Start or Retry operation, after
4383: -- querying this record but before another operation has finished.
4384: -- You need to query this record and issue the operation again.
4385: hr_utility.set_message(801, 'HR_7265_QPAY_STATUS_OUT_SYNC');
4386: hr_utility.raise_error;
4387: end if;
4388: hr_utility.set_location(v_proc, 8);
4389: --
4382: -- Error: You have attempted to issue a Start or Retry operation, after
4383: -- querying this record but before another operation has finished.
4384: -- You need to query this record and issue the operation again.
4385: hr_utility.set_message(801, 'HR_7265_QPAY_STATUS_OUT_SYNC');
4386: hr_utility.raise_error;
4387: end if;
4388: hr_utility.set_location(v_proc, 8);
4389: --
4390: -- For quickpay, add extra check here to see if assignment has got any net
4384: -- You need to query this record and issue the operation again.
4385: hr_utility.set_message(801, 'HR_7265_QPAY_STATUS_OUT_SYNC');
4386: hr_utility.raise_error;
4387: end if;
4388: hr_utility.set_location(v_proc, 8);
4389: --
4390: -- For quickpay, add extra check here to see if assignment has got any net
4391: -- to gross entries. If it has, then issue a warning message only if a
4392: -- legislation rule exists for DISP_NTG_MESG
4434: ,sub_request => false
4435: ,argument1 => v_first_arg
4436: ,argument2 => to_char(p_payroll_action_id)
4437: );
4438: hr_utility.set_location(v_proc, 9);
4439: --
4440: -- Detect if the request was really submitted.
4441: -- If it has not then handle the error.
4442: --
4442: --
4443: if v_request_id = 0 then
4444: fnd_message.raise_error;
4445: end if;
4446: hr_utility.set_location(v_proc, 11);
4447: --
4448: -- Request has been accepted update payroll_actions
4449: -- with the request details.
4450: --
4452: set request_id = v_request_id
4453: where payroll_action_id = p_payroll_action_id;
4454: --
4455: end if;
4456: hr_utility.set_location(' Leaving:'|| v_proc, 12);
4457: --
4458: return;
4459: --
4460: end start_quickpay_process;
4498: from pay_action_parameters
4499: where parameter_name = 'QUICKPAY_INTERVAL_WAIT_SEC';
4500: --
4501: begin
4502: hr_utility.set_location('Entering:'|| v_proc, 5);
4503: --
4504: -- Check mandatory parameters have been set
4505: --
4506: hr_api.mandatory_arg_error
4515: fetch cur_req into v_request_id;
4516: if cur_req%notfound then
4517: close cur_req;
4518: -- Error: This primary key does not exist in the database.
4519: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
4520: hr_utility.raise_error;
4521: end if;
4522: close cur_req;
4523: hr_utility.set_location(v_proc, 7);
4516: if cur_req%notfound then
4517: close cur_req;
4518: -- Error: This primary key does not exist in the database.
4519: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
4520: hr_utility.raise_error;
4521: end if;
4522: close cur_req;
4523: hr_utility.set_location(v_proc, 7);
4524: --
4519: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
4520: hr_utility.raise_error;
4521: end if;
4522: close cur_req;
4523: hr_utility.set_location(v_proc, 7);
4524: --
4525: -- Check the request_id has been set. A value of zero means the submit
4526: -- request was not accepted by the concurrent manager. (This value should
4527: -- not be in pay_payroll_actions in the first place.)
4529: if (v_request_id is null) or (v_request_id = 0) then
4530: -- Error: You have attempted to wait for a request to finish, when no
4531: -- request has been submitted for this QuickPay Run or QuickPay
4532: -- Pre-payment.
4533: hr_utility.set_message(801, 'HR_7266_QPAY_WAIT_NO_REQUEST');
4534: hr_utility.raise_error;
4535: end if;
4536: hr_utility.set_location(v_proc, 9);
4537: --
4530: -- Error: You have attempted to wait for a request to finish, when no
4531: -- request has been submitted for this QuickPay Run or QuickPay
4532: -- Pre-payment.
4533: hr_utility.set_message(801, 'HR_7266_QPAY_WAIT_NO_REQUEST');
4534: hr_utility.raise_error;
4535: end if;
4536: hr_utility.set_location(v_proc, 9);
4537: --
4538: -- Attempt to find out the QuickPay Concurrent manager max wait time
4532: -- Pre-payment.
4533: hr_utility.set_message(801, 'HR_7266_QPAY_WAIT_NO_REQUEST');
4534: hr_utility.raise_error;
4535: end if;
4536: hr_utility.set_location(v_proc, 9);
4537: --
4538: -- Attempt to find out the QuickPay Concurrent manager max wait time
4539: -- and polling interval time from pay_action_parameters. If values
4540: -- cannot be found in this table then default to a max wait of 300
4548: v_max_wait_sec := 300;
4549: else
4550: close cur_max;
4551: end if;
4552: hr_utility.set_location(v_proc, 10);
4553: --
4554: open cur_intw;
4555: fetch cur_intw into v_interval_wait_sec;
4556: if cur_intw %notfound then
4559: v_interval_wait_sec := 2;
4560: else
4561: close cur_intw;
4562: end if;
4563: hr_utility.set_location(v_proc, 11);
4564: --
4565: -- Waits for request to finish on the concurrent manager.
4566: -- Or gives up if the maximum wait time is reached.
4567: --
4574: ,dev_phase => v_dev_phase
4575: ,dev_status => v_dev_status
4576: ,message => v_message
4577: );
4578: hr_utility.set_location(v_proc, 12);
4579: --
4580: -- N.B. This point in the code can be reached for one of two reasons.
4581: -- 1) The AOL process has reached a concurrent manager 'phase'
4582: -- value of 'COMPLETED'.
4591: ,p_p_action_status => v_p_action_status
4592: ,p_display_run_number => p_display_run_number
4593: ,p_a_action_status => p_a_action_status
4594: );
4595: hr_utility.set_location(v_proc, 13);
4596: --
4597: -- Work out the process information for the caller
4598: -- (This assumes that when the payroll_action.action_status is 'Complete' or
4599: -- 'In Error' the payroll_action.current_task will not be null. At the
4610: end if;
4611: --
4612: p_request_id := v_request_id;
4613: --
4614: hr_utility.set_location(' Leaving:'|| v_proc, 14);
4615: --
4616: end wait_quickpay_process;
4617: --
4618: end pay_qpq_api;