1: package body biv_rt_task_blog_pkg as
2: /* $Header: bivrtskb.pls 115.18 2004/01/23 04:56:21 vganeshk ship $ */
3: procedure sr_backlog(p_param_str varchar2) as
4: x_status1 cs_incidents_all_b.incident_status_id % type;
5: x_status2 cs_incidents_all_b.incident_status_id % type;
6: x_status3 cs_incidents_all_b.incident_status_id % type;
7: x_sql_sttmnt varchar2(5000);
8: TYPE t_cursor is REF CURSOR;
1: package body biv_rt_task_blog_pkg as
2: /* $Header: bivrtskb.pls 115.18 2004/01/23 04:56:21 vganeshk ship $ */
3: procedure sr_backlog(p_param_str varchar2) as
4: x_status1 cs_incidents_all_b.incident_status_id % type;
5: x_status2 cs_incidents_all_b.incident_status_id % type;
6: x_status3 cs_incidents_all_b.incident_status_id % type;
7: x_sql_sttmnt varchar2(5000);
8: TYPE t_cursor is REF CURSOR;
9: x_cur1 t_cursor;
2: /* $Header: bivrtskb.pls 115.18 2004/01/23 04:56:21 vganeshk ship $ */
3: procedure sr_backlog(p_param_str varchar2) as
4: x_status1 cs_incidents_all_b.incident_status_id % type;
5: x_status2 cs_incidents_all_b.incident_status_id % type;
6: x_status3 cs_incidents_all_b.incident_status_id % type;
7: x_sql_sttmnt varchar2(5000);
8: TYPE t_cursor is REF CURSOR;
9: x_cur1 t_cursor;
10: x_cur number;
595: biv_core_pkg.biv_debug(l_err,'BIV_SERVICE_REQUEST');
596: commit;
597: end if;
598: end;
599: /***** channel is being taken from cs_incidents_all_b itself 4/30/02
600: l_pos := 'updating SR channel';
601: begin
602: update biv_tmp_hs2 r
603: set col10= (select sr_creation_channel