Summarized TB BU Report

 Summarized TB BU Report

SELECT Bal.Period_Name Period,

       Bal.Name Ledger_Name,

       Xglcc.Segment1 Co,

       Xglcc.Segment2 Loc,

       Xglcc.Segment3 Gac,

       (SELECT Ffv.Description

                  FROM Fnd_Flex_Value_Sets Ffvs,

                       Fnd_Flex_Values_Vl  Ffv

                 WHERE Ffvs.Flex_Value_Set_Name = 'XXON_GLS3_GAC'

                   AND Ffv.Flex_Value_Set_Id = Ffvs.Flex_Value_Set_Id

                   AND Ffv.Flex_Value = XGlcc.Segment3) Gac_Desc,

       Bal.Currency_Code Cy_cd,

       SUM((Nvl(Bal.Begin_Balance_Dr_beq, 0) - Nvl(Bal.Begin_Balance_Cr_beq, 0)) +

           (Nvl(Bal.Period_Net_Dr, 0) - Nvl(Bal.Period_Net_Cr, 0))) End_Balance_Net,

                  Xglcc.Segment6 Bu,

       Xglcc.Segment7 Ico,

        TO_NUMBER(to_char(TO_DATE(bal.period_name, 'MON-YY', 'NLS_DATE_LANGUAGE=AMERICAN'),

                      'YYYYMM'))                                                                                                                period_yyyymm

                      ,

       SYSDATE TIMESTAMP

  FROM Gl_Periods Gp,

Gl_Code_Combinations Xglcc,     

       (SELECT Gl.Name Name,

               Gl.Ledger_Id,

               Bal.Period_Name,

               Bal.Period_Year,

               Bal.Currency_Code,

               Bal.Period_Net_Dr,

               Bal.Period_Net_Cr,

               Bal.Begin_Balance_Dr_beq,

               Bal.Begin_Balance_Cr_beq,

               Code_Combination_Id

          FROM Gl_Balances Bal, Gl_Ledgers Gl WHERE  Gl.Ledger_Id = Bal.Ledger_Id

           AND Bal.Actual_Flag = 'A'

           AND Bal.Currency_Code <> 'STAT'

           AND Bal.Translated_Flag IS NULL

) Bal

 WHERE  Gp.Period_Name = Bal.Period_Name

   AND Gp.Period_Set_Name = '4-4-5'

   AND Xglcc.Code_Combination_Id = Bal.Code_Combination_Id(+)

  AND ( CASE

        WHEN gp.period_name IN ( :p_period ) THEN

            1

        WHEN ( coalesce(NULL, :p_period) IS NULL ) THEN

            1

          END = 1 )

AND ( CASE

        WHEN bal.name IN ( :p_ledger ) THEN

            1

        WHEN ( coalesce(NULL, :p_ledger) IS NULL ) THEN

            1

          END = 1 )

AND ( CASE

        WHEN xglcc.segment1 IN ( :p_company ) THEN

            1

        WHEN ( coalesce(NULL, :p_company) IS NULL ) THEN

            1

          END = 1 )

         AND ( CASE

        WHEN xglcc.segment2 IN ( :p_loc ) THEN

            1

        WHEN ( coalesce(NULL, :p_loc) IS NULL ) THEN

            1

          END = 1 )

        AND ( CASE

        WHEN xglcc.segment3 IN ( :p_gac ) THEN

            1

        WHEN ( coalesce(NULL, :p_gac) IS NULL ) THEN

            1

          END = 1 )

          AND ( CASE

        WHEN xglcc.segment4 IN ( :p_lac ) THEN

            1

        WHEN ( coalesce(NULL, :p_lac) IS NULL ) THEN

            1

          END = 1 )

         AND ( CASE

        WHEN xglcc.segment5 IN ( :p_dept ) THEN

            1

        WHEN ( coalesce(NULL, :p_dept) IS NULL ) THEN

            1

          END = 1 )

          AND ( CASE

        WHEN xglcc.segment6 IN ( :p_pal ) THEN

            1

        WHEN ( coalesce(NULL, :p_pal) IS NULL ) THEN

            1

          END = 1 )

         AND ( CASE

        WHEN xglcc.segment7 IN ( :p_ico ) THEN

            1

        WHEN ( coalesce(NULL, :p_ico) IS NULL ) THEN

            1

          END = 1 )

    AND ( CASE

        WHEN xglcc.segment8 IN ( :p_proj ) THEN

            1

        WHEN ( coalesce(NULL, :p_proj) IS NULL ) THEN

            1

          END = 1 )

GROUP BY Bal.Period_Name,

          Bal.Name,

          Xglcc.Segment1,

          Xglcc.Segment2,

          Xglcc.Segment3,

          Bal.Currency_Code,

          Xglcc.Segment6,

          Xglcc.Segment7,

          To_Number(To_Char(To_Date(Bal.Period_name, 'MON-YY','NLS_DATE_LANGUAGE=AMERICAN'), 'YYYYMM'))

HAVING  SUM((Nvl(Bal.Begin_Balance_Dr_beq, 0) - Nvl(Bal.Begin_Balance_Cr_beq, 0)) + 

(Nvl(Bal.Period_Net_Dr, 0) - Nvl(Bal.Period_Net_Cr, 0))) <> 0