1 PACKAGE CSD_IB_CHOWN_CUHK AUTHID CURRENT_USER as
2 /* $Header: csdcowns.pls 120.0 2006/02/28 16:17:22 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 TYPE CREATE_TCA_REL_IN_REC_TYPE is RECORD
15 (
16 instance_id NUMBER,
17 new_owner_party_id NUMBER,
18 new_owner_account_id NUMBER,
19 current_owner_party_id NUMBER
20 );
21
22 TYPE CREATE_TCA_REL_OUT_REC_TYPE is RECORD
23 (
24 return_status VARCHAR2(1),
25 create_tca_rel_flag VARCHAR2(1)
26 );
27
28 TYPE TCA_REL_INFO_IN_REC_TYPE is RECORD
29 (
30 instance_id NUMBER,
31 new_owner_party_id NUMBER,
32 new_owner_account_id NUMBER,
33 current_owner_party_id NUMBER
34 );
35
36 TYPE TCA_REL_INFO_OUT_REC_TYPE is RECORD
37 (
38 return_status VARCHAR2(1),
39 relationship_type VARCHAR2(30),
40 relationship_code VARCHAR2(30)
41 );
42
43 /*-----------------------------------------------------------------*/
44 /* procedure name: get_create_tca_rel_flag */
45 /* description : Procedure to determine whether or not a */
46 /* tca relationship should be created between the */
47 /* new ib owner (subject) and the old ib owner */
48 /* (object) when changing IB ownership */
49 /* A value of fnd_api.g_true means create the tca */
50 /* relationship. Null or any other value (e.g. */
51 /* fnd_api.g_false) means do not create the tca */
52 /* relationship */
53 /*-----------------------------------------------------------------*/
54 PROCEDURE get_create_tca_rel_flag
55 (
56 p_in_param IN CREATE_TCA_REL_IN_REC_TYPE,
57 x_out_param OUT NOCOPY CREATE_TCA_REL_OUT_REC_TYPE
58 );
59
60 /*-----------------------------------------------------------------*/
61 /* procedure name: get_tca_rel_info */
62 /* description : Procedure to get the default tca relationship */
63 /* type and code in order to create a tca */
64 /* relationship between the new ib owner (subject) */
65 /* and the old ib owner (object) */
66 /*-----------------------------------------------------------------*/
67 PROCEDURE get_tca_rel_info
68 (
69 p_in_param IN TCA_REL_INFO_IN_REC_TYPE,
70 x_out_param OUT NOCOPY TCA_REL_INFO_OUT_REC_TYPE
71 );
72
73 --
74 END CSD_IB_CHOWN_CUHK;