1 PACKAGE BODY qltssmpb as
2 /* $Header: qltssmpb.plb 115.6 2003/10/03 19:26:47 anagarwa ship $ */
3
4
5 -- This is a wrapper for ss plan/element mapping.
6 -- It is needed for the concurrent manager to run
7 -- This is called from SRS
8
9
10 PROCEDURE wrapper (ERRBUF OUT NOCOPY VARCHAR2,
11 RETCODE OUT NOCOPY NUMBER,
12 ARGUMENT1 IN VARCHAR2,
13 ARGUMENT2 IN NUMBER) IS
14
15 CURSOR c (p_plan_name VARCHAR2) IS
16 SELECT plan_id
17 FROM qa_plans
18 WHERE name = p_plan_name;
19
20 CURSOR c2 (p_org_id NUMBER) IS
21 SELECT plan_id
22 FROM qa_plans
23 WHERE organization_id = p_org_id;
24
25 l_plan_id NUMBER;
26
27 BEGIN
28
29 -- ARGUMENT1 --> Plan Name
30 -- ARGUMENT2 --> Org ID
31
32 IF (ARGUMENT1 IS NOT NULL) THEN
33 OPEN c (ARGUMENT1);
34 FETCH c INTO l_plan_id;
35 CLOSE c;
36 qa_jrad_pkg.map_plan(l_plan_id, null);
37 qa_ssqr_jrad_pkg.map_plan(l_plan_id);
38
39 ELSE
40
41 OPEN c2 (ARGUMENT2);
42 LOOP
43 FETCH c2 INTO l_plan_id;
44 EXIT WHEN c2%NOTFOUND;
45
46 qa_jrad_pkg.map_plan(l_plan_id, null);
47 qa_ssqr_jrad_pkg.map_plan(l_plan_id);
48
49 END LOOP;
50 CLOSE c2;
51
52 END IF;
53
54 RETCODE := 0;
55 ERRBUF := '';
56
57 END WRAPPER;
58
59
60 END qltssmpb;
61