GL Interco Ar Balances Short Term Report

 GL Interco Ar Balances Short Term Report

SELECT Al1.Period_Name Period,

       Al1.Company r_Co,

       Al1.Glbl_Acct r_Gac,

       Al1.Interco r_Ico,

       SUM(Al1.Rec_Beg_Bal) Rec_Beg_Bal,

       SUM(Al1.Rec_Period_Net) Rec_Period_Net,

       SUM(Al1.Rec_End_Bal) Rec_End_Bal,

       Al1.Interco p_co,

       Decode(Al1.Glbl_Acct,

              '11790',

              '21290',

              '13790',

              '22290',

              '21290',

              '11790',

              '22290',

              '13790',

              '99999') P_Gac,

       Al1.Company P_Ico,       

       SUM(Al1.Pay_Beg_Bal) Pay_Beg_Bal,

       SUM(Al1.Pay_Period_Net) Pay_Period_Net,

       SUM(Al1.Pay_End_Bal) Pay_End_Bal,       

       Nvl((SUM(Al1.Rec_End_Bal)), 0) -

       (Nvl((SUM(Al1.Pay_End_Bal)), 0) * -1) Diff_End_Bal,

       Nvl((SUM(Al1.Rec_Period_Net)), 0) -

       (Nvl((SUM(Al1.Pay_Period_Net)), 0) * -1) Diff_Ptd

  FROM (SELECT Bal.Period_Name Period_Name,

               Cde.Segment1 Company,

               Cde.Segment2 Glbl_Acct,

               Cde.Segment5 Interco,

               SUM(Nvl(Bal.Begin_Balance_Dr, 0) -

                   Nvl(Bal.Begin_Balance_Cr, 0)) Rec_Beg_Bal,

               SUM(Nvl(Bal.Period_Net_Dr, 0) - Nvl(Bal.Period_Net_Cr, 0)) Rec_Period_Net,

               SUM((Nvl(Bal.Begin_Balance_Dr, 0) -

                   Nvl(Bal.Begin_Balance_Cr, 0)) +

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

               NULL Pay_Beg_Bal,

               NULL Pay_Period_Net,

               NULL Pay_End_Bal

          FROM Gl_Balances          Bal,

               Gl_Code_Combinations Cde,

               Gl_Ledgers           Lgr

         WHERE Bal.Actual_Flag = 'A'

          /* AND EXISTS

         (SELECT 1

                  FROM Gl_Consolidation Sgc

                 WHERE EXISTS

                 (SELECT 1

                          FROM Apps.Gl_Cons_Map_Set_v    s,

                               Apps.Gl_Cons_Set_Assign_v a

                         WHERE s.Consolidation_Set_Id = a.Consolidation_Set_Id

                           AND a.Consolidation_Id = Sgc.Consolidation_Id)

                   AND Sgc.From_Ledger_Id = Lgr.Ledger_Id

                   AND Sgc.From_Currency_Code = 'USD'

                   AND Sgc.Name NOT LIKE 'ZZZ%'

                   AND Nvl('Y', 'N') = 'Y'

                UNION ALL

                SELECT 1

                  FROM Dual

                 WHERE Nvl('Y', 'N') = 'N') */

           AND Lgr.Ledger_Id = Bal.Ledger_Id

           AND Cde.Segment2 IN ('11790', '13790')

           AND Bal.Translated_Flag IS NULL

           AND Cde.Code_Combination_Id = Bal.Code_Combination_Id

         GROUP BY Bal.Period_Name, Cde.Segment1, Cde.Segment2, Cde.Segment5

        UNION ALL

        SELECT Bal.Period_Name Period_Name,

               Cde.Segment5 Company,

               Decode(Cde.Segment2,

                      '21290',

                      '11790',

                      '22290',

                      '13790',

                      '99999') Glbl_Acct,

               Cde.Segment1 Interco,

               NULL Rec_Beg_Bal,

               NULL Rec_Period_Net,

               NULL Rec_End_Bal,

               SUM(Nvl(Bal.Begin_Balance_Dr, 0) -

                   Nvl(Bal.Begin_Balance_Cr, 0)) Pay_Beg_Bal,

               SUM(Nvl(Bal.Period_Net_Dr, 0) - Nvl(Bal.Period_Net_Cr, 0)) Pay_Period_Net,

               SUM((Nvl(Bal.Begin_Balance_Dr, 0) -

                   Nvl(Bal.Begin_Balance_Cr, 0)) +

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

          FROM Gl_Balances          Bal,

               Gl_Code_Combinations Cde,

               Gl_Ledgers           Lgr

         WHERE Bal.Actual_Flag = 'A'

          /* AND EXISTS

         (SELECT 1

                  FROM Apps.Gl_Consolidation Sgc

                 WHERE EXISTS

                 (SELECT 1

                          FROM Apps.Gl_Cons_Map_Set_v    s,

                               Apps.Gl_Cons_Set_Assign_v a

                         WHERE s.Consolidation_Set_Id = a.Consolidation_Set_Id

                           AND a.Consolidation_Id = Sgc.Consolidation_Id)

                   AND Sgc.From_Ledger_Id = Lgr.Ledger_Id

                   AND Sgc.From_Currency_Code = 'USD'

                   AND Sgc.Name NOT LIKE 'ZZZ%'

                   AND Nvl('Y', 'N') = 'Y'

                UNION ALL

                SELECT 1

                  FROM Dual

                 WHERE Nvl('Y', 'N') = 'N')*/

           AND Lgr.Ledger_Id = Bal.Ledger_Id

           AND Cde.Segment2 IN ('21290', '22290')

           AND Bal.Translated_Flag IS NULL

           AND Cde.Code_Combination_Id = Bal.Code_Combination_Id

         GROUP BY Bal.Period_Name,

                  Cde.Segment5,

                  Decode(Cde.Segment2,

                         '21290',

                         '11790',

                         '22290',

                         '13790',

                         '99999'),

                  Cde.Segment1) Al1

 WHERE Al1.Interco <> '000'

   AND Al1.Period_Name = :P_PERIOD

   AND Al1.Glbl_Acct = '11790'

   AND Al1.Company BETWEEN '111' AND '999'

   AND (Al1.Rec_Beg_Bal <> 0 OR Al1.Rec_Period_Net <> 0 OR

       Al1.Rec_End_Bal <> 0 OR Al1.Pay_Beg_Bal <> 0 OR

       Al1.Pay_Period_Net <> 0 OR Al1.Pay_End_Bal <> 0)

 GROUP BY Al1.Period_Name,

          Al1.Company,

          Al1.Glbl_Acct,

          Al1.Interco,

          Al1.Company,

          Al1.Interco,

          Decode(Al1.Glbl_Acct,

                 '11790',

                 '21290',

                 '13790',

                 '22290',

                 '21290',

                 '11790',

                 '22290',

                 '13790',

                 '99999')

 ORDER BY Al1.Company, Al1.Interco