[Home] [Help]
690: -- but we have to take into account assignments and
691: -- personal payment methods.
692: begin
693:
694: hr_utility.set_location('procpyr',1);
695:
696: select legislative_parameters into leg_param
697: from pay_payroll_actions
698: where payroll_action_id = pactid;
727: l_business_group_id,
728: l_start_date,
729: l_effective_date);
730: loop
731: hr_utility.set_location('procpyr',2);
732:
733: fetch c_bal_adj into lockedactid,assignid,greid;
734: if c_bal_adj%found then
735: num := num + 1;
750: ass_flag := hr_assignment_set.assignment_in_set(ass_set_id,assignid);
751:
752: If ass_flag = 'Y' then
753:
754: hr_utility.set_location('procpyr',3);
755: select pay_assignment_actions_s.nextval
756: into lockingactid
757: from dual;
758:
764:
765: End if;
766: else
767:
768: hr_utility.set_location('procpyr',30);
769: select pay_assignment_actions_s.nextval
770: into lockingactid
771: from dual;
772:
797: l_business_group_id,
798: l_start_date,
799: l_effective_date);
800: loop
801: hr_utility.set_location('procpyr',2);
802:
803: fetch c_bal_ini into lockedactid,assignid,greid;
804: if c_bal_ini%found then
805: num := num + 1;
821: ass_flag := hr_assignment_set.assignment_in_set(ass_set_id,assignid);
822:
823: If ass_flag = 'Y' then
824:
825: hr_utility.set_location('procpyr',3);
826: select pay_assignment_actions_s.nextval
827: into lockingactid
828: from dual;
829:
834: hr_nonrun_asact.insint(lockingactid,lockedactid);
835:
836: end if;
837: else
838: hr_utility.set_location('procpyr',3);
839: select pay_assignment_actions_s.nextval
840: into lockingactid
841: from dual;
842:
866: l_business_group_id,
867: l_start_date,
868: l_effective_date);
869: loop
870: hr_utility.set_location('procpyr',2);
871:
872: fetch c_bal_adj_ini into lockedactid,assignid,greid;
873: if c_bal_adj_ini%found then
874: num := num + 1;
890: ass_flag := hr_assignment_set.assignment_in_set(ass_set_id,assignid);
891:
892: If ass_flag = 'Y' then
893:
894: hr_utility.set_location('procpyr',3);
895: select pay_assignment_actions_s.nextval
896: into lockingactid
897: from dual;
898:
903: hr_nonrun_asact.insint(lockingactid,lockedactid);
904:
905: end if;
906: else
907: hr_utility.set_location('procpyr',3);
908: select pay_assignment_actions_s.nextval
909: into lockingactid
910: from dual;
911:
936: l_start_date,
937: l_effective_date);
938:
939: loop
940: hr_utility.set_location('procpyr',2);
941:
942: fetch c_run into lockedactid,assignid,greid;
943: if c_run%found then
944: num := num + 1;
959: ass_flag := hr_assignment_set.assignment_in_set(ass_set_id,assignid);
960:
961: If ass_flag = 'Y' then
962:
963: hr_utility.set_location('procpyr',3);
964: select pay_assignment_actions_s.nextval
965: into lockingactid
966: from dual;
967:
972: hr_nonrun_asact.insint(lockingactid,lockedactid);
973:
974: end if;
975: else
976: hr_utility.set_location('procpyr',3);
977: select pay_assignment_actions_s.nextval
978: into lockingactid
979: from dual;
980:
1006: l_start_date,
1007: l_effective_date);
1008:
1009: loop
1010: hr_utility.set_location('procpyr',2);
1011:
1012: fetch c_qp into lockedactid,assignid,greid;
1013: if c_qp%found then
1014: num := num + 1;
1030: ass_flag := hr_assignment_set.assignment_in_set(ass_set_id,assignid);
1031:
1032: If ass_flag = 'Y' then
1033:
1034: hr_utility.set_location('procpyr',3);
1035: select pay_assignment_actions_s.nextval
1036: into lockingactid
1037: from dual;
1038:
1044:
1045: end if;
1046: else
1047:
1048: hr_utility.set_location('procpyr',3);
1049: select pay_assignment_actions_s.nextval
1050: into lockingactid
1051: from dual;
1052:
1078: l_start_date,
1079: l_effective_date);
1080:
1081: loop
1082: hr_utility.set_location('procpyr',2);
1083:
1084: fetch c_run_qp into lockedactid,assignid,greid;
1085: if c_run_qp%found then
1086: num := num + 1;
1102: ass_flag := hr_assignment_set.assignment_in_set(ass_set_id,assignid);
1103:
1104: If ass_flag = 'Y' then
1105:
1106: hr_utility.set_location('procpyr',3);
1107: select pay_assignment_actions_s.nextval
1108: into lockingactid
1109: from dual;
1110:
1116:
1117: end if;
1118: else
1119:
1120: hr_utility.set_location('procpyr',3);
1121: select pay_assignment_actions_s.nextval
1122: into lockingactid
1123: from dual;
1124: --
1149: l_start_date,
1150: l_effective_date);
1151:
1152: loop
1153: hr_utility.set_location('procpyr',2);
1154:
1155: fetch c_rev into lockedactid,assignid,greid;
1156: if c_rev%found then
1157: num := num + 1;
1173: ass_flag := hr_assignment_set.assignment_in_set(ass_set_id,assignid);
1174:
1175: If ass_flag = 'Y' then
1176:
1177: hr_utility.set_location('procpyr',3);
1178: select pay_assignment_actions_s.nextval
1179: into lockingactid
1180: from dual;
1181:
1185: -- insert an interlock to this action.
1186: hr_nonrun_asact.insint(lockingactid,lockedactid);
1187: end if;
1188: else
1189: hr_utility.set_location('procpyr',3);
1190: select pay_assignment_actions_s.nextval
1191: into lockingactid
1192: from dual;
1193:
1217: l_start_date,
1218: l_effective_date);
1219: num := 0;
1220: loop
1221: hr_utility.set_location('procpyr',2);
1222:
1223: fetch c_all into lockedactid,assignid,greid;
1224:
1225: if c_all%found then
1244: If ass_flag = 'Y' then
1245: -- we need to insert one action for each of the
1246: -- rows that we return from the cursor (i.e. one
1247: -- for each assignment/pre-payment/reversal).
1248: hr_utility.set_location('procpyr',3);
1249: select pay_assignment_actions_s.nextval
1250: into lockingactid
1251: from dual;
1252:
1261:
1262: -- we need to insert one action for each of the
1263: -- rows that we return from the cursor (i.e. one
1264: -- for each assignment/pre-payment/reversal).
1265: hr_utility.set_location('procpyr',3);
1266: select pay_assignment_actions_s.nextval
1267: into lockingactid
1268: from dual;
1269: