879: BEGIN
880:
881: x_progress := '001';
882: --Bug# 1942696 togeorge 08/16/2001
883: --HR removes hz_locations from hr_locations; added exception
884: Begin
885: -- validation
886: SELECT distinct 'Y'
887: INTO x_valid_flag
884: Begin
885: -- validation
886: SELECT distinct 'Y'
887: INTO x_valid_flag
888: FROM HR_LOCATIONS
889: WHERE nvl(inventory_organization_id,x_ship_to_organization_id) = x_ship_to_organization_id
890: AND nvl(inactive_date, trunc(sysdate + 1)) > trunc(sysdate)
891: AND location_id = x_deliver_to_location_id;
892: