[Home] [Help]
19: G_FILE_NAME CONSTANT VARCHAR2(12):='amsvlopb.pls';
20:
21: CURSOR c_get_header_info(p_list_header_id in number) IS
22: SELECT *
23: FROM ams_list_headers_all
24: WHERE list_header_id = p_list_header_id;
25:
26: CURSOR c_get_count (p_list_header_id IN number ) is
27: SELECT count(1)
286: l_no_of_rows_fatigued ,
287: l_TCA_FAILED_RECORDS;
288: close c_count_list_entries;
289:
290: update ams_list_headers_all
291: set no_of_rows_in_list = nvl(l_no_of_rows_in_list,0),
292: no_of_rows_active = nvl(l_no_of_rows_active,0),
293: no_of_rows_inactive = nvl(l_no_of_rows_inactive,0),
294: no_of_rows_in_ctrl_group = nvl(l_no_of_rows_in_ctrl_group,0),
303: last_update_date = sysdate,
304: user_status_id = l_status_id
305: where list_header_id = p_list_header_id;
306:
307: update ams_list_headers_all
308: set status_code_old = null
309: where list_header_id = p_list_header_id;
310:
311: -- Bug 4615797. bmuthukr. Need to update the ctrl grp cnt if cg size < cnt given.
311: -- Bug 4615797. bmuthukr. Need to update the ctrl grp cnt if cg size < cnt given.
312: if nvl(g_list_header_info.ctrl_gen_mode,'NONE') = 'DEFBYCNT' and nvl(g_list_header_info.ctrl_random_nth_row_selection,0) > 0 then
313: if nvl(l_no_of_rows_in_ctrl_group,0) < nvl(g_list_header_info.ctrl_random_nth_row_selection,0) then
314: write_to_act_log('Resetting the control group count to '||l_no_of_rows_in_ctrl_group||' since the given CG size is higher than actual size.', 'LIST', p_list_header_id,'HIGH');
315: update ams_list_headers_all
316: set ctrl_random_nth_row_selection = l_no_of_rows_in_ctrl_group
317: where list_header_id = p_list_header_id;
318: end if;
319: end if;
322: -- COMMIT;
323:
324: exception
325: when others then
326: update ams_list_headers_all
327: set ctrl_status_code = 'FAILED',
328: status_code = nvl(status_code_old,status_code),
329: last_update_date = sysdate,
330: user_status_id = l_status_id