[Home] [Help]
PACKAGE BODY: APPS.FA_FASCAPSP_XMLP_PKG
Source
1 PACKAGE BODY FA_FASCAPSP_XMLP_PKG AS
2 /* $Header: FASCAPSPB.pls 120.0.12010000.1 2008/07/28 13:16:24 appldev ship $ */
3
4 function report_nameformula(Company_Name in varchar2) return varchar2 is
5 begin
6
7 DECLARE
8 l_report_name VARCHAR2(80);
9 l_conc_program_id NUMBER;
10 BEGIN
11 --Added during DT Fix
12 P_CONC_REQUEST_ID := fnd_global.CONC_REQUEST_ID;
13 --End of DT Fix
14 RP_Company_Name := Company_Name;
15
16 SELECT cr.concurrent_program_id
17 INTO l_conc_program_id
18 FROM FND_CONCURRENT_REQUESTS cr
19 WHERE cr.program_application_id = 140
20 AND cr.request_id = P_CONC_REQUEST_ID;
21
22 SELECT cp.user_concurrent_program_name
23 INTO l_report_name
24 FROM FND_CONCURRENT_PROGRAMS_VL cp
25 WHERE
26 cp.concurrent_program_id= l_conc_program_id
27 and cp.application_id = 140;
28
29 l_report_name := substr(l_report_name,1,instr(l_report_name,' (XML)'));
30
31 RP_Report_Name := l_report_name;
32 RETURN(l_report_name);
33
34 EXCEPTION
35 WHEN OTHERS THEN
36 RP_Report_Name := ':Capital Spending Report:';
37 RETURN(RP_REPORT_NAME);
38 END;
39 RETURN NULL; end;
40
41 function BeforeReport return boolean is
42 begin
43
44 T_DPIS := to_char(P_DPIS,'DD-Mon-YYYY');
45 /*T_END_DATE := to_char(END_DATE,'DD-MON-YYYY');*/
46
47
48 /*SRW.USER_EXIT('FND SRWINIT');*/null;
49 return (TRUE);
50 end;
51
52 function AfterReport return boolean is
53 begin
54
55 /*SRW.USER_EXIT('FND SRWEXIT');*/null;
56 return (TRUE);
57 end;
58
59 function PERIOD_NUMFormula return Number is
60 begin
61
62 DECLARE
63 L_PERIOD_NUM NUMBER;
64 L_FISCAL_YEAR NUMBER(15);
65 L_END_DATE DATE;
66 BEGIN
67 SELECT
68 FY_TAX.FISCAL_YEAR,
69 FY_TAX.END_DATE
70 INTO
71 L_FISCAL_YEAR,
72 L_END_DATE
73 FROM FA_FISCAL_YEAR FY_TAX,
74 FA_BOOK_CONTROLS BC_TAX
75 WHERE BC_TAX.BOOK_TYPE_CODE = P_TAX_BOOK AND
76 BC_TAX.FISCAL_YEAR_NAME = FY_TAX.FISCAL_YEAR_NAME
77 AND P_DPIS BETWEEN FY_TAX.START_DATE AND FY_TAX.END_DATE;
78
79 SELECT
80 DP_BUD.PERIOD_NUM
81 INTO
82 L_PERIOD_NUM
83 FROM FA_DEPRN_PERIODS DP_BUD,
84 FA_FISCAL_YEAR FY_BUD,
85 FA_BOOK_CONTROLS BC_BUD
86 WHERE BC_BUD.BOOK_TYPE_CODE = P_BUDGET_BOOK AND
87 P_DPIS BETWEEN FY_BUD.START_DATE AND FY_BUD.END_DATE
88 AND FY_BUD.FISCAL_YEAR_NAME = BC_BUD.FISCAL_YEAR_NAME
89 AND DP_BUD.BOOK_TYPE_CODE = P_BUDGET_BOOK AND
90 DP_BUD.FISCAL_YEAR = FY_BUD.FISCAL_YEAR AND
91 DP_BUD.PERIOD_CLOSE_DATE IS NULL;
92
93 END_DATE := L_END_DATE;
94 FISCAL_YEAR := L_FISCAL_YEAR;
95 RETURN(L_PERIOD_NUM);
96 EXCEPTION
97 WHEN NO_DATA_FOUND THEN
98 END_DATE := L_END_DATE;
99 FISCAL_YEAR := L_FISCAL_YEAR;
100 RETURN(0);
101 END;
102 RETURN NULL; end;
103
104 function per_add_beforeformula(ADD_COST in number, ADDB_COST in number) return varchar2 is
105 begin
106
107 IF (ADD_COST = 0) THEN RETURN(TO_CHAR(100, '990D00'));
108 ELSE RETURN(TO_CHAR((ADDB_COST / ADD_COST) * 100, '990D00'));
109 END IF;
110 RETURN NULL; end;
111
112 function per_bud_beforeformula(BUD_COST_SUM in number, BUDB_COST_SUM in number) return varchar2 is
113 begin
114
115 IF (BUD_COST_SUM = 0) THEN
116 RETURN ('N/A');
117 ELSE
118 RETURN(TO_CHAR((BUDB_COST_SUM / BUD_COST_SUM) * 100, '990D00'));
119 END IF;
120 RETURN NULL; end;
121
122 function per_add_budformula(BUD_COST_SUM in number, ADD_COST in number) return varchar2 is
123 begin
124
125 IF (BUD_COST_SUM = 0) THEN
126 RETURN('N/A');
127 ELSE
128 RETURN( TO_CHAR((ADD_COST / BUD_COST_SUM) * 100, '9999990D00'));
129 END IF;
130 RETURN NULL; end;
131
132 function meth_per_add_beforeformula(METH_ADD_COST in number, METH_ADDB_COST in number) return varchar2 is
133 begin
134
135 IF (METH_ADD_COST = 0) THEN RETURN (TO_CHAR(100, '990D00'));
136 ELSE RETURN(TO_CHAR((METH_ADDB_COST / METH_ADD_COST) * 100, '990D00'));
137 END IF;
138 RETURN NULL; end;
139
140 function meth_per_bud_beforeformula(METH_BUD_COST in number, METH_BUDB_COST in number) return varchar2 is
141 begin
142
143 IF (METH_BUD_COST = 0) THEN
144 RETURN ('N/A');
145 ELSE
146 RETURN(TO_CHAR((METH_BUDB_COST / METH_BUD_COST) * 100, '990D00'));
147 END IF;
148 RETURN NULL; end;
149
150 function meth_per_add_budformula(METH_BUD_COST in number, METH_ADD_COST in number) return varchar2 is
151 begin
152
153 IF (METH_BUD_COST = 0) THEN
154 RETURN('N/A');
155 ELSE
156
157 RETURN( TO_CHAR((METH_ADD_COST / METH_BUD_COST) * 100, '9999990D00'));
158 END IF;
159 RETURN NULL; end;
160
161 --Functions to refer Oracle report placeholders--
162
163 Function ACCT_BAL_APROMPT_p return varchar2 is
164 Begin
165 return ACCT_BAL_APROMPT;
166 END;
167 Function ACCT_CC_APROMPT_p return varchar2 is
168 Begin
169 return ACCT_CC_APROMPT;
170 END;
171 Function CAT_MAJ_RPROMPT_p return varchar2 is
172 Begin
173 return CAT_MAJ_RPROMPT;
174 END;
175 Function END_DATE_p return date is
176 Begin
177 return END_DATE;
178 END;
179 Function FISCAL_YEAR_p return number is
180 Begin
181 return FISCAL_YEAR;
182 END;
183 Function RP_COMPANY_NAME_p return varchar2 is
184 Begin
185 return RP_COMPANY_NAME;
186 END;
187 Function RP_REPORT_NAME_p return varchar2 is
188 Begin
189 return RP_REPORT_NAME;
190 END;
191 Function RP_BAL_LPROMPT_p return varchar2 is
192 Begin
193 return RP_BAL_LPROMPT;
194 END;
195 /*
196 Function DATEFORMAT(OrigDate in date) return varchar2 is
197 Begin
198 return UPPER(to_char(OrigDate,'DD-MON-YYYY'));
199 End;
200 */
201
202 END FA_FASCAPSP_XMLP_PKG ;
203