Firebird - Внутренняя процедура, условие с условием для цикла

[KBO]

Есть внутрення рабочая процедура

Доброе время сутк форумчане,

Есть внутренняя процедура

create or alter procedure SP_SEL_COST_FOR_DEVICE (
    IN_DEPARTMENT_ID_EXECUTE integer,
    IN_PROPOSAL_ID integer)
returns (
    OUT_DEVICES_ID integer,
    OUT_COUNT_HOUR numeric(15,2))
as
declare variable VAR_COUNT_HOUR numeric(15,2);
declare variable VAR_SORT_WORK_ID integer;
declare variable VAR_DEVICES_CL_ID integer;
declare variable VAR_DEPARTMENT_ID_EXECUTE integer;
declare variable VAR_DEVICE_ID integer;
begin
  for
    select d.SORT_WORK_ID, dp.DEVICE_ID, dp.DEPARTMENT_ID_EXECUTE, dp.DEVICES_CL_ID
      from DISTRIBUTION_PROPOSAL dp
      join DEVICES d on d.ID = dp.DEVICE_ID
        where dp.PROPOSAL_ID = :IN_PROPOSAL_ID
          into :VAR_SORT_WORK_ID, :VAR_DEVICE_ID, :VAR_DEPARTMENT_ID_EXECUTE, :VAR_DEVICES_CL_ID do
  begin
….

Рабочая, все нормально.

Вопрос:
Можно каким-нибудь образом сделать, если в передаче «IN_DEPARTMENT_ID_EXECUTE» не пустое значение, то блок «where» (в for), выглядел бы так:

where dp.PROPOSAL_ID = :IN_PROPOSAL_ID and DEPARTMENT_ID_EXECUTE = : IN_DEPARTMENT_ID_EXECUTE

Очень не хотелось писать 2 одинаковых цикла.

[Аватар]

where dp.PROPOSAL_ID = :IN_PROPOSAL_ID and
(:VAR_DEPARTMENT_ID_EXECUTE is null or DEPARTMENT_ID_EXECUTE = :IN_DEPARTMENT_ID_EXECUTE)