[Home] [Help]
PACKAGE BODY: APPS.HXC_HAS_UPLOAD_PKG
Source
1 PACKAGE BODY hxc_has_upload_pkg AS
2 /* $Header: hxchasupl.pkb 115.9 2002/06/10 01:19:34 pkm ship $ */
3
4 PROCEDURE load_has_row (
5 p_name VARCHAR2
6 , p_legislation_code VARCHAR2
7 , p_description VARCHAR2
8 , p_owner VARCHAR2
9 , p_custom_mode VARCHAR2 ) IS
10
11 l_approval_style_id hxc_approval_styles.approval_style_id%TYPE;
12 l_ovn hxc_approval_styles.object_version_number%TYPE := NULL;
13 l_owner VARCHAR2(6);
14
15
16 BEGIN
17
18 SELECT approval_style_id
19 , object_version_number
20 , DECODE( NVL(last_updated_by,-1), 1, 'SEED', 'CUSTOM')
21 INTO l_approval_style_id
22 , l_ovn
23 , l_owner
24 FROM hxc_approval_styles
25 WHERE name = P_NAME;
26
27 IF ( p_custom_mode = 'FORCE' OR l_owner = 'SEED' )
28 THEN
29
30 hxc_approval_styles_api.update_approval_styles (
31 p_approval_style_id => l_approval_style_id
32 , p_name => p_name
33 , p_business_group_id => null
34 , p_legislation_code => p_legislation_code
35 , p_description => p_description
36 , p_object_version_number => l_ovn );
37
38 END IF;
39
40 EXCEPTION WHEN NO_DATA_FOUND
41 THEN
42
43 hxc_approval_styles_api.create_approval_styles (
44 p_name => p_name
45 , p_legislation_code => p_legislation_code
46 , p_description => p_description
47 , p_approval_style_id => l_approval_style_id
48 , p_object_version_number => l_ovn );
49
50 END load_has_row;
51
52 END hxc_has_upload_pkg;