1: PACKAGE BODY QLTTRAMB as
2: /* $Header: qlttramb.plb 120.0.12020000.2 2012/07/03 18:09:10 ntungare ship $ */
3: -- 1/22/96 - created
4: -- Paul Mishkin
5:
1: PACKAGE BODY QLTTRAMB as
2: /* $Header: qlttramb.plb 120.0.12020000.2 2012/07/03 18:09:10 ntungare ship $ */
3: -- 1/22/96 - created
4: -- Paul Mishkin
5:
6: --
108: workflow_key number := null;
109:
110: BEGIN
111:
112: QLTTRAMB.qa_import_log('=====================================');
113: QLTTRAMB.qa_import_log('Staring the transaction Manager');
114: QLTTRAMB.qa_import_log('WORKER_ROWS = '||WORKER_ROWS);
115: QLTTRAMB.qa_import_log('Type of transaciton = '||ARGUMENT2);
116: QLTTRAMB.qa_import_log('User running this report = '||ARGUMENT3);
109:
110: BEGIN
111:
112: QLTTRAMB.qa_import_log('=====================================');
113: QLTTRAMB.qa_import_log('Staring the transaction Manager');
114: QLTTRAMB.qa_import_log('WORKER_ROWS = '||WORKER_ROWS);
115: QLTTRAMB.qa_import_log('Type of transaciton = '||ARGUMENT2);
116: QLTTRAMB.qa_import_log('User running this report = '||ARGUMENT3);
117: QLTTRAMB.qa_import_log('Gather stats = '||ARGUMENT4);
110: BEGIN
111:
112: QLTTRAMB.qa_import_log('=====================================');
113: QLTTRAMB.qa_import_log('Staring the transaction Manager');
114: QLTTRAMB.qa_import_log('WORKER_ROWS = '||WORKER_ROWS);
115: QLTTRAMB.qa_import_log('Type of transaciton = '||ARGUMENT2);
116: QLTTRAMB.qa_import_log('User running this report = '||ARGUMENT3);
117: QLTTRAMB.qa_import_log('Gather stats = '||ARGUMENT4);
118:
111:
112: QLTTRAMB.qa_import_log('=====================================');
113: QLTTRAMB.qa_import_log('Staring the transaction Manager');
114: QLTTRAMB.qa_import_log('WORKER_ROWS = '||WORKER_ROWS);
115: QLTTRAMB.qa_import_log('Type of transaciton = '||ARGUMENT2);
116: QLTTRAMB.qa_import_log('User running this report = '||ARGUMENT3);
117: QLTTRAMB.qa_import_log('Gather stats = '||ARGUMENT4);
118:
119: --
112: QLTTRAMB.qa_import_log('=====================================');
113: QLTTRAMB.qa_import_log('Staring the transaction Manager');
114: QLTTRAMB.qa_import_log('WORKER_ROWS = '||WORKER_ROWS);
115: QLTTRAMB.qa_import_log('Type of transaciton = '||ARGUMENT2);
116: QLTTRAMB.qa_import_log('User running this report = '||ARGUMENT3);
117: QLTTRAMB.qa_import_log('Gather stats = '||ARGUMENT4);
118:
119: --
120: -- For CBO, need to calculate the size of the QRI table.
113: QLTTRAMB.qa_import_log('Staring the transaction Manager');
114: QLTTRAMB.qa_import_log('WORKER_ROWS = '||WORKER_ROWS);
115: QLTTRAMB.qa_import_log('Type of transaciton = '||ARGUMENT2);
116: QLTTRAMB.qa_import_log('User running this report = '||ARGUMENT3);
117: QLTTRAMB.qa_import_log('Gather stats = '||ARGUMENT4);
118:
119: --
120: -- For CBO, need to calculate the size of the QRI table.
121: -- bso Tue Dec 7 12:53:14 PST 1999
138: X_PROGRAM_ID := who_program_id;
139: X_LAST_UPDATE_LOGIN := who_last_update_login;
140:
141:
142: QLTTRAMB.qa_import_log('Who columns set correctly, assigning workers');
143: -- first assign workers for rows where validate flag is true. then
144: -- assign workers for rows where validate flag is false.
145:
146: FOR X_VAL_FLAG IN 1..2 LOOP
272: END IF;
273:
274: END LOOP;
275:
276: QLTTRAMB.qa_import_log('Number of workers assignment completed.workers_n ='||workers_n);
277:
278: --
279: -- If self-service, we should start the appropriate workflow and give
280: -- it the no. of workers as attribute. The item type of the workflow
283:
284: IF self_service THEN
285: X_Profile_Val := FND_PROFILE.VALUE('QA_SS_IMPORT_WORKFLOW');
286:
287: QLTTRAMB.qa_import_log('request launched through self service');
288: QLTTRAMB.qa_import_log('profile QA_SS_IMPORT_WORKFLOW = '||X_Profile_Val);
289:
290: IF X_Profile_Val = 1 THEN
291: workflow_type := 'QASSIMP';
284: IF self_service THEN
285: X_Profile_Val := FND_PROFILE.VALUE('QA_SS_IMPORT_WORKFLOW');
286:
287: QLTTRAMB.qa_import_log('request launched through self service');
288: QLTTRAMB.qa_import_log('profile QA_SS_IMPORT_WORKFLOW = '||X_Profile_Val);
289:
290: IF X_Profile_Val = 1 THEN
291: workflow_type := 'QASSIMP';
292: ELSE
300: -- needed will be stored in workers array (basically group_id and
301: -- validation_flag). Launch the workers here!
302: --
303: FOR n IN 1..workers_n LOOP
304: QLTTRAMB.qa_import_log('Launching request for worker');
305: errcode := fnd_request.submit_request(
306: 'QA', 'QLTTRAWB', null, null, false,
307: to_char(workers(n).group_id),
308: to_char(workers(n).val_flag),
313: argument3,
314: workflow_type);
315: END LOOP;
316:
317: QLTTRAMB.qa_import_log('Successful completion of transaction manager');
318: QLTTRAMB.qa_import_log('=====================================');
319:
320: END TRANSACTION_MANAGER;
321:
314: workflow_type);
315: END LOOP;
316:
317: QLTTRAMB.qa_import_log('Successful completion of transaction manager');
318: QLTTRAMB.qa_import_log('=====================================');
319:
320: END TRANSACTION_MANAGER;
321:
322:
365: END IF;
366:
367: END qa_import_log;
368:
369: END QLTTRAMB;
370: