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