PACKAGE BODY: APPS.IGI_IGIRTAUD_XMLP_PKG

Source

1 PACKAGE BODY IGI_IGIRTAUD_XMLP_PKG AS
2 /* $Header: IGIRTAUDB.pls 120.0.12010000.1 2008/07/29 08:59:31 appldev ship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4     LV_MESSAGE VARCHAR2(200) := NULL;
5     C_DATE_FORMAT varchar2(25);
6   BEGIN
7     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
8     C_DATE_FORMAT := 'DD-MON-YYYY';
9     CP_DATE_LOW := to_date(P_DATE_LOW,C_DATE_FORMAT);
10     CP_DATE_HIGH := to_date(P_DATE_HIGH,C_DATE_FORMAT);
11     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
12     IF IGI_GEN.IS_REQ_INSTALLED('INS') THEN
13       RETURN (TRUE);
14     ELSE
15       FND_MESSAGE.SET_NAME('IGI'
16                           ,'IGI_INS_IS_DISABLED');
17       LV_MESSAGE := FND_MESSAGE.GET;
18       /*SRW.MESSAGE(20000
19                  ,LV_MESSAGE)*/NULL;
20       RETURN (FALSE);
21     END IF;
22     RETURN (TRUE);
23   EXCEPTION
24     WHEN OTHERS THEN
25       /*SRW.MESSAGE(100
26                  ,SQLERRM)*/NULL;
27       RETURN (FALSE);
28   END BEFOREREPORT;
29 
30   FUNCTION AFTERREPORT RETURN BOOLEAN IS
31   BEGIN
32     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
33     RETURN (TRUE);
34   EXCEPTION
35     WHEN OTHERS THEN
36       /*SRW.MESSAGE(100
37                  ,SQLERRM)*/NULL;
38       RETURN (FALSE);
39   END AFTERREPORT;
40 
41 END IGI_IGIRTAUD_XMLP_PKG;