164: p_new_pol_id out nocopy number,
165: retcode out nocopy number,
166: errbuf out nocopy varchar2) is
167:
168: l_new_pol_id qpr_policies_b.POLICY_ID%type;
169: l_active_flag qpr_policies_b.ACTIVE_FLAG%type;
170: l_pol_name qpr_policies_tl.NAME%type;
171:
172: cursor c_pol_tl is
165: retcode out nocopy number,
166: errbuf out nocopy varchar2) is
167:
168: l_new_pol_id qpr_policies_b.POLICY_ID%type;
169: l_active_flag qpr_policies_b.ACTIVE_FLAG%type;
170: l_pol_name qpr_policies_tl.NAME%type;
171:
172: cursor c_pol_tl is
173: select language,source_lang, name, description
184:
185: begin
186:
187: select active_flag into l_active_flag
188: from qpr_policies_b
189: where policy_id = p_policy_id
190: and rownum < 2;
191:
192: insert into qpr_policies_b(policy_id,
188: from qpr_policies_b
189: where policy_id = p_policy_id
190: and rownum < 2;
191:
192: insert into qpr_policies_b(policy_id,
193: active_flag,
194: creation_date,
195: created_by,
196: last_update_date,