1 PACKAGE BODY QLTACTWB as
2 /* $Header: qltactwb.plb 115.6 2004/02/18 14:57:47 suramasw ship $ */
3
4 -- 2/8/95 - CREATED
5 -- Kevin Wiggen
6
7 -- This is a wrapper for DO_ACTIONS. It is needed for the concurrent
8 -- manager to run
9 --
10
11 -- Added ARGUMENT2 in the signature of WRAPPER.
12 -- ARGUMENT2 will get the value IMPORT when called from qlttrawb.plb
13 -- Bug 3273447. suramasw
14
15 PROCEDURE WRAPPER(ERRBUF OUT NOCOPY VARCHAR2,
16 RETCODE OUT NOCOPY NUMBER,
17 ARGUMENT1 IN NUMBER,
18 ARGUMENT2 IN VARCHAR2) IS
19
20 X_RETURN BOOLEAN;
21
22 BEGIN
23
24 -- Bug 1580498. This concurrent program always passes
25 -- TXN_HEADER_ID as argument to do_actions. This is not correct
26 -- in the api situation. In order to make minimal impact to
27 -- testing and release, api is now passing a negative collection ID
28 -- to qltactwb to indicate COLLECTION_ID instead of TXN_HEADER_ID
29 -- be passed to the do_actions function.
30 -- bso Thu Jan 11 19:26:24 PST 2001
31
32 IF ARGUMENT1 < 0 THEN
33 X_RETURN := QLTDACTB.DO_ACTIONS(
34 x_txn_header_id => -ARGUMENT1,
35 x_concurrent => 1,
36 x_passed_id_name => 'COLLECTION_ID');
37 ELSE
38 -- Modified the call to do_actions by making the value of
39 -- ARGUMENT2 to be passed to x_argument in do_actions.
40 -- commented the existing call to do_actions.
41 -- Bug 3273447. suramasw
42
43 X_RETURN := QLTDACTB.DO_ACTIONS(
44 x_txn_header_id => ARGUMENT1,
45 x_concurrent => 1,
46 x_argument => ARGUMENT2);
47
48 -- X_RETURN := QLTDACTB.DO_ACTIONS(ARGUMENT1, 1);
49 END IF;
50
51 COMMIT;
52
53 IF NOT X_RETURN THEN
54 FND_MESSAGE.SET_NAME('QA','QA_ACTIONS_FAILED');
55 APP_EXCEPTION.RAISE_EXCEPTION;
56 ELSE
57 RETCODE := 0;
58 ERRBUF := '';
59 END IF;
60 END WRAPPER;
61
62
63 END QLTACTWB;
64