3:
4: PROCEDURE do_conversion(
5: p_errbuf out varchar2
6: ,p_retcode out number
7: ,p_old_location_id IN hr_locations.location_id%TYPE
8: ,p_new_location_id IN hr_locations.location_id%TYPE)
9: IS
10:
11:
4: PROCEDURE do_conversion(
5: p_errbuf out varchar2
6: ,p_retcode out number
7: ,p_old_location_id IN hr_locations.location_id%TYPE
8: ,p_new_location_id IN hr_locations.location_id%TYPE)
9: IS
10:
11:
12: l_old_duty_station_code ghr_duty_stations_f.duty_station_code%TYPE;
47: l_position_definition_id number;
48: l_name varchar2(2000);
49: l_valid_grades_changed_warning boolean;
50:
51: l_entered_by hr_locations.entered_by%TYPE;
52: l_location_code hr_locations.location_code%TYPE;
53:
54: l_eed date;
55: l_esd date;
48: l_name varchar2(2000);
49: l_valid_grades_changed_warning boolean;
50:
51: l_entered_by hr_locations.entered_by%TYPE;
52: l_location_code hr_locations.location_code%TYPE;
53:
54: l_eed date;
55: l_esd date;
56: l_exists boolean := false;
207: for update of location_id;
208:
209: ---cursor cur_loc is
210: ---select entered_by,location_code,object_version_number
211: ---from hr_locations
212: ---where location_id = p_old_location_id
213: ---for update of inactive_date;
214:
215: BEGIN
558: --- l_location_code := cur_loc_rec.location_code;
559: --- l_object_version_number := cur_loc_rec.object_version_number;
560: ---
561: ---- Update Location as inactive as on 31-DEC-1998
562: --- update hr_locations set inactive_date = (l_effective_date - 1)
563: --- where current of cur_loc;
564: ---
565: --- end loop;
566: --- end;