[Home] [Help]
633: -- AND pac.action_type IN ('R','Q')
634: -- VT 05/22/96 restored back to version 70.32
635: SELECT 'Y'
636: INTO l_action_chk
637: FROM sys.dual
638: WHERE exists
639: (SELECT null
640: FROM pay_payroll_actions pac,
641: pay_assignment_actions act,
687: hr_utility.set_location(l_proc,1);
688: BEGIN
689: SELECT 'Y'
690: INTO l_action_chk
691: FROM sys.dual
692: WHERE exists
693: (SELECT null
694: FROM pay_payroll_actions pac,
695: pay_assignment_actions act,
706: IF l_action_chk = 'N' THEN
707: BEGIN
708: SELECT 'W'
709: INTO l_action_chk
710: FROM sys.dual
711: WHERE exists
712: (SELECT null
713: FROM pay_payroll_actions pac,
714: pay_assignment_actions act,
743: hr_utility.set_location(l_proc,5);
744: --
745: SELECT 'Y'
746: INTO l_action_chk
747: FROM sys.dual
748: WHERE exists
749: (select '1'
750: from per_people_f ppf
751: where ppf.person_id = p_person_id
909: -- VT 10/18/96 bug #398699 commented out
910: -- begin
911: -- select 'Y'
912: -- into l_cobra_benefits_exist
913: -- from sys.dual
914: -- where exists
915: -- (select null
916: -- from per_assignments_f a
917: -- , per_cobra_cov_enrollments e
1174: rec_entry.effective_end_date,
1175: p_assignment_id);
1176: BEGIN
1177: l_ret_chng := 'N';
1178: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1179: (SELECT 'Y' FROM pay_element_entry_values_f eev
1180: WHERE eev.element_entry_id = rec_entry.element_entry_id
1181: AND eev.effective_start_date > p_term_date);
1182: EXCEPTION
1186: l_y_chng := l_y_chng + 1;
1187: END IF;
1188: BEGIN
1189: l_ret_chng := 'N';
1190: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1191: (SELECT 'Y' FROM pay_element_entries_f ee
1192: WHERE ee.element_entry_id = rec_entry.element_entry_id
1193: AND ee.effective_start_date > p_term_date);
1194: EXCEPTION
1198: l_y_chng := l_y_chng + 1;
1199: END IF;
1200: BEGIN
1201: l_ret_chng := 'N';
1202: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1203: (SELECT 'Y' FROM pay_element_entry_values_f eev
1204: WHERE eev.element_entry_id = rec_entry.element_entry_id
1205: AND eev.effective_end_date > p_term_date);
1206: EXCEPTION
1210: l_y_chng := l_y_chng + 1;
1211: END IF;
1212: BEGIN
1213: l_ret_chng := 'N';
1214: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1215: (SELECT 'Y' FROM pay_element_entries_f ee
1216: WHERE ee.element_entry_id = rec_entry.element_entry_id
1217: AND ee.effective_end_date > p_term_date);
1218: EXCEPTION
1222: l_y_chng := l_y_chng + 1;
1223: END IF;
1224: BEGIN
1225: l_ret_chng := 'N';
1226: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1227: (SELECT 'Y' FROM pay_element_entries_f ee
1228: WHERE ee.element_entry_id = rec_entry.element_entry_id
1229: AND ee.creator_type = 'SP'
1230: AND ee.effective_start_date > p_term_date);
1235: l_s_chng := l_s_chng + 1;
1236: END IF;
1237: BEGIN
1238: l_ret_chng := 'N';
1239: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1240: (SELECT 'Y' FROM pay_element_entries_f ee
1241: WHERE ee.element_entry_id = rec_entry.element_entry_id
1242: AND ee.creator_type = 'SP'
1243: AND ee.effective_end_date > p_term_date);
1278: EXIT;
1279: ELSE
1280: BEGIN
1281: l_ret_chng := 'N';
1282: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1283: (SELECT 'Y' FROM pay_element_entry_values_f eev
1284: WHERE eev.element_entry_id = nonrec_entry.element_entry_id);
1285: EXCEPTION
1286: WHEN NO_DATA_FOUND THEN NULL;
1289: l_y_chng := l_y_chng + 1;
1290: END IF;
1291: BEGIN
1292: l_ret_chng := 'N';
1293: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1294: (SELECT 'Y' FROM pay_element_entries_f ee
1295: WHERE ee.element_entry_id = nonrec_entry.element_entry_id);
1296: EXCEPTION
1297: WHEN NO_DATA_FOUND THEN NULL;
1300: l_y_chng := l_y_chng + 1;
1301: END IF;
1302: BEGIN
1303: l_ret_chng := 'N';
1304: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1305: (SELECT 'Y' FROM pay_element_entries_f ee
1306: WHERE ee.element_entry_id = nonrec_entry.element_entry_id
1307: AND ee.creator_type = 'SP');
1308: EXCEPTION
1316: nonrec_entry.effective_end_date > nvl(p_term_date,c_eot) THEN
1317: IF p_final_process_date IS NULL THEN
1318: BEGIN
1319: l_ret_chng := 'N';
1320: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1321: (SELECT 'Y' FROM pay_element_entry_values_f eev
1322: WHERE eev.element_entry_id = nonrec_entry.element_entry_id
1323: AND eev.effective_end_date = nonrec_entry.effective_end_date);
1324: EXCEPTION
1330: ELSE
1331: IF p_term_rule IN ('A','L','F') THEN
1332: BEGIN
1333: l_ret_chng := 'N';
1334: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1335: (SELECT 'Y' FROM pay_element_entries_f ee
1336: WHERE ee.element_entry_id = nonrec_entry.element_entry_id
1337: AND ee.effective_end_date = nonrec_entry.effective_end_date);
1338: EXCEPTION
1342: l_y_chng := l_y_chng + 1;
1343: END IF;
1344: BEGIN
1345: l_ret_chng := 'N';
1346: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1347: (SELECT 'Y' FROM pay_element_entries_f ee
1348: WHERE ee.element_entry_id = nonrec_entry.element_entry_id
1349: AND ee.creator_type = 'SP'
1350: AND ee.effective_end_date = nonrec_entry.effective_end_date);
1355: l_s_chng := l_s_chng + 1;
1356: END IF;
1357: BEGIN
1358: l_ret_chng := 'N';
1359: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1360: (SELECT 'Y' FROM pay_element_entry_values_f eev
1361: WHERE eev.element_entry_id = nonrec_entry.element_entry_id
1362: AND eev.effective_end_date = nonrec_entry.effective_end_date);
1363: EXCEPTION