PACKAGE BODY: APPS.WIP_WIPSGLIS_XMLP_PKG

Source

1 PACKAGE BODY WIP_WIPSGLIS_XMLP_PKG AS
2 /* $Header: WIPSGLISB.pls 120.1 2008/01/31 12:42:03 npannamp noship $ */
3   FUNCTION AFTERPFORM RETURN BOOLEAN IS
4   BEGIN
5     RETURN (TRUE);
6   END AFTERPFORM;
7 
8   FUNCTION AFTERREPORT RETURN BOOLEAN IS
9   BEGIN
10     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
11     RETURN (TRUE);
12   END AFTERREPORT;
13 
14   FUNCTION SCH RETURN CHARACTER IS
15     LIMIT_GROUPS VARCHAR2(1000);
16   BEGIN
17     IF P_SCHEDULE_GROUP_FROM IS NOT NULL THEN
18       IF P_SCHEDULE_GROUP_TO IS NOT NULL THEN
19         LIMIT_GROUPS := ' AND SCHEDULE_GROUP_NAME BETWEEN ''' || P_SCHEDULE_GROUP_FROM || ''' AND ''' || P_SCHEDULE_GROUP_TO || '''';
20       ELSE
21         LIMIT_GROUPS := ' AND SCHEDULE_GROUP_NAME >= ''' || P_SCHEDULE_GROUP_FROM || '''';
22       END IF;
23     ELSIF P_SCHEDULE_GROUP_TO IS NOT NULL THEN
24       LIMIT_GROUPS := 'AND SCHEDULE_GROUP_NAME <= ''' || P_SCHEDULE_GROUP_TO || '''';
25     ELSE
26       LIMIT_GROUPS := ' ';
27     END IF;
28     RETURN (LIMIT_GROUPS);
29   END SCH;
30 
31   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
32   BEGIN
33     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
34     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
35     RETURN (TRUE);
36   END BEFOREREPORT;
37 
38 END WIP_WIPSGLIS_XMLP_PKG;
39