1 PACKAGE WSH_TP_RELEASE_GRP AUTHID CURRENT_USER as
2 /* $Header: WSHTPGPS.pls 115.0 2003/09/05 19:11:38 wrudge noship $ */
3
4
5 -- TP interface records are identified by their INTERFACE_ACTION_CODE
6 -- having this constant value:
7 G_TP_RELEASE_CODE CONSTANT VARCHAR2(30) := 'TP_RELEASE';
8
9
10 TYPE id_tab_type IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
11
12 TYPE input_rec_type IS RECORD (
13 action_code VARCHAR2(30),
14 commit_flag VARCHAR2(1)
15 );
16
17 TYPE output_rec_type IS RECORD (
18 text VARCHAR2(32767)
19 );
20
21
22 -- action codes:
23 G_ACTION_RELEASE CONSTANT VARCHAR2(30) := 'RELEASE';
24 G_ACTION_PURGE CONSTANT VARCHAR2(30) := 'PURGE';
25
26
27
28 --
29 -- Procedure: action
30 -- Parameters:
31 -- p_id_tab list of ids to process, depending on action.
32 -- For actions implemented, list of group_id
33 -- identifies the trips in WSH_TRIPS_INTERFACE
34 -- with INTERFACE_ACTION_CODE = 'TP_RELEASE'
35 -- and their related records in other interface tables.
36 -- p_input_rec input parameters:
37 -- action_code:
38 -- G_ACTION_RELEASE - release the plan
39 -- if some groups fail, returns warning
40 -- if all fail, returns error
41 -- G_ACTION_PURGE - purge interface tables
42 -- commit_flag:
43 -- FND_API.G_TRUE - commit each group
44 -- FND_API.G_FALSE - do not commit
45 -- p_output_rec_type output parameters:
46 -- placeholder for future
47 -- x_return_status return status
48 -- FND_API.G_RET_STS_SUCCESS - success
49 -- 'W' - warning (WSH_UTIL_CORE.G_RET_STS_WARNING)
50 -- FND_API.G_RET_STS_ERROR
51 -- FND_API.G_RET_STS_UNEXP_ERROR
52 --
53 -- Description:
54 -- Perform an action relating to TP integration, based on p_input_rec.action_code:
55 -- Release Plan
56 -- Purge Interface Tables
57 --
58 --
59 PROCEDURE action(
60 p_id_tab IN id_tab_type,
61 p_input_rec IN input_rec_type,
62 x_ouput_rec_type OUT NOCOPY output_rec_type,
63 x_return_status OUT NOCOPY VARCHAR2);
64
65
66 END WSH_TP_RELEASE_GRP;