[Home] [Help]
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;