[Home] [Help]
26: g_ctl_id_tbl hr_entry.number_table;
27: g_ctl_stat_tbl hr_entry.varchar2_table;
28: g_ctl_mess_tbl varchar2_table2;
29: --
30: g_head_err_msg pay_message_lines.line_text%TYPE := null;
31: g_head_err_stat varchar(1) := null;
32: --
33: error_occurred exception;
34: --
415: l_leg_line_check boolean := false;
416: l_legislation_code per_business_groups_perf.legislation_code%TYPE := null;
417: --
418: l_assignment_id pay_batch_lines.assignment_id%TYPE := null;
419: l_error_text pay_message_lines.line_text%TYPE := null;
420: l_assignment_exists varchar2(1) := null;
421: not_upper boolean := false;
422: --
423: begin
599: -- --
600: -- hr_utility.set_location('payplnk.validate',20);
601: -- --
602: -- -- Any messages accumulated during batch lines validation are now
603: -- -- inserted into the pay_message_lines table.
604: -- --
605: -- begin
606: -- for l_error_count in 1..g_count loop
607: -- if l_message_tbl(l_error_count) is not null then
605: -- begin
606: -- for l_error_count in 1..g_count loop
607: -- if l_message_tbl(l_error_count) is not null then
608: -- --
609: -- insert into pay_message_lines
610: -- (LINE_SEQUENCE,
611: -- PAYROLL_ID,
612: -- MESSAGE_LEVEL,
613: -- SOURCE_ID,
613: -- SOURCE_ID,
614: -- SOURCE_TYPE,
615: -- LINE_TEXT)
616: -- values (
617: -- pay_message_lines_s.nextval,
618: -- null,
619: -- l_status_tbl(l_error_count),
620: -- l_line_id_tbl(l_error_count),
621: -- 'L',
677: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
678: hr_utility.set_message_token('COLUMN_NAME','EFFECTIVE DATE');
679: l_error_text := substrb(hr_utility.get_message, 1, 240);
680: --
681: insert into pay_message_lines
682: (LINE_SEQUENCE,
683: PAYROLL_ID,
684: MESSAGE_LEVEL,
685: SOURCE_ID,
685: SOURCE_ID,
686: SOURCE_TYPE,
687: LINE_TEXT)
688: values (
689: pay_message_lines_s.nextval,
690: null,
691: 'F',
692: g_line_record.batch_line_id,
693: 'L',
728: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
729: hr_utility.set_message_token('COLUMN_NAME','ASSIGNMENT ID');
730: l_error_text := substrb(hr_utility.get_message, 1, 240);
731: --
732: insert into pay_message_lines
733: (LINE_SEQUENCE,
734: PAYROLL_ID,
735: MESSAGE_LEVEL,
736: SOURCE_ID,
736: SOURCE_ID,
737: SOURCE_TYPE,
738: LINE_TEXT)
739: values (
740: pay_message_lines_s.nextval,
741: null,
742: 'F',
743: g_line_record.batch_line_id,
744: 'L',
775: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
776: g_line_record.assignment_number);
777: l_error_text := substrb(hr_utility.get_message, 1, 240);
778: --
779: insert into pay_message_lines
780: (LINE_SEQUENCE,
781: PAYROLL_ID,
782: MESSAGE_LEVEL,
783: SOURCE_ID,
783: SOURCE_ID,
784: SOURCE_TYPE,
785: LINE_TEXT)
786: values (
787: pay_message_lines_s.nextval,
788: null,
789: 'F',
790: g_line_record.batch_line_id,
791: 'L',
801: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
802: hr_utility.set_message_token('COLUMN_NAME','ASSIGNMENT ID');
803: l_error_text := substrb(hr_utility.get_message, 1, 240);
804: --
805: insert into pay_message_lines
806: (LINE_SEQUENCE,
807: PAYROLL_ID,
808: MESSAGE_LEVEL,
809: SOURCE_ID,
809: SOURCE_ID,
810: SOURCE_TYPE,
811: LINE_TEXT)
812: values (
813: pay_message_lines_s.nextval,
814: null,
815: 'F',
816: g_line_record.batch_line_id,
817: 'L',
832: hr_utility.set_message_token('COL1','ASSIGNMENT NUMBER');
833: hr_utility.set_message_token('COL2','ASSIGNMENT ID');
834: l_error_text := substrb(hr_utility.get_message, 1, 240);
835: --
836: insert into pay_message_lines
837: (LINE_SEQUENCE,
838: PAYROLL_ID,
839: MESSAGE_LEVEL,
840: SOURCE_ID,
840: SOURCE_ID,
841: SOURCE_TYPE,
842: LINE_TEXT)
843: values (
844: pay_message_lines_s.nextval,
845: null,
846: 'F',
847: g_line_record.batch_line_id,
848: 'L',
898: hr_utility.set_message_token('ASSIGNMENT_NUMBER',
899: g_line_record.assignment_number);
900: l_error_text := substrb(hr_utility.get_message, 1, 240);
901: --
902: insert into pay_message_lines
903: (LINE_SEQUENCE,
904: PAYROLL_ID,
905: MESSAGE_LEVEL,
906: SOURCE_ID,
906: SOURCE_ID,
907: SOURCE_TYPE,
908: LINE_TEXT)
909: values (
910: pay_message_lines_s.nextval,
911: null,
912: 'F',
913: g_line_record.batch_line_id,
914: 'L',
941: hr_utility.set_message_token('ASSIGNMENT_ID',
942: g_line_record.assignment_id);
943: l_error_text := substrb(hr_utility.get_message, 1, 240);
944: --
945: insert into pay_message_lines
946: (LINE_SEQUENCE,
947: PAYROLL_ID,
948: MESSAGE_LEVEL,
949: SOURCE_ID,
949: SOURCE_ID,
950: SOURCE_TYPE,
951: LINE_TEXT)
952: values (
953: pay_message_lines_s.nextval,
954: null,
955: 'F',
956: g_line_record.batch_line_id,
957: 'L',
1201: --
1202: hr_utility.set_location('payplnk.set_line_status',10);
1203: --
1204: -- Any messages accumulated during batch lines validation are now
1205: -- inserted into the pay_message_lines table.
1206: --
1207: begin
1208: for l_error_count in 1..g_count loop
1209: if g_message_tbl(l_error_count) is not null then
1207: begin
1208: for l_error_count in 1..g_count loop
1209: if g_message_tbl(l_error_count) is not null then
1210: --
1211: insert into pay_message_lines
1212: (LINE_SEQUENCE,
1213: PAYROLL_ID,
1214: MESSAGE_LEVEL,
1215: SOURCE_ID,
1215: SOURCE_ID,
1216: SOURCE_TYPE,
1217: LINE_TEXT)
1218: values (
1219: pay_message_lines_s.nextval,
1220: null,
1221: g_status_tbl(l_error_count),
1222: g_line_id_tbl(l_error_count),
1223: 'L',
1327: --
1328: if g_header_processing then
1329: --
1330: if g_head_err_msg is not null then
1331: insert into pay_message_lines
1332: (LINE_SEQUENCE,
1333: PAYROLL_ID,
1334: MESSAGE_LEVEL,
1335: SOURCE_ID,
1335: SOURCE_ID,
1336: SOURCE_TYPE,
1337: LINE_TEXT)
1338: values (
1339: pay_message_lines_s.nextval,
1340: null,
1341: g_head_err_stat,
1342: p_batch_id,
1343: 'H',
1356: -- Only update the status of the cotnrol totals if the batc his not failed.
1357: if g_head_err_stat <> 'F' or g_head_err_stat is null then
1358: --
1359: -- Any messages accumulated during batch lines validation are now
1360: -- inserted into the pay_message_lines table.
1361: --
1362: begin
1363: for l_error_count in 1..g_control_count loop
1364: if g_ctl_mess_tbl(l_error_count) is not null then
1362: begin
1363: for l_error_count in 1..g_control_count loop
1364: if g_ctl_mess_tbl(l_error_count) is not null then
1365: --
1366: insert into pay_message_lines
1367: (LINE_SEQUENCE,
1368: PAYROLL_ID,
1369: MESSAGE_LEVEL,
1370: SOURCE_ID,
1370: SOURCE_ID,
1371: SOURCE_TYPE,
1372: LINE_TEXT)
1373: values (
1374: pay_message_lines_s.nextval,
1375: null,
1376: g_ctl_stat_tbl(l_error_count),
1377: g_ctl_id_tbl(l_error_count),
1378: 'C',
1479: -- DESCRIPTION --
1480: -- Given a batch id it will delete all records associated with the --
1481: -- batch from all the temporary batch tables. Any messages --
1482: -- associated with the batch will also be deleted from the --
1483: -- PAY_MESSAGE_LINES table. --
1484: -----------------------------------------------------------------------
1485: --
1486: procedure purge
1487: (
1576: l_transfer_recs varchar2(1) := null;
1577: l_process_recs varchar2(1) := null;
1578: l_column_name1 varchar2(30):= null;
1579: l_usr_status_chk varchar2(1) := null;
1580: l_error_text pay_message_lines.line_text%TYPE := null;
1581: l_user_status pay_batch_headers.batch_status%TYPE := null;
1582: l_user_message pay_message_lines.line_text%TYPE := null;
1583: sql_curs number;
1584: rows_processed integer;
1578: l_column_name1 varchar2(30):= null;
1579: l_usr_status_chk varchar2(1) := null;
1580: l_error_text pay_message_lines.line_text%TYPE := null;
1581: l_user_status pay_batch_headers.batch_status%TYPE := null;
1582: l_user_message pay_message_lines.line_text%TYPE := null;
1583: sql_curs number;
1584: rows_processed integer;
1585: statem varchar2(256);
1586: l_valid number;
1583: sql_curs number;
1584: rows_processed integer;
1585: statem varchar2(256);
1586: l_valid number;
1587: l_leg_message pay_message_lines.line_text%TYPE := null;
1588: l_legislation_code per_business_groups_perf.legislation_code%TYPE := null;
1589: --
1590: column_is_null exception;
1591: invalid_value exception;
1647: if l_transfer_recs = 'x' then
1648: --
1649: -- Atleast one transferred record has been detected in the batch,
1650: -- therefore the batch will not be validated. An appropriate error
1651: -- message will be inserted into the PAY_MESSAGE_LINES table.
1652: --
1653: --
1654: hr_utility.set_message(801,'HR_7472_PLK_TRANSFERRED_RECS');
1655: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1654: hr_utility.set_message(801,'HR_7472_PLK_TRANSFERRED_RECS');
1655: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1656: l_error_text := substrb(hr_utility.get_message, 1, 240);
1657: --
1658: -- insert into pay_message_lines
1659: -- (LINE_SEQUENCE,
1660: -- PAYROLL_ID,
1661: -- MESSAGE_LEVEL,
1662: -- SOURCE_ID,
1662: -- SOURCE_ID,
1663: -- SOURCE_TYPE,
1664: -- LINE_TEXT)
1665: -- values (
1666: -- pay_message_lines_s.nextval,
1667: -- null,
1668: -- 'F',
1669: -- p_batch_id,
1670: -- 'H',
1697: hr_utility.set_message(801,'HR_MIX_289133_PROCESS_STATE');
1698: hr_utility.set_message_token('BATCH_ID',p_batch_id);
1699: l_error_text := substrb(hr_utility.get_message, 1, 240);
1700: --
1701: -- insert into pay_message_lines
1702: -- (LINE_SEQUENCE,
1703: -- PAYROLL_ID,
1704: -- MESSAGE_LEVEL,
1705: -- SOURCE_ID,
1705: -- SOURCE_ID,
1706: -- SOURCE_TYPE,
1707: -- LINE_TEXT)
1708: -- values (
1709: -- pay_message_lines_s.nextval,
1710: -- null,
1711: -- 'F',
1712: -- p_batch_id,
1713: -- 'H',
1814: 'the legislative batch header procedure');
1815: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1816: --
1817: hr_utility.trace(sqlerrm);
1818: -- insert into pay_message_lines
1819: -- (LINE_SEQUENCE,
1820: -- PAYROLL_ID,
1821: -- MESSAGE_LEVEL,
1822: -- SOURCE_ID,
1822: -- SOURCE_ID,
1823: -- SOURCE_TYPE,
1824: -- LINE_TEXT)
1825: -- values (
1826: -- pay_message_lines_s.nextval,
1827: -- null,
1828: -- 'F',
1829: -- p_batch_id,
1830: -- 'H',
1845: hr_utility.set_message_token('USER_PROCEDURE',
1846: 'the legislative batch header procedure');
1847: l_error_text := substrb((hr_utility.get_message||' '||l_leg_message),1,240);
1848: --
1849: -- insert into pay_message_lines
1850: -- (LINE_SEQUENCE,
1851: -- PAYROLL_ID,
1852: -- MESSAGE_LEVEL,
1853: -- SOURCE_ID,
1853: -- SOURCE_ID,
1854: -- SOURCE_TYPE,
1855: -- LINE_TEXT)
1856: -- values (
1857: -- pay_message_lines_s.nextval,
1858: -- null,
1859: -- 'F',
1860: -- p_batch_id,
1861: -- 'H',
1897: --
1898: hr_utility.set_message(801,'HR_7450_PLK_PACK_BODY_NOT_EXST');
1899: l_error_text := substrb(hr_utility.get_message, 1, 240);
1900: --
1901: -- insert into pay_message_lines
1902: -- (LINE_SEQUENCE,
1903: -- PAYROLL_ID,
1904: -- MESSAGE_LEVEL,
1905: -- SOURCE_ID,
1905: -- SOURCE_ID,
1906: -- SOURCE_TYPE,
1907: -- LINE_TEXT)
1908: -- values (
1909: -- pay_message_lines_s.nextval,
1910: -- null,
1911: -- 'F',
1912: -- p_batch_id,
1913: -- 'H',
1929: hr_utility.set_message_token('USER_PROCEDURE',
1930: 'the user batch header procedure');
1931: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
1932: --
1933: -- insert into pay_message_lines
1934: -- (LINE_SEQUENCE,
1935: -- PAYROLL_ID,
1936: -- MESSAGE_LEVEL,
1937: -- SOURCE_ID,
1937: -- SOURCE_ID,
1938: -- SOURCE_TYPE,
1939: -- LINE_TEXT)
1940: -- values (
1941: -- pay_message_lines_s.nextval,
1942: -- null,
1943: -- 'F',
1944: -- p_batch_id,
1945: -- 'H',
1965: hr_utility.set_message_token('USER_PROCEDURE',
1966: 'the user batch header procedure');
1967: l_error_text := substrb(hr_utility.get_message, 1, 240);
1968: --
1969: -- insert into pay_message_lines
1970: -- (LINE_SEQUENCE,
1971: -- PAYROLL_ID,
1972: -- MESSAGE_LEVEL,
1973: -- SOURCE_ID,
1973: -- SOURCE_ID,
1974: -- SOURCE_TYPE,
1975: -- LINE_TEXT)
1976: -- values (
1977: -- pay_message_lines_s.nextval,
1978: -- null,
1979: -- 'F',
1980: -- p_batch_id,
1981: -- 'H',
2001: hr_utility.set_message_token('USER_PROCEDURE',
2002: 'the user batch header procedure');
2003: l_error_text := substrb(hr_utility.get_message, 1, 240);
2004: --
2005: -- insert into pay_message_lines
2006: -- (LINE_SEQUENCE,
2007: -- PAYROLL_ID,
2008: -- MESSAGE_LEVEL,
2009: -- SOURCE_ID,
2009: -- SOURCE_ID,
2010: -- SOURCE_TYPE,
2011: -- LINE_TEXT)
2012: -- values (
2013: -- pay_message_lines_s.nextval,
2014: -- null,
2015: -- 'F',
2016: -- p_batch_id,
2017: -- 'H',
2037: hr_utility.set_message_token('USER_PROCEDURE',
2038: 'the user batch header procedure');
2039: l_error_text := substrb(hr_utility.get_message, 1, 240);
2040: --
2041: -- insert into pay_message_lines
2042: -- (LINE_SEQUENCE,
2043: -- PAYROLL_ID,
2044: -- MESSAGE_LEVEL,
2045: -- SOURCE_ID,
2045: -- SOURCE_ID,
2046: -- SOURCE_TYPE,
2047: -- LINE_TEXT)
2048: -- values (
2049: -- pay_message_lines_s.nextval,
2050: -- null,
2051: -- 'F',
2052: -- p_batch_id,
2053: -- 'H',
2063: else
2064: --
2065: -- A valid status has been returned from the user header procedure,
2066: -- therefore set the header to the appropriate status and insert a message
2067: -- into the PAY_MESSAGE_LINES table if one has been returned.
2068: --
2069: close csr_status_chk;
2070: --
2071: -- REMOVED THE FOLLOWING. This is logic is done as set_status procedure.
2084: g_user_status := l_user_status;
2085: --
2086: if l_user_message is not null then
2087: --
2088: -- insert into pay_message_lines
2089: -- (LINE_SEQUENCE,
2090: -- PAYROLL_ID,
2091: -- MESSAGE_LEVEL,
2092: -- SOURCE_ID,
2092: -- SOURCE_ID,
2093: -- SOURCE_TYPE,
2094: -- LINE_TEXT)
2095: -- values (
2096: -- pay_message_lines_s.nextval,
2097: -- null,
2098: -- decode(upper(l_user_status),'W','W','E','F','I'),
2099: -- p_batch_id,
2100: -- 'H',
2134: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
2135: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2136: l_error_text := substrb(hr_utility.get_message, 1, 240);
2137: --
2138: -- insert into pay_message_lines
2139: -- (LINE_SEQUENCE,
2140: -- PAYROLL_ID,
2141: -- MESSAGE_LEVEL,
2142: -- SOURCE_ID,
2142: -- SOURCE_ID,
2143: -- SOURCE_TYPE,
2144: -- LINE_TEXT)
2145: -- values (
2146: -- pay_message_lines_s.nextval,
2147: -- null,
2148: -- 'F',
2149: -- p_batch_id,
2150: -- 'H',
2169: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
2170: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2171: l_error_text := substrb(hr_utility.get_message, 1, 240);
2172: --
2173: -- insert into pay_message_lines
2174: -- (LINE_SEQUENCE,
2175: -- PAYROLL_ID,
2176: -- MESSAGE_LEVEL,
2177: -- SOURCE_ID,
2177: -- SOURCE_ID,
2178: -- SOURCE_TYPE,
2179: -- LINE_TEXT)
2180: -- values (
2181: -- pay_message_lines_s.nextval,
2182: -- null,
2183: -- 'F',
2184: -- p_batch_id,
2185: -- 'H',
2231: --
2232: l_exists varchar2(1) :=null;
2233: l_usr_status_chk varchar2(1) :=null;
2234: l_column_name1 varchar2(30) :=null;
2235: l_error_text pay_message_lines.line_text%TYPE := null;
2236: l_user_status pay_batch_control_totals.control_status%TYPE :=null;
2237: l_user_message pay_message_lines.line_text%TYPE :=null;
2238: -- Additions for standard totalling functionality
2239: l_std_status pay_batch_control_totals.control_status%TYPE :=null;
2233: l_usr_status_chk varchar2(1) :=null;
2234: l_column_name1 varchar2(30) :=null;
2235: l_error_text pay_message_lines.line_text%TYPE := null;
2236: l_user_status pay_batch_control_totals.control_status%TYPE :=null;
2237: l_user_message pay_message_lines.line_text%TYPE :=null;
2238: -- Additions for standard totalling functionality
2239: l_std_status pay_batch_control_totals.control_status%TYPE :=null;
2240: l_std_message pay_message_lines.line_text%TYPE :=null;
2241: --
2236: l_user_status pay_batch_control_totals.control_status%TYPE :=null;
2237: l_user_message pay_message_lines.line_text%TYPE :=null;
2238: -- Additions for standard totalling functionality
2239: l_std_status pay_batch_control_totals.control_status%TYPE :=null;
2240: l_std_message pay_message_lines.line_text%TYPE :=null;
2241: --
2242: column_is_null exception;
2243: invalid_value exception;
2244: user_control_error exception;
2345: hr_utility.set_message(801,'HR_34854_ERROR_IN_STD_TOTALS');
2346: hr_utility.set_message_token('NAME_OF_ENTITY_TO_SUM',l_std_message);
2347: l_error_text:=rpad(hr_utility.get_message||' '||sqlerrm,255);
2348:
2349: -- insert into pay_message_lines
2350: -- (LINE_SEQUENCE,
2351: -- PAYROLL_ID,
2352: -- MESSAGE_LEVEL,
2353: -- SOURCE_ID,
2353: -- SOURCE_ID,
2354: -- SOURCE_TYPE,
2355: -- LINE_TEXT)
2356: -- values (
2357: -- pay_message_lines_s.nextval,
2358: -- null,
2359: -- 'F',
2360: -- g_control_record.batch_control_id,
2361: -- 'C',
2381:
2382: if(l_std_status <> 'V') then -- control not valid. Could be 'E' or 'W'
2383: -- insert message and level of error
2384:
2385: -- insert into pay_message_lines
2386: -- (LINE_SEQUENCE,
2387: -- PAYROLL_ID,
2388: -- MESSAGE_LEVEL,
2389: -- SOURCE_ID,
2389: -- SOURCE_ID,
2390: -- SOURCE_TYPE,
2391: -- LINE_TEXT)
2392: -- values (
2393: -- pay_message_lines_s.nextval,
2394: -- null,
2395: -- decode(l_std_status,'E','F',l_std_status),
2396: -- g_control_record.batch_control_id,
2397: -- 'C',
2444: hr_utility.set_message_token('USER_PROCEDURE',
2445: 'the user batch control procedure');
2446: l_error_text := substrb((hr_utility.get_message||' '||sqlerrm),1,240);
2447: --
2448: -- insert into pay_message_lines
2449: -- (LINE_SEQUENCE,
2450: -- PAYROLL_ID,
2451: -- MESSAGE_LEVEL,
2452: -- SOURCE_ID,
2452: -- SOURCE_ID,
2453: -- SOURCE_TYPE,
2454: -- LINE_TEXT)
2455: -- values (
2456: -- pay_message_lines_s.nextval,
2457: -- null,
2458: -- 'F',
2459: -- g_control_record.batch_control_id,
2460: -- 'C',
2481: hr_utility.set_message_token('USER_PROCEDURE',
2482: 'the user batch control procedure');
2483: l_error_text := substrb(hr_utility.get_message, 1, 240);
2484: --
2485: -- insert into pay_message_lines
2486: -- (LINE_SEQUENCE,
2487: -- PAYROLL_ID,
2488: -- MESSAGE_LEVEL,
2489: -- SOURCE_ID,
2489: -- SOURCE_ID,
2490: -- SOURCE_TYPE,
2491: -- LINE_TEXT)
2492: -- values (
2493: -- pay_message_lines_s.nextval,
2494: -- null,
2495: -- 'F',
2496: -- g_control_record.batch_control_id,
2497: -- 'C',
2518: hr_utility.set_message_token('USER_PROCEDURE',
2519: 'the user batch control procedure');
2520: l_error_text := substrb(hr_utility.get_message, 1, 240);
2521: --
2522: -- insert into pay_message_lines
2523: -- (LINE_SEQUENCE,
2524: -- PAYROLL_ID,
2525: -- MESSAGE_LEVEL,
2526: -- SOURCE_ID,
2526: -- SOURCE_ID,
2527: -- SOURCE_TYPE,
2528: -- LINE_TEXT)
2529: -- values (
2530: -- pay_message_lines_s.nextval,
2531: -- null,
2532: -- 'F',
2533: -- g_control_record.batch_control_id,
2534: -- 'C',
2555: hr_utility.set_message_token('USER_PROCEDURE',
2556: 'the user batch control procedure');
2557: l_error_text := substrb(hr_utility.get_message, 1, 240);
2558: --
2559: -- insert into pay_message_lines
2560: -- (LINE_SEQUENCE,
2561: -- PAYROLL_ID,
2562: -- MESSAGE_LEVEL,
2563: -- SOURCE_ID,
2563: -- SOURCE_ID,
2564: -- SOURCE_TYPE,
2565: -- LINE_TEXT)
2566: -- values (
2567: -- pay_message_lines_s.nextval,
2568: -- null,
2569: -- 'F',
2570: -- g_control_record.batch_control_id,
2571: -- 'C',
2581: else
2582: --
2583: -- A valid status has been returned from the user control procedure,
2584: -- therefore set the batch control to the appropriate status and insert
2585: -- a message into the PAY_MESSAGE_LINES table if one has been returned.
2586: --
2587: close csr_status_chk;
2588: --
2589: -- update pay_batch_control_totals bac
2593: -- where current of csr_all_controls;
2594: --
2595: if l_user_message is not null then
2596: --
2597: -- insert into pay_message_lines
2598: -- (LINE_SEQUENCE,
2599: -- PAYROLL_ID,
2600: -- MESSAGE_LEVEL,
2601: -- SOURCE_ID,
2601: -- SOURCE_ID,
2602: -- SOURCE_TYPE,
2603: -- LINE_TEXT)
2604: -- values (
2605: -- pay_message_lines_s.nextval,
2606: -- null,
2607: -- decode(upper(l_user_status),'W','W','E','F','I'),
2608: -- g_control_record.batch_control_id,
2609: -- 'C',
2648: hr_utility.set_message(801,'HR_7449_PLK_COLUMN_NULL');
2649: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2650: l_error_text := substrb(hr_utility.get_message, 1, 240);
2651: --
2652: -- insert into pay_message_lines
2653: -- (LINE_SEQUENCE,
2654: -- PAYROLL_ID,
2655: -- MESSAGE_LEVEL,
2656: -- SOURCE_ID,
2656: -- SOURCE_ID,
2657: -- SOURCE_TYPE,
2658: -- LINE_TEXT)
2659: -- values (
2660: -- pay_message_lines_s.nextval,
2661: -- null,
2662: -- 'F',
2663: -- g_control_record.batch_control_id,
2664: -- 'C',
2681: hr_utility.set_message(801,'HR_7462_PLK_INVLD_VALUE');
2682: hr_utility.set_message_token('COLUMN_NAME',l_column_name1);
2683: l_error_text := substrb(hr_utility.get_message, 1, 240);
2684: --
2685: -- insert into pay_message_lines
2686: -- (LINE_SEQUENCE,
2687: -- PAYROLL_ID,
2688: -- MESSAGE_LEVEL,
2689: -- SOURCE_ID,
2689: -- SOURCE_ID,
2690: -- SOURCE_TYPE,
2691: -- LINE_TEXT)
2692: -- values (
2693: -- pay_message_lines_s.nextval,
2694: -- null,
2695: -- 'F',
2696: -- g_control_record.batch_control_id,
2697: -- 'C',
2724: --
2725: hr_utility.set_message(801,'HR_7477_PLK_NO_CONTROL_TYPES');
2726: l_error_text := substrb(hr_utility.get_message, 1, 240);
2727: --
2728: -- insert into pay_message_lines
2729: -- (LINE_SEQUENCE,
2730: -- PAYROLL_ID,
2731: -- MESSAGE_LEVEL,
2732: -- SOURCE_ID,
2732: -- SOURCE_ID,
2733: -- SOURCE_TYPE,
2734: -- LINE_TEXT)
2735: -- values (
2736: -- pay_message_lines_s.nextval,
2737: -- null,
2738: -- 'F',
2739: -- g_control_record.batch_control_id,
2740: -- 'C',
2807: l_element_type_id pay_batch_lines.element_type_id%TYPE :=null;
2808: l_assignment_id pay_batch_lines.assignment_id%TYPE :=null;
2809: l_element_name pay_batch_lines.element_name%TYPE :=null;
2810: l_assignment_number pay_batch_lines.assignment_number%TYPE :=null;
2811: l_error_text pay_message_lines.line_text%TYPE :=null;
2812: l_input_value_id pay_input_values_f.input_value_id%TYPE :=null;
2813: l_uom pay_input_values_f.uom%TYPE :=null;
2814: l_input_curr_code pay_element_types_f.input_currency_code%TYPE := null;
2815: l_lookup_type pay_input_values_f.lookup_type%TYPE :=null;
2827: per_business_groups_perf.cost_allocation_structure%TYPE :=null;
2828: l_legislation_code per_business_groups_perf.legislation_code%TYPE := null;
2829: l_link_id pay_element_links_f.element_link_id%TYPE :=null;
2830: l_user_status pay_batch_lines.batch_line_status%TYPE :=null;
2831: l_user_message pay_message_lines.line_text%TYPE :=null;
2832: --
2833: absence_entry_already_created boolean := false;
2834: l_absence_attendance_type_id number;
2835: l_absence_attendance_id number;
2843: sql_curs number;
2844: rows_processed integer;
2845: statem varchar2(256);
2846: l_valid number;
2847: l_leg_message pay_message_lines.line_text%TYPE := null;
2848: l_line_changed number;
2849: l_allow_rollback boolean;
2850: --
2851: c_entry_values number :=0;
4226: hr_utility.set_message(801,l_warning_table(l_warning_num));
4227: l_error_text := substrb(hr_utility.get_message, 1, 240);
4228: --
4229: l_line_id_tbl(g_count) := g_line_record.batch_line_id;
4230: -- Changed from ' V' to 'W'. So that Pay_message_lines would not
4231: -- error outs.
4232: l_status_tbl(g_count) := 'W';
4233: l_message_tbl(g_count) := l_error_text;
4234: end if;
4787: -- payplnk.purge_messages PRIVATE PROCEDURE --
4788: -- --
4789: -- DESCRIPTION --
4790: -- Deletes all messages associated with the batch from the --
4791: -- PAY_MESSAGE_LINES table. --
4792: -- This can either be for whole batch or non-transferred part --
4793: -- of the batch, where p_mode can be either Y or N. --
4794: -----------------------------------------------------------------------
4795: --
4815: --
4816: hr_utility.set_location('payplnk.purge_messages',5);
4817: --
4818: for pclrec in pcl(p_batch_id) loop
4819: delete from pay_message_lines
4820: where source_type = 'C'
4821: and source_id = pclrec.batch_control_id;
4822: end loop;
4823: --
4823: --
4824: hr_utility.set_location('payplnk.purge_messages',10);
4825: --
4826: for pblrec in pbl(p_batch_id) loop
4827: delete from pay_message_lines
4828: where source_type = 'L'
4829: and source_id = pblrec.batch_line_id;
4830: end loop;
4831: --
4830: end loop;
4831: --
4832: hr_utility.set_location('payplnk.purge_messages',20);
4833: --
4834: delete from pay_message_lines
4835: where source_type = 'H'
4836: and source_id = p_batch_id
4837: and (not exists
4838: (select null