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;