150:
151: RETURN l_meaning;
152: END convert_lookup;
153:
154: PROCEDURE insert_pay_batch_lines (
155: p_batch_id NUMBER,
156: p_batch_line_id OUT NOCOPY NUMBER,
157: p_assignment_id NUMBER,
158: p_assignment_number VARCHAR2,
221: INDEX BY BINARY_INTEGER;
222:
223: hxt_value input_values_table;
224:
225: TYPE pbl_values_table IS TABLE OF pay_batch_lines.value_1%TYPE
226: INDEX BY BINARY_INTEGER;
227:
228: pbl_value pbl_values_table;
229: l_value_meaning hr_lookups.meaning%TYPE;
270: lv_pbl_flag VARCHAR2 (1) := 'N';
271: BEGIN
272:
273: if g_debug then
274: hr_utility.set_location ('insert_pay_batch_lines', 10);
275: end if;
276:
277: -- Initialize tables
278: FOR i IN 1 .. 15
333: hxt_value (14).lookup,
334: hxt_value (15).lookup
335: );
336: if g_debug then
337: hr_utility.set_location ('insert_pay_batch_lines', 20);
338: end if;
339: -- Place OTM data into BEE values per input values
340: hxt_util.DEBUG ('Putting OTM data into BEE values per input values'); --HXT115
341:
367: -- the further logic on the screen value for the input values.
368: --
369: lv_pbl_flag := 'N';
370: if g_debug then
371: hr_utility.set_location ('insert_pay_batch_lines', 30);
372:
373: hr_utility.TRACE (
374: 'hxt_value_name_'
375: || TO_CHAR (i)
388: --if hxt_value(i).name = 'Hours' then
389: IF l_value_meaning = 'HOURS'
390: THEN
391: if g_debug then
392: hr_utility.set_location ('insert_pay_batch_lines', 40);
393: end if;
394: pbl_value (i) :=
395: convert_lookup (p_hours, hxt_value (i).lookup, p_date_worked);
396: if g_debug then
404: --elsif hxt_value(i).name = 'Pay Value' then
405: ELSIF l_value_meaning = 'AMOUNT'
406: THEN
407: if g_debug then
408: hr_utility.set_location ('insert_pay_batch_lines', 50);
409: end if;
410: pbl_value (i) :=
411: convert_lookup (p_amount, hxt_value (i).lookup, p_date_worked);
412: if g_debug then
420: --elsif hxt_value(i).name = 'Multiple' then
421: ELSIF l_value_meaning = 'RATE_MULTIPLE'
422: THEN
423: if g_debug then
424: hr_utility.set_location ('insert_pay_batch_lines', 60);
425: end if;
426: pbl_value (i) := convert_lookup (
427: p_rate_multiple,
428: hxt_value (i).lookup,
440:
441: ELSIF l_value_meaning = 'HOURLY_RATE'
442: THEN
443: if g_debug then
444: hr_utility.set_location ('insert_pay_batch_lines', 70);
445: end if;
446: pbl_value (i) := convert_lookup (
447: p_hourly_rate,
448: hxt_value (i).lookup,
462: --elsif hxt_value(i).name = 'Rate' then
463: ELSIF l_value_meaning = 'RATE'
464: THEN
465: if g_debug then
466: hr_utility.set_location ('insert_pay_batch_lines', 70);
467: end if;
468: pbl_value (i) := convert_lookup (
469: p_hourly_rate,
470: hxt_value (i).lookup,
482: --elsif hxt_value(i).name = 'Rate Code' then
483: ELSIF l_value_meaning = 'RATE_CODE'
484: THEN
485: if g_debug then
486: hr_utility.set_location ('insert_pay_batch_lines', 80);
487: end if;
488: pbl_value (i) := convert_lookup (
489: p_rate_code,
490: hxt_value (i).lookup,
502: -- BEGIN US localization
503: ELSIF hxt_value (i).NAME = 'Jurisdiction'
504: THEN
505: if g_debug then
506: hr_utility.set_location ('insert_pay_batch_lines', 90);
507: end if;
508:
509: if(p_state_name is not null or
510: p_county_name is not null or
533: end if;
534: ELSIF hxt_value (i).NAME = 'Deduction Processing'
535: THEN
536: if g_debug then
537: hr_utility.set_location ('insert_pay_batch_lines', 100);
538: end if;
539: pbl_value (i) := convert_lookup (
540: p_tax_separately_flag,
541: hxt_value (i).lookup,
551: end if;
552: ELSIF hxt_value (i).NAME = 'Separate Check'
553: THEN
554: if g_debug then
555: hr_utility.set_location ('insert_pay_batch_lines', 110);
556: end if;
557: pbl_value (i) := convert_lookup (
558: p_separate_check_flag,
559: hxt_value (i).lookup,
572:
573: ELSIF hxt_value (i).NAME IS NOT NULL
574: THEN -- pbl_value(i) := NULL;
575: if g_debug then
576: hr_utility.set_location ('insert_pay_batch_lines', 120);
577: hr_utility.TRACE ( 'p_element_type_id :'
578: || p_element_type_id);
579: hr_utility.TRACE ( 'p_assignment_id :'
580: || p_assignment_id);
588: );
589:
590: LOOP
591: if g_debug then
592: hr_utility.set_location ('insert_pay_batch_lines', 130);
593: end if;
594: FETCH c_date_input_value INTO l_piv_name;
595: EXIT WHEN c_date_input_value%NOTFOUND;
596: if g_debug then
602:
603: IF l_piv_name = hxt_value (i).NAME
604: THEN
605: if g_debug then
606: hr_utility.set_location ('insert_pay_batch_lines', 140);
607: end if;
608: --pbl_value(i) := to_char(p_date_worked,'DD-MON-YYYY');
609: pbl_value (i) := fnd_date.date_to_canonical (p_date_worked);
610: lv_pbl_flag := 'Y';
624:
625: IF lv_pbl_flag = 'N'
626: THEN
627: if g_debug then
628: hr_utility.set_location ('insert_pay_batch_lines', 150);
629: end if;
630: pbl_value (i) := NULL;
631: if g_debug then
632: hr_utility.TRACE (
643: || lv_pbl_flag);
644: end if;
645: ELSE
646: if g_debug then
647: hr_utility.set_location ('insert_pay_batch_lines', 160);
648: end if;
649: pbl_value (i) := NULL;
650: if g_debug then
651: hr_utility.TRACE (
657: end if;
658: END IF;
659:
660: if g_debug then
661: hr_utility.set_location ('insert_pay_batch_lines', 170);
662: end if;
663: hxt_util.DEBUG ( 'value_'
664: || TO_CHAR (i)
665: || ' = '
740: EXCEPTION
741: WHEN g_lookup_not_found
742: THEN
743: hxt_util.DEBUG (
744: 'Oops...g_lookup_not_found in insert_pay_batch_lines'
745: ); --HXT115
746: RAISE g_lookup_not_found; --SIR517 PWM 18FEB00 Re-raise the exception for the calling procedure
747: WHEN OTHERS
748: THEN
746: RAISE g_lookup_not_found; --SIR517 PWM 18FEB00 Re-raise the exception for the calling procedure
747: WHEN OTHERS
748: THEN
749: hxt_util.DEBUG (SQLERRM); --HXT115
750: hxt_util.DEBUG ('Oops...others in insert_pay_batch_lines'); --HXT115
751: fnd_message.set_name ('HXT', 'HXT_39354_ERR_INS_PAYMX_INFO');
752: fnd_message.set_token ('SQLERR', SQLERRM);
753: RAISE g_error_ins_batch_lines; --SIR517 PWM 18FEB00 Re-raise the exception for the calling procedure
754: END insert_pay_batch_lines;
750: hxt_util.DEBUG ('Oops...others in insert_pay_batch_lines'); --HXT115
751: fnd_message.set_name ('HXT', 'HXT_39354_ERR_INS_PAYMX_INFO');
752: fnd_message.set_token ('SQLERR', SQLERRM);
753: RAISE g_error_ins_batch_lines; --SIR517 PWM 18FEB00 Re-raise the exception for the calling procedure
754: END insert_pay_batch_lines;
755:
756:
757: --END GLOBAL
758:
1279: l_amount_to_send NUMBER (15, 5);
1280: l_retcode NUMBER; /* BSE107 */
1281: l_location VARCHAR2 (20);
1282:
1283: l_batch_sequence PAY_BATCH_LINES.BATCH_SEQUENCE%TYPE;
1284:
1285: BEGIN
1286: hxt_util.DEBUG ('retro_mix started.'); -- debug only --HXT115
1287:
1291: l_location := 'Step 1A';
1292:
1293: -- bug 3217343 fix BEGIN
1294: -- get the next batch_seq for this batch_id only once and increment the
1295: -- sequence by 1 whenever insert_pay_batch_lines is called.
1296: -- This way the multiple expensive calls to
1297: -- pay_paywsqee_pkg.next_batch_sequence in insert_pay_batch_lines procedure
1298: -- can be avoided.
1299:
1293: -- bug 3217343 fix BEGIN
1294: -- get the next batch_seq for this batch_id only once and increment the
1295: -- sequence by 1 whenever insert_pay_batch_lines is called.
1296: -- This way the multiple expensive calls to
1297: -- pay_paywsqee_pkg.next_batch_sequence in insert_pay_batch_lines procedure
1298: -- can be avoided.
1299:
1300: l_batch_sequence := pay_paywsqee_pkg.next_batch_sequence(p_batch_id);
1301:
1421:
1422:
1423: --BEGIN GLOBAL
1424: -- select pay_pdt_batch_lines_s.nextval
1425: -- SELECT pay_batch_lines_s.NEXTVAL
1426:
1427: --END GLOBAL
1428: -- INTO l_nextval
1429: -- FROM DUAL;
1476: -- l_hours_rec.separate_check_flag, '', '',
1477: -- l_hours_rec.tax_separately_flag, '',
1478: -- l_hours_to_send
1479: -- );
1480: insert_pay_batch_lines (
1481: p_batch_id,
1482: l_batch_line_id,
1483: l_hours_rec.assignment_id,
1484: l_hours_rec.assignment_number,
1643:
1644: /* END BSE107 */
1645: --BEGIN GLOBAL
1646: -- select pay_pdt_batch_lines_s.nextval
1647: -- SELECT pay_batch_lines_s.NEXTVAL
1648:
1649: --END GLOBAL
1650: -- INTO l_nextval
1651: -- FROM DUAL;
1697: -- l_amount_rec.separate_check_flag, '', '',
1698: -- l_amount_rec.tax_separately_flag, '',
1699: -- l_amount_rec.hours_worked
1700: -- );
1701: insert_pay_batch_lines (
1702: p_batch_id,
1703: l_batch_line_id,
1704: l_amount_rec.assignment_id,
1705: l_amount_rec.assignment_number,
2346: SELECT pbl.value_1, pbl.value_2, pbl.value_3, pbl.value_4,
2347: pbl.value_5, pbl.value_6, pbl.value_7, pbl.value_8,
2348: pbl.value_9, pbl.value_10, pbl.value_11, pbl.value_12,
2349: pbl.value_13, pbl.value_14, pbl.value_15
2350: FROM pay_batch_lines pbl
2351: WHERE pbl.batch_line_id = c_line_id;
2352:
2353: TYPE input_value_record IS RECORD (
2354: SEQUENCE pay_input_values_f.input_value_id%TYPE,
2359: INDEX BY BINARY_INTEGER;
2360:
2361: hxt_value input_values_table;
2362:
2363: TYPE pbl_values_table IS TABLE OF pay_batch_lines.value_1%TYPE
2364: INDEX BY BINARY_INTEGER;
2365:
2366: pbl_value pbl_values_table;
2367:
2367:
2368: --END GLOBAL
2369: l_value_meaning hr_lookups.meaning%TYPE;
2370:
2371: l_batch_sequence PAY_BATCH_LINES.BATCH_SEQUENCE%TYPE;
2372:
2373: BEGIN
2374:
2375: l_batch_sequence := pay_paywsqee_pkg.next_batch_sequence(p_batch_id);
2556: --end SIR65
2557:
2558: --BEGIN GLOBAL
2559: -- select pay_pdt_batch_lines_s.nextval
2560: -- SELECT pay_batch_lines_s.NEXTVAL
2561:
2562: --END GLOBAL
2563: -- INTO l_nextval
2564: -- FROM DUAL;
2609: -- l_leftover.separate_check_flag, '', '',
2610: -- l_leftover.tax_separately_flag, '',
2611: -- 0 - l_leftover.hours_worked
2612: -- );
2613: insert_pay_batch_lines (
2614: p_batch_id,
2615: l_batch_line_id,
2616: l_leftover.assignment_id,
2617: l_leftover.assignment_number,
2805: -- l_nextval NUMBER (15);
2806: l_batch_line_id NUMBER (15);
2807: l_retcode NUMBER; /* BSE107 */
2808:
2809: l_batch_sequence PAY_BATCH_LINES.BATCH_SEQUENCE%TYPE;
2810:
2811: BEGIN
2812:
2813: l_batch_sequence := pay_paywsqee_pkg.next_batch_sequence(p_batch_id);
2824: /* END BSE107 - OHM SPR200*/
2825:
2826: --BEGIN GLOBAL
2827: -- select pay_pdt_batch_lines_s.nextval
2828: -- SELECT pay_batch_lines_s.NEXTVAL
2829:
2830: --END GLOBAL
2831: -- INTO l_nextval
2832: -- FROM DUAL;
2877: -- l_leftover.separate_check_flag, '', '',
2878: -- l_leftover.tax_separately_flag, '',
2879: -- l_leftover.hours_worked
2880: -- );
2881: insert_pay_batch_lines (
2882: p_batch_id,
2883: l_batch_line_id,
2884: l_leftover.assignment_id,
2885: l_leftover.assignment_number,