[Home] [Help]
197: return l_display_value;
198: --
199: exception
200: when others then
201: hr_utility.set_message ('PAY','PAY_6306_INPUT_VALUE_FORMAT');
202: hr_utility.set_message_token ('UNIT_OF_MEASURE', hr_general.decode_lookup ('UNITS', p_uom_value ));
203: hr_utility.raise_error;
204: --
205: end convert_internal_to_display;
198: --
199: exception
200: when others then
201: hr_utility.set_message ('PAY','PAY_6306_INPUT_VALUE_FORMAT');
202: hr_utility.set_message_token ('UNIT_OF_MEASURE', hr_general.decode_lookup ('UNITS', p_uom_value ));
203: hr_utility.raise_error;
204: --
205: end convert_internal_to_display;
206: --
199: exception
200: when others then
201: hr_utility.set_message ('PAY','PAY_6306_INPUT_VALUE_FORMAT');
202: hr_utility.set_message_token ('UNIT_OF_MEASURE', hr_general.decode_lookup ('UNITS', p_uom_value ));
203: hr_utility.raise_error;
204: --
205: end convert_internal_to_display;
206: --
207: --
275: --
276: -- Check whether the upgrade process is in progress.
277: --
278: if l_bee_iv_upgrade = 'E' then
279: hr_utility.set_message(800, 'HR_449106_BEE_UPGRADING');
280: hr_utility.raise_error;
281: end if;
282: --
283: -- Need a row in fnd_sessions if it does not exist (bug 372339).
276: -- Check whether the upgrade process is in progress.
277: --
278: if l_bee_iv_upgrade = 'E' then
279: hr_utility.set_message(800, 'HR_449106_BEE_UPGRADING');
280: hr_utility.raise_error;
281: end if;
282: --
283: -- Need a row in fnd_sessions if it does not exist (bug 372339).
284: -- It may exist because next run_process may use same concurrent manager session
281: end if;
282: --
283: -- Need a row in fnd_sessions if it does not exist (bug 372339).
284: -- It may exist because next run_process may use same concurrent manager session
285: -- (this will not be neccessary when hr_utility.fnd_insert will do the check for
286: -- existing row before its insert).
287: --
288: begin
289: select null
294: when no_data_found then
295: l_row_not_exists := TRUE;
296: end;
297: if l_row_not_exists then
298: hr_utility.fnd_insert(sysdate);
299: end if;
300: --
301: --
302: -- Depending on the mode of operation requested the particular batch
301: --
302: -- Depending on the mode of operation requested the particular batch
303: -- will be processed accordingly.
304: --
305: hr_utility.set_location('payplnk.run_process',5);
306: --
307: if (p_batch_operation = 'VALIDATE' OR p_batch_operation = 'TRANSFER') then
308: --
309: -- validate the batch.
307: if (p_batch_operation = 'VALIDATE' OR p_batch_operation = 'TRANSFER') then
308: --
309: -- validate the batch.
310: --
311: hr_utility.set_location('payplnk.run_process',6);
312: --
313: g_header_processing := TRUE;
314: --
315: payplnk.validate
324: g_header_processing := FALSE;
325: --
326: payplnk.g_payplnk_call := TRUE;
327: --
328: hr_utility.set_location('payplnk.run_process',7);
329: --
330: -- elsif p_batch_operation = 'TRANSFER' then
331: -- --
332: -- -- transfer the batch. NB The transfer procedure calls the
333: -- -- validate procedure to ensure the batch is valid before
334: -- -- tansferring the element entries into the appropriate
335: -- -- base tables.
336: -- --
337: -- hr_utility.set_location('payplnk.run_process',8);
338: -- payplnk.transfer
339: -- (
340: -- p_business_group_id,
341: -- p_batch_operation,
340: -- p_business_group_id,
341: -- p_batch_operation,
342: -- p_batch_id
343: -- );
344: -- hr_utility.set_location('payplnk.run_process',9);
345: --
346: elsif p_batch_operation = 'PURGE' then
347: --
348: -- purge the batch. All records associated with the batch i.e.
348: -- purge the batch. All records associated with the batch i.e.
349: -- batch messages, controls, lines and header will be deleted
350: -- from the temporary batch tables.
351: --
352: hr_utility.set_location('payplnk.run_process',10);
353: payplnk.purge
354: (
355: p_batch_id
356: );
353: payplnk.purge
354: (
355: p_batch_id
356: );
357: hr_utility.set_location('payplnk.run_process',11);
358: --
359: end if;
360: --
361: hr_utility.set_location('payplnk.run_process',15);
357: hr_utility.set_location('payplnk.run_process',11);
358: --
359: end if;
360: --
361: hr_utility.set_location('payplnk.run_process',15);
362: --
363: -- commit;
364: --
365: errbuf := null;
372: errbuf := sqlerrm; /* return the unhandled error message. */
373: retcode := 2; /* process failed, as an unhandled error
374: occurred. */
375: if p_batch_operation <> 'PURGE' then
376: hr_utility.set_message(800, 'HR_289718_BEE_HEADER_ERROR');
377: end if;
378: hr_utility.raise_error;
379: --
380: end run_process;
374: occurred. */
375: if p_batch_operation <> 'PURGE' then
376: hr_utility.set_message(800, 'HR_289718_BEE_HEADER_ERROR');
377: end if;
378: hr_utility.raise_error;
379: --
380: end run_process;
381: --
382: ------------------------------------------------------------------------
421: not_upper boolean := false;
422: --
423: begin
424: --
425: hr_utility.set_location('payplnk.validate',1);
426: --
427: SAVEPOINT VL;
428: --
429: hr_utility.set_location('payplnk.validate',5);
425: hr_utility.set_location('payplnk.validate',1);
426: --
427: SAVEPOINT VL;
428: --
429: hr_utility.set_location('payplnk.validate',5);
430: --
431: select legislation_code
432: into l_legislation_code
433: from per_business_groups_perf
537: close csr_all_controls;
538: end if;
539: end if;
540: --
541: hr_utility.set_location('payplnk.validate',10);
542: --
543: -- Any updates made to the batch header and control statuses, and
544: -- and messages resulting from the header and control checks will be
545: -- committed.
571: -- raise error_occurred;
572: end if;
573: end if;
574: --
575: hr_utility.set_location('payplnk.validate',15);
576: -- The following is comment out due to multithreading.
577: -- --
578: -- -- Successfully validated line(s) may as a result have created
579: -- -- element entrie(s) in the base tables, therefore the entries must be
596: -- else
597: -- commit;
598: -- end if;
599: -- --
600: -- hr_utility.set_location('payplnk.validate',20);
601: -- --
602: -- -- Any messages accumulated during batch lines validation are now
603: -- -- inserted into the pay_message_lines table.
604: -- --
627: -- when no_data_found then
628: -- null;
629: -- end;
630: -- --
631: -- hr_utility.set_location('payplnk.validate',25);
632: -- --
633: -- -- The status of each batch line is set according to the outcome
634: -- -- of the validation carried out for the particular line.
635: -- --
655: -- when no_data_found then
656: -- null;
657: -- end;
658: -- --
659: -- hr_utility.set_location('payplnk.validate',30);
660: -- --
661: -- if l_line_match = false then
662: -- --
663: -- update pay_batch_lines bal
668: -- end if;
669: -- end loop;
670: -- --
671: -- End of the code blocked for multithreading.
672: hr_utility.set_location('payplnk.validate',35);
673: --
674: for g_line_record in csr_all_lines(p_batch_id) loop
675: --
676: if g_line_record.effective_date is null then
673: --
674: for g_line_record in csr_all_lines(p_batch_id) loop
675: --
676: if g_line_record.effective_date is null then
677: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
678: hr_utility.set_message_token('COLUMN_NAME','EFFECTIVE DATE');
679: l_error_text := substrb(hr_utility.get_message, 1, 240);
680: --
681: insert into pay_message_lines
674: for g_line_record in csr_all_lines(p_batch_id) loop
675: --
676: if g_line_record.effective_date is null then
677: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
678: hr_utility.set_message_token('COLUMN_NAME','EFFECTIVE DATE');
679: l_error_text := substrb(hr_utility.get_message, 1, 240);
680: --
681: insert into pay_message_lines
682: (LINE_SEQUENCE,
675: --
676: if g_line_record.effective_date is null then
677: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
678: hr_utility.set_message_token('COLUMN_NAME','EFFECTIVE DATE');
679: l_error_text := substrb(hr_utility.get_message, 1, 240);
680: --
681: insert into pay_message_lines
682: (LINE_SEQUENCE,
683: PAYROLL_ID,
724: not_upper := true;
725: --
726: when too_many_rows then
727: --
728: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
729: hr_utility.set_message_token('COLUMN_NAME','ASSIGNMENT ID');
730: l_error_text := substrb(hr_utility.get_message, 1, 240);
731: --
732: insert into pay_message_lines
725: --
726: when too_many_rows then
727: --
728: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
729: hr_utility.set_message_token('COLUMN_NAME','ASSIGNMENT ID');
730: l_error_text := substrb(hr_utility.get_message, 1, 240);
731: --
732: insert into pay_message_lines
733: (LINE_SEQUENCE,
726: when too_many_rows then
727: --
728: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
729: hr_utility.set_message_token('COLUMN_NAME','ASSIGNMENT ID');
730: l_error_text := substrb(hr_utility.get_message, 1, 240);
731: --
732: insert into pay_message_lines
733: (LINE_SEQUENCE,
734: PAYROLL_ID,
770: end if;
771: exception
772: when no_data_found then
773: --
774: hr_utility.set_message(801,'HR_7466_PLK_NOT_ELGBLE_ASS_NUM');
775: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
776: g_line_record.assignment_number);
777: l_error_text := substrb(hr_utility.get_message, 1, 240);
778: --
771: exception
772: when no_data_found then
773: --
774: hr_utility.set_message(801,'HR_7466_PLK_NOT_ELGBLE_ASS_NUM');
775: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
776: g_line_record.assignment_number);
777: l_error_text := substrb(hr_utility.get_message, 1, 240);
778: --
779: insert into pay_message_lines
773: --
774: hr_utility.set_message(801,'HR_7466_PLK_NOT_ELGBLE_ASS_NUM');
775: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
776: g_line_record.assignment_number);
777: l_error_text := substrb(hr_utility.get_message, 1, 240);
778: --
779: insert into pay_message_lines
780: (LINE_SEQUENCE,
781: PAYROLL_ID,
797: --
798: --
799: when too_many_rows then
800: --
801: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
802: hr_utility.set_message_token('COLUMN_NAME','ASSIGNMENT ID');
803: l_error_text := substrb(hr_utility.get_message, 1, 240);
804: --
805: insert into pay_message_lines
798: --
799: when too_many_rows then
800: --
801: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
802: hr_utility.set_message_token('COLUMN_NAME','ASSIGNMENT ID');
803: l_error_text := substrb(hr_utility.get_message, 1, 240);
804: --
805: insert into pay_message_lines
806: (LINE_SEQUENCE,
799: when too_many_rows then
800: --
801: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
802: hr_utility.set_message_token('COLUMN_NAME','ASSIGNMENT ID');
803: l_error_text := substrb(hr_utility.get_message, 1, 240);
804: --
805: insert into pay_message_lines
806: (LINE_SEQUENCE,
807: PAYROLL_ID,
822: where current of csr_all_lines;
823: --
824: end;
825: --
826: hr_utility.set_location('payplnk.validate',40);
827: --
828: elsif (g_line_record.assignment_id is null) and
829: (g_line_record.assignment_number is null) then
830: --
827: --
828: elsif (g_line_record.assignment_id is null) and
829: (g_line_record.assignment_number is null) then
830: --
831: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
832: hr_utility.set_message_token('COL1','ASSIGNMENT NUMBER');
833: hr_utility.set_message_token('COL2','ASSIGNMENT ID');
834: l_error_text := substrb(hr_utility.get_message, 1, 240);
835: --
828: elsif (g_line_record.assignment_id is null) and
829: (g_line_record.assignment_number is null) then
830: --
831: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
832: hr_utility.set_message_token('COL1','ASSIGNMENT NUMBER');
833: hr_utility.set_message_token('COL2','ASSIGNMENT ID');
834: l_error_text := substrb(hr_utility.get_message, 1, 240);
835: --
836: insert into pay_message_lines
829: (g_line_record.assignment_number is null) then
830: --
831: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
832: hr_utility.set_message_token('COL1','ASSIGNMENT NUMBER');
833: hr_utility.set_message_token('COL2','ASSIGNMENT ID');
834: l_error_text := substrb(hr_utility.get_message, 1, 240);
835: --
836: insert into pay_message_lines
837: (LINE_SEQUENCE,
830: --
831: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
832: hr_utility.set_message_token('COL1','ASSIGNMENT NUMBER');
833: hr_utility.set_message_token('COL2','ASSIGNMENT ID');
834: l_error_text := substrb(hr_utility.get_message, 1, 240);
835: --
836: insert into pay_message_lines
837: (LINE_SEQUENCE,
838: PAYROLL_ID,
852: set batch_line_status = 'E'
853: where current of csr_all_lines;
854: --
855: --
856: hr_utility.set_location('payplnk.validate',45);
857: --
858: elsif (g_line_record.assignment_id is not null) and
859: (g_line_record.assignment_number is not null) then
860: begin
891: end if;
892: exception
893: when no_data_found then
894: --
895: hr_utility.set_message(801,'HR_7479_PLK_INCONSISTENT_ASS');
896: hr_utility.set_message_token('ASSIGNMENT_ID',
897: g_line_record.assignment_id);
898: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
899: g_line_record.assignment_number);
892: exception
893: when no_data_found then
894: --
895: hr_utility.set_message(801,'HR_7479_PLK_INCONSISTENT_ASS');
896: hr_utility.set_message_token('ASSIGNMENT_ID',
897: g_line_record.assignment_id);
898: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
899: g_line_record.assignment_number);
900: l_error_text := substrb(hr_utility.get_message, 1, 240);
894: --
895: hr_utility.set_message(801,'HR_7479_PLK_INCONSISTENT_ASS');
896: hr_utility.set_message_token('ASSIGNMENT_ID',
897: g_line_record.assignment_id);
898: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
899: g_line_record.assignment_number);
900: l_error_text := substrb(hr_utility.get_message, 1, 240);
901: --
902: insert into pay_message_lines
896: hr_utility.set_message_token('ASSIGNMENT_ID',
897: g_line_record.assignment_id);
898: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
899: g_line_record.assignment_number);
900: l_error_text := substrb(hr_utility.get_message, 1, 240);
901: --
902: insert into pay_message_lines
903: (LINE_SEQUENCE,
904: PAYROLL_ID,
919: where current of csr_all_lines;
920: --
921: end;
922: --
923: hr_utility.set_location('payplnk.validate',50);
924: --
925: -- If only an assignment id has been entered, ensure that it is valid.
926: --
927: else
936: --
937: exception
938: when no_data_found then
939: --
940: hr_utility.set_message(801,'HR_7467_PLK_NOT_ELGBLE_ASS_ID');
941: hr_utility.set_message_token('ASSIGNMENT_ID',
942: g_line_record.assignment_id);
943: l_error_text := substrb(hr_utility.get_message, 1, 240);
944: --
937: exception
938: when no_data_found then
939: --
940: hr_utility.set_message(801,'HR_7467_PLK_NOT_ELGBLE_ASS_ID');
941: hr_utility.set_message_token('ASSIGNMENT_ID',
942: g_line_record.assignment_id);
943: l_error_text := substrb(hr_utility.get_message, 1, 240);
944: --
945: insert into pay_message_lines
939: --
940: hr_utility.set_message(801,'HR_7467_PLK_NOT_ELGBLE_ASS_ID');
941: hr_utility.set_message_token('ASSIGNMENT_ID',
942: g_line_record.assignment_id);
943: l_error_text := substrb(hr_utility.get_message, 1, 240);
944: --
945: insert into pay_message_lines
946: (LINE_SEQUENCE,
947: PAYROLL_ID,
964: end;
965: --
966: end if;
967: --
968: hr_utility.set_location('payplnk.validate',55);
969: --
970: end if;
971: --
972: end loop;
970: end if;
971: --
972: end loop;
973: --
974: hr_utility.set_location('payplnk.validate',60);
975: --
976: -- COMMIT;
977: --
978: --
975: --
976: -- COMMIT;
977: --
978: --
979: hr_utility.set_location('payplnk.validate',85);
980: --
981: exception
982: when error_occurred then
983: rollback to VL;
1036: where pbh.batch_id = p_batch_id;
1037: --
1038: begin
1039: --
1040: hr_utility.set_location('payplnk.set_status',5);
1041: --
1042: SAVEPOINT SS;
1043: --
1044: g_line_error := false;
1082: close csr_error_header;
1083: --
1084:
1085: if (g_header_error = true) then
1086: hr_utility.trace('payplnk.set_status g_header_error = TRUE');
1087: else
1088: hr_utility.trace('payplnk.set_status g_header_error = FALSE');
1089: end if;
1090:
1084:
1085: if (g_header_error = true) then
1086: hr_utility.trace('payplnk.set_status g_header_error = TRUE');
1087: else
1088: hr_utility.trace('payplnk.set_status g_header_error = FALSE');
1089: end if;
1090:
1091: if (g_control_error = true) then
1092: hr_utility.trace('payplnk.set_status g_control_error = TRUE');
1088: hr_utility.trace('payplnk.set_status g_header_error = FALSE');
1089: end if;
1090:
1091: if (g_control_error = true) then
1092: hr_utility.trace('payplnk.set_status g_control_error = TRUE');
1093: else
1094: hr_utility.trace('payplnk.set_status g_control_error = FALSE');
1095: end if;
1096:
1090:
1091: if (g_control_error = true) then
1092: hr_utility.trace('payplnk.set_status g_control_error = TRUE');
1093: else
1094: hr_utility.trace('payplnk.set_status g_control_error = FALSE');
1095: end if;
1096:
1097: if (g_line_error = true) then
1098: hr_utility.trace('payplnk.set_status g_line_error = TRUE');
1094: hr_utility.trace('payplnk.set_status g_control_error = FALSE');
1095: end if;
1096:
1097: if (g_line_error = true) then
1098: hr_utility.trace('payplnk.set_status g_line_error = TRUE');
1099: else
1100: hr_utility.trace('payplnk.set_status g_line_error = FALSE');
1101: end if;
1102: --
1096:
1097: if (g_line_error = true) then
1098: hr_utility.trace('payplnk.set_status g_line_error = TRUE');
1099: else
1100: hr_utility.trace('payplnk.set_status g_line_error = FALSE');
1101: end if;
1102: --
1103: if (p_batch_operation = 'VALIDATE' and g_header_error = false) then
1104: --
1113: -- Once the element entries have been committed check if the
1114: -- PURGE_AFTER_TRANSFER flag is 'Y'. If so delete all records associated
1115: -- with the batch from the temporary batch tables.
1116: --
1117: hr_utility.set_location('payplnk.set_status',11);
1118: --
1119: if (g_line_error = false) and
1120: upper(l_purge_after_transfer) = 'Y' then
1121: hr_utility.set_location('payplnk.set_status',30);
1117: hr_utility.set_location('payplnk.set_status',11);
1118: --
1119: if (g_line_error = false) and
1120: upper(l_purge_after_transfer) = 'Y' then
1121: hr_utility.set_location('payplnk.set_status',30);
1122: purge (
1123: p_batch_id
1124: );
1125: --
1124: );
1125: --
1126: else
1127: --
1128: hr_utility.set_location('payplnk.set_status',15);
1129: --
1130: if g_control_error = false then
1131: for g_control_record in csr_all_controls(p_batch_id) loop
1132: update pay_batch_control_totals
1135: --
1136: end loop;
1137: end if;
1138: --
1139: hr_utility.set_location('payplnk.set_status',20);
1140: --
1141: update pay_batch_headers
1142: set batch_status = l_status
1143: where batch_id = p_batch_id;
1141: update pay_batch_headers
1142: set batch_status = l_status
1143: where batch_id = p_batch_id;
1144: --
1145: hr_utility.set_location('payplnk.set_status',25);
1146: --
1147: end if;
1148: --
1149: hr_utility.set_location('payplnk.set_status',30);
1145: hr_utility.set_location('payplnk.set_status',25);
1146: --
1147: end if;
1148: --
1149: hr_utility.set_location('payplnk.set_status',30);
1150: end if;
1151: --
1152: end if;
1153: --
1150: end if;
1151: --
1152: end if;
1153: --
1154: hr_utility.set_location('payplnk.set_status',35);
1155: --
1156: exception
1157: when others then
1158: rollback to SS;
1182: --
1183: --
1184: begin
1185: --
1186: hr_utility.set_location('payplnk.set_line_status',5);
1187: --
1188: -- Set the global parameter to disable the triggers.
1189: payplnk.g_payplnk_call := true;
1190: --
1198: else
1199: l_batch_line_status := 'T';
1200: end if;
1201: --
1202: hr_utility.set_location('payplnk.set_line_status',10);
1203: --
1204: -- Any messages accumulated during batch lines validation are now
1205: -- inserted into the pay_message_lines table.
1206: --
1229: when no_data_found then
1230: null;
1231: end;
1232: --
1233: hr_utility.set_location('payplnk.set_line_status',20);
1234: --
1235: -- The status of each batch line is set according to the outcome
1236: -- of the validation carried out for the particular line.
1237: --
1264: when no_data_found then
1265: null;
1266: end;
1267: --
1268: hr_utility.set_location('payplnk.set_line_status',30);
1269: --
1270: if l_line_match = false then
1271: --
1272: update pay_batch_lines bal
1287: -- Set the global parameter to enable the triggers.
1288: payplnk.g_payplnk_call := false;
1289: --
1290: --
1291: hr_utility.set_location('payplnk.set_line_status',35);
1292: --
1293: exception
1294: when others then
1295: rollback to SLS;
1317: --
1318: --
1319: begin
1320: --
1321: hr_utility.set_location('payplnk.set_header_status',5);
1322: --
1323: -- Set the global parameter to disable the triggers.
1324: payplnk.g_payplnk_call := true;
1325: --
1350: end if;
1351: end if;
1352: --
1353: --
1354: hr_utility.set_location('payplnk.set_header_status',10);
1355: --
1356: -- Only update the status of the cotnrol totals if the batc his not failed.
1357: if g_head_err_stat <> 'F' or g_head_err_stat is null then
1358: --
1384: when no_data_found then
1385: null;
1386: end;
1387: --
1388: hr_utility.set_location('payplnk.set_header_status',20);
1389: --
1390: -- The status of each batch total is set according to the outcome
1391: -- of the validation carried out for the particular total.
1392: --
1411: when no_data_found then
1412: null;
1413: end;
1414: --
1415: hr_utility.set_location('payplnk.set_header_status',30);
1416: --
1417: if l_line_match = false then
1418: --
1419: update pay_batch_control_totals ctl
1462: -- Set the global parameter to enable the triggers.
1463: payplnk.g_payplnk_call := false;
1464: --
1465: --
1466: hr_utility.set_location('payplnk.set_header_status',35);
1467: --
1468: exception
1469: when others then
1470: rollback to SHS;
1497: --
1498: begin
1499: --
1500: SAVEPOINT PU;
1501: hr_utility.set_location('payplnk.purge',5);
1502: --
1503: open csr_ovn;
1504: fetch csr_ovn into l_ovn;
1505: close csr_ovn;
1519: -- Set the global parameter to enable the triggers.
1520: payplnk.g_payplnk_call := false;
1521: --
1522: --
1523: hr_utility.set_location('payplnk.purge',8);
1524: --
1525: --
1526: /*
1527: purge_messages(p_batch_id,'Y');
1525: --
1526: /*
1527: purge_messages(p_batch_id,'Y');
1528: --
1529: hr_utility.set_location('payplnk.purge',10);
1530: --
1531: delete from pay_batch_control_totals
1532: where batch_id = p_batch_id;
1533: --
1530: --
1531: delete from pay_batch_control_totals
1532: where batch_id = p_batch_id;
1533: --
1534: hr_utility.set_location('payplnk.purge',15);
1535: --
1536: delete from pay_batch_lines
1537: where batch_id = p_batch_id;
1538: --
1535: --
1536: delete from pay_batch_lines
1537: where batch_id = p_batch_id;
1538: --
1539: hr_utility.set_location('payplnk.purge',20);
1540: --
1541: delete from pay_batch_headers
1542: where batch_id = p_batch_id;
1543: --
1540: --
1541: delete from pay_batch_headers
1542: where batch_id = p_batch_id;
1543: --
1544: hr_utility.set_location('payplnk.purge',25);
1545: --
1546: */
1547: --
1548: exception
1595: pragma exception_init(nopackbody,-6508);
1596: --
1597: begin
1598: --
1599: hr_utility.set_location('payplnk.validate_header',5);
1600: --
1601: select legislation_code
1602: into l_legislation_code
1603: from per_business_groups_perf
1616: SAVEPOINT BH;
1617: --
1618: -- commit;
1619: --
1620: hr_utility.set_location('payplnk.validate_header',10);
1621: --
1622: -- Check if transferred record(s) exist in the batch, if so, terminate
1623: -- validation with an appropriate message.
1624: --
1641: when no_data_found then
1642: null;
1643: end;
1644: --
1645: hr_utility.set_location('payplnk.validate_header',15);
1646: --
1647: if l_transfer_recs = 'x' then
1648: --
1649: -- Atleast one transferred record has been detected in the batch,
1650: -- therefore the batch will not be validated. An appropriate error
1651: -- message will be inserted into the PAY_MESSAGE_LINES table.
1652: --
1653: --
1654: hr_utility.set_message(801,'HR_7472_PLK_TRANSFERRED_RECS');
1655: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1656: l_error_text := substrb(hr_utility.get_message, 1, 240);
1657: --
1658: -- insert into pay_message_lines
1651: -- message will be inserted into the PAY_MESSAGE_LINES table.
1652: --
1653: --
1654: hr_utility.set_message(801,'HR_7472_PLK_TRANSFERRED_RECS');
1655: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1656: l_error_text := substrb(hr_utility.get_message, 1, 240);
1657: --
1658: -- insert into pay_message_lines
1659: -- (LINE_SEQUENCE,
1652: --
1653: --
1654: hr_utility.set_message(801,'HR_7472_PLK_TRANSFERRED_RECS');
1655: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1656: l_error_text := substrb(hr_utility.get_message, 1, 240);
1657: --
1658: -- insert into pay_message_lines
1659: -- (LINE_SEQUENCE,
1660: -- PAYROLL_ID,
1675: --
1676: raise core_error;
1677: end if;
1678: --
1679: hr_utility.set_location('payplnk.validate_header',20);
1680: --
1681: -- The core validation checks will be carried out first.
1682: -- Check the batch status is not already PROCESSING.
1683: --
1685: select batch_status into l_process_recs
1686: from pay_batch_headers
1687: where batch_id = p_batch_id
1688: for update;
1689: hr_utility.trace('batch_status ='||l_process_recs);
1690: hr_utility.trace('processing mode = '||g_process_mode);
1691: --
1692: -- IF batch is in processing state, lock out others processing.
1693: -- if(g_process_mode <> 'VALIDATE') then
1686: from pay_batch_headers
1687: where batch_id = p_batch_id
1688: for update;
1689: hr_utility.trace('batch_status ='||l_process_recs);
1690: hr_utility.trace('processing mode = '||g_process_mode);
1691: --
1692: -- IF batch is in processing state, lock out others processing.
1693: -- if(g_process_mode <> 'VALIDATE') then
1694: if(l_process_recs = 'P') then
1692: -- IF batch is in processing state, lock out others processing.
1693: -- if(g_process_mode <> 'VALIDATE') then
1694: if(l_process_recs = 'P') then
1695: rollback to A; -- release lock
1696: hr_utility.trace('batch is in processing state');
1697: hr_utility.set_message(801,'HR_MIX_289133_PROCESS_STATE');
1698: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1699: l_error_text := substrb(hr_utility.get_message, 1, 240);
1700: --
1693: -- if(g_process_mode <> 'VALIDATE') then
1694: if(l_process_recs = 'P') then
1695: rollback to A; -- release lock
1696: hr_utility.trace('batch is in processing state');
1697: hr_utility.set_message(801,'HR_MIX_289133_PROCESS_STATE');
1698: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1699: l_error_text := substrb(hr_utility.get_message, 1, 240);
1700: --
1701: -- insert into pay_message_lines
1694: if(l_process_recs = 'P') then
1695: rollback to A; -- release lock
1696: hr_utility.trace('batch is in processing state');
1697: hr_utility.set_message(801,'HR_MIX_289133_PROCESS_STATE');
1698: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1699: l_error_text := substrb(hr_utility.get_message, 1, 240);
1700: --
1701: -- insert into pay_message_lines
1702: -- (LINE_SEQUENCE,
1695: rollback to A; -- release lock
1696: hr_utility.trace('batch is in processing state');
1697: hr_utility.set_message(801,'HR_MIX_289133_PROCESS_STATE');
1698: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1699: l_error_text := substrb(hr_utility.get_message, 1, 240);
1700: --
1701: -- insert into pay_message_lines
1702: -- (LINE_SEQUENCE,
1703: -- PAYROLL_ID,
1728: -- where bah.batch_id = p_batch_id;
1729: -- commit;
1730: -- end if;
1731: --
1732: hr_utility.set_location('payplnk.validate_header',25);
1733: --
1734: update pay_batch_control_totals bac
1735: set bac.control_status = 'U'
1736: where bac.batch_id = p_batch_id
1735: set bac.control_status = 'U'
1736: where bac.batch_id = p_batch_id
1737: and bac.control_status <> 'T';
1738: --
1739: hr_utility.set_location('payplnk.validate_header',30);
1740: --
1741: update pay_batch_lines bal
1742: set bal.batch_line_status = 'U'
1743: where bal.batch_id = p_batch_id
1744: and bal.batch_line_status <> 'T';
1745: --
1746: -- commit;
1747: --
1748: hr_utility.set_location('payplnk.validate_header',35);
1749: --
1750: if l_process_recs <> 'T' then
1751: --
1752: open csr_header(p_batch_id);
1773: --
1774: --
1775: -- call legislative header check hook if required
1776: --
1777: hr_utility.set_location('payplnk.validate_header',36);
1778: if p_leg_header_check = TRUE then
1779: --
1780: begin
1781: statem := 'BEGIN
1808: -- update pay_batch_headers bah
1809: -- set bah.batch_status = 'E'
1810: -- where current of csr_header;
1811: --
1812: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
1813: hr_utility.set_message_token('USER_PROCEDURE',
1814: 'the legislative batch header procedure');
1815: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1816: --
1809: -- set bah.batch_status = 'E'
1810: -- where current of csr_header;
1811: --
1812: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
1813: hr_utility.set_message_token('USER_PROCEDURE',
1814: 'the legislative batch header procedure');
1815: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1816: --
1817: hr_utility.trace(sqlerrm);
1811: --
1812: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
1813: hr_utility.set_message_token('USER_PROCEDURE',
1814: 'the legislative batch header procedure');
1815: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1816: --
1817: hr_utility.trace(sqlerrm);
1818: -- insert into pay_message_lines
1819: -- (LINE_SEQUENCE,
1813: hr_utility.set_message_token('USER_PROCEDURE',
1814: 'the legislative batch header procedure');
1815: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1816: --
1817: hr_utility.trace(sqlerrm);
1818: -- insert into pay_message_lines
1819: -- (LINE_SEQUENCE,
1820: -- PAYROLL_ID,
1821: -- MESSAGE_LEVEL,
1840: -- update pay_batch_headers bah
1841: -- set bah.batch_status = 'E'
1842: -- where current of csr_header;
1843: --
1844: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
1845: hr_utility.set_message_token('USER_PROCEDURE',
1846: 'the legislative batch header procedure');
1847: l_error_text := substrb((hr_utility.get_message||' '||l_leg_message),1,240);
1848: --
1841: -- set bah.batch_status = 'E'
1842: -- where current of csr_header;
1843: --
1844: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
1845: hr_utility.set_message_token('USER_PROCEDURE',
1846: 'the legislative batch header procedure');
1847: l_error_text := substrb((hr_utility.get_message||' '||l_leg_message),1,240);
1848: --
1849: -- insert into pay_message_lines
1843: --
1844: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
1845: hr_utility.set_message_token('USER_PROCEDURE',
1846: 'the legislative batch header procedure');
1847: l_error_text := substrb((hr_utility.get_message||' '||l_leg_message),1,240);
1848: --
1849: -- insert into pay_message_lines
1850: -- (LINE_SEQUENCE,
1851: -- PAYROLL_ID,
1873: --
1874: l_user_status := 'V';
1875: g_user_status := l_user_status;
1876: --
1877: hr_utility.set_location('payplnk.validate_header',40);
1878: --
1879: begin
1880: pay_user_check.validate_header (
1881: p_batch_id,
1881: p_batch_id,
1882: l_user_status,
1883: l_user_message);
1884: --
1885: hr_utility.set_location('payplnk.validate_header',45);
1886: --
1887: exception
1888: when nopackbody then
1889: --
1894: -- update pay_batch_headers bah
1895: -- set bah.batch_status = 'E'
1896: -- where current of csr_header;
1897: --
1898: hr_utility.set_message(801,'HR_7450_PLK_PACK_BODY_NOT_EXST');
1899: l_error_text := substrb(hr_utility.get_message, 1, 240);
1900: --
1901: -- insert into pay_message_lines
1902: -- (LINE_SEQUENCE,
1895: -- set bah.batch_status = 'E'
1896: -- where current of csr_header;
1897: --
1898: hr_utility.set_message(801,'HR_7450_PLK_PACK_BODY_NOT_EXST');
1899: l_error_text := substrb(hr_utility.get_message, 1, 240);
1900: --
1901: -- insert into pay_message_lines
1902: -- (LINE_SEQUENCE,
1903: -- PAYROLL_ID,
1924: -- update pay_batch_headers bah
1925: -- set bah.batch_status = 'E'
1926: -- where current of csr_header;
1927: --
1928: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
1929: hr_utility.set_message_token('USER_PROCEDURE',
1930: 'the user batch header procedure');
1931: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1932: --
1925: -- set bah.batch_status = 'E'
1926: -- where current of csr_header;
1927: --
1928: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
1929: hr_utility.set_message_token('USER_PROCEDURE',
1930: 'the user batch header procedure');
1931: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1932: --
1933: -- insert into pay_message_lines
1927: --
1928: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
1929: hr_utility.set_message_token('USER_PROCEDURE',
1930: 'the user batch header procedure');
1931: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1932: --
1933: -- insert into pay_message_lines
1934: -- (LINE_SEQUENCE,
1935: -- PAYROLL_ID,
1950: --
1951: raise user_error;
1952: end;
1953: --
1954: hr_utility.set_location('payplnk.validate_header',50);
1955: --
1956: -- If a status has not been returned raise an error.
1957: --
1958: if l_user_status is null then
1960: -- update pay_batch_headers bah
1961: -- set bah.batch_status = 'E'
1962: -- where current of csr_header;
1963: --
1964: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
1965: hr_utility.set_message_token('USER_PROCEDURE',
1966: 'the user batch header procedure');
1967: l_error_text := substrb(hr_utility.get_message, 1, 240);
1968: --
1961: -- set bah.batch_status = 'E'
1962: -- where current of csr_header;
1963: --
1964: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
1965: hr_utility.set_message_token('USER_PROCEDURE',
1966: 'the user batch header procedure');
1967: l_error_text := substrb(hr_utility.get_message, 1, 240);
1968: --
1969: -- insert into pay_message_lines
1963: --
1964: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
1965: hr_utility.set_message_token('USER_PROCEDURE',
1966: 'the user batch header procedure');
1967: l_error_text := substrb(hr_utility.get_message, 1, 240);
1968: --
1969: -- insert into pay_message_lines
1970: -- (LINE_SEQUENCE,
1971: -- PAYROLL_ID,
1996: --
1997: -- update pay_batch_headers bah
1998: -- set bah.batch_status = 'E'
1999: -- where current of csr_header;
2000: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
2001: hr_utility.set_message_token('USER_PROCEDURE',
2002: 'the user batch header procedure');
2003: l_error_text := substrb(hr_utility.get_message, 1, 240);
2004: --
1997: -- update pay_batch_headers bah
1998: -- set bah.batch_status = 'E'
1999: -- where current of csr_header;
2000: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
2001: hr_utility.set_message_token('USER_PROCEDURE',
2002: 'the user batch header procedure');
2003: l_error_text := substrb(hr_utility.get_message, 1, 240);
2004: --
2005: -- insert into pay_message_lines
1999: -- where current of csr_header;
2000: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
2001: hr_utility.set_message_token('USER_PROCEDURE',
2002: 'the user batch header procedure');
2003: l_error_text := substrb(hr_utility.get_message, 1, 240);
2004: --
2005: -- insert into pay_message_lines
2006: -- (LINE_SEQUENCE,
2007: -- PAYROLL_ID,
2032: -- update pay_batch_headers bah
2033: -- set bah.batch_status = 'E'
2034: -- where current of csr_header;
2035: --
2036: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
2037: hr_utility.set_message_token('USER_PROCEDURE',
2038: 'the user batch header procedure');
2039: l_error_text := substrb(hr_utility.get_message, 1, 240);
2040: --
2033: -- set bah.batch_status = 'E'
2034: -- where current of csr_header;
2035: --
2036: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
2037: hr_utility.set_message_token('USER_PROCEDURE',
2038: 'the user batch header procedure');
2039: l_error_text := substrb(hr_utility.get_message, 1, 240);
2040: --
2041: -- insert into pay_message_lines
2035: --
2036: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
2037: hr_utility.set_message_token('USER_PROCEDURE',
2038: 'the user batch header procedure');
2039: l_error_text := substrb(hr_utility.get_message, 1, 240);
2040: --
2041: -- insert into pay_message_lines
2042: -- (LINE_SEQUENCE,
2043: -- PAYROLL_ID,
2117: --
2118: close csr_header;
2119: --
2120: end if;
2121: hr_utility.set_location('payplnk.validate_header',55);
2122: --
2123: exception
2124: when column_is_null then
2125: --
2130: -- update pay_batch_headers bah
2131: -- set bah.batch_status = 'E'
2132: -- where current of csr_header;
2133: --
2134: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
2135: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2136: l_error_text := substrb(hr_utility.get_message, 1, 240);
2137: --
2138: -- insert into pay_message_lines
2131: -- set bah.batch_status = 'E'
2132: -- where current of csr_header;
2133: --
2134: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
2135: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2136: l_error_text := substrb(hr_utility.get_message, 1, 240);
2137: --
2138: -- insert into pay_message_lines
2139: -- (LINE_SEQUENCE,
2132: -- where current of csr_header;
2133: --
2134: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
2135: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2136: l_error_text := substrb(hr_utility.get_message, 1, 240);
2137: --
2138: -- insert into pay_message_lines
2139: -- (LINE_SEQUENCE,
2140: -- PAYROLL_ID,
2165: -- update pay_batch_headers bah
2166: -- set bah.batch_status = 'E'
2167: -- where current of csr_header;
2168: --
2169: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
2170: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2171: l_error_text := substrb(hr_utility.get_message, 1, 240);
2172: --
2173: -- insert into pay_message_lines
2166: -- set bah.batch_status = 'E'
2167: -- where current of csr_header;
2168: --
2169: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
2170: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2171: l_error_text := substrb(hr_utility.get_message, 1, 240);
2172: --
2173: -- insert into pay_message_lines
2174: -- (LINE_SEQUENCE,
2167: -- where current of csr_header;
2168: --
2169: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
2170: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2171: l_error_text := substrb(hr_utility.get_message, 1, 240);
2172: --
2173: -- insert into pay_message_lines
2174: -- (LINE_SEQUENCE,
2175: -- PAYROLL_ID,
2253: g_ctl_id_tbl.delete;
2254: g_ctl_stat_tbl.delete;
2255: g_ctl_mess_tbl.delete;
2256: --
2257: hr_utility.set_location('payplnk.validate_controls',5);
2258: --
2259: -- Check to see if user defined control types exist.
2260: --
2261: begin
2280: raise control_types_not_defined;
2281: --
2282: end;
2283: --
2284: hr_utility.set_location('payplnk.validate_controls',10);
2285: --
2286: -- Otherwise validate the batch control details.
2287: --
2288: for g_control_record in csr_all_controls(p_batch_id) loop
2305: hr_general.end_of_time)
2306: and hlk.enabled_flag = 'Y'
2307: and upper(g_control_record.control_type) in (hlk.lookup_code);
2308: --
2309: hr_utility.set_location('payplnk.validate_controls',15);
2310: --
2311: exception
2312: when no_data_found then
2313: raise invalid_value;
2341: from hr_lookups hlk -- control type exists so we can select meaning
2342: where hlk.lookup_type = 'CONTROL_TYPE'
2343: and hlk.lookup_code = g_control_record.control_type;
2344:
2345: hr_utility.set_message(801,'HR_34854_ERROR_IN_STD_TOTALS');
2346: hr_utility.set_message_token('NAME_OF_ENTITY_TO_SUM',l_std_message);
2347: l_error_text:=rpad(hr_utility.get_message||' '||sqlerrm,255);
2348:
2349: -- insert into pay_message_lines
2342: where hlk.lookup_type = 'CONTROL_TYPE'
2343: and hlk.lookup_code = g_control_record.control_type;
2344:
2345: hr_utility.set_message(801,'HR_34854_ERROR_IN_STD_TOTALS');
2346: hr_utility.set_message_token('NAME_OF_ENTITY_TO_SUM',l_std_message);
2347: l_error_text:=rpad(hr_utility.get_message||' '||sqlerrm,255);
2348:
2349: -- insert into pay_message_lines
2350: -- (LINE_SEQUENCE,
2343: and hlk.lookup_code = g_control_record.control_type;
2344:
2345: hr_utility.set_message(801,'HR_34854_ERROR_IN_STD_TOTALS');
2346: hr_utility.set_message_token('NAME_OF_ENTITY_TO_SUM',l_std_message);
2347: l_error_text:=rpad(hr_utility.get_message||' '||sqlerrm,255);
2348:
2349: -- insert into pay_message_lines
2350: -- (LINE_SEQUENCE,
2351: -- PAYROLL_ID,
2425: g_control_record.control_total,
2426: l_user_status,
2427: l_user_message);
2428: --
2429: hr_utility.set_location('payplnk.validate_controls',20);
2430: --
2431: exception
2432: --
2433: -- If an unhandled error occurred during the user control validation
2439: -- update pay_batch_control_totals bac
2440: -- set bac.control_status = 'E'
2441: -- where current of csr_all_controls;
2442: --
2443: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
2444: hr_utility.set_message_token('USER_PROCEDURE',
2445: 'the user batch control procedure');
2446: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
2447: --
2440: -- set bac.control_status = 'E'
2441: -- where current of csr_all_controls;
2442: --
2443: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
2444: hr_utility.set_message_token('USER_PROCEDURE',
2445: 'the user batch control procedure');
2446: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
2447: --
2448: -- insert into pay_message_lines
2442: --
2443: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
2444: hr_utility.set_message_token('USER_PROCEDURE',
2445: 'the user batch control procedure');
2446: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
2447: --
2448: -- insert into pay_message_lines
2449: -- (LINE_SEQUENCE,
2450: -- PAYROLL_ID,
2466: --
2467: raise user_control_error;
2468: end;
2469: --
2470: hr_utility.set_location('payplnk.validate_controls',25);
2471: --
2472: -- If a status has not been returned raise an error.
2473: --
2474: if l_user_status is null then
2476: -- update pay_batch_control_totals bac
2477: -- set bac.control_status = 'E'
2478: -- where current of csr_all_controls;
2479: --
2480: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
2481: hr_utility.set_message_token('USER_PROCEDURE',
2482: 'the user batch control procedure');
2483: l_error_text := substrb(hr_utility.get_message, 1, 240);
2484: --
2477: -- set bac.control_status = 'E'
2478: -- where current of csr_all_controls;
2479: --
2480: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
2481: hr_utility.set_message_token('USER_PROCEDURE',
2482: 'the user batch control procedure');
2483: l_error_text := substrb(hr_utility.get_message, 1, 240);
2484: --
2485: -- insert into pay_message_lines
2479: --
2480: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
2481: hr_utility.set_message_token('USER_PROCEDURE',
2482: 'the user batch control procedure');
2483: l_error_text := substrb(hr_utility.get_message, 1, 240);
2484: --
2485: -- insert into pay_message_lines
2486: -- (LINE_SEQUENCE,
2487: -- PAYROLL_ID,
2513: -- update pay_batch_control_totals bac
2514: -- set bac.control_status = 'E'
2515: -- where current of csr_all_controls;
2516: --
2517: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
2518: hr_utility.set_message_token('USER_PROCEDURE',
2519: 'the user batch control procedure');
2520: l_error_text := substrb(hr_utility.get_message, 1, 240);
2521: --
2514: -- set bac.control_status = 'E'
2515: -- where current of csr_all_controls;
2516: --
2517: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
2518: hr_utility.set_message_token('USER_PROCEDURE',
2519: 'the user batch control procedure');
2520: l_error_text := substrb(hr_utility.get_message, 1, 240);
2521: --
2522: -- insert into pay_message_lines
2516: --
2517: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
2518: hr_utility.set_message_token('USER_PROCEDURE',
2519: 'the user batch control procedure');
2520: l_error_text := substrb(hr_utility.get_message, 1, 240);
2521: --
2522: -- insert into pay_message_lines
2523: -- (LINE_SEQUENCE,
2524: -- PAYROLL_ID,
2550: -- update pay_batch_control_totals bac
2551: -- set bac.control_status = 'E'
2552: -- where current of csr_all_controls;
2553: --
2554: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
2555: hr_utility.set_message_token('USER_PROCEDURE',
2556: 'the user batch control procedure');
2557: l_error_text := substrb(hr_utility.get_message, 1, 240);
2558: --
2551: -- set bac.control_status = 'E'
2552: -- where current of csr_all_controls;
2553: --
2554: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
2555: hr_utility.set_message_token('USER_PROCEDURE',
2556: 'the user batch control procedure');
2557: l_error_text := substrb(hr_utility.get_message, 1, 240);
2558: --
2559: -- insert into pay_message_lines
2553: --
2554: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
2555: hr_utility.set_message_token('USER_PROCEDURE',
2556: 'the user batch control procedure');
2557: l_error_text := substrb(hr_utility.get_message, 1, 240);
2558: --
2559: -- insert into pay_message_lines
2560: -- (LINE_SEQUENCE,
2561: -- PAYROLL_ID,
2627: end if;
2628: --
2629: end if;
2630: --
2631: hr_utility.set_location('payplnk.validate_controls',30);
2632:
2633: -- end section dealing with user defined controls as opposed to standard controls
2634: end if;
2635: --
2644: -- update pay_batch_control_totals bac
2645: -- set bac.control_status = 'E'
2646: -- where current of csr_all_controls;
2647: --
2648: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
2649: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2650: l_error_text := substrb(hr_utility.get_message, 1, 240);
2651: --
2652: -- insert into pay_message_lines
2645: -- set bac.control_status = 'E'
2646: -- where current of csr_all_controls;
2647: --
2648: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
2649: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2650: l_error_text := substrb(hr_utility.get_message, 1, 240);
2651: --
2652: -- insert into pay_message_lines
2653: -- (LINE_SEQUENCE,
2646: -- where current of csr_all_controls;
2647: --
2648: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
2649: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2650: l_error_text := substrb(hr_utility.get_message, 1, 240);
2651: --
2652: -- insert into pay_message_lines
2653: -- (LINE_SEQUENCE,
2654: -- PAYROLL_ID,
2677: -- update pay_batch_control_totals bac
2678: -- set bac.control_status = 'E'
2679: -- where current of csr_all_controls;
2680: --
2681: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
2682: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2683: l_error_text := substrb(hr_utility.get_message, 1, 240);
2684: --
2685: -- insert into pay_message_lines
2678: -- set bac.control_status = 'E'
2679: -- where current of csr_all_controls;
2680: --
2681: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
2682: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2683: l_error_text := substrb(hr_utility.get_message, 1, 240);
2684: --
2685: -- insert into pay_message_lines
2686: -- (LINE_SEQUENCE,
2679: -- where current of csr_all_controls;
2680: --
2681: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
2682: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2683: l_error_text := substrb(hr_utility.get_message, 1, 240);
2684: --
2685: -- insert into pay_message_lines
2686: -- (LINE_SEQUENCE,
2687: -- PAYROLL_ID,
2707: --
2708: end;
2709: end loop;
2710: --
2711: hr_utility.set_location('payplnk.validate_controls',35);
2712: --
2713: exception
2714: --
2715: when control_types_not_defined then
2721: -- update pay_batch_control_totals bac
2722: -- set bac.control_status = 'E'
2723: -- where current of csr_all_controls;
2724: --
2725: hr_utility.set_message(801,'HR_7477_PLK_NO_CONTROL_TYPES');
2726: l_error_text := substrb(hr_utility.get_message, 1, 240);
2727: --
2728: -- insert into pay_message_lines
2729: -- (LINE_SEQUENCE,
2722: -- set bac.control_status = 'E'
2723: -- where current of csr_all_controls;
2724: --
2725: hr_utility.set_message(801,'HR_7477_PLK_NO_CONTROL_TYPES');
2726: l_error_text := substrb(hr_utility.get_message, 1, 240);
2727: --
2728: -- insert into pay_message_lines
2729: -- (LINE_SEQUENCE,
2730: -- PAYROLL_ID,
3018: l_bee_iv_upgrade varchar2(1);
3019: --
3020: begin
3021: --
3022: hr_utility.set_location('payplnk.validate_lines',5);
3023: -- Added the following call as part of the fix to the bug#7138224.
3024: fnd_profile.put('PER_ASSIGNMENT_ID',p_asg_id);
3025: --
3026: --Only validate batch lines if there are no eerrors in batch header or control totals.
3094: --
3095: -- Check whether the upgrade process is in progress.
3096: --
3097: if l_bee_iv_upgrade = 'E' then
3098: hr_utility.set_message(800, 'HR_449106_BEE_UPGRADING');
3099: hr_utility.raise_error;
3100: end if;
3101: --
3102: open csr_bl_header(p_batch_id);
3095: -- Check whether the upgrade process is in progress.
3096: --
3097: if l_bee_iv_upgrade = 'E' then
3098: hr_utility.set_message(800, 'HR_449106_BEE_UPGRADING');
3099: hr_utility.raise_error;
3100: end if;
3101: --
3102: open csr_bl_header(p_batch_id);
3103: fetch csr_bl_header into g_header_record;
3227: l_creator_type := 'H';
3228: l_absence_attendance_id := 0;
3229: absence_entry_already_created := false;
3230: --
3231: hr_utility.set_location('payplnk.validate_lines',10);
3232: -- Moving the following code into the validate procedure.
3233: -- --
3234: -- -- Carry out the core line validation checks.
3235: -- --
3274: when no_data_found then
3275: g_line_error := true;
3276: g_count := g_count + 1;
3277: --
3278: hr_utility.set_message(801,'HR_7465_PLK_NOT_ELGBLE_ELE_NME');
3279: hr_utility.set_message_token('ELEMENT_NAME',
3280: g_line_record.element_name);
3281: l_error_text := substrb(hr_utility.get_message, 1, 240);
3282: --
3275: g_line_error := true;
3276: g_count := g_count + 1;
3277: --
3278: hr_utility.set_message(801,'HR_7465_PLK_NOT_ELGBLE_ELE_NME');
3279: hr_utility.set_message_token('ELEMENT_NAME',
3280: g_line_record.element_name);
3281: l_error_text := substrb(hr_utility.get_message, 1, 240);
3282: --
3283: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3277: --
3278: hr_utility.set_message(801,'HR_7465_PLK_NOT_ELGBLE_ELE_NME');
3279: hr_utility.set_message_token('ELEMENT_NAME',
3280: g_line_record.element_name);
3281: l_error_text := substrb(hr_utility.get_message, 1, 240);
3282: --
3283: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3284: l_status_tbl(g_count) :='F';
3285: l_message_tbl(g_count) := l_error_text;
3286: --
3287: raise line_error_occurred;
3288: end;
3289: --
3290: hr_utility.set_location('payplnk.validate_lines',15);
3291: --
3292: -- If neither an element type id or element name has been entered,
3293: -- raise error.
3294: --
3319: when no_data_found then
3320: g_line_error := true;
3321: g_count := g_count + 1;
3322: --
3323: hr_utility.set_message(801,'HR_7478_PLK_INCONSISTENT_ELE');
3324: hr_utility.set_message_token('ELEMENT_TYPE_ID',
3325: g_line_record.element_type_id);
3326: hr_utility.set_message_token('ELEMENT_NAME',
3327: g_line_record.element_name);
3320: g_line_error := true;
3321: g_count := g_count + 1;
3322: --
3323: hr_utility.set_message(801,'HR_7478_PLK_INCONSISTENT_ELE');
3324: hr_utility.set_message_token('ELEMENT_TYPE_ID',
3325: g_line_record.element_type_id);
3326: hr_utility.set_message_token('ELEMENT_NAME',
3327: g_line_record.element_name);
3328: --
3322: --
3323: hr_utility.set_message(801,'HR_7478_PLK_INCONSISTENT_ELE');
3324: hr_utility.set_message_token('ELEMENT_TYPE_ID',
3325: g_line_record.element_type_id);
3326: hr_utility.set_message_token('ELEMENT_NAME',
3327: g_line_record.element_name);
3328: --
3329: l_error_text := substrb(hr_utility.get_message, 1, 240);
3330: --
3325: g_line_record.element_type_id);
3326: hr_utility.set_message_token('ELEMENT_NAME',
3327: g_line_record.element_name);
3328: --
3329: l_error_text := substrb(hr_utility.get_message, 1, 240);
3330: --
3331: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3332: l_status_tbl(g_count) :='F';
3333: l_message_tbl(g_count) := l_error_text;
3334: --
3335: raise line_error_occurred;
3336: end;
3337: --
3338: hr_utility.set_location('payplnk.validate_lines',20);
3339: --
3340: -- If only an element type id has been entered, ensure it is valid.
3341: --
3342: else
3357: when no_data_found then
3358: g_line_error := true;
3359: g_count := g_count + 1;
3360: --
3361: hr_utility.set_message(801,'HR_7464_PLK_NOT_ELGBLE_ELE_TYP');
3362: hr_utility.set_message_token('ELEMENT_TYPE_ID',
3363: g_line_record.element_type_id);
3364: l_error_text := substrb(hr_utility.get_message, 1, 240);
3365: --
3358: g_line_error := true;
3359: g_count := g_count + 1;
3360: --
3361: hr_utility.set_message(801,'HR_7464_PLK_NOT_ELGBLE_ELE_TYP');
3362: hr_utility.set_message_token('ELEMENT_TYPE_ID',
3363: g_line_record.element_type_id);
3364: l_error_text := substrb(hr_utility.get_message, 1, 240);
3365: --
3366: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3360: --
3361: hr_utility.set_message(801,'HR_7464_PLK_NOT_ELGBLE_ELE_TYP');
3362: hr_utility.set_message_token('ELEMENT_TYPE_ID',
3363: g_line_record.element_type_id);
3364: l_error_text := substrb(hr_utility.get_message, 1, 240);
3365: --
3366: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3367: l_status_tbl(g_count) :='F';
3368: l_message_tbl(g_count) := l_error_text;
3370: raise line_error_occurred;
3371: end;
3372: end if;
3373: --
3374: hr_utility.set_location('payplnk.validate_lines',25);
3375: -- Moving the following code into the validate procedure.
3376: -- --
3377: -- -- Ensure valid assignment details have been entered.
3378: -- --
3419: -- when no_data_found then
3420: -- g_line_error := true;
3421: -- g_count := g_count +1;
3422: -- --
3423: -- hr_utility.set_message(801,'HR_7466_PLK_NOT_ELGBLE_ASS_NUM');
3424: -- hr_utility.set_message_token('ASSIGNMENT_NUMBER',
3425: -- g_line_record.assignment_number);
3426: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3427: -- --
3420: -- g_line_error := true;
3421: -- g_count := g_count +1;
3422: -- --
3423: -- hr_utility.set_message(801,'HR_7466_PLK_NOT_ELGBLE_ASS_NUM');
3424: -- hr_utility.set_message_token('ASSIGNMENT_NUMBER',
3425: -- g_line_record.assignment_number);
3426: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3427: -- --
3428: -- l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3422: -- --
3423: -- hr_utility.set_message(801,'HR_7466_PLK_NOT_ELGBLE_ASS_NUM');
3424: -- hr_utility.set_message_token('ASSIGNMENT_NUMBER',
3425: -- g_line_record.assignment_number);
3426: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3427: -- --
3428: -- l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3429: -- l_status_tbl(g_count) :='F';
3430: -- l_message_tbl(g_count) := l_error_text;
3431: -- --
3432: -- raise line_error_occurred;
3433: -- end;
3434: -- --
3435: -- hr_utility.set_location('payplnk.validate_lines',30);
3436: -- --
3437: -- -- If both assignment id and assignment number are null, raise error.
3438: -- --
3439: -- elsif (g_line_record.assignment_id is null) and
3482: -- when no_data_found then
3483: -- g_line_error := true;
3484: -- g_count := g_count + 1;
3485: -- --
3486: -- hr_utility.set_message(801,'HR_7479_PLK_INCONSISTENT_ASS');
3487: -- hr_utility.set_message_token('ASSIGNMENT_ID',
3488: -- g_line_record.assignment_id);
3489: -- hr_utility.set_message_token('ASSIGNMENT_NUMBER',
3490: -- g_line_record.assignment_number);
3483: -- g_line_error := true;
3484: -- g_count := g_count + 1;
3485: -- --
3486: -- hr_utility.set_message(801,'HR_7479_PLK_INCONSISTENT_ASS');
3487: -- hr_utility.set_message_token('ASSIGNMENT_ID',
3488: -- g_line_record.assignment_id);
3489: -- hr_utility.set_message_token('ASSIGNMENT_NUMBER',
3490: -- g_line_record.assignment_number);
3491: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3485: -- --
3486: -- hr_utility.set_message(801,'HR_7479_PLK_INCONSISTENT_ASS');
3487: -- hr_utility.set_message_token('ASSIGNMENT_ID',
3488: -- g_line_record.assignment_id);
3489: -- hr_utility.set_message_token('ASSIGNMENT_NUMBER',
3490: -- g_line_record.assignment_number);
3491: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3492: -- --
3493: -- l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3487: -- hr_utility.set_message_token('ASSIGNMENT_ID',
3488: -- g_line_record.assignment_id);
3489: -- hr_utility.set_message_token('ASSIGNMENT_NUMBER',
3490: -- g_line_record.assignment_number);
3491: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3492: -- --
3493: -- l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3494: -- l_status_tbl(g_count) :='F';
3495: -- l_message_tbl(g_count) := l_error_text;
3496: -- --
3497: -- raise line_error_occurred;
3498: -- end;
3499: -- --
3500: -- hr_utility.set_location('payplnk.validate_lines',35);
3501: -- --
3502: -- -- If only an assignment id has been entered, ensure that it is valid.
3503: -- --
3504: -- else
3515: -- when no_data_found then
3516: -- g_line_error := true;
3517: -- g_count := g_count + 1;
3518: -- --
3519: -- hr_utility.set_message(801,'HR_7467_PLK_NOT_ELGBLE_ASS_ID');
3520: -- hr_utility.set_message_token('ASSIGNMENT_ID',
3521: -- g_line_record.assignment_id);
3522: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3523: -- --
3516: -- g_line_error := true;
3517: -- g_count := g_count + 1;
3518: -- --
3519: -- hr_utility.set_message(801,'HR_7467_PLK_NOT_ELGBLE_ASS_ID');
3520: -- hr_utility.set_message_token('ASSIGNMENT_ID',
3521: -- g_line_record.assignment_id);
3522: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3523: -- --
3524: -- l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3518: -- --
3519: -- hr_utility.set_message(801,'HR_7467_PLK_NOT_ELGBLE_ASS_ID');
3520: -- hr_utility.set_message_token('ASSIGNMENT_ID',
3521: -- g_line_record.assignment_id);
3522: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3523: -- --
3524: -- l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3525: -- l_status_tbl(g_count) :='F';
3526: -- l_message_tbl(g_count) := l_error_text;
3528: -- raise line_error_occurred;
3529: -- end;
3530: -- end if;
3531: --
3532: hr_utility.set_location('payplnk.validate_lines',40);
3533: --
3534: -- Validate the entry values, if entered.
3535: --
3536: l_entry_value_tbl(1) := g_line_record.value_1;
3618: else
3619: l_passed_val_tbl(i) := null;
3620: end if;
3621: --
3622: hr_utility.trace('INPUT VALUE ID :'||l_passed_inp_tbl(i));
3623: hr_utility.trace('INPUT VALUE :'||l_passed_val_tbl(i));
3624: --
3625: c_entry_values := c_entry_values + 1;
3626:
3619: l_passed_val_tbl(i) := null;
3620: end if;
3621: --
3622: hr_utility.trace('INPUT VALUE ID :'||l_passed_inp_tbl(i));
3623: hr_utility.trace('INPUT VALUE :'||l_passed_val_tbl(i));
3624: --
3625: c_entry_values := c_entry_values + 1;
3626:
3627: -- Exit the loop if it has reached the 15th input value.
3631:
3632: end loop;
3633: close csr_table_inp_ids;
3634: --
3635: hr_utility.set_location('payplnk.validate_lines',45);
3636: --
3637: -- If there are no input value ids for the element type or the
3638: -- entry values exceed the number of input value id(s) , raise an error.
3639: --
3650: raise invalid_entry_value;
3651: end if;
3652: end loop;
3653: --
3654: hr_utility.set_location('payplnk.validate_lines', 50);
3655: --
3656: -- Retrieve the link id for the element type and assignment combination.
3657: --
3658: hr_utility.trace('ASS: '||g_line_record.assignment_id);
3654: hr_utility.set_location('payplnk.validate_lines', 50);
3655: --
3656: -- Retrieve the link id for the element type and assignment combination.
3657: --
3658: hr_utility.trace('ASS: '||g_line_record.assignment_id);
3659: hr_utility.trace('ETI: '||g_line_record.element_type_id);
3660: hr_utility.trace('EDT: '||g_line_record.effective_date);
3661: hr_utility.trace('LLI: '||l_link_id);
3662: hr_utility.trace('END');
3655: --
3656: -- Retrieve the link id for the element type and assignment combination.
3657: --
3658: hr_utility.trace('ASS: '||g_line_record.assignment_id);
3659: hr_utility.trace('ETI: '||g_line_record.element_type_id);
3660: hr_utility.trace('EDT: '||g_line_record.effective_date);
3661: hr_utility.trace('LLI: '||l_link_id);
3662: hr_utility.trace('END');
3663: --
3656: -- Retrieve the link id for the element type and assignment combination.
3657: --
3658: hr_utility.trace('ASS: '||g_line_record.assignment_id);
3659: hr_utility.trace('ETI: '||g_line_record.element_type_id);
3660: hr_utility.trace('EDT: '||g_line_record.effective_date);
3661: hr_utility.trace('LLI: '||l_link_id);
3662: hr_utility.trace('END');
3663: --
3664: l_link_id := hr_entry_api.get_link(g_line_record.assignment_id,
3657: --
3658: hr_utility.trace('ASS: '||g_line_record.assignment_id);
3659: hr_utility.trace('ETI: '||g_line_record.element_type_id);
3660: hr_utility.trace('EDT: '||g_line_record.effective_date);
3661: hr_utility.trace('LLI: '||l_link_id);
3662: hr_utility.trace('END');
3663: --
3664: l_link_id := hr_entry_api.get_link(g_line_record.assignment_id,
3665: g_line_record.element_type_id,
3658: hr_utility.trace('ASS: '||g_line_record.assignment_id);
3659: hr_utility.trace('ETI: '||g_line_record.element_type_id);
3660: hr_utility.trace('EDT: '||g_line_record.effective_date);
3661: hr_utility.trace('LLI: '||l_link_id);
3662: hr_utility.trace('END');
3663: --
3664: l_link_id := hr_entry_api.get_link(g_line_record.assignment_id,
3665: g_line_record.element_type_id,
3666: g_line_record.effective_date);
3664: l_link_id := hr_entry_api.get_link(g_line_record.assignment_id,
3665: g_line_record.element_type_id,
3666: g_line_record.effective_date);
3667: --
3668: hr_utility.set_location('payplnk.validate_lines',55);
3669: --
3670: -- Raise an error if a link does not exist on the effective date.
3671: --
3672: if l_link_id is null then
3687: or l_inpv_uom_tbl(l) = 'H_HHMMSS' or l_inpv_uom_tbl(l) = 'H_DECIMAL1'
3688: or l_inpv_uom_tbl(l) = 'H_DECIMAL2' or l_inpv_uom_tbl(l) = 'H_DECIMAL3'
3689: or l_inpv_uom_tbl(l) = 'HOURS') then
3690: --
3691: hr_utility.set_location('payplnk.validate_lines',53);
3692: --
3693: l_absence_attendance_type_id := null;
3694: --
3695: -- The hours input value may be associated with an Absence
3719: -- exception
3720: -- when no_data_found then null;
3721: -- end;
3722: --
3723: hr_utility.set_location('payplnk.validate_lines',54);
3724: --
3725: if l_absence_attendance_type_id is not null then
3726: --
3727: l_abs_type_tbl(l) := l_absence_attendance_type_id;
3729: l_creator_type := 'A';
3730: --
3731: end if;
3732: --
3733: hr_utility.set_location('payplnk.validate_lines',56);
3734: --
3735: --
3736: -- WW Bug# 282299
3737: -- The hours input value may also be associated with an Accrual Plan.
3749: p_asg_id => g_line_record.assignment_id,
3750: p_sess_date => g_line_record.effective_date,
3751: p_eligible => l_eligible);
3752: --
3753: hr_utility.set_location('payplnk.validate_lines',57);
3754: --
3755: if l_eligible = 'N' then
3756: hr_utility.set_location('payplnk.validate_lines',58);
3757: hr_utility.trace('Assignment is in ineligible period for this accrual plan. ');
3752: --
3753: hr_utility.set_location('payplnk.validate_lines',57);
3754: --
3755: if l_eligible = 'N' then
3756: hr_utility.set_location('payplnk.validate_lines',58);
3757: hr_utility.trace('Assignment is in ineligible period for this accrual plan. ');
3758: hr_utility.set_message(801,'PAY_7853_PDT_INELIG_ACCRUAL');
3759: hr_utility.raise_error;
3760: end if;
3753: hr_utility.set_location('payplnk.validate_lines',57);
3754: --
3755: if l_eligible = 'N' then
3756: hr_utility.set_location('payplnk.validate_lines',58);
3757: hr_utility.trace('Assignment is in ineligible period for this accrual plan. ');
3758: hr_utility.set_message(801,'PAY_7853_PDT_INELIG_ACCRUAL');
3759: hr_utility.raise_error;
3760: end if;
3761: end if;
3754: --
3755: if l_eligible = 'N' then
3756: hr_utility.set_location('payplnk.validate_lines',58);
3757: hr_utility.trace('Assignment is in ineligible period for this accrual plan. ');
3758: hr_utility.set_message(801,'PAY_7853_PDT_INELIG_ACCRUAL');
3759: hr_utility.raise_error;
3760: end if;
3761: end if;
3762: end loop;
3755: if l_eligible = 'N' then
3756: hr_utility.set_location('payplnk.validate_lines',58);
3757: hr_utility.trace('Assignment is in ineligible period for this accrual plan. ');
3758: hr_utility.set_message(801,'PAY_7853_PDT_INELIG_ACCRUAL');
3759: hr_utility.raise_error;
3760: end if;
3761: end if;
3762: end loop;
3763: --
3760: end if;
3761: end if;
3762: end loop;
3763: --
3764: hr_utility.set_location('payplnk.validate_lines',59);
3765: --
3766: -- Validate the costing details entered.
3767: --
3768: -- S.Sinha pseudo bug 493304, for performance fix for BT.
3812:
3813: if (l_costable_type = 'N') then -- { Costable_type N
3814: --
3815: g_count := g_count + 1;
3816: hr_utility.set_message(801, 'HR_7453_PLK_NON_COSTABLE_ELE');
3817: l_error_text := substrb(hr_utility.get_message, 1, 240);
3818: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3819: l_status_tbl(g_count) := 'W';
3820: l_message_tbl(g_count) := l_error_text;
3813: if (l_costable_type = 'N') then -- { Costable_type N
3814: --
3815: g_count := g_count + 1;
3816: hr_utility.set_message(801, 'HR_7453_PLK_NON_COSTABLE_ELE');
3817: l_error_text := substrb(hr_utility.get_message, 1, 240);
3818: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3819: l_status_tbl(g_count) := 'W';
3820: l_message_tbl(g_count) := l_error_text;
3821: --
3828: end if; -- } no structure
3829: --
3830: -- Retrieve/generate a cost keyflex id for the costing details.
3831: --
3832: hr_utility.set_location('payplnk.validate_lines',60);
3833: --
3834: g_line_record.cost_allocation_keyflex_id :=
3835: hr_entry.maintain_cost_keyflex(
3836: l_cost_allocation_structure,
3874: end if; -- } costable_type N else
3875: --
3876: end if; -- } costing exists
3877: --
3878: hr_utility.set_location('payplnk.validate_lines',65);
3879: --
3880: -- The batch line core validation checks have been carried out
3881: -- successfully, hence the legislative hook checks (if any) and
3882: -- then the user line validation checks can be called.
3886: -- The legislative hook to line validation should be executed here
3887: --
3888: -- call legislative header check hook if required
3889: --
3890: hr_utility.set_location('payplnk.validate_lines',66);
3891: if l_leg_line_check = TRUE then
3892: --
3893: begin
3894: hr_utility.set_location('payplnk.validate_lines',67);
3890: hr_utility.set_location('payplnk.validate_lines',66);
3891: if l_leg_line_check = TRUE then
3892: --
3893: begin
3894: hr_utility.set_location('payplnk.validate_lines',67);
3895: statem := 'BEGIN
3896: pay_'||lower(l_legislation_code)||'_bee.validate_line(:batch_line_id, :valid, :leg_message, :line_changed); END;';
3897: --
3898: if pay_core_utils.get_sql_cursor(statem,sql_curs) then
3913: end if;
3914: --
3915: exception
3916: when others then
3917: hr_utility.set_location('payplnk.validate_lines',68);
3918: --
3919: g_line_error := true;
3920: g_count := g_count + 1;
3921: --
3918: --
3919: g_line_error := true;
3920: g_count := g_count + 1;
3921: --
3922: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
3923: hr_utility.set_message_token('USER_PROCEDURE',
3924: 'the legislative batch line procedure');
3925: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
3926: --
3919: g_line_error := true;
3920: g_count := g_count + 1;
3921: --
3922: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
3923: hr_utility.set_message_token('USER_PROCEDURE',
3924: 'the legislative batch line procedure');
3925: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
3926: --
3927: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3921: --
3922: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
3923: hr_utility.set_message_token('USER_PROCEDURE',
3924: 'the legislative batch line procedure');
3925: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
3926: --
3927: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3928: l_status_tbl(g_count) := 'F';
3929: l_message_tbl(g_count) := l_error_text;
3931: raise line_error_occurred;
3932: end;
3933: --
3934: if l_valid = 1 then
3935: hr_utility.set_location('payplnk.validate_lines',688);
3936: --
3937: g_line_error := true;
3938: g_count := g_count + 1;
3939: --
3936: --
3937: g_line_error := true;
3938: g_count := g_count + 1;
3939: --
3940: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
3941: hr_utility.set_message_token('USER_PROCEDURE',
3942: 'the legislative batch line procedure');
3943: l_error_text := substrb((hr_utility.get_message||' '||l_leg_message),1,240);
3944: --
3937: g_line_error := true;
3938: g_count := g_count + 1;
3939: --
3940: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
3941: hr_utility.set_message_token('USER_PROCEDURE',
3942: 'the legislative batch line procedure');
3943: l_error_text := substrb((hr_utility.get_message||' '||l_leg_message),1,240);
3944: --
3945: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3939: --
3940: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
3941: hr_utility.set_message_token('USER_PROCEDURE',
3942: 'the legislative batch line procedure');
3943: l_error_text := substrb((hr_utility.get_message||' '||l_leg_message),1,240);
3944: --
3945: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3946: l_status_tbl(g_count) := 'F';
3947: l_message_tbl(g_count) := l_error_text;
3985: --
3986: g_line_error := true;
3987: g_count := g_count + 1;
3988: --
3989: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
3990: hr_utility.set_message_token('USER_PROCEDURE',
3991: 'the user batch line procedure');
3992: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
3993: --
3986: g_line_error := true;
3987: g_count := g_count + 1;
3988: --
3989: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
3990: hr_utility.set_message_token('USER_PROCEDURE',
3991: 'the user batch line procedure');
3992: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
3993: --
3994: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3988: --
3989: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
3990: hr_utility.set_message_token('USER_PROCEDURE',
3991: 'the user batch line procedure');
3992: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
3993: --
3994: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3995: l_status_tbl(g_count) := 'F';
3996: l_message_tbl(g_count) := l_error_text;
3997: --
3998: raise line_error_occurred;
3999: end;
4000: --
4001: hr_utility.set_location('payplnk.validate_lines',70);
4002: --
4003: -- If a status has not been returned raise an error.
4004: --
4005: if l_user_status is null then
4006: --
4007: g_line_error := true;
4008: g_count := g_count + 1;
4009: --
4010: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
4011: hr_utility.set_message_token('USER_PROCEDURE',
4012: 'the user batch line procedure');
4013: l_error_text := substrb(hr_utility.get_message, 1, 240);
4014: --
4007: g_line_error := true;
4008: g_count := g_count + 1;
4009: --
4010: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
4011: hr_utility.set_message_token('USER_PROCEDURE',
4012: 'the user batch line procedure');
4013: l_error_text := substrb(hr_utility.get_message, 1, 240);
4014: --
4015: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4009: --
4010: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
4011: hr_utility.set_message_token('USER_PROCEDURE',
4012: 'the user batch line procedure');
4013: l_error_text := substrb(hr_utility.get_message, 1, 240);
4014: --
4015: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4016: l_status_tbl(g_count) := 'F';
4017: l_message_tbl(g_count) := l_error_text;
4028: --
4029: g_line_error := true;
4030: g_count := g_count + 1;
4031: --
4032: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
4033: hr_utility.set_message_token('USER_PROCEDURE',
4034: 'the user batch line procedure');
4035: l_error_text := substrb(hr_utility.get_message, 1, 240);
4036: --
4029: g_line_error := true;
4030: g_count := g_count + 1;
4031: --
4032: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
4033: hr_utility.set_message_token('USER_PROCEDURE',
4034: 'the user batch line procedure');
4035: l_error_text := substrb(hr_utility.get_message, 1, 240);
4036: --
4037: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4031: --
4032: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
4033: hr_utility.set_message_token('USER_PROCEDURE',
4034: 'the user batch line procedure');
4035: l_error_text := substrb(hr_utility.get_message, 1, 240);
4036: --
4037: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4038: l_status_tbl(g_count) := 'F';
4039: l_message_tbl(g_count) := l_error_text;
4049: --
4050: g_line_error := true;
4051: g_count := g_count + 1;
4052: --
4053: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
4054: hr_utility.set_message_token('USER_PROCEDURE',
4055: 'the user batch line procedure');
4056: l_error_text := substrb(hr_utility.get_message, 1, 240);
4057: --
4050: g_line_error := true;
4051: g_count := g_count + 1;
4052: --
4053: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
4054: hr_utility.set_message_token('USER_PROCEDURE',
4055: 'the user batch line procedure');
4056: l_error_text := substrb(hr_utility.get_message, 1, 240);
4057: --
4058: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4052: --
4053: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
4054: hr_utility.set_message_token('USER_PROCEDURE',
4055: 'the user batch line procedure');
4056: l_error_text := substrb(hr_utility.get_message, 1, 240);
4057: --
4058: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4059: l_status_tbl(g_count) := 'F';
4060: l_message_tbl(g_count) := l_error_text;
4094: end if;
4095: end if;
4096: end if;
4097: --
4098: hr_utility.set_location('payplnk.validate_lines',75);
4099: --
4100: -- Batch line has been validated successfully. Attempt to insert/update
4101: -- an element entry into the base tables.
4102: --
4214: p_error_table => l_error_table);
4215: --
4216:
4217: if l_warning_table.COUNT <> 0 then
4218: hr_utility.set_location('payplnk.validate_lines',76);
4219: for l_warning_num in 1..l_warning_table.COUNT loop
4220: hr_utility.trace(l_warning_table(l_warning_num));
4221: if l_warning_table(l_warning_num) = 'EE_CREATED_BY_ABSENCE_API' then
4222: hr_utility.set_location('payplnk.validate_lines',77);
4216:
4217: if l_warning_table.COUNT <> 0 then
4218: hr_utility.set_location('payplnk.validate_lines',76);
4219: for l_warning_num in 1..l_warning_table.COUNT loop
4220: hr_utility.trace(l_warning_table(l_warning_num));
4221: if l_warning_table(l_warning_num) = 'EE_CREATED_BY_ABSENCE_API' then
4222: hr_utility.set_location('payplnk.validate_lines',77);
4223: absence_entry_already_created := TRUE;
4224: else
4218: hr_utility.set_location('payplnk.validate_lines',76);
4219: for l_warning_num in 1..l_warning_table.COUNT loop
4220: hr_utility.trace(l_warning_table(l_warning_num));
4221: if l_warning_table(l_warning_num) = 'EE_CREATED_BY_ABSENCE_API' then
4222: hr_utility.set_location('payplnk.validate_lines',77);
4223: absence_entry_already_created := TRUE;
4224: else
4225: g_count := g_count + 1;
4226: hr_utility.set_message(801,l_warning_table(l_warning_num));
4222: hr_utility.set_location('payplnk.validate_lines',77);
4223: absence_entry_already_created := TRUE;
4224: else
4225: g_count := g_count + 1;
4226: hr_utility.set_message(801,l_warning_table(l_warning_num));
4227: l_error_text := substrb(hr_utility.get_message, 1, 240);
4228: --
4229: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4230: -- Changed from ' V' to 'W'. So that Pay_message_lines would not
4223: absence_entry_already_created := TRUE;
4224: else
4225: g_count := g_count + 1;
4226: hr_utility.set_message(801,l_warning_table(l_warning_num));
4227: l_error_text := substrb(hr_utility.get_message, 1, 240);
4228: --
4229: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4230: -- Changed from ' V' to 'W'. So that Pay_message_lines would not
4231: -- error outs.
4238: if l_error_table.COUNT <> 0 then
4239: for l_error_num in 1..l_error_table.COUNT loop
4240: g_line_error := true;
4241: g_count := g_count + 1;
4242: hr_utility.set_message(801,l_error_table(l_error_num));
4243: l_error_text := substrb(hr_utility.get_message, 1, 240);
4244: --
4245: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4246: l_status_tbl(g_count) := 'F';
4239: for l_error_num in 1..l_error_table.COUNT loop
4240: g_line_error := true;
4241: g_count := g_count + 1;
4242: hr_utility.set_message(801,l_error_table(l_error_num));
4243: l_error_text := substrb(hr_utility.get_message, 1, 240);
4244: --
4245: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4246: l_status_tbl(g_count) := 'F';
4247: l_message_tbl(g_count) := l_error_text;
4304: end if;
4305: close csr_future_existence;
4306: end if;
4307: --
4308: hr_utility.set_location('payplnk.validate_lines',80);
4309: --
4310: -- An attempt can be made to insert the element entry as all the
4311: -- prerequisite conditions are in place.
4312: --
4331: --
4332: g_line_error := true;
4333: g_count := g_count + 1;
4334: --
4335: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
4336: --
4337: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4338: l_status_tbl(g_count) := 'F';
4339: l_message_tbl(g_count) := l_error_text;
4359: --
4360: l_action_if_exists_chk := true;
4361: end if;
4362: --
4363: hr_utility.set_location('payplnk.validate_lines',85);
4364: --
4365: if (l_multiple_entries_allowed = 'Y') and
4366: (g_header_record.action_if_exists = 'I') then
4367: --
4384: --
4385: g_line_error := true;
4386: g_count := g_count + 1;
4387: --
4388: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
4389: --
4390: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4391: l_status_tbl(g_count) := 'F';
4392: l_message_tbl(g_count) := l_error_text;
4399: --
4400: raise multiple_entries_not_allowed;
4401: end if;
4402: --
4403: hr_utility.set_location('payplnk.validate_lines',90);
4404: --
4405: if g_header_record.action_if_exists = 'R' then
4406: --
4407: raise element_entry_exists;
4536: end if;
4537: --
4538: end if;
4539: --
4540: hr_utility.set_location('payplnk.validate_lines',95);
4541: --
4542: exception
4543: when no_data_found then
4544: g_line_error := true;
4545: if l_general_message = false then
4546: g_count := g_count + 1;
4547: end if;
4548: --
4549: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
4550: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
4551: l_error_text := substrb(hr_utility.get_message, 1, 240);
4552: --
4553: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4546: g_count := g_count + 1;
4547: end if;
4548: --
4549: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
4550: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
4551: l_error_text := substrb(hr_utility.get_message, 1, 240);
4552: --
4553: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4554: l_status_tbl(g_count) := 'F';
4547: end if;
4548: --
4549: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
4550: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
4551: l_error_text := substrb(hr_utility.get_message, 1, 240);
4552: --
4553: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4554: l_status_tbl(g_count) := 'F';
4555: l_message_tbl(g_count) := l_error_text;
4559: if l_general_message = false then
4560: g_count := g_count + 1;
4561: end if;
4562: --
4563: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
4564: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
4565: l_error_text := substrb(hr_utility.get_message, 1, 240);
4566: --
4567: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4560: g_count := g_count + 1;
4561: end if;
4562: --
4563: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
4564: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
4565: l_error_text := substrb(hr_utility.get_message, 1, 240);
4566: --
4567: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4568: l_status_tbl(g_count) := 'F';
4561: end if;
4562: --
4563: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
4564: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
4565: l_error_text := substrb(hr_utility.get_message, 1, 240);
4566: --
4567: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4568: l_status_tbl(g_count) := 'F';
4569: l_message_tbl(g_count) := l_error_text;
4571: when both_nulls then
4572: g_line_error := true;
4573: g_count := g_count + 1;
4574: --
4575: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
4576: hr_utility.set_message_token('COL1',l_column_name1);
4577: hr_utility.set_message_token('COL2',l_column_name2);
4578: l_error_text := substrb(hr_utility.get_message, 1, 240);
4579: --
4572: g_line_error := true;
4573: g_count := g_count + 1;
4574: --
4575: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
4576: hr_utility.set_message_token('COL1',l_column_name1);
4577: hr_utility.set_message_token('COL2',l_column_name2);
4578: l_error_text := substrb(hr_utility.get_message, 1, 240);
4579: --
4580: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4573: g_count := g_count + 1;
4574: --
4575: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
4576: hr_utility.set_message_token('COL1',l_column_name1);
4577: hr_utility.set_message_token('COL2',l_column_name2);
4578: l_error_text := substrb(hr_utility.get_message, 1, 240);
4579: --
4580: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4581: l_status_tbl(g_count) := 'F';
4574: --
4575: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
4576: hr_utility.set_message_token('COL1',l_column_name1);
4577: hr_utility.set_message_token('COL2',l_column_name2);
4578: l_error_text := substrb(hr_utility.get_message, 1, 240);
4579: --
4580: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4581: l_status_tbl(g_count) := 'F';
4582: l_message_tbl(g_count) := l_error_text;
4584: when invalid_entry_value then
4585: g_line_error := true;
4586: g_count := g_count + 1;
4587: --
4588: hr_utility.set_message(801,'HR_7452_PLK_VALS_EXCEED_INPUTS');
4589: l_error_text := substrb(hr_utility.get_message, 1, 240);
4590: --
4591: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4592: l_status_tbl(g_count) := 'F';
4585: g_line_error := true;
4586: g_count := g_count + 1;
4587: --
4588: hr_utility.set_message(801,'HR_7452_PLK_VALS_EXCEED_INPUTS');
4589: l_error_text := substrb(hr_utility.get_message, 1, 240);
4590: --
4591: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4592: l_status_tbl(g_count) := 'F';
4593: l_message_tbl(g_count) := l_error_text;
4596: when invalid_date_format then
4597: g_line_error := true;
4598: g_count := g_count + 1;
4599: --
4600: hr_utility.set_message(801,'HR_51155_INVAL_DATE_FORMAT');
4601: l_error_text := substrb(hr_utility.get_message, 1, 240);
4602: --
4603: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4604: l_status_tbl(g_count) := 'F';
4597: g_line_error := true;
4598: g_count := g_count + 1;
4599: --
4600: hr_utility.set_message(801,'HR_51155_INVAL_DATE_FORMAT');
4601: l_error_text := substrb(hr_utility.get_message, 1, 240);
4602: --
4603: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4604: l_status_tbl(g_count) := 'F';
4605: l_message_tbl(g_count) := l_error_text;
4607: when no_cost_allocation_structure then
4608: g_line_error := true;
4609: g_count := g_count + 1;
4610: --
4611: hr_utility.set_message(801,'HR_7460_PLK_NO_CST_ALLC_STRUCT');
4612: hr_utility.set_message_token('BUSINESS_GROUP_ID',p_business_group_id);
4613: l_error_text := substrb(hr_utility.get_message, 1, 240);
4614: --
4615: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4608: g_line_error := true;
4609: g_count := g_count + 1;
4610: --
4611: hr_utility.set_message(801,'HR_7460_PLK_NO_CST_ALLC_STRUCT');
4612: hr_utility.set_message_token('BUSINESS_GROUP_ID',p_business_group_id);
4613: l_error_text := substrb(hr_utility.get_message, 1, 240);
4614: --
4615: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4616: l_status_tbl(g_count) := 'F';
4609: g_count := g_count + 1;
4610: --
4611: hr_utility.set_message(801,'HR_7460_PLK_NO_CST_ALLC_STRUCT');
4612: hr_utility.set_message_token('BUSINESS_GROUP_ID',p_business_group_id);
4613: l_error_text := substrb(hr_utility.get_message, 1, 240);
4614: --
4615: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4616: l_status_tbl(g_count) := 'F';
4617: l_message_tbl(g_count) := l_error_text;
4619: when non_costable_element then
4620: g_line_error := true;
4621: g_count := g_count + 1;
4622: --
4623: hr_utility.set_message(801,'HR_7453_PLK_NON_COSTABLE_ELE');
4624: l_error_text := substrb(hr_utility.get_message, 1, 240);
4625: --
4626: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4627: l_status_tbl(g_count) := 'F';
4620: g_line_error := true;
4621: g_count := g_count + 1;
4622: --
4623: hr_utility.set_message(801,'HR_7453_PLK_NON_COSTABLE_ELE');
4624: l_error_text := substrb(hr_utility.get_message, 1, 240);
4625: --
4626: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4627: l_status_tbl(g_count) := 'F';
4628: l_message_tbl(g_count) := l_error_text;
4632: if l_general_message = false then
4633: g_count := g_count + 1;
4634: end if;
4635: --
4636: hr_utility.set_message(801,'HR_7454_PLK_MULT_ENTS_NOT_ALLD');
4637: l_error_text := substrb(hr_utility.get_message, 1, 240);
4638: --
4639: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4640: l_status_tbl(g_count) := 'F';
4633: g_count := g_count + 1;
4634: end if;
4635: --
4636: hr_utility.set_message(801,'HR_7454_PLK_MULT_ENTS_NOT_ALLD');
4637: l_error_text := substrb(hr_utility.get_message, 1, 240);
4638: --
4639: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4640: l_status_tbl(g_count) := 'F';
4641: l_message_tbl(g_count) := l_error_text;
4645: if l_general_message = false then
4646: g_count := g_count + 1;
4647: end if;
4648: --
4649: hr_utility.set_message(801,'HR_7455_PLK_ELE_ENTRY_EXISTS');
4650: l_error_text := substrb(hr_utility.get_message, 1, 240);
4651: --
4652: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4653: l_status_tbl(g_count) := 'F';
4646: g_count := g_count + 1;
4647: end if;
4648: --
4649: hr_utility.set_message(801,'HR_7455_PLK_ELE_ENTRY_EXISTS');
4650: l_error_text := substrb(hr_utility.get_message, 1, 240);
4651: --
4652: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4653: l_status_tbl(g_count) := 'F';
4654: l_message_tbl(g_count) := l_error_text;
4658: if l_general_message = false then
4659: g_count := g_count + 1;
4660: end if;
4661: --
4662: hr_utility.set_message(801,'HR_7456_PLK_MORE_THAN_ONE_ENT');
4663: l_error_text := substrb(hr_utility.get_message, 1, 240);
4664: --
4665: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4666: l_status_tbl(g_count) := 'F';
4659: g_count := g_count + 1;
4660: end if;
4661: --
4662: hr_utility.set_message(801,'HR_7456_PLK_MORE_THAN_ONE_ENT');
4663: l_error_text := substrb(hr_utility.get_message, 1, 240);
4664: --
4665: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4666: l_status_tbl(g_count) := 'F';
4667: l_message_tbl(g_count) := l_error_text;
4671: if l_general_message = false then
4672: g_count := g_count + 1;
4673: end if;
4674: --
4675: hr_utility.set_message(801,'HR_7457_PLK_FUTURE_CHGS_EXIST');
4676: l_error_text := substrb(hr_utility.get_message, 1, 240);
4677: --
4678: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4679: l_status_tbl(g_count) := 'F';
4672: g_count := g_count + 1;
4673: end if;
4674: --
4675: hr_utility.set_message(801,'HR_7457_PLK_FUTURE_CHGS_EXIST');
4676: l_error_text := substrb(hr_utility.get_message, 1, 240);
4677: --
4678: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4679: l_status_tbl(g_count) := 'F';
4680: l_message_tbl(g_count) := l_error_text;
4682: when element_entry_not_eligible then
4683: g_line_error := true;
4684: g_count := g_count + 1;
4685: --
4686: hr_utility.set_message(801,'HR_7459_PLK_NOT_ELGBLE_ELE_ENT');
4687: l_error_text := substrb(hr_utility.get_message, 1, 240);
4688: --
4689: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4690: l_status_tbl(g_count) := 'F';
4683: g_line_error := true;
4684: g_count := g_count + 1;
4685: --
4686: hr_utility.set_message(801,'HR_7459_PLK_NOT_ELGBLE_ELE_ENT');
4687: l_error_text := substrb(hr_utility.get_message, 1, 240);
4688: --
4689: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4690: l_status_tbl(g_count) := 'F';
4691: l_message_tbl(g_count) := l_error_text;
4693: when non_updatable_creator_type then
4694: g_line_error := true;
4695: g_count := g_count + 1;
4696: --
4697: hr_utility.set_message(801,'HR_7014_ELE_ENTRY_CREATOR_UPD');
4698: hr_utility.set_message_token('CREATOR_MEANING', hr_general.decode_lookup('CREATOR_TYPE','SP'));
4699: l_error_text := substrb(hr_utility.get_message, 1, 240);
4700: --
4701: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4694: g_line_error := true;
4695: g_count := g_count + 1;
4696: --
4697: hr_utility.set_message(801,'HR_7014_ELE_ENTRY_CREATOR_UPD');
4698: hr_utility.set_message_token('CREATOR_MEANING', hr_general.decode_lookup('CREATOR_TYPE','SP'));
4699: l_error_text := substrb(hr_utility.get_message, 1, 240);
4700: --
4701: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4702: l_status_tbl(g_count) := 'F';
4695: g_count := g_count + 1;
4696: --
4697: hr_utility.set_message(801,'HR_7014_ELE_ENTRY_CREATOR_UPD');
4698: hr_utility.set_message_token('CREATOR_MEANING', hr_general.decode_lookup('CREATOR_TYPE','SP'));
4699: l_error_text := substrb(hr_utility.get_message, 1, 240);
4700: --
4701: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4702: l_status_tbl(g_count) := 'F';
4703: l_message_tbl(g_count) := l_error_text;
4701: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4702: l_status_tbl(g_count) := 'F';
4703: l_message_tbl(g_count) := l_error_text;
4704: --
4705: when hr_utility.hr_error then
4706: g_line_error := true;
4707: if l_general_message = false then
4708: g_count := g_count + 1;
4709: end if;
4709: end if;
4710: --
4711: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4712: l_status_tbl(g_count) := 'F';
4713: l_message_tbl(g_count) := substrb(hr_utility.get_message, 1, 240);
4714: --
4715: when inputs_not_required then
4716: g_line_error := true;
4717: g_count := g_count + 1;
4715: when inputs_not_required then
4716: g_line_error := true;
4717: g_count := g_count + 1;
4718: --
4719: hr_utility.set_message(801,'HR_7458_PLK_ENT_VALS_NOT_REQD');
4720: l_error_text := substrb(hr_utility.get_message, 1, 240);
4721: --
4722: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4723: l_status_tbl(g_count) := 'F';
4716: g_line_error := true;
4717: g_count := g_count + 1;
4718: --
4719: hr_utility.set_message(801,'HR_7458_PLK_ENT_VALS_NOT_REQD');
4720: l_error_text := substrb(hr_utility.get_message, 1, 240);
4721: --
4722: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4723: l_status_tbl(g_count) := 'F';
4724: l_message_tbl(g_count) := l_error_text;
4753: if g_line_error then
4754: raise no_data_found;
4755: end if;
4756: --
4757: hr_utility.set_location('payplnk.validate_lines',500);
4758: --
4759: -- Close the header cursor if it is open.
4760: if csr_bl_header%ISOPEN then
4761: close csr_bl_header;
4775: end if;
4776: rollback to BL;
4777: --Set the global parameter to enable the triggers.
4778: payplnk.g_payplnk_call := false;
4779: hr_utility.set_message(800, 'HR_289719_BEE_LINE_ERROR');
4780: hr_utility.raise_error;
4781: -- raise;
4782: --
4783: end validate_lines;
4776: rollback to BL;
4777: --Set the global parameter to enable the triggers.
4778: payplnk.g_payplnk_call := false;
4779: hr_utility.set_message(800, 'HR_289719_BEE_LINE_ERROR');
4780: hr_utility.raise_error;
4781: -- raise;
4782: --
4783: end validate_lines;
4784: --
4812: and (batch_line_status <> 'T' or p_mode='Y');
4813: --
4814: begin
4815: --
4816: hr_utility.set_location('payplnk.purge_messages',5);
4817: --
4818: for pclrec in pcl(p_batch_id) loop
4819: delete from pay_message_lines
4820: where source_type = 'C'
4820: where source_type = 'C'
4821: and source_id = pclrec.batch_control_id;
4822: end loop;
4823: --
4824: hr_utility.set_location('payplnk.purge_messages',10);
4825: --
4826: for pblrec in pbl(p_batch_id) loop
4827: delete from pay_message_lines
4828: where source_type = 'L'
4828: where source_type = 'L'
4829: and source_id = pblrec.batch_line_id;
4830: end loop;
4831: --
4832: hr_utility.set_location('payplnk.purge_messages',20);
4833: --
4834: delete from pay_message_lines
4835: where source_type = 'H'
4836: and source_id = p_batch_id
4840: where pbl.batch_id = p_batch_id
4841: and pbl.batch_line_status = 'T')
4842: or p_mode='Y');
4843: --
4844: hr_utility.set_location('payplnk.purge_messages',25);
4845: --
4846: end purge_messages;
4847: --
4848: ----------------------------------------------------------------------
4892: l_time_out boolean := FALSE;
4893: --
4894: begin
4895: --
4896: hr_utility.set_location('payplnk.insert_element_entry',5);
4897: --
4898: -- Bug 423237 - Convert passed in reason to lookup_code for api
4899: --
4900: IF l_line_record.reason IS NOT NULL THEN
4929: end loop;
4930: --
4931: j := j - 1;
4932:
4933: if ghr_utility.is_ghr = 'TRUE' then
4934: hr_utility.set_location('GHR Installed....insert_element_entry .. Pre...',5);
4935: ghr_session.set_session_var_for_core
4936: (p_effective_date => l_line_record.effective_date);
4937: end if;
4930: --
4931: j := j - 1;
4932:
4933: if ghr_utility.is_ghr = 'TRUE' then
4934: hr_utility.set_location('GHR Installed....insert_element_entry .. Pre...',5);
4935: ghr_session.set_session_var_for_core
4936: (p_effective_date => l_line_record.effective_date);
4937: end if;
4938:
5085: end if;
5086: close csr_check_classification;
5087:
5088:
5089: if ghr_utility.is_ghr = 'TRUE' then
5090: hr_utility.set_location('GHR Installed....insert_element_entry .. Post ',6);
5091: ghr_history_api.post_update_process;
5092: end if;
5093: --
5086: close csr_check_classification;
5087:
5088:
5089: if ghr_utility.is_ghr = 'TRUE' then
5090: hr_utility.set_location('GHR Installed....insert_element_entry .. Post ',6);
5091: ghr_history_api.post_update_process;
5092: end if;
5093: --
5094: hr_utility.set_location('payplnk.insert_element_entry',10);
5090: hr_utility.set_location('GHR Installed....insert_element_entry .. Post ',6);
5091: ghr_history_api.post_update_process;
5092: end if;
5093: --
5094: hr_utility.set_location('payplnk.insert_element_entry',10);
5095: --
5096: end insert_element_entry;
5097: --
5098: --
5126: l_time_out boolean := FALSE;
5127: --
5128: begin
5129: --
5130: hr_utility.set_location('payplnk.update_element_entry',5);
5131: --
5132: -- Bug 423237 - Convert passed in reason to lookup_code for api
5133: --
5134: IF l_line_record.reason IS NOT NULL THEN
5138: where hl.lookup_type = 'ELE_ENTRY_REASON'
5139: and hl.meaning = l_line_record.reason;
5140: END IF;
5141: --
5142: if ghr_utility.is_ghr = 'TRUE' then
5143: hr_utility.set_location('GHR Installed....update_element_entry .. Pre ',5);
5144: ghr_session.set_session_var_for_core
5145: (p_effective_date => l_line_record.effective_date);
5146: end if;
5139: and hl.meaning = l_line_record.reason;
5140: END IF;
5141: --
5142: if ghr_utility.is_ghr = 'TRUE' then
5143: hr_utility.set_location('GHR Installed....update_element_entry .. Pre ',5);
5144: ghr_session.set_session_var_for_core
5145: (p_effective_date => l_line_record.effective_date);
5146: end if;
5147:
5262: --
5263: end loop;
5264:
5265:
5266: if ghr_utility.is_ghr = 'TRUE' then
5267: hr_utility.set_location('GHR Installed....update_element_entry .. Post ',5);
5268: ghr_history_api.post_update_process;
5269: end if;
5270:
5263: end loop;
5264:
5265:
5266: if ghr_utility.is_ghr = 'TRUE' then
5267: hr_utility.set_location('GHR Installed....update_element_entry .. Post ',5);
5268: ghr_history_api.post_update_process;
5269: end if;
5270:
5271: -- For MIX rollback - for non absence must set creator_id to null after update
5273: -- for this element
5274:
5275: if (p_creator_type = 'A') then
5276: --
5277: hr_utility.set_location('payplnk.update_element_entry',10);
5278: --
5279: update per_absence_attendances
5280: set batch_id = null
5281: where absence_attendance_id = p_creator_id;
5280: set batch_id = null
5281: where absence_attendance_id = p_creator_id;
5282: else
5283: --
5284: hr_utility.set_location('payplnk.update_element_entry',15);
5285: --
5286: if p_allow_rollback then
5287: --Recurring element of creator type 'H' or 'F' with update and update insert change.
5288: --
5307: end if;
5308: end if;
5309:
5310: --
5311: hr_utility.set_location('payplnk.update_element_entry',20);
5312: --
5313: end update_element_entry;
5314: --
5315: end payplnk;