[Home] [Help]
PACKAGE BODY: APPS.FA_FASAAMTD_XMLP_PKG
Source
1 PACKAGE BODY FA_FASAAMTD_XMLP_PKG AS
2 /* $Header: FASAAMTDB.pls 120.0.12010000.1 2008/07/28 13:16:13 appldev ship $ */
3 function report_nameformula(Company_Name in varchar2) return varchar2 is
4 begin
5 DECLARE
6 l_report_name VARCHAR2(80);
7 l_conc_program_id NUMBER;
8 BEGIN
9 --Added during DT Fix
10 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
11 --End of DT Fix
12 RP_Company_Name := Company_Name;
13 SELECT cr.concurrent_program_id
14 INTO l_conc_program_id
15 FROM FND_CONCURRENT_REQUESTS cr
16 WHERE cr.program_application_id = 140
17 AND cr.request_id = P_CONC_REQUEST_ID;
18 SELECT cp.user_concurrent_program_name
19 INTO l_report_name
20 FROM FND_CONCURRENT_PROGRAMS_VL cp
21 WHERE
22 cp.concurrent_program_id= l_conc_program_id
23 and cp.application_id = 140;
24 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
25 RP_Report_Name := l_report_name;
26 RETURN(l_report_name);
27 EXCEPTION
28 WHEN OTHERS THEN
29 IF (P_ADJUSTED = 'TRUE') THEN
30 RP_Report_Name := ':Adjusted Form 4626 - AMT Detail Report:';
31 ELSE
32 RP_Report_Name := ':Form 4626 - AMT Detail Report:';
33 END IF;
34 RETURN(RP_REPORT_NAME);
35 END;
36 RETURN NULL; end;
37 function BeforeReport return boolean is
38 begin
39 /*SRW.USER_EXIT('FND SRWINIT');*/null;
40 return (TRUE);
41 end;
42 function AfterReport return boolean is
43 begin
44 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
45 return (TRUE);
46 end;
47 function Period1_PCFormula return Number is
48 begin
49 DECLARE
50 l_period_POD DATE;
51 l_period_PCD DATE;
52 l_period_PC NUMBER(15);
53 l_period_FY NUMBER(15);
54 BEGIN
55 SELECT period_counter,
56 period_open_date,
57 nvl(period_close_date, sysdate),
58 fiscal_year
59 INTO l_period_PC,
60 l_period_POD,
61 l_period_PCD,
62 l_period_FY
63 FROM FA_DEPRN_PERIODS
64 WHERE book_type_code = P_FED_BOOK
65 AND period_name = P_PERIOD1;
66 Period1_POD := l_period_POD;
67 Period1_PCD := l_period_PCD;
68 Period1_FY := l_period_FY;
69 return(l_period_PC);
70 END;
71 RETURN NULL; end;
72 function FED_START_PERIOD_PCFormula return Number is
73 begin
74 DECLARE
75 l_fed_start_period_PC NUMBER(15);
76 l_fed_end_period_PC NUMBER(15);
77 l_amt_start_period_PC NUMBER(15);
78 l_amt_end_period_PC NUMBER(15);
79 BEGIN
80 select
81 min(dp_fed.period_counter),
82 max(dp_fed.period_counter),
83 min(dp_amt.period_counter),
84 max(dp_amt.period_counter)
85 into
86 l_fed_start_period_pc,
87 l_fed_end_period_pc,
88 l_amt_start_period_pc,
89 l_amt_end_period_pc
90 from
91 fa_deprn_periods dp_amt,
92 fa_deprn_periods dp_fed
93 where
94 dp_fed.book_type_code = P_FED_BOOK and
95 dp_fed.fiscal_year = Period1_FY and
96 dp_amt.book_type_code = P_AMT_BOOK and
97 dp_amt.fiscal_year = Period1_FY;
98 FED_END_PERIOD_PC := l_fed_end_period_pc;
99 AMT_START_PERIOD_PC := l_amt_start_period_pc;
100 AMT_END_PERIOD_PC := l_amt_end_period_pc;
101 return(l_fed_start_period_pc);
102 END;
103 RETURN NULL; end;
104 function diff_deprnformula(FED_DEPRN in number, AMT_DEPRN in number) return number is
105 begin
106 RETURN (FED_DEPRN - AMT_DEPRN);
107 end;
108 function amt_deprnformula(AMT_DD in number, AMT_ADJUST in number) return number is
109 begin
110 RETURN(AMT_DD + AMT_ADJUST);
111 end;
112 function fed_deprnformula(FED_DD in number, FED_ADJUST in number) return number is
113 begin
114 RETURN(FED_DD + FED_ADJUST);
115 end;
116 --Functions to refer Oracle report placeholders--
117 Function Period1_POD_p return date is
118 Begin
119 return Period1_POD;
120 END;
121 Function Period1_PCD_p return date is
122 Begin
123 return Period1_PCD;
124 END;
125 Function Period1_FY_p return number is
126 Begin
127 return Period1_FY;
128 END;
129 Function FED_END_PERIOD_PC_p return number is
130 Begin
131 return FED_END_PERIOD_PC;
132 END;
133 Function AMT_START_PERIOD_PC_p return number is
134 Begin
135 return AMT_START_PERIOD_PC;
136 END;
137 Function AMT_END_PERIOD_PC_p return number is
138 Begin
139 return AMT_END_PERIOD_PC;
140 END;
141 Function RP_COMPANY_NAME_p return varchar2 is
142 Begin
143 return RP_COMPANY_NAME;
144 END;
145 Function RP_REPORT_NAME_p return varchar2 is
146 Begin
147 return RP_REPORT_NAME;
148 END;
149 Function RP_BAL_LPROMPT_p return varchar2 is
150 Begin
151 return RP_BAL_LPROMPT;
152 END;
153 END FA_FASAAMTD_XMLP_PKG ;
154