PACKAGE BODY: APPS.IGI_IGIRRSCH_XMLP_PKG

Source

1 PACKAGE BODY IGI_IGIRRSCH_XMLP_PKG AS
2 /* $Header: IGIRRSCHB.pls 120.0.12010000.1 2008/07/29 08:59:20 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     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
8     IF IGI_GEN.IS_REQ_INSTALLED('RPI') THEN
9       RETURN (TRUE);
10     ELSE
11       FND_MESSAGE.SET_NAME('IGI'
12                           ,'IGI_RPI_IS_DISABLED');
13       LV_MESSAGE := FND_MESSAGE.GET;
14       /*SRW.MESSAGE(20000
15                  ,LV_MESSAGE)*/NULL;
16       RETURN (FALSE);
17     END IF;
18     RETURN (TRUE);
19   EXCEPTION
20     WHEN OTHERS THEN
21       /*SRW.MESSAGE(100
22                  ,SQLERRM)*/NULL;
23       RETURN (FALSE);
24   END BEFOREREPORT;
25 
26   FUNCTION AFTERREPORT RETURN BOOLEAN IS
27   BEGIN
28     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
29     RETURN (TRUE);
30   END AFTERREPORT;
31 
32 END IGI_IGIRRSCH_XMLP_PKG;