PACKAGE BODY: APPS.BEN_BEF_UPLOAD_PKG

Source

1 PACKAGE BODY ben_bef_upload_pkg AS
2 /* $Header: bexflupd.pkb 120.2 2006/02/13 16:44 tjesumic noship $ */
3 
4 PROCEDURE load_bef_row (
5           p_short_name		VARCHAR2
6 	, p_decd_flag		VARCHAR2
7 	, p_name        	VARCHAR2
8 	, p_frmt_mask_typ_cd	VARCHAR2
9 	, p_csr_cd              VARCHAR2
10 	, p_lvl_cd              VARCHAR2
11 	, p_alwd_in_rcd_cd	VARCHAR2
12 	, p_Group_lvl_cd	VARCHAR2 default null
13 	, p_custom_mode  	VARCHAR2 ) IS
14 
15 l_ext_fld_id            ben_ext_fld.ext_fld_id%TYPE;
16 l_ovn			ben_ext_fld.object_version_number%TYPE;
17 l_owner			VARCHAR2(6);
18 
19 l_rowid rowid;
20 
21 BEGIN
22 
23 BEGIN
24 
25 	SELECT	ext_fld_id
26 	,	object_version_number
27 	,	DECODE( NVL(last_updated_by,-1), 1, 'SEED', 'CUSTOM')
28 	INTO	l_ext_fld_id
29 	,	l_ovn
30 	,	l_owner
31 	FROM	ben_ext_fld
32 	WHERE	short_name	= P_SHORT_NAME;
33 
34 
35 --	IF ( p_custom_mode = 'FORCE' OR l_owner = 'SEED' ) THEN
36 
37 		BEN_EXT_FLD_PKG.UPDATE_ROW (
38                                  P_EXT_FLD_ID => l_ext_fld_id
39                                , P_DECD_FLAG => p_decd_flag
40                                , P_SHORT_NAME => p_short_name
41                                , P_FRMT_MASK_TYP_CD => p_frmt_mask_typ_cd
42                                , P_CSR_CD => p_csr_cd
43                                , P_LVL_CD => p_lvl_cd
44                                , P_ALWD_IN_RCD_CD => p_alwd_in_rcd_cd
45                                , P_group_lvl_cd   => p_group_lvl_cd
46                                , P_BUSINESS_GROUP_ID => NULL
47                                , P_OBJECT_VERSION_NUMBER => l_ovn+1
48                                , P_NAME => p_name
49                                , P_LAST_UPDATE_DATE => sysdate
50                                , P_LAST_UPDATED_BY => 1
51                                , P_LAST_UPDATE_LOGIN => 1 );
52 
53 --	END IF;
54 
55 EXCEPTION WHEN NO_DATA_FOUND
56 THEN
57 
58        if l_ext_fld_id is null then
59         	select ben_ext_fld_s.nextval
60         	into   l_ext_fld_id
61         	from   dual;
62        end if ;
63 
64 	ben_ext_fld_pkg.insert_row (
65                          P_ROWID => l_rowid
66                        , P_EXT_FLD_ID => l_ext_fld_id
67                        , P_DECD_FLAG => p_decd_flag
68                        , P_SHORT_NAME => p_short_name
69                        , P_FRMT_MASK_TYP_CD => p_frmt_mask_typ_cd
70                        , P_CSR_CD => p_csr_cd
71                        , P_LVL_CD => p_lvl_cd
72                        , P_ALWD_IN_RCD_CD => p_alwd_in_rcd_cd
73                        , P_group_lvl_cd   => p_group_lvl_cd
74                        , P_BUSINESS_GROUP_ID => NULL
75                        , P_OBJECT_VERSION_NUMBER => 1
76                        , P_NAME => p_name
77                        , P_CREATION_DATE => sysdate
78                        , P_CREATED_BY => 1
79                        , P_LAST_UPDATE_DATE => sysdate
80                        , P_LAST_UPDATED_BY => 1
81                        , P_LAST_UPDATE_LOGIN => 1 );
82 
83 END;
84 
85 END load_bef_row;
86 
87 END ben_bef_upload_pkg;