[Home] [Help]
310:
311: cursor period
312: is
313: select actual_termination_date
314: from per_periods_of_service
315: where period_of_service_id = X_period_of_service_id
316: for update of actual_termination_date;
317: --
318: cursor assignment
354: open period;
355: fetch period into l_dummy_date;
356: close period;
357: begin
358: update per_periods_of_service
359: set actual_termination_date = X_termination_date
360: , final_process_date = X_termination_date
361: , last_standard_process_date = X_termination_date
362: where period_of_service_id = X_period_of_service_id;
501: --
502: cursor period
503: is
504: select date_start
505: from per_periods_of_service
506: where period_of_service_id = X_period_of_service_id
507: for update of date_start;
508: --
509: cursor assignment is
526: open period;
527: fetch period into l_dummy_date;
528: close period;
529: begin
530: update per_periods_of_service
531: set date_start = X_hire_date
532: where period_of_service_id = X_period_of_service_id
533: and date_start = X_s_hire_date;
534: -- VT 01/29/97 #417906 added exception
595: --
596: cursor period
597: is
598: select actual_termination_date
599: from per_periods_of_service
600: where period_of_service_id = X_period_of_service_id
601: for update of actual_termination_date;
602: --
603: l_dummy_date VARCHAR2(30);
623: open period;
624: loop
625: fetch period into l_dummy_date;
626: exit when period%NOTFOUND;
627: update per_periods_of_service
628: set actual_termination_date = null
629: , last_standard_process_date = null
630: , final_process_date = null
631: where current of period;
967: cursor check_assignment_changes
968: is
969: select assignment_id
970: from per_assignments_f paf
971: , per_periods_of_service pos
972: where paf.person_id = pos.person_id
973: and paf.period_of_service_id = pos.period_of_service_id
974: and pos.date_start = p_s_hire_date
975: and pos.person_id = p_person_id;