1 PACKAGE BODY WIP_WIPSULIN_XMLP_PKG AS
2 /* $Header: WIPSULINB.pls 120.1 2008/01/31 12:44:44 npannamp noship $ */
3 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4 BEGIN
5 BEGIN
6 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
7 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
8 /*SRW.USER_EXIT('FND FLEXSQL CODE="MTLL"
9 APPL_SHORT_NAME="INV" OUTPUT=":P_LOCATOR_DATA"
10 MODE="SELECT" DISPLAY="ALL" TABLEALIAS="IL"')*/NULL;
11 RETURN TRUE;
12 END;
13 RETURN (TRUE);
14 END BEFOREREPORT;
15
16 FUNCTION AFTERREPORT RETURN BOOLEAN IS
17 BEGIN
18 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
19 RETURN (TRUE);
20 END AFTERREPORT;
21
22 FUNCTION LIMIT_BY_LINE_RANGE RETURN CHARACTER IS
23 SQL_STRING VARCHAR2(80);
24 BEGIN
25 IF (P_FROM_LINE IS NOT NULL) THEN
26 IF (P_TO_LINE IS NOT NULL) THEN
27 SQL_STRING := ' AND WL.LINE_CODE BETWEEN ''' || P_FROM_LINE || ''' AND ''' || P_TO_LINE || '''';
28 ELSE
29 SQL_STRING := ' AND WL.LINE_CODE >= ''' || P_FROM_LINE || '''';
30 END IF;
31 ELSE
32 IF (P_TO_LINE IS NOT NULL) THEN
33 SQL_STRING := ' AND WL.LINE_CODE <= ''' || P_TO_LINE || '''';
34 ELSE
35 SQL_STRING := ' ';
36 END IF;
37 END IF;
38 RETURN (SQL_STRING);
39 END LIMIT_BY_LINE_RANGE;
40
41 FUNCTION AFTERPFORM RETURN BOOLEAN IS
42 BEGIN
43 RETURN (TRUE);
44 END AFTERPFORM;
45
46 END WIP_WIPSULIN_XMLP_PKG;
47
48