PACKAGE BODY: APPS.HXC_RRG_UPLOAD_PKG

Source

1 PACKAGE BODY hxc_rrg_upload_pkg AS
2 /* $Header: hxcrrgupl.pkb 115.4 2002/06/10 13:30:45 pkm ship      $ */
3 
4 PROCEDURE load_retrieval_rule_group_row (
5           p_retrieval_rule_group_name IN VARCHAR2
6 	, p_owner		      IN VARCHAR2
7 	, p_custom_mode		      IN VARCHAR2 ) IS
8 
9 l_retrieval_rule_group_id	hxc_entity_groups.entity_group_id%TYPE;
10 l_ovn			hxc_entity_groups.object_version_number%TYPE;
11 l_owner			VARCHAR2(6);
12 
13 BEGIN
14 
15 	SELECT	retrieval_rule_group_id
16 	,	object_version_number
17 	,	DECODE( last_updated_by, 1, 'SEED', 'CUSTOM')
18 	INTO	l_retrieval_rule_group_id
19 	,	l_ovn
20 	,	l_owner
21 	FROM	hxc_retrieval_rule_groups_v
22 	WHERE	retrieval_rule_group_name	= P_RETRIEVAL_RULE_GROUP_NAME;
23 
24 -- NOTE - there is no update section since there is nothing to update
25 
26 EXCEPTION WHEN NO_DATA_FOUND
27 THEN
28 
29 	hxc_retrieval_rule_grp_api.create_retrieval_rule_grp(
30 			 p_retrieval_rule_grp_id    => l_retrieval_rule_group_id
31 	,		 p_object_version_number      => l_ovn
32 	,		 p_name                       => p_retrieval_rule_group_name );
33 
34 END load_retrieval_rule_group_row;
35 
36 END hxc_rrg_upload_pkg;