4096: END;
4097: END IF;
4098: CLOSE c_ref_sources;
4099:
4100: -- Get all sources that exist in xla_sources_b but not in xla_sources_tl
4101: OPEN c_tl_sources;
4102: FETCH c_tl_sources
4103: BULK COLLECT INTO l_array_tl_source_code;
4104:
4112: EXIT WHEN c_languages%notfound;
4113:
4114: BEGIN
4115: FORALL i IN l_array_tl_source_code.FIRST..l_array_tl_source_code.LAST SAVE EXCEPTIONS
4116: INSERT INTO xla_sources_tl
4117: (source_code
4118: ,application_id
4119: ,source_type_code
4120: ,name
4160: CLOSE c_languages;
4161: END IF;
4162: CLOSE c_tl_sources;
4163:
4164: -- Get all sources that exist in xla_sources_b but not in xla_sources_tl
4165: OPEN c_ref_tl_sources;
4166: FETCH c_ref_tl_sources
4167: BULK COLLECT INTO l_array_ref_tl_source_appl_id, l_array_ref_tl_source_code;
4168:
4176: EXIT WHEN c_languages%notfound;
4177:
4178: BEGIN
4179: FORALL i IN l_array_ref_tl_source_code.FIRST..l_array_ref_tl_source_code.LAST SAVE EXCEPTIONS
4180: INSERT INTO xla_sources_tl
4181: (source_code
4182: ,application_id
4183: ,source_type_code
4184: ,name