PACKAGE BODY: APPS.GML_ORPLRPJ_XMLP_PKG

Source

1 PACKAGE BODY GML_ORPLRPJ_XMLP_PKG AS
2 /* $Header: ORPLRPJB.pls 120.0 2007/12/24 13:24:27 nchinnam noship $ */
3   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
4   BEGIN
5     P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
6     /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
7     PRN_LINES := 0;
8     SELECT
9       ORGN_NAME
10     INTO CP_DEFAULT_ORGN
11     FROM
12       SY_ORGN_MST
13     WHERE ORGN_CODE = P_DEFAULT_ORGN;
14     SELECT
15       USER_NAME
16     INTO CP_DEFAULT_USER
17     FROM
18       FND_USER
19     WHERE USER_ID = P_DEFAULT_USER;
20     RETURN (TRUE);
21     RETURN NULL;
22   EXCEPTION
23     WHEN OTHERS THEN
24       RETURN (TRUE);
25   END BEFOREREPORT;
26 
27   FUNCTION AFTERPFORM RETURN BOOLEAN IS
28   BEGIN
29     PARAM_WHERE_CLAUSE := '  ';
30     PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || 'and hdr.orgn_code = :p_default_orgn ';
31     IF (P_FROM_SHIPPING_NO IS NOT NULL) THEN
32       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and bol.bol_no >= :p_from_shipping_no ';
33     END IF;
34     IF (P_TO_SHIPPING_NO IS NOT NULL) THEN
35       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and bol.bol_no <= :p_to_shipping_no ';
36     END IF;
37     IF (P_FROM_ORDER_NO IS NOT NULL) THEN
38       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and hdr.order_no >= :p_from_order_no ';
39     END IF;
40     IF (P_TO_ORDER_NO IS NOT NULL) THEN
41       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and hdr.order_no <= :p_to_order_no ';
42     END IF;
43     IF (P_FROM_SHIPTO IS NOT NULL) THEN
44       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and sc.cust_no >= :p_from_shipto ';
45     END IF;
46     IF (P_TO_SHIPTO IS NOT NULL) THEN
47       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and sc.cust_no <= :p_to_shipto ';
48     END IF;
49     IF (P_FROM_WHSE IS NOT NULL) THEN
50       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and dtl.from_whse >= :p_from_whse ';
51     END IF;
52     IF (P_TO_WHSE IS NOT NULL) THEN
53       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and dtl.from_whse <= :p_to_whse ';
54     END IF;
55     IF (P_FROM_SCHED_SHIPDATE IS NOT NULL) THEN
56       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and dtl.sched_shipdate >= :p_from_sched_shipdate ';
57     END IF;
58     IF (P_TO_SCHED_SHIPDATE IS NOT NULL) THEN
59       PARAM_WHERE_CLAUSE := PARAM_WHERE_CLAUSE || ' and dtl.sched_shipdate <= :p_to_sched_shipdate ';
60     END IF;
61     IF (P_SORT_1 = 3) THEN
62       FLAG := 1;
63     ELSIF (P_SORT_1 = 1) THEN
64       FLAG := 2;
65     ELSIF (P_SORT_1 = 2) THEN
66       FLAG := 3;
67     ELSE
68       /*SRW.MESSAGE(111
69                  ,'invalid option')*/NULL;
70       /*RAISE SRW.PROGRAM_ABORT*/RAISE_APPLICATION_ERROR(-20101,null);
71     END IF;
72     RETURN (TRUE);
73   END AFTERPFORM;
74 
75   FUNCTION CF_SORTFORMULA RETURN VARCHAR2 IS
76   BEGIN
77     IF P_SORT_1 = 1 THEN
78       RETURN ('Order Number, Line');
79     ELSIF P_SORT_1 = 2 THEN
80       RETURN ('Shipping Number, Line');
81     ELSIF P_SORT_1 = 3 THEN
82       RETURN ('Warehouse, Location, Item Code');
83     END IF;
84     RETURN NULL;
85   END CF_SORTFORMULA;
86 
87   PROCEDURE GML_ORPLRPJ_XMLP_PKG_HEADER IS
88   BEGIN
89     NULL;
90   END GML_ORPLRPJ_XMLP_PKG_HEADER;
91 
92   FUNCTION AFTERREPORT RETURN BOOLEAN IS
93   BEGIN
94     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
95     RETURN (TRUE);
96   END AFTERREPORT;
97 
98   FUNCTION CP_DEFAULT_ORGN_P RETURN VARCHAR2 IS
99   BEGIN
100     RETURN CP_DEFAULT_ORGN;
101   END CP_DEFAULT_ORGN_P;
102 
103   FUNCTION CP_DEFAULT_USER_P RETURN VARCHAR2 IS
104   BEGIN
105     RETURN CP_DEFAULT_USER;
106   END CP_DEFAULT_USER_P;
107 
108 END GML_ORPLRPJ_XMLP_PKG;
109