[Home] [Help]
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;