1 PACKAGE BODY CSD_IB_CHOWN_CUHK as
2 /* $Header: csdcownb.pls 120.0 2006/02/28 16:18:26 swai noship $ */
3 --
4 -- Package name : CSD_IB_CHOWN_CUHK
5 -- Purpose : This package contains custom hooks for changing
6 -- installed base owners via depot repair
7 -- History :
8 -- Version Date Name Description
9 -- 115.0 01/10/06 swai Created.
10 --
11 -- NOTE :
12 --
13
14 /*-----------------------------------------------------------------*/
15 /* procedure name: get_create_tca_rel_flag */
16 /* description : Procedure to determine whether or not a */
17 /* tca relationship should be created between the */
18 /* new ib owner (subject) and the old ib owner */
19 /* (object) when changing IB ownership */
20 /* A value of fnd_api.g_true means create the tca */
21 /* relationship. Null or any other value (e.g. */
22 /* fnd_api.g_false) means do not create the tca */
23 /* relationship */
24 /*-----------------------------------------------------------------*/
25 PROCEDURE get_create_tca_rel_flag
26 (
27 p_in_param IN CREATE_TCA_REL_IN_REC_TYPE,
28 x_out_param OUT NOCOPY CREATE_TCA_REL_OUT_REC_TYPE
29 ) IS
30 BEGIN
31 x_out_param.return_status := FND_API.G_RET_STS_SUCCESS;
32 x_out_param.create_tca_rel_flag := FND_API.G_FALSE;
33 END get_create_tca_rel_flag;
34
35 /*-----------------------------------------------------------------*/
36 /* procedure name: get_tca_rel_info */
37 /* description : Procedure to get the default tca relationship */
38 /* type and code in order to create a tca */
39 /* relationship between the new ib owner (subject) */
40 /* and the old ib owner (object) */
41 /*-----------------------------------------------------------------*/
42 PROCEDURE get_tca_rel_info
43 (
44 p_in_param IN TCA_REL_INFO_IN_REC_TYPE,
45 x_out_param OUT NOCOPY TCA_REL_INFO_OUT_REC_TYPE
46 ) IS
47 BEGIN
48 x_out_param.return_status := FND_API.G_RET_STS_ERROR;
49 x_out_param.relationship_type := null;
50 x_out_param.relationship_code := null;
51 END get_tca_rel_info;
52
53 --
54 END CSD_IB_CHOWN_CUHK;