[Home] [Help]
621: -- AND pac.action_type IN ('R','Q')
622: -- VT 05/22/96 restored back to version 70.32
623: SELECT 'Y'
624: INTO l_action_chk
625: FROM sys.dual
626: WHERE exists
627: (SELECT null
628: FROM pay_payroll_actions pac,
629: pay_assignment_actions act,
675: hr_utility.set_location(l_proc,1);
676: BEGIN
677: SELECT 'Y'
678: INTO l_action_chk
679: FROM sys.dual
680: WHERE exists
681: (SELECT null
682: FROM pay_payroll_actions pac,
683: pay_assignment_actions act,
694: IF l_action_chk = 'N' THEN
695: BEGIN
696: SELECT 'W'
697: INTO l_action_chk
698: FROM sys.dual
699: WHERE exists
700: (SELECT null
701: FROM pay_payroll_actions pac,
702: pay_assignment_actions act,
731: hr_utility.set_location(l_proc,5);
732: --
733: SELECT 'Y'
734: INTO l_action_chk
735: FROM sys.dual
736: WHERE exists
737: (select '1'
738: from per_people_f ppf
739: where ppf.person_id = p_person_id
891: -- VT 10/18/96 bug #398699 commented out
892: -- begin
893: -- select 'Y'
894: -- into l_cobra_benefits_exist
895: -- from sys.dual
896: -- where exists
897: -- (select null
898: -- from per_assignments_f a
899: -- , per_cobra_cov_enrollments e
1156: rec_entry.effective_end_date,
1157: p_assignment_id);
1158: BEGIN
1159: l_ret_chng := 'N';
1160: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1161: (SELECT 'Y' FROM pay_element_entry_values_f eev
1162: WHERE eev.element_entry_id = rec_entry.element_entry_id
1163: AND eev.effective_start_date > p_term_date);
1164: EXCEPTION
1168: l_y_chng := l_y_chng + 1;
1169: END IF;
1170: BEGIN
1171: l_ret_chng := 'N';
1172: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1173: (SELECT 'Y' FROM pay_element_entries_f ee
1174: WHERE ee.element_entry_id = rec_entry.element_entry_id
1175: AND ee.effective_start_date > p_term_date);
1176: EXCEPTION
1180: l_y_chng := l_y_chng + 1;
1181: END IF;
1182: BEGIN
1183: l_ret_chng := 'N';
1184: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1185: (SELECT 'Y' FROM pay_element_entry_values_f eev
1186: WHERE eev.element_entry_id = rec_entry.element_entry_id
1187: AND eev.effective_end_date > p_term_date);
1188: EXCEPTION
1192: l_y_chng := l_y_chng + 1;
1193: END IF;
1194: BEGIN
1195: l_ret_chng := 'N';
1196: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1197: (SELECT 'Y' FROM pay_element_entries_f ee
1198: WHERE ee.element_entry_id = rec_entry.element_entry_id
1199: AND ee.effective_end_date > p_term_date);
1200: EXCEPTION
1204: l_y_chng := l_y_chng + 1;
1205: END IF;
1206: BEGIN
1207: l_ret_chng := 'N';
1208: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1209: (SELECT 'Y' FROM pay_element_entries_f ee
1210: WHERE ee.element_entry_id = rec_entry.element_entry_id
1211: AND ee.creator_type = 'SP'
1212: AND ee.effective_start_date > p_term_date);
1217: l_s_chng := l_s_chng + 1;
1218: END IF;
1219: BEGIN
1220: l_ret_chng := 'N';
1221: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1222: (SELECT 'Y' FROM pay_element_entries_f ee
1223: WHERE ee.element_entry_id = rec_entry.element_entry_id
1224: AND ee.creator_type = 'SP'
1225: AND ee.effective_end_date > p_term_date);
1260: EXIT;
1261: ELSE
1262: BEGIN
1263: l_ret_chng := 'N';
1264: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1265: (SELECT 'Y' FROM pay_element_entry_values_f eev
1266: WHERE eev.element_entry_id = nonrec_entry.element_entry_id);
1267: EXCEPTION
1268: WHEN NO_DATA_FOUND THEN NULL;
1271: l_y_chng := l_y_chng + 1;
1272: END IF;
1273: BEGIN
1274: l_ret_chng := 'N';
1275: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1276: (SELECT 'Y' FROM pay_element_entries_f ee
1277: WHERE ee.element_entry_id = nonrec_entry.element_entry_id);
1278: EXCEPTION
1279: WHEN NO_DATA_FOUND THEN NULL;
1282: l_y_chng := l_y_chng + 1;
1283: END IF;
1284: BEGIN
1285: l_ret_chng := 'N';
1286: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1287: (SELECT 'Y' FROM pay_element_entries_f ee
1288: WHERE ee.element_entry_id = nonrec_entry.element_entry_id
1289: AND ee.creator_type = 'SP');
1290: EXCEPTION
1298: nonrec_entry.effective_end_date > nvl(p_term_date,c_eot) THEN
1299: IF p_final_process_date IS NULL THEN
1300: BEGIN
1301: l_ret_chng := 'N';
1302: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1303: (SELECT 'Y' FROM pay_element_entry_values_f eev
1304: WHERE eev.element_entry_id = nonrec_entry.element_entry_id
1305: AND eev.effective_end_date = nonrec_entry.effective_end_date);
1306: EXCEPTION
1312: ELSE
1313: IF p_term_rule IN ('A','L','F') THEN
1314: BEGIN
1315: l_ret_chng := 'N';
1316: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1317: (SELECT 'Y' FROM pay_element_entries_f ee
1318: WHERE ee.element_entry_id = nonrec_entry.element_entry_id
1319: AND ee.effective_end_date = nonrec_entry.effective_end_date);
1320: EXCEPTION
1324: l_y_chng := l_y_chng + 1;
1325: END IF;
1326: BEGIN
1327: l_ret_chng := 'N';
1328: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1329: (SELECT 'Y' FROM pay_element_entries_f ee
1330: WHERE ee.element_entry_id = nonrec_entry.element_entry_id
1331: AND ee.creator_type = 'SP'
1332: AND ee.effective_end_date = nonrec_entry.effective_end_date);
1337: l_s_chng := l_s_chng + 1;
1338: END IF;
1339: BEGIN
1340: l_ret_chng := 'N';
1341: SELECT 'Y' INTO l_ret_chng FROM dual WHERE EXISTS
1342: (SELECT 'Y' FROM pay_element_entry_values_f eev
1343: WHERE eev.element_entry_id = nonrec_entry.element_entry_id
1344: AND eev.effective_end_date = nonrec_entry.effective_end_date);
1345: EXCEPTION