Budget Inquiry PLSQL Query - Oracle EBS R12

http://generalledger-gl.blogspot.com/2017/02/budget-inquiry.html

PLSQL Query to Get Budget Inquiry

select decode(kk.STATUS, 'P', 'Posted', 'U', 'Unposted', kk.STATUS) Status,
     
       fu.USER_NAME User_Created,
     
       fu.FAX Site,
     
       kk.NAME,
     
       kk.JE_SOURCE,
     
       kk.JE_CATEGORY,
     
       kk.PERIOD_NAME,
     
       kk.DEFAULT_EFFECTIVE_DATE,
     
       gc.SEGMENT1 Company,
     
       gc.SEGMENT2 Lcoation,
     
       gc.SEGMENT3 Department,
     
       gc.SEGMENT4 Account,
     
       gc.SEGMENT5 Project,
     
       gc.SEGMENT6 Intercompany,
     
       gc.SEGMENT7 Future1,
     
       gc.SEGMENT8 Future2,
     
       ll.ACCOUNTED_DR Debit,
     
       ll.ACCOUNTED_CR Credit,
     
       ll.DESCRIPTION

  from gl_je_headers kk,
     
       gl_je_lines ll,
     
       fnd_user fu,
     
       gl_code_combinations gc

 where kk.JE_HEADER_ID = ll.JE_HEADER_ID
     
   and fu.USER_ID = kk.CREATED_BY
     
   and gc.CODE_COMBINATION_ID = ll.CODE_COMBINATION_ID
     
   and kk.ACTUAL_FLAG = 'B'
     
      --  and ll.STATUS = 'P'
     
      -- and ll.STATUS = 'P'
     
   and ll.LEDGER_ID = kk.LEDGER_ID
     
   and kk.LEDGER_ID = 2024
     
   and ll.LEDGER_ID = 2024