[Home] [Help]
PACKAGE BODY: APPS.PA_ADW_CREATE_VIEWS
Source
1 PACKAGE BODY PA_ADW_CREATE_VIEWS AS
2 /* $Header: PAADWVWB.pls 115.1 99/07/16 13:22:31 porting shi $ */
3
4 FUNCTION Initialize RETURN NUMBER IS
5 BEGIN
6
7 RETURN (0);
8
9 EXCEPTION
10 WHEN OTHERS THEN
11 RAISE;
12 END Initialize;
13
14 -- Procedure to get dimension status
15
16 PROCEDURE get_dimension_status
17 (x_err_stage IN OUT VARCHAR2,
18 x_err_stack IN OUT VARCHAR2,
19 x_err_code IN OUT NUMBER)
20 IS
21 x_old_err_stack VARCHAR2(1024);
22 BEGIN
23 x_err_code := 0;
24 x_err_stage := 'Getting Dimensions Statuses';
25 x_old_err_stack := x_err_stack;
26 x_err_stack := x_err_stack || '-> get_dimension_status';
27
28 pa_debug.debug(x_err_stage);
29
30 -- First get the dimension statuses
31
32 pa_adw_collect_dimensions.get_dim_status
33 ('DM_PROJECT',
34 dim_project,
35 x_err_stage,
36 x_err_stack,
37 x_err_code);
38
39 pa_adw_collect_dimensions.get_dim_status
40 ('DM_RESOURCE',
41 dim_resource,
42 x_err_stage,
43 x_err_stack,
44 x_err_code);
45
46 pa_adw_collect_dimensions.get_dim_status
47 ('DM_PROJECT_ORG',
48 dim_project_org,
49 x_err_stage,
50 x_err_stack,
51 x_err_code);
52
53 pa_adw_collect_dimensions.get_dim_status
54 ('DM_EXP_ORG',
55 dim_exp_org,
56 x_err_stage,
57 x_err_stack,
58 x_err_code);
59
60 pa_adw_collect_dimensions.get_dim_status
61 ('DM_SRVC_TYPE',
62 dim_srvc_type,
63 x_err_stage,
64 x_err_stack,
65 x_err_code);
66
67 pa_adw_collect_dimensions.get_dim_status
68 ('DM_TIME',
69 dim_time,
70 x_err_stage,
71 x_err_stack,
72 x_err_code);
73
74 pa_adw_collect_dimensions.get_dim_status
75 ('DM_BGT_TYPE',
76 dim_bgt_type,
77 x_err_stage,
78 x_err_stack,
79 x_err_code);
80
81 pa_adw_collect_dimensions.get_dim_status
82 ('DM_EXP_TYPE',
83 dim_exp_type,
84 x_err_stage,
85 x_err_stack,
86 x_err_code);
87
88 pa_adw_collect_dimensions.get_dim_status
89 ('DM_OPERATING_UNIT',
90 dim_operating_unit,
91 x_err_stage,
92 x_err_stack,
93 x_err_code);
94
95 x_err_stack := x_old_err_stack;
96
97 EXCEPTION
98 WHEN OTHERS THEN
99 x_err_code := SQLCODE;
100 RAISE;
101 END get_dimension_status;
102
103 PROCEDURE generate_collection_views
104 (x_err_stage IN OUT VARCHAR2,
105 x_err_stack IN OUT VARCHAR2,
106 x_err_code IN OUT NUMBER)
107 IS
108 x_old_err_stack VARCHAR2(1024);
109 idx BINARY_INTEGER;
110 BEGIN
111 x_err_code := 0;
112 x_err_stage := 'Generating Collection Views';
113 x_old_err_stack := x_err_stack;
114 x_err_stack := x_err_stack || '-> generate_collection_views';
115
116 pa_debug.debug(x_err_stage);
117
118 get_dimension_status (x_err_stage, x_err_stack, x_err_code);
119
120 -- Build the view in a PL/SQL array
121
122 -- Actual and commitments main view
123
124 idx := 1;
125
126 view_act_cmt(idx) := 'CREATE OR REPLACE FORCE VIEW PA_ADW_ACT_CMT_V';
127 idx:=idx+1;
128 view_act_cmt(idx) := '(';
129 idx:=idx+1;
130 view_act_cmt(idx) := ' PROJECT_ID,';
131 idx:=idx+1;
132 view_act_cmt(idx) := ' TOP_TASK_ID,';
133 idx:=idx+1;
134 view_act_cmt(idx) := ' TASK_ID,';
135 idx:=idx+1;
136 view_act_cmt(idx) := ' PA_PERIOD_KEY,';
137 idx:=idx+1;
138 view_act_cmt(idx) := ' EXPENSE_ORGANIZATION_ID,';
139 idx:=idx+1;
140 view_act_cmt(idx) := ' OWNER_ORGANIZATION_ID,';
141 idx:=idx+1;
142 view_act_cmt(idx) := ' RESOURCE_LIST_MEMBER_ID,';
143 idx:=idx+1;
144 view_act_cmt(idx) := ' SERVICE_TYPE_CODE,';
145 idx:=idx+1;
146 view_act_cmt(idx) := ' EXPENDITURE_TYPE,';
147 idx:=idx+1;
148 view_act_cmt(idx) := ' USER_COL1,';
149 idx:=idx+1;
150 view_act_cmt(idx) := ' USER_COL2,';
151 idx:=idx+1;
152 view_act_cmt(idx) := ' USER_COL3,';
153 idx:=idx+1;
154 view_act_cmt(idx) := ' USER_COL4,';
155 idx:=idx+1;
156 view_act_cmt(idx) := ' USER_COL5,';
157 idx:=idx+1;
158 view_act_cmt(idx) := ' USER_COL6,';
159 idx:=idx+1;
160 view_act_cmt(idx) := ' USER_COL7,';
161 idx:=idx+1;
162 view_act_cmt(idx) := ' USER_COL8,';
163 idx:=idx+1;
164 view_act_cmt(idx) := ' USER_COL9,';
165 idx:=idx+1;
166 view_act_cmt(idx) := ' USER_COL10,';
167 idx:=idx+1;
168 view_act_cmt(idx) := ' ACCUME_REVENUE,';
169 idx:=idx+1;
170 view_act_cmt(idx) := ' ACCUME_RAW_COST,';
171 idx:=idx+1;
172 view_act_cmt(idx) := ' ACCUME_BURDENED_COST,';
173 idx:=idx+1;
174 view_act_cmt(idx) := ' ACCUME_QUANTITY,';
175 idx:=idx+1;
176 view_act_cmt(idx) := ' ACCUME_LABOR_HOURS,';
177 idx:=idx+1;
178 view_act_cmt(idx) := ' ACCUME_BILLABLE_RAW_COST,';
179 idx:=idx+1;
180 view_act_cmt(idx) := ' ACCUME_BILLABLE_BURDENED_COST,';
181 idx:=idx+1;
182 view_act_cmt(idx) := ' ACCUME_BILLABLE_QUANTITY,';
183 idx:=idx+1;
184 view_act_cmt(idx) := ' ACCUME_BILLABLE_LABOR_HOURS,';
185 idx:=idx+1;
186 view_act_cmt(idx) := ' ACCUME_CMT_RAW_COST,';
187 idx:=idx+1;
188 view_act_cmt(idx) := ' ACCUME_CMT_BURDENED_COST,';
189 idx:=idx+1;
190 view_act_cmt(idx) := ' ACCUME_CMT_QUANTITY,';
191 idx:=idx+1;
192 view_act_cmt(idx) := ' UNIT_OF_MEASURE,';
193 idx:=idx+1;
194 view_act_cmt(idx) := ' RES_ADW_NOTIFY_FLAG,';
195 idx:=idx+1;
196 view_act_cmt(idx) := ' TXN_ADW_NOTIFY_FLAG';
197 idx:=idx+1;
198 view_act_cmt(idx) := ') AS';
199 idx:=idx+1;
200 view_act_cmt(idx) := 'SELECT';
201 idx:=idx+1;
202 view_act_cmt(idx) := ' PROJECT_ID,';
203 idx:=idx+1;
204 view_act_cmt(idx) := ' TOP_TASK_ID,';
205 idx:=idx+1;
206 view_act_cmt(idx) := ' TASK_ID,';
207 idx:=idx+1;
208 view_act_cmt(idx) := ' PA_PERIOD_KEY,';
209 idx:=idx+1;
210 IF ( dim_exp_org = 'E' ) THEN
211 view_act_cmt(idx) := ' EXPENSE_ORGANIZATION_ID,';
212 ELSE
213 view_act_cmt(idx) := TO_CHAR(disabled_dim_value_number) || ', /* Disabled */';
214 END IF;
215 idx:=idx+1;
216 IF ( dim_project_org = 'E' ) THEN
217 view_act_cmt(idx) := ' OWNER_ORGANIZATION_ID,';
218 ELSE
219 view_act_cmt(idx) := TO_CHAR(disabled_dim_value_number) || ', /* Disabled */';
220 END IF;
221 idx:=idx+1;
222 view_act_cmt(idx) := ' RESOURCE_LIST_MEMBER_ID,';
223 idx:=idx+1;
224 IF ( dim_srvc_type = 'E' ) THEN
225 view_act_cmt(idx) := ' SERVICE_TYPE_CODE,';
226 ELSE
227 view_act_cmt(idx) := disabled_dim_value_char || ', /* Disabled */';
228 END IF;
229 idx:=idx+1;
230 IF ( dim_exp_type = 'E' ) THEN
231 view_act_cmt(idx) := ' EXPENDITURE_TYPE,';
232 ELSE
233 view_act_cmt(idx) := disabled_dim_value_char || ', /* Disabled */';
234 END IF;
235 idx:=idx+1;
236 view_act_cmt(idx) := ' USER_COL1,';
237 idx:=idx+1;
238 view_act_cmt(idx) := ' USER_COL2,';
239 idx:=idx+1;
240 view_act_cmt(idx) := ' USER_COL3,';
241 idx:=idx+1;
242 view_act_cmt(idx) := ' USER_COL4,';
243 idx:=idx+1;
244 view_act_cmt(idx) := ' USER_COL5,';
245 idx:=idx+1;
246 view_act_cmt(idx) := ' USER_COL6,';
247 idx:=idx+1;
248 view_act_cmt(idx) := ' USER_COL7,';
249 idx:=idx+1;
250 view_act_cmt(idx) := ' USER_COL8,';
251 idx:=idx+1;
252 view_act_cmt(idx) := ' USER_COL9,';
253 idx:=idx+1;
254 view_act_cmt(idx) := ' USER_COL10,';
255 idx:=idx+1;
256 view_act_cmt(idx) := ' ACCUME_REVENUE,';
257 idx:=idx+1;
258 view_act_cmt(idx) := ' ACCUME_RAW_COST,';
259 idx:=idx+1;
260 view_act_cmt(idx) := ' ACCUME_BURDENED_COST,';
261 idx:=idx+1;
262 view_act_cmt(idx) := ' ACCUME_QUANTITY,';
263 idx:=idx+1;
264 view_act_cmt(idx) := ' ACCUME_LABOR_HOURS,';
265 idx:=idx+1;
266 view_act_cmt(idx) := ' ACCUME_BILLABLE_RAW_COST,';
267 idx:=idx+1;
268 view_act_cmt(idx) := ' ACCUME_BILLABLE_BURDENED_COST,';
269 idx:=idx+1;
270 view_act_cmt(idx) := ' ACCUME_BILLABLE_QUANTITY,';
271 idx:=idx+1;
272 view_act_cmt(idx) := ' ACCUME_BILLABLE_LABOR_HOURS,';
273 idx:=idx+1;
274 view_act_cmt(idx) := ' ACCUME_CMT_RAW_COST,';
275 idx:=idx+1;
276 view_act_cmt(idx) := ' ACCUME_CMT_BURDENED_COST,';
277 idx:=idx+1;
278 view_act_cmt(idx) := ' ACCUME_CMT_QUANTITY,';
279 idx:=idx+1;
280 IF ( dim_exp_type = 'E' ) THEN
281 view_act_cmt(idx) := ' UNIT_OF_MEASURE,';
282 ELSE
283 view_act_cmt(idx) := disabled_dim_value_char || ', /* Disabled */';
284 END IF;
285 idx:=idx+1;
286 view_act_cmt(idx) := ' RES_ADW_NOTIFY_FLAG,';
287 idx:=idx+1;
288 view_act_cmt(idx) := ' TXN_ADW_NOTIFY_FLAG';
289 idx:=idx+1;
290 view_act_cmt(idx) := 'FROM';
291 idx:=idx+1;
292 view_act_cmt(idx) := ' PA_ADW_ACT_CMT_B_V';
293
294 view_idx_act_cmt := idx;
295
296 idx := 1;
297
298 view_ref_act_cmt(idx) := 'CREATE OR REPLACE FORCE VIEW PA_ADW_R_ACT_CMT_V';
299 idx:=idx+1;
300 view_ref_act_cmt(idx) := '(';
301 idx:=idx+1;
302 view_ref_act_cmt(idx) := ' PROJECT_ID,';
303 idx:=idx+1;
304 view_ref_act_cmt(idx) := ' TOP_TASK_ID,';
305 idx:=idx+1;
306 view_ref_act_cmt(idx) := ' TASK_ID,';
307 idx:=idx+1;
308 view_ref_act_cmt(idx) := ' PA_PERIOD_KEY,';
309 idx:=idx+1;
310 view_ref_act_cmt(idx) := ' EXPENSE_ORGANIZATION_ID,';
311 idx:=idx+1;
312 view_ref_act_cmt(idx) := ' OWNER_ORGANIZATION_ID,';
313 idx:=idx+1;
314 view_ref_act_cmt(idx) := ' RESOURCE_LIST_MEMBER_ID,';
315 idx:=idx+1;
316 view_ref_act_cmt(idx) := ' SERVICE_TYPE_CODE,';
317 idx:=idx+1;
318 view_ref_act_cmt(idx) := ' EXPENDITURE_TYPE,';
319 idx:=idx+1;
320 view_ref_act_cmt(idx) := ' USER_COL1,';
321 idx:=idx+1;
322 view_ref_act_cmt(idx) := ' USER_COL2,';
323 idx:=idx+1;
324 view_ref_act_cmt(idx) := ' USER_COL3,';
325 idx:=idx+1;
326 view_ref_act_cmt(idx) := ' USER_COL4,';
327 idx:=idx+1;
328 view_ref_act_cmt(idx) := ' USER_COL5,';
329 idx:=idx+1;
330 view_ref_act_cmt(idx) := ' USER_COL6,';
331 idx:=idx+1;
332 view_ref_act_cmt(idx) := ' USER_COL7,';
333 idx:=idx+1;
334 view_ref_act_cmt(idx) := ' USER_COL8,';
335 idx:=idx+1;
336 view_ref_act_cmt(idx) := ' USER_COL9,';
337 idx:=idx+1;
338 view_ref_act_cmt(idx) := ' USER_COL10,';
339 idx:=idx+1;
340 view_ref_act_cmt(idx) := ' ACCUME_REVENUE,';
341 idx:=idx+1;
342 view_ref_act_cmt(idx) := ' ACCUME_RAW_COST,';
343 idx:=idx+1;
344 view_ref_act_cmt(idx) := ' ACCUME_BURDENED_COST,';
345 idx:=idx+1;
346 view_ref_act_cmt(idx) := ' ACCUME_QUANTITY,';
347 idx:=idx+1;
348 view_ref_act_cmt(idx) := ' ACCUME_LABOR_HOURS,';
349 idx:=idx+1;
350 view_ref_act_cmt(idx) := ' ACCUME_BILLABLE_RAW_COST,';
351 idx:=idx+1;
352 view_ref_act_cmt(idx) := ' ACCUME_BILLABLE_BURDENED_COST,';
353 idx:=idx+1;
354 view_ref_act_cmt(idx) := ' ACCUME_BILLABLE_QUANTITY,';
355 idx:=idx+1;
356 view_ref_act_cmt(idx) := ' ACCUME_BILLABLE_LABOR_HOURS,';
357 idx:=idx+1;
358 view_ref_act_cmt(idx) := ' ACCUME_CMT_RAW_COST,';
359 idx:=idx+1;
360 view_ref_act_cmt(idx) := ' ACCUME_CMT_BURDENED_COST,';
361 idx:=idx+1;
362 view_ref_act_cmt(idx) := ' ACCUME_CMT_QUANTITY,';
363 idx:=idx+1;
364 view_ref_act_cmt(idx) := ' UNIT_OF_MEASURE,';
365 idx:=idx+1;
366 view_ref_act_cmt(idx) := ' RES_ADW_NOTIFY_FLAG,';
367 idx:=idx+1;
368 view_ref_act_cmt(idx) := ' TXN_ADW_NOTIFY_FLAG,';
369 idx:=idx+1;
370 view_ref_act_cmt(idx) := ' TSK_ADW_NOTIFY_FLAG';
371 idx:=idx+1;
372 view_ref_act_cmt(idx) := ') AS';
373 idx:=idx+1;
374 view_ref_act_cmt(idx) := 'SELECT';
375 idx:=idx+1;
376 view_ref_act_cmt(idx) := ' PROJECT_ID,';
377 idx:=idx+1;
378 view_ref_act_cmt(idx) := ' TOP_TASK_ID,';
379 idx:=idx+1;
380 view_ref_act_cmt(idx) := ' TASK_ID,';
381 idx:=idx+1;
382 view_ref_act_cmt(idx) := ' PA_PERIOD_KEY,';
383 idx:=idx+1;
384 IF ( dim_exp_org = 'E' ) THEN
385 view_ref_act_cmt(idx) := ' EXPENSE_ORGANIZATION_ID,';
386 ELSE
387 view_ref_act_cmt(idx) := TO_CHAR(disabled_dim_value_number) || ', /* Disabled */';
388 END IF;
389 idx:=idx+1;
390 IF ( dim_project_org = 'E' ) THEN
391 view_ref_act_cmt(idx) := ' OWNER_ORGANIZATION_ID,';
392 ELSE
393 view_ref_act_cmt(idx) := TO_CHAR(disabled_dim_value_number) || ', /* Disabled */';
394 END IF;
395 idx:=idx+1;
396 view_ref_act_cmt(idx) := ' RESOURCE_LIST_MEMBER_ID,';
397 idx:=idx+1;
398 IF ( dim_srvc_type = 'E' ) THEN
399 view_ref_act_cmt(idx) := ' SERVICE_TYPE_CODE,';
400 ELSE
401 view_ref_act_cmt(idx) := disabled_dim_value_char || ', /* Disabled */';
402 END IF;
403 idx:=idx+1;
404 IF ( dim_exp_type = 'E' ) THEN
405 view_ref_act_cmt(idx) := ' EXPENDITURE_TYPE,';
409 idx:=idx+1;
406 ELSE
407 view_ref_act_cmt(idx) := disabled_dim_value_char || ', /* Disabled */';
408 END IF;
410 view_ref_act_cmt(idx) := ' USER_COL1,';
411 idx:=idx+1;
412 view_ref_act_cmt(idx) := ' USER_COL2,';
413 idx:=idx+1;
414 view_ref_act_cmt(idx) := ' USER_COL3,';
415 idx:=idx+1;
416 view_ref_act_cmt(idx) := ' USER_COL4,';
417 idx:=idx+1;
418 view_ref_act_cmt(idx) := ' USER_COL5,';
419 idx:=idx+1;
420 view_ref_act_cmt(idx) := ' USER_COL6,';
421 idx:=idx+1;
422 view_ref_act_cmt(idx) := ' USER_COL7,';
423 idx:=idx+1;
424 view_ref_act_cmt(idx) := ' USER_COL8,';
425 idx:=idx+1;
426 view_ref_act_cmt(idx) := ' USER_COL9,';
427 idx:=idx+1;
428 view_ref_act_cmt(idx) := ' USER_COL10,';
429 idx:=idx+1;
430 view_ref_act_cmt(idx) := ' ACCUME_REVENUE,';
431 idx:=idx+1;
432 view_ref_act_cmt(idx) := ' ACCUME_RAW_COST,';
433 idx:=idx+1;
434 view_ref_act_cmt(idx) := ' ACCUME_BURDENED_COST,';
435 idx:=idx+1;
436 view_ref_act_cmt(idx) := ' ACCUME_QUANTITY,';
437 idx:=idx+1;
438 view_ref_act_cmt(idx) := ' ACCUME_LABOR_HOURS,';
439 idx:=idx+1;
440 view_ref_act_cmt(idx) := ' ACCUME_BILLABLE_RAW_COST,';
441 idx:=idx+1;
442 view_ref_act_cmt(idx) := ' ACCUME_BILLABLE_BURDENED_COST,';
443 idx:=idx+1;
444 view_ref_act_cmt(idx) := ' ACCUME_BILLABLE_QUANTITY,';
445 idx:=idx+1;
446 view_ref_act_cmt(idx) := ' ACCUME_BILLABLE_LABOR_HOURS,';
447 idx:=idx+1;
448 view_ref_act_cmt(idx) := ' ACCUME_CMT_RAW_COST,';
449 idx:=idx+1;
450 view_ref_act_cmt(idx) := ' ACCUME_CMT_BURDENED_COST,';
451 idx:=idx+1;
452 view_ref_act_cmt(idx) := ' ACCUME_CMT_QUANTITY,';
453 idx:=idx+1;
454 IF ( dim_exp_type = 'E' ) THEN
455 view_ref_act_cmt(idx) := ' UNIT_OF_MEASURE,';
456 ELSE
457 view_ref_act_cmt(idx) := disabled_dim_value_char || ', /* Disabled */';
458 END IF;
459 idx:=idx+1;
460 view_ref_act_cmt(idx) := ' RES_ADW_NOTIFY_FLAG,';
461 idx:=idx+1;
462 view_ref_act_cmt(idx) := ' TXN_ADW_NOTIFY_FLAG,';
463 idx:=idx+1;
464 view_ref_act_cmt(idx) := ' TSK_ADW_NOTIFY_FLAG';
465 idx:=idx+1;
466 view_ref_act_cmt(idx) := 'FROM';
467 idx:=idx+1;
468 view_ref_act_cmt(idx) := ' PA_ADW_R_ACT_CMT_B_V';
469
470 view_idx_ref_act_cmt := idx;
471
472 idx := 1;
473
474 view_ref_ser_type_act_cmt(idx) := 'CREATE OR REPLACE FORCE VIEW PA_ADW_R_ST_ACT_CMT_V';
475 idx:=idx+1;
476 view_ref_ser_type_act_cmt(idx) := '(';
477 idx:=idx+1;
478 view_ref_ser_type_act_cmt(idx) := ' PROJECT_ID,';
479 idx:=idx+1;
480 view_ref_ser_type_act_cmt(idx) := ' TOP_TASK_ID,';
481 idx:=idx+1;
482 view_ref_ser_type_act_cmt(idx) := ' TASK_ID,';
483 idx:=idx+1;
484 view_ref_ser_type_act_cmt(idx) := ' PA_PERIOD_KEY,';
485 idx:=idx+1;
486 view_ref_ser_type_act_cmt(idx) := ' EXPENSE_ORGANIZATION_ID,';
487 idx:=idx+1;
488 view_ref_ser_type_act_cmt(idx) := ' OWNER_ORGANIZATION_ID,';
489 idx:=idx+1;
490 view_ref_ser_type_act_cmt(idx) := ' RESOURCE_LIST_MEMBER_ID,';
491 idx:=idx+1;
492 view_ref_ser_type_act_cmt(idx) := ' SERVICE_TYPE_CODE,';
493 idx:=idx+1;
494 view_ref_ser_type_act_cmt(idx) := ' EXPENDITURE_TYPE,';
495 idx:=idx+1;
496 view_ref_ser_type_act_cmt(idx) := ' USER_COL1,';
497 idx:=idx+1;
498 view_ref_ser_type_act_cmt(idx) := ' USER_COL2,';
499 idx:=idx+1;
500 view_ref_ser_type_act_cmt(idx) := ' USER_COL3,';
501 idx:=idx+1;
502 view_ref_ser_type_act_cmt(idx) := ' USER_COL4,';
503 idx:=idx+1;
504 view_ref_ser_type_act_cmt(idx) := ' USER_COL5,';
505 idx:=idx+1;
506 view_ref_ser_type_act_cmt(idx) := ' USER_COL6,';
507 idx:=idx+1;
508 view_ref_ser_type_act_cmt(idx) := ' USER_COL7,';
509 idx:=idx+1;
510 view_ref_ser_type_act_cmt(idx) := ' USER_COL8,';
511 idx:=idx+1;
512 view_ref_ser_type_act_cmt(idx) := ' USER_COL9,';
513 idx:=idx+1;
514 view_ref_ser_type_act_cmt(idx) := ' USER_COL10,';
515 idx:=idx+1;
516 view_ref_ser_type_act_cmt(idx) := ' ACCUME_REVENUE,';
517 idx:=idx+1;
518 view_ref_ser_type_act_cmt(idx) := ' ACCUME_RAW_COST,';
519 idx:=idx+1;
520 view_ref_ser_type_act_cmt(idx) := ' ACCUME_BURDENED_COST,';
521 idx:=idx+1;
522 view_ref_ser_type_act_cmt(idx) := ' ACCUME_QUANTITY,';
523 idx:=idx+1;
524 view_ref_ser_type_act_cmt(idx) := ' ACCUME_LABOR_HOURS,';
525 idx:=idx+1;
526 view_ref_ser_type_act_cmt(idx) := ' ACCUME_BILLABLE_RAW_COST,';
527 idx:=idx+1;
528 view_ref_ser_type_act_cmt(idx) := ' ACCUME_BILLABLE_BURDENED_COST,';
529 idx:=idx+1;
530 view_ref_ser_type_act_cmt(idx) := ' ACCUME_BILLABLE_QUANTITY,';
531 idx:=idx+1;
532 view_ref_ser_type_act_cmt(idx) := ' ACCUME_BILLABLE_LABOR_HOURS,';
533 idx:=idx+1;
534 view_ref_ser_type_act_cmt(idx) := ' ACCUME_CMT_RAW_COST,';
535 idx:=idx+1;
536 view_ref_ser_type_act_cmt(idx) := ' ACCUME_CMT_BURDENED_COST,';
537 idx:=idx+1;
538 view_ref_ser_type_act_cmt(idx) := ' ACCUME_CMT_QUANTITY,';
539 idx:=idx+1;
540 view_ref_ser_type_act_cmt(idx) := ' UNIT_OF_MEASURE,';
541 idx:=idx+1;
542 view_ref_ser_type_act_cmt(idx) := ' RES_ADW_NOTIFY_FLAG,';
543 idx:=idx+1;
544 view_ref_ser_type_act_cmt(idx) := ' TXN_ADW_NOTIFY_FLAG,';
545 idx:=idx+1;
546 view_ref_ser_type_act_cmt(idx) := ' TSK_ADW_NOTIFY_FLAG';
550 view_ref_ser_type_act_cmt(idx) := 'SELECT';
547 idx:=idx+1;
548 view_ref_ser_type_act_cmt(idx) := ') AS';
549 idx:=idx+1;
551 idx:=idx+1;
552 view_ref_ser_type_act_cmt(idx) := ' PROJECT_ID,';
553 idx:=idx+1;
554 view_ref_ser_type_act_cmt(idx) := ' TOP_TASK_ID,';
555 idx:=idx+1;
556 view_ref_ser_type_act_cmt(idx) := ' TASK_ID,';
557 idx:=idx+1;
558 view_ref_ser_type_act_cmt(idx) := ' PA_PERIOD_KEY,';
559 idx:=idx+1;
560 IF ( dim_exp_org = 'E' ) THEN
561 view_ref_ser_type_act_cmt(idx) := ' EXPENSE_ORGANIZATION_ID,';
562 ELSE
563 view_ref_ser_type_act_cmt(idx) := TO_CHAR(disabled_dim_value_number) || ', /* Disabled */';
564 END IF;
565 idx:=idx+1;
566 IF ( dim_project_org = 'E' ) THEN
567 view_ref_ser_type_act_cmt(idx) := ' OWNER_ORGANIZATION_ID,';
568 ELSE
569 view_ref_ser_type_act_cmt(idx) := TO_CHAR(disabled_dim_value_number) || ', /* Disabled */';
570 END IF;
571 idx:=idx+1;
572 view_ref_ser_type_act_cmt(idx) := ' RESOURCE_LIST_MEMBER_ID,';
573 idx:=idx+1;
574 IF ( dim_srvc_type = 'E' ) THEN
575 view_ref_ser_type_act_cmt(idx) := ' SERVICE_TYPE_CODE,';
576 ELSE
577 view_ref_ser_type_act_cmt(idx) := disabled_dim_value_char || ', /* Disabled */';
578 END IF;
579 idx:=idx+1;
580 IF ( dim_exp_type = 'E' ) THEN
581 view_ref_ser_type_act_cmt(idx) := ' EXPENDITURE_TYPE,';
582 ELSE
583 view_ref_ser_type_act_cmt(idx) := disabled_dim_value_char || ', /* Disabled */';
584 END IF;
585 idx:=idx+1;
586 view_ref_ser_type_act_cmt(idx) := ' USER_COL1,';
587 idx:=idx+1;
588 view_ref_ser_type_act_cmt(idx) := ' USER_COL2,';
589 idx:=idx+1;
590 view_ref_ser_type_act_cmt(idx) := ' USER_COL3,';
591 idx:=idx+1;
592 view_ref_ser_type_act_cmt(idx) := ' USER_COL4,';
593 idx:=idx+1;
594 view_ref_ser_type_act_cmt(idx) := ' USER_COL5,';
595 idx:=idx+1;
596 view_ref_ser_type_act_cmt(idx) := ' USER_COL6,';
597 idx:=idx+1;
598 view_ref_ser_type_act_cmt(idx) := ' USER_COL7,';
599 idx:=idx+1;
600 view_ref_ser_type_act_cmt(idx) := ' USER_COL8,';
601 idx:=idx+1;
602 view_ref_ser_type_act_cmt(idx) := ' USER_COL9,';
603 idx:=idx+1;
604 view_ref_ser_type_act_cmt(idx) := ' USER_COL10,';
605 idx:=idx+1;
606 view_ref_ser_type_act_cmt(idx) := ' ACCUME_REVENUE,';
607 idx:=idx+1;
608 view_ref_ser_type_act_cmt(idx) := ' ACCUME_RAW_COST,';
609 idx:=idx+1;
610 view_ref_ser_type_act_cmt(idx) := ' ACCUME_BURDENED_COST,';
611 idx:=idx+1;
612 view_ref_ser_type_act_cmt(idx) := ' ACCUME_QUANTITY,';
613 idx:=idx+1;
614 view_ref_ser_type_act_cmt(idx) := ' ACCUME_LABOR_HOURS,';
615 idx:=idx+1;
616 view_ref_ser_type_act_cmt(idx) := ' ACCUME_BILLABLE_RAW_COST,';
617 idx:=idx+1;
618 view_ref_ser_type_act_cmt(idx) := ' ACCUME_BILLABLE_BURDENED_COST,';
619 idx:=idx+1;
620 view_ref_ser_type_act_cmt(idx) := ' ACCUME_BILLABLE_QUANTITY,';
621 idx:=idx+1;
622 view_ref_ser_type_act_cmt(idx) := ' ACCUME_BILLABLE_LABOR_HOURS,';
623 idx:=idx+1;
624 view_ref_ser_type_act_cmt(idx) := ' ACCUME_CMT_RAW_COST,';
625 idx:=idx+1;
626 view_ref_ser_type_act_cmt(idx) := ' ACCUME_CMT_BURDENED_COST,';
627 idx:=idx+1;
628 view_ref_ser_type_act_cmt(idx) := ' ACCUME_CMT_QUANTITY,';
629 idx:=idx+1;
630 IF ( dim_exp_type = 'E' ) THEN
631 view_ref_ser_type_act_cmt(idx) := ' UNIT_OF_MEASURE,';
632 ELSE
633 view_ref_ser_type_act_cmt(idx) := disabled_dim_value_char || ', /* Disabled */';
634 END IF;
635 idx:=idx+1;
636 view_ref_ser_type_act_cmt(idx) := ' RES_ADW_NOTIFY_FLAG,';
637 idx:=idx+1;
638 view_ref_ser_type_act_cmt(idx) := ' TXN_ADW_NOTIFY_FLAG,';
639 idx:=idx+1;
640 view_ref_ser_type_act_cmt(idx) := ' TSK_ADW_NOTIFY_FLAG';
641 idx:=idx+1;
642 view_ref_ser_type_act_cmt(idx) := 'FROM';
643 idx:=idx+1;
644 view_ref_ser_type_act_cmt(idx) := ' PA_ADW_R_ST_ACT_CMT_B_V';
645
646 view_idx_ref_ser_type_act_cmt := idx;
647
648 -- Budget Views
649
650 idx := 1;
651
652 view_budget_lines(idx) := 'CREATE OR REPLACE FORCE VIEW PA_ADW_BGT_LINES_V';
653 idx:=idx+1;
654 view_budget_lines(idx) := '(';
655 idx:=idx+1;
656 view_budget_lines(idx) := ' PROJECT_ID,';
657 idx:=idx+1;
658 view_budget_lines(idx) := ' TOP_TASK_ID,';
659 idx:=idx+1;
660 view_budget_lines(idx) := ' TASK_ID,';
661 idx:=idx+1;
662 view_budget_lines(idx) := ' PA_PERIOD_KEY,';
663 idx:=idx+1;
664 view_budget_lines(idx) := ' BUDGET_TYPE_CODE,';
665 idx:=idx+1;
666 view_budget_lines(idx) := ' RESOURCE_LIST_MEMBER_ID,';
667 idx:=idx+1;
668 view_budget_lines(idx) := ' SERVICE_TYPE_CODE,';
669 idx:=idx+1;
670 view_budget_lines(idx) := ' OWNER_ORGANIZATION_ID,';
671 idx:=idx+1;
672 view_budget_lines(idx) := ' EXPENDITURE_TYPE,';
673 idx:=idx+1;
674 view_budget_lines(idx) := ' USER_COL1,';
675 idx:=idx+1;
676 view_budget_lines(idx) := ' USER_COL2,';
677 idx:=idx+1;
678 view_budget_lines(idx) := ' USER_COL3,';
679 idx:=idx+1;
680 view_budget_lines(idx) := ' USER_COL4,';
681 idx:=idx+1;
682 view_budget_lines(idx) := ' USER_COL5,';
683 idx:=idx+1;
684 view_budget_lines(idx) := ' USER_COL6,';
685 idx:=idx+1;
686 view_budget_lines(idx) := ' USER_COL7,';
687 idx:=idx+1;
691 idx:=idx+1;
688 view_budget_lines(idx) := ' USER_COL8,';
689 idx:=idx+1;
690 view_budget_lines(idx) := ' USER_COL9,';
692 view_budget_lines(idx) := ' USER_COL10,';
693 idx:=idx+1;
694 view_budget_lines(idx) := ' BGT_RAW_COST,';
695 idx:=idx+1;
696 view_budget_lines(idx) := ' BGT_BURDENED_COST,';
697 idx:=idx+1;
698 view_budget_lines(idx) := ' BGT_REVENUE,';
699 idx:=idx+1;
700 view_budget_lines(idx) := ' BGT_QUANTITY,';
701 idx:=idx+1;
702 view_budget_lines(idx) := ' BGT_LABOR_QUANTITY,';
703 idx:=idx+1;
704 view_budget_lines(idx) := ' BGT_UNIT_OF_MEASURE,';
705 idx:=idx+1;
706 view_budget_lines(idx) := ' ADW_NOTIFY_FLAG';
707 idx:=idx+1;
708 view_budget_lines(idx) := ') AS';
709 idx:=idx+1;
710 view_budget_lines(idx) := 'SELECT';
711 idx:=idx+1;
712 view_budget_lines(idx) := ' PROJECT_ID,';
713 idx:=idx+1;
714 view_budget_lines(idx) := ' TOP_TASK_ID,';
715 idx:=idx+1;
716 view_budget_lines(idx) := ' TASK_ID,';
717 idx:=idx+1;
718 view_budget_lines(idx) := ' PA_PERIOD_KEY,';
719 idx:=idx+1;
720 view_budget_lines(idx) := ' BUDGET_TYPE_CODE,';
721 idx:=idx+1;
722 view_budget_lines(idx) := ' RESOURCE_LIST_MEMBER_ID,';
723 idx:=idx+1;
724 IF ( dim_srvc_type = 'E' ) THEN
725 view_budget_lines(idx) := ' SERVICE_TYPE_CODE,';
726 ELSE
727 view_budget_lines(idx) := disabled_dim_value_char || ', /* Disabled */';
728 END IF;
729 idx:=idx+1;
730 IF ( dim_project_org = 'E' ) THEN
731 view_budget_lines(idx) := ' OWNER_ORGANIZATION_ID,';
732 ELSE
733 view_budget_lines(idx) := TO_CHAR(disabled_dim_value_number) || ', /* Disabled */';
734 END IF;
735 idx:=idx+1;
736 IF ( dim_exp_type = 'E' ) THEN
737 view_budget_lines(idx) := ' EXPENDITURE_TYPE,';
738 ELSE
739 view_budget_lines(idx) := disabled_dim_value_char || ', /* Disabled */';
740 END IF;
741 idx:=idx+1;
742 view_budget_lines(idx) := ' USER_COL1,';
743 idx:=idx+1;
744 view_budget_lines(idx) := ' USER_COL2,';
745 idx:=idx+1;
746 view_budget_lines(idx) := ' USER_COL3,';
747 idx:=idx+1;
748 view_budget_lines(idx) := ' USER_COL4,';
749 idx:=idx+1;
750 view_budget_lines(idx) := ' USER_COL5,';
751 idx:=idx+1;
752 view_budget_lines(idx) := ' USER_COL6,';
753 idx:=idx+1;
754 view_budget_lines(idx) := ' USER_COL7,';
755 idx:=idx+1;
756 view_budget_lines(idx) := ' USER_COL8,';
757 idx:=idx+1;
758 view_budget_lines(idx) := ' USER_COL9,';
759 idx:=idx+1;
760 view_budget_lines(idx) := ' USER_COL10,';
761 idx:=idx+1;
762 view_budget_lines(idx) := ' BGT_RAW_COST,';
763 idx:=idx+1;
764 view_budget_lines(idx) := ' BGT_BURDENED_COST,';
765 idx:=idx+1;
766 view_budget_lines(idx) := ' BGT_REVENUE,';
767 idx:=idx+1;
768 view_budget_lines(idx) := ' BGT_QUANTITY,';
769 idx:=idx+1;
770 view_budget_lines(idx) := ' BGT_LABOR_QUANTITY,';
771 idx:=idx+1;
772 IF ( dim_exp_type = 'E' ) THEN
773 view_budget_lines(idx) := ' BGT_UNIT_OF_MEASURE,';
774 ELSE
775 view_budget_lines(idx) := disabled_dim_value_char || ', /* Disabled */';
776 END IF;
777 idx:=idx+1;
778 view_budget_lines(idx) := ' ADW_NOTIFY_FLAG';
779 idx:=idx+1;
780 view_budget_lines(idx) := 'FROM';
781 idx:=idx+1;
782 view_budget_lines(idx) := ' PA_ADW_BGT_LINES_B_V';
783
784 view_idx_budget_lines := idx;
785
786 idx := 1;
787
788 view_ref_budget_lines(idx) := 'CREATE OR REPLACE FORCE VIEW PA_ADW_R_BGT_LINES_V';
789 idx:=idx+1;
790 view_ref_budget_lines(idx) := '(';
791 idx:=idx+1;
792 view_ref_budget_lines(idx) := ' PROJECT_ID,';
793 idx:=idx+1;
794 view_ref_budget_lines(idx) := ' TOP_TASK_ID,';
795 idx:=idx+1;
796 view_ref_budget_lines(idx) := ' TASK_ID,';
797 idx:=idx+1;
798 view_ref_budget_lines(idx) := ' PA_PERIOD_KEY,';
799 idx:=idx+1;
800 view_ref_budget_lines(idx) := ' BUDGET_TYPE_CODE,';
801 idx:=idx+1;
802 view_ref_budget_lines(idx) := ' RESOURCE_LIST_MEMBER_ID,';
803 idx:=idx+1;
804 view_ref_budget_lines(idx) := ' SERVICE_TYPE_CODE,';
805 idx:=idx+1;
806 view_ref_budget_lines(idx) := ' OWNER_ORGANIZATION_ID,';
807 idx:=idx+1;
808 view_ref_budget_lines(idx) := ' EXPENDITURE_TYPE,';
809 idx:=idx+1;
810 view_ref_budget_lines(idx) := ' USER_COL1,';
811 idx:=idx+1;
812 view_ref_budget_lines(idx) := ' USER_COL2,';
813 idx:=idx+1;
814 view_ref_budget_lines(idx) := ' USER_COL3,';
815 idx:=idx+1;
816 view_ref_budget_lines(idx) := ' USER_COL4,';
817 idx:=idx+1;
818 view_ref_budget_lines(idx) := ' USER_COL5,';
819 idx:=idx+1;
820 view_ref_budget_lines(idx) := ' USER_COL6,';
821 idx:=idx+1;
822 view_ref_budget_lines(idx) := ' USER_COL7,';
823 idx:=idx+1;
824 view_ref_budget_lines(idx) := ' USER_COL8,';
825 idx:=idx+1;
826 view_ref_budget_lines(idx) := ' USER_COL9,';
827 idx:=idx+1;
828 view_ref_budget_lines(idx) := ' USER_COL10,';
829 idx:=idx+1;
830 view_ref_budget_lines(idx) := ' BGT_RAW_COST,';
831 idx:=idx+1;
832 view_ref_budget_lines(idx) := ' BGT_BURDENED_COST,';
833 idx:=idx+1;
834 view_ref_budget_lines(idx) := ' BGT_REVENUE,';
835 idx:=idx+1;
839 idx:=idx+1;
836 view_ref_budget_lines(idx) := ' BGT_QUANTITY,';
837 idx:=idx+1;
838 view_ref_budget_lines(idx) := ' BGT_LABOR_QUANTITY,';
840 view_ref_budget_lines(idx) := ' BGT_UNIT_OF_MEASURE,';
841 idx:=idx+1;
842 view_ref_budget_lines(idx) := ' ADW_NOTIFY_FLAG';
843 idx:=idx+1;
844 view_ref_budget_lines(idx) := ') AS';
845 idx:=idx+1;
846 view_ref_budget_lines(idx) := 'SELECT';
847 idx:=idx+1;
848 view_ref_budget_lines(idx) := ' PROJECT_ID,';
849 idx:=idx+1;
850 view_ref_budget_lines(idx) := ' TOP_TASK_ID,';
851 idx:=idx+1;
852 view_ref_budget_lines(idx) := ' TASK_ID,';
853 idx:=idx+1;
854 view_ref_budget_lines(idx) := ' PA_PERIOD_KEY,';
855 idx:=idx+1;
856 view_ref_budget_lines(idx) := ' BUDGET_TYPE_CODE,';
857 idx:=idx+1;
858 view_ref_budget_lines(idx) := ' RESOURCE_LIST_MEMBER_ID,';
859 idx:=idx+1;
860 IF ( dim_srvc_type = 'E' ) THEN
861 view_ref_budget_lines(idx) := ' SERVICE_TYPE_CODE,';
862 ELSE
863 view_ref_budget_lines(idx) := disabled_dim_value_char || ', /* Disabled */';
864 END IF;
865 idx:=idx+1;
866 IF ( dim_project_org = 'E' ) THEN
867 view_ref_budget_lines(idx) := ' OWNER_ORGANIZATION_ID,';
868 ELSE
869 view_ref_budget_lines(idx) := TO_CHAR(disabled_dim_value_number) || ', /* Disabled */';
870 END IF;
871 idx:=idx+1;
872 IF ( dim_exp_type = 'E' ) THEN
873 view_ref_budget_lines(idx) := ' EXPENDITURE_TYPE,';
874 ELSE
875 view_ref_budget_lines(idx) := disabled_dim_value_char || ', /* Disabled */';
876 END IF;
877 idx:=idx+1;
878 view_ref_budget_lines(idx) := ' USER_COL1,';
879 idx:=idx+1;
880 view_ref_budget_lines(idx) := ' USER_COL2,';
881 idx:=idx+1;
882 view_ref_budget_lines(idx) := ' USER_COL3,';
883 idx:=idx+1;
884 view_ref_budget_lines(idx) := ' USER_COL4,';
885 idx:=idx+1;
886 view_ref_budget_lines(idx) := ' USER_COL5,';
887 idx:=idx+1;
888 view_ref_budget_lines(idx) := ' USER_COL6,';
889 idx:=idx+1;
890 view_ref_budget_lines(idx) := ' USER_COL7,';
891 idx:=idx+1;
892 view_ref_budget_lines(idx) := ' USER_COL8,';
893 idx:=idx+1;
894 view_ref_budget_lines(idx) := ' USER_COL9,';
895 idx:=idx+1;
896 view_ref_budget_lines(idx) := ' USER_COL10,';
897 idx:=idx+1;
898 view_ref_budget_lines(idx) := ' BGT_RAW_COST,';
899 idx:=idx+1;
900 view_ref_budget_lines(idx) := ' BGT_BURDENED_COST,';
901 idx:=idx+1;
902 view_ref_budget_lines(idx) := ' BGT_REVENUE,';
903 idx:=idx+1;
904 view_ref_budget_lines(idx) := ' BGT_QUANTITY,';
905 idx:=idx+1;
906 view_ref_budget_lines(idx) := ' BGT_LABOR_QUANTITY,';
907 idx:=idx+1;
908 IF ( dim_exp_type = 'E' ) THEN
909 view_ref_budget_lines(idx) := ' BGT_UNIT_OF_MEASURE,';
910 ELSE
911 view_ref_budget_lines(idx) := disabled_dim_value_char || ', /* Disabled */';
912 END IF;
913 idx:=idx+1;
914 view_ref_budget_lines(idx) := ' ADW_NOTIFY_FLAG';
915 idx:=idx+1;
916 view_ref_budget_lines(idx) := 'FROM';
917 idx:=idx+1;
918 view_ref_budget_lines(idx) := ' PA_ADW_R_BGT_LINES_B_V';
919
920 view_idx_ref_budget_lines := idx;
921
922 x_err_stack := x_old_err_stack;
923
924 EXCEPTION
925 WHEN OTHERS THEN
926 x_err_code := SQLCODE;
927 RAISE;
928 END generate_collection_views;
929
930 PROCEDURE create_collection_views
931 (x_err_stage IN OUT VARCHAR2,
932 x_err_stack IN OUT VARCHAR2,
933 x_err_code IN OUT NUMBER)
934 IS
935 x_old_err_stack VARCHAR2(1024);
936 source_cursor INTEGER;
937 retcode NUMBER;
938 BEGIN
939 x_err_code := 0;
940 x_err_stage := 'Creating Collection Views Definition in the DB';
941 x_old_err_stack := x_err_stack;
942 x_err_stack := x_err_stack || '-> create_collection_views';
943
944 pa_debug.debug(x_err_stage);
945
946 source_cursor := dbms_sql.open_cursor;
947 dbms_sql.parse(source_cursor,view_act_cmt,1,view_idx_act_cmt,TRUE,dbms_sql.v7);
948 retcode := dbms_sql.execute(source_cursor);
949 dbms_sql.parse(source_cursor,view_ref_act_cmt,1,view_idx_ref_act_cmt,TRUE,dbms_sql.v7);
950 retcode := dbms_sql.execute(source_cursor);
951 dbms_sql.parse(source_cursor,view_ref_ser_type_act_cmt,1,view_idx_ref_ser_type_act_cmt,TRUE,dbms_sql.v7);
952 retcode := dbms_sql.execute(source_cursor);
953 dbms_sql.parse(source_cursor,view_budget_lines,1,view_idx_budget_lines,TRUE,dbms_sql.v7);
954 retcode := dbms_sql.execute(source_cursor);
955 dbms_sql.parse(source_cursor,view_ref_budget_lines,1,view_idx_ref_budget_lines,TRUE,dbms_sql.v7);
956 retcode := dbms_sql.execute(source_cursor);
957
958 dbms_sql.close_cursor(source_cursor);
959
960 x_err_stack := x_old_err_stack;
961
962 EXCEPTION
963 WHEN OTHERS THEN
964 x_err_code := SQLCODE;
965 RAISE;
966 END create_collection_views;
967
968 PROCEDURE output_collection_views
969 (x_err_stage IN OUT VARCHAR2,
970 x_err_stack IN OUT VARCHAR2,
971 x_err_code IN OUT NUMBER)
972 IS
973 x_old_err_stack VARCHAR2(1024);
974 BEGIN
975 x_err_code := 0;
976 x_err_stage := 'Creating Collection Views Definition';
980 pa_debug.debug(x_err_stage);
977 x_old_err_stack := x_err_stack;
978 x_err_stack := x_err_stack || '-> output_collection_views';
979
981
982 pa_debug.debug('********START OF VIEWS DEFINITION*******', PA_DEBUG.DEBUG_LEVEL_EXCEPTION);
983 FOR i IN 1..view_idx_act_cmt LOOP
984 pa_debug.debug(view_act_cmt(i), PA_DEBUG.DEBUG_LEVEL_EXCEPTION);
985 END LOOP;
986 pa_debug.debug('/', PA_DEBUG.DEBUG_LEVEL_EXCEPTION);
987 FOR i IN 1..view_idx_ref_act_cmt LOOP
988 pa_debug.debug(view_ref_act_cmt(i), PA_DEBUG.DEBUG_LEVEL_EXCEPTION);
989 END LOOP;
990 pa_debug.debug('/', PA_DEBUG.DEBUG_LEVEL_EXCEPTION);
991 FOR i IN 1..view_idx_ref_ser_type_act_cmt LOOP
992 pa_debug.debug(view_ref_ser_type_act_cmt(i), PA_DEBUG.DEBUG_LEVEL_EXCEPTION);
993 END LOOP;
994 pa_debug.debug('/', PA_DEBUG.DEBUG_LEVEL_EXCEPTION);
995 FOR i IN 1..view_idx_budget_lines LOOP
996 pa_debug.debug(view_budget_lines(i), PA_DEBUG.DEBUG_LEVEL_EXCEPTION);
997 END LOOP;
998 pa_debug.debug('/', PA_DEBUG.DEBUG_LEVEL_EXCEPTION);
999 FOR i IN 1..view_idx_ref_budget_lines LOOP
1000 pa_debug.debug(view_ref_budget_lines(i), PA_DEBUG.DEBUG_LEVEL_EXCEPTION);
1001 END LOOP;
1002 pa_debug.debug('/', PA_DEBUG.DEBUG_LEVEL_EXCEPTION);
1003 pa_debug.debug('********END OF VIEWS DEFINITION*******', PA_DEBUG.DEBUG_LEVEL_EXCEPTION);
1004
1005 x_err_stack := x_old_err_stack;
1006
1007 EXCEPTION
1008 WHEN OTHERS THEN
1009 x_err_code := SQLCODE;
1010 RAISE;
1011 END output_collection_views;
1012
1013 END PA_ADW_CREATE_VIEWS;