[Home] [Help]
166: and HL.lookup_code = p_lookup_code;
167: --
168: begin
169: --
170: hr_utility.set_location('payplnk.convert_internal_to_display',10);
171: if (p_lookup_type is not null and
172: l_internal_value is not null) then
173: --
174: open csr_valid_lookup(p_lookup_type, l_internal_value);
173: --
174: open csr_valid_lookup(p_lookup_type, l_internal_value);
175: fetch csr_valid_lookup into l_display_value ;
176: close csr_valid_lookup;
177: hr_utility.set_location('payplnk.convert_internal_to_display',15);
178: --
179: elsif (p_value_set_id is not null and
180: l_internal_value is not null) then
181: --
180: l_internal_value is not null) then
181: --
182: l_display_value := pay_input_values_pkg.decode_vset_value(
183: p_value_set_id, l_internal_value);
184: hr_utility.set_location('payplnk.convert_internal_to_display',20);
185: --
186: else
187: --
188: hr_utility.set_location('payplnk.convert_internal_to_display',21);
184: hr_utility.set_location('payplnk.convert_internal_to_display',20);
185: --
186: else
187: --
188: hr_utility.set_location('payplnk.convert_internal_to_display',21);
189: hr_chkfmt.changeformat (
190: l_internal_value, /* the value to be formatted (out - display) */
191: l_display_value, /* the formatted value on output (out - canonical) */
192: p_uom_value, /* the format to check */
191: l_display_value, /* the formatted value on output (out - canonical) */
192: p_uom_value, /* the format to check */
193: p_currency_code );
194: --
195: hr_utility.set_location('payplnk.convert_internal_to_display',25);
196: end if;
197: hr_utility.set_location('payplnk.convert_internal_to_display',30);
198: --
199: return l_display_value;
193: p_currency_code );
194: --
195: hr_utility.set_location('payplnk.convert_internal_to_display',25);
196: end if;
197: hr_utility.set_location('payplnk.convert_internal_to_display',30);
198: --
199: return l_display_value;
200: --
201: exception
199: return l_display_value;
200: --
201: exception
202: when others then
203: hr_utility.set_message ('PAY','PAY_6306_INPUT_VALUE_FORMAT');
204: hr_utility.set_message_token ('UNIT_OF_MEASURE', hr_general.decode_lookup ('UNITS', p_uom_value ));
205: hr_utility.raise_error;
206: --
207: end convert_internal_to_display;
200: --
201: exception
202: when others then
203: hr_utility.set_message ('PAY','PAY_6306_INPUT_VALUE_FORMAT');
204: hr_utility.set_message_token ('UNIT_OF_MEASURE', hr_general.decode_lookup ('UNITS', p_uom_value ));
205: hr_utility.raise_error;
206: --
207: end convert_internal_to_display;
208: --
201: exception
202: when others then
203: hr_utility.set_message ('PAY','PAY_6306_INPUT_VALUE_FORMAT');
204: hr_utility.set_message_token ('UNIT_OF_MEASURE', hr_general.decode_lookup ('UNITS', p_uom_value ));
205: hr_utility.raise_error;
206: --
207: end convert_internal_to_display;
208: --
209: --
277: --
278: -- Check whether the upgrade process is in progress.
279: --
280: if l_bee_iv_upgrade = 'E' then
281: hr_utility.set_message(800, 'HR_449106_BEE_UPGRADING');
282: hr_utility.raise_error;
283: end if;
284: --
285: -- Need a row in fnd_sessions if it does not exist (bug 372339).
278: -- Check whether the upgrade process is in progress.
279: --
280: if l_bee_iv_upgrade = 'E' then
281: hr_utility.set_message(800, 'HR_449106_BEE_UPGRADING');
282: hr_utility.raise_error;
283: end if;
284: --
285: -- Need a row in fnd_sessions if it does not exist (bug 372339).
286: -- It may exist because next run_process may use same concurrent manager session
283: end if;
284: --
285: -- Need a row in fnd_sessions if it does not exist (bug 372339).
286: -- It may exist because next run_process may use same concurrent manager session
287: -- (this will not be neccessary when hr_utility.fnd_insert will do the check for
288: -- existing row before its insert).
289: --
290: begin
291: select null
296: when no_data_found then
297: l_row_not_exists := TRUE;
298: end;
299: if l_row_not_exists then
300: hr_utility.fnd_insert(sysdate);
301: end if;
302: --
303: --
304: -- Depending on the mode of operation requested the particular batch
303: --
304: -- Depending on the mode of operation requested the particular batch
305: -- will be processed accordingly.
306: --
307: hr_utility.set_location('payplnk.run_process',5);
308: --
309: if (p_batch_operation = 'VALIDATE' OR p_batch_operation = 'TRANSFER') then
310: --
311: -- validate the batch.
309: if (p_batch_operation = 'VALIDATE' OR p_batch_operation = 'TRANSFER') then
310: --
311: -- validate the batch.
312: --
313: hr_utility.set_location('payplnk.run_process',6);
314: --
315: g_header_processing := TRUE;
316: --
317: payplnk.validate
326: g_header_processing := FALSE;
327: --
328: payplnk.g_payplnk_call := TRUE;
329: --
330: hr_utility.set_location('payplnk.run_process',7);
331: --
332: -- elsif p_batch_operation = 'TRANSFER' then
333: -- --
334: -- -- transfer the batch. NB The transfer procedure calls the
335: -- -- validate procedure to ensure the batch is valid before
336: -- -- tansferring the element entries into the appropriate
337: -- -- base tables.
338: -- --
339: -- hr_utility.set_location('payplnk.run_process',8);
340: -- payplnk.transfer
341: -- (
342: -- p_business_group_id,
343: -- p_batch_operation,
342: -- p_business_group_id,
343: -- p_batch_operation,
344: -- p_batch_id
345: -- );
346: -- hr_utility.set_location('payplnk.run_process',9);
347: --
348: elsif p_batch_operation = 'PURGE' then
349: --
350: -- purge the batch. All records associated with the batch i.e.
350: -- purge the batch. All records associated with the batch i.e.
351: -- batch messages, controls, lines and header will be deleted
352: -- from the temporary batch tables.
353: --
354: hr_utility.set_location('payplnk.run_process',10);
355: payplnk.purge
356: (
357: p_batch_id
358: );
355: payplnk.purge
356: (
357: p_batch_id
358: );
359: hr_utility.set_location('payplnk.run_process',11);
360: --
361: end if;
362: --
363: hr_utility.set_location('payplnk.run_process',15);
359: hr_utility.set_location('payplnk.run_process',11);
360: --
361: end if;
362: --
363: hr_utility.set_location('payplnk.run_process',15);
364: --
365: -- commit;
366: --
367: errbuf := null;
374: errbuf := sqlerrm; /* return the unhandled error message. */
375: retcode := 2; /* process failed, as an unhandled error
376: occurred. */
377: if p_batch_operation <> 'PURGE' then
378: hr_utility.set_message(800, 'HR_289718_BEE_HEADER_ERROR');
379: end if;
380: hr_utility.raise_error;
381: --
382: end run_process;
376: occurred. */
377: if p_batch_operation <> 'PURGE' then
378: hr_utility.set_message(800, 'HR_289718_BEE_HEADER_ERROR');
379: end if;
380: hr_utility.raise_error;
381: --
382: end run_process;
383: --
384: ------------------------------------------------------------------------
423: not_upper boolean := false;
424: --
425: begin
426: --
427: hr_utility.set_location('payplnk.validate',1);
428: --
429: SAVEPOINT VL;
430: --
431: hr_utility.set_location('payplnk.validate',5);
427: hr_utility.set_location('payplnk.validate',1);
428: --
429: SAVEPOINT VL;
430: --
431: hr_utility.set_location('payplnk.validate',5);
432: --
433: select legislation_code
434: into l_legislation_code
435: from per_business_groups_perf
539: close csr_all_controls;
540: end if;
541: end if;
542: --
543: hr_utility.set_location('payplnk.validate',10);
544: --
545: -- Any updates made to the batch header and control statuses, and
546: -- and messages resulting from the header and control checks will be
547: -- committed.
573: -- raise error_occurred;
574: end if;
575: end if;
576: --
577: hr_utility.set_location('payplnk.validate',15);
578: -- The following is comment out due to multithreading.
579: -- --
580: -- -- Successfully validated line(s) may as a result have created
581: -- -- element entrie(s) in the base tables, therefore the entries must be
598: -- else
599: -- commit;
600: -- end if;
601: -- --
602: -- hr_utility.set_location('payplnk.validate',20);
603: -- --
604: -- -- Any messages accumulated during batch lines validation are now
605: -- -- inserted into the pay_message_lines table.
606: -- --
629: -- when no_data_found then
630: -- null;
631: -- end;
632: -- --
633: -- hr_utility.set_location('payplnk.validate',25);
634: -- --
635: -- -- The status of each batch line is set according to the outcome
636: -- -- of the validation carried out for the particular line.
637: -- --
657: -- when no_data_found then
658: -- null;
659: -- end;
660: -- --
661: -- hr_utility.set_location('payplnk.validate',30);
662: -- --
663: -- if l_line_match = false then
664: -- --
665: -- update pay_batch_lines bal
670: -- end if;
671: -- end loop;
672: -- --
673: -- End of the code blocked for multithreading.
674: hr_utility.set_location('payplnk.validate',35);
675: --
676: for g_line_record in csr_all_lines(p_batch_id) loop
677: --
678: if g_line_record.effective_date is null then
675: --
676: for g_line_record in csr_all_lines(p_batch_id) loop
677: --
678: if g_line_record.effective_date is null then
679: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
680: hr_utility.set_message_token('COLUMN_NAME','EFFECTIVE DATE');
681: l_error_text := substrb(hr_utility.get_message, 1, 240);
682: --
683: insert into pay_message_lines
676: for g_line_record in csr_all_lines(p_batch_id) loop
677: --
678: if g_line_record.effective_date is null then
679: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
680: hr_utility.set_message_token('COLUMN_NAME','EFFECTIVE DATE');
681: l_error_text := substrb(hr_utility.get_message, 1, 240);
682: --
683: insert into pay_message_lines
684: (LINE_SEQUENCE,
677: --
678: if g_line_record.effective_date is null then
679: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
680: hr_utility.set_message_token('COLUMN_NAME','EFFECTIVE DATE');
681: l_error_text := substrb(hr_utility.get_message, 1, 240);
682: --
683: insert into pay_message_lines
684: (LINE_SEQUENCE,
685: PAYROLL_ID,
726: not_upper := true;
727: --
728: when too_many_rows then
729: --
730: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
731: hr_utility.set_message_token('COLUMN_NAME','ASSIGNMENT ID');
732: l_error_text := substrb(hr_utility.get_message, 1, 240);
733: --
734: insert into pay_message_lines
727: --
728: when too_many_rows then
729: --
730: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
731: hr_utility.set_message_token('COLUMN_NAME','ASSIGNMENT ID');
732: l_error_text := substrb(hr_utility.get_message, 1, 240);
733: --
734: insert into pay_message_lines
735: (LINE_SEQUENCE,
728: when too_many_rows then
729: --
730: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
731: hr_utility.set_message_token('COLUMN_NAME','ASSIGNMENT ID');
732: l_error_text := substrb(hr_utility.get_message, 1, 240);
733: --
734: insert into pay_message_lines
735: (LINE_SEQUENCE,
736: PAYROLL_ID,
772: end if;
773: exception
774: when no_data_found then
775: --
776: hr_utility.set_message(801,'HR_7466_PLK_NOT_ELGBLE_ASS_NUM');
777: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
778: g_line_record.assignment_number);
779: l_error_text := substrb(hr_utility.get_message, 1, 240);
780: --
773: exception
774: when no_data_found then
775: --
776: hr_utility.set_message(801,'HR_7466_PLK_NOT_ELGBLE_ASS_NUM');
777: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
778: g_line_record.assignment_number);
779: l_error_text := substrb(hr_utility.get_message, 1, 240);
780: --
781: insert into pay_message_lines
775: --
776: hr_utility.set_message(801,'HR_7466_PLK_NOT_ELGBLE_ASS_NUM');
777: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
778: g_line_record.assignment_number);
779: l_error_text := substrb(hr_utility.get_message, 1, 240);
780: --
781: insert into pay_message_lines
782: (LINE_SEQUENCE,
783: PAYROLL_ID,
799: --
800: --
801: when too_many_rows then
802: --
803: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
804: hr_utility.set_message_token('COLUMN_NAME','ASSIGNMENT ID');
805: l_error_text := substrb(hr_utility.get_message, 1, 240);
806: --
807: insert into pay_message_lines
800: --
801: when too_many_rows then
802: --
803: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
804: hr_utility.set_message_token('COLUMN_NAME','ASSIGNMENT ID');
805: l_error_text := substrb(hr_utility.get_message, 1, 240);
806: --
807: insert into pay_message_lines
808: (LINE_SEQUENCE,
801: when too_many_rows then
802: --
803: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
804: hr_utility.set_message_token('COLUMN_NAME','ASSIGNMENT ID');
805: l_error_text := substrb(hr_utility.get_message, 1, 240);
806: --
807: insert into pay_message_lines
808: (LINE_SEQUENCE,
809: PAYROLL_ID,
824: where current of csr_all_lines;
825: --
826: end;
827: --
828: hr_utility.set_location('payplnk.validate',40);
829: --
830: elsif (g_line_record.assignment_id is null) and
831: (g_line_record.assignment_number is null) then
832: --
829: --
830: elsif (g_line_record.assignment_id is null) and
831: (g_line_record.assignment_number is null) then
832: --
833: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
834: hr_utility.set_message_token('COL1','ASSIGNMENT NUMBER');
835: hr_utility.set_message_token('COL2','ASSIGNMENT ID');
836: l_error_text := substrb(hr_utility.get_message, 1, 240);
837: --
830: elsif (g_line_record.assignment_id is null) and
831: (g_line_record.assignment_number is null) then
832: --
833: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
834: hr_utility.set_message_token('COL1','ASSIGNMENT NUMBER');
835: hr_utility.set_message_token('COL2','ASSIGNMENT ID');
836: l_error_text := substrb(hr_utility.get_message, 1, 240);
837: --
838: insert into pay_message_lines
831: (g_line_record.assignment_number is null) then
832: --
833: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
834: hr_utility.set_message_token('COL1','ASSIGNMENT NUMBER');
835: hr_utility.set_message_token('COL2','ASSIGNMENT ID');
836: l_error_text := substrb(hr_utility.get_message, 1, 240);
837: --
838: insert into pay_message_lines
839: (LINE_SEQUENCE,
832: --
833: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
834: hr_utility.set_message_token('COL1','ASSIGNMENT NUMBER');
835: hr_utility.set_message_token('COL2','ASSIGNMENT ID');
836: l_error_text := substrb(hr_utility.get_message, 1, 240);
837: --
838: insert into pay_message_lines
839: (LINE_SEQUENCE,
840: PAYROLL_ID,
854: set batch_line_status = 'E'
855: where current of csr_all_lines;
856: --
857: --
858: hr_utility.set_location('payplnk.validate',45);
859: --
860: elsif (g_line_record.assignment_id is not null) and
861: (g_line_record.assignment_number is not null) then
862: begin
893: end if;
894: exception
895: when no_data_found then
896: --
897: hr_utility.set_message(801,'HR_7479_PLK_INCONSISTENT_ASS');
898: hr_utility.set_message_token('ASSIGNMENT_ID',
899: g_line_record.assignment_id);
900: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
901: g_line_record.assignment_number);
894: exception
895: when no_data_found then
896: --
897: hr_utility.set_message(801,'HR_7479_PLK_INCONSISTENT_ASS');
898: hr_utility.set_message_token('ASSIGNMENT_ID',
899: g_line_record.assignment_id);
900: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
901: g_line_record.assignment_number);
902: l_error_text := substrb(hr_utility.get_message, 1, 240);
896: --
897: hr_utility.set_message(801,'HR_7479_PLK_INCONSISTENT_ASS');
898: hr_utility.set_message_token('ASSIGNMENT_ID',
899: g_line_record.assignment_id);
900: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
901: g_line_record.assignment_number);
902: l_error_text := substrb(hr_utility.get_message, 1, 240);
903: --
904: insert into pay_message_lines
898: hr_utility.set_message_token('ASSIGNMENT_ID',
899: g_line_record.assignment_id);
900: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
901: g_line_record.assignment_number);
902: l_error_text := substrb(hr_utility.get_message, 1, 240);
903: --
904: insert into pay_message_lines
905: (LINE_SEQUENCE,
906: PAYROLL_ID,
921: where current of csr_all_lines;
922: --
923: end;
924: --
925: hr_utility.set_location('payplnk.validate',50);
926: --
927: -- If only an assignment id has been entered, ensure that it is valid.
928: --
929: else
938: --
939: exception
940: when no_data_found then
941: --
942: hr_utility.set_message(801,'HR_7467_PLK_NOT_ELGBLE_ASS_ID');
943: hr_utility.set_message_token('ASSIGNMENT_ID',
944: g_line_record.assignment_id);
945: l_error_text := substrb(hr_utility.get_message, 1, 240);
946: --
939: exception
940: when no_data_found then
941: --
942: hr_utility.set_message(801,'HR_7467_PLK_NOT_ELGBLE_ASS_ID');
943: hr_utility.set_message_token('ASSIGNMENT_ID',
944: g_line_record.assignment_id);
945: l_error_text := substrb(hr_utility.get_message, 1, 240);
946: --
947: insert into pay_message_lines
941: --
942: hr_utility.set_message(801,'HR_7467_PLK_NOT_ELGBLE_ASS_ID');
943: hr_utility.set_message_token('ASSIGNMENT_ID',
944: g_line_record.assignment_id);
945: l_error_text := substrb(hr_utility.get_message, 1, 240);
946: --
947: insert into pay_message_lines
948: (LINE_SEQUENCE,
949: PAYROLL_ID,
966: end;
967: --
968: end if;
969: --
970: hr_utility.set_location('payplnk.validate',55);
971: --
972: end if;
973: --
974: end loop;
972: end if;
973: --
974: end loop;
975: --
976: hr_utility.set_location('payplnk.validate',60);
977: --
978: -- COMMIT;
979: --
980: --
977: --
978: -- COMMIT;
979: --
980: --
981: hr_utility.set_location('payplnk.validate',85);
982: --
983: exception
984: when error_occurred then
985: rollback to VL;
1038: where pbh.batch_id = p_batch_id;
1039: --
1040: begin
1041: --
1042: hr_utility.set_location('payplnk.set_status',5);
1043: --
1044: SAVEPOINT SS;
1045: --
1046: g_line_error := false;
1084: close csr_error_header;
1085: --
1086:
1087: if (g_header_error = true) then
1088: hr_utility.trace('payplnk.set_status g_header_error = TRUE');
1089: else
1090: hr_utility.trace('payplnk.set_status g_header_error = FALSE');
1091: end if;
1092:
1086:
1087: if (g_header_error = true) then
1088: hr_utility.trace('payplnk.set_status g_header_error = TRUE');
1089: else
1090: hr_utility.trace('payplnk.set_status g_header_error = FALSE');
1091: end if;
1092:
1093: if (g_control_error = true) then
1094: hr_utility.trace('payplnk.set_status g_control_error = TRUE');
1090: hr_utility.trace('payplnk.set_status g_header_error = FALSE');
1091: end if;
1092:
1093: if (g_control_error = true) then
1094: hr_utility.trace('payplnk.set_status g_control_error = TRUE');
1095: else
1096: hr_utility.trace('payplnk.set_status g_control_error = FALSE');
1097: end if;
1098:
1092:
1093: if (g_control_error = true) then
1094: hr_utility.trace('payplnk.set_status g_control_error = TRUE');
1095: else
1096: hr_utility.trace('payplnk.set_status g_control_error = FALSE');
1097: end if;
1098:
1099: if (g_line_error = true) then
1100: hr_utility.trace('payplnk.set_status g_line_error = TRUE');
1096: hr_utility.trace('payplnk.set_status g_control_error = FALSE');
1097: end if;
1098:
1099: if (g_line_error = true) then
1100: hr_utility.trace('payplnk.set_status g_line_error = TRUE');
1101: else
1102: hr_utility.trace('payplnk.set_status g_line_error = FALSE');
1103: end if;
1104: --
1098:
1099: if (g_line_error = true) then
1100: hr_utility.trace('payplnk.set_status g_line_error = TRUE');
1101: else
1102: hr_utility.trace('payplnk.set_status g_line_error = FALSE');
1103: end if;
1104: --
1105: if (p_batch_operation = 'VALIDATE' and g_header_error = false) then
1106: --
1115: -- Once the element entries have been committed check if the
1116: -- PURGE_AFTER_TRANSFER flag is 'Y'. If so delete all records associated
1117: -- with the batch from the temporary batch tables.
1118: --
1119: hr_utility.set_location('payplnk.set_status',11);
1120: --
1121: if (g_line_error = false) and
1122: upper(l_purge_after_transfer) = 'Y' then
1123: hr_utility.set_location('payplnk.set_status',30);
1119: hr_utility.set_location('payplnk.set_status',11);
1120: --
1121: if (g_line_error = false) and
1122: upper(l_purge_after_transfer) = 'Y' then
1123: hr_utility.set_location('payplnk.set_status',30);
1124: purge (
1125: p_batch_id
1126: );
1127: --
1126: );
1127: --
1128: else
1129: --
1130: hr_utility.set_location('payplnk.set_status',15);
1131: --
1132: if g_control_error = false then
1133: for g_control_record in csr_all_controls(p_batch_id) loop
1134: update pay_batch_control_totals
1137: --
1138: end loop;
1139: end if;
1140: --
1141: hr_utility.set_location('payplnk.set_status',20);
1142: --
1143: update pay_batch_headers
1144: set batch_status = l_status
1145: where batch_id = p_batch_id;
1143: update pay_batch_headers
1144: set batch_status = l_status
1145: where batch_id = p_batch_id;
1146: --
1147: hr_utility.set_location('payplnk.set_status',25);
1148: --
1149: end if;
1150: --
1151: hr_utility.set_location('payplnk.set_status',30);
1147: hr_utility.set_location('payplnk.set_status',25);
1148: --
1149: end if;
1150: --
1151: hr_utility.set_location('payplnk.set_status',30);
1152: end if;
1153: --
1154: end if;
1155: --
1152: end if;
1153: --
1154: end if;
1155: --
1156: hr_utility.set_location('payplnk.set_status',35);
1157: --
1158: exception
1159: when others then
1160: rollback to SS;
1184: --
1185: --
1186: begin
1187: --
1188: hr_utility.set_location('payplnk.set_line_status',5);
1189: --
1190: -- Set the global parameter to disable the triggers.
1191: payplnk.g_payplnk_call := true;
1192: --
1200: else
1201: l_batch_line_status := 'T';
1202: end if;
1203: --
1204: hr_utility.set_location('payplnk.set_line_status',10);
1205: --
1206: -- Any messages accumulated during batch lines validation are now
1207: -- inserted into the pay_message_lines table.
1208: --
1231: when no_data_found then
1232: null;
1233: end;
1234: --
1235: hr_utility.set_location('payplnk.set_line_status',20);
1236: --
1237: -- The status of each batch line is set according to the outcome
1238: -- of the validation carried out for the particular line.
1239: --
1266: when no_data_found then
1267: null;
1268: end;
1269: --
1270: hr_utility.set_location('payplnk.set_line_status',30);
1271: --
1272: if l_line_match = false then
1273: --
1274: update pay_batch_lines bal
1289: -- Set the global parameter to enable the triggers.
1290: payplnk.g_payplnk_call := false;
1291: --
1292: --
1293: hr_utility.set_location('payplnk.set_line_status',35);
1294: --
1295: exception
1296: when others then
1297: rollback to SLS;
1319: --
1320: --
1321: begin
1322: --
1323: hr_utility.set_location('payplnk.set_header_status',5);
1324: --
1325: -- Set the global parameter to disable the triggers.
1326: payplnk.g_payplnk_call := true;
1327: --
1352: end if;
1353: end if;
1354: --
1355: --
1356: hr_utility.set_location('payplnk.set_header_status',10);
1357: --
1358: -- Only update the status of the cotnrol totals if the batc his not failed.
1359: if g_head_err_stat <> 'F' or g_head_err_stat is null then
1360: --
1386: when no_data_found then
1387: null;
1388: end;
1389: --
1390: hr_utility.set_location('payplnk.set_header_status',20);
1391: --
1392: -- The status of each batch total is set according to the outcome
1393: -- of the validation carried out for the particular total.
1394: --
1413: when no_data_found then
1414: null;
1415: end;
1416: --
1417: hr_utility.set_location('payplnk.set_header_status',30);
1418: --
1419: if l_line_match = false then
1420: --
1421: update pay_batch_control_totals ctl
1464: -- Set the global parameter to enable the triggers.
1465: payplnk.g_payplnk_call := false;
1466: --
1467: --
1468: hr_utility.set_location('payplnk.set_header_status',35);
1469: --
1470: exception
1471: when others then
1472: rollback to SHS;
1499: --
1500: begin
1501: --
1502: SAVEPOINT PU;
1503: hr_utility.set_location('payplnk.purge',5);
1504: --
1505: open csr_ovn;
1506: fetch csr_ovn into l_ovn;
1507: close csr_ovn;
1521: -- Set the global parameter to enable the triggers.
1522: payplnk.g_payplnk_call := false;
1523: --
1524: --
1525: hr_utility.set_location('payplnk.purge',8);
1526: --
1527: --
1528: /*
1529: purge_messages(p_batch_id,'Y');
1527: --
1528: /*
1529: purge_messages(p_batch_id,'Y');
1530: --
1531: hr_utility.set_location('payplnk.purge',10);
1532: --
1533: delete from pay_batch_control_totals
1534: where batch_id = p_batch_id;
1535: --
1532: --
1533: delete from pay_batch_control_totals
1534: where batch_id = p_batch_id;
1535: --
1536: hr_utility.set_location('payplnk.purge',15);
1537: --
1538: delete from pay_batch_lines
1539: where batch_id = p_batch_id;
1540: --
1537: --
1538: delete from pay_batch_lines
1539: where batch_id = p_batch_id;
1540: --
1541: hr_utility.set_location('payplnk.purge',20);
1542: --
1543: delete from pay_batch_headers
1544: where batch_id = p_batch_id;
1545: --
1542: --
1543: delete from pay_batch_headers
1544: where batch_id = p_batch_id;
1545: --
1546: hr_utility.set_location('payplnk.purge',25);
1547: --
1548: */
1549: --
1550: exception
1597: pragma exception_init(nopackbody,-6508);
1598: --
1599: begin
1600: --
1601: hr_utility.set_location('payplnk.validate_header',5);
1602: --
1603: select legislation_code
1604: into l_legislation_code
1605: from per_business_groups_perf
1618: SAVEPOINT BH;
1619: --
1620: -- commit;
1621: --
1622: hr_utility.set_location('payplnk.validate_header',10);
1623: --
1624: -- Check if transferred record(s) exist in the batch, if so, terminate
1625: -- validation with an appropriate message.
1626: --
1643: when no_data_found then
1644: null;
1645: end;
1646: --
1647: hr_utility.set_location('payplnk.validate_header',15);
1648: --
1649: if l_transfer_recs = 'x' then
1650: --
1651: -- Atleast one transferred record has been detected in the batch,
1652: -- therefore the batch will not be validated. An appropriate error
1653: -- message will be inserted into the PAY_MESSAGE_LINES table.
1654: --
1655: --
1656: hr_utility.set_message(801,'HR_7472_PLK_TRANSFERRED_RECS');
1657: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1658: l_error_text := substrb(hr_utility.get_message, 1, 240);
1659: --
1660: -- insert into pay_message_lines
1653: -- message will be inserted into the PAY_MESSAGE_LINES table.
1654: --
1655: --
1656: hr_utility.set_message(801,'HR_7472_PLK_TRANSFERRED_RECS');
1657: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1658: l_error_text := substrb(hr_utility.get_message, 1, 240);
1659: --
1660: -- insert into pay_message_lines
1661: -- (LINE_SEQUENCE,
1654: --
1655: --
1656: hr_utility.set_message(801,'HR_7472_PLK_TRANSFERRED_RECS');
1657: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1658: l_error_text := substrb(hr_utility.get_message, 1, 240);
1659: --
1660: -- insert into pay_message_lines
1661: -- (LINE_SEQUENCE,
1662: -- PAYROLL_ID,
1677: --
1678: raise core_error;
1679: end if;
1680: --
1681: hr_utility.set_location('payplnk.validate_header',20);
1682: --
1683: -- The core validation checks will be carried out first.
1684: -- Check the batch status is not already PROCESSING.
1685: --
1687: select batch_status into l_process_recs
1688: from pay_batch_headers
1689: where batch_id = p_batch_id
1690: for update;
1691: hr_utility.trace('batch_status ='||l_process_recs);
1692: hr_utility.trace('processing mode = '||g_process_mode);
1693: --
1694: -- IF batch is in processing state, lock out others processing.
1695: -- if(g_process_mode <> 'VALIDATE') then
1688: from pay_batch_headers
1689: where batch_id = p_batch_id
1690: for update;
1691: hr_utility.trace('batch_status ='||l_process_recs);
1692: hr_utility.trace('processing mode = '||g_process_mode);
1693: --
1694: -- IF batch is in processing state, lock out others processing.
1695: -- if(g_process_mode <> 'VALIDATE') then
1696: if(l_process_recs = 'P') then
1694: -- IF batch is in processing state, lock out others processing.
1695: -- if(g_process_mode <> 'VALIDATE') then
1696: if(l_process_recs = 'P') then
1697: rollback to A; -- release lock
1698: hr_utility.trace('batch is in processing state');
1699: hr_utility.set_message(801,'HR_MIX_289133_PROCESS_STATE');
1700: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1701: l_error_text := substrb(hr_utility.get_message, 1, 240);
1702: --
1695: -- if(g_process_mode <> 'VALIDATE') then
1696: if(l_process_recs = 'P') then
1697: rollback to A; -- release lock
1698: hr_utility.trace('batch is in processing state');
1699: hr_utility.set_message(801,'HR_MIX_289133_PROCESS_STATE');
1700: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1701: l_error_text := substrb(hr_utility.get_message, 1, 240);
1702: --
1703: -- insert into pay_message_lines
1696: if(l_process_recs = 'P') then
1697: rollback to A; -- release lock
1698: hr_utility.trace('batch is in processing state');
1699: hr_utility.set_message(801,'HR_MIX_289133_PROCESS_STATE');
1700: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1701: l_error_text := substrb(hr_utility.get_message, 1, 240);
1702: --
1703: -- insert into pay_message_lines
1704: -- (LINE_SEQUENCE,
1697: rollback to A; -- release lock
1698: hr_utility.trace('batch is in processing state');
1699: hr_utility.set_message(801,'HR_MIX_289133_PROCESS_STATE');
1700: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1701: l_error_text := substrb(hr_utility.get_message, 1, 240);
1702: --
1703: -- insert into pay_message_lines
1704: -- (LINE_SEQUENCE,
1705: -- PAYROLL_ID,
1730: -- where bah.batch_id = p_batch_id;
1731: -- commit;
1732: -- end if;
1733: --
1734: hr_utility.set_location('payplnk.validate_header',25);
1735: --
1736: update pay_batch_control_totals bac
1737: set bac.control_status = 'U'
1738: where bac.batch_id = p_batch_id
1737: set bac.control_status = 'U'
1738: where bac.batch_id = p_batch_id
1739: and bac.control_status <> 'T';
1740: --
1741: hr_utility.set_location('payplnk.validate_header',30);
1742: --
1743: update pay_batch_lines bal
1744: set bal.batch_line_status = 'U'
1745: where bal.batch_id = p_batch_id
1746: and bal.batch_line_status <> 'T';
1747: --
1748: -- commit;
1749: --
1750: hr_utility.set_location('payplnk.validate_header',35);
1751: --
1752: if l_process_recs <> 'T' then
1753: --
1754: open csr_header(p_batch_id);
1775: --
1776: --
1777: -- call legislative header check hook if required
1778: --
1779: hr_utility.set_location('payplnk.validate_header',36);
1780: if p_leg_header_check = TRUE then
1781: --
1782: begin
1783: statem := 'BEGIN
1810: -- update pay_batch_headers bah
1811: -- set bah.batch_status = 'E'
1812: -- where current of csr_header;
1813: --
1814: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
1815: hr_utility.set_message_token('USER_PROCEDURE',
1816: 'the legislative batch header procedure');
1817: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1818: --
1811: -- set bah.batch_status = 'E'
1812: -- where current of csr_header;
1813: --
1814: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
1815: hr_utility.set_message_token('USER_PROCEDURE',
1816: 'the legislative batch header procedure');
1817: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1818: --
1819: hr_utility.trace(sqlerrm);
1813: --
1814: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
1815: hr_utility.set_message_token('USER_PROCEDURE',
1816: 'the legislative batch header procedure');
1817: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1818: --
1819: hr_utility.trace(sqlerrm);
1820: -- insert into pay_message_lines
1821: -- (LINE_SEQUENCE,
1815: hr_utility.set_message_token('USER_PROCEDURE',
1816: 'the legislative batch header procedure');
1817: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1818: --
1819: hr_utility.trace(sqlerrm);
1820: -- insert into pay_message_lines
1821: -- (LINE_SEQUENCE,
1822: -- PAYROLL_ID,
1823: -- MESSAGE_LEVEL,
1842: -- update pay_batch_headers bah
1843: -- set bah.batch_status = 'E'
1844: -- where current of csr_header;
1845: --
1846: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
1847: hr_utility.set_message_token('USER_PROCEDURE',
1848: 'the legislative batch header procedure');
1849: l_error_text := substrb((hr_utility.get_message||' '||l_leg_message),1,240);
1850: --
1843: -- set bah.batch_status = 'E'
1844: -- where current of csr_header;
1845: --
1846: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
1847: hr_utility.set_message_token('USER_PROCEDURE',
1848: 'the legislative batch header procedure');
1849: l_error_text := substrb((hr_utility.get_message||' '||l_leg_message),1,240);
1850: --
1851: -- insert into pay_message_lines
1845: --
1846: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
1847: hr_utility.set_message_token('USER_PROCEDURE',
1848: 'the legislative batch header procedure');
1849: l_error_text := substrb((hr_utility.get_message||' '||l_leg_message),1,240);
1850: --
1851: -- insert into pay_message_lines
1852: -- (LINE_SEQUENCE,
1853: -- PAYROLL_ID,
1875: --
1876: l_user_status := 'V';
1877: g_user_status := l_user_status;
1878: --
1879: hr_utility.set_location('payplnk.validate_header',40);
1880: --
1881: begin
1882: pay_user_check.validate_header (
1883: p_batch_id,
1883: p_batch_id,
1884: l_user_status,
1885: l_user_message);
1886: --
1887: hr_utility.set_location('payplnk.validate_header',45);
1888: --
1889: exception
1890: when nopackbody then
1891: --
1896: -- update pay_batch_headers bah
1897: -- set bah.batch_status = 'E'
1898: -- where current of csr_header;
1899: --
1900: hr_utility.set_message(801,'HR_7450_PLK_PACK_BODY_NOT_EXST');
1901: l_error_text := substrb(hr_utility.get_message, 1, 240);
1902: --
1903: -- insert into pay_message_lines
1904: -- (LINE_SEQUENCE,
1897: -- set bah.batch_status = 'E'
1898: -- where current of csr_header;
1899: --
1900: hr_utility.set_message(801,'HR_7450_PLK_PACK_BODY_NOT_EXST');
1901: l_error_text := substrb(hr_utility.get_message, 1, 240);
1902: --
1903: -- insert into pay_message_lines
1904: -- (LINE_SEQUENCE,
1905: -- PAYROLL_ID,
1926: -- update pay_batch_headers bah
1927: -- set bah.batch_status = 'E'
1928: -- where current of csr_header;
1929: --
1930: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
1931: hr_utility.set_message_token('USER_PROCEDURE',
1932: 'the user batch header procedure');
1933: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1934: --
1927: -- set bah.batch_status = 'E'
1928: -- where current of csr_header;
1929: --
1930: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
1931: hr_utility.set_message_token('USER_PROCEDURE',
1932: 'the user batch header procedure');
1933: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1934: --
1935: -- insert into pay_message_lines
1929: --
1930: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
1931: hr_utility.set_message_token('USER_PROCEDURE',
1932: 'the user batch header procedure');
1933: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1934: --
1935: -- insert into pay_message_lines
1936: -- (LINE_SEQUENCE,
1937: -- PAYROLL_ID,
1952: --
1953: raise user_error;
1954: end;
1955: --
1956: hr_utility.set_location('payplnk.validate_header',50);
1957: --
1958: -- If a status has not been returned raise an error.
1959: --
1960: if l_user_status is null then
1962: -- update pay_batch_headers bah
1963: -- set bah.batch_status = 'E'
1964: -- where current of csr_header;
1965: --
1966: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
1967: hr_utility.set_message_token('USER_PROCEDURE',
1968: 'the user batch header procedure');
1969: l_error_text := substrb(hr_utility.get_message, 1, 240);
1970: --
1963: -- set bah.batch_status = 'E'
1964: -- where current of csr_header;
1965: --
1966: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
1967: hr_utility.set_message_token('USER_PROCEDURE',
1968: 'the user batch header procedure');
1969: l_error_text := substrb(hr_utility.get_message, 1, 240);
1970: --
1971: -- insert into pay_message_lines
1965: --
1966: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
1967: hr_utility.set_message_token('USER_PROCEDURE',
1968: 'the user batch header procedure');
1969: l_error_text := substrb(hr_utility.get_message, 1, 240);
1970: --
1971: -- insert into pay_message_lines
1972: -- (LINE_SEQUENCE,
1973: -- PAYROLL_ID,
1998: --
1999: -- update pay_batch_headers bah
2000: -- set bah.batch_status = 'E'
2001: -- where current of csr_header;
2002: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
2003: hr_utility.set_message_token('USER_PROCEDURE',
2004: 'the user batch header procedure');
2005: l_error_text := substrb(hr_utility.get_message, 1, 240);
2006: --
1999: -- update pay_batch_headers bah
2000: -- set bah.batch_status = 'E'
2001: -- where current of csr_header;
2002: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
2003: hr_utility.set_message_token('USER_PROCEDURE',
2004: 'the user batch header procedure');
2005: l_error_text := substrb(hr_utility.get_message, 1, 240);
2006: --
2007: -- insert into pay_message_lines
2001: -- where current of csr_header;
2002: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
2003: hr_utility.set_message_token('USER_PROCEDURE',
2004: 'the user batch header procedure');
2005: l_error_text := substrb(hr_utility.get_message, 1, 240);
2006: --
2007: -- insert into pay_message_lines
2008: -- (LINE_SEQUENCE,
2009: -- PAYROLL_ID,
2034: -- update pay_batch_headers bah
2035: -- set bah.batch_status = 'E'
2036: -- where current of csr_header;
2037: --
2038: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
2039: hr_utility.set_message_token('USER_PROCEDURE',
2040: 'the user batch header procedure');
2041: l_error_text := substrb(hr_utility.get_message, 1, 240);
2042: --
2035: -- set bah.batch_status = 'E'
2036: -- where current of csr_header;
2037: --
2038: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
2039: hr_utility.set_message_token('USER_PROCEDURE',
2040: 'the user batch header procedure');
2041: l_error_text := substrb(hr_utility.get_message, 1, 240);
2042: --
2043: -- insert into pay_message_lines
2037: --
2038: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
2039: hr_utility.set_message_token('USER_PROCEDURE',
2040: 'the user batch header procedure');
2041: l_error_text := substrb(hr_utility.get_message, 1, 240);
2042: --
2043: -- insert into pay_message_lines
2044: -- (LINE_SEQUENCE,
2045: -- PAYROLL_ID,
2119: --
2120: close csr_header;
2121: --
2122: end if;
2123: hr_utility.set_location('payplnk.validate_header',55);
2124: --
2125: exception
2126: when column_is_null then
2127: --
2132: -- update pay_batch_headers bah
2133: -- set bah.batch_status = 'E'
2134: -- where current of csr_header;
2135: --
2136: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
2137: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2138: l_error_text := substrb(hr_utility.get_message, 1, 240);
2139: --
2140: -- insert into pay_message_lines
2133: -- set bah.batch_status = 'E'
2134: -- where current of csr_header;
2135: --
2136: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
2137: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2138: l_error_text := substrb(hr_utility.get_message, 1, 240);
2139: --
2140: -- insert into pay_message_lines
2141: -- (LINE_SEQUENCE,
2134: -- where current of csr_header;
2135: --
2136: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
2137: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2138: l_error_text := substrb(hr_utility.get_message, 1, 240);
2139: --
2140: -- insert into pay_message_lines
2141: -- (LINE_SEQUENCE,
2142: -- PAYROLL_ID,
2167: -- update pay_batch_headers bah
2168: -- set bah.batch_status = 'E'
2169: -- where current of csr_header;
2170: --
2171: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
2172: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2173: l_error_text := substrb(hr_utility.get_message, 1, 240);
2174: --
2175: -- insert into pay_message_lines
2168: -- set bah.batch_status = 'E'
2169: -- where current of csr_header;
2170: --
2171: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
2172: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2173: l_error_text := substrb(hr_utility.get_message, 1, 240);
2174: --
2175: -- insert into pay_message_lines
2176: -- (LINE_SEQUENCE,
2169: -- where current of csr_header;
2170: --
2171: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
2172: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2173: l_error_text := substrb(hr_utility.get_message, 1, 240);
2174: --
2175: -- insert into pay_message_lines
2176: -- (LINE_SEQUENCE,
2177: -- PAYROLL_ID,
2255: g_ctl_id_tbl.delete;
2256: g_ctl_stat_tbl.delete;
2257: g_ctl_mess_tbl.delete;
2258: --
2259: hr_utility.set_location('payplnk.validate_controls',5);
2260: --
2261: -- Check to see if user defined control types exist.
2262: --
2263: begin
2282: raise control_types_not_defined;
2283: --
2284: end;
2285: --
2286: hr_utility.set_location('payplnk.validate_controls',10);
2287: --
2288: -- Otherwise validate the batch control details.
2289: --
2290: for g_control_record in csr_all_controls(p_batch_id) loop
2307: hr_general.end_of_time)
2308: and hlk.enabled_flag = 'Y'
2309: and upper(g_control_record.control_type) in (hlk.lookup_code);
2310: --
2311: hr_utility.set_location('payplnk.validate_controls',15);
2312: --
2313: exception
2314: when no_data_found then
2315: raise invalid_value;
2343: from hr_lookups hlk -- control type exists so we can select meaning
2344: where hlk.lookup_type = 'CONTROL_TYPE'
2345: and hlk.lookup_code = g_control_record.control_type;
2346:
2347: hr_utility.set_message(801,'HR_34854_ERROR_IN_STD_TOTALS');
2348: hr_utility.set_message_token('NAME_OF_ENTITY_TO_SUM',l_std_message);
2349: l_error_text:=rpad(hr_utility.get_message||' '||sqlerrm,255);
2350:
2351: -- insert into pay_message_lines
2344: where hlk.lookup_type = 'CONTROL_TYPE'
2345: and hlk.lookup_code = g_control_record.control_type;
2346:
2347: hr_utility.set_message(801,'HR_34854_ERROR_IN_STD_TOTALS');
2348: hr_utility.set_message_token('NAME_OF_ENTITY_TO_SUM',l_std_message);
2349: l_error_text:=rpad(hr_utility.get_message||' '||sqlerrm,255);
2350:
2351: -- insert into pay_message_lines
2352: -- (LINE_SEQUENCE,
2345: and hlk.lookup_code = g_control_record.control_type;
2346:
2347: hr_utility.set_message(801,'HR_34854_ERROR_IN_STD_TOTALS');
2348: hr_utility.set_message_token('NAME_OF_ENTITY_TO_SUM',l_std_message);
2349: l_error_text:=rpad(hr_utility.get_message||' '||sqlerrm,255);
2350:
2351: -- insert into pay_message_lines
2352: -- (LINE_SEQUENCE,
2353: -- PAYROLL_ID,
2427: g_control_record.control_total,
2428: l_user_status,
2429: l_user_message);
2430: --
2431: hr_utility.set_location('payplnk.validate_controls',20);
2432: --
2433: exception
2434: --
2435: -- If an unhandled error occurred during the user control validation
2441: -- update pay_batch_control_totals bac
2442: -- set bac.control_status = 'E'
2443: -- where current of csr_all_controls;
2444: --
2445: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
2446: hr_utility.set_message_token('USER_PROCEDURE',
2447: 'the user batch control procedure');
2448: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
2449: --
2442: -- set bac.control_status = 'E'
2443: -- where current of csr_all_controls;
2444: --
2445: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
2446: hr_utility.set_message_token('USER_PROCEDURE',
2447: 'the user batch control procedure');
2448: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
2449: --
2450: -- insert into pay_message_lines
2444: --
2445: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
2446: hr_utility.set_message_token('USER_PROCEDURE',
2447: 'the user batch control procedure');
2448: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
2449: --
2450: -- insert into pay_message_lines
2451: -- (LINE_SEQUENCE,
2452: -- PAYROLL_ID,
2468: --
2469: raise user_control_error;
2470: end;
2471: --
2472: hr_utility.set_location('payplnk.validate_controls',25);
2473: --
2474: -- If a status has not been returned raise an error.
2475: --
2476: if l_user_status is null then
2478: -- update pay_batch_control_totals bac
2479: -- set bac.control_status = 'E'
2480: -- where current of csr_all_controls;
2481: --
2482: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
2483: hr_utility.set_message_token('USER_PROCEDURE',
2484: 'the user batch control procedure');
2485: l_error_text := substrb(hr_utility.get_message, 1, 240);
2486: --
2479: -- set bac.control_status = 'E'
2480: -- where current of csr_all_controls;
2481: --
2482: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
2483: hr_utility.set_message_token('USER_PROCEDURE',
2484: 'the user batch control procedure');
2485: l_error_text := substrb(hr_utility.get_message, 1, 240);
2486: --
2487: -- insert into pay_message_lines
2481: --
2482: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
2483: hr_utility.set_message_token('USER_PROCEDURE',
2484: 'the user batch control procedure');
2485: l_error_text := substrb(hr_utility.get_message, 1, 240);
2486: --
2487: -- insert into pay_message_lines
2488: -- (LINE_SEQUENCE,
2489: -- PAYROLL_ID,
2515: -- update pay_batch_control_totals bac
2516: -- set bac.control_status = 'E'
2517: -- where current of csr_all_controls;
2518: --
2519: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
2520: hr_utility.set_message_token('USER_PROCEDURE',
2521: 'the user batch control procedure');
2522: l_error_text := substrb(hr_utility.get_message, 1, 240);
2523: --
2516: -- set bac.control_status = 'E'
2517: -- where current of csr_all_controls;
2518: --
2519: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
2520: hr_utility.set_message_token('USER_PROCEDURE',
2521: 'the user batch control procedure');
2522: l_error_text := substrb(hr_utility.get_message, 1, 240);
2523: --
2524: -- insert into pay_message_lines
2518: --
2519: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
2520: hr_utility.set_message_token('USER_PROCEDURE',
2521: 'the user batch control procedure');
2522: l_error_text := substrb(hr_utility.get_message, 1, 240);
2523: --
2524: -- insert into pay_message_lines
2525: -- (LINE_SEQUENCE,
2526: -- PAYROLL_ID,
2552: -- update pay_batch_control_totals bac
2553: -- set bac.control_status = 'E'
2554: -- where current of csr_all_controls;
2555: --
2556: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
2557: hr_utility.set_message_token('USER_PROCEDURE',
2558: 'the user batch control procedure');
2559: l_error_text := substrb(hr_utility.get_message, 1, 240);
2560: --
2553: -- set bac.control_status = 'E'
2554: -- where current of csr_all_controls;
2555: --
2556: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
2557: hr_utility.set_message_token('USER_PROCEDURE',
2558: 'the user batch control procedure');
2559: l_error_text := substrb(hr_utility.get_message, 1, 240);
2560: --
2561: -- insert into pay_message_lines
2555: --
2556: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
2557: hr_utility.set_message_token('USER_PROCEDURE',
2558: 'the user batch control procedure');
2559: l_error_text := substrb(hr_utility.get_message, 1, 240);
2560: --
2561: -- insert into pay_message_lines
2562: -- (LINE_SEQUENCE,
2563: -- PAYROLL_ID,
2629: end if;
2630: --
2631: end if;
2632: --
2633: hr_utility.set_location('payplnk.validate_controls',30);
2634:
2635: -- end section dealing with user defined controls as opposed to standard controls
2636: end if;
2637: --
2646: -- update pay_batch_control_totals bac
2647: -- set bac.control_status = 'E'
2648: -- where current of csr_all_controls;
2649: --
2650: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
2651: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2652: l_error_text := substrb(hr_utility.get_message, 1, 240);
2653: --
2654: -- insert into pay_message_lines
2647: -- set bac.control_status = 'E'
2648: -- where current of csr_all_controls;
2649: --
2650: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
2651: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2652: l_error_text := substrb(hr_utility.get_message, 1, 240);
2653: --
2654: -- insert into pay_message_lines
2655: -- (LINE_SEQUENCE,
2648: -- where current of csr_all_controls;
2649: --
2650: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
2651: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2652: l_error_text := substrb(hr_utility.get_message, 1, 240);
2653: --
2654: -- insert into pay_message_lines
2655: -- (LINE_SEQUENCE,
2656: -- PAYROLL_ID,
2679: -- update pay_batch_control_totals bac
2680: -- set bac.control_status = 'E'
2681: -- where current of csr_all_controls;
2682: --
2683: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
2684: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2685: l_error_text := substrb(hr_utility.get_message, 1, 240);
2686: --
2687: -- insert into pay_message_lines
2680: -- set bac.control_status = 'E'
2681: -- where current of csr_all_controls;
2682: --
2683: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
2684: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2685: l_error_text := substrb(hr_utility.get_message, 1, 240);
2686: --
2687: -- insert into pay_message_lines
2688: -- (LINE_SEQUENCE,
2681: -- where current of csr_all_controls;
2682: --
2683: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
2684: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2685: l_error_text := substrb(hr_utility.get_message, 1, 240);
2686: --
2687: -- insert into pay_message_lines
2688: -- (LINE_SEQUENCE,
2689: -- PAYROLL_ID,
2709: --
2710: end;
2711: end loop;
2712: --
2713: hr_utility.set_location('payplnk.validate_controls',35);
2714: --
2715: exception
2716: --
2717: when control_types_not_defined then
2723: -- update pay_batch_control_totals bac
2724: -- set bac.control_status = 'E'
2725: -- where current of csr_all_controls;
2726: --
2727: hr_utility.set_message(801,'HR_7477_PLK_NO_CONTROL_TYPES');
2728: l_error_text := substrb(hr_utility.get_message, 1, 240);
2729: --
2730: -- insert into pay_message_lines
2731: -- (LINE_SEQUENCE,
2724: -- set bac.control_status = 'E'
2725: -- where current of csr_all_controls;
2726: --
2727: hr_utility.set_message(801,'HR_7477_PLK_NO_CONTROL_TYPES');
2728: l_error_text := substrb(hr_utility.get_message, 1, 240);
2729: --
2730: -- insert into pay_message_lines
2731: -- (LINE_SEQUENCE,
2732: -- PAYROLL_ID,
3026: l_bee_iv_upgrade varchar2(1);
3027: --
3028: begin
3029: --
3030: hr_utility.set_location('payplnk.validate_lines',5);
3031: -- Added the following call as part of the fix to the bug#7138224.
3032: fnd_profile.put('PER_ASSIGNMENT_ID',p_asg_id);
3033: --
3034: --Only validate batch lines if there are no eerrors in batch header or control totals.
3103: --
3104: -- Check whether the upgrade process is in progress.
3105: --
3106: if l_bee_iv_upgrade = 'E' then
3107: hr_utility.set_message(800, 'HR_449106_BEE_UPGRADING');
3108: hr_utility.raise_error;
3109: end if;
3110: --
3111: open csr_bl_header(p_batch_id);
3104: -- Check whether the upgrade process is in progress.
3105: --
3106: if l_bee_iv_upgrade = 'E' then
3107: hr_utility.set_message(800, 'HR_449106_BEE_UPGRADING');
3108: hr_utility.raise_error;
3109: end if;
3110: --
3111: open csr_bl_header(p_batch_id);
3112: fetch csr_bl_header into g_header_record;
3236: l_creator_type := 'H';
3237: l_absence_attendance_id := 0;
3238: absence_entry_already_created := false;
3239: --
3240: hr_utility.set_location('payplnk.validate_lines',10);
3241: -- Moving the following code into the validate procedure.
3242: -- --
3243: -- -- Carry out the core line validation checks.
3244: -- --
3283: when no_data_found then
3284: g_line_error := true;
3285: g_count := g_count + 1;
3286: --
3287: hr_utility.set_message(801,'HR_7465_PLK_NOT_ELGBLE_ELE_NME');
3288: hr_utility.set_message_token('ELEMENT_NAME',
3289: g_line_record.element_name);
3290: l_error_text := substrb(hr_utility.get_message, 1, 240);
3291: --
3284: g_line_error := true;
3285: g_count := g_count + 1;
3286: --
3287: hr_utility.set_message(801,'HR_7465_PLK_NOT_ELGBLE_ELE_NME');
3288: hr_utility.set_message_token('ELEMENT_NAME',
3289: g_line_record.element_name);
3290: l_error_text := substrb(hr_utility.get_message, 1, 240);
3291: --
3292: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3286: --
3287: hr_utility.set_message(801,'HR_7465_PLK_NOT_ELGBLE_ELE_NME');
3288: hr_utility.set_message_token('ELEMENT_NAME',
3289: g_line_record.element_name);
3290: l_error_text := substrb(hr_utility.get_message, 1, 240);
3291: --
3292: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3293: l_status_tbl(g_count) :='F';
3294: l_message_tbl(g_count) := l_error_text;
3295: --
3296: raise line_error_occurred;
3297: end;
3298: --
3299: hr_utility.set_location('payplnk.validate_lines',15);
3300: --
3301: -- If neither an element type id or element name has been entered,
3302: -- raise error.
3303: --
3328: when no_data_found then
3329: g_line_error := true;
3330: g_count := g_count + 1;
3331: --
3332: hr_utility.set_message(801,'HR_7478_PLK_INCONSISTENT_ELE');
3333: hr_utility.set_message_token('ELEMENT_TYPE_ID',
3334: g_line_record.element_type_id);
3335: hr_utility.set_message_token('ELEMENT_NAME',
3336: g_line_record.element_name);
3329: g_line_error := true;
3330: g_count := g_count + 1;
3331: --
3332: hr_utility.set_message(801,'HR_7478_PLK_INCONSISTENT_ELE');
3333: hr_utility.set_message_token('ELEMENT_TYPE_ID',
3334: g_line_record.element_type_id);
3335: hr_utility.set_message_token('ELEMENT_NAME',
3336: g_line_record.element_name);
3337: --
3331: --
3332: hr_utility.set_message(801,'HR_7478_PLK_INCONSISTENT_ELE');
3333: hr_utility.set_message_token('ELEMENT_TYPE_ID',
3334: g_line_record.element_type_id);
3335: hr_utility.set_message_token('ELEMENT_NAME',
3336: g_line_record.element_name);
3337: --
3338: l_error_text := substrb(hr_utility.get_message, 1, 240);
3339: --
3334: g_line_record.element_type_id);
3335: hr_utility.set_message_token('ELEMENT_NAME',
3336: g_line_record.element_name);
3337: --
3338: l_error_text := substrb(hr_utility.get_message, 1, 240);
3339: --
3340: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3341: l_status_tbl(g_count) :='F';
3342: l_message_tbl(g_count) := l_error_text;
3343: --
3344: raise line_error_occurred;
3345: end;
3346: --
3347: hr_utility.set_location('payplnk.validate_lines',20);
3348: --
3349: -- If only an element type id has been entered, ensure it is valid.
3350: --
3351: else
3366: when no_data_found then
3367: g_line_error := true;
3368: g_count := g_count + 1;
3369: --
3370: hr_utility.set_message(801,'HR_7464_PLK_NOT_ELGBLE_ELE_TYP');
3371: hr_utility.set_message_token('ELEMENT_TYPE_ID',
3372: g_line_record.element_type_id);
3373: l_error_text := substrb(hr_utility.get_message, 1, 240);
3374: --
3367: g_line_error := true;
3368: g_count := g_count + 1;
3369: --
3370: hr_utility.set_message(801,'HR_7464_PLK_NOT_ELGBLE_ELE_TYP');
3371: hr_utility.set_message_token('ELEMENT_TYPE_ID',
3372: g_line_record.element_type_id);
3373: l_error_text := substrb(hr_utility.get_message, 1, 240);
3374: --
3375: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3369: --
3370: hr_utility.set_message(801,'HR_7464_PLK_NOT_ELGBLE_ELE_TYP');
3371: hr_utility.set_message_token('ELEMENT_TYPE_ID',
3372: g_line_record.element_type_id);
3373: l_error_text := substrb(hr_utility.get_message, 1, 240);
3374: --
3375: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3376: l_status_tbl(g_count) :='F';
3377: l_message_tbl(g_count) := l_error_text;
3379: raise line_error_occurred;
3380: end;
3381: end if;
3382: --
3383: hr_utility.set_location('payplnk.validate_lines',25);
3384: -- Moving the following code into the validate procedure.
3385: -- --
3386: -- -- Ensure valid assignment details have been entered.
3387: -- --
3428: -- when no_data_found then
3429: -- g_line_error := true;
3430: -- g_count := g_count +1;
3431: -- --
3432: -- hr_utility.set_message(801,'HR_7466_PLK_NOT_ELGBLE_ASS_NUM');
3433: -- hr_utility.set_message_token('ASSIGNMENT_NUMBER',
3434: -- g_line_record.assignment_number);
3435: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3436: -- --
3429: -- g_line_error := true;
3430: -- g_count := g_count +1;
3431: -- --
3432: -- hr_utility.set_message(801,'HR_7466_PLK_NOT_ELGBLE_ASS_NUM');
3433: -- hr_utility.set_message_token('ASSIGNMENT_NUMBER',
3434: -- g_line_record.assignment_number);
3435: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3436: -- --
3437: -- l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3431: -- --
3432: -- hr_utility.set_message(801,'HR_7466_PLK_NOT_ELGBLE_ASS_NUM');
3433: -- hr_utility.set_message_token('ASSIGNMENT_NUMBER',
3434: -- g_line_record.assignment_number);
3435: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3436: -- --
3437: -- l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3438: -- l_status_tbl(g_count) :='F';
3439: -- l_message_tbl(g_count) := l_error_text;
3440: -- --
3441: -- raise line_error_occurred;
3442: -- end;
3443: -- --
3444: -- hr_utility.set_location('payplnk.validate_lines',30);
3445: -- --
3446: -- -- If both assignment id and assignment number are null, raise error.
3447: -- --
3448: -- elsif (g_line_record.assignment_id is null) and
3491: -- when no_data_found then
3492: -- g_line_error := true;
3493: -- g_count := g_count + 1;
3494: -- --
3495: -- hr_utility.set_message(801,'HR_7479_PLK_INCONSISTENT_ASS');
3496: -- hr_utility.set_message_token('ASSIGNMENT_ID',
3497: -- g_line_record.assignment_id);
3498: -- hr_utility.set_message_token('ASSIGNMENT_NUMBER',
3499: -- g_line_record.assignment_number);
3492: -- g_line_error := true;
3493: -- g_count := g_count + 1;
3494: -- --
3495: -- hr_utility.set_message(801,'HR_7479_PLK_INCONSISTENT_ASS');
3496: -- hr_utility.set_message_token('ASSIGNMENT_ID',
3497: -- g_line_record.assignment_id);
3498: -- hr_utility.set_message_token('ASSIGNMENT_NUMBER',
3499: -- g_line_record.assignment_number);
3500: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3494: -- --
3495: -- hr_utility.set_message(801,'HR_7479_PLK_INCONSISTENT_ASS');
3496: -- hr_utility.set_message_token('ASSIGNMENT_ID',
3497: -- g_line_record.assignment_id);
3498: -- hr_utility.set_message_token('ASSIGNMENT_NUMBER',
3499: -- g_line_record.assignment_number);
3500: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3501: -- --
3502: -- l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3496: -- hr_utility.set_message_token('ASSIGNMENT_ID',
3497: -- g_line_record.assignment_id);
3498: -- hr_utility.set_message_token('ASSIGNMENT_NUMBER',
3499: -- g_line_record.assignment_number);
3500: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3501: -- --
3502: -- l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3503: -- l_status_tbl(g_count) :='F';
3504: -- l_message_tbl(g_count) := l_error_text;
3505: -- --
3506: -- raise line_error_occurred;
3507: -- end;
3508: -- --
3509: -- hr_utility.set_location('payplnk.validate_lines',35);
3510: -- --
3511: -- -- If only an assignment id has been entered, ensure that it is valid.
3512: -- --
3513: -- else
3524: -- when no_data_found then
3525: -- g_line_error := true;
3526: -- g_count := g_count + 1;
3527: -- --
3528: -- hr_utility.set_message(801,'HR_7467_PLK_NOT_ELGBLE_ASS_ID');
3529: -- hr_utility.set_message_token('ASSIGNMENT_ID',
3530: -- g_line_record.assignment_id);
3531: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3532: -- --
3525: -- g_line_error := true;
3526: -- g_count := g_count + 1;
3527: -- --
3528: -- hr_utility.set_message(801,'HR_7467_PLK_NOT_ELGBLE_ASS_ID');
3529: -- hr_utility.set_message_token('ASSIGNMENT_ID',
3530: -- g_line_record.assignment_id);
3531: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3532: -- --
3533: -- l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3527: -- --
3528: -- hr_utility.set_message(801,'HR_7467_PLK_NOT_ELGBLE_ASS_ID');
3529: -- hr_utility.set_message_token('ASSIGNMENT_ID',
3530: -- g_line_record.assignment_id);
3531: -- l_error_text := substrb(hr_utility.get_message, 1, 240);
3532: -- --
3533: -- l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3534: -- l_status_tbl(g_count) :='F';
3535: -- l_message_tbl(g_count) := l_error_text;
3537: -- raise line_error_occurred;
3538: -- end;
3539: -- end if;
3540: --
3541: hr_utility.set_location('payplnk.validate_lines',40);
3542: --
3543: -- Validate the entry values, if entered.
3544: --
3545: l_entry_value_tbl(1) := g_line_record.value_1;
3580: --
3581: -- Checks whether the upgrade has been performed.
3582: --
3583: if l_bee_iv_upgrade = 'N' THEN
3584: hr_utility.set_location('payplnk.validate_lines',41);
3585: --
3586: -- BEE now handles input value of date in canonical format.
3587: -- However the EE API expects the data in the DD-MON-YYYY format.
3588: -- The DD-MON-YYYY is the default format of the fnd_date.
3610: end;
3611: else
3612: -- bug no. 3734946
3613: /* l_passed_val_tbl(i) := substrb(l_entry_value_tbl(i),1,60);*/
3614: hr_utility.set_location('payplnk.validate_lines',42);
3615: l_passed_val_tbl(i) := l_entry_value_tbl(i);
3616: end if;
3617: --
3618: else
3622: l_uom,
3623: l_lookup_type,
3624: l_value_set_id,
3625: l_input_curr_code),1,60); */
3626: hr_utility.set_location('payplnk.validate_lines',43);
3627: l_passed_val_tbl(i) := convert_internal_to_display(l_entry_value_tbl(i),
3628: l_uom,
3629: l_lookup_type,
3630: l_value_set_id,
3628: l_uom,
3629: l_lookup_type,
3630: l_value_set_id,
3631: l_input_curr_code);
3632: hr_utility.set_location('payplnk.validate_lines',44);
3633: --
3634: end if;
3635: --
3636: else
3636: else
3637: l_passed_val_tbl(i) := null;
3638: end if;
3639: --
3640: hr_utility.trace('INPUT VALUE ID :'||l_passed_inp_tbl(i));
3641: hr_utility.trace('INPUT VALUE :'||l_passed_val_tbl(i));
3642: --
3643: c_entry_values := c_entry_values + 1;
3644:
3637: l_passed_val_tbl(i) := null;
3638: end if;
3639: --
3640: hr_utility.trace('INPUT VALUE ID :'||l_passed_inp_tbl(i));
3641: hr_utility.trace('INPUT VALUE :'||l_passed_val_tbl(i));
3642: --
3643: c_entry_values := c_entry_values + 1;
3644:
3645: -- Exit the loop if it has reached the 15th input value.
3649:
3650: end loop;
3651: close csr_table_inp_ids;
3652: --
3653: hr_utility.set_location('payplnk.validate_lines',45);
3654: --
3655: -- If there are no input value ids for the element type or the
3656: -- entry values exceed the number of input value id(s) , raise an error.
3657: --
3668: raise invalid_entry_value;
3669: end if;
3670: end loop;
3671: --
3672: hr_utility.set_location('payplnk.validate_lines', 50);
3673: --
3674: -- Retrieve the link id for the element type and assignment combination.
3675: --
3676: hr_utility.trace('ASS: '||g_line_record.assignment_id);
3672: hr_utility.set_location('payplnk.validate_lines', 50);
3673: --
3674: -- Retrieve the link id for the element type and assignment combination.
3675: --
3676: hr_utility.trace('ASS: '||g_line_record.assignment_id);
3677: hr_utility.trace('ETI: '||g_line_record.element_type_id);
3678: hr_utility.trace('EDT: '||g_line_record.effective_date);
3679: hr_utility.trace('LLI: '||l_link_id);
3680: hr_utility.trace('END');
3673: --
3674: -- Retrieve the link id for the element type and assignment combination.
3675: --
3676: hr_utility.trace('ASS: '||g_line_record.assignment_id);
3677: hr_utility.trace('ETI: '||g_line_record.element_type_id);
3678: hr_utility.trace('EDT: '||g_line_record.effective_date);
3679: hr_utility.trace('LLI: '||l_link_id);
3680: hr_utility.trace('END');
3681: --
3674: -- Retrieve the link id for the element type and assignment combination.
3675: --
3676: hr_utility.trace('ASS: '||g_line_record.assignment_id);
3677: hr_utility.trace('ETI: '||g_line_record.element_type_id);
3678: hr_utility.trace('EDT: '||g_line_record.effective_date);
3679: hr_utility.trace('LLI: '||l_link_id);
3680: hr_utility.trace('END');
3681: --
3682: l_link_id := hr_entry_api.get_link(g_line_record.assignment_id,
3675: --
3676: hr_utility.trace('ASS: '||g_line_record.assignment_id);
3677: hr_utility.trace('ETI: '||g_line_record.element_type_id);
3678: hr_utility.trace('EDT: '||g_line_record.effective_date);
3679: hr_utility.trace('LLI: '||l_link_id);
3680: hr_utility.trace('END');
3681: --
3682: l_link_id := hr_entry_api.get_link(g_line_record.assignment_id,
3683: g_line_record.element_type_id,
3676: hr_utility.trace('ASS: '||g_line_record.assignment_id);
3677: hr_utility.trace('ETI: '||g_line_record.element_type_id);
3678: hr_utility.trace('EDT: '||g_line_record.effective_date);
3679: hr_utility.trace('LLI: '||l_link_id);
3680: hr_utility.trace('END');
3681: --
3682: l_link_id := hr_entry_api.get_link(g_line_record.assignment_id,
3683: g_line_record.element_type_id,
3684: g_line_record.effective_date);
3682: l_link_id := hr_entry_api.get_link(g_line_record.assignment_id,
3683: g_line_record.element_type_id,
3684: g_line_record.effective_date);
3685: --
3686: hr_utility.set_location('payplnk.validate_lines',55);
3687: --
3688: -- Raise an error if a link does not exist on the effective date.
3689: --
3690: if l_link_id is null then
3705: or l_inpv_uom_tbl(l) = 'H_HHMMSS' or l_inpv_uom_tbl(l) = 'H_DECIMAL1'
3706: or l_inpv_uom_tbl(l) = 'H_DECIMAL2' or l_inpv_uom_tbl(l) = 'H_DECIMAL3'
3707: or l_inpv_uom_tbl(l) = 'HOURS') then
3708: --
3709: hr_utility.set_location('payplnk.validate_lines',53);
3710: --
3711: l_absence_attendance_type_id := null;
3712: --
3713: -- The hours input value may be associated with an Absence
3737: -- exception
3738: -- when no_data_found then null;
3739: -- end;
3740: --
3741: hr_utility.set_location('payplnk.validate_lines',54);
3742: --
3743: if l_absence_attendance_type_id is not null then
3744: --
3745: l_abs_type_tbl(l) := l_absence_attendance_type_id;
3747: l_creator_type := 'A';
3748: --
3749: end if;
3750: --
3751: hr_utility.set_location('payplnk.validate_lines',56);
3752: --
3753: --
3754: -- WW Bug# 282299
3755: -- The hours input value may also be associated with an Accrual Plan.
3767: p_asg_id => g_line_record.assignment_id,
3768: p_sess_date => g_line_record.effective_date,
3769: p_eligible => l_eligible);
3770: --
3771: hr_utility.set_location('payplnk.validate_lines',57);
3772: --
3773: if l_eligible = 'N' then
3774: hr_utility.set_location('payplnk.validate_lines',58);
3775: hr_utility.trace('Assignment is in ineligible period for this accrual plan. ');
3770: --
3771: hr_utility.set_location('payplnk.validate_lines',57);
3772: --
3773: if l_eligible = 'N' then
3774: hr_utility.set_location('payplnk.validate_lines',58);
3775: hr_utility.trace('Assignment is in ineligible period for this accrual plan. ');
3776: hr_utility.set_message(801,'PAY_7853_PDT_INELIG_ACCRUAL');
3777: hr_utility.raise_error;
3778: end if;
3771: hr_utility.set_location('payplnk.validate_lines',57);
3772: --
3773: if l_eligible = 'N' then
3774: hr_utility.set_location('payplnk.validate_lines',58);
3775: hr_utility.trace('Assignment is in ineligible period for this accrual plan. ');
3776: hr_utility.set_message(801,'PAY_7853_PDT_INELIG_ACCRUAL');
3777: hr_utility.raise_error;
3778: end if;
3779: end if;
3772: --
3773: if l_eligible = 'N' then
3774: hr_utility.set_location('payplnk.validate_lines',58);
3775: hr_utility.trace('Assignment is in ineligible period for this accrual plan. ');
3776: hr_utility.set_message(801,'PAY_7853_PDT_INELIG_ACCRUAL');
3777: hr_utility.raise_error;
3778: end if;
3779: end if;
3780: end loop;
3773: if l_eligible = 'N' then
3774: hr_utility.set_location('payplnk.validate_lines',58);
3775: hr_utility.trace('Assignment is in ineligible period for this accrual plan. ');
3776: hr_utility.set_message(801,'PAY_7853_PDT_INELIG_ACCRUAL');
3777: hr_utility.raise_error;
3778: end if;
3779: end if;
3780: end loop;
3781: --
3778: end if;
3779: end if;
3780: end loop;
3781: --
3782: hr_utility.set_location('payplnk.validate_lines',59);
3783: --
3784: -- Validate the costing details entered.
3785: --
3786: -- S.Sinha pseudo bug 493304, for performance fix for BT.
3830:
3831: if (l_costable_type = 'N') then -- { Costable_type N
3832: --
3833: g_count := g_count + 1;
3834: hr_utility.set_message(801, 'HR_7453_PLK_NON_COSTABLE_ELE');
3835: l_error_text := substrb(hr_utility.get_message, 1, 240);
3836: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3837: l_status_tbl(g_count) := 'W';
3838: l_message_tbl(g_count) := l_error_text;
3831: if (l_costable_type = 'N') then -- { Costable_type N
3832: --
3833: g_count := g_count + 1;
3834: hr_utility.set_message(801, 'HR_7453_PLK_NON_COSTABLE_ELE');
3835: l_error_text := substrb(hr_utility.get_message, 1, 240);
3836: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3837: l_status_tbl(g_count) := 'W';
3838: l_message_tbl(g_count) := l_error_text;
3839: --
3846: end if; -- } no structure
3847: --
3848: -- Retrieve/generate a cost keyflex id for the costing details.
3849: --
3850: hr_utility.set_location('payplnk.validate_lines',60);
3851: --
3852: g_line_record.cost_allocation_keyflex_id :=
3853: hr_entry.maintain_cost_keyflex(
3854: l_cost_allocation_structure,
3892: end if; -- } costable_type N else
3893: --
3894: end if; -- } costing exists
3895: --
3896: hr_utility.set_location('payplnk.validate_lines',65);
3897: --
3898: -- The batch line core validation checks have been carried out
3899: -- successfully, hence the legislative hook checks (if any) and
3900: -- then the user line validation checks can be called.
3904: -- The legislative hook to line validation should be executed here
3905: --
3906: -- call legislative header check hook if required
3907: --
3908: hr_utility.set_location('payplnk.validate_lines',66);
3909: if l_leg_line_check = TRUE then
3910: --
3911: begin
3912: hr_utility.set_location('payplnk.validate_lines',67);
3908: hr_utility.set_location('payplnk.validate_lines',66);
3909: if l_leg_line_check = TRUE then
3910: --
3911: begin
3912: hr_utility.set_location('payplnk.validate_lines',67);
3913: statem := 'BEGIN
3914: pay_'||lower(l_legislation_code)||'_bee.validate_line(:batch_line_id, :valid, :leg_message, :line_changed); END;';
3915: --
3916: if pay_core_utils.get_sql_cursor(statem,sql_curs) then
3931: end if;
3932: --
3933: exception
3934: when others then
3935: hr_utility.set_location('payplnk.validate_lines',68);
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_7481_PLK_USR_CHECK_ERROR');
3941: hr_utility.set_message_token('USER_PROCEDURE',
3942: 'the legislative batch line procedure');
3943: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
3944: --
3937: g_line_error := true;
3938: g_count := g_count + 1;
3939: --
3940: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
3941: hr_utility.set_message_token('USER_PROCEDURE',
3942: 'the legislative batch line procedure');
3943: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
3944: --
3945: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3939: --
3940: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
3941: hr_utility.set_message_token('USER_PROCEDURE',
3942: 'the legislative batch line procedure');
3943: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),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;
3949: raise line_error_occurred;
3950: end;
3951: --
3952: if l_valid = 1 then
3953: hr_utility.set_location('payplnk.validate_lines',688);
3954: --
3955: g_line_error := true;
3956: g_count := g_count + 1;
3957: --
3954: --
3955: g_line_error := true;
3956: g_count := g_count + 1;
3957: --
3958: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
3959: hr_utility.set_message_token('USER_PROCEDURE',
3960: 'the legislative batch line procedure');
3961: l_error_text := substrb((hr_utility.get_message||' '||l_leg_message),1,240);
3962: --
3955: g_line_error := true;
3956: g_count := g_count + 1;
3957: --
3958: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
3959: hr_utility.set_message_token('USER_PROCEDURE',
3960: 'the legislative batch line procedure');
3961: l_error_text := substrb((hr_utility.get_message||' '||l_leg_message),1,240);
3962: --
3963: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3957: --
3958: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
3959: hr_utility.set_message_token('USER_PROCEDURE',
3960: 'the legislative batch line procedure');
3961: l_error_text := substrb((hr_utility.get_message||' '||l_leg_message),1,240);
3962: --
3963: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
3964: l_status_tbl(g_count) := 'F';
3965: l_message_tbl(g_count) := l_error_text;
4003: --
4004: g_line_error := true;
4005: g_count := g_count + 1;
4006: --
4007: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
4008: hr_utility.set_message_token('USER_PROCEDURE',
4009: 'the user batch line procedure');
4010: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
4011: --
4004: g_line_error := true;
4005: g_count := g_count + 1;
4006: --
4007: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
4008: hr_utility.set_message_token('USER_PROCEDURE',
4009: 'the user batch line procedure');
4010: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
4011: --
4012: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4006: --
4007: hr_utility.set_message(801,'HR_7481_PLK_USR_CHECK_ERROR');
4008: hr_utility.set_message_token('USER_PROCEDURE',
4009: 'the user batch line procedure');
4010: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
4011: --
4012: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4013: l_status_tbl(g_count) := 'F';
4014: l_message_tbl(g_count) := l_error_text;
4015: --
4016: raise line_error_occurred;
4017: end;
4018: --
4019: hr_utility.set_location('payplnk.validate_lines',70);
4020: --
4021: -- If a status has not been returned raise an error.
4022: --
4023: if l_user_status is null then
4024: --
4025: g_line_error := true;
4026: g_count := g_count + 1;
4027: --
4028: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
4029: hr_utility.set_message_token('USER_PROCEDURE',
4030: 'the user batch line procedure');
4031: l_error_text := substrb(hr_utility.get_message, 1, 240);
4032: --
4025: g_line_error := true;
4026: g_count := g_count + 1;
4027: --
4028: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
4029: hr_utility.set_message_token('USER_PROCEDURE',
4030: 'the user batch line procedure');
4031: l_error_text := substrb(hr_utility.get_message, 1, 240);
4032: --
4033: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4027: --
4028: hr_utility.set_message(801,'HR_7468_PLK_USR_STATUS_NULL');
4029: hr_utility.set_message_token('USER_PROCEDURE',
4030: 'the user batch line procedure');
4031: l_error_text := substrb(hr_utility.get_message, 1, 240);
4032: --
4033: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4034: l_status_tbl(g_count) := 'F';
4035: l_message_tbl(g_count) := l_error_text;
4046: --
4047: g_line_error := true;
4048: g_count := g_count + 1;
4049: --
4050: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
4051: hr_utility.set_message_token('USER_PROCEDURE',
4052: 'the user batch line procedure');
4053: l_error_text := substrb(hr_utility.get_message, 1, 240);
4054: --
4047: g_line_error := true;
4048: g_count := g_count + 1;
4049: --
4050: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
4051: hr_utility.set_message_token('USER_PROCEDURE',
4052: 'the user batch line procedure');
4053: l_error_text := substrb(hr_utility.get_message, 1, 240);
4054: --
4055: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4049: --
4050: hr_utility.set_message(801,'HR_7469_PLK_USR_STATUS_INVLD');
4051: hr_utility.set_message_token('USER_PROCEDURE',
4052: 'the user batch line procedure');
4053: l_error_text := substrb(hr_utility.get_message, 1, 240);
4054: --
4055: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4056: l_status_tbl(g_count) := 'F';
4057: l_message_tbl(g_count) := l_error_text;
4067: --
4068: g_line_error := true;
4069: g_count := g_count + 1;
4070: --
4071: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
4072: hr_utility.set_message_token('USER_PROCEDURE',
4073: 'the user batch line procedure');
4074: l_error_text := substrb(hr_utility.get_message, 1, 240);
4075: --
4068: g_line_error := true;
4069: g_count := g_count + 1;
4070: --
4071: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
4072: hr_utility.set_message_token('USER_PROCEDURE',
4073: 'the user batch line procedure');
4074: l_error_text := substrb(hr_utility.get_message, 1, 240);
4075: --
4076: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4070: --
4071: hr_utility.set_message(801,'HR_7470_PLK_USR_STATUS_INVLD_C');
4072: hr_utility.set_message_token('USER_PROCEDURE',
4073: 'the user batch line procedure');
4074: l_error_text := substrb(hr_utility.get_message, 1, 240);
4075: --
4076: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4077: l_status_tbl(g_count) := 'F';
4078: l_message_tbl(g_count) := l_error_text;
4112: end if;
4113: end if;
4114: end if;
4115: --
4116: hr_utility.set_location('payplnk.validate_lines',75);
4117: --
4118: -- Batch line has been validated successfully. Attempt to insert/update
4119: -- an element entry into the base tables.
4120: --
4232: p_error_table => l_error_table);
4233: --
4234:
4235: if l_warning_table.COUNT <> 0 then
4236: hr_utility.set_location('payplnk.validate_lines',76);
4237: for l_warning_num in 1..l_warning_table.COUNT loop
4238: hr_utility.trace(l_warning_table(l_warning_num));
4239: if l_warning_table(l_warning_num) = 'EE_CREATED_BY_ABSENCE_API' then
4240: hr_utility.set_location('payplnk.validate_lines',77);
4234:
4235: if l_warning_table.COUNT <> 0 then
4236: hr_utility.set_location('payplnk.validate_lines',76);
4237: for l_warning_num in 1..l_warning_table.COUNT loop
4238: hr_utility.trace(l_warning_table(l_warning_num));
4239: if l_warning_table(l_warning_num) = 'EE_CREATED_BY_ABSENCE_API' then
4240: hr_utility.set_location('payplnk.validate_lines',77);
4241: absence_entry_already_created := TRUE;
4242: else
4236: hr_utility.set_location('payplnk.validate_lines',76);
4237: for l_warning_num in 1..l_warning_table.COUNT loop
4238: hr_utility.trace(l_warning_table(l_warning_num));
4239: if l_warning_table(l_warning_num) = 'EE_CREATED_BY_ABSENCE_API' then
4240: hr_utility.set_location('payplnk.validate_lines',77);
4241: absence_entry_already_created := TRUE;
4242: else
4243: g_count := g_count + 1;
4244: hr_utility.set_message(801,l_warning_table(l_warning_num));
4240: hr_utility.set_location('payplnk.validate_lines',77);
4241: absence_entry_already_created := TRUE;
4242: else
4243: g_count := g_count + 1;
4244: hr_utility.set_message(801,l_warning_table(l_warning_num));
4245: l_error_text := substrb(hr_utility.get_message, 1, 240);
4246: --
4247: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4248: -- Changed from ' V' to 'W'. So that Pay_message_lines would not
4241: absence_entry_already_created := TRUE;
4242: else
4243: g_count := g_count + 1;
4244: hr_utility.set_message(801,l_warning_table(l_warning_num));
4245: l_error_text := substrb(hr_utility.get_message, 1, 240);
4246: --
4247: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4248: -- Changed from ' V' to 'W'. So that Pay_message_lines would not
4249: -- error outs.
4256: if l_error_table.COUNT <> 0 then
4257: for l_error_num in 1..l_error_table.COUNT loop
4258: g_line_error := true;
4259: g_count := g_count + 1;
4260: hr_utility.set_message(801,l_error_table(l_error_num));
4261: l_error_text := substrb(hr_utility.get_message, 1, 240);
4262: --
4263: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4264: l_status_tbl(g_count) := 'F';
4257: for l_error_num in 1..l_error_table.COUNT loop
4258: g_line_error := true;
4259: g_count := g_count + 1;
4260: hr_utility.set_message(801,l_error_table(l_error_num));
4261: l_error_text := substrb(hr_utility.get_message, 1, 240);
4262: --
4263: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4264: l_status_tbl(g_count) := 'F';
4265: l_message_tbl(g_count) := l_error_text;
4323: end if;
4324: close csr_future_existence;
4325: end if;
4326: --
4327: hr_utility.set_location('payplnk.validate_lines',80);
4328: --
4329: -- An attempt can be made to insert the element entry as all the
4330: -- prerequisite conditions are in place.
4331: --
4350: --
4351: g_line_error := true;
4352: g_count := g_count + 1;
4353: --
4354: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
4355: --
4356: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4357: l_status_tbl(g_count) := 'F';
4358: l_message_tbl(g_count) := l_error_text;
4378: --
4379: l_action_if_exists_chk := true;
4380: end if;
4381: --
4382: hr_utility.set_location('payplnk.validate_lines',85);
4383: --
4384: if (l_multiple_entries_allowed = 'Y') and
4385: (g_header_record.action_if_exists = 'I') then
4386: --
4403: --
4404: g_line_error := true;
4405: g_count := g_count + 1;
4406: --
4407: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
4408: --
4409: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4410: l_status_tbl(g_count) := 'F';
4411: l_message_tbl(g_count) := l_error_text;
4418: --
4419: raise multiple_entries_not_allowed;
4420: end if;
4421: --
4422: hr_utility.set_location('payplnk.validate_lines',90);
4423: --
4424: if g_header_record.action_if_exists = 'R' then
4425: --
4426: raise element_entry_exists;
4555: end if;
4556: --
4557: end if;
4558: --
4559: hr_utility.set_location('payplnk.validate_lines',95);
4560: --
4561: exception
4562: when no_data_found then
4563: g_line_error := true;
4564: if l_general_message = false then
4565: g_count := g_count + 1;
4566: end if;
4567: --
4568: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
4569: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
4570: l_error_text := substrb(hr_utility.get_message, 1, 240);
4571: --
4572: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4565: g_count := g_count + 1;
4566: end if;
4567: --
4568: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
4569: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
4570: l_error_text := substrb(hr_utility.get_message, 1, 240);
4571: --
4572: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4573: l_status_tbl(g_count) := 'F';
4566: end if;
4567: --
4568: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
4569: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
4570: l_error_text := substrb(hr_utility.get_message, 1, 240);
4571: --
4572: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4573: l_status_tbl(g_count) := 'F';
4574: l_message_tbl(g_count) := l_error_text;
4578: if l_general_message = false then
4579: g_count := g_count + 1;
4580: end if;
4581: --
4582: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
4583: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
4584: l_error_text := substrb(hr_utility.get_message, 1, 240);
4585: --
4586: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4579: g_count := g_count + 1;
4580: end if;
4581: --
4582: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
4583: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
4584: l_error_text := substrb(hr_utility.get_message, 1, 240);
4585: --
4586: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4587: l_status_tbl(g_count) := 'F';
4580: end if;
4581: --
4582: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
4583: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
4584: l_error_text := substrb(hr_utility.get_message, 1, 240);
4585: --
4586: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4587: l_status_tbl(g_count) := 'F';
4588: l_message_tbl(g_count) := l_error_text;
4590: when both_nulls then
4591: g_line_error := true;
4592: g_count := g_count + 1;
4593: --
4594: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
4595: hr_utility.set_message_token('COL1',l_column_name1);
4596: hr_utility.set_message_token('COL2',l_column_name2);
4597: l_error_text := substrb(hr_utility.get_message, 1, 240);
4598: --
4591: g_line_error := true;
4592: g_count := g_count + 1;
4593: --
4594: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
4595: hr_utility.set_message_token('COL1',l_column_name1);
4596: hr_utility.set_message_token('COL2',l_column_name2);
4597: l_error_text := substrb(hr_utility.get_message, 1, 240);
4598: --
4599: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4592: g_count := g_count + 1;
4593: --
4594: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
4595: hr_utility.set_message_token('COL1',l_column_name1);
4596: hr_utility.set_message_token('COL2',l_column_name2);
4597: l_error_text := substrb(hr_utility.get_message, 1, 240);
4598: --
4599: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4600: l_status_tbl(g_count) := 'F';
4593: --
4594: hr_utility.set_message(801,'HR_7482_PLK_BOTH_COLUMNS_NULL');
4595: hr_utility.set_message_token('COL1',l_column_name1);
4596: hr_utility.set_message_token('COL2',l_column_name2);
4597: l_error_text := substrb(hr_utility.get_message, 1, 240);
4598: --
4599: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4600: l_status_tbl(g_count) := 'F';
4601: l_message_tbl(g_count) := l_error_text;
4603: when invalid_entry_value then
4604: g_line_error := true;
4605: g_count := g_count + 1;
4606: --
4607: hr_utility.set_message(801,'HR_7452_PLK_VALS_EXCEED_INPUTS');
4608: l_error_text := substrb(hr_utility.get_message, 1, 240);
4609: --
4610: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4611: l_status_tbl(g_count) := 'F';
4604: g_line_error := true;
4605: g_count := g_count + 1;
4606: --
4607: hr_utility.set_message(801,'HR_7452_PLK_VALS_EXCEED_INPUTS');
4608: l_error_text := substrb(hr_utility.get_message, 1, 240);
4609: --
4610: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4611: l_status_tbl(g_count) := 'F';
4612: l_message_tbl(g_count) := l_error_text;
4615: when invalid_date_format then
4616: g_line_error := true;
4617: g_count := g_count + 1;
4618: --
4619: hr_utility.set_message(801,'HR_51155_INVAL_DATE_FORMAT');
4620: l_error_text := substrb(hr_utility.get_message, 1, 240);
4621: --
4622: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4623: l_status_tbl(g_count) := 'F';
4616: g_line_error := true;
4617: g_count := g_count + 1;
4618: --
4619: hr_utility.set_message(801,'HR_51155_INVAL_DATE_FORMAT');
4620: l_error_text := substrb(hr_utility.get_message, 1, 240);
4621: --
4622: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4623: l_status_tbl(g_count) := 'F';
4624: l_message_tbl(g_count) := l_error_text;
4626: when no_cost_allocation_structure then
4627: g_line_error := true;
4628: g_count := g_count + 1;
4629: --
4630: hr_utility.set_message(801,'HR_7460_PLK_NO_CST_ALLC_STRUCT');
4631: hr_utility.set_message_token('BUSINESS_GROUP_ID',p_business_group_id);
4632: l_error_text := substrb(hr_utility.get_message, 1, 240);
4633: --
4634: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4627: g_line_error := true;
4628: g_count := g_count + 1;
4629: --
4630: hr_utility.set_message(801,'HR_7460_PLK_NO_CST_ALLC_STRUCT');
4631: hr_utility.set_message_token('BUSINESS_GROUP_ID',p_business_group_id);
4632: l_error_text := substrb(hr_utility.get_message, 1, 240);
4633: --
4634: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4635: l_status_tbl(g_count) := 'F';
4628: g_count := g_count + 1;
4629: --
4630: hr_utility.set_message(801,'HR_7460_PLK_NO_CST_ALLC_STRUCT');
4631: hr_utility.set_message_token('BUSINESS_GROUP_ID',p_business_group_id);
4632: l_error_text := substrb(hr_utility.get_message, 1, 240);
4633: --
4634: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4635: l_status_tbl(g_count) := 'F';
4636: l_message_tbl(g_count) := l_error_text;
4638: when non_costable_element then
4639: g_line_error := true;
4640: g_count := g_count + 1;
4641: --
4642: hr_utility.set_message(801,'HR_7453_PLK_NON_COSTABLE_ELE');
4643: l_error_text := substrb(hr_utility.get_message, 1, 240);
4644: --
4645: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4646: l_status_tbl(g_count) := 'F';
4639: g_line_error := true;
4640: g_count := g_count + 1;
4641: --
4642: hr_utility.set_message(801,'HR_7453_PLK_NON_COSTABLE_ELE');
4643: l_error_text := substrb(hr_utility.get_message, 1, 240);
4644: --
4645: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4646: l_status_tbl(g_count) := 'F';
4647: l_message_tbl(g_count) := l_error_text;
4651: if l_general_message = false then
4652: g_count := g_count + 1;
4653: end if;
4654: --
4655: hr_utility.set_message(801,'HR_7454_PLK_MULT_ENTS_NOT_ALLD');
4656: l_error_text := substrb(hr_utility.get_message, 1, 240);
4657: --
4658: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4659: l_status_tbl(g_count) := 'F';
4652: g_count := g_count + 1;
4653: end if;
4654: --
4655: hr_utility.set_message(801,'HR_7454_PLK_MULT_ENTS_NOT_ALLD');
4656: l_error_text := substrb(hr_utility.get_message, 1, 240);
4657: --
4658: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4659: l_status_tbl(g_count) := 'F';
4660: l_message_tbl(g_count) := l_error_text;
4664: if l_general_message = false then
4665: g_count := g_count + 1;
4666: end if;
4667: --
4668: hr_utility.set_message(801,'HR_7455_PLK_ELE_ENTRY_EXISTS');
4669: l_error_text := substrb(hr_utility.get_message, 1, 240);
4670: --
4671: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4672: l_status_tbl(g_count) := 'F';
4665: g_count := g_count + 1;
4666: end if;
4667: --
4668: hr_utility.set_message(801,'HR_7455_PLK_ELE_ENTRY_EXISTS');
4669: l_error_text := substrb(hr_utility.get_message, 1, 240);
4670: --
4671: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4672: l_status_tbl(g_count) := 'F';
4673: l_message_tbl(g_count) := l_error_text;
4677: if l_general_message = false then
4678: g_count := g_count + 1;
4679: end if;
4680: --
4681: hr_utility.set_message(801,'HR_7456_PLK_MORE_THAN_ONE_ENT');
4682: l_error_text := substrb(hr_utility.get_message, 1, 240);
4683: --
4684: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4685: l_status_tbl(g_count) := 'F';
4678: g_count := g_count + 1;
4679: end if;
4680: --
4681: hr_utility.set_message(801,'HR_7456_PLK_MORE_THAN_ONE_ENT');
4682: l_error_text := substrb(hr_utility.get_message, 1, 240);
4683: --
4684: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4685: l_status_tbl(g_count) := 'F';
4686: l_message_tbl(g_count) := l_error_text;
4690: if l_general_message = false then
4691: g_count := g_count + 1;
4692: end if;
4693: --
4694: hr_utility.set_message(801,'HR_7457_PLK_FUTURE_CHGS_EXIST');
4695: l_error_text := substrb(hr_utility.get_message, 1, 240);
4696: --
4697: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4698: l_status_tbl(g_count) := 'F';
4691: g_count := g_count + 1;
4692: end if;
4693: --
4694: hr_utility.set_message(801,'HR_7457_PLK_FUTURE_CHGS_EXIST');
4695: l_error_text := substrb(hr_utility.get_message, 1, 240);
4696: --
4697: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4698: l_status_tbl(g_count) := 'F';
4699: l_message_tbl(g_count) := l_error_text;
4701: when element_entry_not_eligible then
4702: g_line_error := true;
4703: g_count := g_count + 1;
4704: --
4705: hr_utility.set_message(801,'HR_7459_PLK_NOT_ELGBLE_ELE_ENT');
4706: l_error_text := substrb(hr_utility.get_message, 1, 240);
4707: --
4708: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4709: l_status_tbl(g_count) := 'F';
4702: g_line_error := true;
4703: g_count := g_count + 1;
4704: --
4705: hr_utility.set_message(801,'HR_7459_PLK_NOT_ELGBLE_ELE_ENT');
4706: l_error_text := substrb(hr_utility.get_message, 1, 240);
4707: --
4708: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4709: l_status_tbl(g_count) := 'F';
4710: l_message_tbl(g_count) := l_error_text;
4712: when non_updatable_creator_type then
4713: g_line_error := true;
4714: g_count := g_count + 1;
4715: --
4716: hr_utility.set_message(801,'HR_7014_ELE_ENTRY_CREATOR_UPD');
4717: hr_utility.set_message_token('CREATOR_MEANING', hr_general.decode_lookup('CREATOR_TYPE','SP'));
4718: l_error_text := substrb(hr_utility.get_message, 1, 240);
4719: --
4720: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4713: g_line_error := true;
4714: g_count := g_count + 1;
4715: --
4716: hr_utility.set_message(801,'HR_7014_ELE_ENTRY_CREATOR_UPD');
4717: hr_utility.set_message_token('CREATOR_MEANING', hr_general.decode_lookup('CREATOR_TYPE','SP'));
4718: l_error_text := substrb(hr_utility.get_message, 1, 240);
4719: --
4720: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4721: l_status_tbl(g_count) := 'F';
4714: g_count := g_count + 1;
4715: --
4716: hr_utility.set_message(801,'HR_7014_ELE_ENTRY_CREATOR_UPD');
4717: hr_utility.set_message_token('CREATOR_MEANING', hr_general.decode_lookup('CREATOR_TYPE','SP'));
4718: l_error_text := substrb(hr_utility.get_message, 1, 240);
4719: --
4720: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4721: l_status_tbl(g_count) := 'F';
4722: l_message_tbl(g_count) := l_error_text;
4720: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4721: l_status_tbl(g_count) := 'F';
4722: l_message_tbl(g_count) := l_error_text;
4723: --
4724: when hr_utility.hr_error then
4725: g_line_error := true;
4726: if l_general_message = false then
4727: g_count := g_count + 1;
4728: end if;
4728: end if;
4729: --
4730: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4731: l_status_tbl(g_count) := 'F';
4732: l_message_tbl(g_count) := substrb(hr_utility.get_message, 1, 240);
4733: --
4734: when inputs_not_required then
4735: g_line_error := true;
4736: g_count := g_count + 1;
4734: when inputs_not_required then
4735: g_line_error := true;
4736: g_count := g_count + 1;
4737: --
4738: hr_utility.set_message(801,'HR_7458_PLK_ENT_VALS_NOT_REQD');
4739: l_error_text := substrb(hr_utility.get_message, 1, 240);
4740: --
4741: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4742: l_status_tbl(g_count) := 'F';
4735: g_line_error := true;
4736: g_count := g_count + 1;
4737: --
4738: hr_utility.set_message(801,'HR_7458_PLK_ENT_VALS_NOT_REQD');
4739: l_error_text := substrb(hr_utility.get_message, 1, 240);
4740: --
4741: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4742: l_status_tbl(g_count) := 'F';
4743: l_message_tbl(g_count) := l_error_text;
4772: if g_line_error then
4773: raise no_data_found;
4774: end if;
4775: --
4776: hr_utility.set_location('payplnk.validate_lines',500);
4777: --
4778: -- Close the header cursor if it is open.
4779: if csr_bl_header%ISOPEN then
4780: close csr_bl_header;
4800: end if;
4801: rollback to BL;
4802: --Set the global parameter to enable the triggers.
4803: payplnk.g_payplnk_call := false;
4804: hr_utility.set_message(800, 'HR_289719_BEE_LINE_ERROR');
4805: hr_utility.raise_error;
4806: -- raise;
4807: --
4808: /* Do Not continue to transfer even if one line is errored 13814081 */
4801: rollback to BL;
4802: --Set the global parameter to enable the triggers.
4803: payplnk.g_payplnk_call := false;
4804: hr_utility.set_message(800, 'HR_289719_BEE_LINE_ERROR');
4805: hr_utility.raise_error;
4806: -- raise;
4807: --
4808: /* Do Not continue to transfer even if one line is errored 13814081 */
4809: if (l_control_err = true or l_header_err = true or (l_chk_asg_lines = 'Y' and
4844: and (batch_line_status <> 'T' or p_mode='Y');
4845: --
4846: begin
4847: --
4848: hr_utility.set_location('payplnk.purge_messages',5);
4849: --
4850: for pclrec in pcl(p_batch_id) loop
4851: delete from pay_message_lines
4852: where source_type = 'C'
4852: where source_type = 'C'
4853: and source_id = pclrec.batch_control_id;
4854: end loop;
4855: --
4856: hr_utility.set_location('payplnk.purge_messages',10);
4857: --
4858: for pblrec in pbl(p_batch_id) loop
4859: delete from pay_message_lines
4860: where source_type = 'L'
4860: where source_type = 'L'
4861: and source_id = pblrec.batch_line_id;
4862: end loop;
4863: --
4864: hr_utility.set_location('payplnk.purge_messages',20);
4865: --
4866: delete from pay_message_lines
4867: where source_type = 'H'
4868: and source_id = p_batch_id
4872: where pbl.batch_id = p_batch_id
4873: and pbl.batch_line_status = 'T')
4874: or p_mode='Y');
4875: --
4876: hr_utility.set_location('payplnk.purge_messages',25);
4877: --
4878: end purge_messages;
4879: --
4880: ----------------------------------------------------------------------
4924: l_time_out boolean := FALSE;
4925: --
4926: begin
4927: --
4928: hr_utility.set_location('payplnk.insert_element_entry',5);
4929: --
4930: -- Bug 423237 - Convert passed in reason to lookup_code for api
4931: --
4932: IF l_line_record.reason IS NOT NULL THEN
4961: end loop;
4962: --
4963: j := j - 1;
4964:
4965: if ghr_utility.is_ghr = 'TRUE' then
4966: hr_utility.set_location('GHR Installed....insert_element_entry .. Pre...',5);
4967: ghr_session.set_session_var_for_core
4968: (p_effective_date => l_line_record.effective_date);
4969: end if;
4962: --
4963: j := j - 1;
4964:
4965: if ghr_utility.is_ghr = 'TRUE' then
4966: hr_utility.set_location('GHR Installed....insert_element_entry .. Pre...',5);
4967: ghr_session.set_session_var_for_core
4968: (p_effective_date => l_line_record.effective_date);
4969: end if;
4970:
5117: end if;
5118: close csr_check_classification;
5119:
5120:
5121: if ghr_utility.is_ghr = 'TRUE' then
5122: hr_utility.set_location('GHR Installed....insert_element_entry .. Post ',6);
5123: ghr_history_api.post_update_process;
5124: end if;
5125: --
5118: close csr_check_classification;
5119:
5120:
5121: if ghr_utility.is_ghr = 'TRUE' then
5122: hr_utility.set_location('GHR Installed....insert_element_entry .. Post ',6);
5123: ghr_history_api.post_update_process;
5124: end if;
5125: --
5126: hr_utility.set_location('payplnk.insert_element_entry',10);
5122: hr_utility.set_location('GHR Installed....insert_element_entry .. Post ',6);
5123: ghr_history_api.post_update_process;
5124: end if;
5125: --
5126: hr_utility.set_location('payplnk.insert_element_entry',10);
5127: --
5128: end insert_element_entry;
5129: --
5130: --
5158: l_time_out boolean := FALSE;
5159: --
5160: begin
5161: --
5162: hr_utility.set_location('payplnk.update_element_entry',5);
5163: --
5164: -- Bug 423237 - Convert passed in reason to lookup_code for api
5165: --
5166: IF l_line_record.reason IS NOT NULL THEN
5170: where hl.lookup_type = 'ELE_ENTRY_REASON'
5171: and hl.meaning = l_line_record.reason;
5172: END IF;
5173: --
5174: if ghr_utility.is_ghr = 'TRUE' then
5175: hr_utility.set_location('GHR Installed....update_element_entry .. Pre ',5);
5176: ghr_session.set_session_var_for_core
5177: (p_effective_date => l_line_record.effective_date);
5178: end if;
5171: and hl.meaning = l_line_record.reason;
5172: END IF;
5173: --
5174: if ghr_utility.is_ghr = 'TRUE' then
5175: hr_utility.set_location('GHR Installed....update_element_entry .. Pre ',5);
5176: ghr_session.set_session_var_for_core
5177: (p_effective_date => l_line_record.effective_date);
5178: end if;
5179:
5294: --
5295: end loop;
5296:
5297:
5298: if ghr_utility.is_ghr = 'TRUE' then
5299: hr_utility.set_location('GHR Installed....update_element_entry .. Post ',5);
5300: ghr_history_api.post_update_process;
5301: end if;
5302:
5295: end loop;
5296:
5297:
5298: if ghr_utility.is_ghr = 'TRUE' then
5299: hr_utility.set_location('GHR Installed....update_element_entry .. Post ',5);
5300: ghr_history_api.post_update_process;
5301: end if;
5302:
5303: -- For MIX rollback - for non absence must set creator_id to null after update
5305: -- for this element
5306:
5307: if (p_creator_type = 'A') then
5308: --
5309: hr_utility.set_location('payplnk.update_element_entry',10);
5310: --
5311: update per_absence_attendances
5312: set batch_id = null
5313: where absence_attendance_id = p_creator_id;
5312: set batch_id = null
5313: where absence_attendance_id = p_creator_id;
5314: else
5315: --
5316: hr_utility.set_location('payplnk.update_element_entry',15);
5317: --
5318: if p_allow_rollback then
5319: --Recurring element of creator type 'H' or 'F' with update and update insert change.
5320: --
5339: end if;
5340: end if;
5341:
5342: --
5343: hr_utility.set_location('payplnk.update_element_entry',20);
5344: --
5345: end update_element_entry;
5346: --
5347: end payplnk;