12:
13: l_result NUMBER;
14: l_flag NUMBER;
15: l_flagb NUMBER;
16: l_comp_name IEO_SVR_COMPS.COMP_NAME%TYPE;
17:
18: BEGIN
19:
20: x_result := NULL;
60: END IF;
61:
62: BEGIN
63: select 1 into l_flag
64: from ieo_svr_comps
65: where server_id = P_SERVER_ID
66: and comp_def_id = P_COMP_DEF_ID
67: and object_ref is not null;
68:
81: where comp_def_id = P_COMP_DEF_ID;
82:
83: -- dbms_output.put_line(' Comp_def_name is <' || l_comp_name || '>');
84:
85: insert into IEO_SVR_COMPS
86: ( COMP_ID
87: , SERVER_ID
88: , COMP_DEF_ID
89: , COMP_NAME
88: , COMP_DEF_ID
89: , COMP_NAME
90: , OBJECT_REF
91: )
92: values ( IEO_SVR_COMPS_S1.NEXTVAL
93: , P_SERVER_ID
94: , P_COMP_DEF_ID
95: , l_comp_name
96: , empty_blob()
117: )
118: AS
119: l_result NUMBER;
120: l_data_valid_flag NUMBER;
121: l_comp_name IEO_SVR_COMPS.COMP_NAME%TYPE;
122: BEGIN
123:
124: x_result := NULL;
125:
159: );
160: END IF;
161:
162: -- Data is valid. update/insert block.
163: update IEO_SVR_COMPS
164: set OBJECT_REF = P_OBJECT_REF
165: where server_id = P_SERVER_ID
166: and comp_def_id = P_COMP_DEF_ID;
167:
172: select comp_def_name into l_comp_name
173: from ieo_svr_comp_defs
174: where comp_def_id = P_COMP_DEF_ID;
175:
176: insert into IEO_SVR_COMPS
177: ( COMP_ID
178: , SERVER_ID
179: , COMP_DEF_ID
180: , COMP_NAME
179: , COMP_DEF_ID
180: , COMP_NAME
181: , OBJECT_REF
182: )
183: values ( IEO_SVR_COMPS_S1.NEXTVAL
184: , P_SERVER_ID
185: , P_COMP_DEF_ID
186: , l_comp_name
187: , empty_blob()
186: , l_comp_name
187: , empty_blob()
188: );
189:
190: update IEO_SVR_COMPS
191: set OBJECT_REF = P_OBJECT_REF
192: where server_id = P_SERVER_ID
193: and comp_def_id = P_COMP_DEF_ID;
194: