OracleFormsでのレコードグループによるツリーアイテムの入力

以下のplsqlプログラムユニットをWHEN-NEW-FORM-INSTANCEトリガーで使用して、階層ツリーにOracleフォームのデータを最初に入力できます。

DECLARE
htree ITEM;
v_ignore NUMBER;
rg_emps RECORDGROUP;
BEGIN
-ツリー自体を検索します。
htree：=Find_Item（'treeblock。 htree1'）;
-レコードグループの存在を確認します。
rg_emps：=Find_Group（' emps'）;
IF NOT Id_Null（rg_emps）THEN
DELETE_GROUP（ rg_emps）;
END IF;
-レコードグループを作成します。
rg_emps：=Create_Group_From_Query（'rg_emps'、
'select 1、level、ename、NULL、to_char（ empno）'||
' from emp'||
'以前のempno=mgrで接続'||
' start with job ='' PRESIDENT'''）;
-レコードグループにデータを入力します。
v_ignore：=Populate_Group（rg_emps）;
-レコードグループから階層ツリーにデータを転送し、
-表示します。
Ftree.Set_Tree_Property（htree、Ftree.RECORD_GROUP、rg_emps）;
END;