[Home] [Help]
PACKAGE BODY: APPS.FA_FASRCPVW_XMLP_PKG
Source
1 PACKAGE BODY FA_FASRCPVW_XMLP_PKG AS
2 /* $Header: FASRCPVWB.pls 120.0.12010000.2 2009/07/22 12:19:05 gigupta ship $ */
3 PROCEDURE GET_CURRENCY_CODE(BOOK IN VARCHAR2) IS
4 BEGIN
5 SELECT
6 FCURR.CURRENCY_CODE
7 INTO
8 C_CURRENCY_CODE
9 FROM
10 FA_BOOK_CONTROLS BKCTRL,
11 FND_CURRENCIES_VL FCURR,
12 GL_SETS_OF_BOOKS GSBKS
13 WHERE BKCTRL.BOOK_TYPE_CODE = BOOK
14 AND BKCTRL.SET_OF_BOOKS_ID = GSBKS.SET_OF_BOOKS_ID
15 AND GSBKS.CURRENCY_CODE = FCURR.CURRENCY_CODE;
16 EXCEPTION
17 WHEN NO_DATA_FOUND THEN
18 NULL;
19 WHEN OTHERS THEN
20 RAISE_ORA_ERR('20050');
21 END GET_CURRENCY_CODE;
22
23 PROCEDURE RAISE_ORA_ERR(ERRNO IN VARCHAR2) IS
24 ERRMSG VARCHAR2(1000);
25 BEGIN
26 ERRMSG := SQLERRM;
27 RAISE_APPLICATION_ERROR(-20101
28 ,NULL);
29 END RAISE_ORA_ERR;
30
31 FUNCTION BEFOREREPORT RETURN BOOLEAN IS
32 BEGIN
33 P_CONC_REQUEST_ID := FND_GLOBAL.CONC_REQUEST_ID;
34 select SUBSTR(argument1,INSTR(argument1,'=',1)+1,LENGTH(argument1)),
35 SUBSTR(argument2,INSTR(argument2,'=',1)+1,LENGTH(argument2))
36 into P_MASS_RECLASS_ID_1,P_REQUEST_ID_1
37 from FND_CONCURRENT_REQUESTS
38 where request_id=P_CONC_REQUEST_ID;
39 RETURN (TRUE);
40 END BEFOREREPORT;
41
42 FUNCTION AFTERREPORT RETURN BOOLEAN IS
46
43 BEGIN
44 RETURN (TRUE);
45 END AFTERREPORT;
47 FUNCTION D_SAME_CATFORMULA(OLD_CATEGORY IN VARCHAR2) RETURN VARCHAR2 IS
48 BEGIN
49 IF (OLD_CATEGORY = C_NEW_CATEGORY) THEN
50 RETURN ('*');
51 END IF;
52 RETURN (' ');
53 END D_SAME_CATFORMULA;
54
55 FUNCTION D_BASIC_RATEFORMULA(BASIC_RATE IN NUMBER) RETURN VARCHAR2 IS
56 BEGIN
57 IF (BASIC_RATE IS NOT NULL) THEN
58 RETURN (SUBSTR(TO_CHAR(BASIC_RATE
59 ,'990D00')
60 ,2
61 ,6));
62 END IF;
63 RETURN (' ');
64 END D_BASIC_RATEFORMULA;
65
66 FUNCTION D_ADJUSTED_RATEFORMULA(ADJUSTED_RATE IN NUMBER) RETURN VARCHAR2 IS
67 BEGIN
68 IF (ADJUSTED_RATE IS NOT NULL) THEN
69 RETURN (SUBSTR(TO_CHAR(ADJUSTED_RATE
70 ,'990D00')
71 ,2
72 ,6));
73 END IF;
74 RETURN (' ');
75 END D_ADJUSTED_RATEFORMULA;
76
77 FUNCTION D_SALVAGE_VAL_PCTFORMULA(SALVAGE_VAL_PERCENTAGE IN NUMBER) RETURN VARCHAR2 IS
78 BEGIN
79 IF (SALVAGE_VAL_PERCENTAGE IS NOT NULL) THEN
80 RETURN (SUBSTR(TO_CHAR(SALVAGE_VAL_PERCENTAGE
81 ,'990D00')
82 ,2
83 ,6));
84 END IF;
85 RETURN (' ');
86 END D_SALVAGE_VAL_PCTFORMULA;
87
88 FUNCTION C_DO_UPDATEFORMULA(C_COUNT IN NUMBER) RETURN NUMBER IS
89 BEGIN
90 UPDATE
91 FA_MASS_RECLASS
92 SET
93 STATUS = 'PREVIEWED'
94 WHERE MASS_RECLASS_ID = P_MASS_RECLASS_ID_1
95 AND STATUS = 'PREVIEW';
96 COMMIT;
97 RETURN (C_COUNT);
98 END C_DO_UPDATEFORMULA;
99
100 FUNCTION C_SETUPFORMULA RETURN NUMBER IS
101 L_COMPANY_NAME VARCHAR2(30);
102 BOOK VARCHAR2(15);
103 ASSET_TYPE VARCHAR2(80);
104 FULLY_RSVD VARCHAR2(80);
105 FROM_COST NUMBER;
106 TO_COST NUMBER;
107 FROM_ASSET VARCHAR2(15);
108 TO_ASSET VARCHAR2(15);
109 FROM_DPIS DATE;
110 TO_DPIS DATE;
111 LOCATION VARCHAR2(220);
112 EMP_NAME VARCHAR2(240);
113 EMP_NUM VARCHAR2(30);
114 OLD_CAT VARCHAR2(220);
115 NEW_CAT VARCHAR2(220);
116 ASSET_KEY VARCHAR2(220);
117 FROM_ACCT VARCHAR2(780);
118 TO_ACCT VARCHAR2(780);
119 BEGIN
120 SELECT
121 SC.COMPANY_NAME
122 INTO
123 L_COMPANY_NAME
124 FROM
125 FA_SYSTEM_CONTROLS SC;
126 RP_COMPANY_NAME := L_COMPANY_NAME;
127 FA_MASS_REC_UTILS_PKG.GET_SELECTION_CRITERIA(X_MASS_RECLASS_ID => P_MASS_RECLASS_ID_1
128 ,X_BOOK_TYPE_CODE => BOOK
129 ,X_ASSET_TYPE => ASSET_TYPE
130 ,X_FULLY_RSVD => FULLY_RSVD
131 ,X_FROM_COST => FROM_COST
132 ,X_TO_COST => TO_COST
133 ,X_FROM_ASSET => FROM_ASSET
134 ,X_TO_ASSET => TO_ASSET
135 ,X_FROM_DPIS => FROM_DPIS
136 ,X_TO_DPIS => TO_DPIS
137 ,X_LOCATION => LOCATION
138 ,X_EMPLOYEE_NAME => EMP_NAME
139 ,X_EMPLOYEE_NUMBER => EMP_NUM
140 ,X_OLD_CATEGORY => OLD_CAT
141 ,X_NEW_CATEGORY => NEW_CAT
142 ,X_ASSET_KEY => ASSET_KEY
143 ,X_FROM_EXP_ACCT => FROM_ACCT
144 ,X_TO_EXP_ACCT => TO_ACCT
145 ,P_LOG_LEVEL_REC => NULL);
146 GET_CURRENCY_CODE(BOOK);
147 C_BOOK := BOOK;
148 C_ASSET_TYPE := ASSET_TYPE;
149 C_FULLY_RSVD := FULLY_RSVD;
150 C_FROM_COST := FROM_COST;
151 C_TO_COST := TO_COST;
152 C_FROM_ASSET := FROM_ASSET;
153 C_TO_ASSET := TO_ASSET;
154 C_FROM_DPIS := FROM_DPIS;
155 C_TO_DPIS := TO_DPIS;
156 C_LOCATION := LOCATION;
157 C_EMP_NAME := EMP_NAME;
158 C_EMP_NUM := EMP_NUM;
159 C_OLD_CATEGORY := OLD_CAT;
160 C_NEW_CATEGORY := NEW_CAT;
161 C_ASSET_KEY := ASSET_KEY;
162 C_FROM_ACCT := FROM_ACCT;
163 C_TO_ACCT := TO_ACCT;
164 RETURN (0);
165 RETURN NULL;
166 EXCEPTION
167 WHEN NO_DATA_FOUND THEN
168 RP_COMPANY_NAME := ' ';
169 C_BOOK := ' ';
170 C_ASSET_TYPE := ' ';
171 C_FULLY_RSVD := ' ';
172 C_FROM_COST := NULL;
173 C_TO_COST := NULL;
174 C_FROM_ASSET := ' ';
175 C_TO_ASSET := ' ';
176 C_FROM_DPIS := NULL;
177 C_TO_DPIS := NULL;
178 C_LOCATION := ' ';
179 C_EMP_NAME := ' ';
180 C_EMP_NUM := ' ';
181 C_OLD_CATEGORY := ' ';
182 C_NEW_CATEGORY := ' ';
183 C_ASSET_KEY := ' ';
184 C_FROM_ACCT := ' ';
185 C_TO_ACCT := ' ';
186 RETURN (1);
187 END C_SETUPFORMULA;
188
189 FUNCTION C_ASSET_TYPE_P RETURN VARCHAR2 IS
190 BEGIN
191 RETURN C_ASSET_TYPE;
192 END C_ASSET_TYPE_P;
193
194 FUNCTION C_FULLY_RSVD_P RETURN VARCHAR2 IS
195 BEGIN
196 RETURN C_FULLY_RSVD;
197 END C_FULLY_RSVD_P;
198
199 FUNCTION C_FROM_COST_P RETURN NUMBER IS
200 BEGIN
201 RETURN C_FROM_COST;
202 END C_FROM_COST_P;
203
204 FUNCTION C_TO_COST_P RETURN NUMBER IS
205 BEGIN
206 RETURN C_TO_COST;
207 END C_TO_COST_P;
208
209 FUNCTION C_FROM_ASSET_P RETURN VARCHAR2 IS
210 BEGIN
211 RETURN C_FROM_ASSET;
212 END C_FROM_ASSET_P;
213
214 FUNCTION C_TO_ASSET_P RETURN VARCHAR2 IS
215 BEGIN
216 RETURN C_TO_ASSET;
217 END C_TO_ASSET_P;
218
219 FUNCTION C_FROM_DPIS_P RETURN DATE IS
220 BEGIN
221 RETURN C_FROM_DPIS;
222 END C_FROM_DPIS_P;
223
224 FUNCTION C_TO_DPIS_P RETURN DATE IS
225 BEGIN
226 RETURN C_TO_DPIS;
227 END C_TO_DPIS_P;
228
229 FUNCTION C_TO_ACCT_P RETURN VARCHAR2 IS
230 BEGIN
231 RETURN C_TO_ACCT;
232 END C_TO_ACCT_P;
233
234 FUNCTION C_LOCATION_P RETURN VARCHAR2 IS
235 BEGIN
236 RETURN C_LOCATION;
237 END C_LOCATION_P;
238
239 FUNCTION C_EMP_NAME_P RETURN VARCHAR2 IS
240 BEGIN
241 RETURN C_EMP_NAME;
242 END C_EMP_NAME_P;
243
244 FUNCTION C_EMP_NUM_P RETURN VARCHAR2 IS
245 BEGIN
246 RETURN C_EMP_NUM;
247 END C_EMP_NUM_P;
248
249 FUNCTION C_OLD_CATEGORY_P RETURN VARCHAR2 IS
250 BEGIN
251 RETURN C_OLD_CATEGORY;
252 END C_OLD_CATEGORY_P;
253
254 FUNCTION C_ASSET_KEY_P RETURN VARCHAR2 IS
255 BEGIN
256 RETURN C_ASSET_KEY;
257 END C_ASSET_KEY_P;
258
259 FUNCTION C_FROM_ACCT_P RETURN VARCHAR2 IS
260 BEGIN
261 RETURN C_FROM_ACCT;
262 END C_FROM_ACCT_P;
263
264 FUNCTION C_NEW_CATEGORY_P RETURN VARCHAR2 IS
265 BEGIN
266 RETURN C_NEW_CATEGORY;
267 END C_NEW_CATEGORY_P;
268
269 FUNCTION C_CURRENCY_CODE_P RETURN VARCHAR2 IS
270 BEGIN
271 RETURN C_CURRENCY_CODE;
272 END C_CURRENCY_CODE_P;
273
274 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
275 BEGIN
276 RETURN RP_COMPANY_NAME;
277 END RP_COMPANY_NAME_P;
278
279 FUNCTION C_BOOK_P RETURN VARCHAR2 IS
280 BEGIN
281 RETURN C_BOOK;
282 END C_BOOK_P;
283
284 END FA_FASRCPVW_XMLP_PKG;
285