PACKAGE BODY: APPS.IGI_IGIPSAPR_XMLP_PKG

Source

1 PACKAGE BODY IGI_IGIPSAPR_XMLP_PKG AS
2 /* $Header: IGIPSAPRB.pls 120.0.12010000.1 2008/11/20 13:57:39 sasukuma noship $ */
3   FUNCTION AFTERREPORT RETURN BOOLEAN IS
4   BEGIN
5     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
6     RETURN (TRUE);
7   END AFTERREPORT;
8 
9   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
10     LV_MESSAGE VARCHAR2(4000) := NULL;
11     CURSOR CUR_GET_DESCRIPTION IS
12       SELECT
13         DESCRIPTION
14       FROM
15         IGI_LOOKUPS
16       WHERE UPPER(LOOKUP_CODE) = 'SIA'
17         AND LOOKUP_TYPE = 'GCC_DESCRIPTION';
18     L_DESCRIPTION IGI_LOOKUPS.DESCRIPTION%TYPE;
19   BEGIN
20     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
21     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
22     OPEN CUR_GET_DESCRIPTION;
23     FETCH CUR_GET_DESCRIPTION
24      INTO L_DESCRIPTION;
25     CLOSE CUR_GET_DESCRIPTION;
26     IF IGI_GEN.IS_REQ_INSTALLED('SIA') THEN
27       RETURN (TRUE);
28     ELSE
29       FND_MESSAGE.SET_NAME('IGI'
30                           ,'IGI_GEN_PROD_NOT_INSTALLED');
31       FND_MESSAGE.SET_TOKEN('OPTION_NAME'
32                            ,L_DESCRIPTION);
33       LV_MESSAGE := FND_MESSAGE.GET;
34       /*SRW.MESSAGE(20000
35                  ,LV_MESSAGE)*/NULL;
36       RETURN (FALSE);
37     END IF;
38     RETURN (TRUE);
39   EXCEPTION
40     WHEN OTHERS THEN
41       /*SRW.MESSAGE(100
42                  ,SQLERRM)*/NULL;
43       RETURN (FALSE);
44   END BEFOREREPORT;
45 
46   FUNCTION AFTERPFORM RETURN BOOLEAN IS
47   BEGIN
48     IF P_RELEASE_LOOKUP_CODE IS NOT NULL THEN
49       SELECT
50         LOOKUP_CODE
51       INTO P_RELEASE_LOOKUP_CODE_1
52       FROM
53         IGI_LOOKUPS
54       WHERE LOOKUP_TYPE = 'REPORTS'
55         AND MEANING = P_RELEASE_LOOKUP_CODE;
56     END IF;
57     RETURN (TRUE);
58   END AFTERPFORM;
59 
60 END IGI_IGIPSAPR_XMLP_PKG;
61