[Home] [Help]
PACKAGE BODY: APPS.FA_FASASSBS_XMLP_PKG
Source
1 PACKAGE BODY FA_FASASSBS_XMLP_PKG AS
2 /* $Header: FASASSBSB.pls 120.0.12010000.1 2008/07/28 13:16:22 appldev 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 l_distribution_source_book VARCHAR2(15);
11 BEGIN
12 SELECT bc.book_type_code,
13 bc.accounting_flex_structure,
14 sob.currency_code,
15 cur.precision,
16 bc.distribution_source_book
17 INTO l_book,
18 l_accounting_flex_Structure,
19 l_currency_code,
20 l_precision,
21 l_distribution_source_book
22 FROM 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 Accounting_Flex_Structure:=l_accounting_flex_structure;
29 Currency_Code := l_currency_code;
30 precision := l_precision;
31 distribution_source_book := l_distribution_source_book;
32 return(l_book);
33 END;
34 RETURN NULL; end;
35 function Period1Formula return VARCHAR2 is
36 begin
37 DECLARE
38 l_period_name VARCHAR2(15);
39 l_period_POD DATE;
40 l_period_pc NUMBER;
41 BEGIN
42 SELECT period_name,
43 period_open_date,
44 period_counter
45 INTO l_period_name,
46 l_period_POD,
47 l_period_pc
48 FROM FA_DEPRN_PERIODS
49 WHERE book_type_code = P_BOOK
50 AND period_name = P_PERIOD1;
51 Period1_POD := l_period_POD;
52 PERIOD1_PC := l_period_pc;
53 return(l_period_name);
54 END;
55 RETURN NULL; end;
56 function Report_NameFormula return VARCHAR2 is
57 begin
58 DECLARE
59 l_report_name VARCHAR2(80);
60 l_conc_program_id NUMBER;
61 BEGIN
62 SELECT cr.concurrent_program_id
63 INTO l_conc_program_id
64 FROM FND_CONCURRENT_REQUESTS cr
65 WHERE cr.program_application_id = 140
66 AND cr.request_id = P_CONC_REQUEST_ID;
67 SELECT cp.user_concurrent_program_name
68 INTO l_report_name
69 FROM FND_CONCURRENT_PROGRAMS_VL cp
70 WHERE
71 cp.concurrent_program_id= l_conc_program_id
72 and cp.application_id = 140;
73 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
74 RETURN(l_report_name);
75 EXCEPTION
76 WHEN OTHERS THEN
77 RETURN(':Additions By Source Report:');
78 END;
79 RETURN NULL; end;
80 function Period2Formula return VARCHAR2 is
81 begin
82 DECLARE
83 l_period_name VARCHAR2(15);
84 l_period_PCD DATE;
85 l_period_pc NUMBER;
86 BEGIN
87 select period_name,
88 nvl(period_close_date, sysdate),
89 period_counter
90 into l_period_name,
91 l_period_pcd,
92 l_period_pc
93 from fa_deprn_periods
94 where book_type_code = P_BOOK
95 and period_name = P_PERIOD2;
96 period2_pcd := l_period_pcd;
97 period2_pc := l_period_pc;
98 return(l_period_name);
99 END;
100 RETURN NULL; end;
101 function BeforeReport return boolean is
102 begin
103 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
104 /*SRW.USER_EXIT('FND SRWINIT');*/null;
105 return (TRUE);
106 end;
107 function AfterReport return boolean is
108 begin
109 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
110 return (TRUE);
111 end;
112 function c_unbalformula(AS_INV_COST in number, AS_ASS_COST in number, ASSET_TYPE in varchar2) return varchar2 is
113 begin
114 IF ((AS_INV_COST <> AS_ASS_COST) AND (ASSET_TYPE = 'CIP'))THEN
115 RETURN('*');
116 END IF;
117 RETURN NULL; end;
118 function c_cc_unbalformula(CC_INV_COST in number, CC_ASS_COST in number, ASSET_TYPE in varchar2) return varchar2 is
119 begin
120 IF ((CC_INV_COST <> CC_ASS_COST) AND (ASSET_TYPE = 'CIP'))THEN
121 RETURN('*');
122 END IF;
123 RETURN NULL; end;
124 function c_ac_unbalformula(AC_INV_COST in number, AC_ASS_COST in number, ASSET_TYPE in varchar2) return varchar2 is
125 begin
126 IF ((AC_INV_COST <> AC_ASS_COST) AND (ASSET_TYPE = 'CIP'))THEN
127 RETURN('*');
128 END IF;
129 RETURN NULL; end;
130 function c_at_unbalformula(AT_INV_COST in number, AT_ASS_COST in number, ASSET_TYPE in varchar2) return varchar2 is
131 begin
132 IF ((AT_INV_COST <> AT_ASS_COST) AND (ASSET_TYPE = 'CIP'))THEN
133 RETURN('*');
134 END IF;
135 RETURN NULL; end;
136 --Functions to refer Oracle report placeholders--
137 Function Accounting_Flex_Structure_p return number is
138 Begin
139 return Accounting_Flex_Structure;
140 END;
141 Function DISTRIBUTION_SOURCE_BOOK_p return varchar2 is
142 Begin
143 return DISTRIBUTION_SOURCE_BOOK;
144 END;
145 Function Precision_p return number is
146 Begin
147 return Precision;
148 END;
149 Function Currency_Code_p return varchar2 is
150 Begin
151 return Currency_Code;
152 END;
153 Function Period1_POD_p return date is
154 Begin
155 return Period1_POD;
156 END;
157 Function PERIOD1_PC_p return number is
158 Begin
159 return PERIOD1_PC;
160 END;
161 Function Period2_PCD_p return date is
162 Begin
163 return Period2_PCD;
164 END;
165 Function PERIOD2_PC_p return number is
166 Begin
167 return PERIOD2_PC;
168 END;
169 END FA_FASASSBS_XMLP_PKG ;
170