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