The following lines contain the word 'select', 'insert', 'update' or 'delete':
select instance_code
into v_icode
from msc_apps_instances
where instance_id = p_instance_id;
delete from msc_trading_partners
where sr_instance_id = p_instance_id;
'insert into MSC_TRADING_PARTNERS'
||' ( PARTNER_ID,'
||' ORGANIZATION_CODE,'
||' ORGANIZATION_TYPE,'
||' SR_TP_ID,'
||' MASTER_ORGANIZATION,'
||' SOURCE_ORG_ID,'
||' PARTNER_TYPE,'
||' PARTNER_NAME,'
||' CALENDAR_CODE,'
||' CALENDAR_EXCEPTION_SET_ID,'
||' OPERATING_UNIT,'
||' SR_INSTANCE_ID,'
||' LAST_UPDATE_DATE,'
||' LAST_UPDATED_BY,'
||' CREATION_DATE,'
||' CREATED_BY)'
||' select'
||' msc_trading_partners_s.nextval,'
||' :v_icode||x.ORGANIZATION_CODE,'
||' 1,' -- set to discrete as the default value.
||' x.SR_TP_ID,'
||' x.MASTER_ORGANIZATION,'
||' x.SOURCE_ORG_ID,'
||' x.PARTNER_TYPE,'
||' :v_icode||x.PARTNER_NAME,'
||' :v_icode||x.CALENDAR_CODE,'
||' x.CALENDAR_EXCEPTION_SET_ID,'
||' x.OPERATING_UNIT,'
||' :p_instance_id,'
||' SYSDATE,'
||' 1,'
||' SYSDATE,'
||' 1'
||' from MRP_AP_ORGANIZATIONS_V'||v_dblink||' x'
||' where NVL( x.LANGUAGE, :v_lang)= :v_lang';