[Home] [Help]
PACKAGE BODY: APPS.CCT_MIDDLEWARE_PARAM_PKG
Source
1 PACKAGE BODY CCT_MIDDLEWARE_PARAM_PKG AS
2 /* $Header: cctmwseb.pls 115.0 2003/05/20 17:48:57 rajayara noship $ */
3 PROCEDURE init IS
4 BEGIN
5 Ordering_index :=10;
6 END init;
7
8 PROCEDURE seed_param(
9 P_MIDDLEWARE_TYPE_ID IN VARCHAR2,
10 P_NAME IN VARCHAR2,
11 P_TYPE IN VARCHAR2,
12 P_LENGTH IN VARCHAR2,
13 P_DOMAIN_LOOKUP_TYPE IN VARCHAR2
14 ) IS
15 BEGIN
16
17 seed_param(
18 P_MIDDLEWARE_PARAM_ID => null,
19 P_MIDDLEWARE_TYPE_ID => P_MIDDLEWARE_TYPE_ID,
20 P_NAME =>P_NAME,
21 P_TYPE =>P_TYPE,
22 P_LENGTH=>P_LENGTH,
23 P_ORDERING_SEQUENCE =>Ordering_index,
24 P_DOMAIN_LOOKUP_TYPE=>P_DOMAIN_LOOKUP_TYPE
25 );
26
27 Ordering_index := Ordering_index+10;
28 END;
29
30
31
32
33
34 PROCEDURE seed_param(
35 P_MIDDLEWARE_PARAM_ID IN VARCHAR2,
36 P_MIDDLEWARE_TYPE_ID IN VARCHAR2,
37 P_NAME IN VARCHAR2,
38 P_TYPE IN VARCHAR2,
39 P_LENGTH IN VARCHAR2,
40 P_DOMAIN_LOOKUP_TYPE IN VARCHAR2
41 ) IS
42 BEGIN
43
44 seed_param(
45 P_MIDDLEWARE_PARAM_ID => P_MIDDLEWARE_PARAM_ID,
46 P_MIDDLEWARE_TYPE_ID => P_MIDDLEWARE_TYPE_ID,
47 P_NAME =>P_NAME,
48 P_TYPE =>P_TYPE,
49 P_LENGTH=>P_LENGTH,
50 P_ORDERING_SEQUENCE =>Ordering_index,
51 P_DOMAIN_LOOKUP_TYPE=>P_DOMAIN_LOOKUP_TYPE
52 );
53
54 Ordering_index := Ordering_index+10;
55 END;
56
57
58 PROCEDURE seed_param(
59 P_MIDDLEWARE_PARAM_ID IN VARCHAR2,
60 P_MIDDLEWARE_TYPE_ID IN VARCHAR2,
61 P_NAME IN VARCHAR2,
62 P_TYPE IN VARCHAR2,
63 P_LENGTH IN VARCHAR2,
64 P_ORDERING_SEQUENCE IN VARCHAR2,
65 P_DOMAIN_LOOKUP_TYPE IN VARCHAR2
66 ) IS
67
68 CURSOR csr_chk_upgrade_need IS
69 SELECT 1
70 FROM CCT_MIDDLEWARE_PARAMS
71 WHERE NAME= P_NAME
72 and TYPE = P_TYPE
73 and LENGTH = P_LENGTH
74 and MIDDLEWARE_TYPE_ID = P_MIDDLEWARE_TYPE_ID
75 and DOMAIN_LOOKUP_TYPE =P_DOMAIN_LOOKUP_TYPE
76 and ORDERING_SEQUENCE = P_ORDERING_SEQUENCE;
77
78
79 CURSOR csr_chk_param_exists IS
80 SELECT MIDDLEWARE_PARAM_ID
81 FROM CCT_MIDDLEWARE_PARAMS
82 WHERE NAME= P_NAME
83 and MIDDLEWARE_TYPE_ID = P_MIDDLEWARE_TYPE_ID;
84
85 l_param_id cct_middleware_params.middleware_param_id%TYPE;
86 l_temp VARCHAR2(20);
87
88 BEGIN
89 dbms_output.put_line('Inside seed');
90 OPEN csr_chk_upgrade_need;
91 FETCH csr_chk_upgrade_need into l_temp;
92 IF (csr_chk_upgrade_need%NOTFOUND) THEN
93 dbms_output.put_line('Inside seed - Upgrade needed');
94 OPEN csr_chk_param_exists;
95 FETCH csr_chk_param_exists into l_param_id;
96 IF(csr_chk_param_exists%NOTFOUND) THEN
97 dbms_output.put_line('Inside seed - Upgrade needed - Need to create');
98 -- Create
99 INSERT INTO CCT_MIDDLEWARE_PARAMS
100 (MIDDLEWARE_PARAM_ID, MIDDLEWARE_TYPE_ID, NAME, TYPE, LENGTH,ORDERING_SEQUENCE,DOMAIN_LOOKUP_TYPE,
101 LAST_UPDATE_DATE, LAST_UPDATED_BY, CREATION_DATE, CREATED_BY)
102 select CCT_MIDDLEWARE_PARAMS_S.NEXTVAL+1000, P_MIDDLEWARE_TYPE_ID, P_NAME, P_TYPE, P_LENGTH,P_ORDERING_SEQUENCE,P_DOMAIN_LOOKUP_TYPE,sysdate, 1, sysdate, 1
103 from dual where not exists (SELECT 1 FROM CCT_MIDDLEWARE_PARAMS WHERE NAME=P_NAME and MIDDLEWARE_TYPE_ID = P_MIDDLEWARE_TYPE_ID);
104
105 ELSIF (csr_chk_param_exists%FOUND) THEN
106 -- Update
107 Fetch csr_chk_param_exists into l_param_id;
108 dbms_output.put_line('Inside seed - Upgrade needed - Need to Update, l_param_id='||l_param_id);
109 update CCT_MIDDLEWARE_PARAMS
110 set MIDDLEWARE_TYPE_ID =P_MIDDLEWARE_TYPE_ID,
111 NAME = P_NAME,
112 TYPE = P_TYPE,
113 LENGTH = P_LENGTH,
114 ORDERING_SEQUENCE= P_ORDERING_SEQUENCE,
115 DOMAIN_LOOKUP_TYPE= P_DOMAIN_LOOKUP_TYPE,
116 LAST_UPDATE_DATE = sysdate,
117 LAST_UPDATED_BY = 1,
118 LAST_UPDATE_LOGIN =1
119 where middleware_param_id = l_param_id;
120
121
122 END IF;
123 CLOSE csr_chk_param_exists;
124
125 END IF;
126 CLOSE csr_chk_upgrade_need;
127 dbms_output.put_line('Leaving seed');
128 EXCEPTION
129 WHEN others THEN
130 CLOSE csr_chk_upgrade_need;
131 CLOSE csr_chk_param_exists;
132 raise_application_error(-20000, sqlerrm || '.' ) ;
133 END seed_param;
134
135 END CCT_MIDDLEWARE_PARAM_PKG;