BEGIN
ABoolResult = 1;
IF (:ADivisionSel_ID <> '') THEN BEGIN
EXECUTE PROCEDURE CheckDivision :ADivision_ID, :ADivisionSel_ID, :ADivisionsWithChildren
RETURNING_VALUES :ABoolResult;
END
IF ( (:ABoolResult > 0) AND (:ABusOrderSel_ID <> '') ) THEN BEGIN
EXECUTE PROCEDURE CheckBusOrder :ABusOrder_ID, :ABusOrderSel_ID, :ABusOrdersWithChildren, :ABusOrdersWithNull
RETURNING_VALUES :ABoolResult;
END
IF ( (:ABoolResult > 0) AND (:ABusTransactionSel_ID <> '') ) THEN BEGIN
EXECUTE PROCEDURE CheckBusTransaction :ABusTransaction_ID, :ABusTransactionSel_ID, :ABusTransactionsWithChildren, :ABusTransactionsWithNull
RETURNING_VALUES :ABoolResult;
END
IF ( (:ABoolResult > 0) AND (:ABusProjectSel_ID <> '') ) THEN BEGIN
EXECUTE PROCEDURE CheckBusProject :ABusProject_ID, :ABusProjectSel_ID, :ABusProjectsWithChildren, :ABusProjectsWithNull
RETURNING_VALUES :ABoolResult;
END
END;