[Home] [Help]
PACKAGE BODY: APPS.FA_FAS823_XMLP_PKG
Source
1 PACKAGE BODY FA_FAS823_XMLP_PKG AS
2 /* $Header: FAS823B.pls 120.1 2009/07/19 09:24:56 glchen ship $ */
3 function BookFormula return VARCHAR2 is
4 begin
5 DECLARE
6 l_book VARCHAR2(15);
7 l_accounting_flex_structure NUMBER(15);
8 l_currency_code VARCHAR2(15);
9 l_precision NUMBER(15);
10 BEGIN
11 SELECT bc.book_type_code,
12 bc.accounting_flex_structure,
13 sob.currency_code,
14 cur.precision
15 INTO l_book,
16 l_accounting_flex_Structure,
17 l_currency_code,
18 l_precision
19 FROM FA_BOOK_CONTROLS bc,
20 GL_SETS_OF_BOOKS sob,
21 FND_CURRENCIES cur
22 WHERE bc.book_type_code = P_BOOK
23 AND sob.set_of_books_id = bc.set_of_books_id
24 AND sob.currency_code = cur.currency_code;
25 Accounting_Flex_Structure:=l_accounting_flex_structure;
26 Currency_Code := l_currency_code;
27 P_Min_Precision := l_precision;
28 return(l_book);
29 END;
30 RETURN NULL; end;
31 function report_nameformula(Company_Name in varchar2) return varchar2 is
32 begin
33 DECLARE
34 l_report_name VARCHAR2(80);
35 l_conc_program_id NUMBER;
36 BEGIN
37 --Added during DT Fixes
38 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
39 --End of DT Fixes
40 RP_Company_Name := Company_Name;
41 SELECT cr.concurrent_program_id
42 INTO l_conc_program_id
43 FROM FND_CONCURRENT_REQUESTS cr
44 WHERE cr.program_application_id = 140
45 AND cr.request_id = P_CONC_REQUEST_ID;
46 SELECT cp.user_concurrent_program_name
47 INTO l_report_name
48 FROM FND_CONCURRENT_PROGRAMS_VL cp
49 WHERE
50 cp.concurrent_program_id= l_conc_program_id
51 and cp.application_id = 140;
52 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
53 RP_Report_Name := l_report_name;
54 RETURN(l_report_name);
55 EXCEPTION
56 WHEN OTHERS THEN
57 RP_Report_Name := 'Mass Additions Status Report';
58 RETURN('Mass Additions Status Report');
59 END;
60 RETURN NULL; end;
61 function BeforeReport return boolean is
62 begin
63 /*SRW.USER_EXIT('FND SRWINIT');*/null;
64 return (TRUE);
65 end;
66 function AfterReport return boolean is
67 begin
68 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
69 return (TRUE);
70 end;
71 function new_costformula(sum_units in varchar2, MASS_ADD_ID in number, cost in number, fixed_assets_units in number) return number is
72 l_sum_units NUMBER;
73 l_cost NUMBER;
74 l_new_cost NUMBER;
75 begin
76 /*srw.reference(sum_units);*/null;
77 /*srw.reference(cost);*/null;
78 /*srw.reference(fixed_assets_units);*/null;
79 /*srw.reference(mass_add_id);*/null;
80 if(sum_units = 'YES') THEN
81 select sum(units)
82 into l_sum_units
83 from fa_massadd_distributions
84 where mass_addition_id = MASS_ADD_ID;
85 l_new_cost := cost /l_sum_units;
86 else
87 l_new_cost := cost/fixed_assets_units;
88 end if;
89 l_new_cost :=round(l_new_cost,2);
90 return (l_new_cost);
91 exception
92 when others then
93 raise;
94 end;
95 --Functions to refer Oracle report placeholders--
96 Function Accounting_Flex_Structure_p return number is
97 Begin
98 return Accounting_Flex_Structure;
99 END;
100 Function Currency_Code_p return varchar2 is
101 Begin
102 return Currency_Code;
103 END;
104 Function RP_COMPANY_NAME_p return varchar2 is
105 Begin
106 return RP_COMPANY_NAME;
107 END;
108 Function RP_REPORT_NAME_p return varchar2 is
109 Begin
110 return RP_REPORT_NAME;
111 END;
112 Function RP_DATA_FOUND_p return varchar2 is
113 Begin
114 return RP_DATA_FOUND;
115 END;
116 --Added during DT Fixes
117 function D_COSTFormula return VARCHAR2 is
118 begin
119 RP_DATA_FOUND := 'YES';
120 return 'YES';
121 end;
122 --End of DT Fixes
123 END FA_FAS823_XMLP_PKG ;
124