73:
74: IF ( (p_object = 'RISK_ORG') OR (p_object = 'CONTROL_ORG') ) THEN
75: select organization_id
76: into l_org_id
77: from amw_process_organization
78: where process_organization_id = p_process_organization_id;
79: END IF;
80:
81: -- abb added
145: from amw_control_associations
146: where object_type = 'RISK'
147: and pk1 = p_risk_id);
148:
149: SELECT organization_id into l_org_id2 from amw_process_organization where process_organization_id = p_process_organization_id;
150: SELECT process_id into l_process_id2 from amw_process_organization where process_organization_id = p_process_organization_id;
151:
152: insert into amw_ap_associations
153: (AP_ASSOCIATION_ID,
146: where object_type = 'RISK'
147: and pk1 = p_risk_id);
148:
149: SELECT organization_id into l_org_id2 from amw_process_organization where process_organization_id = p_process_organization_id;
150: SELECT process_id into l_process_id2 from amw_process_organization where process_organization_id = p_process_organization_id;
151:
152: insert into amw_ap_associations
153: (AP_ASSOCIATION_ID,
154: LAST_UPDATE_DATE,
218: and pk1 = p_risk_id));
219:
220: ELSIF (p_object = 'CONTROL_ORG') THEN
221:
222: SELECT organization_id into l_org_id2 from amw_process_organization where process_organization_id = p_process_organization_id;
223: SELECT process_id into l_process_id2 from amw_process_organization where process_organization_id = p_process_organization_id;
224:
225: insert into amw_ap_associations
226: (AP_ASSOCIATION_ID,
219:
220: ELSIF (p_object = 'CONTROL_ORG') THEN
221:
222: SELECT organization_id into l_org_id2 from amw_process_organization where process_organization_id = p_process_organization_id;
223: SELECT process_id into l_process_id2 from amw_process_organization where process_organization_id = p_process_organization_id;
224:
225: insert into amw_ap_associations
226: (AP_ASSOCIATION_ID,
227: LAST_UPDATE_DATE,
312:
313: -- added mpande 11/14/2003
314: delete from amw_ap_associations
315: where object_type='CTRL_ORG'
316: and pk1 = ( SELECT organization_id from amw_process_organization
317: where process_organization_id = p_process_organization_id )
318: and pk2 = ( SELECT process_id from amw_process_organization
319: where process_organization_id = p_process_organization_id )
320: AND pk3 = delete_ctrl_org.control_id
314: delete from amw_ap_associations
315: where object_type='CTRL_ORG'
316: and pk1 = ( SELECT organization_id from amw_process_organization
317: where process_organization_id = p_process_organization_id )
318: and pk2 = ( SELECT process_id from amw_process_organization
319: where process_organization_id = p_process_organization_id )
320: AND pk3 = delete_ctrl_org.control_id
321: and
322: not exists ( select control_id from amw_control_associations aca, amw_risk_associations ara
333: ELSIF (p_object = 'CONTROL_ORG') THEN
334: -- added mpande 11/14/2003
335: delete from amw_ap_associations
336: where object_type='CTRL_ORG'
337: and pk1 = ( SELECT organization_id from amw_process_organization
338: where process_organization_id = p_process_organization_id )
339: and pk2 = ( SELECT process_id from amw_process_organization
340: where process_organization_id = p_process_organization_id )
341: AND pk3 = p_control_id
335: delete from amw_ap_associations
336: where object_type='CTRL_ORG'
337: and pk1 = ( SELECT organization_id from amw_process_organization
338: where process_organization_id = p_process_organization_id )
339: and pk2 = ( SELECT process_id from amw_process_organization
340: where process_organization_id = p_process_organization_id )
341: AND pk3 = p_control_id
342: and
343: not exists ( select control_id from amw_control_associations aca, amw_risk_associations ara