PACKAGE BODY: APPS.CS_INTERACTION_UTL

Source

1 PACKAGE BODY CS_Interaction_UTL AS
2 /* $Header: csucib.pls 115.0 99/07/16 09:02:51 porting s $ */
3 
4 ------------------------------------------------------------------------------
5 --  Function	: Validate_Parent_Interaction
6 ------------------------------------------------------------------------------
7 
8 PROCEDURE Validate_Parent_Interaction
9   ( p_api_name			IN	VARCHAR2,
10     p_parameter_name		IN	VARCHAR2,
11     p_parent_interaction_id	IN	NUMBER,
12     p_org_id			IN	NUMBER DEFAULT NULL,
13     x_return_status		OUT	VARCHAR2 )
14   IS
15      l_dummy	VARCHAR2(1);
16 BEGIN
17    x_return_status := fnd_api.g_ret_sts_success;
18 
19    SELECT 'x' INTO l_dummy
20      FROM cs_interactions
21      WHERE interaction_id = p_parent_interaction_id
22      AND Nvl(org_id, -99) = Decode(org_id, NULL, -99, p_org_id);
23 EXCEPTION
24    WHEN no_data_found THEN
25       x_return_status := fnd_api.g_ret_sts_error;
26       cs_core_util.add_invalid_argument_msg(p_api_name,
27 					    p_parent_interaction_id,
28 					    p_parameter_name);
29 END Validate_Parent_Interaction;
30 
31 END CS_Interaction_UTL;