PACKAGE BODY: APPS.IGI_IGIRRPIV_XMLP_PKG

Source

1 PACKAGE BODY IGI_IGIRRPIV_XMLP_PKG AS
2 /* $Header: IGIRRPIVB.pls 120.0.12010000.1 2008/07/29 08:59:18 appldev ship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4     LV_MESSAGE VARCHAR2(200) := NULL;
5   BEGIN
6     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7     P_RUN_DATE_1 := to_char(P_RUN_DATE,'DD-MON-YYYY');
8     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
9     IF IGI_GEN.IS_REQ_INSTALLED('RPI') THEN
10       RETURN (TRUE);
11     ELSE
12       FND_MESSAGE.SET_NAME('IGI'
13                           ,'IGI_RPI_IS_DISABLED');
14       LV_MESSAGE := FND_MESSAGE.GET;
15       /*SRW.MESSAGE(20000
16                  ,LV_MESSAGE)*/NULL;
17       RETURN (FALSE);
18     END IF;
19     RETURN (TRUE);
20   EXCEPTION
21     WHEN OTHERS THEN
22       /*SRW.MESSAGE(100
23                  ,SQLERRM)*/NULL;
24       RETURN (FALSE);
25   END BEFOREREPORT;
26 
27   FUNCTION AFTERREPORT RETURN BOOLEAN IS
28   BEGIN
29     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
30     RETURN (TRUE);
31   END AFTERREPORT;
32 
33 END IGI_IGIRRPIV_XMLP_PKG;
34