1 package body PA_PROGRESS_ROLLUP_PKG as
2 /* $Header: PAPRPKGB.pls 120.3.12020000.2 2013/03/26 09:24:45 bpottipa ship $*/
3
4 procedure INSERT_ROW(
5 X_PROGRESS_ROLLUP_ID IN OUT NOCOPY NUMBER --File.Sql.39 bug 4440895
6 ,X_PROJECT_ID IN NUMBER
7 ,X_OBJECT_ID IN NUMBER
8 ,X_OBJECT_TYPE IN VARCHAR2
9 ,X_AS_OF_DATE IN DATE
10 ,X_OBJECT_VERSION_ID IN NUMBER
11 ,X_LAST_UPDATE_DATE IN DATE
12 ,X_LAST_UPDATED_BY IN NUMBER
13 ,X_CREATION_DATE IN DATE
14 ,X_CREATED_BY IN NUMBER
15 ,X_PROGRESS_STATUS_CODE IN VARCHAR2
16 ,X_LAST_UPDATE_LOGIN IN NUMBER
17 ,X_INCREMENTAL_WORK_QTY IN NUMBER
18 ,X_CUMULATIVE_WORK_QTY IN NUMBER
19 ,X_BASE_PERCENT_COMPLETE IN NUMBER
20 ,X_EFF_ROLLUP_PERCENT_COMP IN NUMBER
21 ,X_COMPLETED_PERCENTAGE IN NUMBER
22 ,X_ESTIMATED_START_DATE IN DATE
23 ,X_ESTIMATED_FINISH_DATE IN DATE
24 ,X_ACTUAL_START_DATE IN DATE
25 ,X_ACTUAL_FINISH_DATE IN DATE
26 ,X_EST_REMAINING_EFFORT IN NUMBER
27 ,X_BASE_PERCENT_COMP_DERIV_CODE IN VARCHAR2
28 ,X_BASE_PROGRESS_STATUS_CODE IN VARCHAR2
29 ,X_EFF_ROLLUP_PROG_STAT_CODE IN VARCHAR2
30 ,x_percent_complete_id in number
31 ,X_STRUCTURE_TYPE IN VARCHAR2
32 ,X_PROJ_ELEMENT_ID IN NUMBER
33 ,X_STRUCTURE_VERSION_ID IN NUMBER
34 ,X_PPL_ACT_EFFORT_TO_DATE IN NUMBER
35 ,X_EQPMT_ACT_EFFORT_TO_DATE IN NUMBER
36 ,X_EQPMT_ETC_EFFORT IN NUMBER
37 ,X_OTH_ACT_COST_TO_DATE_TC IN NUMBER
38 ,X_OTH_ACT_COST_TO_DATE_FC IN NUMBER
39 ,X_OTH_ACT_COST_TO_DATE_PC IN NUMBER
40 ,X_OTH_ETC_COST_TC IN NUMBER
41 ,X_OTH_ETC_COST_FC IN NUMBER
42 ,X_OTH_ETC_COST_PC IN NUMBER
43 ,X_PPL_ACT_COST_TO_DATE_TC IN NUMBER
44 ,X_PPL_ACT_COST_TO_DATE_FC IN NUMBER
45 ,X_PPL_ACT_COST_TO_DATE_PC IN NUMBER
46 ,X_PPL_ETC_COST_TC IN NUMBER
47 ,X_PPL_ETC_COST_FC IN NUMBER
48 ,X_PPL_ETC_COST_PC IN NUMBER
49 ,X_EQPMT_ACT_COST_TO_DATE_TC IN NUMBER
50 ,X_EQPMT_ACT_COST_TO_DATE_FC IN NUMBER
51 ,X_EQPMT_ACT_COST_TO_DATE_PC IN NUMBER
52 ,X_EQPMT_ETC_COST_TC IN NUMBER
53 ,X_EQPMT_ETC_COST_FC IN NUMBER
54 ,X_EQPMT_ETC_COST_PC IN NUMBER
55 ,X_EARNED_VALUE IN NUMBER
56 ,X_TASK_WT_BASIS_CODE IN VARCHAR2
57 ,X_SUBPRJ_PPL_ACT_EFFORT IN NUMBER
58 ,X_SUBPRJ_EQPMT_ACT_EFFORT IN NUMBER
59 ,X_SUBPRJ_PPL_ETC_EFFORT IN NUMBER
60 ,X_SUBPRJ_EQPMT_ETC_EFFORT IN NUMBER
61 ,X_SBPJ_OTH_ACT_COST_TO_DATE_TC IN NUMBER
62 ,X_SBPJ_OTH_ACT_COST_TO_DATE_FC IN NUMBER
63 ,X_SBPJ_OTH_ACT_COST_TO_DATE_PC IN NUMBER
64 ,X_SUBPRJ_PPL_ACT_COST_TC IN NUMBER
65 ,X_SUBPRJ_PPL_ACT_COST_FC IN NUMBER
66 ,X_SUBPRJ_PPL_ACT_COST_PC IN NUMBER
67 ,X_SUBPRJ_EQPMT_ACT_COST_TC IN NUMBER
68 ,X_SUBPRJ_EQPMT_ACT_COST_FC IN NUMBER
69 ,X_SUBPRJ_EQPMT_ACT_COST_PC IN NUMBER
70 ,X_SUBPRJ_OTH_ETC_COST_TC IN NUMBER
71 ,X_SUBPRJ_OTH_ETC_COST_FC IN NUMBER
72 ,X_SUBPRJ_OTH_ETC_COST_PC IN NUMBER
73 ,X_SUBPRJ_PPL_ETC_COST_TC IN NUMBER
74 ,X_SUBPRJ_PPL_ETC_COST_FC IN NUMBER
75 ,X_SUBPRJ_PPL_ETC_COST_PC IN NUMBER
76 ,X_SUBPRJ_EQPMT_ETC_COST_TC IN NUMBER
77 ,X_SUBPRJ_EQPMT_ETC_COST_FC IN NUMBER
78 ,X_SUBPRJ_EQPMT_ETC_COST_PC IN NUMBER
79 ,X_SUBPRJ_EARNED_VALUE IN NUMBER
80 ,X_CURRENT_FLAG IN VARCHAR2
81 ,X_PROJFUNC_COST_RATE_TYPE VARCHAR2
82 ,X_PROJFUNC_COST_EXCHANGE_RATE NUMBER
83 ,X_PROJFUNC_COST_RATE_DATE DATE
84 ,X_PROJ_COST_RATE_TYPE VARCHAR2
85 ,X_PROJ_COST_EXCHANGE_RATE NUMBER
86 ,X_PROJ_COST_RATE_DATE DATE
87 ,X_TXN_CURRENCY_CODE VARCHAR2
88 ,X_PROG_PA_PERIOD_NAME VARCHAR2
89 ,X_PROG_GL_PERIOD_NAME VARCHAR2
90 ,X_OTH_QUANTITY_TO_DATE NUMBER
91 ,X_OTH_ETC_QUANTITY NUMBER
92 ,X_OTH_ACT_RAWCOST_TO_DATE_TC IN NUMBER
93 ,X_OTH_ACT_RAWCOST_TO_DATE_FC IN NUMBER
94 ,X_OTH_ACT_RAWCOST_TO_DATE_PC IN NUMBER
95 ,X_OTH_ETC_RAWCOST_TC IN NUMBER
96 ,X_OTH_ETC_RAWCOST_FC IN NUMBER
97 ,X_OTH_ETC_RAWCOST_PC IN NUMBER
98 ,X_PPL_ACT_RAWCOST_TO_DATE_TC IN NUMBER
99 ,X_PPL_ACT_RAWCOST_TO_DATE_FC IN NUMBER
100 ,X_PPL_ACT_RAWCOST_TO_DATE_PC IN NUMBER
101 ,X_PPL_ETC_RAWCOST_TC IN NUMBER
102 ,X_PPL_ETC_RAWCOST_FC IN NUMBER
103 ,X_PPL_ETC_RAWCOST_PC IN NUMBER
104 ,X_EQPMT_ACT_RAWCOST_TO_DATE_TC IN NUMBER
105 ,X_EQPMT_ACT_RAWCOST_TO_DATE_FC IN NUMBER
106 ,X_EQPMT_ACT_RAWCOST_TO_DATE_PC IN NUMBER
107 ,X_EQPMT_ETC_RAWCOST_TC IN NUMBER
108 ,X_EQPMT_ETC_RAWCOST_FC IN NUMBER
109 ,X_EQPMT_ETC_RAWCOST_PC IN NUMBER
110 ,X_SP_OTH_ACT_RAWCOST_TODATE_TC IN NUMBER
111 ,X_SP_OTH_ACT_RAWCOST_TODATE_FC IN NUMBER
112 ,X_SP_OTH_ACT_RAWCOST_TODATE_PC IN NUMBER
113 ,X_SUBPRJ_PPL_ACT_RAWCOST_TC IN NUMBER
114 ,X_SUBPRJ_PPL_ACT_RAWCOST_FC IN NUMBER
115 ,X_SUBPRJ_PPL_ACT_RAWCOST_PC IN NUMBER
116 ,X_SUBPRJ_EQPMT_ACT_RAWCOST_TC IN NUMBER
117 ,X_SUBPRJ_EQPMT_ACT_RAWCOST_FC IN NUMBER
118 ,X_SUBPRJ_EQPMT_ACT_RAWCOST_PC IN NUMBER
119 ,X_SUBPRJ_OTH_ETC_RAWCOST_TC IN NUMBER
120 ,X_SUBPRJ_OTH_ETC_RAWCOST_FC IN NUMBER
121 ,X_SUBPRJ_OTH_ETC_RAWCOST_PC IN NUMBER
122 ,X_SUBPRJ_PPL_ETC_RAWCOST_TC IN NUMBER
123 ,X_SUBPRJ_PPL_ETC_RAWCOST_FC IN NUMBER
124 ,X_SUBPRJ_PPL_ETC_RAWCOST_PC IN NUMBER
125 ,X_SUBPRJ_EQPMT_ETC_RAWCOST_TC IN NUMBER
126 ,X_SUBPRJ_EQPMT_ETC_RAWCOST_FC IN NUMBER
127 ,X_SUBPRJ_EQPMT_ETC_RAWCOST_PC IN NUMBER
128 , X_CBS_ELEMENT_ID IN NUMBER DEFAULT NULL --Added for CBS 16200605
129 ) IS
130
131 BEGIN
132 IF X_PROGRESS_ROLLUP_ID IS NULL
133 THEN
134 select PA_PROGRESS_ROLLUP_S.nextval
135 into X_PROGRESS_ROLLUP_ID
136 from dual;
137 END IF;
138
139 insert into pa_progress_rollup(
140 PROGRESS_ROLLUP_ID
141 ,PROJECT_ID
142 ,OBJECT_ID
143 ,OBJECT_TYPE
144 ,AS_OF_DATE
145 ,OBJECT_VERSION_ID
146 ,LAST_UPDATE_DATE
147 ,LAST_UPDATED_BY
148 ,CREATION_DATE
149 ,CREATED_BY
150 ,PROGRESS_STATUS_CODE
151 ,LAST_UPDATE_LOGIN
152 ,INCREMENTAL_WORK_QUANTITY
153 ,CUMULATIVE_WORK_QUANTITY
154 ,BASE_PERCENT_COMPLETE
155 ,EFF_ROLLUP_PERCENT_COMP
156 ,COMPLETED_PERCENTAGE
157 ,ESTIMATED_START_DATE
158 ,ESTIMATED_FINISH_DATE
159 ,ACTUAL_START_DATE
160 ,ACTUAL_FINISH_DATE
161 ,ESTIMATED_REMAINING_EFFORT
162 ,RECORD_VERSION_NUMBER
163 ,BASE_PERCENT_COMP_DERIV_CODE
164 ,BASE_PROGRESS_STATUS_CODE
165 ,EFF_ROLLUP_PROG_STAT_CODE
166 ,PERCENT_COMPLETE_ID
167 ,STRUCTURE_TYPE
168 ,PROJ_ELEMENT_ID
169 ,STRUCTURE_VERSION_ID
170 ,PPL_ACT_EFFORT_TO_DATE
171 ,EQPMT_ACT_EFFORT_TO_DATE
172 ,EQPMT_ETC_EFFORT
173 ,OTH_ACT_COST_TO_DATE_TC
174 ,OTH_ACT_COST_TO_DATE_FC
175 ,OTH_ACT_COST_TO_DATE_PC
176 ,OTH_ETC_COST_TC
177 ,OTH_ETC_COST_FC
178 ,OTH_ETC_COST_PC
179 ,PPL_ACT_COST_TO_DATE_TC
180 ,PPL_ACT_COST_TO_DATE_FC
181 ,PPL_ACT_COST_TO_DATE_PC
182 ,PPL_ETC_COST_TC
183 ,PPL_ETC_COST_FC
184 ,PPL_ETC_COST_PC
185 ,EQPMT_ACT_COST_TO_DATE_TC
186 ,EQPMT_ACT_COST_TO_DATE_FC
187 ,EQPMT_ACT_COST_TO_DATE_PC
188 ,EQPMT_ETC_COST_TC
189 ,EQPMT_ETC_COST_FC
190 ,EQPMT_ETC_COST_PC
191 ,EARNED_VALUE
192 ,TASK_WT_BASIS_CODE
193 ,SUBPRJ_PPL_ACT_EFFORT
194 ,SUBPRJ_EQPMT_ACT_EFFORT
195 ,SUBPRJ_PPL_ETC_EFFORT
196 ,SUBPRJ_EQPMT_ETC_EFFORT
197 ,SUBPRJ_OTH_ACT_COST_TO_DT_TC
198 ,SUBPRJ_OTH_ACT_COST_TO_DT_FC
199 ,SUBPRJ_OTH_ACT_COST_TO_DT_PC
200 ,SUBPRJ_PPL_ACT_COST_TC
201 ,SUBPRJ_PPL_ACT_COST_FC
202 ,SUBPRJ_PPL_ACT_COST_PC
203 ,SUBPRJ_EQPMT_ACT_COST_TC
204 ,SUBPRJ_EQPMT_ACT_COST_FC
205 ,SUBPRJ_EQPMT_ACT_COST_PC
206 ,SUBPRJ_OTH_ETC_COST_TC
207 ,SUBPRJ_OTH_ETC_COST_FC
208 ,SUBPRJ_OTH_ETC_COST_PC
209 ,SUBPRJ_PPL_ETC_COST_TC
210 ,SUBPRJ_PPL_ETC_COST_FC
211 ,SUBPRJ_PPL_ETC_COST_PC
212 ,SUBPRJ_EQPMT_ETC_COST_TC
213 ,SUBPRJ_EQPMT_ETC_COST_FC
214 ,SUBPRJ_EQPMT_ETC_COST_PC
215 ,SUBPRJ_EARNED_VALUE
216 ,CURRENT_FLAG
217 ,PROJFUNC_COST_RATE_TYPE
218 ,PROJFUNC_COST_EXCHANGE_RATE
219 ,PROJFUNC_COST_RATE_DATE
220 ,PROJ_COST_RATE_TYPE
221 ,PROJ_COST_EXCHANGE_RATE
222 ,PROJ_COST_RATE_DATE
223 ,TXN_CURRENCY_CODE
224 ,PROG_PA_PERIOD_NAME
225 ,PROG_GL_PERIOD_NAME
226 ,OTH_QUANTITY_TO_DATE
227 ,OTH_ETC_QUANTITY
228 ,OTH_ACT_RAWCOST_TO_DATE_TC
229 ,OTH_ACT_RAWCOST_TO_DATE_FC
230 ,OTH_ACT_RAWCOST_TO_DATE_PC
231 ,OTH_ETC_RAWCOST_TC
232 ,OTH_ETC_RAWCOST_FC
233 ,OTH_ETC_RAWCOST_PC
234 ,PPL_ACT_RAWCOST_TO_DATE_TC
235 ,PPL_ACT_RAWCOST_TO_DATE_FC
236 ,PPL_ACT_RAWCOST_TO_DATE_PC
237 ,PPL_ETC_RAWCOST_TC
238 ,PPL_ETC_RAWCOST_FC
239 ,PPL_ETC_RAWCOST_PC
240 ,EQPMT_ACT_RAWCOST_TO_DATE_TC
241 ,EQPMT_ACT_RAWCOST_TO_DATE_FC
242 ,EQPMT_ACT_RAWCOST_TO_DATE_PC
243 ,EQPMT_ETC_RAWCOST_TC
244 ,EQPMT_ETC_RAWCOST_FC
245 ,EQPMT_ETC_RAWCOST_PC
246 ,SPJ_OTH_ACT_RAWCOST_TO_DT_TC
247 ,SPJ_OTH_ACT_RAWCOST_TO_DT_FC
248 ,SPJ_OTH_ACT_RAWCOST_TO_DT_PC
249 ,SUBPRJ_PPL_ACT_RAWCOST_TC
250 ,SUBPRJ_PPL_ACT_RAWCOST_FC
251 ,SUBPRJ_PPL_ACT_RAWCOST_PC
252 ,SUBPRJ_EQPMT_ACT_RAWCOST_TC
253 ,SUBPRJ_EQPMT_ACT_RAWCOST_FC
254 ,SUBPRJ_EQPMT_ACT_RAWCOST_PC
255 ,SUBPRJ_OTH_ETC_RAWCOST_TC
256 ,SUBPRJ_OTH_ETC_RAWCOST_FC
257 ,SUBPRJ_OTH_ETC_RAWCOST_PC
258 ,SUBPRJ_PPL_ETC_RAWCOST_TC
259 ,SUBPRJ_PPL_ETC_RAWCOST_FC
260 ,SUBPRJ_PPL_ETC_RAWCOST_PC
261 ,SUBPRJ_EQPMT_ETC_RAWCOST_TC
262 ,SUBPRJ_EQPMT_ETC_RAWCOST_FC
263 ,SUBPRJ_EQPMT_ETC_RAWCOST_PC
264 , cbs_element_id --added for CBS 16200605
265 ) VALUES (
266 X_PROGRESS_ROLLUP_ID
267 ,X_PROJECT_ID
268 ,X_OBJECT_ID
269 ,X_OBJECT_TYPE
270 ,X_AS_OF_DATE
271 ,X_OBJECT_VERSION_ID
272 ,X_LAST_UPDATE_DATE
273 ,X_LAST_UPDATED_BY
274 ,X_CREATION_DATE
275 ,X_CREATED_BY
276 ,X_PROGRESS_STATUS_CODE
277 ,X_LAST_UPDATE_LOGIN
278 ,X_INCREMENTAL_WORK_QTY
279 ,X_CUMULATIVE_WORK_QTY
280 ,X_BASE_PERCENT_COMPLETE
281 ,X_EFF_ROLLUP_PERCENT_COMP
282 ,X_COMPLETED_PERCENTAGE
283 ,X_ESTIMATED_START_DATE
284 ,X_ESTIMATED_FINISH_DATE
285 ,X_ACTUAL_START_DATE
286 ,X_ACTUAL_FINISH_DATE
287 ,X_EST_REMAINING_EFFORT
288 ,1 ----record version number
289 ,X_BASE_PERCENT_COMP_DERIV_CODE
290 ,X_BASE_PROGRESS_STATUS_CODE
291 ,X_EFF_ROLLUP_PROG_STAT_CODE
292 ,x_PERCENT_COMPLETE_ID
293 ,X_STRUCTURE_TYPE
294 ,X_PROJ_ELEMENT_ID
295 ,X_STRUCTURE_VERSION_ID
296 ,X_PPL_ACT_EFFORT_TO_DATE
297 ,X_EQPMT_ACT_EFFORT_TO_DATE
298 ,X_EQPMT_ETC_EFFORT
299 ,X_OTH_ACT_COST_TO_DATE_TC
300 ,X_OTH_ACT_COST_TO_DATE_FC
301 ,X_OTH_ACT_COST_TO_DATE_PC
302 ,X_OTH_ETC_COST_TC
303 ,X_OTH_ETC_COST_FC
304 ,X_OTH_ETC_COST_PC
305 ,X_PPL_ACT_COST_TO_DATE_TC
306 ,X_PPL_ACT_COST_TO_DATE_FC
307 ,X_PPL_ACT_COST_TO_DATE_PC
308 ,X_PPL_ETC_COST_TC
309 ,X_PPL_ETC_COST_FC
310 ,X_PPL_ETC_COST_PC
311 ,X_EQPMT_ACT_COST_TO_DATE_TC
312 ,X_EQPMT_ACT_COST_TO_DATE_FC
313 ,X_EQPMT_ACT_COST_TO_DATE_PC
314 ,X_EQPMT_ETC_COST_TC
315 ,X_EQPMT_ETC_COST_FC
316 ,X_EQPMT_ETC_COST_PC
317 ,X_EARNED_VALUE
318 ,X_TASK_WT_BASIS_CODE
319 ,X_SUBPRJ_PPL_ACT_EFFORT
320 ,X_SUBPRJ_EQPMT_ACT_EFFORT
321 ,X_SUBPRJ_PPL_ETC_EFFORT
322 ,X_SUBPRJ_EQPMT_ETC_EFFORT
323 ,X_SBPJ_OTH_ACT_COST_TO_DATE_TC
324 ,X_SBPJ_OTH_ACT_COST_TO_DATE_FC
325 ,X_SBPJ_OTH_ACT_COST_TO_DATE_PC
326 ,X_SUBPRJ_PPL_ACT_COST_TC
327 ,X_SUBPRJ_PPL_ACT_COST_FC
328 ,X_SUBPRJ_PPL_ACT_COST_PC
329 ,X_SUBPRJ_EQPMT_ACT_COST_TC
330 ,X_SUBPRJ_EQPMT_ACT_COST_FC
331 ,X_SUBPRJ_EQPMT_ACT_COST_PC
332 ,X_SUBPRJ_OTH_ETC_COST_TC
333 ,X_SUBPRJ_OTH_ETC_COST_FC
334 ,X_SUBPRJ_OTH_ETC_COST_PC
335 ,X_SUBPRJ_PPL_ETC_COST_TC
336 ,X_SUBPRJ_PPL_ETC_COST_FC
337 ,X_SUBPRJ_PPL_ETC_COST_PC
338 ,X_SUBPRJ_EQPMT_ETC_COST_TC
339 ,X_SUBPRJ_EQPMT_ETC_COST_FC
340 ,X_SUBPRJ_EQPMT_ETC_COST_PC
341 ,X_SUBPRJ_EARNED_VALUE
342 ,X_CURRENT_FLAG
343 ,X_PROJFUNC_COST_RATE_TYPE
344 ,X_PROJFUNC_COST_EXCHANGE_RATE
345 ,X_PROJFUNC_COST_RATE_DATE
346 ,X_PROJ_COST_RATE_TYPE
347 ,X_PROJ_COST_EXCHANGE_RATE
348 ,X_PROJ_COST_RATE_DATE
349 ,X_TXN_CURRENCY_CODE
350 ,X_PROG_PA_PERIOD_NAME
351 ,X_PROG_GL_PERIOD_NAME
352 ,X_OTH_QUANTITY_TO_DATE
353 ,X_OTH_ETC_QUANTITY
354 ,X_OTH_ACT_RAWCOST_TO_DATE_TC
355 ,X_OTH_ACT_RAWCOST_TO_DATE_FC
356 ,X_OTH_ACT_RAWCOST_TO_DATE_PC
357 ,X_OTH_ETC_RAWCOST_TC
358 ,X_OTH_ETC_RAWCOST_FC
359 ,X_OTH_ETC_RAWCOST_PC
360 ,X_PPL_ACT_RAWCOST_TO_DATE_TC
361 ,X_PPL_ACT_RAWCOST_TO_DATE_FC
362 ,X_PPL_ACT_RAWCOST_TO_DATE_PC
363 ,X_PPL_ETC_RAWCOST_TC
364 ,X_PPL_ETC_RAWCOST_FC
365 ,X_PPL_ETC_RAWCOST_PC
366 ,X_EQPMT_ACT_RAWCOST_TO_DATE_TC
367 ,X_EQPMT_ACT_RAWCOST_TO_DATE_FC
368 ,X_EQPMT_ACT_RAWCOST_TO_DATE_PC
369 ,X_EQPMT_ETC_RAWCOST_TC
370 ,X_EQPMT_ETC_RAWCOST_FC
371 ,X_EQPMT_ETC_RAWCOST_PC
372 ,X_SP_OTH_ACT_RAWCOST_TODATE_TC
373 ,X_SP_OTH_ACT_RAWCOST_TODATE_FC
374 ,X_SP_OTH_ACT_RAWCOST_TODATE_PC
375 ,X_SUBPRJ_PPL_ACT_RAWCOST_TC
376 ,X_SUBPRJ_PPL_ACT_RAWCOST_FC
377 ,X_SUBPRJ_PPL_ACT_RAWCOST_PC
378 ,X_SUBPRJ_EQPMT_ACT_RAWCOST_TC
379 ,X_SUBPRJ_EQPMT_ACT_RAWCOST_FC
380 ,X_SUBPRJ_EQPMT_ACT_RAWCOST_PC
381 ,X_SUBPRJ_OTH_ETC_RAWCOST_TC
382 ,X_SUBPRJ_OTH_ETC_RAWCOST_FC
383 ,X_SUBPRJ_OTH_ETC_RAWCOST_PC
384 ,X_SUBPRJ_PPL_ETC_RAWCOST_TC
385 ,X_SUBPRJ_PPL_ETC_RAWCOST_FC
386 ,X_SUBPRJ_PPL_ETC_RAWCOST_PC
387 ,X_SUBPRJ_EQPMT_ETC_RAWCOST_TC
388 ,X_SUBPRJ_EQPMT_ETC_RAWCOST_FC
389 ,X_SUBPRJ_EQPMT_ETC_RAWCOST_PC
390 ,X_CBS_ELEMENT_ID --added for CBS 16200605
391 );
392
393 exception when others then
394 X_PROGRESS_ROLLUP_ID := NULL ; -- 4537865 RESET OUT PARAM
395 fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_ROLLUP_PKG',
396 p_procedure_name => 'INSERT_ROW',
397 p_error_text => SUBSTRB(SQLERRM,1,240));
398 raise;
399 End insert_row;
400
401 procedure UPDATE_ROW(
402 X_PROGRESS_ROLLUP_ID IN NUMBER
403 ,X_PROJECT_ID IN NUMBER
404 ,X_OBJECT_ID IN NUMBER
405 ,X_OBJECT_TYPE IN VARCHAR2
406 ,X_AS_OF_DATE IN DATE
407 ,X_OBJECT_VERSION_ID IN NUMBER
408 ,X_LAST_UPDATE_DATE IN DATE
409 ,X_LAST_UPDATED_BY IN NUMBER
410 ,X_PROGRESS_STATUS_CODE IN VARCHAR2
411 ,X_LAST_UPDATE_LOGIN IN NUMBER
412 ,X_INCREMENTAL_WORK_QTY IN NUMBER
413 ,X_CUMULATIVE_WORK_QTY IN NUMBER
414 ,X_BASE_PERCENT_COMPLETE IN NUMBER
415 ,X_EFF_ROLLUP_PERCENT_COMP IN NUMBER
416 ,X_COMPLETED_PERCENTAGE IN NUMBER
417 ,X_ESTIMATED_START_DATE IN DATE
418 ,X_ESTIMATED_FINISH_DATE IN DATE
419 ,X_ACTUAL_START_DATE IN DATE
420 ,X_ACTUAL_FINISH_DATE IN DATE
421 ,X_EST_REMAINING_EFFORT IN NUMBER
422 ,X_BASE_PERCENT_COMP_DERIV_CODE IN VARCHAR2
423 ,X_BASE_PROGRESS_STATUS_CODE IN VARCHAR2
424 ,X_EFF_ROLLUP_PROG_STAT_CODE IN VARCHAR2
425 ,X_RECORD_VERSION_NUMBER IN NUMBER
426 ,x_percent_complete_id in number
427 ,X_STRUCTURE_TYPE IN VARCHAR2
428 ,X_PROJ_ELEMENT_ID IN NUMBER
429 ,X_STRUCTURE_VERSION_ID IN NUMBER
430 ,X_PPL_ACT_EFFORT_TO_DATE IN NUMBER
431 ,X_EQPMT_ACT_EFFORT_TO_DATE IN NUMBER
432 ,X_EQPMT_ETC_EFFORT IN NUMBER
433 ,X_OTH_ACT_COST_TO_DATE_TC IN NUMBER
434 ,X_OTH_ACT_COST_TO_DATE_FC IN NUMBER
435 ,X_OTH_ACT_COST_TO_DATE_PC IN NUMBER
436 ,X_OTH_ETC_COST_TC IN NUMBER
437 ,X_OTH_ETC_COST_FC IN NUMBER
438 ,X_OTH_ETC_COST_PC IN NUMBER
439 ,X_PPL_ACT_COST_TO_DATE_TC IN NUMBER
440 ,X_PPL_ACT_COST_TO_DATE_FC IN NUMBER
441 ,X_PPL_ACT_COST_TO_DATE_PC IN NUMBER
442 ,X_PPL_ETC_COST_TC IN NUMBER
443 ,X_PPL_ETC_COST_FC IN NUMBER
444 ,X_PPL_ETC_COST_PC IN NUMBER
445 ,X_EQPMT_ACT_COST_TO_DATE_TC IN NUMBER
446 ,X_EQPMT_ACT_COST_TO_DATE_FC IN NUMBER
447 ,X_EQPMT_ACT_COST_TO_DATE_PC IN NUMBER
448 ,X_EQPMT_ETC_COST_TC IN NUMBER
449 ,X_EQPMT_ETC_COST_FC IN NUMBER
450 ,X_EQPMT_ETC_COST_PC IN NUMBER
451 ,X_EARNED_VALUE IN NUMBER
452 ,X_TASK_WT_BASIS_CODE IN VARCHAR2
453 ,X_SUBPRJ_PPL_ACT_EFFORT IN NUMBER
454 ,X_SUBPRJ_EQPMT_ACT_EFFORT IN NUMBER
455 ,X_SUBPRJ_PPL_ETC_EFFORT IN NUMBER
456 ,X_SUBPRJ_EQPMT_ETC_EFFORT IN NUMBER
457 ,X_SBPJ_OTH_ACT_COST_TO_DATE_TC IN NUMBER
458 ,X_SBPJ_OTH_ACT_COST_TO_DATE_FC IN NUMBER
459 ,X_SBPJ_OTH_ACT_COST_TO_DATE_PC IN NUMBER
460 ,X_SUBPRJ_PPL_ACT_COST_TC IN NUMBER
461 ,X_SUBPRJ_PPL_ACT_COST_FC IN NUMBER
462 ,X_SUBPRJ_PPL_ACT_COST_PC IN NUMBER
463 ,X_SUBPRJ_EQPMT_ACT_COST_TC IN NUMBER
464 ,X_SUBPRJ_EQPMT_ACT_COST_FC IN NUMBER
465 ,X_SUBPRJ_EQPMT_ACT_COST_PC IN NUMBER
466 ,X_SUBPRJ_OTH_ETC_COST_TC IN NUMBER
467 ,X_SUBPRJ_OTH_ETC_COST_FC IN NUMBER
468 ,X_SUBPRJ_OTH_ETC_COST_PC IN NUMBER
469 ,X_SUBPRJ_PPL_ETC_COST_TC IN NUMBER
470 ,X_SUBPRJ_PPL_ETC_COST_FC IN NUMBER
471 ,X_SUBPRJ_PPL_ETC_COST_PC IN NUMBER
472 ,X_SUBPRJ_EQPMT_ETC_COST_TC IN NUMBER
473 ,X_SUBPRJ_EQPMT_ETC_COST_FC IN NUMBER
474 ,X_SUBPRJ_EQPMT_ETC_COST_PC IN NUMBER
475 ,X_SUBPRJ_EARNED_VALUE IN NUMBER
476 ,X_CURRENT_FLAG IN VARCHAR2
477 ,X_PROJFUNC_COST_RATE_TYPE VARCHAR2
478 ,X_PROJFUNC_COST_EXCHANGE_RATE NUMBER
479 ,X_PROJFUNC_COST_RATE_DATE DATE
480 ,X_PROJ_COST_RATE_TYPE VARCHAR2
481 ,X_PROJ_COST_EXCHANGE_RATE NUMBER
482 ,X_PROJ_COST_RATE_DATE DATE
483 ,X_TXN_CURRENCY_CODE VARCHAR2
484 ,X_PROG_PA_PERIOD_NAME VARCHAR2
485 ,X_PROG_GL_PERIOD_NAME VARCHAR2
486 ,X_OTH_QUANTITY_TO_DATE NUMBER
487 ,X_OTH_ETC_QUANTITY NUMBER
488 ,X_OTH_ACT_RAWCOST_TO_DATE_TC IN NUMBER
489 ,X_OTH_ACT_RAWCOST_TO_DATE_FC IN NUMBER
490 ,X_OTH_ACT_RAWCOST_TO_DATE_PC IN NUMBER
491 ,X_OTH_ETC_RAWCOST_TC IN NUMBER
492 ,X_OTH_ETC_RAWCOST_FC IN NUMBER
493 ,X_OTH_ETC_RAWCOST_PC IN NUMBER
494 ,X_PPL_ACT_RAWCOST_TO_DATE_TC IN NUMBER
495 ,X_PPL_ACT_RAWCOST_TO_DATE_FC IN NUMBER
496 ,X_PPL_ACT_RAWCOST_TO_DATE_PC IN NUMBER
497 ,X_PPL_ETC_RAWCOST_TC IN NUMBER
498 ,X_PPL_ETC_RAWCOST_FC IN NUMBER
499 ,X_PPL_ETC_RAWCOST_PC IN NUMBER
500 ,X_EQPMT_ACT_RAWCOST_TO_DATE_TC IN NUMBER
501 ,X_EQPMT_ACT_RAWCOST_TO_DATE_FC IN NUMBER
502 ,X_EQPMT_ACT_RAWCOST_TO_DATE_PC IN NUMBER
503 ,X_EQPMT_ETC_RAWCOST_TC IN NUMBER
504 ,X_EQPMT_ETC_RAWCOST_FC IN NUMBER
505 ,X_EQPMT_ETC_RAWCOST_PC IN NUMBER
506 ,X_SP_OTH_ACT_RAWCOST_TODATE_TC IN NUMBER
507 ,X_SP_OTH_ACT_RAWCOST_TODATE_FC IN NUMBER
508 ,X_SP_OTH_ACT_RAWCOST_TODATE_PC IN NUMBER
509 ,X_SUBPRJ_PPL_ACT_RAWCOST_TC IN NUMBER
510 ,X_SUBPRJ_PPL_ACT_RAWCOST_FC IN NUMBER
511 ,X_SUBPRJ_PPL_ACT_RAWCOST_PC IN NUMBER
512 ,X_SUBPRJ_EQPMT_ACT_RAWCOST_TC IN NUMBER
513 ,X_SUBPRJ_EQPMT_ACT_RAWCOST_FC IN NUMBER
514 ,X_SUBPRJ_EQPMT_ACT_RAWCOST_PC IN NUMBER
515 ,X_SUBPRJ_OTH_ETC_RAWCOST_TC IN NUMBER
516 ,X_SUBPRJ_OTH_ETC_RAWCOST_FC IN NUMBER
517 ,X_SUBPRJ_OTH_ETC_RAWCOST_PC IN NUMBER
518 ,X_SUBPRJ_PPL_ETC_RAWCOST_TC IN NUMBER
519 ,X_SUBPRJ_PPL_ETC_RAWCOST_FC IN NUMBER
520 ,X_SUBPRJ_PPL_ETC_RAWCOST_PC IN NUMBER
521 ,X_SUBPRJ_EQPMT_ETC_RAWCOST_TC IN NUMBER
522 ,X_SUBPRJ_EQPMT_ETC_RAWCOST_FC IN NUMBER
523 ,X_SUBPRJ_EQPMT_ETC_RAWCOST_PC IN NUMBER
524 , X_CBS_ELEMENT_ID IN NUMBER DEFAULT NULL --Added for CBS 16200605
525 ) IS
526
527 BEGIN
528 UPDATE pa_progress_rollup
529 SET
530 PROJECT_ID = DECODE(X_PROJECT_ID, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
531 PROJECT_ID, X_PROJECT_ID )
532 ,OBJECT_ID = DECODE(X_OBJECT_ID, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
533 OBJECT_ID, X_OBJECT_ID )
534 ,OBJECT_TYPE = DECODE(X_OBJECT_TYPE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
535 OBJECT_TYPE, X_OBJECT_TYPE )
536 ,AS_OF_DATE = DECODE(X_AS_OF_DATE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,
537 AS_OF_DATE, X_AS_OF_DATE )
538 ,OBJECT_VERSION_ID = DECODE(X_OBJECT_VERSION_ID, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
539 OBJECT_VERSION_ID, X_OBJECT_VERSION_ID )
540 ,LAST_UPDATE_DATE = X_LAST_UPDATE_DATE
541 ,LAST_UPDATED_BY = X_LAST_UPDATED_BY
542 ,PROGRESS_STATUS_CODE = DECODE(X_PROGRESS_STATUS_CODE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
543 PROGRESS_STATUS_CODE, X_PROGRESS_STATUS_CODE )
544 ,LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
545 ,INCREMENTAL_WORK_QUANTITY = DECODE( X_INCREMENTAL_WORK_QTY, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
546 INCREMENTAL_WORK_QUANTITY, X_INCREMENTAL_WORK_QTY )
547 ,CUMULATIVE_WORK_QUANTITY = DECODE( X_CUMULATIVE_WORK_QTY, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
548 CUMULATIVE_WORK_QUANTITY, X_CUMULATIVE_WORK_QTY )
549 ,BASE_PERCENT_COMPLETE = DECODE( X_BASE_PERCENT_COMPLETE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
550 BASE_PERCENT_COMPLETE, X_BASE_PERCENT_COMPLETE )
551 ,EFF_ROLLUP_PERCENT_COMP = DECODE( X_EFF_ROLLUP_PERCENT_COMP, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
552 EFF_ROLLUP_PERCENT_COMP, X_EFF_ROLLUP_PERCENT_COMP )
553 ,COMPLETED_PERCENTAGE = DECODE( X_COMPLETED_PERCENTAGE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
554 COMPLETED_PERCENTAGE, X_COMPLETED_PERCENTAGE )
555 ,ESTIMATED_START_DATE = DECODE( X_ESTIMATED_START_DATE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,
556 ESTIMATED_START_DATE, X_ESTIMATED_START_DATE )
557 ,ESTIMATED_FINISH_DATE = DECODE( X_ESTIMATED_FINISH_DATE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,
558 ESTIMATED_FINISH_DATE, X_ESTIMATED_FINISH_DATE )
559 ,ACTUAL_START_DATE = DECODE( X_ACTUAL_START_DATE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,
560 ACTUAL_START_DATE, X_ACTUAL_START_DATE )
561 ,ACTUAL_FINISH_DATE = DECODE( X_ACTUAL_FINISH_DATE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,
562 ACTUAL_FINISH_DATE, X_ACTUAL_FINISH_DATE )
563 ,ESTIMATED_REMAINING_EFFORT = DECODE( X_EST_REMAINING_EFFORT, PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
564 ESTIMATED_REMAINING_EFFORT, X_EST_REMAINING_EFFORT )
565 ,RECORD_VERSION_NUMBER = NVL( RECORD_VERSION_NUMBER, 1 ) + 1
566 ,BASE_PERCENT_COMP_DERIV_CODE = DECODE( X_BASE_PERCENT_COMP_DERIV_CODE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
567 BASE_PERCENT_COMP_DERIV_CODE, X_BASE_PERCENT_COMP_DERIV_CODE )
568 ,BASE_PROGRESS_STATUS_CODE = DECODE( X_BASE_PROGRESS_STATUS_CODE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
569 BASE_PROGRESS_STATUS_CODE, X_BASE_PROGRESS_STATUS_CODE )
570 ,EFF_ROLLUP_PROG_STAT_CODE = DECODE( X_EFF_ROLLUP_PROG_STAT_CODE, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
571 EFF_ROLLUP_PROG_STAT_CODE, X_EFF_ROLLUP_PROG_STAT_CODE )
572 ,percent_complete_id = nvl(x_percent_complete_id,percent_complete_id)
573
574 ,STRUCTURE_TYPE=DECODE(X_STRUCTURE_TYPE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,STRUCTURE_TYPE,X_STRUCTURE_TYPE)
575 ,PROJ_ELEMENT_ID=DECODE(X_PROJ_ELEMENT_ID,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PROJ_ELEMENT_ID,X_PROJ_ELEMENT_ID)
576 ,STRUCTURE_VERSION_ID=DECODE(X_STRUCTURE_VERSION_ID,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,STRUCTURE_VERSION_ID,X_STRUCTURE_VERSION_ID)
577 ,PPL_ACT_EFFORT_TO_DATE=DECODE(X_PPL_ACT_EFFORT_TO_DATE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PPL_ACT_EFFORT_TO_DATE,X_PPL_ACT_EFFORT_TO_DATE)
578 ,EQPMT_ACT_EFFORT_TO_DATE=DECODE(X_EQPMT_ACT_EFFORT_TO_DATE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,EQPMT_ACT_EFFORT_TO_DATE,X_EQPMT_ACT_EFFORT_TO_DATE)
579 ,EQPMT_ETC_EFFORT=DECODE(X_EQPMT_ETC_EFFORT,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,EQPMT_ETC_EFFORT,X_EQPMT_ETC_EFFORT)
580 ,OTH_ACT_COST_TO_DATE_TC=DECODE(X_OTH_ACT_COST_TO_DATE_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,OTH_ACT_COST_TO_DATE_TC,X_OTH_ACT_COST_TO_DATE_TC)
581 ,OTH_ACT_COST_TO_DATE_FC=DECODE(X_OTH_ACT_COST_TO_DATE_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,OTH_ACT_COST_TO_DATE_FC,X_OTH_ACT_COST_TO_DATE_FC)
582 ,OTH_ACT_COST_TO_DATE_PC=DECODE(X_OTH_ACT_COST_TO_DATE_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,OTH_ACT_COST_TO_DATE_PC,X_OTH_ACT_COST_TO_DATE_PC)
583 ,OTH_ETC_COST_TC=DECODE(X_OTH_ETC_COST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,OTH_ETC_COST_TC,X_OTH_ETC_COST_TC)
584 ,OTH_ETC_COST_FC=DECODE(X_OTH_ETC_COST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,OTH_ETC_COST_FC,X_OTH_ETC_COST_FC)
585 ,OTH_ETC_COST_PC=DECODE(X_OTH_ETC_COST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,OTH_ETC_COST_PC,X_OTH_ETC_COST_PC)
586 ,PPL_ACT_COST_TO_DATE_TC=DECODE(X_PPL_ACT_COST_TO_DATE_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PPL_ACT_COST_TO_DATE_TC,X_PPL_ACT_COST_TO_DATE_TC)
587 ,PPL_ACT_COST_TO_DATE_FC=DECODE(X_PPL_ACT_COST_TO_DATE_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PPL_ACT_COST_TO_DATE_FC,X_PPL_ACT_COST_TO_DATE_FC)
588 ,PPL_ACT_COST_TO_DATE_PC=DECODE(X_PPL_ACT_COST_TO_DATE_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PPL_ACT_COST_TO_DATE_PC,X_PPL_ACT_COST_TO_DATE_PC)
589 ,PPL_ETC_COST_TC=DECODE(X_PPL_ETC_COST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PPL_ETC_COST_TC,X_PPL_ETC_COST_TC)
590 ,PPL_ETC_COST_FC=DECODE(X_PPL_ETC_COST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PPL_ETC_COST_FC,X_PPL_ETC_COST_FC)
591 ,PPL_ETC_COST_PC=DECODE(X_PPL_ETC_COST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PPL_ETC_COST_PC,X_PPL_ETC_COST_PC)
592 ,EQPMT_ACT_COST_TO_DATE_TC=DECODE(X_EQPMT_ACT_COST_TO_DATE_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,EQPMT_ACT_COST_TO_DATE_TC,X_EQPMT_ACT_COST_TO_DATE_TC)
593 ,EQPMT_ACT_COST_TO_DATE_FC=DECODE(X_EQPMT_ACT_COST_TO_DATE_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,EQPMT_ACT_COST_TO_DATE_FC,X_EQPMT_ACT_COST_TO_DATE_FC)
594 ,EQPMT_ACT_COST_TO_DATE_PC=DECODE(X_EQPMT_ACT_COST_TO_DATE_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,EQPMT_ACT_COST_TO_DATE_PC,X_EQPMT_ACT_COST_TO_DATE_PC)
595 ,EQPMT_ETC_COST_TC=DECODE(X_EQPMT_ETC_COST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,EQPMT_ETC_COST_TC,X_EQPMT_ETC_COST_TC)
596 ,EQPMT_ETC_COST_FC=DECODE(X_EQPMT_ETC_COST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,EQPMT_ETC_COST_FC,X_EQPMT_ETC_COST_FC)
597 ,EQPMT_ETC_COST_PC=DECODE(X_EQPMT_ETC_COST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,EQPMT_ETC_COST_PC,X_EQPMT_ETC_COST_PC)
598 ,EARNED_VALUE=DECODE(X_EARNED_VALUE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,EARNED_VALUE,X_EARNED_VALUE)
599 ,TASK_WT_BASIS_CODE=DECODE(X_TASK_WT_BASIS_CODE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,TASK_WT_BASIS_CODE,X_TASK_WT_BASIS_CODE)
600 ,SUBPRJ_PPL_ACT_EFFORT=DECODE(X_SUBPRJ_PPL_ACT_EFFORT,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_PPL_ACT_EFFORT,X_SUBPRJ_PPL_ACT_EFFORT)
601 ,SUBPRJ_EQPMT_ACT_EFFORT=DECODE(X_SUBPRJ_EQPMT_ACT_EFFORT,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_EQPMT_ACT_EFFORT,X_SUBPRJ_EQPMT_ACT_EFFORT)
602 ,SUBPRJ_PPL_ETC_EFFORT=DECODE(X_SUBPRJ_PPL_ETC_EFFORT,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_PPL_ETC_EFFORT,X_SUBPRJ_PPL_ETC_EFFORT)
603 ,SUBPRJ_EQPMT_ETC_EFFORT=DECODE(X_SUBPRJ_EQPMT_ETC_EFFORT,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_EQPMT_ETC_EFFORT,X_SUBPRJ_EQPMT_ETC_EFFORT)
604 ,SUBPRJ_OTH_ACT_COST_TO_DT_TC=DECODE(X_SBPJ_OTH_ACT_COST_TO_DATE_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_OTH_ACT_COST_TO_DT_TC,X_SBPJ_OTH_ACT_COST_TO_DATE_TC)
605 ,SUBPRJ_OTH_ACT_COST_TO_DT_FC =DECODE(X_SBPJ_OTH_ACT_COST_TO_DATE_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_OTH_ACT_COST_TO_DT_FC ,X_SBPJ_OTH_ACT_COST_TO_DATE_FC)
606 ,SUBPRJ_OTH_ACT_COST_TO_DT_PC=DECODE(X_SBPJ_OTH_ACT_COST_TO_DATE_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_OTH_ACT_COST_TO_DT_PC,X_SBPJ_OTH_ACT_COST_TO_DATE_PC)
607 ,SUBPRJ_PPL_ACT_COST_TC=DECODE(X_SUBPRJ_PPL_ACT_COST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_PPL_ACT_COST_TC,X_SUBPRJ_PPL_ACT_COST_TC)
608 ,SUBPRJ_PPL_ACT_COST_FC=DECODE(X_SUBPRJ_PPL_ACT_COST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_PPL_ACT_COST_FC,X_SUBPRJ_PPL_ACT_COST_FC)
609 ,SUBPRJ_PPL_ACT_COST_PC=DECODE(X_SUBPRJ_PPL_ACT_COST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_PPL_ACT_COST_PC,X_SUBPRJ_PPL_ACT_COST_PC)
610 ,SUBPRJ_EQPMT_ACT_COST_TC=DECODE(X_SUBPRJ_EQPMT_ACT_COST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_EQPMT_ACT_COST_TC,X_SUBPRJ_EQPMT_ACT_COST_TC)
611 ,SUBPRJ_EQPMT_ACT_COST_FC=DECODE(X_SUBPRJ_EQPMT_ACT_COST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_EQPMT_ACT_COST_FC,X_SUBPRJ_EQPMT_ACT_COST_FC)
612 ,SUBPRJ_EQPMT_ACT_COST_PC=DECODE(X_SUBPRJ_EQPMT_ACT_COST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_EQPMT_ACT_COST_PC,X_SUBPRJ_EQPMT_ACT_COST_PC)
613 ,SUBPRJ_OTH_ETC_COST_TC=DECODE(X_SUBPRJ_OTH_ETC_COST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_OTH_ETC_COST_TC,X_SUBPRJ_OTH_ETC_COST_TC)
614 ,SUBPRJ_OTH_ETC_COST_FC=DECODE(X_SUBPRJ_OTH_ETC_COST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_OTH_ETC_COST_FC,X_SUBPRJ_OTH_ETC_COST_FC)
615 ,SUBPRJ_OTH_ETC_COST_PC=DECODE(X_SUBPRJ_OTH_ETC_COST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_OTH_ETC_COST_PC,X_SUBPRJ_OTH_ETC_COST_PC)
616 ,SUBPRJ_PPL_ETC_COST_TC=DECODE(X_SUBPRJ_PPL_ETC_COST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_PPL_ETC_COST_TC,X_SUBPRJ_PPL_ETC_COST_TC)
617 ,SUBPRJ_PPL_ETC_COST_FC=DECODE(X_SUBPRJ_PPL_ETC_COST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_PPL_ETC_COST_FC,X_SUBPRJ_PPL_ETC_COST_FC)
618 ,SUBPRJ_PPL_ETC_COST_PC=DECODE(X_SUBPRJ_PPL_ETC_COST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_PPL_ETC_COST_PC,X_SUBPRJ_PPL_ETC_COST_PC)
619 ,SUBPRJ_EQPMT_ETC_COST_TC=DECODE(X_SUBPRJ_EQPMT_ETC_COST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_EQPMT_ETC_COST_TC,X_SUBPRJ_EQPMT_ETC_COST_TC)
620 ,SUBPRJ_EQPMT_ETC_COST_FC=DECODE(X_SUBPRJ_EQPMT_ETC_COST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_EQPMT_ETC_COST_FC,X_SUBPRJ_EQPMT_ETC_COST_FC)
621 ,SUBPRJ_EQPMT_ETC_COST_PC=DECODE(X_SUBPRJ_EQPMT_ETC_COST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_EQPMT_ETC_COST_PC,X_SUBPRJ_EQPMT_ETC_COST_PC)
622 ,SUBPRJ_EARNED_VALUE=DECODE(X_SUBPRJ_EARNED_VALUE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_EARNED_VALUE,X_SUBPRJ_EARNED_VALUE)
623 ,CURRENT_FLAG=DECODE(X_CURRENT_FLAG,PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,CURRENT_FLAG,X_CURRENT_FLAG)
624 ,PROJFUNC_COST_RATE_TYPE = DECODE(X_PROJFUNC_COST_RATE_TYPE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,PROJFUNC_COST_RATE_TYPE,X_PROJFUNC_COST_RATE_TYPE)
625 ,PROJFUNC_COST_EXCHANGE_RATE = DECODE(X_PROJFUNC_COST_EXCHANGE_RATE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PROJFUNC_COST_EXCHANGE_RATE,X_PROJFUNC_COST_EXCHANGE_RATE)
626 ,PROJFUNC_COST_RATE_DATE = DECODE(X_PROJFUNC_COST_RATE_DATE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,PROJFUNC_COST_RATE_DATE,X_PROJFUNC_COST_RATE_DATE)
627 ,PROJ_COST_RATE_TYPE = DECODE(X_PROJ_COST_RATE_TYPE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,PROJ_COST_RATE_TYPE,X_PROJ_COST_RATE_TYPE)
628 ,PROJ_COST_EXCHANGE_RATE = DECODE(X_PROJ_COST_EXCHANGE_RATE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PROJ_COST_EXCHANGE_RATE,X_PROJ_COST_EXCHANGE_RATE)
629 ,PROJ_COST_RATE_DATE = DECODE(X_PROJ_COST_RATE_DATE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_DATE,PROJ_COST_RATE_DATE,X_PROJ_COST_RATE_DATE)
630 ,TXN_CURRENCY_CODE = DECODE(X_TXN_CURRENCY_CODE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,TXN_CURRENCY_CODE,X_TXN_CURRENCY_CODE)
631 ,PROG_PA_PERIOD_NAME = DECODE(X_PROG_PA_PERIOD_NAME,PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,PROG_PA_PERIOD_NAME,X_PROG_PA_PERIOD_NAME)
632 ,PROG_GL_PERIOD_NAME = DECODE(X_PROG_GL_PERIOD_NAME,PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,PROG_GL_PERIOD_NAME,X_PROG_GL_PERIOD_NAME)
633 ,OTH_QUANTITY_TO_DATE = DECODE(X_OTH_QUANTITY_TO_DATE,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,OTH_QUANTITY_TO_DATE,X_OTH_QUANTITY_TO_DATE)
634 ,OTH_ETC_QUANTITY = DECODE(X_OTH_ETC_QUANTITY,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,OTH_ETC_QUANTITY,X_OTH_ETC_QUANTITY)
635 ,OTH_ACT_RAWCOST_TO_DATE_TC=DECODE(X_OTH_ACT_RAWCOST_TO_DATE_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,OTH_ACT_RAWCOST_TO_DATE_TC,X_OTH_ACT_RAWCOST_TO_DATE_TC)
636 ,OTH_ACT_RAWCOST_TO_DATE_FC=DECODE(X_OTH_ACT_RAWCOST_TO_DATE_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,OTH_ACT_RAWCOST_TO_DATE_FC,X_OTH_ACT_RAWCOST_TO_DATE_FC)
637 ,OTH_ACT_RAWCOST_TO_DATE_PC=DECODE(X_OTH_ACT_RAWCOST_TO_DATE_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,OTH_ACT_RAWCOST_TO_DATE_PC,X_OTH_ACT_RAWCOST_TO_DATE_PC)
638 ,OTH_ETC_RAWCOST_TC=DECODE(X_OTH_ETC_RAWCOST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,OTH_ETC_RAWCOST_TC,X_OTH_ETC_RAWCOST_TC)
639 ,OTH_ETC_RAWCOST_FC=DECODE(X_OTH_ETC_RAWCOST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,OTH_ETC_RAWCOST_FC,X_OTH_ETC_RAWCOST_FC)
640 ,OTH_ETC_RAWCOST_PC=DECODE(X_OTH_ETC_RAWCOST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,OTH_ETC_RAWCOST_PC,X_OTH_ETC_RAWCOST_PC)
641 ,PPL_ACT_RAWCOST_TO_DATE_TC=DECODE(X_PPL_ACT_RAWCOST_TO_DATE_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PPL_ACT_RAWCOST_TO_DATE_TC,X_PPL_ACT_RAWCOST_TO_DATE_TC)
642 ,PPL_ACT_RAWCOST_TO_DATE_FC=DECODE(X_PPL_ACT_RAWCOST_TO_DATE_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PPL_ACT_RAWCOST_TO_DATE_FC,X_PPL_ACT_RAWCOST_TO_DATE_FC)
643 ,PPL_ACT_RAWCOST_TO_DATE_PC=DECODE(X_PPL_ACT_RAWCOST_TO_DATE_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PPL_ACT_RAWCOST_TO_DATE_PC,X_PPL_ACT_RAWCOST_TO_DATE_PC)
644 ,PPL_ETC_RAWCOST_TC=DECODE(X_PPL_ETC_RAWCOST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PPL_ETC_RAWCOST_TC,X_PPL_ETC_RAWCOST_TC)
645 ,PPL_ETC_RAWCOST_FC=DECODE(X_PPL_ETC_RAWCOST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PPL_ETC_RAWCOST_FC,X_PPL_ETC_RAWCOST_FC)
646 ,PPL_ETC_RAWCOST_PC=DECODE(X_PPL_ETC_RAWCOST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,PPL_ETC_RAWCOST_PC,X_PPL_ETC_RAWCOST_PC)
647 ,EQPMT_ACT_RAWCOST_TO_DATE_TC=DECODE(X_EQPMT_ACT_RAWCOST_TO_DATE_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,EQPMT_ACT_RAWCOST_TO_DATE_TC,X_EQPMT_ACT_RAWCOST_TO_DATE_TC)
648 ,EQPMT_ACT_RAWCOST_TO_DATE_FC=DECODE(X_EQPMT_ACT_RAWCOST_TO_DATE_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,EQPMT_ACT_RAWCOST_TO_DATE_FC,X_EQPMT_ACT_RAWCOST_TO_DATE_FC)
649 ,EQPMT_ACT_RAWCOST_TO_DATE_PC=DECODE(X_EQPMT_ACT_RAWCOST_TO_DATE_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,EQPMT_ACT_RAWCOST_TO_DATE_PC,X_EQPMT_ACT_RAWCOST_TO_DATE_PC)
650 ,EQPMT_ETC_RAWCOST_TC=DECODE(X_EQPMT_ETC_RAWCOST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,EQPMT_ETC_RAWCOST_TC,X_EQPMT_ETC_RAWCOST_TC)
651 ,EQPMT_ETC_RAWCOST_FC=DECODE(X_EQPMT_ETC_RAWCOST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,EQPMT_ETC_RAWCOST_FC,X_EQPMT_ETC_RAWCOST_FC)
652 ,EQPMT_ETC_RAWCOST_PC=DECODE(X_EQPMT_ETC_RAWCOST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,EQPMT_ETC_RAWCOST_PC,X_EQPMT_ETC_RAWCOST_PC)
653 ,SPJ_OTH_ACT_RAWCOST_TO_DT_TC=DECODE(X_SP_OTH_ACT_RAWCOST_TODATE_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SPJ_OTH_ACT_RAWCOST_TO_DT_TC,X_SP_OTH_ACT_RAWCOST_TODATE_TC)
654 ,SPJ_OTH_ACT_RAWCOST_TO_DT_FC=DECODE(X_SP_OTH_ACT_RAWCOST_TODATE_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,X_SUBPRJ_EQPMT_ACT_RAWCOST_PC,X_SP_OTH_ACT_RAWCOST_TODATE_FC)
655 ,SPJ_OTH_ACT_RAWCOST_TO_DT_PC=DECODE(X_SP_OTH_ACT_RAWCOST_TODATE_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SPJ_OTH_ACT_RAWCOST_TO_DT_PC,X_SP_OTH_ACT_RAWCOST_TODATE_PC)
656 ,SUBPRJ_PPL_ACT_RAWCOST_TC=DECODE(X_SUBPRJ_PPL_ACT_RAWCOST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_PPL_ACT_RAWCOST_TC,X_SUBPRJ_PPL_ACT_RAWCOST_TC)
657 ,SUBPRJ_PPL_ACT_RAWCOST_FC=DECODE(X_SUBPRJ_PPL_ACT_RAWCOST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_PPL_ACT_RAWCOST_FC,X_SUBPRJ_PPL_ACT_RAWCOST_FC)
658 ,SUBPRJ_PPL_ACT_RAWCOST_PC=DECODE(X_SUBPRJ_PPL_ACT_RAWCOST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_PPL_ACT_RAWCOST_PC,X_SUBPRJ_PPL_ACT_RAWCOST_PC)
659 ,SUBPRJ_EQPMT_ACT_RAWCOST_TC=DECODE(X_SUBPRJ_EQPMT_ACT_RAWCOST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_EQPMT_ACT_RAWCOST_TC,X_SUBPRJ_EQPMT_ACT_RAWCOST_TC)
660 ,SUBPRJ_EQPMT_ACT_RAWCOST_FC=DECODE(X_SUBPRJ_EQPMT_ACT_RAWCOST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_EQPMT_ACT_RAWCOST_FC,X_SUBPRJ_EQPMT_ACT_RAWCOST_FC)
661 ,SUBPRJ_EQPMT_ACT_RAWCOST_PC=DECODE(X_SUBPRJ_EQPMT_ACT_RAWCOST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_EQPMT_ACT_RAWCOST_PC,X_SUBPRJ_EQPMT_ACT_RAWCOST_PC)
662 ,SUBPRJ_OTH_ETC_RAWCOST_TC=DECODE(X_SUBPRJ_OTH_ETC_RAWCOST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_OTH_ETC_RAWCOST_TC,X_SUBPRJ_OTH_ETC_RAWCOST_TC)
663 ,SUBPRJ_OTH_ETC_RAWCOST_FC=DECODE(X_SUBPRJ_OTH_ETC_RAWCOST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_OTH_ETC_RAWCOST_FC,X_SUBPRJ_OTH_ETC_RAWCOST_FC)
664 ,SUBPRJ_OTH_ETC_RAWCOST_PC=DECODE(X_SUBPRJ_OTH_ETC_RAWCOST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_OTH_ETC_RAWCOST_PC,X_SUBPRJ_OTH_ETC_RAWCOST_PC)
665 ,SUBPRJ_PPL_ETC_RAWCOST_TC=DECODE(X_SUBPRJ_PPL_ETC_RAWCOST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_PPL_ETC_RAWCOST_TC,X_SUBPRJ_PPL_ETC_RAWCOST_TC)
666 ,SUBPRJ_PPL_ETC_RAWCOST_FC=DECODE(X_SUBPRJ_PPL_ETC_RAWCOST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_PPL_ETC_RAWCOST_FC,X_SUBPRJ_PPL_ETC_RAWCOST_FC)
667 ,SUBPRJ_PPL_ETC_RAWCOST_PC=DECODE(X_SUBPRJ_PPL_ETC_RAWCOST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_PPL_ETC_RAWCOST_PC,X_SUBPRJ_PPL_ETC_RAWCOST_PC)
668 ,SUBPRJ_EQPMT_ETC_RAWCOST_TC=DECODE(X_SUBPRJ_EQPMT_ETC_RAWCOST_TC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_EQPMT_ETC_RAWCOST_TC,X_SUBPRJ_EQPMT_ETC_RAWCOST_TC)
669 ,SUBPRJ_EQPMT_ETC_RAWCOST_FC=DECODE(X_SUBPRJ_EQPMT_ETC_RAWCOST_FC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_EQPMT_ETC_RAWCOST_FC,X_SUBPRJ_EQPMT_ETC_RAWCOST_FC)
670 ,SUBPRJ_EQPMT_ETC_RAWCOST_PC=DECODE(X_SUBPRJ_EQPMT_ETC_RAWCOST_PC,PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,SUBPRJ_EQPMT_ETC_RAWCOST_PC,X_SUBPRJ_EQPMT_ETC_RAWCOST_PC)
671 ,CBS_ELEMENT_ID = X_CBS_ELEMENT_ID --Added for 16200605
672 WHERE PROGRESS_ROLLUP_ID = X_PROGRESS_ROLLUP_ID
673 AND record_version_number = x_record_version_number;
674
675 exception when others then
676 fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PROGRESS_ROLLUP_PKG',
677 p_procedure_name => 'UPDATE_ROW',
678 p_error_text => SUBSTRB(SQLERRM,1,240));
679 raise;
680 End update_row;
681
682 Procedure DELETE_ROW(
683 p_row_id VARCHAR2 ) IS
684 BEGIN
685 DELETE FROM pa_progress_rollup
686 WHERE rowid = p_row_id;
687 END DELETE_ROW;
688
689 end PA_PROGRESS_ROLLUP_PKG;
690
[Home] [Help]