[Home] [Help]
693: -- but we have to take into account assignments and
694: -- personal payment methods.
695: begin
696:
697: hr_utility.set_location('procpyr',1);
698:
699: select legislative_parameters into leg_param
700: from pay_payroll_actions
701: where payroll_action_id = pactid;
730: l_business_group_id,
731: l_start_date,
732: l_effective_date);
733: loop
734: hr_utility.set_location('procpyr',2);
735:
736: fetch c_bal_adj into lockedactid,assignid,greid;
737: if c_bal_adj%found then
738: num := num + 1;
753: ass_flag := hr_assignment_set.assignment_in_set(ass_set_id,assignid);
754:
755: If ass_flag = 'Y' then
756:
757: hr_utility.set_location('procpyr',3);
758: select pay_assignment_actions_s.nextval
759: into lockingactid
760: from dual;
761:
767:
768: End if;
769: else
770:
771: hr_utility.set_location('procpyr',30);
772: select pay_assignment_actions_s.nextval
773: into lockingactid
774: from dual;
775:
800: l_business_group_id,
801: l_start_date,
802: l_effective_date);
803: loop
804: hr_utility.set_location('procpyr',2);
805:
806: fetch c_bal_ini into lockedactid,assignid,greid;
807: if c_bal_ini%found then
808: num := num + 1;
824: ass_flag := hr_assignment_set.assignment_in_set(ass_set_id,assignid);
825:
826: If ass_flag = 'Y' then
827:
828: hr_utility.set_location('procpyr',3);
829: select pay_assignment_actions_s.nextval
830: into lockingactid
831: from dual;
832:
837: hr_nonrun_asact.insint(lockingactid,lockedactid);
838:
839: end if;
840: else
841: hr_utility.set_location('procpyr',3);
842: select pay_assignment_actions_s.nextval
843: into lockingactid
844: from dual;
845:
869: l_business_group_id,
870: l_start_date,
871: l_effective_date);
872: loop
873: hr_utility.set_location('procpyr',2);
874:
875: fetch c_bal_adj_ini into lockedactid,assignid,greid;
876: if c_bal_adj_ini%found then
877: num := num + 1;
893: ass_flag := hr_assignment_set.assignment_in_set(ass_set_id,assignid);
894:
895: If ass_flag = 'Y' then
896:
897: hr_utility.set_location('procpyr',3);
898: select pay_assignment_actions_s.nextval
899: into lockingactid
900: from dual;
901:
906: hr_nonrun_asact.insint(lockingactid,lockedactid);
907:
908: end if;
909: else
910: hr_utility.set_location('procpyr',3);
911: select pay_assignment_actions_s.nextval
912: into lockingactid
913: from dual;
914:
939: l_start_date,
940: l_effective_date);
941:
942: loop
943: hr_utility.set_location('procpyr',2);
944:
945: fetch c_run into lockedactid,assignid,greid;
946: if c_run%found then
947: num := num + 1;
962: ass_flag := hr_assignment_set.assignment_in_set(ass_set_id,assignid);
963:
964: If ass_flag = 'Y' then
965:
966: hr_utility.set_location('procpyr',3);
967: select pay_assignment_actions_s.nextval
968: into lockingactid
969: from dual;
970:
975: hr_nonrun_asact.insint(lockingactid,lockedactid);
976:
977: end if;
978: else
979: hr_utility.set_location('procpyr',3);
980: select pay_assignment_actions_s.nextval
981: into lockingactid
982: from dual;
983:
1009: l_start_date,
1010: l_effective_date);
1011:
1012: loop
1013: hr_utility.set_location('procpyr',2);
1014:
1015: fetch c_qp into lockedactid,assignid,greid;
1016: if c_qp%found then
1017: num := num + 1;
1033: ass_flag := hr_assignment_set.assignment_in_set(ass_set_id,assignid);
1034:
1035: If ass_flag = 'Y' then
1036:
1037: hr_utility.set_location('procpyr',3);
1038: select pay_assignment_actions_s.nextval
1039: into lockingactid
1040: from dual;
1041:
1047:
1048: end if;
1049: else
1050:
1051: hr_utility.set_location('procpyr',3);
1052: select pay_assignment_actions_s.nextval
1053: into lockingactid
1054: from dual;
1055:
1081: l_start_date,
1082: l_effective_date);
1083:
1084: loop
1085: hr_utility.set_location('procpyr',2);
1086:
1087: fetch c_run_qp into lockedactid,assignid,greid;
1088: if c_run_qp%found then
1089: num := num + 1;
1105: ass_flag := hr_assignment_set.assignment_in_set(ass_set_id,assignid);
1106:
1107: If ass_flag = 'Y' then
1108:
1109: hr_utility.set_location('procpyr',3);
1110: select pay_assignment_actions_s.nextval
1111: into lockingactid
1112: from dual;
1113:
1119:
1120: end if;
1121: else
1122:
1123: hr_utility.set_location('procpyr',3);
1124: select pay_assignment_actions_s.nextval
1125: into lockingactid
1126: from dual;
1127: --
1152: l_start_date,
1153: l_effective_date);
1154:
1155: loop
1156: hr_utility.set_location('procpyr',2);
1157:
1158: fetch c_rev into lockedactid,assignid,greid;
1159: if c_rev%found then
1160: num := num + 1;
1176: ass_flag := hr_assignment_set.assignment_in_set(ass_set_id,assignid);
1177:
1178: If ass_flag = 'Y' then
1179:
1180: hr_utility.set_location('procpyr',3);
1181: select pay_assignment_actions_s.nextval
1182: into lockingactid
1183: from dual;
1184:
1188: -- insert an interlock to this action.
1189: hr_nonrun_asact.insint(lockingactid,lockedactid);
1190: end if;
1191: else
1192: hr_utility.set_location('procpyr',3);
1193: select pay_assignment_actions_s.nextval
1194: into lockingactid
1195: from dual;
1196:
1220: l_start_date,
1221: l_effective_date);
1222: num := 0;
1223: loop
1224: hr_utility.set_location('procpyr',2);
1225:
1226: fetch c_all into lockedactid,assignid,greid;
1227:
1228: if c_all%found then
1247: If ass_flag = 'Y' then
1248: -- we need to insert one action for each of the
1249: -- rows that we return from the cursor (i.e. one
1250: -- for each assignment/pre-payment/reversal).
1251: hr_utility.set_location('procpyr',3);
1252: select pay_assignment_actions_s.nextval
1253: into lockingactid
1254: from dual;
1255:
1264:
1265: -- we need to insert one action for each of the
1266: -- rows that we return from the cursor (i.e. one
1267: -- for each assignment/pre-payment/reversal).
1268: hr_utility.set_location('procpyr',3);
1269: select pay_assignment_actions_s.nextval
1270: into lockingactid
1271: from dual;
1272: