[Home] [Help]
PACKAGE BODY: APPS.FA_FASNBV_XMLP_PKG
Source
1 PACKAGE BODY FA_FASNBV_XMLP_PKG AS
2 /* $Header: FASNBVB.pls 120.0.12010000.1 2008/07/28 13:17:07 appldev ship $ */
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 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 VARCHAR2(21);
43 L_PERIOD_PCD VARCHAR2(21);
44 L_PERIOD_PC NUMBER(15);
45 L_PERIOD_FY NUMBER(15);
46 BEGIN
47 SELECT
48 PERIOD_NAME,
49 PERIOD_COUNTER,
50 TO_CHAR(PERIOD_OPEN_DATE
51 ,'DD-MM-YYYY HH24:MI:SS'),
52 TO_CHAR(NVL(PERIOD_CLOSE_DATE
53 ,SYSDATE)
54 ,'DD-MM-YYYY HH24:MI:SS'),
55 FISCAL_YEAR
56 INTO L_PERIOD_NAME,L_PERIOD_PC,L_PERIOD_POD,L_PERIOD_PCD,L_PERIOD_FY
57 FROM
58 FA_DEPRN_PERIODS
59 WHERE BOOK_TYPE_CODE = P_BOOK
60 AND PERIOD_NAME = P_PERIOD1;
61 PERIOD1_PC := L_PERIOD_PC;
62 PERIOD1_POD := L_PERIOD_POD;
63 PERIOD1_PCD := L_PERIOD_PCD;
64 PERIOD1_FY := L_PERIOD_FY;
65 RETURN (L_PERIOD_NAME);
66 END;
67 RETURN NULL;
68 END PERIOD1FORMULA;
69
70 FUNCTION REPORT_NAMEFORMULA(COMPANY_NAME IN VARCHAR2) RETURN VARCHAR2 IS
71 BEGIN
72 DECLARE
73 L_REPORT_NAME VARCHAR2(80);
74 L_CONC_PROGRAM_ID NUMBER;
75 BEGIN
76 RP_COMPANY_NAME := COMPANY_NAME;
77 SELECT
78 CR.CONCURRENT_PROGRAM_ID
79 INTO L_CONC_PROGRAM_ID
80 FROM
81 FND_CONCURRENT_REQUESTS CR
82 WHERE CR.PROGRAM_APPLICATION_ID = 140
83 AND CR.REQUEST_ID = P_CONC_REQUEST_ID;
84 SELECT
85 CP.USER_CONCURRENT_PROGRAM_NAME
86 INTO L_REPORT_NAME
87 FROM
88 FND_CONCURRENT_PROGRAMS_VL CP
89 WHERE CP.CONCURRENT_PROGRAM_ID = L_CONC_PROGRAM_ID
90 AND CP.APPLICATION_ID = 140;
91 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
92 RP_REPORT_NAME := L_REPORT_NAME;
93
94 RETURN (L_REPORT_NAME);
95
96 EXCEPTION
97 WHEN OTHERS THEN
98 RP_REPORT_NAME := ':Diminishing Value Report:';
99 RETURN (RP_REPORT_NAME);
100 END;
101 RETURN NULL;
102 END REPORT_NAMEFORMULA;
103
104 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
105 BEGIN
106 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
107 RETURN (TRUE);
108 END BEFOREREPORT;
109
110 FUNCTION AFTERREPORT RETURN BOOLEAN IS
111 BEGIN
112 RETURN (TRUE);
113 END AFTERREPORT;
114
115 FUNCTION RP_PERIOD_RANGEFORMULA RETURN VARCHAR2 IS
116 BEGIN
117 RETURN ('Period ' || P_PERIOD1);
118 END RP_PERIOD_RANGEFORMULA;
119
120 FUNCTION OPEN_PCFORMULA RETURN NUMBER IS
121 BEGIN
122 DECLARE
123 L_OPEN_PC NUMBER(15);
124 BEGIN
125 SELECT
126 DP.PERIOD_COUNTER
127 INTO L_OPEN_PC
128 FROM
129 FA_DEPRN_PERIODS DP
130 WHERE DP.BOOK_TYPE_CODE = P_BOOK
131 AND DP.PERIOD_COUNTER = (
132 SELECT
133 MAX(DPZ.PERIOD_COUNTER)
134 FROM
135 FA_DEPRN_SUMMARY DSZ,
136 FA_DEPRN_PERIODS DPZ,
137 FA_BOOKS BK
138 WHERE DPZ.BOOK_TYPE_CODE = P_BOOK
139 AND DPZ.FISCAL_YEAR < PERIOD1_FY
140 AND DSZ.BOOK_TYPE_CODE = P_BOOK
141 AND DSZ.PERIOD_COUNTER = DPZ.PERIOD_COUNTER
142 AND DSZ.ASSET_ID = BK.ASSET_ID
143 AND BK.BOOK_TYPE_CODE = P_BOOK
144 AND BK.DATE_INEFFECTIVE is null );
145 RETURN (L_OPEN_PC);
146 EXCEPTION
147 WHEN NO_DATA_FOUND THEN
148 RETURN (0);
149 END;
150 RETURN NULL;
151 END OPEN_PCFORMULA;
152
153 FUNCTION ACCOUNTING_FLEX_STRUCTURE_P RETURN NUMBER IS
154 BEGIN
155 RETURN ACCOUNTING_FLEX_STRUCTURE;
156 END ACCOUNTING_FLEX_STRUCTURE_P;
157
158 FUNCTION CURRENCY_CODE_P RETURN VARCHAR2 IS
159 BEGIN
160 RETURN CURRENCY_CODE;
161 END CURRENCY_CODE_P;
162
163 FUNCTION PRECISION_P RETURN NUMBER IS
164 BEGIN
165 RETURN PRECISION;
166 END PRECISION_P;
167
168 FUNCTION BOOK_CLASS_P RETURN VARCHAR2 IS
169 BEGIN
170 RETURN BOOK_CLASS;
171 END BOOK_CLASS_P;
172
173 FUNCTION DISTRIBUTION_SOURCE_BOOK_P RETURN VARCHAR2 IS
174 BEGIN
175 RETURN DISTRIBUTION_SOURCE_BOOK;
176 END DISTRIBUTION_SOURCE_BOOK_P;
177
178 FUNCTION PERIOD1_PC_P RETURN NUMBER IS
179 BEGIN
180 RETURN PERIOD1_PC;
181 END PERIOD1_PC_P;
182
183 FUNCTION PERIOD1_PCD_P RETURN VARCHAR2 IS
184 BEGIN
185 RETURN PERIOD1_PCD;
186 END PERIOD1_PCD_P;
187
188 FUNCTION PERIOD1_POD_P RETURN VARCHAR2 IS
189 BEGIN
190 RETURN PERIOD1_POD;
191 END PERIOD1_POD_P;
192
193 FUNCTION PERIOD1_FY_P RETURN NUMBER IS
194 BEGIN
195 RETURN PERIOD1_FY;
196 END PERIOD1_FY_P;
197
198 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
199 BEGIN
200 RETURN RP_COMPANY_NAME;
201 END RP_COMPANY_NAME_P;
202
203 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
204 BEGIN
205 RETURN RP_REPORT_NAME;
206 END RP_REPORT_NAME_P;
207
208 END FA_FASNBV_XMLP_PKG;
209