[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.1 2008/07/28 13:17:23 appldev 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
43 BEGIN
44 RETURN (TRUE);
45 END AFTERREPORT;
46
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 GET_CURRENCY_CODE(BOOK);
146 C_BOOK := BOOK;
147 C_ASSET_TYPE := ASSET_TYPE;
148 C_FULLY_RSVD := FULLY_RSVD;
149 C_FROM_COST := FROM_COST;
150 C_TO_COST := TO_COST;
151 C_FROM_ASSET := FROM_ASSET;
152 C_TO_ASSET := TO_ASSET;
153 C_FROM_DPIS := FROM_DPIS;
154 C_TO_DPIS := TO_DPIS;
155 C_LOCATION := LOCATION;
156 C_EMP_NAME := EMP_NAME;
157 C_EMP_NUM := EMP_NUM;
158 C_OLD_CATEGORY := OLD_CAT;
159 C_NEW_CATEGORY := NEW_CAT;
160 C_ASSET_KEY := ASSET_KEY;
161 C_FROM_ACCT := FROM_ACCT;
162 C_TO_ACCT := TO_ACCT;
163 RETURN (0);
164 RETURN NULL;
165 EXCEPTION
166 WHEN NO_DATA_FOUND THEN
167 RP_COMPANY_NAME := ' ';
168 C_BOOK := ' ';
169 C_ASSET_TYPE := ' ';
170 C_FULLY_RSVD := ' ';
171 C_FROM_COST := NULL;
172 C_TO_COST := NULL;
173 C_FROM_ASSET := ' ';
174 C_TO_ASSET := ' ';
175 C_FROM_DPIS := NULL;
176 C_TO_DPIS := NULL;
177 C_LOCATION := ' ';
178 C_EMP_NAME := ' ';
179 C_EMP_NUM := ' ';
180 C_OLD_CATEGORY := ' ';
181 C_NEW_CATEGORY := ' ';
182 C_ASSET_KEY := ' ';
183 C_FROM_ACCT := ' ';
184 C_TO_ACCT := ' ';
185 RETURN (1);
186 END C_SETUPFORMULA;
187
188 FUNCTION C_ASSET_TYPE_P RETURN VARCHAR2 IS
189 BEGIN
190 RETURN C_ASSET_TYPE;
191 END C_ASSET_TYPE_P;
192
193 FUNCTION C_FULLY_RSVD_P RETURN VARCHAR2 IS
194 BEGIN
195 RETURN C_FULLY_RSVD;
196 END C_FULLY_RSVD_P;
197
198 FUNCTION C_FROM_COST_P RETURN NUMBER IS
199 BEGIN
200 RETURN C_FROM_COST;
201 END C_FROM_COST_P;
202
203 FUNCTION C_TO_COST_P RETURN NUMBER IS
204 BEGIN
205 RETURN C_TO_COST;
206 END C_TO_COST_P;
207
208 FUNCTION C_FROM_ASSET_P RETURN VARCHAR2 IS
209 BEGIN
210 RETURN C_FROM_ASSET;
211 END C_FROM_ASSET_P;
212
213 FUNCTION C_TO_ASSET_P RETURN VARCHAR2 IS
214 BEGIN
215 RETURN C_TO_ASSET;
216 END C_TO_ASSET_P;
217
218 FUNCTION C_FROM_DPIS_P RETURN DATE IS
219 BEGIN
220 RETURN C_FROM_DPIS;
221 END C_FROM_DPIS_P;
222
223 FUNCTION C_TO_DPIS_P RETURN DATE IS
224 BEGIN
225 RETURN C_TO_DPIS;
226 END C_TO_DPIS_P;
227
228 FUNCTION C_TO_ACCT_P RETURN VARCHAR2 IS
229 BEGIN
230 RETURN C_TO_ACCT;
231 END C_TO_ACCT_P;
232
233 FUNCTION C_LOCATION_P RETURN VARCHAR2 IS
234 BEGIN
235 RETURN C_LOCATION;
236 END C_LOCATION_P;
237
238 FUNCTION C_EMP_NAME_P RETURN VARCHAR2 IS
239 BEGIN
240 RETURN C_EMP_NAME;
241 END C_EMP_NAME_P;
242
243 FUNCTION C_EMP_NUM_P RETURN VARCHAR2 IS
244 BEGIN
245 RETURN C_EMP_NUM;
246 END C_EMP_NUM_P;
247
248 FUNCTION C_OLD_CATEGORY_P RETURN VARCHAR2 IS
249 BEGIN
250 RETURN C_OLD_CATEGORY;
251 END C_OLD_CATEGORY_P;
252
253 FUNCTION C_ASSET_KEY_P RETURN VARCHAR2 IS
254 BEGIN
255 RETURN C_ASSET_KEY;
256 END C_ASSET_KEY_P;
257
258 FUNCTION C_FROM_ACCT_P RETURN VARCHAR2 IS
259 BEGIN
260 RETURN C_FROM_ACCT;
261 END C_FROM_ACCT_P;
262
263 FUNCTION C_NEW_CATEGORY_P RETURN VARCHAR2 IS
264 BEGIN
265 RETURN C_NEW_CATEGORY;
266 END C_NEW_CATEGORY_P;
267
268 FUNCTION C_CURRENCY_CODE_P RETURN VARCHAR2 IS
269 BEGIN
270 RETURN C_CURRENCY_CODE;
271 END C_CURRENCY_CODE_P;
272
273 FUNCTION RP_COMPANY_NAME_P RETURN VARCHAR2 IS
274 BEGIN
275 RETURN RP_COMPANY_NAME;
276 END RP_COMPANY_NAME_P;
277
278 FUNCTION C_BOOK_P RETURN VARCHAR2 IS
279 BEGIN
280 RETURN C_BOOK;
281 END C_BOOK_P;
282
283 END FA_FASRCPVW_XMLP_PKG;
284