1 PACKAGE BODY QLTPVWWB as
2 /* $Header: qltpvwwb.plb 120.0 2005/05/24 18:06:42 appldev noship $ */
3
4 -- 3/25/95 - CREATED
5 -- Kevin Wiggen
6 -- 8/20/97 - MODIFIED
7 -- Dave Stephens
8 -- consolidated all dynamic view creation wrappers
9 -- into this wrapper
10 --
11 -- This is a wrapper for dynamic view creation.
12 -- It is needed for the concurrent manager to run
13 --
14
15 PROCEDURE WRAPPER(ERRBUF OUT NOCOPY VARCHAR2,
16 RETCODE OUT NOCOPY NUMBER,
17 ARGUMENT1 IN VARCHAR2, -- plan view name
18 ARGUMENT2 IN VARCHAR2, -- old plan view name
19 ARGUMENT3 IN NUMBER, -- plan_id
20 ARGUMENT4 IN VARCHAR2, -- import view name
21 ARGUMENT5 IN VARCHAR2, -- import old view name
22 ARGUMENT6 IN VARCHAR2) -- global view name
23 IS
24 BEGIN
25 --only do the plan view and import plan view if we got args1,3,4 - this allows us to call this
26 --procedure to just regen the global view name
27 IF ARGUMENT3 IS NOT NULL THEN
28 QLTVCREB.PLAN_VIEW(ARGUMENT1,ARGUMENT2,ARGUMENT3);
29 QLTVCREB.IMPORT_PLAN_VIEW(ARGUMENT4,ARGUMENT5,ARGUMENT3);
30 END IF;
31
32
33 -- anagarwa Tue Nov 30 16:52:24 PST 2004
34 -- Bug 3918659
35 -- Commenting the following global view creation to resolve
36 -- the performance issue.This is already done in mainline
37 -- version 115.5.
38
39 --only do the global view regen if ARGUMENT6 is not null
40 -- IF ARGUMENT6 IS NOT NULL THEN
41 -- QLTVCREB.GLOBAL_VIEW(ARGUMENT6);
42 -- END IF;
43
44 RETCODE := 0;
45 ERRBUF := '';
46 END WRAPPER;
47
48 -- anagarwa Mon Nov 29 11:09:05 PST 2004
49 -- bug 3918659 Global View creation during collection plan saving causes
50 -- unacceptable performance issues.
51 -- I am making global view an on demand feature by introducing a new
52 -- concurrent program. . Following procedure will
53 -- be used as the program for executable for this new concurrent program
54
55 PROCEDURE GLOBAL_V_WRAPPER(ERRBUF OUT NOCOPY VARCHAR2,
56 RETCODE OUT NOCOPY NUMBER)
57 IS
58 BEGIN
59 QLTVCREB.GLOBAL_VIEW('QA_GLOBAL_RESULTS_V');
60 RETCODE := 0;
61 ERRBUF := '';
62 END GLOBAL_V_WRAPPER;
63
64
65 END QLTPVWWB;