1 PACKAGE BODY qltsscpb as
2 /* $Header: qltsscpb.plb 120.1 2005/11/07 02:13:49 srhariha noship $ */
3
4
5 -- This is a wrapper for ss plan mapping.
6 -- It is needed for the concurrent manager to run
7 -- This is called from QLTPLMDF.fmb
8
9
10 PROCEDURE wrapper (ERRBUF OUT NOCOPY VARCHAR2,
11 RETCODE OUT NOCOPY NUMBER,
12 ARGUMENT1 IN VARCHAR2,
13 ARGUMENT2 IN VARCHAR2,
14 ARGUMENT3 IN NUMBER) IS
15
16 l_plan_id NUMBER;
17 BEGIN
18
19 -- ARGUMENT1 --> CREATE
20 -- ARGUMENT1 is a bit obsolete, but it is there for legacy purpose
21 -- ARGUMENT3 is plan_id and the one we really need
22
23 l_plan_id := to_number(ARGUMENT3);
24
25 IF (ARGUMENT1 = 'CREATE') THEN
26
27 -- Bug 3769260. shkalyan 30 July 2004.
28 -- In order to pre-fetch Plan Chars which will be used
29 -- for JRAD Mapping, this call is used.
30
31 qa_chars_api.fetch_plan_chars(l_plan_id);
32
33 -- Bug 3769260. shkalyan 30 July 2004.
34 -- In order to pre-fetch Plan Chars which will be used
35 -- for JRAD Mapping, this call is used.
36
37 qa_plan_element_api.fetch_qa_plan_chars(l_plan_id);
38
39 qa_jrad_pkg.map_plan(l_plan_id, NULL);
40 qa_ssqr_jrad_pkg.map_plan(l_plan_id);
41
42 --
43 -- Tracking Bug 4697145
44 -- MOAC Upgrade feature to indicate this plan has
45 -- been regenerated and on demand mapping can skip.
46 -- bso Sun Nov 6 16:52:53 PST 2005
47 --
48 qa_ssqr_jrad_pkg.jrad_upgraded(l_plan_id);
49 END IF;
50
51 RETCODE := 0;
52 ERRBUF := '';
53
54 END WRAPPER;
55
56
57 END qltsscpb;
58