PACKAGE BODY: APPS.IGC_IGCCYRPR_XMLP_PKG

Source

1 PACKAGE BODY IGC_IGCCYRPR_XMLP_PKG AS
2 /* $Header: IGCCYRPRB.pls 120.0.12010000.1 2008/07/28 06:31:13 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     GL_INFO.GL_GET_LEDGER_INFO(P_SET_OF_BOOKS_ID
12                               ,COAID
13                               ,SOBNAME
14                               ,FUNCTCURR
15                               ,ERRBUF);
16     IF (ERRBUF IS NOT NULL) THEN
17       ERRBUF2 := GL_MESSAGE.GET_MESSAGE('GL_PLL_ROUTINE_ERROR'
18                                        ,'N'
19                                        ,'ROUTINE'
20                                        ,'gl_get_set_of_books_info');
21       RAISE_APPLICATION_ERROR(-20101,null);
22     END IF;
23     SET_OF_BOOKS_NAME := SOBNAME;
24     CURRENCY_CODE := FUNCTCURR;
25     SELECT
26       NAME
27     INTO ORG_NAME
28     FROM
29       HR_OPERATING_UNITS
30     WHERE ORGANIZATION_ID = P_ORG_ID;
31     RETURN (TRUE);
32   END BEFOREREPORT;
33 
34   FUNCTION AFTERREPORT RETURN BOOLEAN IS
35   BEGIN
36     NULL;
37     RETURN (TRUE);
38   END AFTERREPORT;
39 
40   FUNCTION AFTERPFORM RETURN BOOLEAN IS
41   BEGIN
42     RETURN (TRUE);
43   END AFTERPFORM;
44 
45   FUNCTION BEFOREPFORM RETURN BOOLEAN IS
46   BEGIN
47     RETURN (TRUE);
48   END BEFOREPFORM;
49 
50   FUNCTION BETWEENPAGE RETURN BOOLEAN IS
51   BEGIN
52     RETURN (TRUE);
53   END BETWEENPAGE;
54 
55   FUNCTION SET_OF_BOOKS_NAME_P RETURN VARCHAR2 IS
56   BEGIN
57     RETURN SET_OF_BOOKS_NAME;
58   END SET_OF_BOOKS_NAME_P;
59 
60   FUNCTION CURRENCY_CODE_P RETURN VARCHAR2 IS
61   BEGIN
62     RETURN CURRENCY_CODE;
63   END CURRENCY_CODE_P;
64 
65   FUNCTION ORG_NAME_P RETURN VARCHAR2 IS
66   BEGIN
67     RETURN ORG_NAME;
68   END ORG_NAME_P;
69 
70 END IGC_IGCCYRPR_XMLP_PKG;