[Home] [Help]
PACKAGE BODY: APPS.JG_JGZZFALE_XMLP_PKG
Source
1 PACKAGE BODY "JG_JGZZFALE_XMLP_PKG" AS
2 /* $Header: JGZZFALEB.pls 120.0 2008/01/08 07:54:47 vjaganat noship $ */
3 FUNCTION AFTERREPORT RETURN BOOLEAN IS
4 BEGIN
5 /*SRW.USER_EXIT('FND SRWEXIT')*/NULL;
6 RETURN (TRUE);
7 END AFTERREPORT;
8
9 FUNCTION CF_PARENT_ACCT_DESCRFORMULA(PARENT_ACCOUNT IN VARCHAR2) RETURN VARCHAR2 IS
10 BEGIN
11 /*SRW.REFERENCE(PARENT_ACCOUNT)*/NULL;
12 RETURN (SUBSTR(FA_RX_SHARED_PKG.GET_FLEX_VAL_MEANING(NULL
13 ,RP_ACCT_VALUESET_NAME
14 ,PARENT_ACCOUNT)
15 ,1
16 ,80));
17 RETURN NULL;
18 EXCEPTION
19 WHEN OTHERS THEN
20 /*SRW.MESSAGE(123
21 ,'Error retrieving parent account description.')*/NULL;
22 /*SRW.MESSAGE(123
23 ,'Valueset Name: ' || RP_ACCT_VALUESET_NAME || ' Parent Account: ' || PARENT_ACCOUNT)*/NULL;
24 RETURN NULL;
25 END CF_PARENT_ACCT_DESCRFORMULA;
26
27 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
28 BEGIN
29 RETURN RP_COMPANY_NAME;
30 END RP_COMPANY_NAME_P;
31
32 FUNCTION RP_REPORT_NAME_P RETURN VARCHAR2 IS
33 BEGIN
34 RETURN RP_REPORT_NAME;
35 END RP_REPORT_NAME_P;
36
37 FUNCTION RP_SOB_NAME_P RETURN VARCHAR2 IS
38 BEGIN
39 RETURN RP_SOB_NAME;
40 END RP_SOB_NAME_P;
41
42 FUNCTION RP_PRECISION_P RETURN NUMBER IS
43 BEGIN
44 RETURN RP_PRECISION;
45 END RP_PRECISION_P;
46
47 FUNCTION RP_SOB_ID_P RETURN NUMBER IS
48 BEGIN
49 RETURN RP_SOB_ID;
50 END RP_SOB_ID_P;
51
52 FUNCTION RP_CURRENCY_CODE_P RETURN VARCHAR2 IS
53 BEGIN
54 RETURN RP_CURRENCY_CODE;
55 END RP_CURRENCY_CODE_P;
56
57 FUNCTION RP_ACCT_VALUESET_NAME_P RETURN VARCHAR2 IS
58 BEGIN
59 RETURN RP_ACCT_VALUESET_NAME;
60 END RP_ACCT_VALUESET_NAME_P;
61
62 FUNCTION CP_DATE_FORMAT_P RETURN VARCHAR2 IS
63 BEGIN
64 RETURN CP_DATE_FORMAT;
65 END CP_DATE_FORMAT_P;
66
67 FUNCTION RP_BOOK_P RETURN VARCHAR2 IS
68 BEGIN
69 RETURN RP_BOOK;
70 END RP_BOOK_P;
71
72 FUNCTION RP_BAL_SEG_P RETURN VARCHAR2 IS
73 BEGIN
74 RETURN RP_BAL_SEG;
75 END RP_BAL_SEG_P;
76
77 FUNCTION RP_PERIOD_P RETURN VARCHAR2 IS
78 BEGIN
79 RETURN RP_PERIOD;
80 END RP_PERIOD_P;
81
82 FUNCTION RP_OFFICIAL_RUN_P RETURN VARCHAR2 IS
83 BEGIN
84 RETURN RP_OFFICIAL_RUN;
85 END RP_OFFICIAL_RUN_P;
86
87 FUNCTION RP_PARENT_TOTALS_P RETURN VARCHAR2 IS
88 BEGIN
89 RETURN RP_PARENT_TOTALS;
90 END RP_PARENT_TOTALS_P;
91
92 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
93
94 gl_balancing_seg number;
95 gl_account_seg number;
96 fa_cost_ctr_seg number;
97
98 acct_flex_structure number;
99 asset_key_flex_struct number;
100
101 appcol_name VARCHAR2(240);
102 seg_name VARCHAR2(240);
103 prompt VARCHAR2(240);
104 value_set_name VARCHAR2(240);
105
106 error_msg VARCHAR2(240);
107 step VARCHAR2(2000);
108 errbuf VARCHAR2(2000);
109 retcode NUMBER := 0;
110 submit_error EXCEPTION;
111
112
113 begin
114 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
115 RP_PERIOD := P_PERIOD;
116 RP_BAL_SEG := P_BALANCING_SEGMENT;
117 RP_BOOK := P_BOOK_TYPE_CODE;
118 RP_OFFICIAL_RUN := P_STATUTORY_REPORT;
119 RP_PARENT_TOTALS := P_SUMMARY;
120
121
122 -- srw.do_sql ('alter session set sql_trace true');
123 --SRW.USER_EXIT('FND SRWINIT');
124
125 /*--------------------------------------------------*/
126 /* Submit RX Report */
127 /*--------------------------------------------------*/
128
129 step := 'Submitting Reserve Ledger Report';
130
131 FARX_DP.deprn_run (
132 book => P_BOOK_TYPE_CODE,
133 period => P_PERIOD,
134 from_bal => NULL,
135 to_bal => NULL,
136 from_acct => NULL,
137 to_acct => NULL,
138 from_cc => NULL,
139 to_cc => NULL,
140 major_category => NULL,
141 minor_category => NULL,
142 cat_seg_num => NULL,
143 cat_seg_val => NULL,
144 prop_type => NULL,
145 request_id => P_CONC_REQUEST_ID,
146 login_id => FND_GLOBAL.LOGIN_ID,
147 retcode => retcode,
148 errbuf => errbuf);
149
150 if (retcode <> 0)
151 then
152 /*srw.message('000','Error code '||retcode||' returned from the Reserve Ledger report');
153 srw.message('001','Error buf: '||errbuf);
154 raise submit_error;*/null;
155 end if;
156
157
158 /*--------------------------------------------------*/
159 /* Get report title */
160 /*--------------------------------------------------*/
161
162 step := 'Get report title';
163
164 select
165 nvl(max(lu.meaning), 'No Report Title in FND_LOOKUPS.MEANING for lookup_type JGZZ_JGSTRGRH_TITLE')
166 into
167 RP_REPORT_NAME
168 from
169 fnd_lookups lu
170 where
171 lu.lookup_type = 'JGZZ_JGSTRGRH_TITLE' and
172 lu.lookup_code = 'LEDGER';
173
174
175 /*--------------------------------------------------*/
176 /* Get set of books, currency and other info */
177 /*--------------------------------------------------*/
178
179 step := 'Get SOB, currency and other info';
180
181 SELECT
182 SC.COMPANY_NAME,
183 BC.SET_OF_BOOKS_ID,
184 SOB.NAME SOB_NAME,
185 SOB.Currency_Code,
186 CUR.Precision,
187 SC.ASSET_KEY_FLEX_STRUCTURE,
188 BC.Accounting_Flex_Structure
189 INTO
190 RP_COMPANY_NAME,
191 RP_SOB_ID,
192 RP_SOB_NAME,
193 RP_CURRENCY_CODE,
194 RP_PRECISION,
195 asset_key_flex_struct,
196 acct_flex_structure
197 FROM
198 FA_SYSTEM_CONTROLS SC,
199 FA_BOOK_CONTROLS BC,
200 GL_LEDGERS_PUBLIC_V SOB,
201 FND_CURRENCIES CUR
202 WHERE
203 BC.Book_Type_Code = nvl(P_BOOK_TYPE_CODE, bc.book_type_code)
204 AND SOB.Ledger_ID = BC.Set_Of_Books_ID
205 AND CUR.Currency_Code = SOB.Currency_Code
206 AND rownum = 1;
207
208
209
210
211 /*--------------------------------------------------*/
212 /* Get Account Segement's ValueSet */
213 /*--------------------------------------------------*/
214
215 -- Get Account Segment Numbers
216
217 fa_rx_shared_pkg.get_acct_segment_numbers (
218 BOOK => P_Book_Type_Code,
219 BALANCING_SEGNUM => gl_balancing_seg,
220 ACCOUNT_SEGNUM => gl_account_seg,
221 CC_SEGNUM => fa_cost_ctr_seg,
222 CALLING_FN => 'FA_BALANCES_REPORT');
223
224 -- Get ValueSetName
225 if (FND_FLEX_APIS.GET_SEGMENT_INFO
226 (101, 'GL#', Acct_Flex_Structure, Gl_Account_Seg,
227 appcol_name, seg_name, prompt, value_set_name))
228 then
229 RP_ACCT_VALUESET_NAME := value_set_name;
230 else
231 return(FALSE);
232 end if;
233
234 --
235 -- BUG 876171: Get the date
236 --
237 /* SRW.USER_EXIT('FND DATE4FORMAT RESULT = ":CP_DATE_FORMAT"'); */
238
239 return (TRUE);
240
241 RETURN NULL; EXCEPTION
242 WHEN SUBMIT_ERROR THEN
243 /*SRW.MESSAGE(123, 'Error occurred in Before Report Trigger, Step: ' || step || '==> ' || sqlerrm);*/null;
244 RETURN(FALSE);
245 WHEN NO_DATA_FOUND THEN NULL;
246 RETURN NULL; WHEN OTHERS THEN
247 /*SRW.MESSAGE(123, 'Error occurred in Before Report Trigger, Step: ' || step || '==> ' || sqlerrm);*/null;
248 RETURN(FALSE);
249 END;
250 END JG_JGZZFALE_XMLP_PKG;
251
252