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