PACKAGE BODY: APPS.HXC_HTS_UPLOAD_PKG

Source

1 PACKAGE BODY hxc_hts_upload_pkg AS
2 /* $Header: hxchtsupl.pkb 115.7 2004/05/13 02:18:32 dragarwa noship $ */
3 
4 PROCEDURE load_time_source_row (
5           p_name                IN VARCHAR2
6 	, p_owner		IN VARCHAR2
7 	, p_custom_mode		IN VARCHAR2 ) IS
8 
9 l_time_source_id	hxc_time_sources.time_source_id%TYPE;
10 l_ovn			hxc_time_sources.object_version_number%TYPE;
11 l_owner			VARCHAR2(6);
12 
13 BEGIN
14 
15 	SELECT	time_source_id
16 	,	object_version_number
17 	,	DECODE( NVL(last_updated_by,-1), 1, 'SEED', 'CUSTOM')
18 	INTO	l_time_source_id
19 	,	l_ovn
20 	,	l_owner
21 	FROM	hxc_time_sources
22 	WHERE	name	= P_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_time_source_api.create_time_source (
30 			 p_time_source_id        => l_time_source_id
31 	,		 p_object_version_number => l_ovn
32 	,		 p_name                  => p_name );
33 
34 END load_time_source_row;
35 PROCEDURE load_time_source_row (
36           p_name                IN VARCHAR2
37 	, p_owner		IN VARCHAR2
38 	, p_custom_mode		IN VARCHAR2
39 	,p_last_update_date         IN VARCHAR2) IS
40 
41 l_time_source_id	hxc_time_sources.time_source_id%TYPE;
42 l_ovn			hxc_time_sources.object_version_number%TYPE;
43 l_owner			VARCHAR2(6);
44 
45 BEGIN
46 
47 	SELECT	time_source_id
48 	,	object_version_number
49 
50 	INTO	l_time_source_id
51 	,	l_ovn
52 
53 	FROM	hxc_time_sources
54 	WHERE	name	= P_NAME;
55 
56 -- NOTE - there is no update section since there is nothing to update
57 
58 EXCEPTION WHEN NO_DATA_FOUND
59 THEN
60 
61 	hxc_time_source_api.create_time_source (
62 			 p_time_source_id        => l_time_source_id
63 	,		 p_object_version_number => l_ovn
64 	,		 p_name                  => p_name );
65 
66 END load_time_source_row;
67 
68 END hxc_hts_upload_pkg;