Oracle EBS GL獲得業務實體的賬薄信息

獲得業務實體的賬薄信息:
1.會計科目鍵彈性結構標識
2.帳薄名稱
3.本位幣
參考SQL如下

DECLARE
  Ln_Org_Id        NUMBER := 101;
  Ln_Ledger_Id     NUMBER;
  Ln_Coa_Id        NUMBER;
  Lv_Ledger_Name   VARCHAR2(80);
  Ln_Currency_Code VARCHAR2(30);
  Lv_Errbuf        VARCHAR2(2000);
BEGIN
  --獲得帳薄標識
  SELECT Hou.Set_Of_Books_Id
    INTO Ln_Ledger_Id
    FROM Hr_Operating_Units Hou
   WHERE Hou.Organization_Id = Ln_Org_Id;
  Dbms_Output.Put_Line('Ln_Ledger_Id:' || Ln_Ledger_Id);
  --獲得會計科目鍵彈性結構標識、帳薄名稱和本位幣
  Gl_Info.Gl_Get_Ledger_Info(Ledid     => Ln_Ledger_Id
                            ,Coaid     => Ln_Coa_Id
                            ,Ledname   => Lv_Ledger_Name
                            ,Func_Curr => Ln_Currency_Code
                            ,Errbuf    => Lv_Errbuf);
  Dbms_Output.Put_Line('Ln_Coa_Id:' || Ln_Coa_Id);
  Dbms_Output.Put_Line('Lv_Ledger_Name:' || Lv_Ledger_Name);
  Dbms_Output.Put_Line('Ln_Currency_Code:' || Ln_Currency_Code);
  --獲得失敗時錯誤說明
  Dbms_Output.Put_Line('Lv_Errbuf:' || Lv_Errbuf);
END;

: