Personalizations: Calling to Procedure

Help ->Diagnostics -> Custom Code -> Personalizations: Execute a Procedure

PROCEDURE XXBEX_BULK_BATCH_DFF_P2(P_BATCH_NO VARCHAR2)

IS

--PRAGMA AUTONOMOUS_TRANSATION;

lv_batch_no VARCHAR2(32) := NULL;

lv_organization_id    NUMBER;

    -- ** ------------------------------------------------------------------------------------------** --

    -- ** XXBEX_BULK_BATCH_DFF_P: If FG Batch NO is showing batch Deatils Form                      **-- 

    -- **  attribute6 is Bulk Batch Number                                                          ** --

    -- ** Batch Detail Form : XXBEX_BULK_BATCH_NO_TBL                                               ** --

    -- **-------------------------------------------------------------------------------------------** --

    CURSOR CUR_BULK

    IS

        SELECT ATTRIBUTE6 BATCH_NO

             ,DECODE(gbh.BATCH_STATUS,1,'Pending',2,'WIP',3,'Completed',4,'Closed','Cancelled') STATUS

        FROM GME_BATCH_HEADER gbh

        WHERE rownum=1

        AND ATTRIBUTE6 IS NOT NULL

        AND gbh.BATCH_STATUS IN ('1','2','3')

        --AND recipe_no = P_RECIPE_NO

        AND BATCH_NO = P_BATCH_NO

        FOR UPDATE;

    BEGIN

            SELECT attribute6,organization_id

            INTO lv_batch_no ,lv_organization_id

            FROM GME_BATCH_HEADER gbh

            WHERE rownum=1

            AND ATTRIBUTE6 IS NOT NULL

            AND gbh.BATCH_STATUS IN ('1','2','3')

            --AND recipe_no = P_RECIPE_NO

            AND BATCH_NO = P_BATCH_NO;

               BEGIN

               --DELETE FROM  XXBEX_BULK_BATCH_NO_TBL;

               --  COMMIT;

                         ---lv_recipe_no := P_RECIPE_NO;

                         --DBMS_OUTPUT.PUT_LINE ('RECIPE_NO: '||P_RECIPE_NO );

                         DBMS_OUTPUT.PUT_LINE ('~FG BATCH NO: '||P_BATCH_NO);

                 IF lv_batch_no IS NOT NULL

                  THEN

                      FOR CUR_B IN CUR_BULK

                          LOOP

                                INSERT INTO XXBEX_BULK_BATCH_NO_TBL

                                                        (BATCH_NO

                                                        ,STATUS)

                                 VALUES (

                                                                 CUR_B.BATCH_NO,

                                                                 CUR_B.STATUS

                                                                 --CUR_B.ORDER_NUMBER,

                                                                /* NULL,-- ATTRIBUTE1,

                                                                 NULL,-- ATTRIBUTE2,

                                                                 NULL,-- ATTRIBUTE3,

                                                                 NULL,-- ATTRIBUTE4

                                                                 NULL,-- ATTRIBUTE5,

                                                                 NULL,-- CUR_TRX_NO_NULL_REC.CREATED_BY,

                                                                 NULL,-- CUR_TRX_NO_NULL_REC.CREATION_DATE,

                                                                 NULL,-- CUR_TRX_NO_NULL_REC.LAST_UPDATE_DATE,

                                                                 NULL,-- CUR_TRX_NO_NULL_REC.LAST_UPDATED_BY,

                                                                 NULL*/ -- CUR_TRX_NO_NULL_REC.LAST_UPDATE_LOGIN

                                                                 );

                             DBMS_OUTPUT.PUT_LINE ('2.BATCH_NO : '||CUR_B.BATCH_NO );

                             --COMMIT;

                          END LOOP;

                 ELSE

                      UPDATE XXBEX_BULK_BATCH_NO_TBL

                      SET ORGANIZATION_ID = lv_organization_id;

                      --WHERE

                       --COMMIT;

                 END IF;

                  --COMMIT;

               EXCEPTION

                   WHEN OTHERS

                   THEN

                    DBMS_OUTPUT.PUT_LINE('ERROR'||SQLERRM);

                    --p_status := ('ERROR'||SQLERRM);

                      NULL;

               END;

    EXCEPTION

    WHEN OTHERS

                   THEN

                    DBMS_OUTPUT.PUT_LINE('MAIN ERROR'||SQLERRM);

                    --p_status := ('ERROR'||SQLERRM);

                      NULL;

    END XXBEX_BULK_BATCH_DFF_P2;

END XXBEX_BULK_BATCH_DFF_PKG;

/

GL Base Query for Oracle EBS

/*GL Query*/

 SELECT  gjb.name batch_name, gjh.je_source, gjh.je_category, gcc.segment4 account_code,

(SELECT  A4.DESCRIPTION   DECS

from fnd_flex_values_vl A4

WHERE

   a4.flex_value=gcc.segment4

And a4.FLEX_VALUE_SET_ID in ( select FLEX_VALUE_SET_ID

                            from fnd_id_flex_segments

                           WHERE application_id = 101 AND id_flex_code = 'GL#' and enabled_flag = 'Y'

                           and application_column_name='SEGMENT4'))account_DECS,

       sum(NVL(gjl.accounted_dr,0)) accounted_dr, sum(NVL(gjl.accounted_cr,0)) accounted_cr,

       sum(NVL (gjl.accounted_dr, 0) - NVL (gjl.accounted_cr, 0) ) net_balance

  FROM gl_je_lines gjl,

       gl_je_headers gjh,

       gl_je_batches gjb,

       gl_code_combinations gcc

 WHERE 1=1--gjh.je_category = 'Receipts'

   AND gjl.je_header_id = gjh.je_header_id

   AND gjl.PERIOD_NAME NOT LIKE 'ADJ%' 

   AND EXISTS (

               SELECT 1

                 FROM gl_code_combinations gc

                WHERE gc.segment1 = :P_COMPANY

                  AND gc.segment4 = :P_ACCT_CD 

                  AND gc.code_combination_id= gjl.code_combination_id)

   AND gjl.code_combination_id = gcc.code_combination_id

   AND gjl.status = 'P'

   AND gjb.je_batch_id = gjh.je_batch_id

   --AND TRUNC (gjl.effective_date) >= :p_start_date

   AND TRUNC (gjl.effective_date) <= :p_end_date

Group By  gjb.name, gjh.je_source, gjh.je_category,gcc.segment4  

Order By 1