unable to update organization Location

Dear gurus,

I am unable to update organization location with folowing script. Please check and guide us if any changes required.

DECLARE

  l_validate_mode      BOOLEAN := FALSE;

  l_effective_date     DATE;

  l_organization_id     NUMBER;

  l_object_version_number  NUMBER;

  l_duplicate_org_warning  BOOLEAN;

  l_end_org_warning     BOOLEAN;

  CURSOR C1

  IS

   SELECT DISTINCT XULT.LOCATION_ID,

       HAOU.ORGANIZATION_ID,

       HAOU.DATE_FROM,

       OBJECT_VERSION_NUMBER

   FROM XXTDL_UPDATE_LOCATION_TAB XULT, HR_ALL_ORGANIZATION_UNITS HAOU

   WHERE XULT.ORGANIZATION_ID IS NOT NULL

   AND XULT.ORGANIZATION_ID = HAOU.ORGANIZATION_ID

   AND XULT.LOCATION_ID<>HAOU.LOCATION_ID;

BEGIN