[Home] [Help]
137: cursor c1 is
138: select *
139: from IEO_SVR_SERVERS
140: where type_id = 10020
141: and not exists (select 'x' from IEB_WB_SERVERS SRV, IEB_WB_SVC_CATS SVC
142: where SRV.WB_SERVER_NAME = SERVER_NAME AND
143: SVC.WBSVR_WBSVR_ID = SRV.WBSVR_ID );
144: l_wbsvr_id number(15,0);
145: l_ieo_svr_id number(15,0);
158: if (sql%notfound) then
159: null; -- not finding any such iebs is good
160: else
161: -- delete the service categories of the deleted servers
162: DELETE FROM ieb_wb_svc_cats WHERE wbsvr_wbsvr_id NOT IN
163: (SELECT wbsvr_id FROM ieb_wb_servers);
164:
165: IF (sql%notfound) then
166: null; -- not finding any data is not too good because there should be
168: -- data is messed up
169: else
170: -- delete any service category rules for the deleted service categories
171: DELETE FROM ieb_wb_svc_cat_rules WHERE wbsc_wbsc_id NOT IN
172: (SELECT wbsc_id FROM ieb_wb_svc_cats);
173:
174: IF (sql%notfound) then
175: null; -- is ok if no data found here
176: END if;
345: elsif c1_rec.depth = 2 and c1_rec.direction = 'OUTBOUND' then
346: l_parent_id := l_parent_id_ob;
347: end if;
348:
349: insert into IEB_WB_SVC_CATS
350: (wbsc_id,
351: created_by,
352: creation_date,
353: last_updated_by,
455:
456:
457: begin
458:
459: select WBSC_ID, depth into l_wbsc_id ,l_depth from ieb_wb_svc_cats
460: where service_category_name = c1_rec2.service_category_name
461: and wbsvr_wbsvr_id =c1_rec.wbsvr_id;
462:
463:
497: end;
498:
499:
500:
501: update IEB_WB_SVC_CATS set
502: media_type_id = c1_rec2.media_type_id,
503: default_flag = 'Y'
504: where
505: wbsvr_wbsvr_id =c1_rec.wbsvr_id
538: end if;
539:
540: end if;
541:
542: insert into IEB_WB_SVC_CATS
543: (wbsc_id,
544: created_by,
545: creation_date,
546: last_updated_by,