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