[Home] [Help]
PACKAGE BODY: APPS.PA_FIN_PLAN_TYPES_PKG
Source
1 package body PA_FIN_PLAN_TYPES_PKG as
2 /* $Header: PAFPTYPB.pls 120.4 2007/02/06 10:11:49 dthakker noship $ */
3 procedure INSERT_ROW (
4 X_ROWID in out NOCOPY ROWID, --File.Sql.39 bug 4440895
5 X_FIN_PLAN_TYPE_ID in NUMBER,
6 X_FIN_PLAN_TYPE_CODE in VARCHAR2,
7 X_PRE_DEFINED_FLAG in VARCHAR2,
8 X_GENERATED_FLAG in VARCHAR2,
9 X_EDIT_GENERATED_AMT_FLAG in VARCHAR2,
10 X_USED_IN_BILLING_FLAG in VARCHAR2,
11 X_ENABLE_WF_FLAG in VARCHAR2,
12 X_START_DATE_ACTIVE in DATE,
13 X_END_DATE_ACTIVE in DATE,
14 X_RECORD_VERSION_NUMBER in NUMBER,
15 X_NAME in VARCHAR2,
16 X_DESCRIPTION in VARCHAR2,
17 X_PLAN_CLASS_CODE in VARCHAR2 ,
18 X_APPROVED_COST_PLAN_TYPE_FLAG in VARCHAR2 ,
19 X_APPROVED_REV_PLAN_TYPE_FLAG in VARCHAR2 ,
20 X_PROJFUNC_COST_RATE_TYPE in VARCHAR2 ,
21 X_PROJFUNC_COST_RATE_DATE_TYPE in VARCHAR2 ,
22 X_PROJFUNC_COST_RATE_DATE in DATE ,
23 X_PROJFUNC_REV_RATE_TYPE in VARCHAR2 ,
24 X_PROJFUNC_REV_RATE_DATE_TYPE in VARCHAR2 ,
25 X_PROJFUNC_REV_RATE_DATE in DATE ,
26 X_PROJECT_COST_RATE_TYPE in VARCHAR2 ,
27 X_PROJECT_COST_RATE_DATE_TYPE in VARCHAR2 ,
28 X_PROJECT_COST_RATE_DATE in DATE ,
29 X_PROJECT_REV_RATE_TYPE in VARCHAR2 ,
30 X_PROJECT_REV_RATE_DATE_TYPE in VARCHAR2 ,
31 X_PROJECT_REV_RATE_DATE in DATE ,
32 X_ATTRIBUTE_CATEGORY in VARCHAR2 ,
33 X_ATTRIBUTE1 in VARCHAR2 ,
34 X_ATTRIBUTE2 in VARCHAR2 ,
35 X_ATTRIBUTE3 in VARCHAR2 ,
36 X_ATTRIBUTE4 in VARCHAR2 ,
37 X_ATTRIBUTE5 in VARCHAR2 ,
38 X_ATTRIBUTE6 in VARCHAR2 ,
39 X_ATTRIBUTE7 in VARCHAR2 ,
40 X_ATTRIBUTE8 in VARCHAR2 ,
41 X_ATTRIBUTE9 in VARCHAR2 ,
42 X_ATTRIBUTE10 in VARCHAR2 ,
43 X_ATTRIBUTE11 in VARCHAR2 ,
44 X_ATTRIBUTE12 in VARCHAR2 ,
45 X_ATTRIBUTE13 in VARCHAR2 ,
46 X_ATTRIBUTE14 in VARCHAR2 ,
47 X_ATTRIBUTE15 in VARCHAR2 ,
48 X_CREATION_DATE in DATE ,
49 X_CREATED_BY in NUMBER ,
50 X_LAST_UPDATE_DATE in DATE ,
51 X_LAST_UPDATED_BY in NUMBER ,
52 X_LAST_UPDATE_LOGIN in NUMBER ,
53 X_MIGRATED_FRM_BDGT_TYP_CODE in VARCHAR2 default null,
54 /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
55 */
56 X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
57 X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
58 X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
59 X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
60 X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
61 is
62
63 l_fin_plan_type_id pa_Fin_plan_types_b.fin_plan_type_id%type;
64
65 nc_ROWID ROWID;
66
67 cursor C is select ROWID from PA_FIN_PLAN_TYPES_B
68 where FIN_PLAN_TYPE_ID = L_FIN_PLAN_TYPE_ID;
69 begin
70 nc_ROWID := X_ROWID;
71
72 select nvl(X_FIN_PLAN_TYPE_ID,PA_FIN_PLAN_TYPES_S.nextval)
73 into L_FIN_PLAN_TYPE_ID
74 from dual;
75
76 insert into PA_FIN_PLAN_TYPES_B (
77 FIN_PLAN_TYPE_ID ,
78 FIN_PLAN_TYPE_CODE ,
79 PRE_DEFINED_FLAG ,
80 GENERATED_FLAG ,
81 EDIT_GENERATED_AMT_FLAG ,
82 USED_IN_BILLING_FLAG ,
83 ENABLE_WF_FLAG ,
84 START_DATE_ACTIVE ,
85 END_DATE_ACTIVE ,
86 RECORD_VERSION_NUMBER ,
87 PLAN_CLASS_CODE ,
88 APPROVED_COST_PLAN_TYPE_FLAG ,
89 APPROVED_REV_PLAN_TYPE_FLAG ,
90 PROJFUNC_COST_RATE_TYPE ,
91 PROJFUNC_COST_RATE_DATE_TYPE ,
92 PROJFUNC_COST_RATE_DATE ,
93 PROJFUNC_REV_RATE_TYPE ,
94 PROJFUNC_REV_RATE_DATE_TYPE ,
95 PROJFUNC_REV_RATE_DATE ,
96 PROJECT_COST_RATE_TYPE ,
97 PROJECT_COST_RATE_DATE_TYPE ,
98 PROJECT_COST_RATE_DATE ,
99 PROJECT_REV_RATE_TYPE ,
100 PROJECT_REV_RATE_DATE_TYPE ,
101 PROJECT_REV_RATE_DATE ,
102 ATTRIBUTE_CATEGORY ,
103 ATTRIBUTE1 ,
104 ATTRIBUTE2 ,
105 ATTRIBUTE3 ,
106 ATTRIBUTE4 ,
107 ATTRIBUTE5 ,
108 ATTRIBUTE6 ,
109 ATTRIBUTE7 ,
110 ATTRIBUTE8 ,
111 ATTRIBUTE9 ,
112 ATTRIBUTE10 ,
113 ATTRIBUTE11 ,
114 ATTRIBUTE12 ,
115 ATTRIBUTE13 ,
116 ATTRIBUTE14 ,
117 ATTRIBUTE15 ,
118 CREATION_DATE ,
119 CREATED_BY ,
120 LAST_UPDATE_DATE ,
121 LAST_UPDATED_BY ,
122 LAST_UPDATE_LOGIN ,
123 MIGRATED_FRM_BDGT_TYP_CODE,
124 /* dbora --- FP M - 13-NOV-03
125 */
126 ENABLE_PARTIAL_IMPL_FLAG ,
127 PRIMARY_COST_FORECAST_FLAG,
128 PRIMARY_REV_FORECAST_FLAG,
129 EDIT_AFTER_BASELINE_FLAG,
130 USE_FOR_WORKPLAN_FLAG
131 ) values (
132 L_FIN_PLAN_TYPE_ID ,
133 X_FIN_PLAN_TYPE_CODE ,
134 X_PRE_DEFINED_FLAG ,
135 X_GENERATED_FLAG ,
136 decode(X_GENERATED_FLAG,'N','N',X_EDIT_GENERATED_AMT_FLAG),
137 X_USED_IN_BILLING_FLAG ,
138 X_ENABLE_WF_FLAG ,
139 X_START_DATE_ACTIVE ,
140 X_END_DATE_ACTIVE ,
141 1 ,
142 X_PLAN_CLASS_CODE ,
143 X_APPROVED_COST_PLAN_TYPE_FLAG ,
144 X_APPROVED_REV_PLAN_TYPE_FLAG ,
145 X_PROJFUNC_COST_RATE_TYPE ,
146 X_PROJFUNC_COST_RATE_DATE_TYPE ,
147 X_PROJFUNC_COST_RATE_DATE ,
148 X_PROJFUNC_REV_RATE_TYPE ,
149 X_PROJFUNC_REV_RATE_DATE_TYPE ,
150 X_PROJFUNC_REV_RATE_DATE ,
151 X_PROJECT_COST_RATE_TYPE ,
152 X_PROJECT_COST_RATE_DATE_TYPE ,
153 X_PROJECT_COST_RATE_DATE ,
154 X_PROJECT_REV_RATE_TYPE ,
155 X_PROJECT_REV_RATE_DATE_TYPE ,
156 X_PROJECT_REV_RATE_DATE ,
157 X_ATTRIBUTE_CATEGORY ,
158 X_ATTRIBUTE1 ,
159 X_ATTRIBUTE2 ,
160 X_ATTRIBUTE3 ,
161 X_ATTRIBUTE4 ,
162 X_ATTRIBUTE5 ,
163 X_ATTRIBUTE6 ,
164 X_ATTRIBUTE7 ,
165 X_ATTRIBUTE8 ,
166 X_ATTRIBUTE9 ,
167 X_ATTRIBUTE10 ,
168 X_ATTRIBUTE11 ,
169 X_ATTRIBUTE12 ,
170 X_ATTRIBUTE13 ,
171 X_ATTRIBUTE14 ,
172 X_ATTRIBUTE15 ,
173 X_CREATION_DATE ,
174 X_CREATED_BY ,
175 X_LAST_UPDATE_DATE ,
176 X_LAST_UPDATED_BY ,
177 X_LAST_UPDATE_LOGIN ,
178 X_MIGRATED_FRM_BDGT_TYP_CODE,
179 /* dbora --- FP M - 13-NOV-03
180 */
181 NVL (X_ENABLE_PARTIAL_IMPL_FLAG , 'N'),
182 NVL (X_PRIMARY_COST_FORECAST_FLAG,'N'),
183 NVL (X_PRIMARY_REV_FORECAST_FLAG, 'N'),
184 NVL (X_EDIT_AFTER_BASELINE_FLAG,'N'),
185 NVL (X_USE_FOR_WORKPLAN_FLAG, 'N')
186 );
187
188 insert into PA_FIN_PLAN_TYPES_TL (
189 LAST_UPDATE_LOGIN,
190 CREATION_DATE,
191 CREATED_BY,
192 LAST_UPDATE_DATE,
193 LAST_UPDATED_BY,
194 FIN_PLAN_TYPE_ID,
195 NAME,
196 DESCRIPTION,
197 LANGUAGE,
198 SOURCE_LANG
199 ) select
200 X_LAST_UPDATE_LOGIN,
201 X_CREATION_DATE,
202 X_CREATED_BY,
203 X_LAST_UPDATE_DATE,
204 X_LAST_UPDATED_BY,
205 L_FIN_PLAN_TYPE_ID,
206 X_NAME,
207 X_DESCRIPTION,
208 L.LANGUAGE_CODE,
209 userenv('LANG')
210 from FND_LANGUAGES L
211 where L.INSTALLED_FLAG in ('I', 'B')
212 and not exists
213 (select NULL
214 from PA_FIN_PLAN_TYPES_TL T
215 where T.FIN_PLAN_TYPE_ID = L_FIN_PLAN_TYPE_ID
216 and T.LANGUAGE = L.LANGUAGE_CODE);
217
218 open c;
219 fetch c into X_ROWID;
220 if (c%notfound) then
221 close c;
222 raise no_data_found;
223 end if;
224 close c;
225
226 EXCEPTION
227 WHEN OTHERS THEN
228 X_ROWID := nc_ROWID;
229 RAISE;
230
231 end INSERT_ROW;
232
233 procedure LOCK_ROW (
234 X_FIN_PLAN_TYPE_ID in NUMBER,
235 X_FIN_PLAN_TYPE_CODE in VARCHAR2 default null,
236 X_PRE_DEFINED_FLAG in VARCHAR2 default null,
237 X_GENERATED_FLAG in VARCHAR2 default null,
238 X_EDIT_GENERATED_AMT_FLAG in VARCHAR2 default null,
239 X_USED_IN_BILLING_FLAG in VARCHAR2 default null,
240 X_ENABLE_WF_FLAG in VARCHAR2 default null,
241 X_START_DATE_ACTIVE in DATE default null,
242 X_END_DATE_ACTIVE in DATE default null,
243 X_RECORD_VERSION_NUMBER in NUMBER,
244 X_NAME in VARCHAR2 default null,
245 X_DESCRIPTION in VARCHAR2 default null,
246 X_PLAN_CLASS_CODE in VARCHAR2 default null,
247 X_APPROVED_COST_PLAN_TYPE_FLAG in VARCHAR2 default null,
248 X_APPROVED_REV_PLAN_TYPE_FLAG in VARCHAR2 default null,
249 X_PROJFUNC_COST_RATE_TYPE in VARCHAR2 default null,
250 X_PROJFUNC_COST_RATE_DATE_TYPE in VARCHAR2 default null,
251 X_PROJFUNC_COST_RATE_DATE in DATE default null,
252 X_PROJFUNC_REV_RATE_TYPE in VARCHAR2 default null,
253 X_PROJFUNC_REV_RATE_DATE_TYPE in VARCHAR2 default null,
254 X_PROJFUNC_REV_RATE_DATE in DATE default null,
255 X_PROJECT_COST_RATE_TYPE in VARCHAR2 default null,
256 X_PROJECT_COST_RATE_DATE_TYPE in VARCHAR2 default null,
257 X_PROJECT_COST_RATE_DATE in DATE default null,
258 X_PROJECT_REV_RATE_TYPE in VARCHAR2 default null,
259 X_PROJECT_REV_RATE_DATE_TYPE in VARCHAR2 default null,
260 X_PROJECT_REV_RATE_DATE in DATE default null,
261 X_ATTRIBUTE_CATEGORY in VARCHAR2 default null,
262 X_ATTRIBUTE1 in VARCHAR2 default null,
263 X_ATTRIBUTE2 in VARCHAR2 default null,
264 X_ATTRIBUTE3 in VARCHAR2 default null,
265 X_ATTRIBUTE4 in VARCHAR2 default null,
266 X_ATTRIBUTE5 in VARCHAR2 default null,
267 X_ATTRIBUTE6 in VARCHAR2 default null,
268 X_ATTRIBUTE7 in VARCHAR2 default null,
269 X_ATTRIBUTE8 in VARCHAR2 default null,
270 X_ATTRIBUTE9 in VARCHAR2 default null,
271 X_ATTRIBUTE10 in VARCHAR2 default null,
272 X_ATTRIBUTE11 in VARCHAR2 default null,
273 X_ATTRIBUTE12 in VARCHAR2 default null,
274 X_ATTRIBUTE13 in VARCHAR2 default null,
275 X_ATTRIBUTE14 in VARCHAR2 default null,
276 X_ATTRIBUTE15 in VARCHAR2 default null,
277 X_MIGRATED_FRM_BDGT_TYP_CODE in VARCHAR2 default null,
278 /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
279 */
280 X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
281 X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
282 X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
283 X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
284 X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
285 is
286 cursor c is select
287 FIN_PLAN_TYPE_CODE,
288 PRE_DEFINED_FLAG,
289 GENERATED_FLAG,
290 EDIT_GENERATED_AMT_FLAG,
291 USED_IN_BILLING_FLAG,
292 ENABLE_WF_FLAG,
293 START_DATE_ACTIVE,
294 END_DATE_ACTIVE,
295 RECORD_VERSION_NUMBER
296 from PA_FIN_PLAN_TYPES_B
297 where FIN_PLAN_TYPE_ID = X_FIN_PLAN_TYPE_ID
298 for update of FIN_PLAN_TYPE_ID nowait;
299 recinfo c%rowtype;
300
301 cursor c1 is select
302 NAME,
303 DESCRIPTION,
304 decode(LANGUAGE, userenv('LANG'), 'Y', 'N') BASELANG
305 from PA_FIN_PLAN_TYPES_TL
306 where FIN_PLAN_TYPE_ID = X_FIN_PLAN_TYPE_ID
307 and userenv('LANG') in (LANGUAGE, SOURCE_LANG)
308 for update of FIN_PLAN_TYPE_ID nowait;
309 begin
310
311 /*++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
312 Please note that the only parameters used are
313 FIN_PLAN_TYPE_ID and RECORD_VERSION_NUMBER. The other parameters are
314 retained since the setup plan types page is built based on the _VL entity
315 and would expect the spec of the table handlers to comply standards
316 with all the paramters.
317
318 Commented since RECORD_VERSION_NUMBER logic is implemented
319
320 if ( (recinfo.FIN_PLAN_TYPE_CODE = X_FIN_PLAN_TYPE_CODE)
321 AND ((recinfo.PRE_DEFINED_FLAG = X_PRE_DEFINED_FLAG)
322 OR ((recinfo.PRE_DEFINED_FLAG is null) AND (X_PRE_DEFINED_FLAG is null)))
323 AND ((recinfo.GENERATED_FLAG = X_GENERATED_FLAG)
324 OR ((recinfo.GENERATED_FLAG is null) AND (X_GENERATED_FLAG is null)))
325 AND ((recinfo.EDIT_GENERATED_AMT_FLAG= X_EDIT_GENERATED_AMT_FLAG)
326 OR ((recinfo.EDIT_GENERATED_AMT_FLAG is null) AND (X_EDIT_GENERATED_AMT_FLAG is null)))
327 AND ((recinfo.USED_IN_BILLING_FLAG = X_USED_IN_BILLING_FLAG)
328 OR ((recinfo.USED_IN_BILLING_FLAG is null) AND (X_USED_IN_BILLING_FLAG is null)))
329 AND ((recinfo.ENABLE_WF_FLAG= X_ENABLE_WF_FLAG)
330 OR ((recinfo.ENABLE_WF_FLAG is null) AND (X_ENABLE_WF_FLAG is null)))
331 AND ((recinfo.START_DATE_ACTIVE = X_START_DATE_ACTIVE)
332 OR ((recinfo.START_DATE_ACTIVE is null) and (X_START_DATE_ACTIVE is null)))
333 AND ((recinfo.END_DATE_ACTIVE = X_END_DATE_ACTIVE)
334 OR ((recinfo.END_DATE_ACTIVE is null) and (X_END_DATE_ACTIVE is null)))
335 ) then
336 null;
337 else
338 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
339 app_exception.raise_exception;
340 end if;
341
342 for tlinfo in c1 loop
343 if (tlinfo.BASELANG = 'Y') then
344 if ( (tlinfo.NAME = X_NAME)
345 AND ((tlinfo.DESCRIPTION = X_DESCRIPTION)
346 OR ((tlinfo.DESCRIPTION is null) AND (X_DESCRIPTION is null)))
347 ) then
348 null;
349 else
350 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
351 app_exception.raise_exception;
352 end if;
353 end if;
354 end loop;
355
356 End of comment - Commented since RECORD_VERSION_NUMBER logic is included
357 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++*/
358
359 open c;
360 fetch c into recinfo;
364 app_exception.raise_exception;
361 if (c%notfound) then
362 close c;
363 fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
365 end if;
366 close c;
367
368 if recinfo.RECORD_VERSION_NUMBER = X_RECORD_VERSION_NUMBER then
369 null;
370 else
371 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
372 app_exception.raise_exception;
373 end if;
374
375 return;
376
377 end LOCK_ROW;
378
379 procedure UPDATE_ROW (
380 X_FIN_PLAN_TYPE_ID in NUMBER,
381 X_FIN_PLAN_TYPE_CODE in VARCHAR2 ,
382 X_PRE_DEFINED_FLAG in VARCHAR2 ,
383 X_GENERATED_FLAG in VARCHAR2 ,
384 X_EDIT_GENERATED_AMT_FLAG in VARCHAR2 ,
385 X_USED_IN_BILLING_FLAG in VARCHAR2 ,
386 X_ENABLE_WF_FLAG in VARCHAR2 ,
387 X_START_DATE_ACTIVE in DATE ,
388 X_END_DATE_ACTIVE in DATE ,
389 X_RECORD_VERSION_NUMBER in NUMBER ,
390 X_NAME in VARCHAR2 ,
391 X_DESCRIPTION in VARCHAR2 ,
392 X_PLAN_CLASS_CODE in VARCHAR2 ,
393 X_APPROVED_COST_PLAN_TYPE_FLAG in VARCHAR2 ,
394 X_APPROVED_REV_PLAN_TYPE_FLAG in VARCHAR2 ,
395 X_PROJFUNC_COST_RATE_TYPE in VARCHAR2 ,
396 X_PROJFUNC_COST_RATE_DATE_TYPE in VARCHAR2 ,
397 X_PROJFUNC_COST_RATE_DATE in DATE ,
398 X_PROJFUNC_REV_RATE_TYPE in VARCHAR2 ,
399 X_PROJFUNC_REV_RATE_DATE_TYPE in VARCHAR2 ,
400 X_PROJFUNC_REV_RATE_DATE in DATE ,
401 X_PROJECT_COST_RATE_TYPE in VARCHAR2 ,
402 X_PROJECT_COST_RATE_DATE_TYPE in VARCHAR2 ,
403 X_PROJECT_COST_RATE_DATE in DATE ,
404 X_PROJECT_REV_RATE_TYPE in VARCHAR2 ,
405 X_PROJECT_REV_RATE_DATE_TYPE in VARCHAR2 ,
406 X_PROJECT_REV_RATE_DATE in DATE ,
407 X_ATTRIBUTE_CATEGORY in VARCHAR2 ,
408 X_ATTRIBUTE1 in VARCHAR2 ,
409 X_ATTRIBUTE2 in VARCHAR2 ,
410 X_ATTRIBUTE3 in VARCHAR2 ,
411 X_ATTRIBUTE4 in VARCHAR2 ,
412 X_ATTRIBUTE5 in VARCHAR2 ,
413 X_ATTRIBUTE6 in VARCHAR2 ,
414 X_ATTRIBUTE7 in VARCHAR2 ,
415 X_ATTRIBUTE8 in VARCHAR2 ,
416 X_ATTRIBUTE9 in VARCHAR2 ,
417 X_ATTRIBUTE10 in VARCHAR2 ,
418 X_ATTRIBUTE11 in VARCHAR2 ,
419 X_ATTRIBUTE12 in VARCHAR2 ,
420 X_ATTRIBUTE13 in VARCHAR2 ,
421 X_ATTRIBUTE14 in VARCHAR2 ,
422 X_ATTRIBUTE15 in VARCHAR2 ,
423 X_LAST_UPDATE_DATE in DATE ,
424 X_LAST_UPDATED_BY in NUMBER ,
425 X_LAST_UPDATE_LOGIN in NUMBER ,
426 X_MIGRATED_FRM_BDGT_TYP_CODE in VARCHAR2 default null,
427 /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
428 */
429 X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
430 X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
431 X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
432 X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
433 X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
434 is
435 begin
436 update PA_FIN_PLAN_TYPES_B set
437 FIN_PLAN_TYPE_CODE = X_FIN_PLAN_TYPE_CODE,
438 PRE_DEFINED_FLAG = X_PRE_DEFINED_FLAG,
439 GENERATED_FLAG = X_GENERATED_FLAG,
440 EDIT_GENERATED_AMT_FLAG =
441 decode(X_GENERATED_FLAG,'N','N',X_EDIT_GENERATED_AMT_FLAG),
442 USED_IN_BILLING_FLAG = X_USED_IN_BILLING_FLAG,
443 ENABLE_WF_FLAG = X_ENABLE_WF_FLAG,
444 START_DATE_ACTIVE = X_START_DATE_ACTIVE,
445 END_DATE_ACTIVE = X_END_DATE_ACTIVE,
446 RECORD_VERSION_NUMBER = RECORD_VERSION_NUMBER + 1,
447 PLAN_CLASS_CODE = X_PLAN_CLASS_CODE ,
448 APPROVED_COST_PLAN_TYPE_FLAG = X_APPROVED_COST_PLAN_TYPE_FLAG ,
449 APPROVED_REV_PLAN_TYPE_FLAG = X_APPROVED_REV_PLAN_TYPE_FLAG ,
450 PROJFUNC_COST_RATE_TYPE = X_PROJFUNC_COST_RATE_TYPE ,
451 PROJFUNC_COST_RATE_DATE_TYPE = X_PROJFUNC_COST_RATE_DATE_TYPE ,
452 PROJFUNC_COST_RATE_DATE = X_PROJFUNC_COST_RATE_DATE ,
453 PROJFUNC_REV_RATE_TYPE = X_PROJFUNC_REV_RATE_TYPE ,
454 PROJFUNC_REV_RATE_DATE_TYPE = X_PROJFUNC_REV_RATE_DATE_TYPE ,
455 PROJFUNC_REV_RATE_DATE = X_PROJFUNC_REV_RATE_DATE ,
456 PROJECT_COST_RATE_TYPE = X_PROJECT_COST_RATE_TYPE ,
457 PROJECT_COST_RATE_DATE_TYPE = X_PROJECT_COST_RATE_DATE_TYPE ,
458 PROJECT_COST_RATE_DATE = X_PROJECT_COST_RATE_DATE ,
459 PROJECT_REV_RATE_TYPE = X_PROJECT_REV_RATE_TYPE ,
460 PROJECT_REV_RATE_DATE_TYPE = X_PROJECT_REV_RATE_DATE_TYPE ,
461 PROJECT_REV_RATE_DATE = X_PROJECT_REV_RATE_DATE ,
462 ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY ,
463 ATTRIBUTE1 = X_ATTRIBUTE1 ,
464 ATTRIBUTE2 = X_ATTRIBUTE2 ,
468 ATTRIBUTE6 = X_ATTRIBUTE6 ,
465 ATTRIBUTE3 = X_ATTRIBUTE3 ,
466 ATTRIBUTE4 = X_ATTRIBUTE4 ,
467 ATTRIBUTE5 = X_ATTRIBUTE5 ,
469 ATTRIBUTE7 = X_ATTRIBUTE7 ,
470 ATTRIBUTE8 = X_ATTRIBUTE8 ,
471 ATTRIBUTE9 = X_ATTRIBUTE9 ,
472 ATTRIBUTE10 = X_ATTRIBUTE10 ,
473 ATTRIBUTE11 = X_ATTRIBUTE11 ,
474 ATTRIBUTE12 = X_ATTRIBUTE12 ,
475 ATTRIBUTE13 = X_ATTRIBUTE13 ,
476 ATTRIBUTE14 = X_ATTRIBUTE14 ,
477 ATTRIBUTE15 = X_ATTRIBUTE15 ,
478 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE ,
479 LAST_UPDATED_BY = X_LAST_UPDATED_BY ,
480 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN ,
481 MIGRATED_FRM_BDGT_TYP_CODE = NVL(X_MIGRATED_FRM_BDGT_TYP_CODE,MIGRATED_FRM_BDGT_TYP_CODE),
482 /* dbora --- FP M - 13-NOV-03
483 */
484 ENABLE_PARTIAL_IMPL_FLAG = NVL (X_ENABLE_PARTIAL_IMPL_FLAG , 'N'),
485 PRIMARY_COST_FORECAST_FLAG = NVL (X_PRIMARY_COST_FORECAST_FLAG,'N'),
486 PRIMARY_REV_FORECAST_FLAG = NVL (X_PRIMARY_REV_FORECAST_FLAG, 'N'),
487 EDIT_AFTER_BASELINE_FLAG = NVL (X_EDIT_AFTER_BASELINE_FLAG, 'N'),
488 USE_FOR_WORKPLAN_FLAG = NVL (X_USE_FOR_WORKPLAN_FLAG, 'N')
489
490
491 where FIN_PLAN_TYPE_ID = X_FIN_PLAN_TYPE_ID
492 and decode(pre_defined_flag,'Y',0,nvl(RECORD_VERSION_NUMBER,0) ) =
493 decode(pre_defined_flag,'Y',0,
494 nvl(X_RECORD_VERSION_NUMBER,nvl(RECORD_VERSION_NUMBER,0)));
495
496 if (sql%notfound) then
497 raise no_data_found;
498 end if;
499
500 update PA_FIN_PLAN_TYPES_TL set
501 NAME = X_NAME,
502 DESCRIPTION = X_DESCRIPTION,
503 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
504 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
505 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN,
506 SOURCE_LANG = userenv('LANG')
507 where FIN_PLAN_TYPE_ID = X_FIN_PLAN_TYPE_ID
508 and userenv('LANG') in (LANGUAGE, SOURCE_LANG);
509
510 if (sql%notfound) then
511 raise no_data_found;
512 end if;
513 end UPDATE_ROW;
514
515 procedure DELETE_ROW (
516 X_FIN_PLAN_TYPE_ID in NUMBER
517 ) is
518 begin
519 delete from PA_FIN_PLAN_TYPES_TL
520 where FIN_PLAN_TYPE_ID = X_FIN_PLAN_TYPE_ID;
521
522 if (sql%notfound) then
523 raise no_data_found;
524 end if;
525
526 delete from PA_FIN_PLAN_TYPES_B
527 where FIN_PLAN_TYPE_ID = X_FIN_PLAN_TYPE_ID;
528
529 if (sql%notfound) then
530 raise no_data_found;
531 end if;
532 end DELETE_ROW;
533
534 procedure ADD_LANGUAGE
535 is
536 begin
537 delete from PA_FIN_PLAN_TYPES_TL T
538 where not exists
539 (select NULL
540 from PA_FIN_PLAN_TYPES_B B
541 where B.FIN_PLAN_TYPE_ID = T.FIN_PLAN_TYPE_ID
542 );
543
544 update PA_FIN_PLAN_TYPES_TL T set (
545 NAME,
546 DESCRIPTION
547 ) = (select
548 B.NAME,
549 B.DESCRIPTION
550 from PA_FIN_PLAN_TYPES_TL B
551 where B.FIN_PLAN_TYPE_ID = T.FIN_PLAN_TYPE_ID
552 and B.LANGUAGE = T.SOURCE_LANG)
553 where (
554 T.FIN_PLAN_TYPE_ID,
555 T.LANGUAGE
556 ) in (select
557 SUBT.FIN_PLAN_TYPE_ID,
558 SUBT.LANGUAGE
559 from PA_FIN_PLAN_TYPES_TL SUBB, PA_FIN_PLAN_TYPES_TL SUBT
560 where SUBB.FIN_PLAN_TYPE_ID = SUBT.FIN_PLAN_TYPE_ID
561 and SUBB.LANGUAGE = SUBT.SOURCE_LANG
562 and (SUBB.NAME <> SUBT.NAME
563 or SUBB.DESCRIPTION <> SUBT.DESCRIPTION
564 or (SUBB.DESCRIPTION is null and SUBT.DESCRIPTION is not null)
565 or (SUBB.DESCRIPTION is not null and SUBT.DESCRIPTION is null)
566 ));
567
568 insert into PA_FIN_PLAN_TYPES_TL (
569 LAST_UPDATE_LOGIN,
570 CREATION_DATE,
571 CREATED_BY,
572 LAST_UPDATE_DATE,
573 LAST_UPDATED_BY,
574 FIN_PLAN_TYPE_ID,
575 NAME,
576 DESCRIPTION,
577 LANGUAGE,
578 SOURCE_LANG
579 ) select
580 B.LAST_UPDATE_LOGIN,
581 B.CREATION_DATE,
582 B.CREATED_BY,
583 B.LAST_UPDATE_DATE,
584 B.LAST_UPDATED_BY,
585 B.FIN_PLAN_TYPE_ID,
586 B.NAME,
587 B.DESCRIPTION,
588 L.LANGUAGE_CODE,
589 B.SOURCE_LANG
590 from PA_FIN_PLAN_TYPES_TL B, FND_LANGUAGES L
591 where L.INSTALLED_FLAG in ('I', 'B')
592 and B.LANGUAGE = userenv('LANG')
593 and not exists
594 (select NULL
595 from PA_FIN_PLAN_TYPES_TL T
596 where T.FIN_PLAN_TYPE_ID = B.FIN_PLAN_TYPE_ID
597 and T.LANGUAGE = L.LANGUAGE_CODE);
598 end ADD_LANGUAGE;
599
600 procedure TRANSLATE_ROW(
601 X_FIN_PLAN_TYPE_ID in NUMBER ,
602 X_OWNER in VARCHAR2 ,
603 X_NAME in VARCHAR2 ,
607
604 X_DESCRIPTION in VARCHAR2
605 ) is
606 begin
608 update PA_FIN_PLAN_TYPES_TL set
609 NAME = X_NAME,
610 DESCRIPTION = X_DESCRIPTION,
611 LAST_UPDATE_DATE = sysdate,
612 LAST_UPDATED_BY = decode(X_OWNER, 'SEED', 1, 0),
613 LAST_UPDATE_LOGIN = 0,
614 source_lang = userenv('LANG')
615 where FIN_PLAN_TYPE_ID = X_FIN_PLAN_TYPE_ID
616 and USERENV('LANG') IN ( LANGUAGE , SOURCE_LANG );
617
618 if (sql%notfound) then
619 raise no_data_found;
620 end if;
621
622 end TRANSLATE_ROW;
623
624 procedure LOAD_ROW(
625 X_FIN_PLAN_TYPE_ID in NUMBER,
626 X_FIN_PLAN_TYPE_CODE in VARCHAR2,
627 X_PRE_DEFINED_FLAG in VARCHAR2,
628 X_GENERATED_FLAG in VARCHAR2,
629 X_EDIT_GENERATED_AMT_FLAG in VARCHAR2,
630 X_USED_IN_BILLING_FLAG in VARCHAR2,
631 X_ENABLE_WF_FLAG in VARCHAR2,
632 X_START_DATE_ACTIVE in DATE,
633 X_END_DATE_ACTIVE in DATE,
634 X_RECORD_VERSION_NUMBER in NUMBER,
635 X_NAME in VARCHAR2,
636 X_DESCRIPTION in VARCHAR2,
637 X_PLAN_CLASS_CODE in VARCHAR2 ,
638 X_APPROVED_COST_PLAN_TYPE_FLAG in VARCHAR2 ,
639 X_APPROVED_REV_PLAN_TYPE_FLAG in VARCHAR2 ,
640 X_PROJFUNC_COST_RATE_TYPE in VARCHAR2 ,
641 X_PROJFUNC_COST_RATE_DATE_TYPE in VARCHAR2 ,
642 X_PROJFUNC_COST_RATE_DATE in DATE ,
643 X_PROJFUNC_REV_RATE_TYPE in VARCHAR2 ,
644 X_PROJFUNC_REV_RATE_DATE_TYPE in VARCHAR2 ,
645 X_PROJFUNC_REV_RATE_DATE in DATE ,
646 X_PROJECT_COST_RATE_TYPE in VARCHAR2 ,
647 X_PROJECT_COST_RATE_DATE_TYPE in VARCHAR2 ,
648 X_PROJECT_COST_RATE_DATE in DATE ,
649 X_PROJECT_REV_RATE_TYPE in VARCHAR2 ,
650 X_PROJECT_REV_RATE_DATE_TYPE in VARCHAR2 ,
651 X_PROJECT_REV_RATE_DATE in DATE ,
652 X_ATTRIBUTE_CATEGORY in VARCHAR2 ,
653 X_ATTRIBUTE1 in VARCHAR2 ,
654 X_ATTRIBUTE2 in VARCHAR2 ,
655 X_ATTRIBUTE3 in VARCHAR2 ,
656 X_ATTRIBUTE4 in VARCHAR2 ,
657 X_ATTRIBUTE5 in VARCHAR2 ,
658 X_ATTRIBUTE6 in VARCHAR2 ,
659 X_ATTRIBUTE7 in VARCHAR2 ,
660 X_ATTRIBUTE8 in VARCHAR2 ,
661 X_ATTRIBUTE9 in VARCHAR2 ,
662 X_ATTRIBUTE10 in VARCHAR2 ,
663 X_ATTRIBUTE11 in VARCHAR2 ,
664 X_ATTRIBUTE12 in VARCHAR2 ,
665 X_ATTRIBUTE13 in VARCHAR2 ,
666 X_ATTRIBUTE14 in VARCHAR2 ,
667 X_ATTRIBUTE15 in VARCHAR2 ,
668 X_MIGRATED_FRM_BDGT_TYP_CODE in VARCHAR2 default null ,
669 X_OWNER in VARCHAR2,
670 /* dbora --- FP M --13-NOV-03 :Introduced the following additional parameters to check for different set up options
671 */
672 X_ENABLE_PARTIAL_IMPL_FLAG IN PA_FIN_PLAN_TYPES_B.ENABLE_PARTIAL_IMPL_FLAG%TYPE,
673 X_PRIMARY_COST_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_COST_FORECAST_FLAG%TYPE,
674 X_PRIMARY_REV_FORECAST_FLAG IN PA_FIN_PLAN_TYPES_B.PRIMARY_REV_FORECAST_FLAG%TYPE,
675 X_EDIT_AFTER_BASELINE_FLAG IN PA_FIN_PLAN_TYPES_B.EDIT_AFTER_BASELINE_FLAG%TYPE,
676 X_USE_FOR_WORKPLAN_FLAG IN PA_FIN_PLAN_TYPES_B.USE_FOR_WORKPLAN_FLAG%TYPE)
677 is
678
679 user_id NUMBER;
680 X_ROWID VARCHAR2(64);
681 l_wp_plan_type_id pa_fin_plan_types_b.fin_plan_type_id%TYPE; --Bug 5437529.
682 l_use_for_workplan_flag pa_fin_plan_types_b.use_for_workplan_flag%TYPE; --Bug 5437529.
683
684 begin
685
686 if (X_OWNER = 'SEED')then
687 user_id := 1;
688 else
689 user_id :=0;
690 end if;
691 /* Start of code changes for bug 5437529.Code changes are done to take care the following issue.
692 When the customer changes some other plan type other than the seeded plan type(fin_plan_type_id = '10')
693 as the workplan plan type and, if the ldt pafpptyp.ldt is reuploaded then use_for_workplan_flag
694 will bet set as 'Y' for the seeded plan type. So, there will be two plan types with use_for_workplan_flag as 'Y'.
695 So, need to make the X_USE_FOR_WORKPLAN_FLAG as 'N' if
696 - the plan type being uploaded is 10 AND
697 - the plan type being used for WORKPLAN is different
698 */
699 BEGIN
700 SELECT fin_plan_type_id
701 INTO l_wp_plan_type_id
702 FROM pa_fin_plan_types_b
703 WHERE use_for_workplan_flag = 'Y';
704 EXCEPTION
705 WHEN NO_DATA_FOUND THEN
706 --The seeded plan type is not yet created in the instance. Assign the id of of the seeded plan
707 --type in this case since eventually it will be used as workplan plan type.
708 l_wp_plan_type_id := 10;
709 END;
710
711 l_use_for_workplan_flag := X_USE_FOR_WORKPLAN_FLAG;
712 IF (X_FIN_PLAN_TYPE_ID = 10) AND (l_wp_plan_type_id <> 10) THEN
713 l_use_for_workplan_flag := 'N';
714 END IF;
715 /* End of code changes for bug 5437529 */
716
717 PA_FIN_PLAN_TYPES_PKG.UPDATE_ROW (
718 X_FIN_PLAN_TYPE_ID => X_FIN_PLAN_TYPE_ID ,
722 X_EDIT_GENERATED_AMT_FLAG => X_EDIT_GENERATED_AMT_FLAG ,
719 X_FIN_PLAN_TYPE_CODE => X_FIN_PLAN_TYPE_CODE ,
720 X_PRE_DEFINED_FLAG => X_PRE_DEFINED_FLAG ,
721 X_GENERATED_FLAG => X_GENERATED_FLAG ,
723 X_USED_IN_BILLING_FLAG => X_USED_IN_BILLING_FLAG ,
724 X_ENABLE_WF_FLAG => X_ENABLE_WF_FLAG ,
725 X_START_DATE_ACTIVE => X_START_DATE_ACTIVE ,
726 X_END_DATE_ACTIVE => X_END_DATE_ACTIVE ,
727 X_RECORD_VERSION_NUMBER => X_RECORD_VERSION_NUMBER ,
728 X_NAME => X_NAME ,
729 X_DESCRIPTION => X_DESCRIPTION ,
730 X_PLAN_CLASS_CODE => X_PLAN_CLASS_CODE ,
731 X_APPROVED_COST_PLAN_TYPE_FLAG => X_APPROVED_COST_PLAN_TYPE_FLAG ,
732 X_APPROVED_REV_PLAN_TYPE_FLAG => X_APPROVED_REV_PLAN_TYPE_FLAG ,
733 X_PROJFUNC_COST_RATE_TYPE => X_PROJFUNC_COST_RATE_TYPE ,
734 X_PROJFUNC_COST_RATE_DATE_TYPE => X_PROJFUNC_COST_RATE_DATE_TYPE ,
735 X_PROJFUNC_COST_RATE_DATE => X_PROJFUNC_COST_RATE_DATE ,
736 X_PROJFUNC_REV_RATE_TYPE => X_PROJFUNC_REV_RATE_TYPE ,
737 X_PROJFUNC_REV_RATE_DATE_TYPE => X_PROJFUNC_REV_RATE_DATE_TYPE ,
738 X_PROJFUNC_REV_RATE_DATE => X_PROJFUNC_REV_RATE_DATE ,
739 X_PROJECT_COST_RATE_TYPE => X_PROJECT_COST_RATE_TYPE ,
740 X_PROJECT_COST_RATE_DATE_TYPE => X_PROJECT_COST_RATE_DATE_TYPE ,
741 X_PROJECT_COST_RATE_DATE => X_PROJECT_COST_RATE_DATE ,
742 X_PROJECT_REV_RATE_TYPE => X_PROJECT_REV_RATE_TYPE ,
743 X_PROJECT_REV_RATE_DATE_TYPE => X_PROJECT_REV_RATE_DATE_TYPE ,
744 X_PROJECT_REV_RATE_DATE => X_PROJECT_REV_RATE_DATE ,
745 X_ATTRIBUTE_CATEGORY => X_ATTRIBUTE_CATEGORY ,
746 X_ATTRIBUTE1 => X_ATTRIBUTE1 ,
747 X_ATTRIBUTE2 => X_ATTRIBUTE2 ,
748 X_ATTRIBUTE3 => X_ATTRIBUTE3 ,
749 X_ATTRIBUTE4 => X_ATTRIBUTE4 ,
750 X_ATTRIBUTE5 => X_ATTRIBUTE5 ,
751 X_ATTRIBUTE6 => X_ATTRIBUTE6 ,
752 X_ATTRIBUTE7 => X_ATTRIBUTE7 ,
753 X_ATTRIBUTE8 => X_ATTRIBUTE8 ,
754 X_ATTRIBUTE9 => X_ATTRIBUTE9 ,
755 X_ATTRIBUTE10 => X_ATTRIBUTE10 ,
756 X_ATTRIBUTE11 => X_ATTRIBUTE11 ,
757 X_ATTRIBUTE12 => X_ATTRIBUTE12 ,
758 X_ATTRIBUTE13 => X_ATTRIBUTE13 ,
759 X_ATTRIBUTE14 => X_ATTRIBUTE14 ,
760 X_ATTRIBUTE15 => X_ATTRIBUTE15 ,
761 X_LAST_UPDATE_DATE => sysdate ,
762 X_LAST_UPDATED_BY => user_id ,
763 X_LAST_UPDATE_LOGIN => 0 ,
764 X_MIGRATED_FRM_BDGT_TYP_CODE => X_MIGRATED_FRM_BDGT_TYP_CODE,
765 /* dbora --- FP M - 13-NOV-03
766 */
767 X_ENABLE_PARTIAL_IMPL_FLAG => NVL (X_ENABLE_PARTIAL_IMPL_FLAG, 'N'),
768 X_PRIMARY_COST_FORECAST_FLAG => NVL (X_PRIMARY_COST_FORECAST_FLAG,'N'),
769 X_PRIMARY_REV_FORECAST_FLAG => NVL (X_PRIMARY_REV_FORECAST_FLAG, 'N'),
770 X_EDIT_AFTER_BASELINE_FLAG => NVL (X_EDIT_AFTER_BASELINE_FLAG, 'N'),
771 X_USE_FOR_WORKPLAN_FLAG => NVL (l_use_for_workplan_flag, 'N')); --Bug 5437529.
772
773 EXCEPTION
774 WHEN no_data_found then
775 PA_FIN_PLAN_TYPES_PKG.INSERT_ROW (
776 X_ROWID => X_ROWID ,
777 X_FIN_PLAN_TYPE_ID => X_FIN_PLAN_TYPE_ID ,
778 X_FIN_PLAN_TYPE_CODE => X_FIN_PLAN_TYPE_CODE ,
779 X_PRE_DEFINED_FLAG => X_PRE_DEFINED_FLAG ,
780 X_GENERATED_FLAG => X_GENERATED_FLAG ,
781 X_EDIT_GENERATED_AMT_FLAG => X_EDIT_GENERATED_AMT_FLAG ,
782 X_USED_IN_BILLING_FLAG => X_USED_IN_BILLING_FLAG ,
783 X_ENABLE_WF_FLAG => X_ENABLE_WF_FLAG ,
784 X_START_DATE_ACTIVE => X_START_DATE_ACTIVE ,
785 X_END_DATE_ACTIVE => X_END_DATE_ACTIVE ,
786 X_RECORD_VERSION_NUMBER => X_RECORD_VERSION_NUMBER ,
787 X_NAME => X_NAME ,
788 X_DESCRIPTION => X_DESCRIPTION ,
789 X_PLAN_CLASS_CODE => X_PLAN_CLASS_CODE ,
790 X_APPROVED_COST_PLAN_TYPE_FLAG => X_APPROVED_COST_PLAN_TYPE_FLAG ,
791 X_APPROVED_REV_PLAN_TYPE_FLAG => X_APPROVED_REV_PLAN_TYPE_FLAG ,
792 X_PROJFUNC_COST_RATE_TYPE => X_PROJFUNC_COST_RATE_TYPE ,
793 X_PROJFUNC_COST_RATE_DATE_TYPE => X_PROJFUNC_COST_RATE_DATE_TYPE ,
794 X_PROJFUNC_COST_RATE_DATE => X_PROJFUNC_COST_RATE_DATE ,
795 X_PROJFUNC_REV_RATE_TYPE => X_PROJFUNC_REV_RATE_TYPE ,
796 X_PROJFUNC_REV_RATE_DATE_TYPE => X_PROJFUNC_REV_RATE_DATE_TYPE ,
797 X_PROJFUNC_REV_RATE_DATE => X_PROJFUNC_REV_RATE_DATE ,
798 X_PROJECT_COST_RATE_TYPE => X_PROJECT_COST_RATE_TYPE ,
799 X_PROJECT_COST_RATE_DATE_TYPE => X_PROJECT_COST_RATE_DATE_TYPE ,
800 X_PROJECT_COST_RATE_DATE => X_PROJECT_COST_RATE_DATE ,
801 X_PROJECT_REV_RATE_TYPE => X_PROJECT_REV_RATE_TYPE ,
802 X_PROJECT_REV_RATE_DATE_TYPE => X_PROJECT_REV_RATE_DATE_TYPE ,
803 X_PROJECT_REV_RATE_DATE => X_PROJECT_REV_RATE_DATE ,
804 X_ATTRIBUTE_CATEGORY => X_ATTRIBUTE_CATEGORY ,
805 X_ATTRIBUTE1 => X_ATTRIBUTE1 ,
806 X_ATTRIBUTE2 => X_ATTRIBUTE2 ,
807 X_ATTRIBUTE3 => X_ATTRIBUTE3 ,
808 X_ATTRIBUTE4 => X_ATTRIBUTE4 ,
809 X_ATTRIBUTE5 => X_ATTRIBUTE5 ,
810 X_ATTRIBUTE6 => X_ATTRIBUTE6 ,
811 X_ATTRIBUTE7 => X_ATTRIBUTE7 ,
812 X_ATTRIBUTE8 => X_ATTRIBUTE8 ,
813 X_ATTRIBUTE9 => X_ATTRIBUTE9 ,
814 X_ATTRIBUTE10 => X_ATTRIBUTE10 ,
815 X_ATTRIBUTE11 => X_ATTRIBUTE11 ,
816 X_ATTRIBUTE12 => X_ATTRIBUTE12 ,
817 X_ATTRIBUTE13 => X_ATTRIBUTE13 ,
818 X_ATTRIBUTE14 => X_ATTRIBUTE14 ,
819 X_ATTRIBUTE15 => X_ATTRIBUTE15 ,
820 X_CREATION_DATE => sysdate ,
821 X_CREATED_BY => user_id ,
822 X_LAST_UPDATE_DATE => sysdate ,
823 X_LAST_UPDATED_BY => user_id ,
824 X_LAST_UPDATE_LOGIN => 0 ,
825 X_MIGRATED_FRM_BDGT_TYP_CODE => X_MIGRATED_FRM_BDGT_TYP_CODE,
826 /* dbora --- FP M - 13-NOV-03
827 */
828 X_ENABLE_PARTIAL_IMPL_FLAG => NVL (X_ENABLE_PARTIAL_IMPL_FLAG, 'N'),
829 X_PRIMARY_COST_FORECAST_FLAG => NVL (X_PRIMARY_COST_FORECAST_FLAG,'N'),
830 X_PRIMARY_REV_FORECAST_FLAG => NVL (X_PRIMARY_REV_FORECAST_FLAG, 'N'),
831 X_EDIT_AFTER_BASELINE_FLAG => NVL (X_EDIT_AFTER_BASELINE_FLAG, 'N'),
832 X_USE_FOR_WORKPLAN_FLAG => NVL (l_use_for_workplan_flag, 'N')); --Bug 5437529.
833
834 end LOAD_ROW;
835
836 end PA_FIN_PLAN_TYPES_PKG;