[Home] [Help]
PACKAGE BODY: APPS.JL_JLCOFITR_XMLP_PKG
Source
1 PACKAGE BODY JL_JLCOFITR_XMLP_PKG AS
2 /* $Header: JLCOFITRB.pls 120.1 2007/12/25 16:47:00 dwkrishn noship $ */
3 FUNCTION BOOKFORMULA RETURN VARCHAR2 IS
4 BEGIN
5 DECLARE
6 L_BOOK VARCHAR2(15);
7 L_BOOK_CLASS VARCHAR2(15);
8 L_ACCOUNTING_FLEX_STRUCTURE NUMBER(15);
9 L_CURRENCY_CODE VARCHAR2(15);
10 L_DISTRIBUTION_SOURCE_BOOK VARCHAR2(15);
11 L_PRECISION NUMBER(15);
12 BEGIN
13 SELECT
14 BC.BOOK_TYPE_CODE,
15 BC.BOOK_CLASS,
16 BC.ACCOUNTING_FLEX_STRUCTURE,
17 BC.DISTRIBUTION_SOURCE_BOOK,
18 SOB.CURRENCY_CODE,
19 CUR.PRECISION
20 INTO L_BOOK,L_BOOK_CLASS,L_ACCOUNTING_FLEX_STRUCTURE,L_DISTRIBUTION_SOURCE_BOOK,L_CURRENCY_CODE,L_PRECISION
21 FROM
22 FA_BOOK_CONTROLS BC,
23 GL_SETS_OF_BOOKS SOB,
24 FND_CURRENCIES CUR
25 WHERE BC.BOOK_TYPE_CODE = P_BOOK
26 AND SOB.SET_OF_BOOKS_ID = BC.SET_OF_BOOKS_ID
27 AND SOB.CURRENCY_CODE = CUR.CURRENCY_CODE;
28 BOOK_CLASS := L_BOOK_CLASS;
29 ACCOUNTING_FLEX_STRUCTURE := L_ACCOUNTING_FLEX_STRUCTURE;
30 DISTRIBUTION_SOURCE_BOOK := L_DISTRIBUTION_SOURCE_BOOK;
31 CURRENCY_CODE := L_CURRENCY_CODE;
32 P_MIN_PRECISION := L_PRECISION;
33 RETURN (L_BOOK);
34 END;
35 RETURN NULL;
36 END BOOKFORMULA;
37
38 FUNCTION PERIOD1FORMULA RETURN VARCHAR2 IS
39 BEGIN
40 DECLARE
41 L_PERIOD_NAME VARCHAR2(15);
42 L_PERIOD_POD DATE;
43 L_PERIOD_PCD DATE;
44 L_PERIOD_PC NUMBER(15);
45 L_PERIOD_FY NUMBER(15);
46 BEGIN
47 SELECT
48 PERIOD_NAME,
49 PERIOD_COUNTER,
50 PERIOD_OPEN_DATE,
51 NVL(PERIOD_CLOSE_DATE
52 ,SYSDATE),
53 FISCAL_YEAR
54 INTO L_PERIOD_NAME,L_PERIOD_PC,L_PERIOD_POD,L_PERIOD_PCD,L_PERIOD_FY
55 FROM
56 FA_DEPRN_PERIODS
57 WHERE BOOK_TYPE_CODE = P_BOOK
58 AND PERIOD_NAME = P_PERIOD1;
59 PERIOD1_PC := L_PERIOD_PC;
60 PERIOD1_POD := L_PERIOD_POD;
61 PERIOD1_PCD := L_PERIOD_PCD;
62 PERIOD1_FY := L_PERIOD_FY;
63 RETURN (L_PERIOD_NAME);
64 EXCEPTION
65 WHEN OTHERS THEN
66 NULL;
67 END;
68 RETURN NULL;
69 END PERIOD1FORMULA;
70
71 FUNCTION REPORT_NAMEFORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
72 BEGIN
73 DECLARE
74 L_REPORT_NAME VARCHAR2(240);
75 L_CONC_PROGRAM_ID NUMBER;
76 BEGIN
77 RP_COMPANY_NAME := COMPANY_NAME;
78 SELECT
79 CR.CONCURRENT_PROGRAM_ID
80 INTO L_CONC_PROGRAM_ID
81 FROM
82 FND_CONCURRENT_REQUESTS CR
83 WHERE CR.PROGRAM_APPLICATION_ID = 7004
84 AND CR.REQUEST_ID = P_CONC_REQUEST_ID;
85 SELECT
86 CP.USER_CONCURRENT_PROGRAM_NAME
87 INTO L_REPORT_NAME
88 FROM
89 FND_CONCURRENT_PROGRAMS_VL CP
90 WHERE CP.CONCURRENT_PROGRAM_ID = L_CONC_PROGRAM_ID
91 AND CP.APPLICATION_ID = 7004;
92 RP_REPORT_NAME := SUBSTR(L_REPORT_NAME,1,INSTR(L_REPORT_NAME,' (XML)'));
93 RETURN (RP_REPORT_NAME);
94 EXCEPTION
95 WHEN OTHERS THEN
96 RP_REPORT_NAME := 'Drill Down Report';
97 RETURN (RP_REPORT_NAME);
98 END;
99 RETURN NULL;
100 END REPORT_NAMEFORMULA;
101
102 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
103 BEGIN
104 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
105 /*SRW.USER_EXIT('FND SRWINIT')*/NULL;
106 RETURN (TRUE);
107 END BEFOREREPORT;
108
109 FUNCTION AFTERREPORT RETURN BOOLEAN IS
110 BEGIN
111 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
112 RETURN (TRUE);
113 END AFTERREPORT;
114
115 FUNCTION BOOK_CLASS_P RETURN VARCHAR2 IS
116 BEGIN
117 RETURN BOOK_CLASS;
118 END BOOK_CLASS_P;
119
120 FUNCTION DISTRIBUTION_SOURCE_BOOK_P RETURN VARCHAR2 IS
121 BEGIN
122 RETURN DISTRIBUTION_SOURCE_BOOK;
123 END DISTRIBUTION_SOURCE_BOOK_P;
124
125 FUNCTION PERIOD1_PC_P RETURN NUMBER IS
126 BEGIN
127 RETURN PERIOD1_PC;
128 END PERIOD1_PC_P;
129
130 FUNCTION PERIOD1_PCD_P RETURN DATE IS
131 BEGIN
132 RETURN PERIOD1_PCD;
133 END PERIOD1_PCD_P;
134
135 FUNCTION PERIOD1_POD_P RETURN DATE IS
136 BEGIN
137 RETURN PERIOD1_POD;
138 END PERIOD1_POD_P;
139
140 FUNCTION PERIOD1_FY_P RETURN NUMBER IS
141 BEGIN
142 RETURN PERIOD1_FY;
143 END PERIOD1_FY_P;
144
145 FUNCTION CURRENCY_CODE_P RETURN VARCHAR2 IS
146 BEGIN
147 RETURN CURRENCY_CODE;
148 END CURRENCY_CODE_P;
149
150 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
151 BEGIN
152 RETURN RP_COMPANY_NAME;
153 END RP_COMPANY_NAME_P;
154
155 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
156 BEGIN
157 RETURN RP_REPORT_NAME;
158 END RP_REPORT_NAME_P;
159
160 FUNCTION ACCOUNTING_FLEX_STRUCTURE_P RETURN NUMBER IS
161 BEGIN
162 RETURN ACCOUNTING_FLEX_STRUCTURE;
163 END ACCOUNTING_FLEX_STRUCTURE_P;
164
165 END JL_JLCOFITR_XMLP_PKG;
166
167