[Home] [Help]
PACKAGE BODY: APPS.FA_FAS443_XMLP_PKG
Source
1 PACKAGE BODY FA_FAS443_XMLP_PKG AS
2 /* $Header: FAS443B.pls 120.1.12010000.1 2008/07/28 13:14:38 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 bc.book_type_code,
14 bc.book_class,
15 bc.accounting_flex_structure,
16 bc.distribution_source_book,
17 sob.currency_code,
18 cur.precision
19 INTO l_book,
20 l_book_class,
21 l_accounting_flex_Structure,
22 l_distribution_source_book,
23 l_currency_code,
24 l_precision
25 FROM FA_BOOK_CONTROLS bc,
26 GL_SETS_OF_BOOKS sob,
27 FND_CURRENCIES cur
28 WHERE bc.book_type_code = P_BOOK
29 AND sob.set_of_books_id = bc.set_of_books_id
30 AND sob.currency_code = cur.currency_code;
31 Book_Class := l_book_class;
32 Accounting_Flex_Structure:=l_accounting_flex_structure;
33 Distribution_SOurce_Book :=l_distribution_source_book;
34 Currency_Code := l_currency_code;
35 Precision := l_precision;
36 fnd_profile.get('PRINT_DEBUG',print_debug);
37 return(l_book);
38 END;
39 RETURN NULL; end;
40 function Period1Formula return VARCHAR2 is
41 begin
42 DECLARE
43 l_period_name VARCHAR2(15);
44 l_period_POD DATE;
45 l_period_PCD DATE;
46 l_period_PC NUMBER(15);
47 l_period_FY NUMBER(15);
48 BEGIN
49 SELECT period_name,
50 period_counter,
51 period_open_date,
52 nvl(period_close_date, sysdate),
53 fiscal_year
54 INTO l_period_name,
55 l_period_PC,
56 l_period_POD,
57 l_period_PCD,
58 l_period_FY
59 FROM FA_DEPRN_PERIODS
60 WHERE book_type_code = P_BOOK
61 AND period_name = P_PERIOD1;
62 Period1_PC := l_period_PC;
63 Period1_POD := l_period_POD;
64 Period1_PCD := l_period_PCD;
65 Period1_FY := l_period_FY;
66 return(l_period_name);
67 END;
68 RETURN NULL; end;
69 function report_nameformula(Company_Name in varchar2) return varchar2 is
70 begin
71 DECLARE
72 l_report_name VARCHAR2(80);
73 l_conc_program_id NUMBER;
74 BEGIN
75 --Added during DT Fix
76 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
77 --End of DT Fix
78 RP_Company_Name := Company_Name;
79 SELECT cr.concurrent_program_id
80 INTO l_conc_program_id
81 FROM FND_CONCURRENT_REQUESTS cr
82 WHERE cr.program_application_id = 140
83 AND cr.request_id = P_CONC_REQUEST_ID;
84 SELECT cp.user_concurrent_program_name
85 INTO l_report_name
86 FROM FND_CONCURRENT_PROGRAMS_VL cp
87 WHERE
88 cp.concurrent_program_id= l_conc_program_id
89 and cp.application_id = 140;
90 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
91 RP_Report_Name := l_report_name;
92 RETURN(l_report_name);
93 EXCEPTION
94 WHEN OTHERS THEN
95 RP_Report_Name := 'Form 4797 - Gain From Disposition of 1245 Property Report';
96 RETURN(RP_Report_Name);
97 END;
98 RETURN NULL; end;
99 function Period2Formula return VARCHAR2 is
100 begin
101 DECLARE
102 l_period_name VARCHAR2(15);
103 l_period_POD DATE;
104 l_period_PCD DATE;
105 l_period_PC NUMBER(15);
106 l_period_FY NUMBER(15);
107 BEGIN
108 SELECT period_name,
109 period_counter,
110 period_open_date,
111 nvl(period_close_date, sysdate),
112 fiscal_year
113 INTO l_period_name,
114 l_period_PC,
115 l_period_POD,
116 l_period_PCD,
117 l_period_FY
118 FROM FA_DEPRN_PERIODS
119 WHERE book_type_code = P_BOOK
120 AND period_name = P_PERIOD2;
121 Period2_PC := l_period_PC;
122 Period2_POD := l_period_POD;
123 Period2_PCD := l_period_PCD;
124 Period2_FY := l_period_FY;
125 return(l_period_name);
126 EXCEPTION
127 WHEN NO_DATA_FOUND
128 THEN
129 Period2_PC := Period1_PC;
130 Period2_POD := Period1_POD;
131 Period2_PCD := Period1_PCD;
132 Period2_FY := Period1_FY;
133 return(P_PERIOD1);
134 END;
135 RETURN NULL; end;
136 function BeforeReport return boolean is
137 begin
138 /*SRW.USER_EXIT('FND SRWINIT');*/null;
139 return (TRUE);
140 end;
141 function AfterReport return boolean is
142 begin
143 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
144 return (TRUE);
145 end;
146 function GAIN_NLSFormula return VARCHAR2 is
147 begin
148 DECLARE
149 l_meaning VARCHAR2(80);
150 BEGIN
151 select MEANING
152 into l_meaning
153 from FA_LOOKUPS
154 where LOOKUP_TYPE = 'GAINLOSS'
155 and LOOKUP_CODE = 'GAIN';
156 return (l_meaning);
157 EXCEPTION
158 WHEN OTHERS THEN
159 return (null);
160 END;
161 RETURN NULL; end;
162 function LOSS_NLSFormula return VARCHAR2 is
163 begin
164 DECLARE
165 l_meaning VARCHAR2(80);
166 BEGIN
167 select MEANING
168 into l_meaning
169 from FA_LOOKUPS
170 where LOOKUP_TYPE = 'GAINLOSS'
171 and LOOKUP_CODE = 'LOSS';
172 return (l_meaning);
173 EXCEPTION
174 WHEN OTHERS THEN
175 return (null);
176 END;
177 RETURN NULL; end;
178 function d_gain_1962formula (book in varchar2, asset_id in number, reserve in number, gain in number, ord_income in number, cap_gain in number) return number is
179 true_or_false number;
180 ret boolean;
181 before_1962 boolean := true;
182 no_errors boolean := true;
183 h_calendar_type varchar2(30);
184 h_fy_name fa_fiscal_year.fiscal_year_name%type;
185 h_prorate_fy number;
186 h_cur_per_num number;
187 h_num_per_fy number;
188 h_cur_fy number;
189 h_prorate_start_year number;
190 dpr_in fa_std_types.dpr_struct;
191 dpr_out fa_std_types.dpr_out_struct;
192 dpr_arr fa_std_types.dpr_arr_type;
193 X_BOOK varchar2(15);
194 X_ASSET_ID number;
195 h_new_deprn_rsv number;
196 l_dpis date;
197 l_deprn_rsv_1962 number := 0;
198 l_diff_reserve number;
199 h_dpr_date date; h_current_cost number; h_itc_amount_id number; h_itc_basis number; h_ceiling_Type varchar2(50);
200 l_new_gain_loss number;
201 l_new_ordinary_income number;
202 l_new_capital_gain number;
203 l_cost_retired number;
204 l_ttcode fa_transaction_headers.transaction_type_code%TYPE;
205 l_main_dpis date;
206 l_date_retired date;
207 l_date_retired_year number;
208 previous_y_end number;
209 previous_p_cl_end number;
210 previous_end_date date;
211 l_method_code fa_methods.method_code%TYPE;
212 l_rate_source_rule fa_methods.rate_source_rule%TYPE;
213 cursor c_rsr is
214 select rate_source_rule
215 from fa_methods
216 where method_code = l_method_code;
217 l_start_date date;
218 l_fiscal_year_name fa_fiscal_year.fiscal_year_name%type;
219 cursor c_end is
220 select period_num, cp.start_date, fiscal_year_name
221 from fa_calendar_periods cp,
222 fa_book_controls bc
223 where calendar_type = bc.deprn_calendar
224 and bc.book_type_code = x_book
225 and start_date >= previous_end_date
226 order by start_date;
227 cursor c_ret is
228 SELECT decode (mt.rate_source_rule,
229 'CALCULATED', bk.prorate_date,
230 'FORMULA', bk.prorate_date,
231 'TABLE', bk.deprn_start_date,
232 'FLAT', decode (mt.deprn_basis_rule,
233 'COST', bk.prorate_date,
234 'NBV', bk.deprn_start_date),
235 'PROD', bk.date_placed_in_service),
236 to_number (to_char (bk.prorate_date, 'J')),
237 to_number (to_char (bk.date_placed_in_service, 'J')),
238 to_number (to_char (bk.deprn_start_date, 'J')),
239 nvl(bk.life_in_months, 0),
240 bk.recoverable_cost,
241 bk.adjusted_cost,
242 bk.cost,
243 nvl(bk.reval_amortization_basis, 0),
244 bk.rate_adjustment_factor,
245 nvl(bk.adjusted_rate, 0),
246 bk.ceiling_name,
247 bk.bonus_rule,
248 nvl (bk.production_capacity, 0),
249 nvl (bk.adjusted_capacity, 0),
250 mt.method_code,
251 ad.asset_number,
252 nvl (bk.adjusted_recoverable_cost, bk.recoverable_cost),
253 bk.salvage_value,
254 bk.period_counter_life_complete,
255 bk.annual_deprn_rounding_flag,
256 bk.itc_amount_id,
257 bk.itc_basis,
258 ceilt.ceiling_type,
259 nvl(bk.formula_factor, 1),
260 nvl(bk.short_fiscal_year_flag, 'NO'),
261 bk.conversion_date,
262 bk.original_deprn_start_date,
263 bk.prorate_date,
264 to_number(to_char(bk.prorate_date,'YYYY')),
265 bk.date_placed_in_service,
266 ret.cost_retired,
267 ret.date_retired,
268 to_number(to_char(ret.date_retired,'YYYY')),
269 th.transaction_type_code
270 FROM fa_ceiling_types ceilt,
271 fa_methods mt,
272 fa_category_books cb,
273 fa_books bk,
274 fa_retirements ret,
275 fa_transaction_headers th,
276 fa_additions ad
277 WHERE cb.book_type_code = X_book
278 AND ad.asset_category_id = cb.category_id
279 AND ceilt.ceiling_name(+) = bk.ceiling_name
280 AND mt.method_code = bk.deprn_method_code
281 AND bk.book_type_code = X_book
282 AND bk.asset_id = X_asset_id
283 AND bk.transaction_header_id_out = th.transaction_header_id
284 AND ret.status = 'PROCESSED'
285 AND th.transaction_type_code in ('FULL RETIREMENT','PARTIAL RETIREMENT')
286 AND ret.transaction_header_id_in = th.transaction_header_id
287 AND nvl (mt.life_in_months, -9999) =
288 nvl (bk.life_in_months, -9999)
289 AND ad.asset_id = bk.asset_id
290 ORDER BY th.transaction_header_id;
291 rakn number := 0;
292 BEGIN
293 if print_debug = 'Y' then
294 /*srw.message(9999,'Starting d_gain_1962 function');*/null;
295 /*srw.message(9999,book_class);*/null;
296 /*srw.message(9999,book);*/null;
297 /*srw.message(9999,asset_number);*/null;
298 /*srw.message(9999, asset_id);*/null;
299 end if;
300 X_BOOK := book;
301 x_asset_id := asset_id;
302 if book_class = 'TAX' then
303 dpr_in.book := x_book;
304 dpr_in.asset_id := x_asset_id;
305 select deprn_reserve, ytd_deprn, bk.date_placed_in_service, bk.deprn_method_code
306 into dpr_in.deprn_rsv, dpr_in.ytd_deprn, l_main_dpis, l_method_code
307 from fa_deprn_summary ds,
308 fa_books bk,
309 fa_transaction_headers th
310 where ds.book_type_code = X_book
311 and ds.asset_id = X_asset_id
312 and ds.deprn_source_code = 'BOOKS'
313 and th.transaction_header_id = bk.transaction_header_id_in
314 and th.transaction_header_id in (select max(transaction_header_id)
315 from fa_transaction_headers thsub
316 where transaction_type_code like '%RETIREMENT'
317 and book_type_code = x_book
318 and asset_id = x_asset_id)
319 ;
320 open c_rsr;
321 fetch c_rsr into l_rate_source_rule;
322 close c_rsr;
323 if l_main_dpis < to_date('19611231','YYYYMMDD')
324 and l_rate_source_rule <> 'CALCULATED' then
325 dpr_in.reval_rsv := 0;
326 dpr_in.ltd_prod := 0;
327 dpr_in.old_adj_cost := 0;
328 dpr_in.prior_fy_exp := 0;
329 dpr_in.reval_rsv := 0;
330 dpr_in.ltd_prod := 0;
331 select bc.deprn_calendar,
332 bc.fiscal_year_name,
333 ct.number_per_fiscal_year
334 into h_calendar_type, h_fy_name, h_num_per_fy
335 from fa_book_controls bc, fa_calendar_types ct
336 where bc.book_type_code = X_book
337 and bc.deprn_calendar = ct.calendar_type;
338 dpr_in.calendar_type := h_calendar_type;
339 dpr_in.jdate_retired := 0;
340 dpr_in.ret_prorate_jdate := 0;
341 dpr_in.rsv_known_flag := TRUE;
342 dpr_in.prior_fy_exp := 0;
343 dpr_in.used_by_adjustment:= FALSE;
344 dpr_in.deprn_override_flag := 'N';
345 OPEN C_RET;
346 FETCH C_RET
347 INTO h_dpr_date,
348 dpr_in.prorate_jdate,
349 dpr_in.jdate_in_service,
350 dpr_in.deprn_start_jdate,
351 dpr_in.life,
352 dpr_in.rec_cost,
353 dpr_in.adj_cost,
354 h_current_cost,
355 dpr_in.reval_amo_basis,
356 dpr_in.rate_adj_factor,
357 dpr_in.adj_rate,
358 dpr_in.ceil_name,
359 dpr_in.bonus_rule,
360 dpr_in.capacity,
361 dpr_in.adj_capacity,
362 dpr_in.method_code,
363 dpr_in.asset_num,
364 dpr_in.adj_rec_cost,
365 dpr_in.salvage_value,
366 dpr_in.pc_life_end,
367 dpr_in.deprn_rounding_flag,
368 h_itc_amount_id,
369 h_itc_basis,
370 h_ceiling_Type,
371 dpr_in.formula_factor,
372 dpr_in.short_fiscal_year_flag,
373 dpr_in.conversion_date,
374 dpr_in.orig_deprn_start_date,
375 dpr_in.prorate_date,
376 h_prorate_start_year,
377 l_dpis,
378 l_cost_retired,
379 l_date_retired,
380 l_date_retired_year,
381 l_ttcode;
382 WHILE C_RET%FOUND AND BEFORE_1962 LOOP
383 if print_debug = 'Y' then
384 /*srw.message(9999,dpr_in.adj_cost);*/null;
385 /*srw.message(9999,dpr_in.rec_cost);*/null;
386 /*srw.message(9999,h_current_cost);*/null;
387 /*srw.message(9999,l_dpis);*/null;
388 /*srw.message(9999,h_prorate_start_year);*/null;
389 end if;
390 rakn := rakn + 1;
391 if rakn = 1 then
392 dpr_in.y_begin := h_prorate_start_year;
393 select period_num
394 into dpr_in.p_cl_begin
395 from fa_calendar_periods cp,
396 fa_book_controls bc
397 where calendar_type = bc.deprn_calendar
398 and bc.book_type_code = x_book
399 and dpr_in.prorate_date
400 between cp.start_date and cp.end_date;
401 if l_date_retired > to_date('19611231','YYYYMMDD') then
402 dpr_in.y_end := 1961;
403 select max(period_num)
404 into dpr_in.p_cl_end
405 from fa_deprn_periods
406 where book_type_code = X_book;
407 previous_end_date := to_date('19611231','YYYYMMDD');
408 else
409 dpr_in.y_end := l_date_retired_year;
410 select period_num
411 into dpr_in.p_cl_end
412 from fa_calendar_periods cp,
413 fa_book_controls bc
414 where calendar_type = bc.deprn_calendar
415 and bc.book_type_code = x_book
416 and l_date_retired
417 between cp.start_date and cp.end_date;
418 previous_end_date := l_date_retired;
419 end if;
420 else
421 open c_end;
422 fetch c_end into dpr_in.p_cl_begin, l_start_date, l_fiscal_year_name;
423 fetch c_end into dpr_in.p_cl_begin, l_start_date, l_fiscal_year_name;
424 close c_end;
425 select fiscal_year
426 into dpr_in.y_begin
427 from fa_fiscal_year
428 where fiscal_year_name = l_fiscal_year_name
429 and l_start_date between start_date and end_date;
430 if l_date_retired > to_date('19611231','YYYYMMDD') then
431 dpr_in.y_end := 1961;
432 select period_num
433 into dpr_in.p_cl_end
434 from fa_calendar_periods cp,
435 fa_book_controls bc
436 where calendar_type = bc.deprn_calendar
437 and bc.book_type_code = x_book
438 and to_date('19611231','YYYYMMDD')
439 between cp.start_date and cp.end_date;
443 select period_num
440 previous_end_date := to_date('19611231','YYYYMMDD');
441 else
442 dpr_in.y_end := l_date_retired_year;
444 into dpr_in.p_cl_end
445 from fa_calendar_periods cp,
446 fa_book_controls bc
447 where calendar_type = bc.deprn_calendar
448 and bc.book_type_code = x_book
449 and l_date_retired
450 between cp.start_date and cp.end_date;
451 previous_end_date := l_date_retired;
452 end if;
453 end if;
454 if print_debug = 'Y' then
455 /*srw.message(9999,'y_begin: ' || to_char(dpr_in.y_begin));*/null;
456 /*srw.message(9999,'p_cl_begin: ' || to_char(dpr_in.p_cl_begin));*/null;
457 /*srw.message(9999,'y_end: ' || to_char(dpr_in.y_end));*/null;
458 /*srw.message(9999,'p_cl_end: ' || to_char(dpr_in.p_cl_end));*/null;
459 end if;
460 dpr_in.bonus_deprn_exp := 0;
461 dpr_in.bonus_ytd_deprn := 0;
462 dpr_in.bonus_deprn_rsv := 0;
463 dpr_in.prior_fy_bonus_exp := 0;
464 if not fa_cache_pkg.fazcbc(X_book => X_book) then
465 no_errors := false;
466 /*srw.message(9999,'fazcbc returned FALSE');*/null;
467 end if;
468 ret := fa_cde_pkg.faxcde (
469 dpr_in => dpr_in,
470 dpr_arr => dpr_arr,
471 dpr_out => dpr_out,
472 fmode => 1);
473 if (ret = FALSE) then
474 /*srw.message(9999,'faxcde returned FALSE');*/null;
475 no_errors := false;
476 end if;
477 h_new_deprn_rsv := dpr_out.new_deprn_rsv;
478 l_deprn_rsv_1962 := l_deprn_rsv_1962 + round(h_new_deprn_rsv,precision);
479 if print_debug = 'Y' then
480 /*srw.message(9999, 'deprn_rsv_1962: ' || to_char(l_deprn_rsv_1962) );*/null;
481 /*srw.message(9999, 'New_deprn_rsv: ' || to_char(dpr_out.new_deprn_rsv) );*/null;
482 /*srw.message(9999,dpr_out.new_adj_cost);*/null;
483 end if;
484 if l_date_retired > to_date('19611231','YYYYMMDD') then
485 before_1962 := false;
486 end if;
487 FETCH C_RET
488 INTO h_dpr_date,
489 dpr_in.prorate_jdate,
490 dpr_in.jdate_in_service,
491 dpr_in.deprn_start_jdate,
492 dpr_in.life,
493 dpr_in.rec_cost,
494 dpr_in.adj_cost,
495 h_current_cost,
496 dpr_in.reval_amo_basis,
497 dpr_in.rate_adj_factor,
498 dpr_in.adj_rate,
499 dpr_in.ceil_name,
500 dpr_in.bonus_rule,
501 dpr_in.capacity,
502 dpr_in.adj_capacity,
503 dpr_in.method_code,
504 dpr_in.asset_num,
505 dpr_in.adj_rec_cost,
506 dpr_in.salvage_value,
507 dpr_in.pc_life_end,
508 dpr_in.deprn_rounding_flag,
509 h_itc_amount_id,
510 h_itc_basis,
511 h_ceiling_Type,
512 dpr_in.formula_factor,
513 dpr_in.short_fiscal_year_flag,
514 dpr_in.conversion_date,
515 dpr_in.orig_deprn_start_date,
516 dpr_in.prorate_date,
517 h_prorate_start_year,
518 l_dpis,
519 l_cost_retired,
520 l_date_retired,
521 l_date_retired_year,
522 l_ttcode;
523 END LOOP;
524 close c_ret;
525 if no_errors then
526 l_diff_reserve := reserve - l_deprn_rsv_1962;
527 l_new_gain_loss := gain - l_diff_reserve;
528 if print_debug = 'Y' then
529 /*srw.message(9991,'deprn_rsv_1962: ' || to_char(l_deprn_rsv_1962));*/null;
530 /*srw.message(9992,'diff_reserve: ' || to_char(l_diff_reserve));*/null;
531 /*srw.message(9992,'reserve_retired: ' || to_char(reserve));*/null;
532 /*srw.message(99931,'new_capital_gain: ' || to_char(l_new_gain_loss));*/null;
533 /*srw.message(99932,'gain_loss: ' || to_char(gain));*/null;
534 end if;
535 if gain < l_diff_reserve then
536 l_new_ordinary_income := gain;
537 l_new_capital_gain := 0;
538 else
539 l_new_ordinary_income := l_diff_reserve;
540 l_new_capital_gain := l_new_gain_loss;
541 end if;
542 if print_debug = 'Y' then
543 /*srw.message(9994,l_new_ordinary_income);*/null;
544 /*srw.message(9995,l_new_capital_gain);*/null;
545 end if;
546 d_ord_income_1962 := l_new_ordinary_income;
547 d_cap_gain_1962 := l_new_capital_gain;
548 true_or_false := 1;
549 else
550 d_ord_income_1962 := ord_income;
551 d_cap_gain_1962 := cap_gain;
552 true_or_false := 0;
553 if print_debug = 'Y' then
554 /*srw.message(9996,'else no_errors');*/null;
555 end if;
556 end if;
557 else d_ord_income_1962 := ord_income;
558 d_cap_gain_1962 := cap_gain;
559 true_or_false := 0;
560 if print_debug = 'Y' then
561 /*srw.message(9997,'else dpis before 1962');*/null;
562 end if;
563 end if;
564 else d_ord_income_1962 := ord_income;
565 d_cap_gain_1962 := cap_gain;
566 true_or_false := 0;
567 if print_debug = 'Y' then
568 /*srw.message(9997,'Book class = TAX ');*/null;
569 end if;
570 end if;
571 RETURN(true_or_false);
572 end;
573 function d_ord_income_1962Formula return Number is
574 begin
575 null;
576 end;
577 --Functions to refer Oracle report placeholders--
578 Function Accounting_Flex_Structure_p return number is
579 Begin
580 return Accounting_Flex_Structure;
581 END;
582 Function ACCT_BAL_APROMPT_p return varchar2 is
583 Begin
584 return ACCT_BAL_APROMPT;
585 END;
586 Function ACCT_CC_APROMPT_p return varchar2 is
587 Begin
588 return ACCT_CC_APROMPT;
589 END;
590 Function CAT_MAJ_APROMPT_p return varchar2 is
591 Begin
592 return CAT_MAJ_APROMPT;
593 END;
594 Function Currency_Code_p return varchar2 is
595 Begin
596 return Currency_Code;
597 END;
598 Function PRINT_DEBUG_p return varchar2 is
599 Begin
600 return PRINT_DEBUG;
601 END;
602 Function PRECISION_p return number is
603 Begin
604 return PRECISION;
605 END;
606 Function Book_Class_p return varchar2 is
607 Begin
608 return Book_Class;
609 END;
610 Function Distribution_Source_Book_p return varchar2 is
611 Begin
612 return Distribution_Source_Book;
613 END;
614 Function Period1_PC_p return varchar2 is
615 Begin
616 return Period1_PC;
617 END;
618 Function Period1_PCD_p return date is
619 Begin
620 return Period1_PCD;
621 END;
622 Function Period1_POD_p return date is
623 Begin
624 return Period1_POD;
625 END;
626 Function Period1_FY_p return number is
627 Begin
628 return Period1_FY;
629 END;
630 Function Period2_FY_p return number is
631 Begin
632 return Period2_FY;
633 END;
634 Function Period2_PCD_p return date is
635 Begin
636 return Period2_PCD;
637 END;
638 Function Period2_POD_p return date is
639 Begin
640 return Period2_POD;
641 END;
642 Function Period2_PC_p return varchar2 is
643 Begin
644 return Period2_PC;
645 END;
646 Function d_ord_income_1962_p return number is
647 Begin
648 return d_ord_income_1962;
649 END;
650 Function d_cap_gain_1962_p return number is
651 Begin
652 return d_cap_gain_1962;
653 END;
654 Function RP_COMPANY_NAME_p return varchar2 is
655 Begin
656 return RP_COMPANY_NAME;
657 END;
658 Function RP_REPORT_NAME_p return varchar2 is
659 Begin
660 return RP_REPORT_NAME;
661 END;
662 Function RP_BAL_LPROMPT_p return varchar2 is
663 Begin
664 return RP_BAL_LPROMPT;
665 END;
666 END FA_FAS443_XMLP_PKG ;
667