Oracle EBS 用户添加或更新职责

DECLARE
  L_USER_ID             NUMBER;
  L_APPLICATION_ID      NUMBER;
  L_RESPONSIBILITY_ID   NUMBER;
  L_RESPONSIBILITY_NAME VARCHAR2(100);
BEGIN
  BEGIN
    SELECT FU.USER_ID
      INTO L_USER_ID
      FROM PER_ALL_PEOPLE_F PPF, FND_USER FU
     WHERE PPF.EMPLOYEE_NUMBER = '1001'
       AND PPF.PERSON_ID = FU.EMPLOYEE_ID;
  EXCEPTION
    WHEN OTHERS THEN
      L_USER_ID := NULL;
    
  END;

  IF L_USER_ID IS NOT NULL THEN
  
    BEGIN
      SELECT B.APPLICATION_ID, B.RESPONSIBILITY_ID
        INTO L_APPLICATION_ID, L_RESPONSIBILITY_ID
        FROM FND_RESPONSIBILITY_TL T, FND_RESPONSIBILITY B
       WHERE B.RESPONSIBILITY_ID = T.RESPONSIBILITY_ID
         AND B.APPLICATION_ID = T.APPLICATION_ID
         AND T.RESPONSIBILITY_NAME = '系统管理员'
         AND T.LANGUAGE = USERENV('LANG')
         AND SYSDATE BETWEEN B.START_DATE AND NVL(B.END_DATE, SYSDATE + 1);
    EXCEPTION
      WHEN OTHERS THEN
        L_APPLICATION_ID    := NULL;
        L_RESPONSIBILITY_ID := NULL;
      
    END;
  
    IF L_APPLICATION_ID IS NOT NULL AND L_RESPONSIBILITY_ID IS NOT NULL THEN
      BEGIN
        --添加权限
        FND_USER_RESP_GROUPS_API.INSERT_ASSIGNMENT(USER_ID                       => L_USER_ID,
                                                   RESPONSIBILITY_ID             => L_RESPONSIBILITY_ID,
                                                   RESPONSIBILITY_APPLICATION_ID => L_APPLICATION_ID,
                                                   SECURITY_GROUP_ID             => 0,
                                                   START_DATE                    => SYSDATE,
                                                   END_DATE                      => NULL,
                                                   DESCRIPTION                   => NULL);
        --更新权限
        FND_USER_RESP_GROUPS_API.UPDATE_ASSIGNMENT(USER_ID                       => L_USER_ID,
                                                   RESPONSIBILITY_ID             => L_RESPONSIBILITY_ID,
                                                   RESPONSIBILITY_APPLICATION_ID => L_APPLICATION_ID,
                                                   SECURITY_GROUP_ID             => 0,
                                                   START_DATE                    => SYSDATE,
                                                   END_DATE                      => NULL,
                                                   DESCRIPTION                   => NULL,
                                                   UPDATE_WHO_COLUMNS            => 'Y');
      EXCEPTION
        WHEN OTHERS THEN
          NULL;
      END;
    END IF;
  END IF;
END;