PACKAGE BODY: APPS.PO_POXRVRER_XMLP_PKG

Source

1 PACKAGE BODY PO_POXRVRER_XMLP_PKG AS
2 /* $Header: POXRVRERB.pls 120.2 2008/01/06 10:20:49 dwkrishn noship $ */
3   USER_EXIT_FAILURE EXCEPTION;
4 
5   FUNCTION BEFOREREPORT RETURN BOOLEAN IS
6   BEGIN
7     DECLARE
8       L_SORT PO_LOOKUP_CODES.DISPLAYED_FIELD%TYPE;
9       L_ORG_DISPLAYED ORG_ORGANIZATION_DEFINITIONS.ORGANIZATION_NAME%TYPE;
10     BEGIN
11 
12 
13       QTY_PRECISION := PO_COMMON_xmlp_pkg.GET_PRECISION(P_QTY_PRECISION);
14 
15       IF P_SORT IS NOT NULL THEN
16         SELECT
17           DISPLAYED_FIELD
18         INTO
19           L_SORT
20         FROM
21           PO_LOOKUP_CODES
22         WHERE LOOKUP_CODE = P_SORT
23           AND LOOKUP_TYPE = 'SRS ORDER BY';
24         P_SORT_DISP := L_SORT;
25       ELSE
26         P_SORT_DISP := '';
27       END IF;
28       IF P_ORG_ID IS NOT NULL THEN
29         SELECT
30           ORGANIZATION_NAME
31         INTO
32           L_ORG_DISPLAYED
33         FROM
34           ORG_ORGANIZATION_DEFINITIONS
35         WHERE ORGANIZATION_ID = P_ORG_ID;
36         P_ORG_DISPLAYED := L_ORG_DISPLAYED;
37       ELSE
38         P_ORG_DISPLAYED := '';
39       END IF;
40     END;
41     BEGIN
42       P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
43     EXCEPTION
44       WHEN USER_EXIT_FAILURE THEN
45         NULL;
46     END;
47     BEGIN
48       NULL;
49     EXCEPTION
50       WHEN USER_EXIT_FAILURE THEN
51         NULL;
52     END;
53     BEGIN
54       NULL;
55     EXCEPTION
56       WHEN USER_EXIT_FAILURE THEN
57         NULL;
58     END;
59     RETURN TRUE;
60     RETURN (TRUE);
61   END BEFOREREPORT;
62 
63   FUNCTION AFTERREPORT RETURN BOOLEAN IS
64   BEGIN
65     RETURN (TRUE);
66   END AFTERREPORT;
67 
68   PROCEDURE GET_PRECISION IS
69   BEGIN
70     IF P_QTY_PRECISION = 0 THEN
71       NULL;
72     ELSE
73       IF P_QTY_PRECISION = 1 THEN
74         NULL;
75       ELSE
76         IF P_QTY_PRECISION = 3 THEN
77           NULL;
78         ELSE
79           IF P_QTY_PRECISION = 4 THEN
80             NULL;
81           ELSE
82             IF P_QTY_PRECISION = 5 THEN
83               NULL;
84             ELSE
85               IF P_QTY_PRECISION = 6 THEN
86                 NULL;
87               ELSE
88                 NULL;
89               END IF;
90             END IF;
91           END IF;
92         END IF;
93       END IF;
94     END IF;
95   END GET_PRECISION;
96 
97   FUNCTION ORDERBY_CLAUSEFORMULA RETURN VARCHAR2 IS
98   BEGIN
99     IF P_SORT = 'VENDOR' THEN
100       RETURN ('2');
101     ELSIF P_SORT = 'PO NUMBER' THEN
102       RETURN ('18, 19');
103     END IF;
104     RETURN '2';
105   END ORDERBY_CLAUSEFORMULA;
106 
107 END PO_POXRVRER_XMLP_PKG;
108