eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.JTF_ACTIVITY_MANAGER

Source


1 PACKAGE BODY JTF_ACTIVITY_MANAGER AS
2 /* $Header: jtfactlb.pls 120.1 2005/07/02 02:30:09 appldev ship $ */
3 
4 procedure write(
5 appid IN number, activityname IN varchar2, attrnames IN t_valuetable, valuen IN t_valuetable ) is
6 
7 v_attrname jtf_act_types_attrs_tl.attribute_name%TYPE;
8 v_userid jtf_act_activity_logs.jtf_act_activity_logs_user_id%TYPE ;
9 v_component jtf_act_activity_logs.component%TYPE ;
10 v_numvalue number;
11 v_tablename jtf_act_types_b.table_name%TYPE;
12 v_columns  t_valuetable;
13 j binary_integer;
14 i binary_integer;
15 cid integer;
16 ignore integer;
17 activitynameid number;
18 
19 cursor C is
20   SELECT t2.attribute_name, to_number(LTRIM(b.column_name, 'column'))
21   from jtf_act_types_tl t1, jtf_act_types_attrs_b b, jtf_act_types_attrs_tl t2
22   where t1.activity_name = activityname and t1.language=userenv('LANG')
23         and t1.activity_name_id = b.activity_name_id
24         and b.attribute_name_id = t2.attribute_name_id and t2.language=userenv('LANG');
25 
26 
27 cursor C2 is
28   SELECT b.table_name
29   from jtf_act_types_b b, jtf_act_types_tl tl
30   where b.activity_name_id = tl.activity_name_id
31         and tl.activity_name = activityname
32         and tl.language = userenv('LANG');
33 begin
34 
35   for i in 1..41 loop
36    v_columns(i) := null;
37   end loop;
38 
39   open C;
40 
41   loop
42    fetch C into v_attrname, v_numvalue;
43    Exit when C%NOTFOUND;
44 
45    for j in 1..attrnames.LAST loop
46 
47     if  lower(v_attrname) = lower(attrnames(j)) then
48         v_columns(v_numvalue) := valuen(j);
49       exit;
50     end if;
51    end loop;
52 
53   end loop;
54 
55   close C;
56 
57   for j in 1..attrnames.LAST loop
58     if  lower(attrnames(j)) = 'user_id' then
59       v_userid := TO_NUMBER(valuen(j));
60     elsif  lower(attrnames(j)) = 'component' then
61       v_component := valuen(j);
62     end if;
63   end loop;
64 
65   if v_userid is null then
66     return;
67   end if;
68 
69   open c2;
70 
71   loop
72    fetch C2 into v_tablename;
73    Exit when C2%NOTFOUND;
74 
75   end loop;
76   close c2;
77 
78   select activity_name_id into activitynameid from jtf_act_types_tl
79   where language = userenv('LANG') and activity_name = activityname;
80 
81   cid := DBMS_SQL.OPEN_CURSOR;
82 
83   DBMS_SQL.PARSE(cid, 'insert into '|| v_tablename || '(activity_name_id, application_id ,
84                 jtf_act_activity_logs_user_id, created_by, creation_date, last_updated_by,
85                 last_update_date, component, column1, column2, column3, column4,column5,
86                 column6, column7,column8,column9, column10, column11, column12, column13,
87                 column14,column15, column16, column17,column18,column19, column20, column21,
88                 column22, column23, column24,column25, column26, column27,column28, column29,
89                 column30, column31, column32, column33, column34, column35, column36, column37,
90                 column38, column39, column40)
91            values (:activitynameid, :appid, :userid, :userid, sysdate, :userid, sysdate,
92            :component, :column1, :column2, :column3, :column4, :column5, :column6, :column7,
93            :column8, :column9, :column10, :column11, :column12, :column13, :column14, :column15,
94            :column16, :column17, :column18, :column19, :column20, :column21, :column22,
95            :column23, :column24, :column25, :column26, :column27, :column28, :column29,
96            :column30, :column31, :column32, :column33, :column34, :column35, :column36,
97            :column37, :column38, :column39, :column40 )', dbms_sql.v7);
98 
99   DBMS_SQL.bind_variable(cid, ':activitynameid', activitynameid);
100   DBMS_SQL.bind_variable(cid, ':appid', appid);
101   DBMS_SQL.bind_variable(cid, ':userid', v_userid);
102   DBMS_SQL.bind_variable(cid, ':component', v_component);
103   DBMS_SQL.bind_variable(cid, ':column1', v_columns(1));
104   DBMS_SQL.bind_variable(cid, ':column2', v_columns(2));
105   DBMS_SQL.bind_variable(cid, ':column3', v_columns(3));
106   DBMS_SQL.bind_variable(cid, ':column4', v_columns(4));
107   DBMS_SQL.bind_variable(cid, ':column5', v_columns(5));
108   DBMS_SQL.bind_variable(cid, ':column6', v_columns(6));
109   DBMS_SQL.bind_variable(cid, ':column7', v_columns(7));
110   DBMS_SQL.bind_variable(cid, ':column8', v_columns(8));
111   DBMS_SQL.bind_variable(cid, ':column9', v_columns(9));
112   DBMS_SQL.bind_variable(cid, ':column10', v_columns(10));
113   DBMS_SQL.bind_variable(cid, ':column11', v_columns(11));
114   DBMS_SQL.bind_variable(cid, ':column12', v_columns(12));
115   DBMS_SQL.bind_variable(cid, ':column13', v_columns(13));
116   DBMS_SQL.bind_variable(cid, ':column14', v_columns(14));
117   DBMS_SQL.bind_variable(cid, ':column15', v_columns(15));
118   DBMS_SQL.bind_variable(cid, ':column16', v_columns(16));
119   DBMS_SQL.bind_variable(cid, ':column17', v_columns(17));
120   DBMS_SQL.bind_variable(cid, ':column18', v_columns(18));
121   DBMS_SQL.bind_variable(cid, ':column19', v_columns(19));
122   DBMS_SQL.bind_variable(cid, ':column20', v_columns(20));
123   DBMS_SQL.bind_variable(cid, ':column21', v_columns(21));
124   DBMS_SQL.bind_variable(cid, ':column22', v_columns(22));
125   DBMS_SQL.bind_variable(cid, ':column23', v_columns(23));
126   DBMS_SQL.bind_variable(cid, ':column24', v_columns(24));
127   DBMS_SQL.bind_variable(cid, ':column25', v_columns(25));
128   DBMS_SQL.bind_variable(cid, ':column26', v_columns(26));
129   DBMS_SQL.bind_variable(cid, ':column27', v_columns(27));
130   DBMS_SQL.bind_variable(cid, ':column28', v_columns(28));
131   DBMS_SQL.bind_variable(cid, ':column29', v_columns(29));
132   DBMS_SQL.bind_variable(cid, ':column30', v_columns(30));
133   DBMS_SQL.bind_variable(cid, ':column31', v_columns(31));
134   DBMS_SQL.bind_variable(cid, ':column32', v_columns(32));
135   DBMS_SQL.bind_variable(cid, ':column33', v_columns(33));
136   DBMS_SQL.bind_variable(cid, ':column34', v_columns(34));
137   DBMS_SQL.bind_variable(cid, ':column35', v_columns(35));
138   DBMS_SQL.bind_variable(cid, ':column36', v_columns(36));
139   DBMS_SQL.bind_variable(cid, ':column37', v_columns(37));
140   DBMS_SQL.bind_variable(cid, ':column38', v_columns(38));
141   DBMS_SQL.bind_variable(cid, ':column39', v_columns(39));
142   DBMS_SQL.bind_variable(cid, ':column40', v_columns(40));
143   ignore := DBMS_SQL.EXECUTE(cid);
144   DBMS_SQL.CLOSE_CURSOR(cid);
145   EXCEPTION
146    when NO_DATA_FOUND then
147         RAISE;
148    when others then
149  	DBMS_SQL.CLOSE_CURSOR(cid);
150 	RAISE;
151 
152 end write;
153 
154 procedure write(appid IN number, activityname varchar2, attrnames IN v_valuearray, valuen IN v_valuearray)
155 
156 is
157 	i binary_integer;
158 	outv_names t_valuetable;
159 	outv_valuen t_valuetable;
160 
161 begin
162 
163 	for i IN 1..attrnames.COUNT loop
164 		outv_names(i) := attrnames(i);
165 		outv_valuen(i) := valuen(i);
166 	end loop;
167 
168 	write (appid, activityname, outv_names, outv_valuen);
169 
170 end write;
171 
172 procedure write(
173  app_id IN number,
174  activity_name IN varchar2,
175  userid number,
176  component  varchar2,
177  num_attributes number,
178  attribute1 varchar2 default null,
179  value1 varchar2 default null,
180  attribute2 varchar2 default null,
181  value2 varchar2 default null,
182  attribute3 varchar2 default null,
183  value3 varchar2 default null,
184  attribute4 varchar2 default null,
185  value4 varchar2 default null,
186  attribute5 varchar2 default null,
187  value5 varchar2 default null,
188  attribute6 varchar2 default null,
189  value6 varchar2 default null,
190  attribute7 varchar2 default null,
191  value7 varchar2 default null,
192  attribute8 varchar2 default null,
193  value8 varchar2 default null,
194  attribute9 varchar2 default null,
195  value9 varchar2 default null,
196  attribute10 varchar2 default null,
197  value10 varchar2 default null,
198  attribute11 varchar2 default null,
199  value11 varchar2 default null,
200  attribute12 varchar2 default null,
201  value12 varchar2 default null,
202  attribute13 varchar2 default null,
203  value13 varchar2 default null,
204  attribute14 varchar2 default null,
205  value14 varchar2 default null,
206  attribute15 varchar2 default null,
207  value15 varchar2 default null,
208  attribute16 varchar2 default null,
209  value16 varchar2 default null,
210  attribute17 varchar2 default null,
211  value17 varchar2 default null,
212  attribute18 varchar2 default null,
213  value18 varchar2 default null,
214  attribute19 varchar2 default null,
215  value19 varchar2 default null,
216  attribute20 varchar2 default null,
217  value20 varchar2 default null,
218  attribute21 varchar2 default null,
219  value21 varchar2 default null,
220  attribute22 varchar2 default null,
221  value22 varchar2 default null,
222  attribute23 varchar2 default null,
223  value23 varchar2 default null,
224  attribute24 varchar2 default null,
225  value24 varchar2 default null,
226  attribute25 varchar2 default null,
227  value25 varchar2 default null,
228  attribute26 varchar2 default null,
229  value26 varchar2 default null,
230  attribute27 varchar2 default null,
231  value27 varchar2 default null,
232  attribute28 varchar2 default null,
233  value28 varchar2 default null,
234  attribute29 varchar2 default null,
235  value29 varchar2 default null,
236  attribute30 varchar2 default null,
237  value30 varchar2 default null,
238  attribute31 varchar2 default null,
239  value31 varchar2 default null,
240  attribute32 varchar2 default null,
241  value32 varchar2 default null,
242  attribute33 varchar2 default null,
243  value33 varchar2 default null,
244  attribute34 varchar2 default null,
245  value34 varchar2 default null,
246  attribute35 varchar2 default null,
247  value35 varchar2 default null,
248  attribute36 varchar2 default null,
249  value36 varchar2 default null,
250  attribute37 varchar2 default null,
251  value37 varchar2 default null,
252  attribute38 varchar2 default null,
253  value38 varchar2 default null,
254  attribute39 varchar2 default null,
255  value39 varchar2 default null,
256  attribute40 varchar2 default null,
257  value40 varchar2 default null)
258 
259 is
260 
261 i binary_integer;
262 
263 inv_names  t_valuetable;
264 inv_valuen t_valuetable;
265 
266 outv_names  t_valuetable;
267 outv_valuen t_valuetable;
268 
269 begin
270 
271 inv_names(1) := attribute1;
272 inv_names(2) := attribute2;
273 inv_names(3) := attribute3;
274 inv_names(4) := attribute4;
275 inv_names(5) := attribute5;
276 inv_names(6) := attribute6;
277 inv_names(7) := attribute7;
278 inv_names(8) := attribute8;
279 inv_names(9) := attribute9;
280 inv_names(10) := attribute10;
281 inv_names(11) := attribute11;
282 inv_names(12) := attribute12;
283 inv_names(13) := attribute13;
284 inv_names(14) := attribute14;
285 inv_names(15) := attribute15;
286 inv_names(16) := attribute16;
287 inv_names(17) := attribute17;
288 inv_names(18) := attribute18;
289 inv_names(19) := attribute19;
290 inv_names(20) := attribute20;
291 inv_names(21) := attribute21;
292 inv_names(22) := attribute22;
293 inv_names(23) := attribute23;
294 inv_names(24) := attribute24;
295 inv_names(25) := attribute25;
296 inv_names(26) := attribute26;
297 inv_names(27) := attribute27;
298 inv_names(28) := attribute28;
299 inv_names(29) := attribute29;
300 inv_names(30) := attribute30;
301 inv_names(31) := attribute31;
302 inv_names(32) := attribute32;
303 inv_names(33) := attribute33;
304 inv_names(34) := attribute34;
305 inv_names(35) := attribute35;
306 inv_names(36) := attribute36;
307 inv_names(37) := attribute37;
308 inv_names(38) := attribute38;
309 inv_names(39) := attribute39;
310 inv_names(40) := attribute40;
311 
312 inv_valuen(1) := value1;
313 inv_valuen(2) := value2;
314 inv_valuen(3) := value3;
315 inv_valuen(4) := value4;
316 inv_valuen(5) := value5;
317 inv_valuen(6) := value6;
318 inv_valuen(7) := value7;
319 inv_valuen(8) := value8;
320 inv_valuen(9) := value9;
321 inv_valuen(10) := value10;
322 inv_valuen(11) := value11;
323 inv_valuen(12) := value12;
324 inv_valuen(13) := value13;
325 inv_valuen(14) := value14;
326 inv_valuen(15) := value15;
327 inv_valuen(16) := value16;
328 inv_valuen(17) := value17;
329 inv_valuen(18) := value18;
330 inv_valuen(19) := value39;
331 inv_valuen(20) := value20;
332 inv_valuen(21) := value21;
333 inv_valuen(22) := value22;
334 inv_valuen(23) := value23;
335 inv_valuen(24) := value24;
336 inv_valuen(25) := value25;
337 inv_valuen(26) := value26;
338 inv_valuen(27) := value27;
339 inv_valuen(28) := value28;
340 inv_valuen(29) := value29;
341 inv_valuen(30) := value30;
342 inv_valuen(31) := value31;
343 inv_valuen(32) := value32;
344 inv_valuen(33) := value33;
345 inv_valuen(34) := value34;
346 inv_valuen(35) := value35;
347 inv_valuen(36) := value36;
348 inv_valuen(37) := value37;
349 inv_valuen(38) := value38;
350 inv_valuen(39) := value39;
351 inv_valuen(40) := value40;
352 
353 
354 for i in 1..num_attributes loop
355  outv_names(i) := inv_names(i);
356  outv_valuen(i) := inv_valuen(i);
357 end loop;
358 
359 i := num_attributes + 1;
360 
361 outv_names(i) := 'user_id';
362 outv_valuen(i) := TO_CHAR(userid);
363 i := i+1;
364 
365 outv_names(i) := 'component';
366 outv_valuen(i) := component;
367 
368 write (app_id, activity_name, outv_names, outv_valuen);
369 
370 end write;
371 
372 procedure run is
373 v_PK NUMBER;
374 v_NameID NUMBER;
375 v_AttrID NUMBER;
376 v_ATTR VARCHAR2(50);
377 begin
378 
379 write(10, 'Customer_DisputeBill2', 10, 'jtf', '3', 'billid', 'debby', 'billerid', 'li', 'accountid', '12434' );
380 
381 --DBMS_OUTPUT.ENABLE(1000000);
382 --DBMS_OUTPUT.PUT_LINE('This is the output' );
383 --DBMS_OUTPUT.PUT_LINE('Value of primary key is: ' || v_PK);
384 --DBMS_OUTPUT.PUT_LINE('Value of name id  is: ' || v_NameID);
385 end run;
386 
387 end jtf_activity_manager;