[Home] [Help]
220: l_effective_date := to_date('1999/01/01','YYYY/MM/DD');
221: l_old_duty_station_code := null;
222: l_new_duty_station_code := null;
223:
224: ghr_mto_int.set_log_program_name('GHR_LOC_CONV_PKG');
225:
226: -- Check Location id are same
227: if p_old_location_id = p_new_location_id then raise same_loc_err; end if;
228:
395: ,p_tax_district_changed_warning => l_tax_district_changed_warning
396: );
397: l_count := l_count + 1;
398: exception when others then
399: ghr_mto_int.log_message
400: (p_procedure => 'Error in Assignments'
401: ,p_message => l_log_text || ' Sql error : '|| sqlerrm(sqlcode)
402: );
403: end;
403: end;
404: begin
405: ghr_history_api.post_update_process;
406: exception when others then
407: ghr_mto_int.log_message
408: (p_procedure => 'Error in Assignments(History)'
409: ,p_message => l_log_text || ' Sql error : '|| sqlerrm(sqlcode)
410: );
411: end;
411: end;
412: end loop;
413:
414: if l_count <> 0 then
415: ghr_mto_int.log_message
416: (p_procedure => 'Success Completion Asg'
417: ,p_message => 'All Employees New Location changed in ' || to_char(l_count) || ' Assignments'
418: );
419: else
416: (p_procedure => 'Success Completion Asg'
417: ,p_message => 'All Employees New Location changed in ' || to_char(l_count) || ' Assignments'
418: );
419: else
420: ghr_mto_int.log_message
421: (p_procedure => 'Success Completion Asg'
422: ,p_message => 'But No Employees for the given Old Location'
423: );
424: end if;
500: ghr_history_api.post_update_process;
501: l_count := l_count + 1;
502: exception when others then
503: rollback to hrposupd;
504: ghr_mto_int.log_message
505: (p_procedure => 'Error in Positions'
506: ,p_message => l_log_text || ' Sql error : '|| sqlerrm(sqlcode)
507: );
508: end;
509:
510: end loop;
511:
512: if l_count <> 0 then
513: ghr_mto_int.log_message
514: (p_procedure => 'Success Completion Pos'
515: ,p_message => 'New Location changed for ' || to_char(l_count) || ' of Positions'
516: );
517: else
514: (p_procedure => 'Success Completion Pos'
515: ,p_message => 'New Location changed for ' || to_char(l_count) || ' of Positions'
516: );
517: else
518: ghr_mto_int.log_message
519: (p_procedure => 'Success Completion Pos'
520: ,p_message => 'But No Positions for the given Old Location'
521: );
522: end if;
537:
538: end loop;
539:
540: if l_count <> 0 then
541: ghr_mto_int.log_message
542: (p_procedure => 'Success Completion Org'
543: ,p_message => 'New Location changed for ' || to_char(l_count) || ' of Organizations'
544: );
545: else
542: (p_procedure => 'Success Completion Org'
543: ,p_message => 'New Location changed for ' || to_char(l_count) || ' of Organizations'
544: );
545: else
546: ghr_mto_int.log_message
547: (p_procedure => 'Success Completion Org'
548: ,p_message => 'But No Organizations for the given Old Location'
549: );
550: end if;
571: when same_loc_err then
572: l_log_text := 'The New Location chosen is the same as the Old Location. ';
573: l_log_text := l_log_text || 'Please verify that the New Location is correct.';
574: l_log_text := l_log_text || ' Only OPM mandated changes can be run through the Duty Station Conversion. ';
575: ghr_mto_int.log_message
576: (p_procedure => 'Same Old and New Location Name'
577: ,p_message => l_log_text
578: );
579: commit;
583: l_log_text := l_log_text || ' Fairfield/Delaware/Pennsylvania. You must complete a Request for ';
584: l_log_text := l_log_text || 'Personnel action to move all affected employees from this Duty Station ';
585: l_log_text := l_log_text || 'to a different Duty Station. You may obtain a listing of all employees ';
586: l_log_text := l_log_text || 'in this Duty Station by running the Location Occupancy Report.';
587: ghr_mto_int.log_message
588: (p_procedure => 'DS 422760045'
589: ,p_message => l_log_text
590: );
591: commit;
593: when old_not_in_opm then
594: l_log_text := 'The Old Location chosen has an associated Duty Station that is not one of the OPM mandated Duty Stations. ';
595: l_log_text := l_log_text || 'Please verify that the Old Location is correct. ';
596: l_log_text := l_log_text || 'Only OPM mandated changes can be run through the Duty Station Conversion. ';
597: ghr_mto_int.log_message
598: (p_procedure => 'Old Location'
599: ,p_message => l_log_text
600: );
601: commit;
603: when new_not_in_opm then
604: l_log_text := 'The New Location chosen has an associated Duty Station that is not one of the OPM mandated Duty Stations. ';
605: l_log_text := l_log_text || 'Please verify that the New Location is correct. ';
606: l_log_text := l_log_text || 'Only OPM mandated changes can be run through the Duty Station Conversion. ';
607: ghr_mto_int.log_message
608: (p_procedure => 'New Location'
609: ,p_message => l_log_text
610: );
611: commit;
610: );
611: commit;
612:
613: when old_new_not_in_opm then
614: ghr_mto_int.log_message
615: (p_procedure => 'Old to New Combination'
616: ,p_message => 'Old Location Duty station is mapped to a wrong New Location Duty Station'
617: );
618: commit;
625: l_log_text := l_log_text || ' Process a NOAC 895 to change the Locality Adjustment and Employee Location. ';
626: l_log_text := l_log_text || 'Use the Start Date the employee was first assigned to this location';
627: l_log_text := l_log_text || ', as of the effective date of the RPA. ';
628:
629: ghr_mto_int.log_message
630: (p_procedure => 'Locality Adjustment Different'
631: ,p_message => l_log_text
632: );
633: commit;
632: );
633: commit;
634: when others then
635: rollback;
636: ghr_mto_int.log_message
637: (p_procedure => 'Conversion Failure'
638: ,p_message => l_log_text || ' Sql error : '|| sqlerrm(sqlcode)
639: );
640: commit;