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
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:
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
59: END IF;
60: END WRAPPER;
61:
62:
63: END QLTACTWB;
64: