[Home] [Help]
PACKAGE BODY: APPS.AMS_IMP_CONFIG_COMPONENTS_PKG
Source
1 package body AMS_IMP_CONFIG_COMPONENTS_PKG as
2 /* $Header: amsiccpb.pls 115.4 2004/04/07 19:12:12 usingh ship $ */
3 AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
4 AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
5 AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
6
7 procedure INSERT_ROW (
8 X_ROWID in OUT NOCOPY VARCHAR2,
9 X_CONFIG_COMPONENT_ID in NUMBER,
10 X_IMPORT_TYPE in VARCHAR2,
11 X_COMPONENT_TYPE in VARCHAR2,
12 X_IMPORT_MODULE in VARCHAR2,
13 X_COMPONENT_NAME in VARCHAR2,
14 X_ACCESS_ALLOWED in VARCHAR2,
15 X_OBJECT_VERSION_NUMBER in NUMBER,
16 X_CREATION_DATE in DATE,
17 X_CREATED_BY in NUMBER,
18 X_LAST_UPDATE_DATE in DATE,
19 X_LAST_UPDATED_BY in NUMBER,
20 X_LAST_UPDATE_LOGIN in NUMBER
21 ) is
22 begin
23 insert into AMS_IMP_CONFIG_COMPONENTS (
24 CREATION_DATE,
25 IMPORT_TYPE,
26 COMPONENT_TYPE,
27 IMPORT_MODULE,
28 COMPONENT_NAME,
29 ACCESS_ALLOWED,
30 CREATED_BY,
31 LAST_UPDATE_LOGIN,
32 LAST_UPDATE_DATE,
33 CONFIG_COMPONENT_ID,
34 LAST_UPDATED_BY,
35 OBJECT_VERSION_NUMBER)
36 values
37 (
38 X_CREATION_DATE,
39 X_IMPORT_TYPE,
40 X_COMPONENT_TYPE,
41 X_IMPORT_MODULE,
42 X_COMPONENT_NAME,
43 X_ACCESS_ALLOWED,
44 X_CREATED_BY,
45 X_LAST_UPDATE_LOGIN,
46 X_LAST_UPDATE_DATE,
47 X_CONFIG_COMPONENT_ID,
48 X_LAST_UPDATED_BY,
49 X_OBJECT_VERSION_NUMBER);
50
51 end INSERT_ROW;
52
53 procedure LOCK_ROW (
54 X_CONFIG_COMPONENT_ID in NUMBER,
55 X_IMPORT_TYPE in VARCHAR2,
56 X_COMPONENT_TYPE in VARCHAR2,
57 X_IMPORT_MODULE in VARCHAR2,
58 X_COMPONENT_NAME in VARCHAR2,
59 X_ACCESS_ALLOWED in VARCHAR2,
60 X_OBJECT_VERSION_NUMBER in NUMBER
61 ) is
62 cursor c1 is select
63 IMPORT_TYPE,
64 COMPONENT_TYPE,
65 IMPORT_MODULE,
66 COMPONENT_NAME,
67 ACCESS_ALLOWED,
68 OBJECT_VERSION_NUMBER,
69 CONFIG_COMPONENT_ID
70 from AMS_IMP_CONFIG_COMPONENTS
71 where CONFIG_COMPONENT_ID = X_CONFIG_COMPONENT_ID
72 for update of CONFIG_COMPONENT_ID nowait;
73 begin
74 for tlinfo in c1 loop
75 if ( (tlinfo.CONFIG_COMPONENT_ID = X_CONFIG_COMPONENT_ID)
76 AND (tlinfo.IMPORT_TYPE = X_IMPORT_TYPE)
77 AND (tlinfo.COMPONENT_TYPE = X_COMPONENT_TYPE)
78 AND (tlinfo.IMPORT_MODULE = X_IMPORT_MODULE)
79 AND (tlinfo.COMPONENT_NAME = X_COMPONENT_NAME)
80 AND (tlinfo.ACCESS_ALLOWED = X_ACCESS_ALLOWED)
81 AND (tlinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER)
82 ) then
83 null;
84 else
85 fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
86 app_exception.raise_exception;
87 end if;
88 end loop;
89 return;
90 end LOCK_ROW;
91
92 procedure UPDATE_ROW (
93 X_CONFIG_COMPONENT_ID in NUMBER,
94 X_IMPORT_TYPE in VARCHAR2,
95 X_COMPONENT_TYPE in VARCHAR2,
96 X_IMPORT_MODULE in VARCHAR2,
97 X_COMPONENT_NAME in VARCHAR2,
98 X_ACCESS_ALLOWED in VARCHAR2,
99 X_OBJECT_VERSION_NUMBER in NUMBER,
100 X_LAST_UPDATE_DATE in DATE,
101 X_LAST_UPDATED_BY in NUMBER,
102 X_LAST_UPDATE_LOGIN in NUMBER
103 ) is
104 begin
105 update AMS_IMP_CONFIG_COMPONENTS set
106 IMPORT_TYPE = X_IMPORT_TYPE,
107 COMPONENT_TYPE = X_COMPONENT_TYPE,
108 IMPORT_MODULE = X_IMPORT_MODULE,
109 COMPONENT_NAME = X_COMPONENT_NAME,
110 ACCESS_ALLOWED = X_ACCESS_ALLOWED,
111 OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER,
112 LAST_UPDATE_DATE = X_LAST_UPDATE_DATE,
113 LAST_UPDATED_BY = X_LAST_UPDATED_BY,
114 LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
115 where CONFIG_COMPONENT_ID = X_CONFIG_COMPONENT_ID;
116
117 if (sql%notfound) then
118 raise no_data_found;
119 end if;
120 end UPDATE_ROW;
121
122 procedure DELETE_ROW (
123 X_CONFIG_COMPONENT_ID in NUMBER
124 ) is
125 begin
126 delete from AMS_IMP_CONFIG_COMPONENTS
127 where CONFIG_COMPONENT_ID = X_CONFIG_COMPONENT_ID;
128
129 if (sql%notfound) then
130 raise no_data_found;
131 end if;
132
133 end DELETE_ROW;
134
135 procedure LOAD_ROW (
136 X_CONFIG_COMPONENT_ID in NUMBER,
137 X_IMPORT_TYPE in VARCHAR2,
138 X_COMPONENT_TYPE in VARCHAR2,
139 X_IMPORT_MODULE in VARCHAR2,
140 X_COMPONENT_NAME in VARCHAR2,
141 X_ACCESS_ALLOWED in VARCHAR2,
142 X_OWNER in VARCHAR2,
143 X_CREATION_DATE in DATE,
144 X_CREATED_BY in NUMBER,
145 X_LAST_UPDATE_DATE in DATE,
146 X_LAST_UPDATED_BY in NUMBER,
147 X_LAST_UPDATE_LOGIN in NUMBER
148 ) is
149
150 l_user_id number := 0;
151 l_concom_id number;
152 l_obj_verno number := 1;
153 l_dummy_char varchar2(1);
154 l_row_id varchar2(100);
155
156 cursor c_chk_col_exists is
157 select 'x'
158 from AMS_IMP_CONFIG_COMPONENTS
159 where CONFIG_COMPONENT_ID = X_CONFIG_COMPONENT_ID;
160
161 cursor c_get_con_com_id is
162 select AMS_IMP_CONFIG_COMPONENTS_S.nextval
163 from dual;
164
165 begin
166
167 if X_OWNER = 'SEED' then
168 l_user_id := 1;
169 end if;
170 open c_chk_col_exists;
171 fetch c_chk_col_exists into l_dummy_char;
172
173 if c_chk_col_exists%notfound
174 then
175 close c_chk_col_exists;
176 if X_CONFIG_COMPONENT_ID is null
177 then
178 open c_get_con_com_id;
179 fetch c_get_con_com_id into l_concom_id;
180 close c_get_con_com_id;
181 else
182 l_concom_id := X_CONFIG_COMPONENT_ID;
183 end if;
184 AMS_IMP_CONFIG_COMPONENTS_PKG.INSERT_ROW (
185 X_ROWID => l_row_id,
186 X_CONFIG_COMPONENT_ID => X_CONFIG_COMPONENT_ID,
187 X_IMPORT_TYPE => X_IMPORT_TYPE,
188 X_COMPONENT_TYPE => X_COMPONENT_TYPE,
189 X_IMPORT_MODULE => X_IMPORT_MODULE,
190 X_COMPONENT_NAME => X_COMPONENT_NAME,
191 X_ACCESS_ALLOWED => X_ACCESS_ALLOWED,
192 X_OBJECT_VERSION_NUMBER => l_obj_verno,
193 X_CREATION_DATE => X_CREATION_DATE, -- sysdate,
194 X_CREATED_BY => l_user_id,
195 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE, -- sysdate,
196 X_LAST_UPDATED_BY => l_user_id,
197 X_LAST_UPDATE_LOGIN => 0);
198
199 else
200 close c_chk_col_exists;
201 l_concom_id := X_CONFIG_COMPONENT_ID;
202 AMS_IMP_CONFIG_COMPONENTS_PKG.UPDATE_ROW (
203 X_CONFIG_COMPONENT_ID => X_CONFIG_COMPONENT_ID,
204 X_IMPORT_TYPE => X_IMPORT_TYPE,
205 X_COMPONENT_TYPE => X_COMPONENT_TYPE,
206 X_IMPORT_MODULE => X_IMPORT_MODULE,
207 X_COMPONENT_NAME => X_COMPONENT_NAME,
208 X_ACCESS_ALLOWED => X_ACCESS_ALLOWED,
209 X_OBJECT_VERSION_NUMBER => l_obj_verno,
210 X_LAST_UPDATE_DATE => X_LAST_UPDATE_DATE, -- sysdate,
211 X_LAST_UPDATED_BY => l_user_id,
212 X_LAST_UPDATE_LOGIN => 1);
213 end if;
214 end LOAD_ROW;
215 end AMS_IMP_CONFIG_COMPONENTS_PKG;