PACKAGE BODY: APPS.IGC_IGCBDTRR_XMLP_PKG

Source

1 PACKAGE BODY IGC_IGCBDTRR_XMLP_PKG AS
2 /* $Header: IGCBDTRRB.pls 120.0.12010000.1 2008/07/28 06:27:41 appldev ship $ */
3   FUNCTION AFTERREPORT RETURN BOOLEAN IS
4   BEGIN
5     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
6     RETURN (TRUE);
7   END AFTERREPORT;
8 
9   FUNCTION STRUCT_NUM_P RETURN VARCHAR2 IS
10   BEGIN
11     RETURN STRUCT_NUM;
12   END STRUCT_NUM_P;
13 
14   FUNCTION SET_OF_BOOKS_NAME_P RETURN VARCHAR2 IS
15   BEGIN
16     RETURN SET_OF_BOOKS_NAME;
17   END SET_OF_BOOKS_NAME_P;
18 
19   FUNCTION FUNCTIONAL_CURRENCY_P RETURN VARCHAR2 IS
20   BEGIN
21     RETURN FUNCTIONAL_CURRENCY;
22   END FUNCTIONAL_CURRENCY_P;
23 
24   FUNCTION FLEX_SELECT_ALL_P RETURN VARCHAR2 IS
25   BEGIN
26     RETURN FLEX_SELECT_ALL;
27   END FLEX_SELECT_ALL_P;
28 
29 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
30 BEGIN
31 
32 DECLARE
33   ERRBUF  VARCHAR2(132);
34   ERRBUF2 VARCHAR2(132);
35 BEGIN
36   --SRW.USER_EXIT('FND SRWINIT');
37 
38   /* GET THE SET OF BOOKS INFO */
39   DECLARE
40     COA_ID       NUMBER;
41     SOB_NAME     VARCHAR2( 30 );
42     FUNC_CURR   VARCHAR2( 15 );
43   BEGIN
44     GL_INFO.GL_GET_LEDGER_INFO(P_SET_OF_BOOKS_ID,
45                               COA_ID,
46                               SOB_NAME,
47                               FUNC_CURR,
48                               ERRBUF );
49 
50 
51     IF (ERRBUF IS NOT NULL) THEN
52       ERRBUF2 := GL_MESSAGE.GET_MESSAGE(
53                  'GL_PLL_ROUTINE_ERROR',
54                  'N',
55                  'ROUTINE',
56                  'GL_INFO.GL_GET_SET_OF_BOOKS_INFO' );
57      -- SRW.MESSAGE('00', ERRBUF2);
58      -- SRW.MESSAGE('00', ERRBUF);
59      -- RAISE SRW.PROGRAM_ABORT;
60     END IF;
61 
62     STRUCT_NUM := COA_ID;
63     SET_OF_BOOKS_NAME := SOB_NAME;
64     FUNCTIONAL_CURRENCY := FUNC_CURR;
65   END;
66 
67  /* SRW.REFERENCE( :STRUCT_NUM );
68   SRW.USER_EXIT( 'FND FLEXSQL
69                   CODE = "GL#"
70                   NUM = ":STRUCT_NUM"
71                   APPL_SHORT_NAME = "SQLGL"
72                   OUTPUT = ":FLEX_SELECT_ALL"
73                   MODE = "SELECT"
74                   DISPLAY = "ALL" ' );*/
75 
76 END;  RETURN (TRUE);
77 END;
78 
79 END IGC_IGCBDTRR_XMLP_PKG;