207: for rec_pol in c_pol_tl loop
208: if p_new_policy_name is not null then
209: l_pol_name := p_new_policy_name;
210: else
211: fnd_message.set_name('QPR', 'QPR_COPY_OF');
212: fnd_message.set_token('OBJECT_NAME', rec_pol.name);
213: l_pol_name := fnd_message.get;
214: end if;
215:
208: if p_new_policy_name is not null then
209: l_pol_name := p_new_policy_name;
210: else
211: fnd_message.set_name('QPR', 'QPR_COPY_OF');
212: fnd_message.set_token('OBJECT_NAME', rec_pol.name);
213: l_pol_name := fnd_message.get;
214: end if;
215:
216: insert into qpr_policies_tl(policy_id,
209: l_pol_name := p_new_policy_name;
210: else
211: fnd_message.set_name('QPR', 'QPR_COPY_OF');
212: fnd_message.set_token('OBJECT_NAME', rec_pol.name);
213: l_pol_name := fnd_message.get;
214: end if;
215:
216: insert into qpr_policies_tl(policy_id,
217: language,
680: close c_measures;
681: exception
682: WHEN NO_DATA_FOUND THEN
683: retcode := 2;
684: errbuf := FND_MESSAGE.GET;
685: log_debug('Unexpected error '||substr(sqlerrm,1200));
686: end;
687:
688: end; --package