[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 >---------------------------|
1208: where rule_type = 'ENABLE_QP_OFFSET'
1209: and legislation_code = p_legislation_code;
1210: --
1211: begin
1212: hr_utility.set_location('Entering:'|| v_proc, 5);
1213: --
1214: -- Check mandatory parameters have been set
1215: --
1216: hr_api.mandatory_arg_error
1243: if sel_pay%notfound then
1244: close sel_pay;
1245: -- Error: You have tried to define QuickPay for an assignment that has no
1246: -- payroll component defined at Date Earned.
1247: hr_utility.set_message(801, 'HR_7249_QPAY_ASG_PAY_D_EARNED');
1248: hr_utility.raise_error;
1249: end if;
1250: close sel_pay;
1251: hr_utility.set_location(v_proc, 6);
1244: close sel_pay;
1245: -- Error: You have tried to define QuickPay for an assignment that has no
1246: -- payroll component defined at Date Earned.
1247: hr_utility.set_message(801, 'HR_7249_QPAY_ASG_PAY_D_EARNED');
1248: hr_utility.raise_error;
1249: end if;
1250: close sel_pay;
1251: hr_utility.set_location(v_proc, 6);
1252: --
1247: hr_utility.set_message(801, 'HR_7249_QPAY_ASG_PAY_D_EARNED');
1248: hr_utility.raise_error;
1249: end if;
1250: close sel_pay;
1251: hr_utility.set_location(v_proc, 6);
1252: --
1253: -- A time period must exist for the payroll
1254: -- as of date earned.
1255: --
1261: ,p_message => 'HR_7250_QPAY_NO_PERIOD_D_EARN'
1262: ,p_time_period_id => v_time_period_id
1263: ,p_period_name => v_time_period_name
1264: );
1265: hr_utility.set_location(v_proc, 7);
1266: --
1267: -- For GB, carry out legislation specific checks.
1268: --
1269: if p_legislation_code = 'GB' then
1282: p_period_name := v_time_period_name;
1283: end if;
1284: close get_leg_rule;
1285: --
1286: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1287: end chk_date_earned;
1288: --
1289: -- ----------------------------------------------------------------------------
1290: -- |-----------------------< chk_eff_earned_payroll >-------------------------|
1347: /* Payrolls are the same */
1348: and asg1.payroll_id = asg2.payroll_id;
1349: --
1350: begin
1351: hr_utility.set_location('Entering:'|| v_proc, 5);
1352: --
1353: -- Ensure the assignment is the same payroll
1354: -- as of the effective_date and date_earned.
1355: --
1361: if p_raise_error then
1362: -- Error: You have tried to define QuickPay for an assignment that has
1363: -- different payroll components for Date Earned and Date Paid. The
1364: -- assignment must be to the same payroll for both dates.
1365: hr_utility.set_message(801, 'HR_7251_QPAY_DIFF_PAYROLLS');
1366: hr_utility.raise_error;
1367: end if;
1368: else
1369: close sel_same;
1362: -- Error: You have tried to define QuickPay for an assignment that has
1363: -- different payroll components for Date Earned and Date Paid. The
1364: -- assignment must be to the same payroll for both dates.
1365: hr_utility.set_message(801, 'HR_7251_QPAY_DIFF_PAYROLLS');
1366: hr_utility.raise_error;
1367: end if;
1368: else
1369: close sel_same;
1370: p_same_payroll := true;
1368: else
1369: close sel_same;
1370: p_same_payroll := true;
1371: end if;
1372: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1373: end chk_eff_earned_payroll;
1374: --
1375: -- ----------------------------------------------------------------------------
1376: -- |-------------------------< chk_action_status >----------------------------|
1414: --
1415: v_proc varchar2(72) := g_package||'chk_action_status';
1416: --
1417: begin
1418: hr_utility.set_location('Entering:'||v_proc, 5);
1419: --
1420: -- Check the updated status is from 'C'omplete to 'M'ark for Retry
1421: --
1422: if (p_old_action_status not in ('C', 'S')) and (p_new_action_status <> 'M') then
1422: if (p_old_action_status not in ('C', 'S')) and (p_new_action_status <> 'M') then
1423: -- Error: You have tried to enter an invalid status for a completed
1424: -- QuickPay run. You can only update a completed assignment process
1425: -- status to Marked for Retry.
1426: hr_utility.set_message(801, 'HR_7252_QPAY_ONLY_MARK_RETRY');
1427: hr_utility.raise_error;
1428: end if;
1429: hr_utility.set_location(v_proc, 6);
1430: --
1423: -- Error: You have tried to enter an invalid status for a completed
1424: -- QuickPay run. You can only update a completed assignment process
1425: -- status to Marked for Retry.
1426: hr_utility.set_message(801, 'HR_7252_QPAY_ONLY_MARK_RETRY');
1427: hr_utility.raise_error;
1428: end if;
1429: hr_utility.set_location(v_proc, 6);
1430: --
1431: -- Check that this QuickPay Run can have
1425: -- status to Marked for Retry.
1426: hr_utility.set_message(801, 'HR_7252_QPAY_ONLY_MARK_RETRY');
1427: hr_utility.raise_error;
1428: end if;
1429: hr_utility.set_location(v_proc, 6);
1430: --
1431: -- Check that this QuickPay Run can have
1432: -- a status of Mark for Retry
1433: --
1435: p_payroll_action_id => p_payroll_action_id,
1436: p_rollback_mode => 'RETRY',
1437: p_leave_base_table_row => TRUE);
1438: --
1439: hr_utility.set_location(' Leaving:'||v_proc, 10);
1440: end chk_action_status;
1441: --
1442: -- KKAWOl : Ok, commenting chk_legislative_parameters out as this is no
1443: -- longer required. We pass run type id to the run instead.
1494: --
1495: v_proc varchar2(72) := g_package||'chk_legislative_parameters';
1496: --
1497: begin
1498: hr_utility.set_location('Entering:'|| v_proc, 5);
1499: --
1500: if p_legislation_code = 'US' or
1501: p_legislation_code = 'CA' then
1502: --
1506: if p_action_status = 'C' then
1507: -- Error: You have tried to alter the Regular/Supplemental flag for a
1508: -- completed QuickPay run. You can only change this flag before a run
1509: -- commences.
1510: hr_utility.set_message(801, 'HR_7253_QPAY_REG_SUPP_NO_UPD');
1511: hr_utility.raise_error;
1512: end if;
1513: --
1514: -- When the legislation is US then legislative_parameters
1507: -- Error: You have tried to alter the Regular/Supplemental flag for a
1508: -- completed QuickPay run. You can only change this flag before a run
1509: -- commences.
1510: hr_utility.set_message(801, 'HR_7253_QPAY_REG_SUPP_NO_UPD');
1511: hr_utility.raise_error;
1512: end if;
1513: --
1514: -- When the legislation is US then legislative_parameters
1515: -- must be set to 'R' or 'S'.
1520: (p_legislative_parameters <> 'S')) then
1521: -- Error: For US Business Groups the payroll process
1522: -- legislative_parameters must be set to 'R' (for Regular) or 'S'
1523: -- (for Supplemental).
1524: hr_utility.set_message(801, 'HR_7254_QPAY_LEG_PAR_R_OR_S');
1525: hr_utility.raise_error;
1526: end if;
1527:
1528: elsif p_legislation_code = 'CA' then
1521: -- Error: For US Business Groups the payroll process
1522: -- legislative_parameters must be set to 'R' (for Regular) or 'S'
1523: -- (for Supplemental).
1524: hr_utility.set_message(801, 'HR_7254_QPAY_LEG_PAR_R_OR_S');
1525: hr_utility.raise_error;
1526: end if;
1527:
1528: elsif p_legislation_code = 'CA' then
1529:
1535: -- Error: For Canadian Business Groups the payroll process
1536: -- legislative_parameters must be set to 'R' (for Regular) or
1537: -- 'N' (for Non Periodic) or 'L' (for Lump Sum).
1538:
1539: hr_utility.set_message(801,'HR_7254_QPAY_LEG_PAR_R_OR_S');
1540: hr_utility.raise_error;
1541: end if;
1542:
1543: end if;
1536: -- legislative_parameters must be set to 'R' (for Regular) or
1537: -- 'N' (for Non Periodic) or 'L' (for Lump Sum).
1538:
1539: hr_utility.set_message(801,'HR_7254_QPAY_LEG_PAR_R_OR_S');
1540: hr_utility.raise_error;
1541: end if;
1542:
1543: end if;
1544: else
1548: --
1549: if p_legislative_parameters is not null then
1550: -- Error: For this legislation, you must set the payroll process
1551: -- legislative_parameters attribute to null.
1552: hr_utility.set_message(801, 'HR_7255_QPAY_LEG_PAR_NULL');
1553: hr_utility.raise_error;
1554: end if;
1555: end if;
1556: --
1549: if p_legislative_parameters is not null then
1550: -- Error: For this legislation, you must set the payroll process
1551: -- legislative_parameters attribute to null.
1552: hr_utility.set_message(801, 'HR_7255_QPAY_LEG_PAR_NULL');
1553: hr_utility.raise_error;
1554: end if;
1555: end if;
1556: --
1557: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1553: hr_utility.raise_error;
1554: end if;
1555: end if;
1556: --
1557: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1558: End chk_legislative_parameters;
1559: --
1560: */
1561: -- ----------------------------------------------------------------------------
1617: and p_effective_date between rt.effective_start_date
1618: and rt.effective_end_date;
1619: --
1620: begin
1621: hr_utility.set_location('Entering:'|| v_proc, 5);
1622: --
1623: -- Cannot have a run type id as not null if the row on
1624: -- pay_legislative_field_info does not exist.
1625: --
1628: fetch get_leg_rule into l_rule_mode;
1629: if ((get_leg_rule%notfound) OR
1630: (get_leg_rule%found and l_rule_mode <> 'Y')) then
1631: close get_leg_rule;
1632: hr_utility.set_message(801, 'PAY_52380_INVALID_RUN_TYPE');
1633: hr_utility.raise_error;
1634: end if;
1635: --
1636: close get_leg_rule;
1629: if ((get_leg_rule%notfound) OR
1630: (get_leg_rule%found and l_rule_mode <> 'Y')) then
1631: close get_leg_rule;
1632: hr_utility.set_message(801, 'PAY_52380_INVALID_RUN_TYPE');
1633: hr_utility.raise_error;
1634: end if;
1635: --
1636: close get_leg_rule;
1637: --
1641: open get_rt_exists;
1642: fetch get_rt_exists into l_rt_exists;
1643: if (get_rt_exists%notfound) then
1644: close get_rt_exists;
1645: hr_utility.set_message(801, 'PAY_52380_INVALID_RUN_TYPE');
1646: hr_utility.raise_error;
1647: end if;
1648: --
1649: close get_rt_exists;
1642: fetch get_rt_exists into l_rt_exists;
1643: if (get_rt_exists%notfound) then
1644: close get_rt_exists;
1645: hr_utility.set_message(801, 'PAY_52380_INVALID_RUN_TYPE');
1646: hr_utility.raise_error;
1647: end if;
1648: --
1649: close get_rt_exists;
1650: --
1649: close get_rt_exists;
1650: --
1651: end if;
1652: --
1653: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1654: End chk_run_type;
1655: --
1656: -- ----------------------------------------------------------------------------
1657: -- |-----------------------------< chk_cur_task >-----------------------------|
1687: --
1688: v_proc varchar2(72) := g_package||'chk_cur_task';
1689: --
1690: begin
1691: hr_utility.set_location('Entering:'|| v_proc, 5);
1692: --
1693: if p_current_task is not null then
1694: -- Error: You have tried to update a field or to delete the QuickPay run
1695: -- while the run is processing.
1692: --
1693: if p_current_task is not null then
1694: -- Error: You have tried to update a field or to delete the QuickPay run
1695: -- while the run is processing.
1696: hr_utility.set_message(801, 'HR_7241_QPAY_Q_PROCESSING');
1697: hr_utility.raise_error;
1698: end if;
1699: --
1700: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1693: if p_current_task is not null then
1694: -- Error: You have tried to update a field or to delete the QuickPay run
1695: -- while the run is processing.
1696: hr_utility.set_message(801, 'HR_7241_QPAY_Q_PROCESSING');
1697: hr_utility.raise_error;
1698: end if;
1699: --
1700: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1701: end chk_cur_task;
1696: hr_utility.set_message(801, 'HR_7241_QPAY_Q_PROCESSING');
1697: hr_utility.raise_error;
1698: end if;
1699: --
1700: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1701: end chk_cur_task;
1702: --
1703: -- ----------------------------------------------------------------------------
1704: -- |-------------------------< chk_for_con_request >--------------------------|
1721: select request_id
1722: from pay_payroll_actions
1723: where payroll_action_id = p_payroll_action_id;
1724: begin
1725: hr_utility.set_location('Entering:'|| v_proc, 5);
1726: --
1727: -- Try to obtain the AOL request_id for this payroll process.
1728: --
1729: open sel_reqt;
1731: if sel_reqt%notfound then
1732: close sel_reqt;
1733: -- A row could not be found in pay_payroll_actions
1734: -- with an id of p_payroll_action_id.
1735: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
1736: hr_utility.raise_error;
1737: end if;
1738: close sel_reqt;
1739: hr_utility.set_location(v_proc, 7);
1732: close sel_reqt;
1733: -- A row could not be found in pay_payroll_actions
1734: -- with an id of p_payroll_action_id.
1735: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
1736: hr_utility.raise_error;
1737: end if;
1738: close sel_reqt;
1739: hr_utility.set_location(v_proc, 7);
1740: --
1735: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
1736: hr_utility.raise_error;
1737: end if;
1738: close sel_reqt;
1739: hr_utility.set_location(v_proc, 7);
1740: --
1741: -- Only need to find out the concurrent request status
1742: -- if the request_id is set and is non-zero.
1743: --
1741: -- Only need to find out the concurrent request status
1742: -- if the request_id is set and is non-zero.
1743: --
1744: if (v_request_id is not null) and (v_request_id <> 0) then
1745: hr_utility.set_location(v_proc, 8);
1746: --
1747: v_bl := fnd_concurrent.get_request_status
1748: (request_id => v_request_id
1749: ,phase => v_phase
1751: ,dev_phase => v_dev_phase
1752: ,dev_status => v_dev_status
1753: ,message => v_message
1754: );
1755: hr_utility.set_location(v_proc, 9);
1756: --
1757: -- The process is still waiting or running if the
1758: -- concurrent phase value is not Completed.
1759: --
1761: -- Error: You cannot update or delete a QuickPay definition when a
1762: -- request is still running or waiting to run on the AOL concurrent
1763: -- manager. You may need to contact your system administrator to resolve
1764: -- this problem. Please quote AOL concurrent request_id *REQUEST_ID.
1765: hr_utility.set_message(801, 'HR_7264_QPAY_CON_REQ_STILL_RUN');
1766: hr_utility.set_message_token('REQUEST_ID', to_char(v_request_id));
1767: hr_utility.raise_error;
1768: end if;
1769: end if;
1762: -- request is still running or waiting to run on the AOL concurrent
1763: -- manager. You may need to contact your system administrator to resolve
1764: -- this problem. Please quote AOL concurrent request_id *REQUEST_ID.
1765: hr_utility.set_message(801, 'HR_7264_QPAY_CON_REQ_STILL_RUN');
1766: hr_utility.set_message_token('REQUEST_ID', to_char(v_request_id));
1767: hr_utility.raise_error;
1768: end if;
1769: end if;
1770: --
1763: -- manager. You may need to contact your system administrator to resolve
1764: -- this problem. Please quote AOL concurrent request_id *REQUEST_ID.
1765: hr_utility.set_message(801, 'HR_7264_QPAY_CON_REQ_STILL_RUN');
1766: hr_utility.set_message_token('REQUEST_ID', to_char(v_request_id));
1767: hr_utility.raise_error;
1768: end if;
1769: end if;
1770: --
1771: hr_utility.set_location(' Leaving:'|| v_proc, 15);
1767: hr_utility.raise_error;
1768: end if;
1769: end if;
1770: --
1771: hr_utility.set_location(' Leaving:'|| v_proc, 15);
1772: end chk_for_con_request;
1773: --
1774: -- ----------------------------------------------------------------------------
1775: -- |------------------------< get_legislation_code >--------------------------|
1809: v_legislation_code per_business_groups.legislation_code%TYPE;
1810: v_proc varchar2(72) := g_package||'get_legislation_code';
1811: --
1812: Begin
1813: hr_utility.set_location('Entering:'|| v_proc, 5);
1814: --
1815: -- Find out the legislation code for the current business group
1816: --
1817: open cur_leg;
1818: fetch cur_leg into v_legislation_code;
1819: if cur_leg%notfound then
1820: close cur_leg;
1821: -- The legislation code could not be found for current business group.
1822: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1823: hr_utility.set_message_token('PROCEDURE', v_proc);
1824: hr_utility.set_message_token('STEP', '6');
1825: hr_utility.raise_error;
1826: end if;
1819: if cur_leg%notfound then
1820: close cur_leg;
1821: -- The legislation code could not be found for current business group.
1822: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1823: hr_utility.set_message_token('PROCEDURE', v_proc);
1824: hr_utility.set_message_token('STEP', '6');
1825: hr_utility.raise_error;
1826: end if;
1827: close cur_leg;
1820: close cur_leg;
1821: -- The legislation code could not be found for current business group.
1822: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1823: hr_utility.set_message_token('PROCEDURE', v_proc);
1824: hr_utility.set_message_token('STEP', '6');
1825: hr_utility.raise_error;
1826: end if;
1827: close cur_leg;
1828: --
1821: -- The legislation code could not be found for current business group.
1822: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1823: hr_utility.set_message_token('PROCEDURE', v_proc);
1824: hr_utility.set_message_token('STEP', '6');
1825: hr_utility.raise_error;
1826: end if;
1827: close cur_leg;
1828: --
1829: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1825: hr_utility.raise_error;
1826: end if;
1827: close cur_leg;
1828: --
1829: hr_utility.set_location(' Leaving:'|| v_proc, 10);
1830: --
1831: return v_legislation_code;
1832: end get_legislation_code;
1833: --
1839: --
1840: v_proc varchar2(72) := g_package||'return_api_dml_status';
1841: --
1842: begin
1843: hr_utility.set_location('Entering:'||v_proc, 5);
1844: --
1845: Return (nvl(g_api_dml, false));
1846: --
1847: hr_utility.set_location(' Leaving:'||v_proc, 10);
1843: hr_utility.set_location('Entering:'||v_proc, 5);
1844: --
1845: Return (nvl(g_api_dml, false));
1846: --
1847: hr_utility.set_location(' Leaving:'||v_proc, 10);
1848: end return_api_dml_status;
1849: --
1850: -- ----------------------------------------------------------------------------
1851: -- |---------------------------< constraint_error >---------------------------|
1895: --
1896: v_proc varchar2(72) := g_package||'constraint_error';
1897: --
1898: Begin
1899: hr_utility.set_location('Entering:'||v_proc, 5);
1900: --
1901: If (p_constraint_name = 'PAY_PAYRACT_ACTION_POPULAT_CHK') Then
1902: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1903: hr_utility.set_message_token('PROCEDURE', v_proc);
1898: Begin
1899: hr_utility.set_location('Entering:'||v_proc, 5);
1900: --
1901: If (p_constraint_name = 'PAY_PAYRACT_ACTION_POPULAT_CHK') 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','5');
1905: hr_utility.raise_error;
1906: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_STATUS_CHK') Then
1899: hr_utility.set_location('Entering:'||v_proc, 5);
1900: --
1901: If (p_constraint_name = 'PAY_PAYRACT_ACTION_POPULAT_CHK') 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','5');
1905: hr_utility.raise_error;
1906: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_STATUS_CHK') Then
1907: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1900: --
1901: If (p_constraint_name = 'PAY_PAYRACT_ACTION_POPULAT_CHK') 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','5');
1905: hr_utility.raise_error;
1906: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_STATUS_CHK') Then
1907: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1908: hr_utility.set_message_token('PROCEDURE', v_proc);
1901: If (p_constraint_name = 'PAY_PAYRACT_ACTION_POPULAT_CHK') 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','5');
1905: hr_utility.raise_error;
1906: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_STATUS_CHK') 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','10');
1903: hr_utility.set_message_token('PROCEDURE', v_proc);
1904: hr_utility.set_message_token('STEP','5');
1905: hr_utility.raise_error;
1906: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_STATUS_CHK') 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','10');
1910: hr_utility.raise_error;
1911: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_TYPE_CHK') Then
1904: hr_utility.set_message_token('STEP','5');
1905: hr_utility.raise_error;
1906: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_STATUS_CHK') 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','10');
1910: hr_utility.raise_error;
1911: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_TYPE_CHK') Then
1912: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1905: hr_utility.raise_error;
1906: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_STATUS_CHK') 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','10');
1910: hr_utility.raise_error;
1911: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_TYPE_CHK') 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_PAYRACT_ACTION_STATUS_CHK') 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','10');
1910: hr_utility.raise_error;
1911: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_TYPE_CHK') 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','15');
1908: hr_utility.set_message_token('PROCEDURE', v_proc);
1909: hr_utility.set_message_token('STEP','10');
1910: hr_utility.raise_error;
1911: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_TYPE_CHK') 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','15');
1915: elsif (p_constraint_name = 'PAY_PAYRACT_CURRENT_TASK_CHK') Then
1916: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1909: hr_utility.set_message_token('STEP','10');
1910: hr_utility.raise_error;
1911: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_TYPE_CHK') 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','15');
1915: elsif (p_constraint_name = 'PAY_PAYRACT_CURRENT_TASK_CHK') Then
1916: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1917: hr_utility.set_message_token('PROCEDURE', v_proc);
1910: hr_utility.raise_error;
1911: elsif (p_constraint_name = 'PAY_PAYRACT_ACTION_TYPE_CHK') 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','15');
1915: elsif (p_constraint_name = 'PAY_PAYRACT_CURRENT_TASK_CHK') Then
1916: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1917: hr_utility.set_message_token('PROCEDURE', v_proc);
1918: hr_utility.set_message_token('STEP','20');
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','15');
1915: elsif (p_constraint_name = 'PAY_PAYRACT_CURRENT_TASK_CHK') Then
1916: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1917: hr_utility.set_message_token('PROCEDURE', v_proc);
1918: hr_utility.set_message_token('STEP','20');
1919: hr_utility.raise_error;
1920: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1913: hr_utility.set_message_token('PROCEDURE', v_proc);
1914: hr_utility.set_message_token('STEP','15');
1915: elsif (p_constraint_name = 'PAY_PAYRACT_CURRENT_TASK_CHK') Then
1916: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1917: hr_utility.set_message_token('PROCEDURE', v_proc);
1918: hr_utility.set_message_token('STEP','20');
1919: hr_utility.raise_error;
1920: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1921: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1914: hr_utility.set_message_token('STEP','15');
1915: elsif (p_constraint_name = 'PAY_PAYRACT_CURRENT_TASK_CHK') Then
1916: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1917: hr_utility.set_message_token('PROCEDURE', v_proc);
1918: hr_utility.set_message_token('STEP','20');
1919: hr_utility.raise_error;
1920: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1921: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1922: hr_utility.set_message_token('PROCEDURE', v_proc);
1915: elsif (p_constraint_name = 'PAY_PAYRACT_CURRENT_TASK_CHK') Then
1916: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1917: hr_utility.set_message_token('PROCEDURE', v_proc);
1918: hr_utility.set_message_token('STEP','20');
1919: hr_utility.raise_error;
1920: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1921: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1922: hr_utility.set_message_token('PROCEDURE', v_proc);
1923: hr_utility.set_message_token('STEP','25');
1917: hr_utility.set_message_token('PROCEDURE', v_proc);
1918: hr_utility.set_message_token('STEP','20');
1919: hr_utility.raise_error;
1920: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1921: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1922: hr_utility.set_message_token('PROCEDURE', v_proc);
1923: hr_utility.set_message_token('STEP','25');
1924: hr_utility.raise_error;
1925: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1918: hr_utility.set_message_token('STEP','20');
1919: hr_utility.raise_error;
1920: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1921: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1922: hr_utility.set_message_token('PROCEDURE', v_proc);
1923: hr_utility.set_message_token('STEP','25');
1924: hr_utility.raise_error;
1925: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1926: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1919: hr_utility.raise_error;
1920: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1921: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1922: hr_utility.set_message_token('PROCEDURE', v_proc);
1923: hr_utility.set_message_token('STEP','25');
1924: hr_utility.raise_error;
1925: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1926: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1927: hr_utility.set_message_token('PROCEDURE', v_proc);
1920: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK1') Then
1921: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1922: hr_utility.set_message_token('PROCEDURE', v_proc);
1923: hr_utility.set_message_token('STEP','25');
1924: hr_utility.raise_error;
1925: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1926: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1927: hr_utility.set_message_token('PROCEDURE', v_proc);
1928: hr_utility.set_message_token('STEP','30');
1922: hr_utility.set_message_token('PROCEDURE', v_proc);
1923: hr_utility.set_message_token('STEP','25');
1924: hr_utility.raise_error;
1925: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1926: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1927: hr_utility.set_message_token('PROCEDURE', v_proc);
1928: hr_utility.set_message_token('STEP','30');
1929: hr_utility.raise_error;
1930: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1923: hr_utility.set_message_token('STEP','25');
1924: hr_utility.raise_error;
1925: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1926: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1927: hr_utility.set_message_token('PROCEDURE', v_proc);
1928: hr_utility.set_message_token('STEP','30');
1929: hr_utility.raise_error;
1930: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1931: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1924: hr_utility.raise_error;
1925: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1926: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1927: hr_utility.set_message_token('PROCEDURE', v_proc);
1928: hr_utility.set_message_token('STEP','30');
1929: hr_utility.raise_error;
1930: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1931: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1932: hr_utility.set_message_token('PROCEDURE', v_proc);
1925: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK2') Then
1926: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1927: hr_utility.set_message_token('PROCEDURE', v_proc);
1928: hr_utility.set_message_token('STEP','30');
1929: hr_utility.raise_error;
1930: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1931: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1932: hr_utility.set_message_token('PROCEDURE', v_proc);
1933: hr_utility.set_message_token('STEP','35');
1927: hr_utility.set_message_token('PROCEDURE', v_proc);
1928: hr_utility.set_message_token('STEP','30');
1929: hr_utility.raise_error;
1930: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1931: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1932: hr_utility.set_message_token('PROCEDURE', v_proc);
1933: hr_utility.set_message_token('STEP','35');
1934: hr_utility.raise_error;
1935: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1928: hr_utility.set_message_token('STEP','30');
1929: hr_utility.raise_error;
1930: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1931: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1932: hr_utility.set_message_token('PROCEDURE', v_proc);
1933: hr_utility.set_message_token('STEP','35');
1934: hr_utility.raise_error;
1935: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1936: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1929: hr_utility.raise_error;
1930: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1931: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1932: hr_utility.set_message_token('PROCEDURE', v_proc);
1933: hr_utility.set_message_token('STEP','35');
1934: hr_utility.raise_error;
1935: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1936: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1937: hr_utility.set_message_token('PROCEDURE', v_proc);
1930: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK5') Then
1931: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1932: hr_utility.set_message_token('PROCEDURE', v_proc);
1933: hr_utility.set_message_token('STEP','35');
1934: hr_utility.raise_error;
1935: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1936: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1937: hr_utility.set_message_token('PROCEDURE', v_proc);
1938: hr_utility.set_message_token('STEP','40');
1932: hr_utility.set_message_token('PROCEDURE', v_proc);
1933: hr_utility.set_message_token('STEP','35');
1934: hr_utility.raise_error;
1935: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1936: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1937: hr_utility.set_message_token('PROCEDURE', v_proc);
1938: hr_utility.set_message_token('STEP','40');
1939: hr_utility.raise_error;
1940: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1933: hr_utility.set_message_token('STEP','35');
1934: hr_utility.raise_error;
1935: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1936: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1937: hr_utility.set_message_token('PROCEDURE', v_proc);
1938: hr_utility.set_message_token('STEP','40');
1939: hr_utility.raise_error;
1940: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1941: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1934: hr_utility.raise_error;
1935: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1936: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1937: hr_utility.set_message_token('PROCEDURE', v_proc);
1938: hr_utility.set_message_token('STEP','40');
1939: hr_utility.raise_error;
1940: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1941: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1942: hr_utility.set_message_token('PROCEDURE', v_proc);
1935: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK6') Then
1936: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1937: hr_utility.set_message_token('PROCEDURE', v_proc);
1938: hr_utility.set_message_token('STEP','40');
1939: hr_utility.raise_error;
1940: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1941: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1942: hr_utility.set_message_token('PROCEDURE', v_proc);
1943: hr_utility.set_message_token('STEP','45');
1937: hr_utility.set_message_token('PROCEDURE', v_proc);
1938: hr_utility.set_message_token('STEP','40');
1939: hr_utility.raise_error;
1940: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1941: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1942: hr_utility.set_message_token('PROCEDURE', v_proc);
1943: hr_utility.set_message_token('STEP','45');
1944: hr_utility.raise_error;
1945: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1938: hr_utility.set_message_token('STEP','40');
1939: hr_utility.raise_error;
1940: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1941: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1942: hr_utility.set_message_token('PROCEDURE', v_proc);
1943: hr_utility.set_message_token('STEP','45');
1944: hr_utility.raise_error;
1945: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1946: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1939: hr_utility.raise_error;
1940: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1941: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1942: hr_utility.set_message_token('PROCEDURE', v_proc);
1943: hr_utility.set_message_token('STEP','45');
1944: hr_utility.raise_error;
1945: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1946: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1947: hr_utility.set_message_token('PROCEDURE', v_proc);
1940: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK7') Then
1941: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1942: hr_utility.set_message_token('PROCEDURE', v_proc);
1943: hr_utility.set_message_token('STEP','45');
1944: hr_utility.raise_error;
1945: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1946: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1947: hr_utility.set_message_token('PROCEDURE', v_proc);
1948: hr_utility.set_message_token('STEP','50');
1942: hr_utility.set_message_token('PROCEDURE', v_proc);
1943: hr_utility.set_message_token('STEP','45');
1944: hr_utility.raise_error;
1945: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1946: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1947: hr_utility.set_message_token('PROCEDURE', v_proc);
1948: hr_utility.set_message_token('STEP','50');
1949: hr_utility.raise_error;
1950: else
1943: hr_utility.set_message_token('STEP','45');
1944: hr_utility.raise_error;
1945: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1946: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1947: hr_utility.set_message_token('PROCEDURE', v_proc);
1948: hr_utility.set_message_token('STEP','50');
1949: hr_utility.raise_error;
1950: else
1951: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1944: hr_utility.raise_error;
1945: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1946: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1947: hr_utility.set_message_token('PROCEDURE', v_proc);
1948: hr_utility.set_message_token('STEP','50');
1949: hr_utility.raise_error;
1950: else
1951: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1952: hr_utility.set_message_token('PROCEDURE', v_proc);
1945: elsif (p_constraint_name = 'PAY_PAYROLL_ACTIONS_FK8') Then
1946: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1947: hr_utility.set_message_token('PROCEDURE', v_proc);
1948: hr_utility.set_message_token('STEP','50');
1949: hr_utility.raise_error;
1950: else
1951: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1952: hr_utility.set_message_token('PROCEDURE', v_proc);
1953: hr_utility.set_message_token('STEP','55');
1947: hr_utility.set_message_token('PROCEDURE', v_proc);
1948: hr_utility.set_message_token('STEP','50');
1949: hr_utility.raise_error;
1950: else
1951: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1952: hr_utility.set_message_token('PROCEDURE', v_proc);
1953: hr_utility.set_message_token('STEP','55');
1954: hr_utility.raise_error;
1955: end if;
1948: hr_utility.set_message_token('STEP','50');
1949: hr_utility.raise_error;
1950: else
1951: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1952: hr_utility.set_message_token('PROCEDURE', v_proc);
1953: hr_utility.set_message_token('STEP','55');
1954: hr_utility.raise_error;
1955: end if;
1956: --
1949: hr_utility.raise_error;
1950: else
1951: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1952: hr_utility.set_message_token('PROCEDURE', v_proc);
1953: hr_utility.set_message_token('STEP','55');
1954: hr_utility.raise_error;
1955: end if;
1956: --
1957: hr_utility.set_location(' Leaving:'||v_proc, 10);
1950: else
1951: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1952: hr_utility.set_message_token('PROCEDURE', v_proc);
1953: hr_utility.set_message_token('STEP','55');
1954: hr_utility.raise_error;
1955: end if;
1956: --
1957: hr_utility.set_location(' Leaving:'||v_proc, 10);
1958: End constraint_error;
1953: hr_utility.set_message_token('STEP','55');
1954: hr_utility.raise_error;
1955: end if;
1956: --
1957: hr_utility.set_location(' Leaving:'||v_proc, 10);
1958: End constraint_error;
1959: --
1960: -- ----------------------------------------------------------------------------
1961: -- |-------------------------< check_mandatory_args >-------------------------|
1991: v_proc varchar2(72) := g_package||'check_mandatory_args';
1992: v_argument varchar2(30);
1993: --
1994: Begin
1995: hr_utility.set_location('Entering:'||v_proc, 5);
1996: --
1997: -- This procedure does not check action_type, action_population_status,
1998: -- action_status because they are all set at by the pre-insert procedure.
1999: -- Consolidation_set_id is has been added to this procedure because it is
2014: ,p_argument => 'consolidation_set_id'
2015: ,p_argument_value => p_rec.consolidation_set_id
2016: );
2017: --
2018: hr_utility.set_location(' Leaving:'||v_proc, 10);
2019: End check_mandatory_args;
2020: --
2021: -- ----------------------------------------------------------------------------
2022: -- |----------------------< check_non_updateable_args >-----------------------|
2051: v_proc varchar2(72) := g_package||'check_non_updateable_args';
2052: v_argument varchar2(30);
2053: --
2054: Begin
2055: hr_utility.set_location('Entering:'||v_proc, 5);
2056: if nvl(p_rec.business_group_id, hr_api.g_number) <>
2057: nvl(g_old_rec.business_group_id, hr_api.g_number) then
2058: v_argument := 'business_group_id';
2059: raise hr_api.argument_changed;
2057: nvl(g_old_rec.business_group_id, hr_api.g_number) then
2058: v_argument := 'business_group_id';
2059: raise hr_api.argument_changed;
2060: end if;
2061: hr_utility.set_location(v_proc, 6);
2062: --
2063: if nvl(p_rec.effective_date, hr_api.g_date) <>
2064: nvl(g_old_rec.effective_date, hr_api.g_date) then
2065: v_argument := 'effective_date';
2064: nvl(g_old_rec.effective_date, hr_api.g_date) then
2065: v_argument := 'effective_date';
2066: raise hr_api.argument_changed;
2067: end if;
2068: hr_utility.set_location(v_proc, 7);
2069: --
2070: if nvl(p_rec.current_task, hr_api.g_varchar2) <>
2071: nvl(g_old_rec.current_task, hr_api.g_varchar2) then
2072: v_argument := 'current_task';
2071: nvl(g_old_rec.current_task, hr_api.g_varchar2) then
2072: v_argument := 'current_task';
2073: raise hr_api.argument_changed;
2074: end if;
2075: hr_utility.set_location(v_proc, 8);
2076: --
2077: if nvl(p_rec.date_earned, hr_api.g_date) <>
2078: nvl(g_old_rec.date_earned, hr_api.g_date) then
2079: v_argument := 'date_earned';
2079: v_argument := 'date_earned';
2080: raise hr_api.argument_changed;
2081: end if;
2082: --
2083: hr_utility.set_location(' Leaving:'||v_proc, 10);
2084: Exception
2085: When hr_api.argument_changed Then
2086: --
2087: -- A non updatetable attribute has been changed therefore we
2138: --
2139: Cursor C_Sel1 is select pay_payroll_actions_s.nextval from sys.dual;
2140: --
2141: Begin
2142: hr_utility.set_location('Entering:'|| v_proc, 5);
2143: --
2144: -- Set the following attributes to there insert values.
2145: -- (payroll_id and time_period_id are during the insert_validate logic.)
2146: --
2165: open C_Sel1;
2166: fetch C_Sel1 into p_rec.payroll_action_id;
2167: close C_Sel1;
2168: --
2169: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2170: End pre_insert;
2171: --
2172: -- ----------------------------------------------------------------------------
2173: -- |------------------------------< pre_update >------------------------------|
2198: --
2199: v_proc varchar2(72) := g_package||'pre_update';
2200: --
2201: Begin
2202: hr_utility.set_location('Entering:'|| v_proc, 5);
2203: --
2204: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2205: End pre_update;
2206: --
2200: --
2201: Begin
2202: hr_utility.set_location('Entering:'|| v_proc, 5);
2203: --
2204: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2205: End pre_update;
2206: --
2207: -- ----------------------------------------------------------------------------
2208: -- |------------------------------< pre_delete >------------------------------|
2235: --
2236: v_proc varchar2(72) := g_package||'pre_delete';
2237: --
2238: Begin
2239: hr_utility.set_location('Entering:'|| v_proc, 5);
2240: --
2241: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2242: End pre_delete;
2243: --
2237: --
2238: Begin
2239: hr_utility.set_location('Entering:'|| v_proc, 5);
2240: --
2241: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2242: End pre_delete;
2243: --
2244: -- ----------------------------------------------------------------------------
2245: -- |-----------------------------< post_insert >------------------------------|
2290: v_object_version_number pay_assignment_actions.object_version_number%TYPE;
2291: v_proc varchar2(72) := g_package||'post_insert';
2292: --
2293: begin
2294: hr_utility.set_location('Entering:'|| v_proc, 5);
2295: --
2296: -- For a QuickPay insert the assignment action
2297: -- and quickpay inclusion rows. (The payroll action and
2298: -- assignment action must be inserted in the same commit unit.
2305: ,p_assignment_id => p_assignment_id
2306: ,p_assignment_action_id => v_assignment_action_id
2307: ,p_object_version_number => v_object_version_number
2308: );
2309: hr_utility.set_location(v_proc, 6);
2310: --
2311: -- Insert default quickpay inclusions
2312: --
2313: -- Enhancement 3368211
2320: ,p_validate => p_validate
2321: );
2322: end if;
2323: --
2324: hr_utility.set_location(v_proc, 7);
2325: --
2326: p_assignment_action_id := v_assignment_action_id;
2327: p_a_object_version_number := v_object_version_number;
2328: --
2325: --
2326: p_assignment_action_id := v_assignment_action_id;
2327: p_a_object_version_number := v_object_version_number;
2328: --
2329: hr_utility.set_location('Leaving:'|| v_proc, 10);
2330: end post_insert;
2331: --
2332: -- ----------------------------------------------------------------------------
2333: -- |-----------------------------< post_update >------------------------------|
2360: --
2361: v_proc varchar2(72) := g_package||'post_update';
2362: --
2363: Begin
2364: hr_utility.set_location('Entering:'|| v_proc, 5);
2365: --
2366: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2367: End post_update;
2368: --
2362: --
2363: Begin
2364: hr_utility.set_location('Entering:'|| v_proc, 5);
2365: --
2366: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2367: End post_update;
2368: --
2369: -- ----------------------------------------------------------------------------
2370: -- |-----------------------------< post_delete >------------------------------|
2397: --
2398: v_proc varchar2(72) := g_package||'post_delete';
2399: --
2400: Begin
2401: hr_utility.set_location('Entering:'|| v_proc, 5);
2402: --
2403: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2404: End post_delete;
2405: --
2399: --
2400: Begin
2401: hr_utility.set_location('Entering:'|| v_proc, 5);
2402: --
2403: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2404: End post_delete;
2405: --
2406: -- ----------------------------------------------------------------------------
2407: -- |------------------------------< insert_dml >------------------------------|
2452: --
2453: v_proc varchar2(72) := g_package||'insert_dml';
2454: --
2455: Begin
2456: hr_utility.set_location('Entering:'|| v_proc, 5);
2457: p_rec.object_version_number := 1; -- Initialise the object version
2458: --
2459: g_api_dml := true; -- Set the api dml status
2460: --
2500: );
2501: --
2502: g_api_dml := false; -- Unset the api dml status
2503: --
2504: hr_utility.set_location(' Leaving:'||v_proc, 10);
2505: Exception
2506: When hr_api.check_integrity_violated Then
2507: --
2508: -- A check constraint has been violated
2578: --
2579: v_proc varchar2(72) := g_package||'update_dml';
2580: --
2581: Begin
2582: hr_utility.set_location('Entering:'|| v_proc, 5);
2583: --
2584: -- Increment the object version
2585: --
2586: p_rec.object_version_number := p_rec.object_version_number + 1;
2608: -- Unset the api dml status
2609: --
2610: g_api_dml := false;
2611: --
2612: hr_utility.set_location(' Leaving:'||v_proc, 10);
2613: --
2614: Exception
2615: When hr_api.check_integrity_violated Then
2616: --
2686: --
2687: v_proc varchar2(72) := g_package||'delete_dml';
2688: --
2689: Begin
2690: hr_utility.set_location('Entering:'|| v_proc, 5);
2691: --
2692: -- Set the api dml status
2693: --
2694: g_api_dml := true;
2701: -- Unset the api dml status
2702: --
2703: g_api_dml := false;
2704: --
2705: hr_utility.set_location(' Leaving:'||v_proc, 10);
2706: --
2707: Exception
2708: When hr_api.child_integrity_violated then
2709: --
2827: --
2828: v_proc varchar2(72) := g_package||'lck_general';
2829: --
2830: Begin
2831: hr_utility.set_location('Entering:'|| v_proc, 5);
2832: --
2833: -- Check the mandatory args have been set
2834: --
2835: hr_api.mandatory_arg_error
2846: (p_api_name => v_proc
2847: ,p_argument => 'a_object_version_number'
2848: ,p_argument_value => p_a_object_version_number
2849: );
2850: hr_utility.set_location(v_proc, 6);
2851: --
2852: -- Additional logic specific to this entity:
2853: -- Do not allow the lock to be taken out if there is an AOL concurrent
2854: -- request waiting to run or still running on a concurrent manager.
2854: -- request waiting to run or still running on a concurrent manager.
2855: --
2856: chk_for_con_request
2857: (p_payroll_action_id => p_payroll_action_id);
2858: hr_utility.set_location(v_proc, 7);
2859: --
2860: -- If the primary key exists, we must now attempt to lock the
2861: -- row and check the object version numbers.
2862: --
2882: Close C_Sel1;
2883: --
2884: -- The primary key is invalid therefore we must error
2885: --
2886: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
2887: hr_utility.raise_error;
2888: End If;
2889: Close C_Sel1;
2890: If (p_p_object_version_number <> g_old_rec.object_version_number) or
2883: --
2884: -- The primary key is invalid therefore we must error
2885: --
2886: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
2887: hr_utility.raise_error;
2888: End If;
2889: Close C_Sel1;
2890: If (p_p_object_version_number <> g_old_rec.object_version_number) or
2891: (p_a_object_version_number <> v_a_object_version_number) Then
2888: End If;
2889: Close C_Sel1;
2890: If (p_p_object_version_number <> g_old_rec.object_version_number) or
2891: (p_a_object_version_number <> v_a_object_version_number) Then
2892: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
2893: hr_utility.raise_error;
2894: End If;
2895: --
2896: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2889: Close C_Sel1;
2890: If (p_p_object_version_number <> g_old_rec.object_version_number) or
2891: (p_a_object_version_number <> v_a_object_version_number) Then
2892: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
2893: hr_utility.raise_error;
2894: End If;
2895: --
2896: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2897: --
2892: hr_utility.set_message(801, 'HR_7155_OBJECT_INVALID');
2893: hr_utility.raise_error;
2894: End If;
2895: --
2896: hr_utility.set_location(' Leaving:'|| v_proc, 10);
2897: --
2898: -- We need to trap the ORA LOCK exception
2899: --
2900: Exception
2902: --
2903: -- The object is locked therefore we need to supply a meaningful
2904: -- error message.
2905: --
2906: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
2907: hr_utility.set_message_token('TABLE_NAME', 'pay_payroll_actions');
2908: hr_utility.raise_error;
2909: End lck_general;
2910: --
2903: -- The object is locked therefore we need to supply a meaningful
2904: -- error message.
2905: --
2906: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
2907: hr_utility.set_message_token('TABLE_NAME', 'pay_payroll_actions');
2908: hr_utility.raise_error;
2909: End lck_general;
2910: --
2911: -- ----------------------------------------------------------------------------
2904: -- error message.
2905: --
2906: hr_utility.set_message(801, 'HR_7165_OBJECT_LOCKED');
2907: hr_utility.set_message_token('TABLE_NAME', 'pay_payroll_actions');
2908: hr_utility.raise_error;
2909: End lck_general;
2910: --
2911: -- ----------------------------------------------------------------------------
2912: -- |---------------------------------< lck >----------------------------------|
2984: v_proc varchar2(72) := g_package||'convert_args';
2985: --
2986: Begin
2987: --
2988: hr_utility.set_location('Entering:'|| v_proc, 5);
2989: --
2990: -- Convert arguments into local l_rec structure.
2991: --
2992: v_rec.payroll_action_id := p_payroll_action_id;
3003: v_rec.object_version_number := p_object_version_number;
3004: --
3005: -- Return the plsql record structure.
3006: --
3007: hr_utility.set_location(' Leaving:'|| v_proc, 10);
3008: return(v_rec);
3009: --
3010: End convert_args;
3011: --
3054: v_proc varchar2(72) := g_package||'convert_defs';
3055: --
3056: Begin
3057: --
3058: hr_utility.set_location('Entering:'|| v_proc, 5);
3059: --
3060: -- We must now examine each argument value in the
3061: -- p_rec plsql record structure
3062: -- to see if a system default is being used. If a system default
3103: End If;
3104: --
3105: -- Return the plsql record structure.
3106: --
3107: hr_utility.set_location(' Leaving:'||v_proc, 10);
3108: Return(p_rec);
3109: --
3110: End convert_defs;
3111: --
3156: v_time_period_id pay_payroll_actions.time_period_id%TYPE;
3157: v_proc varchar2(72) := g_package||'insert_validate';
3158: --
3159: Begin
3160: hr_utility.set_location('Entering:'|| v_proc, 5);
3161: --
3162: -- Call all supporting business operations
3163: --
3164: --
3164: --
3165: -- Check mandatory values have been set
3166: --
3167: check_mandatory_args(p_rec => p_rec);
3168: hr_utility.set_location(v_proc, 6);
3169: --
3170: -- Validate business group id
3171: --
3172: hr_api.validate_bus_grp_id(p_rec.business_group_id);
3169: --
3170: -- Validate business group id
3171: --
3172: hr_api.validate_bus_grp_id(p_rec.business_group_id);
3173: hr_utility.set_location(v_proc, 7);
3174: --
3175: -- Validate the assignment is in the same business group
3176: -- (Some other validate checks are done when the assignment action is
3177: -- inserted as part of the post-insert logic.)
3180: (p_assignment_id => p_assignment_id
3181: ,p_business_group_id => p_rec.business_group_id
3182: ,p_effective_date => p_rec.effective_date
3183: );
3184: hr_utility.set_location(v_proc, 8);
3185: --
3186: -- Validate the consolidation set exists and it is in
3187: -- the same business group as the QuickPay.
3188: --
3189: chk_consol_set
3190: (p_consolidation_set_id => p_rec.consolidation_set_id
3191: ,p_business_group_id => p_rec.business_group_id
3192: );
3193: hr_utility.set_location(v_proc, 9);
3194: --
3195: -- Find out the legislation code for the current business group
3196: -- (Then it does not have to be derived many times in different
3197: -- business rule checks.)
3211: ,p_time_period_id => v_time_period_id
3212: ,p_period_name => v_unused_return_nam
3213: ,p_new_date_earned => v_unused_return_d
3214: );
3215: hr_utility.set_location(v_proc, 11);
3216: --
3217: -- Validate the assignment is on a payroll as of date earned.
3218: -- Check that a time period exists for the assignment's payroll as of
3219: -- date earned.
3226: ,p_payroll_id => v_payroll_id
3227: ,p_time_period_id => v_time_period_id
3228: ,p_period_name => v_unused_return_nam
3229: );
3230: hr_utility.set_location(v_proc, 12);
3231: --
3232: -- Validate the assignment is on the same payroll
3233: -- as of the effective_date and date_earned.
3234: --
3238: ,p_assignment_id => p_assignment_id
3239: ,p_raise_error => true
3240: ,p_same_payroll => v_unused_return_b
3241: );
3242: hr_utility.set_location(v_proc, 13);
3243: --
3244: -- Validate the run_type - if not null, check it exists on
3245: -- pay_run_types_f.
3246: --
3255: --
3256: p_payroll_id := v_payroll_id;
3257: p_time_period_id := v_time_period_id;
3258: --
3259: hr_utility.set_location(' Leaving:'|| v_proc, 14);
3260: End insert_validate;
3261: --
3262: -- ----------------------------------------------------------------------------
3263: -- |---------------------------< update_validate >----------------------------|
3293: v_legislation_code per_business_groups.legislation_code%TYPE;
3294: v_proc varchar2(72) := g_package||'update_validate';
3295: --
3296: Begin
3297: hr_utility.set_location('Entering:'|| v_proc, 5);
3298: --
3299: -- Call all supporting business operations
3300: --
3301: -- Check mandatory values have been set
3359: --
3360: -- The user is allowed to update the pay advice date and
3361: -- the pay advice message. No validation is required.
3362: --
3363: hr_utility.set_location(' Leaving:'|| v_proc, 10);
3364: End update_validate;
3365: --
3366: -- ----------------------------------------------------------------------------
3367: -- |---------------------------< delete_validate >----------------------------|
3394: --
3395: v_proc varchar2(72) := g_package||'delete_validate';
3396: --
3397: Begin
3398: hr_utility.set_location('Entering:'|| v_proc, 5);
3399: --
3400: -- Check that the payroll_action has a null current_task.
3401: --
3402: chk_cur_task
3411: p_payroll_action_id => p_rec.payroll_action_id,
3412: p_rollback_mode => 'ROLLBACK',
3413: p_leave_base_table_row => TRUE);
3414: --
3415: hr_utility.set_location('Leaving:'|| v_proc, 10);
3416: End delete_validate;
3417: --
3418: -- ----------------------------------------------------------------------------
3419: -- |---------------------------------< ins >----------------------------------|
3444: v_assignment_action_id pay_assignment_actions.assignment_action_id%TYPE;
3445: v_a_object_version_number pay_assignment_actions.object_version_number%TYPE;
3446: --
3447: Begin
3448: hr_utility.set_location('Entering:'|| v_proc, 5);
3449: --
3450: -- Determine if the business process is to be validated.
3451: --
3452: If p_validate then
3503: if p_validate then
3504: raise hr_api.validate_enabled;
3505: end if;
3506: --
3507: hr_utility.set_location(' Leaving:'||v_proc, 10);
3508: exception
3509: when hr_api.validate_enabled then
3510: --
3511: -- As the Validate_Enabled exception has been raised
3539: v_rec g_rec_type;
3540: v_proc varchar2(72) := g_package||'ins';
3541: --
3542: Begin
3543: hr_utility.set_location('Entering:'||v_proc, 5);
3544: --
3545: -- Call conversion function to turn arguments into the
3546: -- p_rec structure.
3547: --
3560: ,p_pay_advice_date => p_pay_advice_date
3561: ,p_pay_advice_message => p_pay_advice_message
3562: ,p_object_version_number => null
3563: );
3564: hr_utility.set_location(v_proc, 6);
3565: --
3566: -- Having converted the arguments into the pay_payact_rec
3567: -- plsql record structure we call the corresponding record business process.
3568: --
3572: ,p_assignment_action_id => p_assignment_action_id
3573: ,p_a_object_version_number => p_a_object_version_number
3574: ,p_validate => p_validate
3575: );
3576: hr_utility.set_location(v_proc, 7);
3577: --
3578: -- As the primary key argument(s)
3579: -- are specified as an OUT's we must set these values.
3580: -- (p_a_object_version_number and p_assignment_action_id have
3582: --
3583: p_payroll_action_id := v_rec.payroll_action_id;
3584: p_p_object_version_number := v_rec.object_version_number;
3585: --
3586: hr_utility.set_location(' Leaving:'|| v_proc, 10);
3587: End ins;
3588: --
3589: -- ----------------------------------------------------------------------------
3590: -- |---------------------------------< upd >----------------------------------|
3599: --
3600: v_proc varchar2(72) := g_package||'upd';
3601: --
3602: Begin
3603: hr_utility.set_location('Entering:'|| v_proc, 5);
3604: --
3605: -- Determine if the business process is to be validated.
3606: --
3607: If p_validate then
3617: (p_payroll_action_id => p_rec.payroll_action_id
3618: ,p_p_object_version_number => p_rec.object_version_number
3619: ,p_a_object_version_number => p_a_object_version_number
3620: );
3621: hr_utility.set_location(v_proc, 6);
3622: --
3623: -- 1. During an update system defaults are used to determine if
3624: -- arguments have been defaulted or not. We must therefore
3625: -- derive the full record structure values to be updated.
3647: if p_validate then
3648: raise hr_api.validate_enabled;
3649: end if;
3650: --
3651: hr_utility.set_location(' Leaving:'||v_proc, 10);
3652: exception
3653: when hr_api.validate_enabled Then
3654: --
3655: -- As the Validate_Enabled exception has been raised
3680: v_rec g_rec_type;
3681: v_proc varchar2(72) := g_package||'upd';
3682: --
3683: Begin
3684: hr_utility.set_location('Entering:'|| v_proc, 5);
3685: --
3686: -- Call conversion function to turn arguments into the
3687: -- l_rec structure.
3688: --
3701: ,p_pay_advice_date => p_pay_advice_date
3702: ,p_pay_advice_message => p_pay_advice_message
3703: ,p_object_version_number => p_p_object_version_number
3704: );
3705: hr_utility.set_location(v_proc, 6);
3706: --
3707: -- Having converted the arguments into the
3708: -- plsql record structure we call the corresponding record
3709: -- business process.
3715: ,p_validate => p_validate
3716: );
3717: p_p_object_version_number := v_rec.object_version_number;
3718: --
3719: hr_utility.set_location(' Leaving:'|| v_proc, 10);
3720: End upd;
3721: --
3722: -- ----------------------------------------------------------------------------
3723: -- |---------------------------------< del >----------------------------------|
3731: --
3732: v_proc varchar2(72) := g_package||'del';
3733: --
3734: begin
3735: hr_utility.set_location('Entering:'|| v_proc, 5);
3736: --
3737: -- Determine if the business process is to be validated.
3738: --
3739: if p_validate then
3772: if p_validate then
3773: raise hr_api.validate_enabled;
3774: end if;
3775: --
3776: hr_utility.set_location(' Leaving:'||v_proc, 10);
3777: exception
3778: when hr_api.validate_enabled Then
3779: --
3780: -- As the Validate_Enabled exception has been raised
3797: v_rec g_rec_type;
3798: v_proc varchar2(72) := g_package||'del';
3799: --
3800: Begin
3801: hr_utility.set_location('Entering:'|| v_proc, 5);
3802: --
3803: -- As the delete procedure accepts a plsql record structure we do need to
3804: -- convert the arguments into the record structure.
3805: -- We don't need to call the supplied conversion argument routine as we
3817: ,p_a_object_version_number => p_a_object_version_number
3818: ,p_validate => p_validate
3819: );
3820: --
3821: hr_utility.set_location(' Leaving:'||v_proc, 10);
3822: End del;
3823: --
3824: -- ----------------------------------------------------------------------------
3825: -- |-----------------------------< default_values >---------------------------|
3924: --
3925: v_proc varchar2(72) := g_package||'default_values';
3926: --
3927: begin
3928: hr_utility.set_location('Entering:'|| v_proc, 5);
3929: --
3930: -- Work out which date to drive off. Try to use the Form's session effective
3931: -- date. If that has not been defined for this database session then
3932: -- use trunc(sysdate).
3936: if csr_eff_date%notfound then
3937: v_eff_date := trunc(sysdate);
3938: end if;
3939: close csr_eff_date;
3940: hr_utility.set_location(v_proc, 6);
3941: --
3942: -- Obtain the assignment's payroll, consolidation set details,
3943: -- action status meanings, QuickPay Run user description and
3944: -- the business group's legislation details.
3956: if csr_payroll%found then
3957: close csr_payroll;
3958: else
3959: close csr_payroll;
3960: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3961: hr_utility.set_message_token('PROCEDURE', v_proc);
3962: hr_utility.set_message_token('STEP', '7');
3963: hr_utility.raise_error;
3964: end if;
3957: close csr_payroll;
3958: else
3959: close csr_payroll;
3960: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3961: hr_utility.set_message_token('PROCEDURE', v_proc);
3962: hr_utility.set_message_token('STEP', '7');
3963: hr_utility.raise_error;
3964: end if;
3965: hr_utility.set_location(v_proc, 8);
3958: else
3959: close csr_payroll;
3960: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3961: hr_utility.set_message_token('PROCEDURE', v_proc);
3962: hr_utility.set_message_token('STEP', '7');
3963: hr_utility.raise_error;
3964: end if;
3965: hr_utility.set_location(v_proc, 8);
3966: --
3959: close csr_payroll;
3960: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3961: hr_utility.set_message_token('PROCEDURE', v_proc);
3962: hr_utility.set_message_token('STEP', '7');
3963: hr_utility.raise_error;
3964: end if;
3965: hr_utility.set_location(v_proc, 8);
3966: --
3967: -- Obtain the button prompts from hr_lookups
3961: hr_utility.set_message_token('PROCEDURE', v_proc);
3962: hr_utility.set_message_token('STEP', '7');
3963: hr_utility.raise_error;
3964: end if;
3965: hr_utility.set_location(v_proc, 8);
3966: --
3967: -- Obtain the button prompts from hr_lookups
3968: --
3969: p_start_run_prompt := hr_general.decode_lookup ('PAYWSRQP_BUTTONS','SR');
3976: p_start_pre_prompt is null or p_rerun_pre_prompt is null or
3977: p_start_arc_prompt is null or p_retry_arc_prompt is null then
3978: -- All six button labels could not be found in hr_lookups.
3979: -- (Where lookup_type = 'PAYWSRQP_BUTTONS'.)
3980: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3981: hr_utility.set_message_token('PROCEDURE', v_proc);
3982: hr_utility.set_message_token('STEP', '9');
3983: hr_utility.raise_error;
3984: end if;
3977: p_start_arc_prompt is null or p_retry_arc_prompt is null then
3978: -- All six button labels could not be found in hr_lookups.
3979: -- (Where lookup_type = 'PAYWSRQP_BUTTONS'.)
3980: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3981: hr_utility.set_message_token('PROCEDURE', v_proc);
3982: hr_utility.set_message_token('STEP', '9');
3983: hr_utility.raise_error;
3984: end if;
3985: hr_utility.set_location(v_proc, 10);
3978: -- All six button labels could not be found in hr_lookups.
3979: -- (Where lookup_type = 'PAYWSRQP_BUTTONS'.)
3980: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3981: hr_utility.set_message_token('PROCEDURE', v_proc);
3982: hr_utility.set_message_token('STEP', '9');
3983: hr_utility.raise_error;
3984: end if;
3985: hr_utility.set_location(v_proc, 10);
3986: --
3979: -- (Where lookup_type = 'PAYWSRQP_BUTTONS'.)
3980: hr_utility.set_message(801,'HR_6153_ALL_PROCEDURE_FAIL');
3981: hr_utility.set_message_token('PROCEDURE', v_proc);
3982: hr_utility.set_message_token('STEP', '9');
3983: hr_utility.raise_error;
3984: end if;
3985: hr_utility.set_location(v_proc, 10);
3986: --
3987: -- Set the out arguments p_df_effective_date and p_df_date_earned
3981: hr_utility.set_message_token('PROCEDURE', v_proc);
3982: hr_utility.set_message_token('STEP', '9');
3983: hr_utility.raise_error;
3984: end if;
3985: hr_utility.set_location(v_proc, 10);
3986: --
3987: -- Set the out arguments p_df_effective_date and p_df_date_earned
3988: -- depending on a payroll time period existing and the legislation.
3989: --
4000: close csr_per_dat;
4001: v_df_effective_date := null;
4002: v_df_date_earned := null;
4003: v_df_period_name := null;
4004: hr_utility.set_location(v_proc, 11);
4005: else
4006: --
4007: -- A time period does exist as of the session date. Set the
4008: -- period name out argument and set the date fields depending
4008: -- period name out argument and set the date fields depending
4009: -- on the current legislation.
4010: --
4011: close csr_per_dat;
4012: hr_utility.set_location(v_proc, 12);
4013: --
4014: if v_legislation_code = 'GB' then
4015: --
4016: -- Only for GB legislation.
4036: --v_df_date_earned := get_date_earned_for_gb
4037: -- (p_assignment_id => p_assignment_id
4038: -- ,p_effective_date => v_df_effective_date
4039: -- );
4040: --hr_utility.set_location(v_proc, 13);
4041: --
4042: -- If get_date_earned_for_gb returns a null value then a suitable
4043: -- default value could not be found or the assignment.
4044: --
4044: --
4045: --if v_df_date_earned is null then
4046: -- v_df_effective_date := null;
4047: -- v_df_period_name := null;
4048: -- hr_utility.set_location(v_proc, 14);
4049: --else
4050: --
4051: -- Check the assignment is on the same payroll as of the specified
4052: -- default effective_date and default date_earned.
4063: -- different.
4064: --v_df_effective_date := null;
4065: --v_df_date_earned := null;
4066: --v_df_period_name := null;
4067: --hr_utility.set_location(v_proc, 16);
4068: --end if;
4069: --hr_utility.set_location(v_proc, 17);
4070: --end if;
4071: --hr_utility.set_location(v_proc, 18);
4065: --v_df_date_earned := null;
4066: --v_df_period_name := null;
4067: --hr_utility.set_location(v_proc, 16);
4068: --end if;
4069: --hr_utility.set_location(v_proc, 17);
4070: --end if;
4071: --hr_utility.set_location(v_proc, 18);
4072: --else -- payrolls as of v_eff_date and v_df_effective_date are different
4073: --v_df_effective_date := null;
4067: --hr_utility.set_location(v_proc, 16);
4068: --end if;
4069: --hr_utility.set_location(v_proc, 17);
4070: --end if;
4071: --hr_utility.set_location(v_proc, 18);
4072: --else -- payrolls as of v_eff_date and v_df_effective_date are different
4073: --v_df_effective_date := null;
4074: --v_df_date_earned := null;
4075: --v_df_period_name := null;
4072: --else -- payrolls as of v_eff_date and v_df_effective_date are different
4073: --v_df_effective_date := null;
4074: --v_df_date_earned := null;
4075: --v_df_period_name := null;
4076: --hr_utility.set_location(v_proc, 19);
4077: --end if;
4078: else
4079: --
4080: -- For all other legislations. i.e. non-GB.
4081: --
4082: v_df_effective_date := v_eff_date;
4083: v_df_date_earned := v_eff_date;
4084: v_df_period_name := v_period_name;
4085: hr_utility.set_location(v_proc, 20);
4086: end if;
4087: end if;
4088: --
4089: p_df_effective_date := v_df_effective_date;
4089: p_df_effective_date := v_df_effective_date;
4090: p_df_date_earned := v_df_date_earned;
4091: p_period_name := v_df_period_name;
4092: --
4093: hr_utility.set_location(' Leaving:'|| v_proc, 21);
4094: end default_values;
4095: --
4096: -- ----------------------------------------------------------------------------
4097: -- |-----------------------------< get_latest_status >------------------------|
4143: , pay_assignment_actions aga
4144: where pya.payroll_action_id = p_payroll_action_id
4145: and aga.payroll_action_id = pya.payroll_action_id;
4146: begin
4147: hr_utility.set_location('Entering:'|| v_proc, 5);
4148: --
4149: -- Check mandatory parameters have been set
4150: --
4151: hr_api.mandatory_arg_error
4163: , p_a_action_status;
4164: if cur_stat%notfound then
4165: close cur_stat;
4166: -- Error: This primary key does not exist in the database.
4167: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
4168: hr_utility.raise_error;
4169: end if;
4170: close cur_stat;
4171: --
4164: if cur_stat%notfound then
4165: close cur_stat;
4166: -- Error: This primary key does not exist in the database.
4167: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
4168: hr_utility.raise_error;
4169: end if;
4170: close cur_stat;
4171: --
4172: hr_utility.set_location(' Leaving:'|| v_proc, 10);
4168: hr_utility.raise_error;
4169: end if;
4170: close cur_stat;
4171: --
4172: hr_utility.set_location(' Leaving:'|| v_proc, 10);
4173: end get_latest_status;
4174: --
4175: -- ----------------------------------------------------------------------------
4176: -- |--------------------------< start_quickpay_process >----------------------|
4339: AND NOT (ACT.action_status = 'B' AND EE.creator_type = 'RR')
4340: AND NOT (ACT.action_status = 'B' AND EE.creator_type = 'EE');
4341: --
4342: begin
4343: hr_utility.set_location('Entering:'|| v_proc, 5);
4344: --
4345: -- Check mandatory parameters have been set
4346: --
4347: hr_api.mandatory_arg_error
4359: ,p_only_action_type => null
4360: ,p_actual_action_type => v_action_type
4361: ,p_a_action_status => v_a_action_status
4362: );
4363: hr_utility.set_location(v_proc, 6);
4364: --
4365: select pbg.legislation_code
4366: into v_leg_code
4367: from per_business_groups_perf pbg,
4403: else
4404: -- Error: You have attempted to issue a Start or Retry operation, after
4405: -- querying this record but before another operation has finished.
4406: -- You need to query this record and issue the operation again.
4407: hr_utility.set_message(801, 'HR_7265_QPAY_STATUS_OUT_SYNC');
4408: hr_utility.raise_error;
4409: end if;
4410: hr_utility.set_location(v_proc, 8);
4411: --
4404: -- Error: You have attempted to issue a Start or Retry operation, after
4405: -- querying this record but before another operation has finished.
4406: -- You need to query this record and issue the operation again.
4407: hr_utility.set_message(801, 'HR_7265_QPAY_STATUS_OUT_SYNC');
4408: hr_utility.raise_error;
4409: end if;
4410: hr_utility.set_location(v_proc, 8);
4411: --
4412: -- For quickpay, add extra check here to see if assignment has got any net
4406: -- You need to query this record and issue the operation again.
4407: hr_utility.set_message(801, 'HR_7265_QPAY_STATUS_OUT_SYNC');
4408: hr_utility.raise_error;
4409: end if;
4410: hr_utility.set_location(v_proc, 8);
4411: --
4412: -- For quickpay, add extra check here to see if assignment has got any net
4413: -- to gross entries. If it has, then issue a warning message only if a
4414: -- legislation rule exists for DISP_NTG_MESG
4456: ,sub_request => false
4457: ,argument1 => v_first_arg
4458: ,argument2 => to_char(p_payroll_action_id)
4459: );
4460: hr_utility.set_location(v_proc, 9);
4461: --
4462: -- Detect if the request was really submitted.
4463: -- If it has not then handle the error.
4464: --
4464: --
4465: if v_request_id = 0 then
4466: fnd_message.raise_error;
4467: end if;
4468: hr_utility.set_location(v_proc, 11);
4469: --
4470: -- Request has been accepted update payroll_actions
4471: -- with the request details.
4472: --
4474: set request_id = v_request_id
4475: where payroll_action_id = p_payroll_action_id;
4476: --
4477: end if;
4478: hr_utility.set_location(' Leaving:'|| v_proc, 12);
4479: --
4480: return;
4481: --
4482: end start_quickpay_process;
4520: from pay_action_parameters
4521: where parameter_name = 'QUICKPAY_INTERVAL_WAIT_SEC';
4522: --
4523: begin
4524: hr_utility.set_location('Entering:'|| v_proc, 5);
4525: --
4526: -- Check mandatory parameters have been set
4527: --
4528: hr_api.mandatory_arg_error
4537: fetch cur_req into v_request_id;
4538: if cur_req%notfound then
4539: close cur_req;
4540: -- Error: This primary key does not exist in the database.
4541: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
4542: hr_utility.raise_error;
4543: end if;
4544: close cur_req;
4545: hr_utility.set_location(v_proc, 7);
4538: if cur_req%notfound then
4539: close cur_req;
4540: -- Error: This primary key does not exist in the database.
4541: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
4542: hr_utility.raise_error;
4543: end if;
4544: close cur_req;
4545: hr_utility.set_location(v_proc, 7);
4546: --
4541: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
4542: hr_utility.raise_error;
4543: end if;
4544: close cur_req;
4545: hr_utility.set_location(v_proc, 7);
4546: --
4547: -- Check the request_id has been set. A value of zero means the submit
4548: -- request was not accepted by the concurrent manager. (This value should
4549: -- not be in pay_payroll_actions in the first place.)
4551: if (v_request_id is null) or (v_request_id = 0) then
4552: -- Error: You have attempted to wait for a request to finish, when no
4553: -- request has been submitted for this QuickPay Run or QuickPay
4554: -- Pre-payment.
4555: hr_utility.set_message(801, 'HR_7266_QPAY_WAIT_NO_REQUEST');
4556: hr_utility.raise_error;
4557: end if;
4558: hr_utility.set_location(v_proc, 9);
4559: --
4552: -- Error: You have attempted to wait for a request to finish, when no
4553: -- request has been submitted for this QuickPay Run or QuickPay
4554: -- Pre-payment.
4555: hr_utility.set_message(801, 'HR_7266_QPAY_WAIT_NO_REQUEST');
4556: hr_utility.raise_error;
4557: end if;
4558: hr_utility.set_location(v_proc, 9);
4559: --
4560: -- Attempt to find out the QuickPay Concurrent manager max wait time
4554: -- Pre-payment.
4555: hr_utility.set_message(801, 'HR_7266_QPAY_WAIT_NO_REQUEST');
4556: hr_utility.raise_error;
4557: end if;
4558: hr_utility.set_location(v_proc, 9);
4559: --
4560: -- Attempt to find out the QuickPay Concurrent manager max wait time
4561: -- and polling interval time from pay_action_parameters. If values
4562: -- cannot be found in this table then default to a max wait of 300
4570: v_max_wait_sec := 300;
4571: else
4572: close cur_max;
4573: end if;
4574: hr_utility.set_location(v_proc, 10);
4575: --
4576: open cur_intw;
4577: fetch cur_intw into v_interval_wait_sec;
4578: if cur_intw %notfound then
4581: v_interval_wait_sec := 2;
4582: else
4583: close cur_intw;
4584: end if;
4585: hr_utility.set_location(v_proc, 11);
4586: --
4587: -- Waits for request to finish on the concurrent manager.
4588: -- Or gives up if the maximum wait time is reached.
4589: --
4596: ,dev_phase => v_dev_phase
4597: ,dev_status => v_dev_status
4598: ,message => v_message
4599: );
4600: hr_utility.set_location(v_proc, 12);
4601: --
4602: -- N.B. This point in the code can be reached for one of two reasons.
4603: -- 1) The AOL process has reached a concurrent manager 'phase'
4604: -- value of 'COMPLETED'.
4613: ,p_p_action_status => v_p_action_status
4614: ,p_display_run_number => p_display_run_number
4615: ,p_a_action_status => p_a_action_status
4616: );
4617: hr_utility.set_location(v_proc, 13);
4618: --
4619: -- Work out the process information for the caller
4620: -- (This assumes that when the payroll_action.action_status is 'Complete' or
4621: -- 'In Error' the payroll_action.current_task will not be null. At the
4632: end if;
4633: --
4634: p_request_id := v_request_id;
4635: --
4636: hr_utility.set_location(' Leaving:'|| v_proc, 14);
4637: --
4638: end wait_quickpay_process;
4639: --
4640: end pay_qpq_api;