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