Preenchendo item de árvore com grupo de registros em formulários Oracle

A unidade de programa plsql abaixo pode ser usada em um gatilho WHEN-NEW-FORM-INSTANCE para preencher inicialmente a árvore hierárquica com dados em formulários Oracle.

DECLARE
htree ITEM;
v_ignore NUMBER;
rg_emps RECORDGROUP;
BEGIN
-- Localiza a própria árvore.
htree :=Find_Item('treeblock. htree1');
-- Verifica a existência do grupo de registros.
rg_emps :=Find_Group('emps');
IF NOT Id_Null(rg_emps) THEN
DELETE_GROUP( rg_emps);
END IF;
-- Cria o grupo de registros.
rg_emps :=Create_Group_From_Query('rg_emps',
'select 1, level, ename, NULL, to_char( empno) ' ||
'de emp ' ||
'conectar por empno anterior =mgr ' ||
'começar com job =''PRESIDENT''');
-- Preencher o grupo de registros com dados.
v_ignore :=Populate_Group(rg_emps);
-- Transferir os dados do grupo de registros para a árvore hierárquica
-- e exibi-los.
Ftree.Set_Tree_Property(htree, Ftree.RECORD_GROUP, rg_emps);
END;