Execute Query Depending on Tree Node Value

DECLARE
   vi_htree   item;
BEGIN
   vi_htree := FIND_ITEM ('BLK_TR.TR');
   :ctrl.ac_code :=
      ftree.GET_TREE_NODE_PROPERTY (vi_htree,
                                    :SYSTEM.trigger_node,
                                    ftree.node_value
                                   );

 /*  SELECT ac_code, ac_name, node_lvl, group_fg,
          stat_fg, ac_type
     INTO :ctrl.ac_code, :ctrl.ac_name, :ctrl.node_lvl, :ctrl.group_fg,
          :ctrl.stat_fg, :ctrl.ac_type
     FROM ac_coa
    WHERE ac_code = :ctrl.ac_code AND onr_id = :ctrl1.onr_id;*/

   SET_BLOCK_PROPERTY ('AC_COA',
                       default_where,
                          'AC_PCODE = '
                       || :ctrl.ac_code
                       || 'AND ONR_ID = '
                       || :ctrl1.onr_id
                      );
   GO_BLOCK ('AC_COA');
   CLEAR_BLOCK;
   EXECUTE_QUERY;
EXCEPTION
   WHEN OTHERS
   THEN
      p_message (SQLERRM);
END;