[Home] [Help]
PACKAGE BODY: APPS.FND_OAM_DSCFG_MAPPED_KEYS_PKG
Source
1 PACKAGE BODY FND_OAM_DSCFG_MAPPED_KEYS_PKG as
2 /* $Header: AFOAMDSCMKEYB.pls 120.1 2005/11/23 10:55 ilawler noship $ */
3
4 ----------------------------------------
5 -- Private Body Constants
6 ----------------------------------------
7 PKG_NAME CONSTANT VARCHAR2(20) := 'DSCFG_MAPPED_KEYS_PKG.';
8
9 --stateless, only contains a table handler to insert a new directive with no properties
10
11 ----------------------------------------
12 -- Public/Private Procedures/Functions
13 ----------------------------------------
14
15 -- Public
16 PROCEDURE ADD_MAPPED_KEY(p_mapped_key_type IN VARCHAR2,
17 p_number_pk1 IN NUMBER DEFAULT NULL,
18 p_number_pk2 IN NUMBER DEFAULT NULL,
19 p_number_pk3 IN NUMBER DEFAULT NULL,
20 p_number_pk4 IN NUMBER DEFAULT NULL,
21 p_number_pk5 IN NUMBER DEFAULT NULL,
22 p_raw_pk1 IN RAW DEFAULT NULL,
23 p_raw_pk2 IN RAW DEFAULT NULL,
24 p_raw_pk3 IN RAW DEFAULT NULL,
25 p_varchar2_pk1 IN VARCHAR2 DEFAULT NULL,
26 p_varchar2_pk2 IN VARCHAR2 DEFAULT NULL,
27 p_varchar2_pk3 IN VARCHAR2 DEFAULT NULL,
28 p_varchar2_pk4 IN VARCHAR2 DEFAULT NULL,
29 p_varchar2_pk5 IN VARCHAR2 DEFAULT NULL,
30 x_mapped_key_id OUT NOCOPY NUMBER)
31 IS
32 l_ctxt VARCHAR2(60) := PKG_NAME||'ADD_MAPPED_KEY';
33
34 l_config_instance_id NUMBER;
35 l_proc_id NUMBER := NULL;
36
37 l_mapped_key_id NUMBER;
38 BEGIN
39 fnd_oam_debug.log(2, l_ctxt, 'ENTER');
40
41 --get the config_instance_id, throws error if not initialized
42 l_config_instance_id := FND_OAM_DSCFG_INSTANCES_PKG.GET_CURRENT_ID;
43
44 --try to get the import proc id
45 IF FND_OAM_DSCFG_PROCS_PKG.IS_INITIALIZED THEN
46 l_proc_id := FND_OAM_DSCFG_PROCS_PKG.GET_CURRENT_ID;
47 END IF;
48
49 --do the insert
50 INSERT INTO fnd_oam_dscfg_mapped_keys (MAPPED_KEY_ID,
51 CONFIG_INSTANCE_ID,
52 PARENT_PROC_ID,
53 MAPPED_KEY_TYPE,
54 NUMBER_PK1,
55 NUMBER_PK2,
56 NUMBER_PK3,
57 NUMBER_PK4,
58 NUMBER_PK5,
59 RAW_PK1,
60 RAW_PK2,
61 RAW_PK3,
62 VARCHAR2_PK1,
63 VARCHAR2_PK2,
64 VARCHAR2_PK3,
65 VARCHAR2_PK4,
66 VARCHAR2_PK5,
67 CREATED_BY,
68 CREATION_DATE,
69 LAST_UPDATED_BY,
70 LAST_UPDATE_DATE,
71 LAST_UPDATE_LOGIN)
72 VALUES (FND_OAM_DSCFG_MAPPED_KEYS_S.NEXTVAL,
73 l_config_instance_id,
74 l_proc_id,
75 p_mapped_key_type,
76 p_number_pk1,
77 p_number_pk2,
78 p_number_pk3,
79 p_number_pk4,
80 p_number_pk5,
81 p_raw_pk1,
82 p_raw_pk2,
83 p_raw_pk3,
84 p_varchar2_pk1,
85 p_varchar2_pk2,
86 p_varchar2_pk3,
87 p_varchar2_pk4,
88 p_varchar2_pk5,
89 FND_GLOBAL.USER_ID,
90 SYSDATE,
91 FND_GLOBAL.USER_ID,
92 SYSDATE,
93 FND_GLOBAL.USER_ID)
94 RETURNING MAPPED_KEY_ID INTO l_mapped_key_id;
95
96 x_mapped_key_id := l_mapped_key_id;
97
98 fnd_oam_debug.log(2, l_ctxt, 'EXIT');
99 EXCEPTION
100 WHEN NO_DATA_FOUND THEN
101 fnd_oam_debug.log(2, l_ctxt, 'EXIT');
102 RAISE;
103 WHEN OTHERS THEN
104 fnd_oam_debug.log(6, l_ctxt, 'Unexpected Error: (Code('||SQLCODE||'), Message("'||SQLERRM||'"))');
105 fnd_oam_debug.log(2, l_ctxt, 'EXIT');
106 RAISE;
107 END;
108
109 END FND_OAM_DSCFG_MAPPED_KEYS_PKG;