46: -- ----------------------------------------------------------------------------
47: procedure chk_accepted_termination_date
48: --
49: (p_accepted_termination_date in
50: per_periods_of_service.accepted_termination_date%TYPE) is
51: --
52: l_proc varchar2(72) := g_package||'chk_accepted_termination_date';
53: --
54: begin
104: -- ----------------------------------------------------------------------------
105: procedure chk_actual_termination_date
106: --
107: (p_actual_termination_date in
108: per_periods_of_service.actual_termination_date%TYPE
109: ,p_date_start in per_periods_of_service.date_start%TYPE
110: ,p_last_standard_process_date in
111: per_periods_of_service.last_standard_process_date%TYPE
112: ,p_object_version_number in
105: procedure chk_actual_termination_date
106: --
107: (p_actual_termination_date in
108: per_periods_of_service.actual_termination_date%TYPE
109: ,p_date_start in per_periods_of_service.date_start%TYPE
110: ,p_last_standard_process_date in
111: per_periods_of_service.last_standard_process_date%TYPE
112: ,p_object_version_number in
113: per_periods_of_service.object_version_number%TYPE
107: (p_actual_termination_date in
108: per_periods_of_service.actual_termination_date%TYPE
109: ,p_date_start in per_periods_of_service.date_start%TYPE
110: ,p_last_standard_process_date in
111: per_periods_of_service.last_standard_process_date%TYPE
112: ,p_object_version_number in
113: per_periods_of_service.object_version_number%TYPE
114: ,p_period_of_service_id in
115: per_periods_of_service.period_of_service_id%TYPE
109: ,p_date_start in per_periods_of_service.date_start%TYPE
110: ,p_last_standard_process_date in
111: per_periods_of_service.last_standard_process_date%TYPE
112: ,p_object_version_number in
113: per_periods_of_service.object_version_number%TYPE
114: ,p_period_of_service_id in
115: per_periods_of_service.period_of_service_id%TYPE
116: ,p_person_id in per_periods_of_service.person_id%TYPE
117: ) is
111: per_periods_of_service.last_standard_process_date%TYPE
112: ,p_object_version_number in
113: per_periods_of_service.object_version_number%TYPE
114: ,p_period_of_service_id in
115: per_periods_of_service.period_of_service_id%TYPE
116: ,p_person_id in per_periods_of_service.person_id%TYPE
117: ) is
118: --
119: l_api_updating boolean;
112: ,p_object_version_number in
113: per_periods_of_service.object_version_number%TYPE
114: ,p_period_of_service_id in
115: per_periods_of_service.period_of_service_id%TYPE
116: ,p_person_id in per_periods_of_service.person_id%TYPE
117: ) is
118: --
119: l_api_updating boolean;
120: l_no_data_found boolean;
293: -- {End Of Comments}
294: -- ----------------------------------------------------------------------------
295: procedure chk_date_start
296: --
297: (p_date_start in per_periods_of_service.date_start%TYPE) is
298: --
299: l_proc varchar2(72) := g_package||'chk_date_start';
300: --
301: begin
353: -- ----------------------------------------------------------------------------
354: procedure chk_final_process_date
355: --
356: (p_actual_termination_date in
357: per_periods_of_service.actual_termination_date%TYPE,
358: p_date_start in per_periods_of_service.date_start%TYPE,
359: p_final_process_date in
360: per_periods_of_service.final_process_date%TYPE,
361: p_last_standard_process_date in
354: procedure chk_final_process_date
355: --
356: (p_actual_termination_date in
357: per_periods_of_service.actual_termination_date%TYPE,
358: p_date_start in per_periods_of_service.date_start%TYPE,
359: p_final_process_date in
360: per_periods_of_service.final_process_date%TYPE,
361: p_last_standard_process_date in
362: per_periods_of_service.last_standard_process_date%TYPE,
356: (p_actual_termination_date in
357: per_periods_of_service.actual_termination_date%TYPE,
358: p_date_start in per_periods_of_service.date_start%TYPE,
359: p_final_process_date in
360: per_periods_of_service.final_process_date%TYPE,
361: p_last_standard_process_date in
362: per_periods_of_service.last_standard_process_date%TYPE,
363: p_object_version_number in
364: per_periods_of_service.object_version_number%TYPE,
358: p_date_start in per_periods_of_service.date_start%TYPE,
359: p_final_process_date in
360: per_periods_of_service.final_process_date%TYPE,
361: p_last_standard_process_date in
362: per_periods_of_service.last_standard_process_date%TYPE,
363: p_object_version_number in
364: per_periods_of_service.object_version_number%TYPE,
365: p_period_of_service_id in
366: per_periods_of_service.period_of_service_id%TYPE) is
360: per_periods_of_service.final_process_date%TYPE,
361: p_last_standard_process_date in
362: per_periods_of_service.last_standard_process_date%TYPE,
363: p_object_version_number in
364: per_periods_of_service.object_version_number%TYPE,
365: p_period_of_service_id in
366: per_periods_of_service.period_of_service_id%TYPE) is
367: --
368: l_assigned_payroll boolean;
362: per_periods_of_service.last_standard_process_date%TYPE,
363: p_object_version_number in
364: per_periods_of_service.object_version_number%TYPE,
365: p_period_of_service_id in
366: per_periods_of_service.period_of_service_id%TYPE) is
367: --
368: l_assigned_payroll boolean;
369: l_api_updating boolean;
370: l_max_end_date per_periods_of_service.final_process_date%TYPE;
366: per_periods_of_service.period_of_service_id%TYPE) is
367: --
368: l_assigned_payroll boolean;
369: l_api_updating boolean;
370: l_max_end_date per_periods_of_service.final_process_date%TYPE;
371: l_proc varchar2(72) := g_package||'chk_final_process_date';
372: --
373: --
374: -- 115.30 (START)
377: SELECT pds2.date_start
378: ,pds2.actual_termination_date
379: ,pds2.last_standard_process_date
380: ,pds2.final_process_date
381: FROM per_periods_of_service pds1
382: ,per_periods_of_service pds2
383: WHERE pds1.period_of_service_id = p_period_of_service_id
384: AND pds1.person_id = pds2.person_id
385: AND pds1.period_of_service_id <> pds2.period_of_service_id
378: ,pds2.actual_termination_date
379: ,pds2.last_standard_process_date
380: ,pds2.final_process_date
381: FROM per_periods_of_service pds1
382: ,per_periods_of_service pds2
383: WHERE pds1.period_of_service_id = p_period_of_service_id
384: AND pds1.person_id = pds2.person_id
385: AND pds1.period_of_service_id <> pds2.period_of_service_id
386: AND pds2.date_start > pds1.date_start
389: lr_next_pds csr_next_pds%ROWTYPE;
390: --
391: CURSOR csr_later_fpd IS
392: SELECT pds2.final_process_date
393: FROM per_periods_of_service pds1
394: ,per_periods_of_service pds2
395: WHERE pds1.period_of_service_id = p_period_of_service_id
396: AND pds1.person_id = pds2.person_id
397: AND pds1.period_of_service_id <> pds2.period_of_service_id
390: --
391: CURSOR csr_later_fpd IS
392: SELECT pds2.final_process_date
393: FROM per_periods_of_service pds1
394: ,per_periods_of_service pds2
395: WHERE pds1.period_of_service_id = p_period_of_service_id
396: AND pds1.person_id = pds2.person_id
397: AND pds1.period_of_service_id <> pds2.period_of_service_id
398: AND pds2.date_start > pds1.date_start;
396: AND pds1.person_id = pds2.person_id
397: AND pds1.period_of_service_id <> pds2.period_of_service_id
398: AND pds2.date_start > pds1.date_start;
399: --
400: l_later_fpd per_periods_of_service.final_process_date%TYPE;
401: --
402: CURSOR csr_prev_pds_fpd IS
403: SELECT MAX(pds2.final_process_date)
404: FROM per_periods_of_service pds1
400: l_later_fpd per_periods_of_service.final_process_date%TYPE;
401: --
402: CURSOR csr_prev_pds_fpd IS
403: SELECT MAX(pds2.final_process_date)
404: FROM per_periods_of_service pds1
405: ,per_periods_of_service pds2
406: WHERE pds1.period_of_service_id = p_period_of_service_id
407: AND pds1.person_id = pds2.person_id
408: AND pds1.period_of_service_id <> pds2.period_of_service_id
401: --
402: CURSOR csr_prev_pds_fpd IS
403: SELECT MAX(pds2.final_process_date)
404: FROM per_periods_of_service pds1
405: ,per_periods_of_service pds2
406: WHERE pds1.period_of_service_id = p_period_of_service_id
407: AND pds1.person_id = pds2.person_id
408: AND pds1.period_of_service_id <> pds2.period_of_service_id
409: AND pds2.date_start < pds1.date_start;
407: AND pds1.person_id = pds2.person_id
408: AND pds1.period_of_service_id <> pds2.period_of_service_id
409: AND pds2.date_start < pds1.date_start;
410: --
411: l_prev_pds_fpd per_periods_of_service.final_process_date%TYPE;
412: --
413: --
414: -- 115.30 (END)
415: --
750: --
751: procedure chk_last_standard_process_date
752: --
753: (p_actual_termination_date in
754: per_periods_of_service.actual_termination_date%TYPE
755: ,p_business_group_id in
756: per_periods_of_service.business_group_id%TYPE
757: ,p_date_start in per_periods_of_service.date_start%TYPE
758: ,p_last_standard_process_date in
752: --
753: (p_actual_termination_date in
754: per_periods_of_service.actual_termination_date%TYPE
755: ,p_business_group_id in
756: per_periods_of_service.business_group_id%TYPE
757: ,p_date_start in per_periods_of_service.date_start%TYPE
758: ,p_last_standard_process_date in
759: per_periods_of_service.last_standard_process_date%TYPE
760: ,p_object_version_number in
753: (p_actual_termination_date in
754: per_periods_of_service.actual_termination_date%TYPE
755: ,p_business_group_id in
756: per_periods_of_service.business_group_id%TYPE
757: ,p_date_start in per_periods_of_service.date_start%TYPE
758: ,p_last_standard_process_date in
759: per_periods_of_service.last_standard_process_date%TYPE
760: ,p_object_version_number in
761: per_periods_of_service.object_version_number%TYPE
755: ,p_business_group_id in
756: per_periods_of_service.business_group_id%TYPE
757: ,p_date_start in per_periods_of_service.date_start%TYPE
758: ,p_last_standard_process_date in
759: per_periods_of_service.last_standard_process_date%TYPE
760: ,p_object_version_number in
761: per_periods_of_service.object_version_number%TYPE
762: ,p_period_of_service_id in
763: per_periods_of_service.period_of_service_id%TYPE
757: ,p_date_start in per_periods_of_service.date_start%TYPE
758: ,p_last_standard_process_date in
759: per_periods_of_service.last_standard_process_date%TYPE
760: ,p_object_version_number in
761: per_periods_of_service.object_version_number%TYPE
762: ,p_period_of_service_id in
763: per_periods_of_service.period_of_service_id%TYPE
764: ) is
765: --
759: per_periods_of_service.last_standard_process_date%TYPE
760: ,p_object_version_number in
761: per_periods_of_service.object_version_number%TYPE
762: ,p_period_of_service_id in
763: per_periods_of_service.period_of_service_id%TYPE
764: ) is
765: --
766: l_api_updating boolean;
767: l_assigned_payroll boolean;
765: --
766: l_api_updating boolean;
767: l_assigned_payroll boolean;
768: l_legislation_code per_business_groups.legislation_code%TYPE;
769: l_max_end_date per_periods_of_service.final_process_date%TYPE;
770: l_proc varchar2(72)
771: := g_package||'chk_last_standard_process_date';
772: --
773: cursor csr_get_legislation_code is
968: -- ----------------------------------------------------------------------------
969: -- commented out this routine for fix of bug#2784295
970: /* procedure chk_at_date_lsp_date
971: --
972: (p_actual_termination_date in per_periods_of_service.actual_termination_date%TYPE
973: ,p_last_standard_process_date in per_periods_of_service.last_standard_process_date%TYPE
974: ,p_object_version_number in per_periods_of_service.object_version_number%TYPE
975: ,p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE
976: ,p_business_group_id in per_periods_of_service.business_group_id%TYPE
969: -- commented out this routine for fix of bug#2784295
970: /* procedure chk_at_date_lsp_date
971: --
972: (p_actual_termination_date in per_periods_of_service.actual_termination_date%TYPE
973: ,p_last_standard_process_date in per_periods_of_service.last_standard_process_date%TYPE
974: ,p_object_version_number in per_periods_of_service.object_version_number%TYPE
975: ,p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE
976: ,p_business_group_id in per_periods_of_service.business_group_id%TYPE
977: ) is
970: /* procedure chk_at_date_lsp_date
971: --
972: (p_actual_termination_date in per_periods_of_service.actual_termination_date%TYPE
973: ,p_last_standard_process_date in per_periods_of_service.last_standard_process_date%TYPE
974: ,p_object_version_number in per_periods_of_service.object_version_number%TYPE
975: ,p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE
976: ,p_business_group_id in per_periods_of_service.business_group_id%TYPE
977: ) is
978: --
971: --
972: (p_actual_termination_date in per_periods_of_service.actual_termination_date%TYPE
973: ,p_last_standard_process_date in per_periods_of_service.last_standard_process_date%TYPE
974: ,p_object_version_number in per_periods_of_service.object_version_number%TYPE
975: ,p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE
976: ,p_business_group_id in per_periods_of_service.business_group_id%TYPE
977: ) is
978: --
979: l_proc varchar2(72) := g_package||'chk_at_date_lsp_date';
972: (p_actual_termination_date in per_periods_of_service.actual_termination_date%TYPE
973: ,p_last_standard_process_date in per_periods_of_service.last_standard_process_date%TYPE
974: ,p_object_version_number in per_periods_of_service.object_version_number%TYPE
975: ,p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE
976: ,p_business_group_id in per_periods_of_service.business_group_id%TYPE
977: ) is
978: --
979: l_proc varchar2(72) := g_package||'chk_at_date_lsp_date';
980: l_api_updating boolean;
1085: -- {End Of Comments}
1086: -- ----------------------------------------------------------------------------
1087: procedure chk_leaving_reason
1088: --
1089: (p_leaving_reason in per_periods_of_service.leaving_reason%TYPE,
1090: p_effective_date in date,
1091: p_object_version_number in
1092: per_periods_of_service.object_version_number%TYPE,
1093: p_period_of_service_id in
1088: --
1089: (p_leaving_reason in per_periods_of_service.leaving_reason%TYPE,
1090: p_effective_date in date,
1091: p_object_version_number in
1092: per_periods_of_service.object_version_number%TYPE,
1093: p_period_of_service_id in
1094: per_periods_of_service.period_of_service_id%TYPE) is
1095: --
1096: l_api_updating boolean;
1090: p_effective_date in date,
1091: p_object_version_number in
1092: per_periods_of_service.object_version_number%TYPE,
1093: p_period_of_service_id in
1094: per_periods_of_service.period_of_service_id%TYPE) is
1095: --
1096: l_api_updating boolean;
1097: l_proc varchar2(72) := g_package||'chk_leaving_reason';
1098: l_rec per_pds_shd.g_rec_type;
1187: -- {End Of Comments}
1188: -- ----------------------------------------------------------------------------
1189: procedure chk_notified_termination_date
1190: --
1191: (p_date_start in per_periods_of_service.date_start%TYPE,
1192: p_notified_termination_date in
1193: per_periods_of_service.notified_termination_date%TYPE,
1194: p_object_version_number in
1195: per_periods_of_service.object_version_number%TYPE,
1189: procedure chk_notified_termination_date
1190: --
1191: (p_date_start in per_periods_of_service.date_start%TYPE,
1192: p_notified_termination_date in
1193: per_periods_of_service.notified_termination_date%TYPE,
1194: p_object_version_number in
1195: per_periods_of_service.object_version_number%TYPE,
1196: p_period_of_service_id in
1197: per_periods_of_service.period_of_service_id%TYPE) is
1191: (p_date_start in per_periods_of_service.date_start%TYPE,
1192: p_notified_termination_date in
1193: per_periods_of_service.notified_termination_date%TYPE,
1194: p_object_version_number in
1195: per_periods_of_service.object_version_number%TYPE,
1196: p_period_of_service_id in
1197: per_periods_of_service.period_of_service_id%TYPE) is
1198: --
1199: l_api_updating boolean;
1193: per_periods_of_service.notified_termination_date%TYPE,
1194: p_object_version_number in
1195: per_periods_of_service.object_version_number%TYPE,
1196: p_period_of_service_id in
1197: per_periods_of_service.period_of_service_id%TYPE) is
1198: --
1199: l_api_updating boolean;
1200: l_proc varchar2(72) := g_package||'chk_notified_termination_date';
1201: --
1286: -- {End Of Comments}
1287: -- ----------------------------------------------------------------------------
1288: procedure chk_person_id
1289: --
1290: (p_person_id in per_periods_of_service.person_id%TYPE,
1291: p_termination_accepted_person in
1292: per_periods_of_service.termination_accepted_person_id%TYPE) is
1293: --
1294: l_proc varchar2(72) := g_package||'chk_person_id';
1288: procedure chk_person_id
1289: --
1290: (p_person_id in per_periods_of_service.person_id%TYPE,
1291: p_termination_accepted_person in
1292: per_periods_of_service.termination_accepted_person_id%TYPE) is
1293: --
1294: l_proc varchar2(72) := g_package||'chk_person_id';
1295: l_rec per_pds_shd.g_rec_type;
1296: --
1349: -- {End Of Comments}
1350: -- ----------------------------------------------------------------------------
1351: procedure chk_person_id_date_start
1352: --
1353: (p_date_start in per_periods_of_service.date_start%TYPE,
1354: p_object_version_number in per_periods_of_service.object_version_number%TYPE,
1355: p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE,
1356: p_person_id in per_periods_of_service.person_id%TYPE) is
1357: --
1350: -- ----------------------------------------------------------------------------
1351: procedure chk_person_id_date_start
1352: --
1353: (p_date_start in per_periods_of_service.date_start%TYPE,
1354: p_object_version_number in per_periods_of_service.object_version_number%TYPE,
1355: p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE,
1356: p_person_id in per_periods_of_service.person_id%TYPE) is
1357: --
1358: l_api_updating boolean;
1351: procedure chk_person_id_date_start
1352: --
1353: (p_date_start in per_periods_of_service.date_start%TYPE,
1354: p_object_version_number in per_periods_of_service.object_version_number%TYPE,
1355: p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE,
1356: p_person_id in per_periods_of_service.person_id%TYPE) is
1357: --
1358: l_api_updating boolean;
1359: l_exists varchar2(1);
1352: --
1353: (p_date_start in per_periods_of_service.date_start%TYPE,
1354: p_object_version_number in per_periods_of_service.object_version_number%TYPE,
1355: p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE,
1356: p_person_id in per_periods_of_service.person_id%TYPE) is
1357: --
1358: l_api_updating boolean;
1359: l_exists varchar2(1);
1360: l_proc varchar2(72) := g_package||'chk_person_id_date_start';
1360: l_proc varchar2(72) := g_package||'chk_person_id_date_start';
1361: --
1362: cursor csr_new_pers_date is
1363: select null
1364: from per_periods_of_service pds
1365: where pds.person_id = p_person_id
1366: and pds.date_start = p_date_start;
1367: --
1368: cursor csr_valid_pers_date is
1402: if not l_api_updating
1403: then
1404: --
1405: -- Check that the Person ID and Date Start combination does not exist
1406: -- on PER_PERIODS_OF_SERVICE
1407: --
1408: hr_utility.set_location(l_proc, 6);
1409: --
1410: open csr_new_pers_date;
1478: -- {End Of Comments}
1479: -- ----------------------------------------------------------------------------
1480: procedure chk_projected_termination_date
1481: --
1482: (p_date_start in per_periods_of_service.date_start%TYPE,
1483: p_object_version_number in
1484: per_periods_of_service.object_version_number%TYPE,
1485: p_period_of_service_id in
1486: per_periods_of_service.period_of_service_id%TYPE,
1480: procedure chk_projected_termination_date
1481: --
1482: (p_date_start in per_periods_of_service.date_start%TYPE,
1483: p_object_version_number in
1484: per_periods_of_service.object_version_number%TYPE,
1485: p_period_of_service_id in
1486: per_periods_of_service.period_of_service_id%TYPE,
1487: p_projected_termination_date in
1488: per_periods_of_service.projected_termination_date%TYPE) is
1482: (p_date_start in per_periods_of_service.date_start%TYPE,
1483: p_object_version_number in
1484: per_periods_of_service.object_version_number%TYPE,
1485: p_period_of_service_id in
1486: per_periods_of_service.period_of_service_id%TYPE,
1487: p_projected_termination_date in
1488: per_periods_of_service.projected_termination_date%TYPE) is
1489: --
1490: l_api_updating boolean;
1484: per_periods_of_service.object_version_number%TYPE,
1485: p_period_of_service_id in
1486: per_periods_of_service.period_of_service_id%TYPE,
1487: p_projected_termination_date in
1488: per_periods_of_service.projected_termination_date%TYPE) is
1489: --
1490: l_api_updating boolean;
1491: l_proc varchar2(72) := g_package||'chk_projected_termination_date';
1492: --
1574: -- processing is terminated.
1575: --
1576: procedure chk_termination_accepted_pers
1577: --
1578: (p_accepted_termination_date in per_periods_of_service.date_start%TYPE,
1579: p_object_version_number in per_periods_of_service.object_version_number%TYPE,
1580: p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE,
1581: p_person_id in per_periods_of_service.person_id%TYPE,
1582: p_termination_accepted_person in per_periods_of_service.termination_accepted_person_id%TYPE,
1575: --
1576: procedure chk_termination_accepted_pers
1577: --
1578: (p_accepted_termination_date in per_periods_of_service.date_start%TYPE,
1579: p_object_version_number in per_periods_of_service.object_version_number%TYPE,
1580: p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE,
1581: p_person_id in per_periods_of_service.person_id%TYPE,
1582: p_termination_accepted_person in per_periods_of_service.termination_accepted_person_id%TYPE,
1583: p_effective_date in date) is
1576: procedure chk_termination_accepted_pers
1577: --
1578: (p_accepted_termination_date in per_periods_of_service.date_start%TYPE,
1579: p_object_version_number in per_periods_of_service.object_version_number%TYPE,
1580: p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE,
1581: p_person_id in per_periods_of_service.person_id%TYPE,
1582: p_termination_accepted_person in per_periods_of_service.termination_accepted_person_id%TYPE,
1583: p_effective_date in date) is
1584: --
1577: --
1578: (p_accepted_termination_date in per_periods_of_service.date_start%TYPE,
1579: p_object_version_number in per_periods_of_service.object_version_number%TYPE,
1580: p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE,
1581: p_person_id in per_periods_of_service.person_id%TYPE,
1582: p_termination_accepted_person in per_periods_of_service.termination_accepted_person_id%TYPE,
1583: p_effective_date in date) is
1584: --
1585: l_api_updating boolean;
1578: (p_accepted_termination_date in per_periods_of_service.date_start%TYPE,
1579: p_object_version_number in per_periods_of_service.object_version_number%TYPE,
1580: p_period_of_service_id in per_periods_of_service.period_of_service_id%TYPE,
1581: p_person_id in per_periods_of_service.person_id%TYPE,
1582: p_termination_accepted_person in per_periods_of_service.termination_accepted_person_id%TYPE,
1583: p_effective_date in date) is
1584: --
1585: l_api_updating boolean;
1586: l_exists varchar2(1);
1949: -- validate flex segment values
1950: --
1951: hr_dflex_utility.ins_or_upd_descflex_attribs(
1952: p_appl_short_name => 'PER'
1953: ,p_descflex_name => 'PER_PERIODS_OF_SERVICE'
1954: ,p_attribute_category => p_rec.attribute_category
1955: ,p_attribute1_name => 'ATTRIBUTE1'
1956: ,p_attribute1_value => p_rec.attribute1
1957: ,p_attribute2_name => 'ATTRIBUTE2'
2642: --
2643: cursor csr_leg_code is
2644: select pbg.legislation_code
2645: from per_business_groups pbg
2646: , per_periods_of_service pds
2647: where pds.period_of_service_id = p_period_of_service_id
2648: and pbg.business_group_id = pds.business_group_id;
2649: --
2650: -- Declare local variables