[Home] [Help]
PACKAGE BODY: APPS.AMS_IMP_XML_ELEMENTS_PKG
Source
1 PACKAGE BODY AMS_IMP_XML_ELEMENTS_PKG as
2 /* $Header: amslxelb.pls 115.6 2002/11/14 21:56:56 jieli noship $ */
3 -- ===============================================================
4 -- Start of Comments
5 -- Package name
6 -- AMS_IMP_XML_ELEMENTS_PKG
7 -- Purpose
8 -- Manage XML Elements.
9 --
10 -- History
11 -- 05/13/2002 DMVINCEN Created.
12 -- 05/21/2002 DMVINCEN Removed created_by and creation_date from update.
13 -- 05/21/2002 DMVINCEN Alway increment object version number on update.
14 --
15 -- NOTE
16 --
17 -- End of Comments
18 -- ===============================================================
19
20
21 G_PKG_NAME CONSTANT VARCHAR2(30):= 'AMS_IMP_XML_ELEMENTS_PKG';
22 G_FILE_NAME CONSTANT VARCHAR2(12) := 'amslxelb.pls';
23
24
25 ----------------------------------------------------------
26 ---- MEDIA ----
27 ----------------------------------------------------------
28
29 -- ========================================================
30 --
31 -- NAME
32 -- createInsertBody
33 --
34 -- PURPOSE
35 --
36 -- NOTES
37 --
38 -- HISTORY
39 --
40 -- ========================================================
41 AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
42 AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
43 AMS_DEBUG_MEDIUM_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
44
45 PROCEDURE Insert_Row(
46 px_imp_xml_element_id IN OUT NOCOPY NUMBER,
47 p_last_updated_by NUMBER,
48 px_object_version_number IN OUT NOCOPY NUMBER,
49 p_created_by NUMBER,
50 p_last_update_login NUMBER,
51 p_last_update_date DATE,
52 p_creation_date DATE,
53 p_imp_xml_document_id NUMBER,
54 p_order_initial NUMBER,
55 p_order_final NUMBER,
56 p_column_name VARCHAR2,
57 p_data VARCHAR2,
58 p_num_attr NUMBER,
59 p_data_type VARCHAR2,
60 p_load_status VARCHAR2,
61 p_error_text VARCHAR2)
62
63 IS
64 x_rowid VARCHAR2(30);
65
66
67 BEGIN
68
69
70 px_object_version_number := 1;
71
72
73 INSERT INTO AMS_IMP_XML_ELEMENTS(
74 imp_xml_element_id,
75 last_updated_by,
76 object_version_number,
77 created_by,
78 last_update_login,
79 last_update_date,
80 creation_date,
81 imp_xml_document_id,
82 order_initial,
83 order_final,
84 column_name,
85 data,
86 num_attr,
87 data_type,
88 load_status,
89 error_text
90 ) VALUES (
91 DECODE( px_imp_xml_element_id, FND_API.g_miss_num, NULL, px_imp_xml_element_id),
92 DECODE( p_last_updated_by, FND_API.g_miss_num, NULL, p_last_updated_by),
93 DECODE( px_object_version_number, FND_API.g_miss_num, NULL, px_object_version_number),
94 DECODE( p_created_by, FND_API.g_miss_num, NULL, p_created_by),
95 DECODE( p_last_update_login, FND_API.g_miss_num, NULL, p_last_update_login),
96 DECODE( p_last_update_date, FND_API.g_miss_date, NULL, p_last_update_date),
97 DECODE( p_creation_date, FND_API.g_miss_date, NULL, p_creation_date),
98 DECODE( p_imp_xml_document_id, FND_API.g_miss_num, NULL, p_imp_xml_document_id),
99 DECODE( p_order_initial, FND_API.g_miss_num, NULL, p_order_initial),
100 DECODE( p_order_final, FND_API.g_miss_num, NULL, p_order_final),
101 DECODE( p_column_name, FND_API.g_miss_char, NULL, p_column_name),
102 DECODE( p_data, FND_API.g_miss_char, NULL, p_data),
103 DECODE( p_num_attr, FND_API.g_miss_num, NULL, p_num_attr),
104 DECODE( p_data_type, FND_API.g_miss_char, NULL, p_data_type),
105 DECODE( p_load_status, FND_API.g_miss_char, NULL, p_load_status),
106 DECODE( p_error_text, FND_API.g_miss_char, NULL, p_error_text));
107 END Insert_Row;
108
109
110 ----------------------------------------------------------
111 ---- MEDIA ----
112 ----------------------------------------------------------
113
114 -- ========================================================
115 --
116 -- NAME
117 -- createUpdateBody
118 --
119 -- PURPOSE
120 --
121 -- NOTES
122 --
123 -- HISTORY
124 --
125 -- ========================================================
126 PROCEDURE Update_Row(
127 p_imp_xml_element_id NUMBER,
128 p_last_updated_by NUMBER,
129 p_object_version_number NUMBER,
130 -- p_created_by NUMBER,
131 p_last_update_login NUMBER,
132 p_last_update_date DATE,
133 -- p_creation_date DATE,
134 p_imp_xml_document_id NUMBER,
135 p_order_initial NUMBER,
136 p_order_final NUMBER,
137 p_column_name VARCHAR2,
138 p_data VARCHAR2,
139 p_num_attr NUMBER,
140 p_data_type VARCHAR2,
141 p_load_status VARCHAR2,
142 p_error_text VARCHAR2)
143
144 IS
145 BEGIN
146 Update AMS_IMP_XML_ELEMENTS
147 SET
148 imp_xml_element_id = DECODE( p_imp_xml_element_id, FND_API.g_miss_num, imp_xml_element_id, p_imp_xml_element_id),
149 last_updated_by = DECODE( p_last_updated_by, FND_API.g_miss_num, last_updated_by, p_last_updated_by),
150 object_version_number = object_version_number + 1, --DECODE( p_object_version_number, FND_API.g_miss_num, object_version_number, p_object_version_number),
151 -- created_by = DECODE( p_created_by, FND_API.g_miss_num, created_by, p_created_by),
152 last_update_login = DECODE( p_last_update_login, FND_API.g_miss_num, last_update_login, p_last_update_login),
153 last_update_date = DECODE( p_last_update_date, FND_API.g_miss_date, last_update_date, p_last_update_date),
154 -- creation_date = DECODE( p_creation_date, FND_API.g_miss_date, creation_date, p_creation_date),
155 imp_xml_document_id = DECODE( p_imp_xml_document_id, FND_API.g_miss_num, imp_xml_document_id, p_imp_xml_document_id),
156 order_initial = DECODE( p_order_initial, FND_API.g_miss_num, order_initial, p_order_initial),
157 order_final = DECODE( p_order_final, FND_API.g_miss_num, order_final, p_order_final),
158 column_name = DECODE( p_column_name, FND_API.g_miss_char, column_name, p_column_name),
159 data = DECODE( p_data, FND_API.g_miss_char, data, p_data),
160 num_attr = DECODE( p_num_attr, FND_API.g_miss_num, num_attr, p_num_attr),
161 data_type = DECODE( p_data_type, FND_API.g_miss_char, data_type, p_data_type),
162 load_status = DECODE( p_load_status, FND_API.g_miss_char, load_status, p_load_status),
163 error_text = DECODE( p_error_text, FND_API.g_miss_char, error_text, p_error_text)
164 WHERE IMP_XML_ELEMENT_ID = p_IMP_XML_ELEMENT_ID
165 AND object_version_number = p_object_version_number;
166
167 IF (SQL%NOTFOUND) THEN
168 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
169 END IF;
170 END Update_Row;
171
172
173 ----------------------------------------------------------
174 ---- MEDIA ----
175 ----------------------------------------------------------
176
177 -- ========================================================
178 --
179 -- NAME
180 -- createDeleteBody
181 --
182 -- PURPOSE
183 --
184 -- NOTES
185 --
186 -- HISTORY
187 --
188 -- ========================================================
189 PROCEDURE Delete_Row(
190 p_IMP_XML_ELEMENT_ID NUMBER)
191 IS
192 BEGIN
193 DELETE FROM AMS_IMP_XML_ELEMENTS
194 WHERE IMP_XML_ELEMENT_ID = p_IMP_XML_ELEMENT_ID;
195 If (SQL%NOTFOUND) then
196 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
197 End If;
198 END Delete_Row ;
199
200
201
202 ----------------------------------------------------------
203 ---- MEDIA ----
204 ----------------------------------------------------------
205
206 -- ========================================================
207 --
208 -- NAME
209 -- createLockBody
210 --
211 -- PURPOSE
212 --
213 -- NOTES
214 --
215 -- HISTORY
216 --
217 -- ========================================================
218 PROCEDURE Lock_Row(
219 p_imp_xml_element_id NUMBER,
220 p_last_updated_by NUMBER,
221 p_object_version_number NUMBER,
222 p_created_by NUMBER,
223 p_last_update_login NUMBER,
224 p_last_update_date DATE,
225 p_creation_date DATE,
226 p_imp_xml_document_id NUMBER,
227 p_order_initial NUMBER,
228 p_order_final NUMBER,
229 p_column_name VARCHAR2,
230 p_data VARCHAR2,
231 p_num_attr NUMBER,
232 p_data_type VARCHAR2,
233 p_load_status VARCHAR2,
234 p_error_text VARCHAR2)
235
236 IS
237 CURSOR C IS
238 SELECT *
239 FROM AMS_IMP_XML_ELEMENTS
240 WHERE IMP_XML_ELEMENT_ID = p_IMP_XML_ELEMENT_ID
241 FOR UPDATE of IMP_XML_ELEMENT_ID NOWAIT;
242 Recinfo C%ROWTYPE;
243 BEGIN
244 OPEN c;
245 FETCH c INTO Recinfo;
246 If (c%NOTFOUND) then
247 CLOSE c;
248 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
249 APP_EXCEPTION.RAISE_EXCEPTION;
250 END IF;
251 CLOSE C;
252 IF (
253 ( Recinfo.imp_xml_element_id = p_imp_xml_element_id)
254 AND ( ( Recinfo.last_updated_by = p_last_updated_by)
255 OR ( ( Recinfo.last_updated_by IS NULL )
256 AND ( p_last_updated_by IS NULL )))
257 AND ( ( Recinfo.object_version_number = p_object_version_number)
258 OR ( ( Recinfo.object_version_number IS NULL )
259 AND ( p_object_version_number IS NULL )))
260 AND ( ( Recinfo.created_by = p_created_by)
261 OR ( ( Recinfo.created_by IS NULL )
262 AND ( p_created_by IS NULL )))
263 AND ( ( Recinfo.last_update_login = p_last_update_login)
264 OR ( ( Recinfo.last_update_login IS NULL )
265 AND ( p_last_update_login IS NULL )))
266 AND ( ( Recinfo.last_update_date = p_last_update_date)
267 OR ( ( Recinfo.last_update_date IS NULL )
268 AND ( p_last_update_date IS NULL )))
269 AND ( ( Recinfo.creation_date = p_creation_date)
270 OR ( ( Recinfo.creation_date IS NULL )
271 AND ( p_creation_date IS NULL )))
272 AND ( ( Recinfo.imp_xml_document_id = p_imp_xml_document_id)
273 OR ( ( Recinfo.imp_xml_document_id IS NULL )
274 AND ( p_imp_xml_document_id IS NULL )))
275 AND ( ( Recinfo.order_initial = p_order_initial)
276 OR ( ( Recinfo.order_initial IS NULL )
277 AND ( p_order_initial IS NULL )))
278 AND ( ( Recinfo.order_final = p_order_final)
279 OR ( ( Recinfo.order_final IS NULL )
280 AND ( p_order_final IS NULL )))
284 AND ( ( Recinfo.data = p_data)
281 AND ( ( Recinfo.column_name = p_column_name)
282 OR ( ( Recinfo.column_name IS NULL )
283 AND ( p_column_name IS NULL )))
285 OR ( ( Recinfo.data IS NULL )
286 AND ( p_data IS NULL )))
287 AND ( ( Recinfo.num_attr = p_num_attr)
288 OR ( ( Recinfo.num_attr IS NULL )
289 AND ( p_num_attr IS NULL )))
290 AND ( ( Recinfo.data_type = p_data_type)
291 OR ( ( Recinfo.data_type IS NULL )
292 AND ( p_data_type IS NULL )))
293 AND ( ( Recinfo.load_status = p_load_status)
294 OR ( ( Recinfo.load_status IS NULL )
295 AND ( p_load_status IS NULL )))
296 AND ( ( Recinfo.error_text = p_error_text)
297 OR ( ( Recinfo.error_text IS NULL )
298 AND ( p_error_text IS NULL )))
299 ) THEN
300 RETURN;
301 ELSE
302 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
303 APP_EXCEPTION.RAISE_EXCEPTION;
304 END IF;
305 END Lock_Row;
306
307 END AMS_IMP_XML_ELEMENTS_PKG;