[Home] [Help]
516: debug('g_header_system_element: '||g_header_system_element, 80);
517:
518: -- Setting all the required date globals of tp1 package
519: -- other tp1 globals are already set by set_extract_globals function
520: pqp_gb_t1_pension_extracts.g_effective_date := g_effective_date ;
521: pqp_gb_t1_pension_extracts.g_last_effective_date := g_last_effective_date ;
522: pqp_gb_t1_pension_extracts.g_next_effective_date := g_next_effective_date ;
523: pqp_gb_t1_pension_extracts.g_effective_run_date := g_effective_run_date ;
524: pqp_gb_t1_pension_extracts.g_header_system_element := g_header_system_element;
517:
518: -- Setting all the required date globals of tp1 package
519: -- other tp1 globals are already set by set_extract_globals function
520: pqp_gb_t1_pension_extracts.g_effective_date := g_effective_date ;
521: pqp_gb_t1_pension_extracts.g_last_effective_date := g_last_effective_date ;
522: pqp_gb_t1_pension_extracts.g_next_effective_date := g_next_effective_date ;
523: pqp_gb_t1_pension_extracts.g_effective_run_date := g_effective_run_date ;
524: pqp_gb_t1_pension_extracts.g_header_system_element := g_header_system_element;
525:
518: -- Setting all the required date globals of tp1 package
519: -- other tp1 globals are already set by set_extract_globals function
520: pqp_gb_t1_pension_extracts.g_effective_date := g_effective_date ;
521: pqp_gb_t1_pension_extracts.g_last_effective_date := g_last_effective_date ;
522: pqp_gb_t1_pension_extracts.g_next_effective_date := g_next_effective_date ;
523: pqp_gb_t1_pension_extracts.g_effective_run_date := g_effective_run_date ;
524: pqp_gb_t1_pension_extracts.g_header_system_element := g_header_system_element;
525:
526: -- RET2.a : Changes related to Legislative updates to Retention Allowance
519: -- other tp1 globals are already set by set_extract_globals function
520: pqp_gb_t1_pension_extracts.g_effective_date := g_effective_date ;
521: pqp_gb_t1_pension_extracts.g_last_effective_date := g_last_effective_date ;
522: pqp_gb_t1_pension_extracts.g_next_effective_date := g_next_effective_date ;
523: pqp_gb_t1_pension_extracts.g_effective_run_date := g_effective_run_date ;
524: pqp_gb_t1_pension_extracts.g_header_system_element := g_header_system_element;
525:
526: -- RET2.a : Changes related to Legislative updates to Retention Allowance
527: -- The Pension Year start date is required : as changes are effective from
520: pqp_gb_t1_pension_extracts.g_effective_date := g_effective_date ;
521: pqp_gb_t1_pension_extracts.g_last_effective_date := g_last_effective_date ;
522: pqp_gb_t1_pension_extracts.g_next_effective_date := g_next_effective_date ;
523: pqp_gb_t1_pension_extracts.g_effective_run_date := g_effective_run_date ;
524: pqp_gb_t1_pension_extracts.g_header_system_element := g_header_system_element;
525:
526: -- RET2.a : Changes related to Legislative updates to Retention Allowance
527: -- The Pension Year start date is required : as changes are effective from
528: -- 01-APR-2004.
544: END IF; -- End if of month check...
545:
546: debug('l_year: '||to_char(l_year), 130);
547:
548: pqp_gb_t1_pension_extracts.g_pension_year_start_date
549: := to_date('01/04/'||to_char(l_year), 'DD/MM/YYYY');
550:
551: debug('g_pension_year_start_date: '||
552: fnd_date.date_to_canonical(pqp_gb_t1_pension_extracts.g_pension_year_start_date),140);
548: pqp_gb_t1_pension_extracts.g_pension_year_start_date
549: := to_date('01/04/'||to_char(l_year), 'DD/MM/YYYY');
550:
551: debug('g_pension_year_start_date: '||
552: fnd_date.date_to_canonical(pqp_gb_t1_pension_extracts.g_pension_year_start_date),140);
553:
554: debug_exit(l_proc_name);
555: END set_run_effective_dates;
556: --
1282: -- there are multiple LEA's with same LEA number
1283: l_lea_dets_by_loc csr_lea_details_by_loc%ROWTYPE;
1284: l_estb_details csr_estb_details%ROWTYPE;
1285: l_estb_details_by_loc csr_estb_details_by_loc%ROWTYPE;
1286: l_req_dets pqp_gb_t1_pension_extracts.csr_request_dets%ROWTYPE;
1287: l_lea_dets_frm_bg csr_lea_details%ROWTYPE;
1288:
1289:
1290:
1302: -- get the parent request Id.
1303: -- It is required to fetch the correct LEA number
1304: -- from the pqp_ext_cross_person_records table.
1305:
1306: OPEN pqp_gb_t1_pension_extracts.csr_request_dets;
1307: FETCH pqp_gb_t1_pension_extracts.csr_request_dets INTO l_req_dets;
1308: CLOSE pqp_gb_t1_pension_extracts.csr_request_dets;
1309:
1310: l_request_id := l_req_dets.parent_request_id ;
1303: -- It is required to fetch the correct LEA number
1304: -- from the pqp_ext_cross_person_records table.
1305:
1306: OPEN pqp_gb_t1_pension_extracts.csr_request_dets;
1307: FETCH pqp_gb_t1_pension_extracts.csr_request_dets INTO l_req_dets;
1308: CLOSE pqp_gb_t1_pension_extracts.csr_request_dets;
1309:
1310: l_request_id := l_req_dets.parent_request_id ;
1311: debug ('l_request_id:'||l_request_id, 20);
1304: -- from the pqp_ext_cross_person_records table.
1305:
1306: OPEN pqp_gb_t1_pension_extracts.csr_request_dets;
1307: FETCH pqp_gb_t1_pension_extracts.csr_request_dets INTO l_req_dets;
1308: CLOSE pqp_gb_t1_pension_extracts.csr_request_dets;
1309:
1310: l_request_id := l_req_dets.parent_request_id ;
1311: debug ('l_request_id:'||l_request_id, 20);
1312:
1316: WHILE (l_request_id <> -1)
1317: LOOP
1318: g_parent_request_id := l_request_id ;
1319:
1320: OPEN pqp_gb_t1_pension_extracts.csr_request_dets (p_request_id => l_request_id);
1321: FETCH pqp_gb_t1_pension_extracts.csr_request_dets INTO l_req_dets;
1322: CLOSE pqp_gb_t1_pension_extracts.csr_request_dets;
1323: l_conc_prog_name := l_req_dets.concurrent_program_name ;
1324: debug ('l_conc_prog_name:'||l_conc_prog_name, 25);
1317: LOOP
1318: g_parent_request_id := l_request_id ;
1319:
1320: OPEN pqp_gb_t1_pension_extracts.csr_request_dets (p_request_id => l_request_id);
1321: FETCH pqp_gb_t1_pension_extracts.csr_request_dets INTO l_req_dets;
1322: CLOSE pqp_gb_t1_pension_extracts.csr_request_dets;
1323: l_conc_prog_name := l_req_dets.concurrent_program_name ;
1324: debug ('l_conc_prog_name:'||l_conc_prog_name, 25);
1325: l_request_id := l_req_dets.parent_request_id ;
1318: g_parent_request_id := l_request_id ;
1319:
1320: OPEN pqp_gb_t1_pension_extracts.csr_request_dets (p_request_id => l_request_id);
1321: FETCH pqp_gb_t1_pension_extracts.csr_request_dets INTO l_req_dets;
1322: CLOSE pqp_gb_t1_pension_extracts.csr_request_dets;
1323: l_conc_prog_name := l_req_dets.concurrent_program_name ;
1324: debug ('l_conc_prog_name:'||l_conc_prog_name, 25);
1325: l_request_id := l_req_dets.parent_request_id ;
1326: END LOOP;
1336:
1337:
1338: -- if the Extract Process is running on its own., then g_parent_request_id = -1
1339: debug ('g_parent_request_id:'||g_parent_request_id, 30);
1340: -- This request ID will be furhter used in pqp_gb_t1_pension_extracts.reset_proc_status.
1341:
1342: IF (g_parent_request_id <> -1) THEN
1343: debug ('*********this is a TPEP run***********', 40);
1344: ELSE
1582: -- global Dates for tp1 will be set in set_run_effective_dates procedure.
1583: -- These globals are required if the Type4 report is running.
1584: -- Type1 report sets these globals itself from the Type4 globals
1585:
1586: pqp_gb_t1_pension_extracts.g_business_group_id := g_business_group_id ;
1587: pqp_gb_t1_pension_extracts.g_lea_number := g_lea_number ;
1588: pqp_gb_t1_pension_extracts.g_crossbg_enabled := g_crossbg_enabled ;
1589: pqp_gb_t1_pension_extracts.g_primary_assignment_id := p_assignment_id ;
1590: pqp_gb_t1_pension_extracts.g_extract_type := g_extract_type ;
1583: -- These globals are required if the Type4 report is running.
1584: -- Type1 report sets these globals itself from the Type4 globals
1585:
1586: pqp_gb_t1_pension_extracts.g_business_group_id := g_business_group_id ;
1587: pqp_gb_t1_pension_extracts.g_lea_number := g_lea_number ;
1588: pqp_gb_t1_pension_extracts.g_crossbg_enabled := g_crossbg_enabled ;
1589: pqp_gb_t1_pension_extracts.g_primary_assignment_id := p_assignment_id ;
1590: pqp_gb_t1_pension_extracts.g_extract_type := g_extract_type ;
1591:
1584: -- Type1 report sets these globals itself from the Type4 globals
1585:
1586: pqp_gb_t1_pension_extracts.g_business_group_id := g_business_group_id ;
1587: pqp_gb_t1_pension_extracts.g_lea_number := g_lea_number ;
1588: pqp_gb_t1_pension_extracts.g_crossbg_enabled := g_crossbg_enabled ;
1589: pqp_gb_t1_pension_extracts.g_primary_assignment_id := p_assignment_id ;
1590: pqp_gb_t1_pension_extracts.g_extract_type := g_extract_type ;
1591:
1592: -- Extract the list of criteria organizations which will be used to search
1585:
1586: pqp_gb_t1_pension_extracts.g_business_group_id := g_business_group_id ;
1587: pqp_gb_t1_pension_extracts.g_lea_number := g_lea_number ;
1588: pqp_gb_t1_pension_extracts.g_crossbg_enabled := g_crossbg_enabled ;
1589: pqp_gb_t1_pension_extracts.g_primary_assignment_id := p_assignment_id ;
1590: pqp_gb_t1_pension_extracts.g_extract_type := g_extract_type ;
1591:
1592: -- Extract the list of criteria organizations which will be used to search
1593: IF g_estb_number = '0000' THEN -- LEA Run
1586: pqp_gb_t1_pension_extracts.g_business_group_id := g_business_group_id ;
1587: pqp_gb_t1_pension_extracts.g_lea_number := g_lea_number ;
1588: pqp_gb_t1_pension_extracts.g_crossbg_enabled := g_crossbg_enabled ;
1589: pqp_gb_t1_pension_extracts.g_primary_assignment_id := p_assignment_id ;
1590: pqp_gb_t1_pension_extracts.g_extract_type := g_extract_type ;
1591:
1592: -- Extract the list of criteria organizations which will be used to search
1593: IF g_estb_number = '0000' THEN -- LEA Run
1594:
1598: -- AND current BG is enabled for cross BG reporting
1599: IF g_crossbg_enabled = 'Y' THEN
1600: -- Store all BGs with same LEA Number and
1601: -- enabled for cross BG reporting
1602: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
1603: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
1604: pqp_gb_t1_pension_extracts.store_cross_bg_details ;
1605: pqp_gb_t1_pension_extracts.g_nested_level := l_tp1_nested_level ; --115.34
1606: ELSE
1599: IF g_crossbg_enabled = 'Y' THEN
1600: -- Store all BGs with same LEA Number and
1601: -- enabled for cross BG reporting
1602: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
1603: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
1604: pqp_gb_t1_pension_extracts.store_cross_bg_details ;
1605: pqp_gb_t1_pension_extracts.g_nested_level := l_tp1_nested_level ; --115.34
1606: ELSE
1607: -- Bugfix 3823873 :
1600: -- Store all BGs with same LEA Number and
1601: -- enabled for cross BG reporting
1602: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
1603: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
1604: pqp_gb_t1_pension_extracts.store_cross_bg_details ;
1605: pqp_gb_t1_pension_extracts.g_nested_level := l_tp1_nested_level ; --115.34
1606: ELSE
1607: -- Bugfix 3823873 :
1608: -- Setting the master BG Id. It was not being set for single Bg
1601: -- enabled for cross BG reporting
1602: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
1603: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
1604: pqp_gb_t1_pension_extracts.store_cross_bg_details ;
1605: pqp_gb_t1_pension_extracts.g_nested_level := l_tp1_nested_level ; --115.34
1606: ELSE
1607: -- Bugfix 3823873 :
1608: -- Setting the master BG Id. It was not being set for single Bg
1609: -- set up for LEA run. Discovered when debugging issue with date
1607: -- Bugfix 3823873 :
1608: -- Setting the master BG Id. It was not being set for single Bg
1609: -- set up for LEA run. Discovered when debugging issue with date
1610: -- track updates on NI
1611: pqp_gb_t1_pension_extracts.g_master_bg_id := g_business_group_id;
1612: END IF;
1613:
1614: ELSE --non LEA run
1615: fetch_criteria_establishments(l_estb_details_by_loc);
1612: END IF;
1613:
1614: ELSE --non LEA run
1615: fetch_criteria_establishments(l_estb_details_by_loc);
1616: pqp_gb_t1_pension_extracts.g_master_bg_id := g_business_group_id;
1617: END IF ;
1618:
1619: -- Added for salary scale changes
1620: -- at the moment do this only for Type 1 and Type 4
1638: debug ('g_header_system_element:'||g_header_system_element, 420);
1639:
1640: -- Reset the processing status in multiproc data table to U
1641: -- if the extract process is running on its own.
1642: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
1643: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
1644:
1645: pqp_gb_t1_pension_extracts.reset_proc_status ;
1646:
1639:
1640: -- Reset the processing status in multiproc data table to U
1641: -- if the extract process is running on its own.
1642: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
1643: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
1644:
1645: pqp_gb_t1_pension_extracts.reset_proc_status ;
1646:
1647: pqp_gb_t1_pension_extracts.g_nested_level := l_tp1_nested_level ; --115.34
1641: -- if the extract process is running on its own.
1642: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
1643: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
1644:
1645: pqp_gb_t1_pension_extracts.reset_proc_status ;
1646:
1647: pqp_gb_t1_pension_extracts.g_nested_level := l_tp1_nested_level ; --115.34
1648:
1649: debug_exit(l_proc_name);
1643: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
1644:
1645: pqp_gb_t1_pension_extracts.reset_proc_status ;
1646:
1647: pqp_gb_t1_pension_extracts.g_nested_level := l_tp1_nested_level ; --115.34
1648:
1649: debug_exit(l_proc_name);
1650: END set_extract_globals;
1651: --
1725: l_error NUMBER;
1726:
1727:
1728: l_asg_details csr_asg_details%ROWTYPE;
1729: --l_asg_details_up pqp_gb_t1_pension_extracts.csr_asg_details_up%ROWTYPE;
1730: l_candidate_asg csr_asg_details%ROWTYPE; --to keep the candidate assignment for reporting.
1731: l_pqp_asg_attributes csr_pqp_asg_attributes_dn%ROWTYPE;
1732: --l_pqp_asg_attributes_up pqp_gb_t1_pension_extracts.csr_pqp_asg_attributes_up%ROWTYPE;
1733: l_cdt_asg_attributes csr_pqp_asg_attributes_dn%ROWTYPE; --to keep the assignment attribues of candidate assignment.
1728: l_asg_details csr_asg_details%ROWTYPE;
1729: --l_asg_details_up pqp_gb_t1_pension_extracts.csr_asg_details_up%ROWTYPE;
1730: l_candidate_asg csr_asg_details%ROWTYPE; --to keep the candidate assignment for reporting.
1731: l_pqp_asg_attributes csr_pqp_asg_attributes_dn%ROWTYPE;
1732: --l_pqp_asg_attributes_up pqp_gb_t1_pension_extracts.csr_pqp_asg_attributes_up%ROWTYPE;
1733: l_cdt_asg_attributes csr_pqp_asg_attributes_dn%ROWTYPE; --to keep the assignment attribues of candidate assignment.
1734:
1735: l_proc_name VARCHAR2(61):= g_proc_name||'chk_tp4_is_teacher_new_starter';
1736:
1770: debug('g_lea_number:'||g_lea_number);
1771: debug('g_extract_type:'||g_extract_type);
1772: debug('g_extract_udt_name:'||g_extract_udt_name);
1773: debug('g_crossbg_enabled:'||g_crossbg_enabled);
1774: debug('pqp_gb_t1_pension_extracts.g_cross_per_enabled:'||pqp_gb_t1_pension_extracts.g_cross_per_enabled);
1775: debug('g_criteria_location_code:'||g_criteria_location_code);
1776: debug('g_estb_number:'||g_estb_number);
1777: debug('g_originators_title:'||g_originators_title);
1778: debug('g_last_effective_date:'||g_last_effective_date);
1801: -- the method 'chk_report_person'in type1 report code does that,
1802: -- by checking for the same national_identifier
1803:
1804: -- If other process is not processing then goto step 2 else STOP.
1805: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
1806: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
1807:
1808: IF ( pqp_gb_t1_pension_extracts.chk_report_person
1809: (p_business_group_id => p_business_group_id
1802: -- by checking for the same national_identifier
1803:
1804: -- If other process is not processing then goto step 2 else STOP.
1805: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
1806: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
1807:
1808: IF ( pqp_gb_t1_pension_extracts.chk_report_person
1809: (p_business_group_id => p_business_group_id
1810: ,p_effective_date => p_effective_date
1804: -- If other process is not processing then goto step 2 else STOP.
1805: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
1806: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
1807:
1808: IF ( pqp_gb_t1_pension_extracts.chk_report_person
1809: (p_business_group_id => p_business_group_id
1810: ,p_effective_date => p_effective_date
1811: ,p_assignment_id => p_assignment_id)
1812: ) THEN
1810: ,p_effective_date => p_effective_date
1811: ,p_assignment_id => p_assignment_id)
1812: ) THEN
1813:
1814: pqp_gb_t1_pension_extracts.g_nested_level := l_tp1_nested_level;
1815: debug('inside IF chk_report_person', 60);
1816:
1817: -- check if the assignment has raised a starter event in the duration...
1818: -- if yes, then it is a candidate assignment for this report run
1859:
1860: -- As the Primary asignment is not a valid teaching assignment,
1861: -- we need to fetch the sec assignments for the Same person rec.
1862: -- we need to fetch the person ID from the primary assignment.
1863: OPEN pqp_gb_t1_pension_extracts.csr_asg_details_up (p_assignment_id => p_assignment_id
1864: ,p_effective_date => g_last_effective_date ) ; --Pension Period Start Date.
1865: FETCH pqp_gb_t1_pension_extracts.csr_asg_details_up INTO l_asg_details ;
1866: CLOSE pqp_gb_t1_pension_extracts.csr_asg_details_up ;
1867: debug('Adding the primary assignment to the global collection..',130);
1861: -- we need to fetch the sec assignments for the Same person rec.
1862: -- we need to fetch the person ID from the primary assignment.
1863: OPEN pqp_gb_t1_pension_extracts.csr_asg_details_up (p_assignment_id => p_assignment_id
1864: ,p_effective_date => g_last_effective_date ) ; --Pension Period Start Date.
1865: FETCH pqp_gb_t1_pension_extracts.csr_asg_details_up INTO l_asg_details ;
1866: CLOSE pqp_gb_t1_pension_extracts.csr_asg_details_up ;
1867: debug('Adding the primary assignment to the global collection..',130);
1868: g_ext_asg_details(p_assignment_id) := l_asg_details ;
1869: g_ext_asg_details(p_assignment_id).report_asg := 'N' ;
1862: -- we need to fetch the person ID from the primary assignment.
1863: OPEN pqp_gb_t1_pension_extracts.csr_asg_details_up (p_assignment_id => p_assignment_id
1864: ,p_effective_date => g_last_effective_date ) ; --Pension Period Start Date.
1865: FETCH pqp_gb_t1_pension_extracts.csr_asg_details_up INTO l_asg_details ;
1866: CLOSE pqp_gb_t1_pension_extracts.csr_asg_details_up ;
1867: debug('Adding the primary assignment to the global collection..',130);
1868: g_ext_asg_details(p_assignment_id) := l_asg_details ;
1869: g_ext_asg_details(p_assignment_id).report_asg := 'N' ;
1870: END IF ; -- l_starter_flag .
1874: -- from all the BGs. (if Cross BG reporting is enabled)
1875: debug('Primary assignment has been checked. now fetch all Secondary asignments', 140);
1876: -- initialize the count of total concurrent
1877: -- part-time assignment starting on the same date
1878: pqp_gb_t1_pension_extracts.g_part_time_asg_count := 0 ;
1879: idx := 0; -- loop counter.....
1880: FOR l_sec_asgs IN pqp_gb_t1_pension_extracts.csr_sec_assignments(
1881: p_primary_assignment_id => p_assignment_id
1882: ,p_person_id => l_asg_details.person_id
1876: -- initialize the count of total concurrent
1877: -- part-time assignment starting on the same date
1878: pqp_gb_t1_pension_extracts.g_part_time_asg_count := 0 ;
1879: idx := 0; -- loop counter.....
1880: FOR l_sec_asgs IN pqp_gb_t1_pension_extracts.csr_sec_assignments(
1881: p_primary_assignment_id => p_assignment_id
1882: ,p_person_id => l_asg_details.person_id
1883: ,p_effective_date => g_last_effective_date -- Report period start date
1884: )
1932: l_estb_number_flag := 'Y' ;
1933: debug('l_estb_number_flag:'||l_estb_number_flag, 250+idx/100000);
1934: -- set the part time assignment count to 2.
1935: -- get_estb_number function checks this flag and returns '0953' if it is >1
1936: pqp_gb_t1_pension_extracts.g_part_time_asg_count := 2 ;
1937:
1938: ELSIF (l_asg_details.start_date < l_candidate_asg.start_date) THEN ---Conc Part Time chk
1939: l_candidate_asg := l_asg_details ;
1940: l_cdt_asg_attributes := l_pqp_asg_attributes ;
1939: l_candidate_asg := l_asg_details ;
1940: l_cdt_asg_attributes := l_pqp_asg_attributes ;
1941: l_cdt_tchr_start_date := l_teacher_start_date ;
1942: l_estb_number_flag := 'N' ; --reset for further loops...
1943: pqp_gb_t1_pension_extracts.g_part_time_asg_count := 0 ; --reset for further loops.
1944: debug('l_estb_number_flag:'||l_estb_number_flag, 260+idx/100000);
1945: END IF; --Conc Part Time chk
1946: debug('l_estb_number_flag:'||l_estb_number_flag, 270+idx/100000);
1947: END IF ; --(l_teacher_start_date <= l_earliest_start_date)
2057: END IF ; --(l_inclusion_flag = 'N' AND (l_candidate_asg.assignment_id = NULL))
2058:
2059: ELSE ---- chk_report_person
2060: -- this person is being reported by some other process. no need to process here..............
2061: pqp_gb_t1_pension_extracts.g_nested_level := l_tp1_nested_level; -- l_tp1_nested_level ;
2062: debug(l_proc_name,450);
2063: l_inclusion_flag := 'N';
2064: END IF ; -- chk_report_person
2065:
2174: -- The l_assignment_id OUT var will hv the primary
2175: -- asg id (=p_assignment_id) if yes, otherwise it will
2176: -- hv the secondary asg id that is to be used to get estb number
2177:
2178: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level;
2179: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
2180:
2181: l_report_asg := pqp_gb_t1_pension_extracts.chk_report_assignment
2182: (p_assignment_id => p_assignment_id
2175: -- asg id (=p_assignment_id) if yes, otherwise it will
2176: -- hv the secondary asg id that is to be used to get estb number
2177:
2178: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level;
2179: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
2180:
2181: l_report_asg := pqp_gb_t1_pension_extracts.chk_report_assignment
2182: (p_assignment_id => p_assignment_id
2183: ,p_secondary_assignment_id => l_assignment_id -- OUT
2177:
2178: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level;
2179: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
2180:
2181: l_report_asg := pqp_gb_t1_pension_extracts.chk_report_assignment
2182: (p_assignment_id => p_assignment_id
2183: ,p_secondary_assignment_id => l_assignment_id -- OUT
2184: );
2185:
2184: );
2185:
2186: -- Added this line to fix issue with loggin in Type 1 after this
2187: -- function has been called
2188: pqp_gb_t1_pension_extracts.g_nested_level := l_tp1_nested_level;
2189:
2190: ELSE
2191: l_assignment_id := p_assignment_id;
2192: END IF;
2196:
2197: IF NVL(l_assignment_id,-1) = -1 THEN
2198: l_estb_number := pqp_gb_tp_pension_extracts.g_estb_number;
2199:
2200: ELSIF pqp_gb_t1_pension_extracts.g_override_ft_asg_id IS NOT NULL THEN
2201: -- Bugfix 3803760:FTSUPPLY
2202: -- If override ft asg is set, always use that for estb number
2203: l_estb_number := g_ext_asg_details(l_assignment_id).estb_number;
2204: ELSIF (pqp_gb_t1_pension_extracts.g_part_time_asg_count > 1) THEN
2200: ELSIF pqp_gb_t1_pension_extracts.g_override_ft_asg_id IS NOT NULL THEN
2201: -- Bugfix 3803760:FTSUPPLY
2202: -- If override ft asg is set, always use that for estb number
2203: l_estb_number := g_ext_asg_details(l_assignment_id).estb_number;
2204: ELSIF (pqp_gb_t1_pension_extracts.g_part_time_asg_count > 1) THEN
2205: -- Added for bugfix 3641851:ENH6
2206: --Concurrent Part time employees are to be reported on estb-number = 0953.
2207: l_estb_number := '0953';
2208: ELSE
2275: -- hv the secondary asg id that is to be used to get employment caetgory
2276:
2277: -- Added this line to fix issue with loggin in Type 1 after this
2278: -- function has been called
2279: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
2280: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
2281:
2282: l_report_asg := pqp_gb_t1_pension_extracts.chk_report_assignment
2283: (p_assignment_id => p_assignment_id
2276:
2277: -- Added this line to fix issue with loggin in Type 1 after this
2278: -- function has been called
2279: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
2280: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
2281:
2282: l_report_asg := pqp_gb_t1_pension_extracts.chk_report_assignment
2283: (p_assignment_id => p_assignment_id
2284: ,p_secondary_assignment_id => l_assignment_id -- OUT
2278: -- function has been called
2279: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
2280: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
2281:
2282: l_report_asg := pqp_gb_t1_pension_extracts.chk_report_assignment
2283: (p_assignment_id => p_assignment_id
2284: ,p_secondary_assignment_id => l_assignment_id -- OUT
2285: );
2286:
2285: );
2286:
2287: -- Added this line to fix issue with loggin in Type 1 after this
2288: -- function has been called
2289: pqp_gb_t1_pension_extracts.g_nested_level := l_tp1_nested_level; --115.34
2290:
2291: ELSE
2292: l_assignment_id := p_assignment_id;
2293: END IF;
2890: -- hv the secondary asg id that is to be used to get sal scale
2891:
2892: -- Added this line to fix issue with loggin in Type 1 after this
2893: -- function has been called
2894: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
2895: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
2896:
2897: l_report_asg := pqp_gb_t1_pension_extracts.chk_report_assignment
2898: (p_assignment_id => p_assignment_id
2891:
2892: -- Added this line to fix issue with loggin in Type 1 after this
2893: -- function has been called
2894: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
2895: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
2896:
2897: l_report_asg := pqp_gb_t1_pension_extracts.chk_report_assignment
2898: (p_assignment_id => p_assignment_id
2899: ,p_secondary_assignment_id => l_assignment_id -- OUT
2893: -- function has been called
2894: l_tp1_nested_level := pqp_gb_t1_pension_extracts.g_nested_level; --115.34
2895: pqp_gb_t1_pension_extracts.g_nested_level := g_nested_level;
2896:
2897: l_report_asg := pqp_gb_t1_pension_extracts.chk_report_assignment
2898: (p_assignment_id => p_assignment_id
2899: ,p_secondary_assignment_id => l_assignment_id -- OUT
2900: );
2901:
2900: );
2901:
2902: -- Added this line to fix issue with loggin in Type 1 after this
2903: -- function has been called
2904: pqp_gb_t1_pension_extracts.g_nested_level :=l_tp1_nested_level; --115.34
2905:
2906: ELSE
2907: debug (l_proc_name, 20);
2908: l_assignment_id := p_assignment_id;
3107: -- Override the value for Retention Allowances code by '1' .
3108: -- END IF;
3109:
3110: debug('g_pension_year_start_date: '
3111: ||to_char(pqp_gb_t1_pension_extracts.g_pension_year_start_date,
3112: 'DD/MM/YYYY'), 210);
3113: debug('l_third_sal_code: '||l_third_sal_code);
3114:
3115:
3118: -- If l_teacher_start_date < 01-01-2006, it has retention code, now check if
3119: -- if >= 01-04-2004, then override
3120: -- else report retention code
3121:
3122: IF pqp_gb_t1_pension_extracts.g_pension_year_start_date >= to_date('01-04-2004','DD-MM-YYYY')
3123: AND l_teacher_start_date < to_date('01-01-2006','DD-MM-YYYY') -- => it is TLR code
3124: AND l_third_sal_code <> '0' THEN
3125: debug(l_proc_name, 220);
3126: -- Override the retention allowance code by '1'.
3301: -- get the ben_ext_rcd.ext_rcd_id
3302: -- and use this one for next cursor
3303: -- This will prevent FTS on the table.
3304:
3305: OPEN pqp_gb_t1_pension_extracts.csr_ext_rcd_id
3306: (p_hide_flag => 'N'
3307: ,p_rcd_type_cd => 'D'
3308: );
3309: FETCH pqp_gb_t1_pension_extracts.csr_ext_rcd_id INTO l_ext_rcd_id;
3305: OPEN pqp_gb_t1_pension_extracts.csr_ext_rcd_id
3306: (p_hide_flag => 'N'
3307: ,p_rcd_type_cd => 'D'
3308: );
3309: FETCH pqp_gb_t1_pension_extracts.csr_ext_rcd_id INTO l_ext_rcd_id;
3310: CLOSE pqp_gb_t1_pension_extracts.csr_ext_rcd_id ;
3311:
3312: debug('l_ext_rcd_id: '|| l_ext_rcd_id, 10) ;
3313:
3306: (p_hide_flag => 'N'
3307: ,p_rcd_type_cd => 'D'
3308: );
3309: FETCH pqp_gb_t1_pension_extracts.csr_ext_rcd_id INTO l_ext_rcd_id;
3310: CLOSE pqp_gb_t1_pension_extracts.csr_ext_rcd_id ;
3311:
3312: debug('l_ext_rcd_id: '|| l_ext_rcd_id, 10) ;
3313:
3314:
4127: --
4128: --
4129: --
4130:
4131: PROCEDURE print_debug_asg_atr_up(p_pqp_asg_attributes_up IN pqp_gb_t1_pension_extracts.csr_pqp_asg_attributes_up%ROWTYPE)
4132: IS
4133: l_pqp_asg_attributes_up pqp_gb_t1_pension_extracts.csr_pqp_asg_attributes_up%ROWTYPE ;
4134: BEGIN
4135: l_pqp_asg_attributes_up := p_pqp_asg_attributes_up ;
4129: --
4130:
4131: PROCEDURE print_debug_asg_atr_up(p_pqp_asg_attributes_up IN pqp_gb_t1_pension_extracts.csr_pqp_asg_attributes_up%ROWTYPE)
4132: IS
4133: l_pqp_asg_attributes_up pqp_gb_t1_pension_extracts.csr_pqp_asg_attributes_up%ROWTYPE ;
4134: BEGIN
4135: l_pqp_asg_attributes_up := p_pqp_asg_attributes_up ;
4136: debug('---------ASSIGNMENT_ATTRIBUTES---------');
4137: debug('l_pqp_asg_attributes_up.assignment_attribute_id:'||l_pqp_asg_attributes_up.assignment_attribute_id);
4178: ,p_effective_date IN DATE
4179: ,p_table_name IN VARCHAR2
4180: ,p_row_name IN VARCHAR2
4181: ,p_column_name IN VARCHAR2
4182: ,p_tab_aln_eles IN pqp_gb_t1_pension_extracts.t_allowance_eles
4183: ,p_allowance_code IN VARCHAR2
4184: )
4185: RETURN pqp_gb_t1_pension_extracts.t_allowance_eles
4186: IS
4181: ,p_column_name IN VARCHAR2
4182: ,p_tab_aln_eles IN pqp_gb_t1_pension_extracts.t_allowance_eles
4183: ,p_allowance_code IN VARCHAR2
4184: )
4185: RETURN pqp_gb_t1_pension_extracts.t_allowance_eles
4186: IS
4187: --
4188: l_proc_name VARCHAR2 (80)
4189: := g_proc_name
4192: l_return NUMBER;
4193: l_user_value pay_user_column_instances_f.value%TYPE;
4194: l_error_msg VARCHAR2(2000);
4195: l_element_type_id NUMBER := NULL;
4196: l_tab_allowance_eles pqp_gb_t1_pension_extracts.t_allowance_eles := p_tab_aln_eles;
4197:
4198: -- RET1.a : new variables to store element_type_extra_info_id
4199: l_element_type_extra_info_id pay_element_type_extra_info.element_type_extra_info_id%type ;
4200: l_retval NUMBER;