PACKAGE BODY: APPS.IGC_IGCCAPRR_XMLP_PKG

Source

1 PACKAGE BODY IGC_IGCCAPRR_XMLP_PKG AS
2 /* $Header: IGCCAPRRB.pls 120.0.12010000.1 2008/07/28 06:28:29 appldev ship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4     COAID NUMBER;
5     SOBNAME VARCHAR2(30);
6     FUNCTCURR VARCHAR2(15);
7     ERRBUF VARCHAR2(132);
8     ERRBUF2 VARCHAR2(132);
9   BEGIN
10     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
11     P_ACTIVITY_DATE1 := to_Char(P_ACTIVITY_DATE,'DD MON YYYY');
12     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
13     GL_INFO.GL_GET_LEDGER_INFO(P_SET_OF_BOOKS_ID
14                               ,COAID
15                               ,SOBNAME
16                               ,FUNCTCURR
17                               ,ERRBUF);
18     IF (ERRBUF IS NOT NULL) THEN
19       ERRBUF2 := GL_MESSAGE.GET_MESSAGE('GL_PLL_ROUTINE_ERROR'
20                                        ,'N'
21                                        ,'ROUTINE'
22                                        ,'gl_get_set_of_books_info');
23       /*SRW.MESSAGE('00'
24                  ,ERRBUF2)*/NULL;
25       /*SRW.MESSAGE('00'
26                  ,ERRBUF)*/NULL;
27       /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
28     END IF;
29     SET_OF_BOOKS_NAME := SOBNAME;
30     CURRENCY_CODE := FUNCTCURR;
31     SELECT
32       NAME
33     INTO ORG_NAME
34     FROM
35       HR_OPERATING_UNITS
36     WHERE ORGANIZATION_ID = P_ORG_ID;
37     RETURN (TRUE);
38   END BEFOREREPORT;
39 
40   FUNCTION AFTERPFORM RETURN BOOLEAN IS
41   BEGIN
42     RETURN (TRUE);
43   END AFTERPFORM;
44 
45   FUNCTION AFTERREPORT RETURN BOOLEAN IS
46   BEGIN
47     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
48     RETURN (TRUE);
49   END AFTERREPORT;
50 
51   FUNCTION SET_OF_BOOKS_NAME_P RETURN VARCHAR2 IS
52   BEGIN
53     RETURN SET_OF_BOOKS_NAME;
54   END SET_OF_BOOKS_NAME_P;
55 
56   FUNCTION CURRENCY_CODE_P RETURN VARCHAR2 IS
57   BEGIN
58     RETURN CURRENCY_CODE;
59   END CURRENCY_CODE_P;
60 
61   FUNCTION ORG_NAME_P RETURN VARCHAR2 IS
62   BEGIN
63     RETURN ORG_NAME;
64   END ORG_NAME_P;
65 
66 END IGC_IGCCAPRR_XMLP_PKG;