PACKAGE BODY: APPS.CSI_CSIINVDR_XMLP_PKG

Source

1 PACKAGE BODY CSI_CSIINVDR_XMLP_PKG AS
2 /* $Header: CSIINVDRB.pls 120.0 2007/12/24 12:59:44 nchinnam noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     BEGIN
6       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7       /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
8     EXCEPTION
9       WHEN /*SRW.USER_EXIT_FAILURE*/OTHERS THEN
10         /*SRW.MESSAGE(100
11                    ,'Failed in Before Report trigger')*/NULL;
12         RETURN (FALSE);
13     END;
14     DECLARE
15       L_COMPANY_NAME VARCHAR2(100);
16     BEGIN
17       SELECT
18         SOB.NAME
19       INTO L_COMPANY_NAME
20       FROM
21         GL_SETS_OF_BOOKS SOB
22       WHERE SOB.SET_OF_BOOKS_ID = 1;
23       CP_COMPANY_NAME := L_COMPANY_NAME;
24     EXCEPTION
25       WHEN NO_DATA_FOUND THEN
26         NULL;
27     END;
28     DECLARE
29       L_REPORT_NAME VARCHAR2(240);
30     BEGIN
31       SELECT
32         CP.USER_CONCURRENT_PROGRAM_NAME
33       INTO L_REPORT_NAME
34       FROM
35         FND_CONCURRENT_PROGRAMS_VL CP,
36         FND_CONCURRENT_REQUESTS CR
37       WHERE CR.REQUEST_ID = P_CONC_REQUEST_ID
38         AND CP.APPLICATION_ID = CR.PROGRAM_APPLICATION_ID
39         AND CP.CONCURRENT_PROGRAM_ID = CR.CONCURRENT_PROGRAM_ID;
40       CP_REPORT_NAME := L_REPORT_NAME;
41     EXCEPTION
42       WHEN NO_DATA_FOUND THEN
43         CP_REPORT_NAME := 'IB - INV Discrepancy Report';
44     END;
45     RETURN (TRUE);
46   END BEFOREREPORT;
47 
48   FUNCTION AFTERREPORT RETURN BOOLEAN IS
49   BEGIN
50     BEGIN
51       BEGIN
52         /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
53       END;
54     END;
55     RETURN (TRUE);
56   END AFTERREPORT;
57 
58   FUNCTION CP_REPORT_NAME_P RETURN VARCHAR2 IS
59   BEGIN
60     RETURN CP_REPORT_NAME;
61   END CP_REPORT_NAME_P;
62 
63   FUNCTION CP_COMPANY_NAME_P RETURN VARCHAR2 IS
64   BEGIN
65     RETURN CP_COMPANY_NAME;
66   END CP_COMPANY_NAME_P;
67 
68 END CSI_CSIINVDR_XMLP_PKG;
69 
70