[Home] [Help]
PACKAGE BODY: APPS.BIV_HS_SR_ARRIVAL_PKG
Source
1 PACKAGE BODY BIV_HS_SR_ARRIVAL_PKG AS
2 /* $Header: bivsratb.pls 115.26 2004/03/05 07:52:40 vganeshk ship $ */
3
4
5 function base_column_label(p_param_str varchar2) return varchar2 is
6 l_label varchar2(100);
7 x_viewby varchar2(100);
8 begin
9 x_viewby:=biv_core_pkg.get_parameter_value(p_param_str,'p_viewby');
10 execute immediate 'select meaning from fnd_lookups where lookup_type=''BIV_VIEW_BY''
11 and lookup_code=:x_viewby' into l_label using x_viewby;
12 return l_label;
13 end base_column_label;
14
15
16 procedure Agnt_sr_arrival_time(p_param_str in varchar2)
17 IS
18 -- cursor variable
19 cursor update_tmp_tbl is SELECT ID,SESSION_ID
20 FROM biv_tmp_sr_arrvl where ID is not null
21 and session_id = biv_core_pkg.get_session_id;
22 -- dbms sql variable
23 owner_lists dbms_sql.number_table;
24 cur pls_integer:=dbms_sql.open_cursor;
25 cur2 pls_integer:=dbms_sql.open_cursor;
26 fdbk pls_integer;
27 v_batchsize constant integer :=100;
28 sql_stmt varchar2(2000);
29 insert_stmt varchar2(4000);
30 -- for loop control variables
31 n integer;
32 i number;
33 j number;
34 -- time zone variables
35 l_start_tz number;
36 l_end_tz number;
37 l_tz_diff number;
38 l_return_status varchar2(10);
39 l_msg_count number;
40 l_msg_data varchar2(30);
41 l_num_rows integer;
42 -- array processing variables
43 type array_type is table of number
44 index by binary_integer;
45 a_start array_type;
46 a_end array_type;
47 l_tm_zn array_type;
48 -- core package variable
49 x_where_clause varchar2(2000);
50 x_from_list varchar2(2000);
51 l_new_param_str varchar2(200);
52 l_new_param_str1 varchar2(200);
53 x_session number;
54 l_reached_upto varchar2(100);
55
56 l_param_str varchar2(2000);
57 l_debug varchar2(30) := fnd_profile.value('BIV:DEBUG');
58 l_ttl_rec number;
59 l_ttl_desc fnd_lookups.meaning % type;
60
61 begin
62
63 x_session:=biv_core_pkg.get_session_id;
64 biv_core_pkg.clean_dcf_table('BIV_TMP_SR_ARRVL');
65 biv_core_pkg.g_report_type := 'HS';
66
67 l_param_str := p_param_str || biv_core_pkg.g_param_sep || 'P_VIEW_BY=AGRP';
68
69 biv_core_pkg.get_report_parameters(l_param_str);
70 if (l_debug = 'Y') then
71 biv_core_pkg.biv_debug('param str :'||l_param_str,'BIV_AGNT_SR_ARRIVAL');
72 end if;
73 biv_core_pkg.g_cr_end := trunc(biv_core_pkg.g_cr_end +1);
74 if (l_debug = 'Y') then
75 biv_core_pkg.biv_debug('Start Date :'||
76 to_char(biv_core_pkg.g_cr_st,'dd-mon-yyyy hh24:mi:ss'),
77 'BIV_AGNT_SR_ARRIVAL');
78 biv_core_pkg.biv_debug('End Date :'||
79 to_char(biv_core_pkg.g_cr_end,'dd-mon-yyyy hh24:mi:ss'),
80 'BIV_AGNT_SR_ARRIVAL');
81 end if;
82 -- Change for Bug 3386946
83 x_from_list:=' from cs_incidents_b_sec sr, biv_sr_summary srs ';
84 biv_core_pkg.get_where_clause(x_from_list,x_where_clause);
85 x_where_clause:=x_where_clause||' and sr.incident_id=srs.incident_id and sr.owner_group_id is not null ';
86
87 --from cs_incidents_all_b sr, biv_sr_summary srs, jtf_rs_groups_denorm adnorm1 where 1 = 1 and adnorm1.parent_group_id = :adnorm1_parent_group_id and
88 --srs.incident_id=sr.incident_id and srs.arrival_time = :arrival_time and sr.owner_group_id = adnorm1.group_id)
89
90
91
92 --sql_stmt:='SELECT sr.owner_group_id '||x_from_list|| x_where_clause ||' group by sr.owner_group_id';
93 sql_stmt:='SELECT adnorm.parent_group_id '||x_from_list|| x_where_clause ||' group by adnorm.parent_group_id';
94
95 if (l_debug = 'Y') then
96 biv_core_pkg.biv_debug(sql_stmt,'BIV_AGNT_SR_ARRIVAL');
97 end if;
98
99 insert_stmt:='insert into biv_tmp_sr_arrvl (report_code,session_id,ID,col4,col6,col8,col10,col12,col14,col16,col18,col20,col22,col24,col26,col28,col30,col32,col34,col36,col38,col40,col42,col44,col46,col48,
100 col50,col52,col54,col56,col58,col60,col62,col64,col66,col68,col70,col72,col74,col76,col78,col80,col82,col84,col86,col88,col90,col92,col94,col96,col98,col100)
101 (select ''BIV_AGNT_SR_ARRIVAL'',:x_session,:in_owner_lists, count(*),count(decode(arrival_time,0,arrival_time)),
102 count(decode(arrival_time,0.5,arrival_time)),count(decode(arrival_time,1,arrival_time)),count(decode(arrival_time,1.5,arrival_time)),count(decode(arrival_time,2,arrival_time)),
103 count(decode(arrival_time,2.5,arrival_time)),count(decode(arrival_time,3,arrival_time)),count(decode(arrival_time,3.5,arrival_time)),count(decode(arrival_time,4,arrival_time)),
104 count(decode(arrival_time,4.5,arrival_time)),count(decode(arrival_time,5,arrival_time)),count(decode(arrival_time,5.5,arrival_time)) ,count(decode(arrival_time,6,arrival_time)),
105 count(decode(arrival_time,6.5,arrival_time)),count(decode(arrival_time,7,arrival_time)),count(decode(arrival_time,7.5,arrival_time)),count(decode(arrival_time,8,arrival_time)),
106 count(decode(arrival_time,8.5,arrival_time)),count(decode(arrival_time,9,arrival_time)),count(decode(arrival_time,9.5,arrival_time)),count(decode(arrival_time,10,arrival_time)) ,
107 count(decode(arrival_time,10.5,arrival_time)),count(decode(arrival_time,11,arrival_time)),count(decode(arrival_time,11.5,arrival_time)),count(decode(arrival_time,12,arrival_time)),
108 count(decode(arrival_time,12.5,arrival_time)),count(decode(arrival_time,13,arrival_time)),count(decode(arrival_time,13.5,arrival_time)),count(decode(arrival_time,14,arrival_time)),
109 count(decode(arrival_time,14.5,arrival_time)),count(decode(arrival_time,15,arrival_time)),count(decode(arrival_time,15.5,arrival_time)),count(decode(arrival_time,16,arrival_time)),
110 count(decode(arrival_time,16.5,arrival_time)),count(decode(arrival_time,17,arrival_time)),count(decode(arrival_time,17.5,arrival_time)),count(decode(arrival_time,18,arrival_time)),
111 count(decode(arrival_time,18.5,arrival_time)),count(decode(arrival_time,19,arrival_time)),count(decode(arrival_time,19.5,arrival_time)) ,count(decode(arrival_time,20,arrival_time)),
112 count(decode(arrival_time,20.5,arrival_time)),count(decode(arrival_time,21,arrival_time)),count(decode(arrival_time,21.5,arrival_time)),count(decode(arrival_time,22,arrival_time)),
113 count(decode(arrival_time,22.5,arrival_time)),count(decode(arrival_time,23,arrival_time)),count(decode(arrival_time,23.5,arrival_time))
114 '||x_from_list||x_where_clause||'and adnorm.parent_group_id=:in_owner_lists)';
115 --'||x_from_list||x_where_clause||'and sr.owner_group_id=:in_owner_lists)';
116
117 -- '||x_where_clause||
118 -- where srs.incident_id=sr.incident_id AND sr.owner_group_id=:in_owner_lists)';
119 -- from biv_sr_summary srs,cs_incidents_all_b sr
120 if (l_debug = 'Y') then
121 biv_core_pkg.biv_debug(insert_stmt,'BIV_AGNT_SR_ARRIVAL');
122 end if;
123
124 dbms_sql.parse(cur,sql_stmt,dbms_sql.native);
125 dbms_sql.parse(cur2,insert_stmt,dbms_sql.native);
126
127 dbms_sql.define_array(cur,1,owner_lists,v_batchsize,1);
128
129 biv_core_pkg.bind_all_variables(cur);
130 biv_core_pkg.bind_all_variables(cur2);
131
132
133 fdbk:=dbms_sql.execute(cur);
134
135 loop
136 l_num_rows :=dbms_sql.fetch_rows(cur);
137 dbms_sql.column_value(cur,1,owner_lists);
138
139 if l_num_rows=0 then
140 exit;
141 end if;
142
143 dbms_sql.bind_array(cur2,':in_owner_lists',owner_lists,1,l_num_rows);
144 dbms_sql.bind_variable(cur2,':x_session',x_session);
145
146
147 fdbk:=dbms_sql.execute(cur2);
148 exit when l_num_rows < v_batchsize;
149
150 end loop;
151 dbms_sql.close_cursor(cur);
152 dbms_sql.close_cursor(cur2);
153 l_start_tz:=nvl(fnd_profile.value('SERVER_TIMEZONE_ID'),0);
154
155 if biv_core_pkg.g_tm_zn is not null then
156 l_end_tz:=to_number(nvl(biv_core_pkg.g_tm_zn,0));
157 else
158 l_end_tz:=nvl(fnd_profile.value('SERVER_TIMEZONE_ID'),0);
159 end if;
160
161 CS_TZ_GET_DETAILS_PVT.GET_LEADTIME(1.0,'T',l_start_tz,l_end_tz,l_tz_diff,l_return_status,l_msg_count,l_msg_data);
162
163 n:=nvl(l_tz_diff,0);
164
165 if (l_debug = 'Y') then
166 biv_core_pkg.biv_debug('Server Time Zone:'||l_start_tz,
167 'BIV_AGNT_SR_ARRIVAL');
168 biv_core_pkg.biv_debug('client passed time zone :'||l_end_tz,
169 'BIV_AGNT_SR_ARRIVAL');
170 biv_core_pkg.biv_debug('time zone diff :'||l_tz_diff,'BIV_AGNT_SR_ARRIVAL');
171 biv_core_pkg.biv_debug('the value of n :'||n,'BIV_AGNT_SR_ARRIVAL');
172 end if;
173
174 for rec in update_tmp_tbl
175 loop
176 select col6,col8,col10,col12,col14,col16,col18,col20,
177 col22,col24,col26,col28,col30,col32,col34,col36,
178 col38,col40,col42,col44,col46,col48,col50,col52,
179 col54,col56,col58,col60,col62,col64,col66,col68,
180 col70,col72,col74,col76,col78,col80,col82,col84,
181 col86,col88,col90,col92,col94,col96,col98,col100
182 into a_start(1),a_start(2),a_start(3),a_start(4),a_start(5),a_start(6),a_start(7),a_start(8),
183 a_start(9),a_start(10), a_start(11),a_start(12),a_start(13),a_start(14),a_start(15),a_start(16),
184 a_start(17),a_start(18),a_start(19),a_start(20),a_start(21),a_start(22),a_start(23),a_start(24),
185 a_start(25),a_start(26),a_start(27),a_start(28),a_start(29),a_start(30),a_start(31),a_start(32),
186 a_start(33),a_start(34),a_start(35),a_start(36),a_start(37),a_start(38),a_start(39),a_start(40),
187 a_start(41),a_start(42),a_start(43),a_start(44),a_start(45),a_start(46),a_start(47),a_start(48)
188 from biv_tmp_sr_arrvl where ID=rec.ID and session_id=rec.session_id;
189
190
191 -- array processing logic
192
193
194
195 if n > 0 then
196 for i in 1..48 loop
197 j:=i+2*n;
198 if j > 48 then j:=j-48; end if;
199 a_end(j):=a_start(i);
200
201 end loop;
202 end if;
203
204 if n < 0 then
205 for i in REVERSE 1..48 loop
206 j:=i+2*n;
207 if j <= 0 then j:=j+48; end if;
208 a_end(j):=a_start(i);
209 end loop;
210 end if;
211
212 if n <> 0 then
213 l_reached_upto := 'Before update due to timezone difference';
214 update biv_tmp_sr_arrvl
215 set col6=a_end(1),col8=a_end(2),col10=a_end(3),col12=a_end(4),col14=a_end(5),col16=a_end(6),col18=a_end(7),
216 col20=a_end(8),col22=a_end(9),col24=a_end(10),col26=a_end(11),col28=a_end(12),col30=a_end(13),col32=a_end(14),
217 col34=a_end(15),col36=a_end(16),col38=a_end(17),col40=a_end(18),col42=a_end(19),col44=a_end(20),col46=a_end(21),
218 col48=a_end(22),col50=a_end(23),col52=a_end(24),col54=a_end(25),col56=a_end(26),col58=a_end(27),col60=a_end(28),
219 col62=a_end(29),col64=a_end(30),col66=a_end(31),col68=a_end(32),col70=a_end(33),col72=a_end(34),col74=a_end(35),
220 col76=a_end(36),col78=a_end(37),col80=a_end(38),col82=a_end(39),col84=a_end(40),col86=a_end(41),col88=a_end(42),
221 col90=a_end(43),col92=a_end(44),col94=a_end(45),col96=a_end(46),col98=a_end(47),col100=a_end(48)
222 where ID=rec.ID and session_id=rec.session_id ;
223 end if;
224 end loop;
225
226 l_reached_upto := 'Before update group name';
227 update biv_tmp_sr_arrvl d
228 set col2=(select substr(group_name,1,50)
229 from jtf_rs_groups_vl
230 where group_id =d.ID ) ;
231
232 biv_core_pkg.reset_view_by_param;
233
234 l_new_param_str := 'BIV_HS_SR_ARRIVAL_PRD' ||biv_core_pkg.g_param_sep ||
235 biv_core_pkg.reconstruct_param_str;
236 if (biv_core_pkg.g_tm_zn is not null) then
237 l_new_param_str := l_new_param_str ||
238 'P_TM_ZN' || biv_core_pkg.g_value_sep ||
239 biv_core_pkg.g_tm_zn || biv_core_pkg.g_param_sep;
240 end if;
241 l_new_param_str := l_new_param_str ||'P_AGRP' ||biv_core_pkg.g_value_sep ;
242 -- 'jtfBinId' ||biv_core_pkg.g_value_sep || 'BIV_HS_SR_ARRIVAL_PRD' ||biv_core_pkg.g_param_sep ||
243 l_new_param_str1 := 'BIV_SERVICE_REQUEST' ||biv_core_pkg.g_param_sep ||biv_core_pkg.reconstruct_param_str;
244 -- Change for Bug 2948411
245 l_new_param_str1 := l_new_param_str1 || 'P_PREVR' || biv_core_pkg.g_value_sep ||
246 'BIV_HS_SR_ARRIVAL_TM' || biv_core_pkg.g_param_sep;
247 l_new_param_str1 := l_new_param_str1 ||'P_AGRP' ||biv_core_pkg.g_value_sep ;
248 -- 'jtfBinId' ||biv_core_pkg.g_value_sep || 'BIV_SERVICE_REQUEST' || biv_core_pkg.g_param_sep ||
249
250 if (l_debug = 'Y') then
251 biv_core_pkg.biv_debug('the parameter string constructed for ' ||
252 ' BIV_HS_SR_ARRIVAL_PRD :'||
253 l_new_param_str,'BIV_AGNT_SR_ARRIVAL');
254 biv_core_pkg.biv_debug('the parameter string constructed for ' ||
255 ' BIV_SERVICE_REQUEST :'||
256 l_new_param_str1,'BIV_AGNT_SR_ARRIVAL');
257 end if;
258
259 l_reached_upto := 'Before updating hyperlinks';
260 for i in 1..48 loop
261 j := i -1 + n*2;
262 if (j>=48) then j := j -48;
263 elsif (j<0) then j := j + 48;
264 end if;
265 l_tm_zn(5+j*2) := (i-1)/2;
266 /*
267 if (l_debug = 'Y') then
268 biv_core_pkg.biv_debug('Index:'||to_char(5+j*2)|| ',TM:'||to_char((i-1)/2),
269 'BIV_AGNT_SR_ARRIVAL');
270 end if;
271 */
272 end loop;
273 update biv_tmp_sr_arrvl d
274 set col1=l_new_param_str||d.ID||biv_core_pkg.g_param_sep ,
275 col3=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep,
276 col5=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(5))||biv_core_pkg.g_param_sep,
277 col7=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(7))||biv_core_pkg.g_param_sep,
278 col9=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(9))||biv_core_pkg.g_param_sep,
279 col11=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(11))||biv_core_pkg.g_param_sep,
280 col13=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(13))||biv_core_pkg.g_param_sep,
281 col15=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(15))||biv_core_pkg.g_param_sep,
282 col17=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(17))||biv_core_pkg.g_param_sep,
283 col19=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(19))||biv_core_pkg.g_param_sep,
284 col21=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(21))||biv_core_pkg.g_param_sep,
285 col23=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(23))||biv_core_pkg.g_param_sep,
286 col25=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(25))||biv_core_pkg.g_param_sep,
287 col27=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(27))||biv_core_pkg.g_param_sep,
288 col29=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(29))||biv_core_pkg.g_param_sep,
289 col31=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(31))||biv_core_pkg.g_param_sep,
290 col33=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(33))||biv_core_pkg.g_param_sep,
291 col35=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(35))||biv_core_pkg.g_param_sep,
292 col37=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(37))||biv_core_pkg.g_param_sep,
293 col39=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(39))||biv_core_pkg.g_param_sep,
294 col41=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(41))||biv_core_pkg.g_param_sep,
295 col43=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(43))||biv_core_pkg.g_param_sep,
296 col45=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(45))||biv_core_pkg.g_param_sep,
297 col47=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(47))||biv_core_pkg.g_param_sep,
298 col49=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(49))||biv_core_pkg.g_param_sep,
302 col57=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(57))||biv_core_pkg.g_param_sep,
299 col51=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(51))||biv_core_pkg.g_param_sep,
300 col53=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(53))||biv_core_pkg.g_param_sep,
301 col55=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(55))||biv_core_pkg.g_param_sep,
303 col59=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(59))||biv_core_pkg.g_param_sep,
304 col61=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(61))||biv_core_pkg.g_param_sep,
305 col63=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(63))||biv_core_pkg.g_param_sep,
306 col65=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(65))||biv_core_pkg.g_param_sep,
307 col67=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(67))||biv_core_pkg.g_param_sep,
308 col69=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(69))||biv_core_pkg.g_param_sep,
309 col71=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(71))||biv_core_pkg.g_param_sep,
310 col73=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(73))||biv_core_pkg.g_param_sep,
311 col75=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(75))||biv_core_pkg.g_param_sep,
312 col77=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(77))||biv_core_pkg.g_param_sep,
313 col79=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(79))||biv_core_pkg.g_param_sep,
314 col81=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(81))||biv_core_pkg.g_param_sep,
315 col83=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(83))||biv_core_pkg.g_param_sep,
316 col85=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(85))||biv_core_pkg.g_param_sep,
317 col87=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(87))||biv_core_pkg.g_param_sep,
318 col89=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(89))||biv_core_pkg.g_param_sep,
319 col91=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(91))||biv_core_pkg.g_param_sep,
320 col93=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(93))||biv_core_pkg.g_param_sep,
321 col95=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(95))||biv_core_pkg.g_param_sep,
322 col97=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(97))||biv_core_pkg.g_param_sep,
323 col99=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(99))||biv_core_pkg.g_param_sep,
324 rowno =1,
325 creation_date = sysdate,
326 last_update_date = sysdate
327 ;
328
329 --- Adding totoal row
330 select count(*) into l_ttl_rec
331 from biv_tmp_sr_arrvl
332 where session_id = x_session
333 ;
334 if (l_debug = 'Y') then
335 biv_core_pkg.biv_debug('total rec:' || to_char(l_ttl_rec) ||
336 ' display:'||biv_core_pkg.g_disp,
337 'BIV_AGNT_SR_ARRIVAL');
338 end if;
339 if (l_ttl_rec > 1 and l_ttl_rec < biv_core_pkg.g_disp) then
340 l_ttl_desc := biv_core_pkg.get_lookup_meaning('TOTAL');
341 insert into biv_tmp_sr_arrvl (rowno, report_code, col2, col4, col6, col8,
342 col10,col12,col14,col16,col18,col20,
343 col22,col24,col26,col28,col30,col32,
344 col34,col36,col38,col40,col42,col44,
345 col46,col48,col50,col52,col54,col56,
346 col58,col60,col62,col64,col66,col68,
347 col70,col72,col74,col76,col78,col80,
348 col82,col84,col86,col88,col90,col92,
349 col94,col96,col98,col100,session_id)
350 select 2,'BIV_AGNT_SR_ARRIVAL', l_ttl_desc,sum(col4 ),sum(col6 ),sum(col8),
351 sum(col10),sum(col12),sum(col14),sum(col16),sum(col18),sum(col20),
352 sum(col22),sum(col24),sum(col26),sum(col28),sum(col30),sum(col32),
353 sum(col34),sum(col36),sum(col38),sum(col40),sum(col42),sum(col44),
354 sum(col46),sum(col48),sum(col50),sum(col52),sum(col54),sum(col56),
355 sum(col58),sum(col60),sum(col62),sum(col64),sum(col66),sum(col68),
356 sum(col70),sum(col72),sum(col74),sum(col76),sum(col78),sum(col80),
357 sum(col82),sum(col84),sum(col86),sum(col88),sum(col90),sum(col92),
358 sum(col94),sum(col96),sum(col98),sum(col100),x_session
359 from biv_tmp_sr_arrvl
360 where rowno = 1
361 and session_id = x_session;
362
363 l_new_param_str := 'BIV_HS_SR_ARRIVAL_PRD' ||biv_core_pkg.g_param_sep ||
364 biv_core_pkg.reconstruct_param_str ||
365 'P_AGRP_LVL' ||
366 biv_core_pkg.g_value_sep || nvl(biv_core_pkg.g_lvl,1) ||
367 biv_core_pkg.g_param_sep;
368 if (biv_core_pkg.g_tm_zn is not null) then
369 l_new_param_str := l_new_param_str ||
370 'P_TM_ZN' || biv_core_pkg.g_value_sep ||
374 biv_core_pkg.reconstruct_param_str ||
371 biv_core_pkg.g_tm_zn || biv_core_pkg.g_param_sep;
372 end if;
373 l_new_param_str1 := 'BIV_SERVICE_REQUEST' ||biv_core_pkg.g_param_sep ||
375 'P_AGRP_LVL' ||
376 biv_core_pkg.g_value_sep || nvl(biv_core_pkg.g_lvl,1) ||
377 biv_core_pkg.g_param_sep;
378 -- Change for Bug 2948411
379 l_new_param_str1 := l_new_param_str1 || 'P_PREVR' || biv_core_pkg.g_value_sep ||
380 'BIV_HS_SR_ARRIVAL_TM' || biv_core_pkg.g_param_sep;
381
382 update biv_tmp_sr_arrvl d
383 set col1=l_new_param_str ,
384 col3=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep,
385 col5=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(5))||biv_core_pkg.g_param_sep,
386 col7=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(7))||biv_core_pkg.g_param_sep,
387 col9=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(9))||biv_core_pkg.g_param_sep,
388 col11=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(11))||biv_core_pkg.g_param_sep,
389 col13=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(13))||biv_core_pkg.g_param_sep,
390 col15=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(15))||biv_core_pkg.g_param_sep,
391 col17=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(17))||biv_core_pkg.g_param_sep,
392 col19=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(19))||biv_core_pkg.g_param_sep,
393 col21=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(21))||biv_core_pkg.g_param_sep,
394 col23=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(23))||biv_core_pkg.g_param_sep,
395 col25=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(25))||biv_core_pkg.g_param_sep,
396 col27=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(27))||biv_core_pkg.g_param_sep,
397 col29=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(29))||biv_core_pkg.g_param_sep,
398 col31=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(31))||biv_core_pkg.g_param_sep,
399 col33=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(33))||biv_core_pkg.g_param_sep,
400 col35=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(35))||biv_core_pkg.g_param_sep,
401 col37=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(37))||biv_core_pkg.g_param_sep,
402 col39=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(39))||biv_core_pkg.g_param_sep,
403 col41=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(41))||biv_core_pkg.g_param_sep,
404 col43=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(43))||biv_core_pkg.g_param_sep,
405 col45=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(45))||biv_core_pkg.g_param_sep,
406 col47=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(47))||biv_core_pkg.g_param_sep,
407 col49=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(49))||biv_core_pkg.g_param_sep,
408 col51=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(51))||biv_core_pkg.g_param_sep,
409 col53=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(53))||biv_core_pkg.g_param_sep,
410 col55=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(55))||biv_core_pkg.g_param_sep,
411 col57=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(57))||biv_core_pkg.g_param_sep,
412 col59=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(59))||biv_core_pkg.g_param_sep,
413 col61=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(61))||biv_core_pkg.g_param_sep,
414 col63=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(63))||biv_core_pkg.g_param_sep,
415 col65=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(65))||biv_core_pkg.g_param_sep,
416 col67=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(67))||biv_core_pkg.g_param_sep,
417 col69=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(69))||biv_core_pkg.g_param_sep,
418 col71=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(71))||biv_core_pkg.g_param_sep,
419 col73=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(73))||biv_core_pkg.g_param_sep,
420 col75=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(75))||biv_core_pkg.g_param_sep,
424 col83=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(83))||biv_core_pkg.g_param_sep,
421 col77=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(77))||biv_core_pkg.g_param_sep,
422 col79=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(79))||biv_core_pkg.g_param_sep,
423 col81=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(81))||biv_core_pkg.g_param_sep,
425 col85=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(85))||biv_core_pkg.g_param_sep,
426 col87=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(87))||biv_core_pkg.g_param_sep,
427 col89=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(89))||biv_core_pkg.g_param_sep,
428 col91=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(91))||biv_core_pkg.g_param_sep,
429 col93=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(93))||biv_core_pkg.g_param_sep,
430 col95=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(95))||biv_core_pkg.g_param_sep,
431 col97=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(97))||biv_core_pkg.g_param_sep,
432 col99=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(99))||biv_core_pkg.g_param_sep,
433 creation_date = sysdate,
434 last_update_date = sysdate
435 where rowno = 2
436 ;
437 end if;
438 --- end of total Row addition
439 if (l_debug = 'Y') then
440 biv_core_pkg.biv_debug('End of Report','BIV_AGNT_SR_ARRIVAL');
441 end if;
442 exception
443 when others then
444 if (l_debug = 'Y') then
445 biv_core_pkg.biv_debug('Error at:'||l_reached_upto ||
446 ',Error:'||substr(sqlerrm,1,200),
447 'BIV_AGNT_SR_ARRIVAL');
448 end if;
449 END;
450
451 Procedure Prd_sr_arrival_time(p_param_str in varchar2)
452 IS
453 -- cursor variable
454 cursor update_tmp_tbl is SELECT ID,SESSION_ID
455 FROM biv_tmp_sr_ARRVL where session_id = biv_core_pkg.get_session_id
456 --ID is not null
457 ;
458 -- DBMS_SQL variable
459 cur2 pls_integer:=dbms_sql.open_cursor;
460 fdbk pls_integer;
461 insert_stmt varchar2(4000);
462 l_owner_id number;
463 x_from_list varchar2(2000);
464 x_where_clause varchar2(2000);
465 l_org_id number;
466 -- array processing variable
467 n integer;
468 i number;
469 j number;
470 type array_type is table of number
471 index by binary_integer;
472 a_start array_type;
473 a_end array_type;
474 l_tm_zn array_type;
475 -- time zone variables
476 l_start_tz number;
477 l_end_tz number;
478 l_tz_diff number;
479 l_return_status varchar2(10);
480 l_msg_count number;
481 l_msg_data varchar2(30);
482 l_num_rows integer;
483 x_session NUMBER;
484 l_new_param_str1 varchar2(200);
485 l_debug varchar2(30) := fnd_profile.value('BIV:DEBUG');
486 l_ttl_rec number;
487 l_ttl_desc fnd_lookups.meaning % type;
488
489 begin
490 x_session:=biv_core_pkg.get_session_id;
491 biv_core_pkg.clean_dcf_table('BIV_TMP_SR_ARRVL');
492
493 biv_core_pkg.g_report_type := 'HS';
494 biv_core_pkg.get_report_parameters(p_param_str);
495 if (l_debug = 'Y') then
496 biv_core_pkg.biv_debug('Start Date :'||
497 to_char(biv_core_pkg.g_cr_st,'dd-mon-yyyy hh24:mi:ss'),
498 'BIV_AGNT_SR_ARRIVAL');
499 biv_core_pkg.biv_debug('End Date :'||
500 to_char(biv_core_pkg.g_cr_end,'dd-mon-yyyy hh24:mi:ss'),
501 'BIV_AGNT_SR_ARRIVAL');
502 end if;
503 --12/30 grp_owner already coming from reconstruct fn l_owner_id:=to_number(biv_core_pkg.g_agrp(1));
504 --biv_core_pkg.g_ogrp_cnt :=0;
505 --biv_core_pkg.g_agrp_cnt :=0;
506
507 if (l_debug = 'Y') then
508 biv_core_pkg.biv_debug('Param Str:'||p_param_str,'BIV_PRD_SR_ARRIVAL');
509 end if;
510 -- Change for Bug 3386946
511 x_from_list:=' from biv_sr_summary srs,cs_incidents_b_sec sr ';
512 biv_core_pkg.get_where_clause(x_from_list,x_where_clause);
513 x_where_clause:=x_where_clause||' and sr.incident_id=srs.incident_id ';
514 /*and sr.owner_group_id=:l_owner_id */
515
516 insert_stmt:='insert into biv_tmp_SR_ARRVL (report_code,SESSION_ID,ID,col4,col6,col8,col10,col12,col14,col16,col18,col20,col22,col24,col26,col28,col30,col32,col34,col36,col38,col40,col42,col44,col46,col48,
517 col50,col52,col54,col56,col58,col60,col62,col64,col66,col68,col70,col72,col74,col76,col78,col80,col82,col84,col86,col88,col90,col92,col94,col96,col98,col100)
518 (select ''BIV_PRD_SR_ARRIVAL'',:X_SESSION,sr.inventory_item_id, count(*),count(decode(arrival_time,0,arrival_time)),
519 count(decode(arrival_time,0.5,arrival_time)),count(decode(arrival_time,1,arrival_time)),count(decode(arrival_time,1.5,arrival_time)),count(decode(arrival_time,2,arrival_time)),
520 count(decode(arrival_time,2.5,arrival_time)),count(decode(arrival_time,3,arrival_time)),count(decode(arrival_time,3.5,arrival_time)),count(decode(arrival_time,4,arrival_time)),
524 count(decode(arrival_time,10.5,arrival_time)),count(decode(arrival_time,11,arrival_time)),count(decode(arrival_time,11.5,arrival_time)),count(decode(arrival_time,12,arrival_time)),
521 count(decode(arrival_time,4.5,arrival_time)),count(decode(arrival_time,5,arrival_time)),count(decode(arrival_time,5.5,arrival_time)) ,count(decode(arrival_time,6,arrival_time)),
522 count(decode(arrival_time,6.5,arrival_time)),count(decode(arrival_time,7,arrival_time)),count(decode(arrival_time,7.5,arrival_time)),count(decode(arrival_time,8,arrival_time)),
523 count(decode(arrival_time,8.5,arrival_time)),count(decode(arrival_time,9,arrival_time)),count(decode(arrival_time,9.5,arrival_time)),count(decode(arrival_time,10,arrival_time)) ,
525 count(decode(arrival_time,12.5,arrival_time)),count(decode(arrival_time,13,arrival_time)),count(decode(arrival_time,13.5,arrival_time)),count(decode(arrival_time,14,arrival_time)),
526 count(decode(arrival_time,14.5,arrival_time)),count(decode(arrival_time,15,arrival_time)),count(decode(arrival_time,15.5,arrival_time)),count(decode(arrival_time,16,arrival_time)),
527 count(decode(arrival_time,16.5,arrival_time)),count(decode(arrival_time,17,arrival_time)),count(decode(arrival_time,17.5,arrival_time)),count(decode(arrival_time,18,arrival_time)),
528 count(decode(arrival_time,18.5,arrival_time)),count(decode(arrival_time,19,arrival_time)),count(decode(arrival_time,19.5,arrival_time)) ,count(decode(arrival_time,20,arrival_time)),
529 count(decode(arrival_time,20.5,arrival_time)),count(decode(arrival_time,21,arrival_time)),count(decode(arrival_time,21.5,arrival_time)),count(decode(arrival_time,22,arrival_time)),
530 count(decode(arrival_time,22.5,arrival_time)),count(decode(arrival_time,23,arrival_time)),count(decode(arrival_time,23.5,arrival_time))
531 '||x_from_list||x_where_clause||' group by sr.inventory_item_id )';
532
533 if (l_debug = 'Y') then
534 biv_core_pkg.biv_debug(insert_stmt,'BIV_PRD_SR_ARRIVAL');
535 end if;
536
537
538 dbms_sql.parse(cur2,insert_stmt,dbms_sql.native);
539
540
541 biv_core_pkg.bind_all_variables(cur2);
542
543 --12/30/02 dbms_sql.bind_variable(cur2,':l_owner_id',l_owner_id);
544 dbms_sql.bind_variable(cur2,':X_SESSION',X_SESSION);
545 fdbk:=dbms_sql.execute(cur2);
546
547 dbms_sql.close_cursor(cur2);
548
549 if (l_debug = 'Y') then
550 biv_core_pkg.biv_debug('Update table:','BIV_PRD_SR_ARRIVAL');
551 end if;
552 for rec in update_tmp_tbl
553 loop
554 select col6,col8,col10,col12,col14,col16,col18,col20,
555 col22,col24,col26,col28,col30,col32,col34,col36,
556 col38,col40,col42,col44,col46,col48,col50,col52,
557 col54,col56,col58,col60,col62,col64,col66,col68,
558 col70,col72,col74,col76,col78,col80,col82,col84,
559 col86,col88,col90,col92,col94,col96,col98,col100
560 into a_start(1),a_start(2),a_start(3),a_start(4),a_start(5),a_start(6),a_start(7),a_start(8),
561 a_start(9),a_start(10), a_start(11),a_start(12),a_start(13),a_start(14),a_start(15),a_start(16),
562 a_start(17),a_start(18),a_start(19),a_start(20),a_start(21),a_start(22),a_start(23),a_start(24),
563 a_start(25),a_start(26),a_start(27),a_start(28),a_start(29),a_start(30),a_start(31),a_start(32),
564 a_start(33),a_start(34),a_start(35),a_start(36),a_start(37),a_start(38),a_start(39),a_start(40),
565 a_start(41),a_start(42),a_start(43),a_start(44),a_start(45),a_start(46),a_start(47),a_start(48)
566 from biv_tmp_SR_ARRVL where nvl(ID,0)=nvl(rec.ID,0) and session_id=rec.session_id;
567
568
569 -- array processing logic
570
571 l_start_tz:=nvl(fnd_profile.value('SERVER_TIMEZONE_ID'),0);
572 if biv_core_pkg.g_tm_zn is not null then
573 l_end_tz:=to_number(nvl(biv_core_pkg.g_tm_zn,0));
574 else
575 l_end_tz:=nvl(fnd_profile.value('SERVER_TIMEZONE_ID'),0);
576 end if;
577 CS_TZ_GET_DETAILS_PVT.GET_LEADTIME(1.0,'T',l_start_tz,l_end_tz,l_tz_diff,l_return_status,l_msg_count,l_msg_data);
578 n:=nvl(l_tz_diff,0);
579 if (l_debug = 'Y') then
580 biv_core_pkg.biv_debug('Time zone diff:' || to_char(n),'BIV_PRD_SR_ARRIVAL');
581 end if;
582
583 if n > 0 then
584 for i in 1..48 loop
585 j:=i+2*n;
586 if j > 48 then j:=j-48; end if;
587 a_end(j):=a_start(i);
588 end loop;
589 end if;
590
591 if n < 0 then
592 for i in REVERSE 1..48 loop
593 j:=i+2*n;
594 if j <= 0 then j:=j+48; end if;
595 a_end(j):=a_start(i);
596 end loop;
597 end if;
598 if (l_debug = 'Y') then
599 biv_core_pkg.biv_debug('Update for Time Zone', 'BIV_PRD_SR_ARRIVAL');
600 end if;
601 if n <> 0 then
602 update biv_tmp_sr_arrvl
603 set col6=a_end(1),col8=a_end(2),col10=a_end(3),col12=a_end(4),col14=a_end(5),col16=a_end(6),col18=a_end(7),
604 col20=a_end(8),col22=a_end(9),col24=a_end(10),col26=a_end(11),col28=a_end(12),col30=a_end(13),
605 col32=a_end(14),col34=a_end(15),col36=a_end(16),col38=a_end(17),col40=a_end(18),col42=a_end(19),
606 col44=a_end(20),col46=a_end(21),col48=a_end(22),col50=a_end(23),col52=a_end(24),col54=a_end(25),
607 col56=a_end(26),col58=a_end(27),col60=a_end(28),col62=a_end(29),col64=a_end(30),col66=a_end(31),
608 col68=a_end(32),col70=a_end(33),col72=a_end(34),col74=a_end(35),col76=a_end(36),col78=a_end(37),
609 col80=a_end(38),col82=a_end(39),col84=a_end(40),col86=a_end(41),col88=a_end(42),col90=a_end(43),
610 col92=a_end(44),col94=a_end(45),col96=a_end(46),col98=a_end(47),col100=a_end(48)
611 where nvl(ID,0)=nvl(rec.ID,0)
612 and session_id=rec.session_id ;
613 end if;
614
615 end loop;
616
617 l_org_id:=to_number(biv_core_pkg.g_prd_org);
618
619 if (l_debug = 'Y') then
620 biv_core_pkg.biv_debug('Update of product desc', 'BIV_PRD_SR_ARRIVAL');
621 end if;
625 where inventory_item_id = nvl(d.ID,0)
622 /*** 12/30/02 replace with biv_core_pkg.update_description
623 update biv_tmp_sr_arrvl d
624 set col2 = (select substr(description,1,50) from mtl_system_items_vl
626 and organization_id = l_org_id);
627 ***/
628 biv_core_pkg.update_description('P_PRD_ID','id','col2','biv_tmp_sr_arrvl');
629 if (l_debug = 'Y') then
630 biv_core_pkg.biv_debug('product desc Updated', 'BIV_PRD_SR_ARRIVAL');
631 end if;
632
633 biv_core_pkg.reset_view_by_param;
634
635
636 l_new_param_str1 := 'BIV_SERVICE_REQUEST' ||biv_core_pkg.g_param_sep ||
637 biv_core_pkg.reconstruct_param_str;
638 l_new_param_str1 := l_new_param_str1 ||
639 --'P_AGRP'||biv_core_pkg.g_value_sep||TO_CHAR(L_OWNER_ID)|| biv_core_pkg.g_param_sep||
640 'P_PRD_ID' || biv_core_pkg.g_value_sep ;
641 --'jtfBinId' ||biv_core_pkg.g_value_sep || 'BIV_SERVICE_REQUEST' ||biv_core_pkg.g_param_sep ||
642
643 if (l_debug = 'Y') then
644 biv_core_pkg.biv_debug('TIME ZONE DIFF:' || to_char(n),'BIV_PRD_SR_ARRIVAL');
645 biv_core_pkg.biv_debug('setting time array for links', 'BIV_PRD_SR_ARRIVAL');
646 end if;
647 for i in 1..48 loop
648 j := i -1 + n*2;
649 if (j>=48) then j := j -48;
650 elsif (j<0) then j := j + 48;
651 end if;
652 if (l_debug = 'Y') then
653 biv_core_pkg.biv_debug('Index:'||to_char(5+j*2)|| ',TM:'||to_char((i-1)/2),
654 'BIV_PRD_SR_ARRIVAL');
655 end if;
656 l_tm_zn(5+j*2) := (i-1)/2;
657 end loop;
658 if (l_debug = 'Y') then
659 biv_core_pkg.biv_debug('Update of hyper links', 'BIV_PRD_SR_ARRIVAL');
660 end if;
661 update biv_tmp_sr_arrvl d
662 set col3=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep,
663 col5=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(5))||biv_core_pkg.g_param_sep,
664 col7=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(7))||biv_core_pkg.g_param_sep,
665 col9=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(9))||biv_core_pkg.g_param_sep,
666 col11=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(11))||biv_core_pkg.g_param_sep,
667 col13=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(13))||biv_core_pkg.g_param_sep,
668 col15=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(15))||biv_core_pkg.g_param_sep,
669 col17=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(17))||biv_core_pkg.g_param_sep,
670 col19=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(19))||biv_core_pkg.g_param_sep,
671 col21=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(21))||biv_core_pkg.g_param_sep,
672 col23=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(23))||biv_core_pkg.g_param_sep,
673 col25=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(25))||biv_core_pkg.g_param_sep,
674 col27=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(27))||biv_core_pkg.g_param_sep,
675 col29=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(29))||biv_core_pkg.g_param_sep,
676 col31=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(31))||biv_core_pkg.g_param_sep,
677 col33=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(33))||biv_core_pkg.g_param_sep,
678 col35=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(35))||biv_core_pkg.g_param_sep,
679 col37=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(37))||biv_core_pkg.g_param_sep,
680 col39=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(39))||biv_core_pkg.g_param_sep,
681 col41=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(41))||biv_core_pkg.g_param_sep,
682 col43=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(43))||biv_core_pkg.g_param_sep,
683 col45=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(45))||biv_core_pkg.g_param_sep,
684 col47=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(47))||biv_core_pkg.g_param_sep,
685 col49=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(49))||biv_core_pkg.g_param_sep,
686 col51=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(51))||biv_core_pkg.g_param_sep,
690 col59=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(59))||biv_core_pkg.g_param_sep,
687 col53=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(53))||biv_core_pkg.g_param_sep,
688 col55=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(55))||biv_core_pkg.g_param_sep,
689 col57=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(57))||biv_core_pkg.g_param_sep,
691 col61=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(61))||biv_core_pkg.g_param_sep,
692 col63=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(63))||biv_core_pkg.g_param_sep,
693 col65=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(65))||biv_core_pkg.g_param_sep,
694 col67=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(67))||biv_core_pkg.g_param_sep,
695 col69=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(69))||biv_core_pkg.g_param_sep,
696 col71=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(71))||biv_core_pkg.g_param_sep,
697 col73=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(73))||biv_core_pkg.g_param_sep,
698 col75=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(75))||biv_core_pkg.g_param_sep,
699 col77=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(77))||biv_core_pkg.g_param_sep,
700 col79=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(79))||biv_core_pkg.g_param_sep,
701 col81=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(81))||biv_core_pkg.g_param_sep,
702 col83=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(83))||biv_core_pkg.g_param_sep,
703 col85=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(85))||biv_core_pkg.g_param_sep,
704 col87=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(87))||biv_core_pkg.g_param_sep,
705 col89=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(89))||biv_core_pkg.g_param_sep,
706 col91=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(91))||biv_core_pkg.g_param_sep,
707 col93=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(93))||biv_core_pkg.g_param_sep,
708 col95=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(95))||biv_core_pkg.g_param_sep,
709 col97=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(97))||biv_core_pkg.g_param_sep,
710 col99=l_new_param_str1||nvl(to_char(d.ID),biv_core_pkg.g_null)||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(99))||biv_core_pkg.g_param_sep,
711 rowno =1,
712 creation_date = sysdate,
713 last_update_date = sysdate;
714
715 /****************** replace with the code above 7/25/02
716 update biv_tmp_sr_arrvl d
717 set col3=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep,
718 col5=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'0'||biv_core_pkg.g_param_sep,
719 col7=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'0.5'||biv_core_pkg.g_param_sep,
720 col9=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'1'||biv_core_pkg.g_param_sep,
721 col11=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'1.5'||biv_core_pkg.g_param_sep,
722 col13=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'2'||biv_core_pkg.g_param_sep,
723 col15=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'2.5'||biv_core_pkg.g_param_sep,
724 col17=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'3'||biv_core_pkg.g_param_sep,
725 col19=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'3.5'||biv_core_pkg.g_param_sep,
726 col21=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'4'||biv_core_pkg.g_param_sep,
727 col23=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'4.5'||biv_core_pkg.g_param_sep,
728 col25=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'5'||biv_core_pkg.g_param_sep,
729 col27=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'5.5'||biv_core_pkg.g_param_sep,
730 col29=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'6'||biv_core_pkg.g_param_sep,
734 col37=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'8'||biv_core_pkg.g_param_sep,
731 col31=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'6.5'||biv_core_pkg.g_param_sep,
732 col33=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'7'||biv_core_pkg.g_param_sep,
733 col35=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'7.5'||biv_core_pkg.g_param_sep,
735 col39=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'8.5'||biv_core_pkg.g_param_sep,
736 col41=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'9'||biv_core_pkg.g_param_sep,
737 col43=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'9.5'||biv_core_pkg.g_param_sep,
738 col45=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'10'||biv_core_pkg.g_param_sep,
739 col47=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'10.5'||biv_core_pkg.g_param_sep,
740 col49=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'11'||biv_core_pkg.g_param_sep,
741 col51=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'11.5'||biv_core_pkg.g_param_sep,
742 col53=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'12'||biv_core_pkg.g_param_sep,
743 col55=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'12.5'||biv_core_pkg.g_param_sep,
744 col57=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'13'||biv_core_pkg.g_param_sep,
745 col59=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'13.5'||biv_core_pkg.g_param_sep,
746 col61=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'14'||biv_core_pkg.g_param_sep,
747 col63=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'14.5'||biv_core_pkg.g_param_sep,
748 col65=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'15'||biv_core_pkg.g_param_sep,
749 col67=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'15.5'||biv_core_pkg.g_param_sep,
750 col69=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'16'||biv_core_pkg.g_param_sep,
751 col71=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'16.5'||biv_core_pkg.g_param_sep,
752 col73=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'17'||biv_core_pkg.g_param_sep,
753 col75=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'17.5'||biv_core_pkg.g_param_sep,
754 col77=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'18'||biv_core_pkg.g_param_sep,
755 col79=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'18.5'||biv_core_pkg.g_param_sep,
756 col81=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'19'||biv_core_pkg.g_param_sep,
757 col83=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'19.5'||biv_core_pkg.g_param_sep,
758 col85=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'20'||biv_core_pkg.g_param_sep,
759 col87=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'20.5'||biv_core_pkg.g_param_sep,
760 col89=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'21'||biv_core_pkg.g_param_sep,
761 col91=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'21.5'||biv_core_pkg.g_param_sep,
762 col93=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'22'||biv_core_pkg.g_param_sep,
763 col95=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'22.5'||biv_core_pkg.g_param_sep,
764 col97=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'23'||biv_core_pkg.g_param_sep,
765 col99=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||'23.5'||biv_core_pkg.g_param_sep;
766
767 **********************/
768
769 -- added on 12/30/02 for total row
770 --- Adding totoal row
771 select count(*) into l_ttl_rec
772 from biv_tmp_sr_arrvl
773 where session_id = x_session
774 ;
775 if (l_debug = 'Y') then
776 biv_core_pkg.biv_debug('total rec:' || to_char(l_ttl_rec) ||
777 ' display:'||biv_core_pkg.g_disp,
778 'BIV_AGNT_SR_ARRIVAL');
779 end if;
780 if (l_ttl_rec > 1 ) then
781 l_ttl_desc := biv_core_pkg.get_lookup_meaning('TOTAL');
782 insert into biv_tmp_sr_arrvl (rowno, report_code, col2, col4, col6, col8,
783 col10,col12,col14,col16,col18,col20,
784 col22,col24,col26,col28,col30,col32,
785 col34,col36,col38,col40,col42,col44,
786 col46,col48,col50,col52,col54,col56,
787 col58,col60,col62,col64,col66,col68,
788 col70,col72,col74,col76,col78,col80,
789 col82,col84,col86,col88,col90,col92,
793 sum(col22),sum(col24),sum(col26),sum(col28),sum(col30),sum(col32),
790 col94,col96,col98,col100,session_id)
791 select 2,'BIV_AGNT_SR_ARRIVAL', l_ttl_desc,sum(col4 ),sum(col6 ),sum(col8),
792 sum(col10),sum(col12),sum(col14),sum(col16),sum(col18),sum(col20),
794 sum(col34),sum(col36),sum(col38),sum(col40),sum(col42),sum(col44),
795 sum(col46),sum(col48),sum(col50),sum(col52),sum(col54),sum(col56),
796 sum(col58),sum(col60),sum(col62),sum(col64),sum(col66),sum(col68),
797 sum(col70),sum(col72),sum(col74),sum(col76),sum(col78),sum(col80),
798 sum(col82),sum(col84),sum(col86),sum(col88),sum(col90),sum(col92),
799 sum(col94),sum(col96),sum(col98),sum(col100),x_session
800 from biv_tmp_sr_arrvl
801 where rowno = 1
802 and session_id = x_session;
803
804 l_new_param_str1 := 'BIV_SERVICE_REQUEST' ||biv_core_pkg.g_param_sep ||
805 biv_core_pkg.reconstruct_param_str ||
806 'P_AGRP_LVL' ||
807 biv_core_pkg.g_value_sep || nvl(biv_core_pkg.g_lvl,1) ||
808 biv_core_pkg.g_param_sep;
809
810 update biv_tmp_sr_arrvl d
811 set
812 col3=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep,
813 col5=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(5))||biv_core_pkg.g_param_sep,
814 col7=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(7))||biv_core_pkg.g_param_sep,
815 col9=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(9))||biv_core_pkg.g_param_sep,
816 col11=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(11))||biv_core_pkg.g_param_sep,
817 col13=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(13))||biv_core_pkg.g_param_sep,
818 col15=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(15))||biv_core_pkg.g_param_sep,
819 col17=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(17))||biv_core_pkg.g_param_sep,
820 col19=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(19))||biv_core_pkg.g_param_sep,
821 col21=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(21))||biv_core_pkg.g_param_sep,
822 col23=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(23))||biv_core_pkg.g_param_sep,
823 col25=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(25))||biv_core_pkg.g_param_sep,
824 col27=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(27))||biv_core_pkg.g_param_sep,
825 col29=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(29))||biv_core_pkg.g_param_sep,
826 col31=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(31))||biv_core_pkg.g_param_sep,
827 col33=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(33))||biv_core_pkg.g_param_sep,
828 col35=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(35))||biv_core_pkg.g_param_sep,
829 col37=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(37))||biv_core_pkg.g_param_sep,
830 col39=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(39))||biv_core_pkg.g_param_sep,
831 col41=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(41))||biv_core_pkg.g_param_sep,
832 col43=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(43))||biv_core_pkg.g_param_sep,
833 col45=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(45))||biv_core_pkg.g_param_sep,
834 col47=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(47))||biv_core_pkg.g_param_sep,
835 col49=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(49))||biv_core_pkg.g_param_sep,
836 col51=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(51))||biv_core_pkg.g_param_sep,
837 col53=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(53))||biv_core_pkg.g_param_sep,
838 col55=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(55))||biv_core_pkg.g_param_sep,
839 col57=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(57))||biv_core_pkg.g_param_sep,
840 col59=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(59))||biv_core_pkg.g_param_sep,
841 col61=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(61))||biv_core_pkg.g_param_sep,
842 col63=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(63))||biv_core_pkg.g_param_sep,
843 col65=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(65))||biv_core_pkg.g_param_sep,
844 col67=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(67))||biv_core_pkg.g_param_sep,
845 col69=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(69))||biv_core_pkg.g_param_sep,
846 col71=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(71))||biv_core_pkg.g_param_sep,
847 col73=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(73))||biv_core_pkg.g_param_sep,
848 col75=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(75))||biv_core_pkg.g_param_sep,
849 col77=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(77))||biv_core_pkg.g_param_sep,
850 col79=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(79))||biv_core_pkg.g_param_sep,
851 col81=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(81))||biv_core_pkg.g_param_sep,
852 col83=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(83))||biv_core_pkg.g_param_sep,
853 col85=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(85))||biv_core_pkg.g_param_sep,
854 col87=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(87))||biv_core_pkg.g_param_sep,
855 col89=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(89))||biv_core_pkg.g_param_sep,
856 col91=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(91))||biv_core_pkg.g_param_sep,
857 col93=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(93))||biv_core_pkg.g_param_sep,
858 col95=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(95))||biv_core_pkg.g_param_sep,
859 col97=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(97))||biv_core_pkg.g_param_sep,
860 col99=l_new_param_str1||d.ID||biv_core_pkg.g_param_sep||'P_ARVL_TM'||biv_core_pkg.g_value_sep||to_char(l_tm_zn(99))||biv_core_pkg.g_param_sep,
861 creation_date = sysdate,
862 last_update_date = sysdate
863 where rowno = 2
864 ;
865 end if;
866 --- end of total Row addition
867 if (l_debug = 'Y') then
868 biv_core_pkg.biv_debug('End of Report','BIV_AGNT_SR_ARRIVAL');
869 end if;
870 exception
871 when others then
872 if (l_debug = 'Y') then
873 biv_core_pkg.biv_debug('Error:'||substr(sqlerrm,1,200),
874 'BIV_AGNT_SR_ARRIVAL');
875 end if;
876 END;
877 -- Enter further code below as specified in the Package spec.
878 END;