PACKAGE BODY: APPS.JL_JLBRPCDN_XMLP_PKG

Source

1 PACKAGE BODY JL_JLBRPCDN_XMLP_PKG AS
2 /* $Header: JLBRPCDNB.pls 120.1 2007/12/25 16:39:13 dwkrishn 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     DECLARE
8       L_NAME VARCHAR2(30);
9     BEGIN
10       BEGIN
11         SELECT
12           SET_OF_BOOKS_ID
13         INTO P_SET_OF_BOOKS_ID
14         FROM
15           AP_SYSTEM_PARAMETERS;
16       EXCEPTION
17         WHEN OTHERS THEN
18           NULL;
19       END;
20       SELECT
21         SUBSTR(NAME
22               ,1
23               ,30),
24         CURRENCY_CODE
25       INTO L_NAME,C_CURRENCY_CODE
26       FROM
27         GL_SETS_OF_BOOKS
28       WHERE SET_OF_BOOKS_ID = P_SET_OF_BOOKS_ID;
29       C_COMPANY_NAME_HEADER := L_NAME;
30     EXCEPTION
31       WHEN OTHERS THEN
32         NULL;
33     END;
34     RETURN (TRUE);
35   END BEFOREREPORT;
36 
37   FUNCTION P_DOCNO_SUP_DATEVALIDTRIGGER RETURN BOOLEAN IS
38   BEGIN
39     IF P_DOCNO_SUP_DATE = 'Document Number' THEN
40       P_DOCNO_SUP_DATE := 'doc.document_number';
41       P_INV_SORT := 'i.invoice_num';
42     ELSE
43       P_DOCNO_SUP_DATE := 'ven.vendor_name desc,doc.due_date';
44       P_INV_SORT := 'pov.vendor_name desc,i.due_date';
45     END IF;
46     RETURN (TRUE);
47   END P_DOCNO_SUP_DATEVALIDTRIGGER;
48 
49   FUNCTION AFTERREPORT RETURN BOOLEAN IS
50   BEGIN
51     /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
52     RETURN (TRUE);
53   END AFTERREPORT;
54 
55   FUNCTION C_COMPANY_NAME_HEADER_P RETURN VARCHAR2 IS
56   BEGIN
57     RETURN C_COMPANY_NAME_HEADER;
58   END C_COMPANY_NAME_HEADER_P;
59 
60   FUNCTION C_CURRENCY_CODE_P RETURN VARCHAR2 IS
61   BEGIN
62     RETURN C_CURRENCY_CODE;
63   END C_CURRENCY_CODE_P;
64 
65 END JL_JLBRPCDN_XMLP_PKG;
66 
67 
68