[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: --
417: l_leg_line_check boolean := false;
418: l_legislation_code per_business_groups_perf.legislation_code%TYPE := null;
419: --
420: l_assignment_id pay_batch_lines.assignment_id%TYPE := null;
421: l_error_text pay_message_lines.line_text%TYPE := null;
422: l_assignment_exists varchar2(1) := null;
423: not_upper boolean := false;
424: --
425: begin
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: -- --
607: -- begin
608: -- for l_error_count in 1..g_count loop
609: -- if l_message_tbl(l_error_count) is not null then
607: -- begin
608: -- for l_error_count in 1..g_count loop
609: -- if l_message_tbl(l_error_count) is not null then
610: -- --
611: -- insert into pay_message_lines
612: -- (LINE_SEQUENCE,
613: -- PAYROLL_ID,
614: -- MESSAGE_LEVEL,
615: -- SOURCE_ID,
615: -- SOURCE_ID,
616: -- SOURCE_TYPE,
617: -- LINE_TEXT)
618: -- values (
619: -- pay_message_lines_s.nextval,
620: -- null,
621: -- l_status_tbl(l_error_count),
622: -- l_line_id_tbl(l_error_count),
623: -- 'L',
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,
686: MESSAGE_LEVEL,
687: SOURCE_ID,
687: SOURCE_ID,
688: SOURCE_TYPE,
689: LINE_TEXT)
690: values (
691: pay_message_lines_s.nextval,
692: null,
693: 'F',
694: g_line_record.batch_line_id,
695: 'L',
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,
737: MESSAGE_LEVEL,
738: SOURCE_ID,
738: SOURCE_ID,
739: SOURCE_TYPE,
740: LINE_TEXT)
741: values (
742: pay_message_lines_s.nextval,
743: null,
744: 'F',
745: g_line_record.batch_line_id,
746: 'L',
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,
784: MESSAGE_LEVEL,
785: SOURCE_ID,
785: SOURCE_ID,
786: SOURCE_TYPE,
787: LINE_TEXT)
788: values (
789: pay_message_lines_s.nextval,
790: null,
791: 'F',
792: g_line_record.batch_line_id,
793: 'L',
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,
810: MESSAGE_LEVEL,
811: SOURCE_ID,
811: SOURCE_ID,
812: SOURCE_TYPE,
813: LINE_TEXT)
814: values (
815: pay_message_lines_s.nextval,
816: null,
817: 'F',
818: g_line_record.batch_line_id,
819: 'L',
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,
841: MESSAGE_LEVEL,
842: SOURCE_ID,
842: SOURCE_ID,
843: SOURCE_TYPE,
844: LINE_TEXT)
845: values (
846: pay_message_lines_s.nextval,
847: null,
848: 'F',
849: g_line_record.batch_line_id,
850: 'L',
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,
907: MESSAGE_LEVEL,
908: SOURCE_ID,
908: SOURCE_ID,
909: SOURCE_TYPE,
910: LINE_TEXT)
911: values (
912: pay_message_lines_s.nextval,
913: null,
914: 'F',
915: g_line_record.batch_line_id,
916: 'L',
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,
950: MESSAGE_LEVEL,
951: SOURCE_ID,
951: SOURCE_ID,
952: SOURCE_TYPE,
953: LINE_TEXT)
954: values (
955: pay_message_lines_s.nextval,
956: null,
957: 'F',
958: g_line_record.batch_line_id,
959: 'L',
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: --
1209: begin
1210: for l_error_count in 1..g_count loop
1211: if g_message_tbl(l_error_count) is not null then
1209: begin
1210: for l_error_count in 1..g_count loop
1211: if g_message_tbl(l_error_count) is not null then
1212: --
1213: insert into pay_message_lines
1214: (LINE_SEQUENCE,
1215: PAYROLL_ID,
1216: MESSAGE_LEVEL,
1217: SOURCE_ID,
1217: SOURCE_ID,
1218: SOURCE_TYPE,
1219: LINE_TEXT)
1220: values (
1221: pay_message_lines_s.nextval,
1222: null,
1223: g_status_tbl(l_error_count),
1224: g_line_id_tbl(l_error_count),
1225: 'L',
1329: --
1330: if g_header_processing then
1331: --
1332: if g_head_err_msg is not null then
1333: insert into pay_message_lines
1334: (LINE_SEQUENCE,
1335: PAYROLL_ID,
1336: MESSAGE_LEVEL,
1337: SOURCE_ID,
1337: SOURCE_ID,
1338: SOURCE_TYPE,
1339: LINE_TEXT)
1340: values (
1341: pay_message_lines_s.nextval,
1342: null,
1343: g_head_err_stat,
1344: p_batch_id,
1345: 'H',
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: --
1361: -- Any messages accumulated during batch lines validation are now
1362: -- inserted into the pay_message_lines table.
1363: --
1364: begin
1365: for l_error_count in 1..g_control_count loop
1366: if g_ctl_mess_tbl(l_error_count) is not null then
1364: begin
1365: for l_error_count in 1..g_control_count loop
1366: if g_ctl_mess_tbl(l_error_count) is not null then
1367: --
1368: insert into pay_message_lines
1369: (LINE_SEQUENCE,
1370: PAYROLL_ID,
1371: MESSAGE_LEVEL,
1372: SOURCE_ID,
1372: SOURCE_ID,
1373: SOURCE_TYPE,
1374: LINE_TEXT)
1375: values (
1376: pay_message_lines_s.nextval,
1377: null,
1378: g_ctl_stat_tbl(l_error_count),
1379: g_ctl_id_tbl(l_error_count),
1380: 'C',
1481: -- DESCRIPTION --
1482: -- Given a batch id it will delete all records associated with the --
1483: -- batch from all the temporary batch tables. Any messages --
1484: -- associated with the batch will also be deleted from the --
1485: -- PAY_MESSAGE_LINES table. --
1486: -----------------------------------------------------------------------
1487: --
1488: procedure purge
1489: (
1578: l_transfer_recs varchar2(1) := null;
1579: l_process_recs varchar2(1) := null;
1580: l_column_name1 varchar2(30):= null;
1581: l_usr_status_chk varchar2(1) := null;
1582: l_error_text pay_message_lines.line_text%TYPE := null;
1583: l_user_status pay_batch_headers.batch_status%TYPE := null;
1584: l_user_message pay_message_lines.line_text%TYPE := null;
1585: sql_curs number;
1586: rows_processed integer;
1580: l_column_name1 varchar2(30):= null;
1581: l_usr_status_chk varchar2(1) := null;
1582: l_error_text pay_message_lines.line_text%TYPE := null;
1583: l_user_status pay_batch_headers.batch_status%TYPE := null;
1584: l_user_message pay_message_lines.line_text%TYPE := null;
1585: sql_curs number;
1586: rows_processed integer;
1587: statem varchar2(256);
1588: l_valid number;
1585: sql_curs number;
1586: rows_processed integer;
1587: statem varchar2(256);
1588: l_valid number;
1589: l_leg_message pay_message_lines.line_text%TYPE := null;
1590: l_legislation_code per_business_groups_perf.legislation_code%TYPE := null;
1591: --
1592: column_is_null exception;
1593: invalid_value exception;
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);
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,
1663: -- MESSAGE_LEVEL,
1664: -- SOURCE_ID,
1664: -- SOURCE_ID,
1665: -- SOURCE_TYPE,
1666: -- LINE_TEXT)
1667: -- values (
1668: -- pay_message_lines_s.nextval,
1669: -- null,
1670: -- 'F',
1671: -- p_batch_id,
1672: -- 'H',
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,
1706: -- MESSAGE_LEVEL,
1707: -- SOURCE_ID,
1707: -- SOURCE_ID,
1708: -- SOURCE_TYPE,
1709: -- LINE_TEXT)
1710: -- values (
1711: -- pay_message_lines_s.nextval,
1712: -- null,
1713: -- 'F',
1714: -- p_batch_id,
1715: -- 'H',
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,
1824: -- SOURCE_ID,
1824: -- SOURCE_ID,
1825: -- SOURCE_TYPE,
1826: -- LINE_TEXT)
1827: -- values (
1828: -- pay_message_lines_s.nextval,
1829: -- null,
1830: -- 'F',
1831: -- p_batch_id,
1832: -- 'H',
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,
1854: -- MESSAGE_LEVEL,
1855: -- SOURCE_ID,
1855: -- SOURCE_ID,
1856: -- SOURCE_TYPE,
1857: -- LINE_TEXT)
1858: -- values (
1859: -- pay_message_lines_s.nextval,
1860: -- null,
1861: -- 'F',
1862: -- p_batch_id,
1863: -- 'H',
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,
1906: -- MESSAGE_LEVEL,
1907: -- SOURCE_ID,
1907: -- SOURCE_ID,
1908: -- SOURCE_TYPE,
1909: -- LINE_TEXT)
1910: -- values (
1911: -- pay_message_lines_s.nextval,
1912: -- null,
1913: -- 'F',
1914: -- p_batch_id,
1915: -- 'H',
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,
1938: -- MESSAGE_LEVEL,
1939: -- SOURCE_ID,
1939: -- SOURCE_ID,
1940: -- SOURCE_TYPE,
1941: -- LINE_TEXT)
1942: -- values (
1943: -- pay_message_lines_s.nextval,
1944: -- null,
1945: -- 'F',
1946: -- p_batch_id,
1947: -- 'H',
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,
1974: -- MESSAGE_LEVEL,
1975: -- SOURCE_ID,
1975: -- SOURCE_ID,
1976: -- SOURCE_TYPE,
1977: -- LINE_TEXT)
1978: -- values (
1979: -- pay_message_lines_s.nextval,
1980: -- null,
1981: -- 'F',
1982: -- p_batch_id,
1983: -- 'H',
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,
2010: -- MESSAGE_LEVEL,
2011: -- SOURCE_ID,
2011: -- SOURCE_ID,
2012: -- SOURCE_TYPE,
2013: -- LINE_TEXT)
2014: -- values (
2015: -- pay_message_lines_s.nextval,
2016: -- null,
2017: -- 'F',
2018: -- p_batch_id,
2019: -- 'H',
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,
2046: -- MESSAGE_LEVEL,
2047: -- SOURCE_ID,
2047: -- SOURCE_ID,
2048: -- SOURCE_TYPE,
2049: -- LINE_TEXT)
2050: -- values (
2051: -- pay_message_lines_s.nextval,
2052: -- null,
2053: -- 'F',
2054: -- p_batch_id,
2055: -- 'H',
2065: else
2066: --
2067: -- A valid status has been returned from the user header procedure,
2068: -- therefore set the header to the appropriate status and insert a message
2069: -- into the PAY_MESSAGE_LINES table if one has been returned.
2070: --
2071: close csr_status_chk;
2072: --
2073: -- REMOVED THE FOLLOWING. This is logic is done as set_status procedure.
2086: g_user_status := l_user_status;
2087: --
2088: if l_user_message is not null then
2089: --
2090: -- insert into pay_message_lines
2091: -- (LINE_SEQUENCE,
2092: -- PAYROLL_ID,
2093: -- MESSAGE_LEVEL,
2094: -- SOURCE_ID,
2094: -- SOURCE_ID,
2095: -- SOURCE_TYPE,
2096: -- LINE_TEXT)
2097: -- values (
2098: -- pay_message_lines_s.nextval,
2099: -- null,
2100: -- decode(upper(l_user_status),'W','W','E','F','I'),
2101: -- p_batch_id,
2102: -- 'H',
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,
2143: -- MESSAGE_LEVEL,
2144: -- SOURCE_ID,
2144: -- SOURCE_ID,
2145: -- SOURCE_TYPE,
2146: -- LINE_TEXT)
2147: -- values (
2148: -- pay_message_lines_s.nextval,
2149: -- null,
2150: -- 'F',
2151: -- p_batch_id,
2152: -- 'H',
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,
2178: -- MESSAGE_LEVEL,
2179: -- SOURCE_ID,
2179: -- SOURCE_ID,
2180: -- SOURCE_TYPE,
2181: -- LINE_TEXT)
2182: -- values (
2183: -- pay_message_lines_s.nextval,
2184: -- null,
2185: -- 'F',
2186: -- p_batch_id,
2187: -- 'H',
2233: --
2234: l_exists varchar2(1) :=null;
2235: l_usr_status_chk varchar2(1) :=null;
2236: l_column_name1 varchar2(30) :=null;
2237: l_error_text pay_message_lines.line_text%TYPE := null;
2238: l_user_status pay_batch_control_totals.control_status%TYPE :=null;
2239: l_user_message pay_message_lines.line_text%TYPE :=null;
2240: -- Additions for standard totalling functionality
2241: l_std_status pay_batch_control_totals.control_status%TYPE :=null;
2235: l_usr_status_chk varchar2(1) :=null;
2236: l_column_name1 varchar2(30) :=null;
2237: l_error_text pay_message_lines.line_text%TYPE := null;
2238: l_user_status pay_batch_control_totals.control_status%TYPE :=null;
2239: l_user_message pay_message_lines.line_text%TYPE :=null;
2240: -- Additions for standard totalling functionality
2241: l_std_status pay_batch_control_totals.control_status%TYPE :=null;
2242: l_std_message pay_message_lines.line_text%TYPE :=null;
2243: --
2238: l_user_status pay_batch_control_totals.control_status%TYPE :=null;
2239: l_user_message pay_message_lines.line_text%TYPE :=null;
2240: -- Additions for standard totalling functionality
2241: l_std_status pay_batch_control_totals.control_status%TYPE :=null;
2242: l_std_message pay_message_lines.line_text%TYPE :=null;
2243: --
2244: column_is_null exception;
2245: invalid_value exception;
2246: user_control_error exception;
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,
2354: -- MESSAGE_LEVEL,
2355: -- SOURCE_ID,
2355: -- SOURCE_ID,
2356: -- SOURCE_TYPE,
2357: -- LINE_TEXT)
2358: -- values (
2359: -- pay_message_lines_s.nextval,
2360: -- null,
2361: -- 'F',
2362: -- g_control_record.batch_control_id,
2363: -- 'C',
2383:
2384: if(l_std_status <> 'V') then -- control not valid. Could be 'E' or 'W'
2385: -- insert message and level of error
2386:
2387: -- insert into pay_message_lines
2388: -- (LINE_SEQUENCE,
2389: -- PAYROLL_ID,
2390: -- MESSAGE_LEVEL,
2391: -- SOURCE_ID,
2391: -- SOURCE_ID,
2392: -- SOURCE_TYPE,
2393: -- LINE_TEXT)
2394: -- values (
2395: -- pay_message_lines_s.nextval,
2396: -- null,
2397: -- decode(l_std_status,'E','F',l_std_status),
2398: -- g_control_record.batch_control_id,
2399: -- 'C',
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,
2453: -- MESSAGE_LEVEL,
2454: -- SOURCE_ID,
2454: -- SOURCE_ID,
2455: -- SOURCE_TYPE,
2456: -- LINE_TEXT)
2457: -- values (
2458: -- pay_message_lines_s.nextval,
2459: -- null,
2460: -- 'F',
2461: -- g_control_record.batch_control_id,
2462: -- 'C',
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,
2490: -- MESSAGE_LEVEL,
2491: -- SOURCE_ID,
2491: -- SOURCE_ID,
2492: -- SOURCE_TYPE,
2493: -- LINE_TEXT)
2494: -- values (
2495: -- pay_message_lines_s.nextval,
2496: -- null,
2497: -- 'F',
2498: -- g_control_record.batch_control_id,
2499: -- 'C',
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,
2527: -- MESSAGE_LEVEL,
2528: -- SOURCE_ID,
2528: -- SOURCE_ID,
2529: -- SOURCE_TYPE,
2530: -- LINE_TEXT)
2531: -- values (
2532: -- pay_message_lines_s.nextval,
2533: -- null,
2534: -- 'F',
2535: -- g_control_record.batch_control_id,
2536: -- '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,
2564: -- MESSAGE_LEVEL,
2565: -- SOURCE_ID,
2565: -- SOURCE_ID,
2566: -- SOURCE_TYPE,
2567: -- LINE_TEXT)
2568: -- values (
2569: -- pay_message_lines_s.nextval,
2570: -- null,
2571: -- 'F',
2572: -- g_control_record.batch_control_id,
2573: -- 'C',
2583: else
2584: --
2585: -- A valid status has been returned from the user control procedure,
2586: -- therefore set the batch control to the appropriate status and insert
2587: -- a message into the PAY_MESSAGE_LINES table if one has been returned.
2588: --
2589: close csr_status_chk;
2590: --
2591: -- update pay_batch_control_totals bac
2595: -- where current of csr_all_controls;
2596: --
2597: if l_user_message is not null then
2598: --
2599: -- insert into pay_message_lines
2600: -- (LINE_SEQUENCE,
2601: -- PAYROLL_ID,
2602: -- MESSAGE_LEVEL,
2603: -- SOURCE_ID,
2603: -- SOURCE_ID,
2604: -- SOURCE_TYPE,
2605: -- LINE_TEXT)
2606: -- values (
2607: -- pay_message_lines_s.nextval,
2608: -- null,
2609: -- decode(upper(l_user_status),'W','W','E','F','I'),
2610: -- g_control_record.batch_control_id,
2611: -- 'C',
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,
2657: -- MESSAGE_LEVEL,
2658: -- SOURCE_ID,
2658: -- SOURCE_ID,
2659: -- SOURCE_TYPE,
2660: -- LINE_TEXT)
2661: -- values (
2662: -- pay_message_lines_s.nextval,
2663: -- null,
2664: -- 'F',
2665: -- g_control_record.batch_control_id,
2666: -- 'C',
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,
2690: -- MESSAGE_LEVEL,
2691: -- SOURCE_ID,
2691: -- SOURCE_ID,
2692: -- SOURCE_TYPE,
2693: -- LINE_TEXT)
2694: -- values (
2695: -- pay_message_lines_s.nextval,
2696: -- null,
2697: -- 'F',
2698: -- g_control_record.batch_control_id,
2699: -- 'C',
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,
2733: -- MESSAGE_LEVEL,
2734: -- SOURCE_ID,
2734: -- SOURCE_ID,
2735: -- SOURCE_TYPE,
2736: -- LINE_TEXT)
2737: -- values (
2738: -- pay_message_lines_s.nextval,
2739: -- null,
2740: -- 'F',
2741: -- g_control_record.batch_control_id,
2742: -- 'C',
2809: l_element_type_id pay_batch_lines.element_type_id%TYPE :=null;
2810: l_assignment_id pay_batch_lines.assignment_id%TYPE :=null;
2811: l_element_name pay_batch_lines.element_name%TYPE :=null;
2812: l_assignment_number pay_batch_lines.assignment_number%TYPE :=null;
2813: l_error_text pay_message_lines.line_text%TYPE :=null;
2814: l_input_value_id pay_input_values_f.input_value_id%TYPE :=null;
2815: l_uom pay_input_values_f.uom%TYPE :=null;
2816: l_input_curr_code pay_element_types_f.input_currency_code%TYPE := null;
2817: l_lookup_type pay_input_values_f.lookup_type%TYPE :=null;
2829: per_business_groups_perf.cost_allocation_structure%TYPE :=null;
2830: l_legislation_code per_business_groups_perf.legislation_code%TYPE := null;
2831: l_link_id pay_element_links_f.element_link_id%TYPE :=null;
2832: l_user_status pay_batch_lines.batch_line_status%TYPE :=null;
2833: l_user_message pay_message_lines.line_text%TYPE :=null;
2834: --
2835: absence_entry_already_created boolean := false;
2836: l_absence_attendance_type_id number;
2837: l_absence_attendance_id number;
2845: sql_curs number;
2846: rows_processed integer;
2847: statem varchar2(256);
2848: l_valid number;
2849: l_leg_message pay_message_lines.line_text%TYPE := null;
2850: l_line_changed number;
2851: l_allow_rollback boolean;
2852: --
2853: c_entry_values number :=0;
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.
4250: l_status_tbl(g_count) := 'W';
4251: l_message_tbl(g_count) := l_error_text;
4252: end if;
4819: -- payplnk.purge_messages PRIVATE PROCEDURE --
4820: -- --
4821: -- DESCRIPTION --
4822: -- Deletes all messages associated with the batch from the --
4823: -- PAY_MESSAGE_LINES table. --
4824: -- This can either be for whole batch or non-transferred part --
4825: -- of the batch, where p_mode can be either Y or N. --
4826: -----------------------------------------------------------------------
4827: --
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'
4853: and source_id = pclrec.batch_control_id;
4854: end loop;
4855: --
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'
4861: and source_id = pblrec.batch_line_id;
4862: end loop;
4863: --
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
4869: and (not exists
4870: (select null