[Home] [Help]
PACKAGE BODY: APPS.HZ_PARTY_SITES_PKG
Source
1 PACKAGE BODY HZ_PARTY_SITES_PKG AS
2 /*$Header: ARHPSTTB.pls 120.4.12010000.2 2010/03/04 11:00:29 rgokavar ship $ */
3
4 G_MISS_CONTENT_SOURCE_TYPE CONSTANT VARCHAR2(30) := 'USER_ENTERED';
5
6 PROCEDURE Insert_Row (
7 X_PARTY_SITE_ID IN OUT NOCOPY NUMBER,
8 X_PARTY_ID IN NUMBER,
9 X_LOCATION_ID IN NUMBER,
10 X_PARTY_SITE_NUMBER IN OUT NOCOPY VARCHAR2,
11 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
12 X_ATTRIBUTE1 IN VARCHAR2,
13 X_ATTRIBUTE2 IN VARCHAR2,
14 X_ATTRIBUTE3 IN VARCHAR2,
15 X_ATTRIBUTE4 IN VARCHAR2,
16 X_ATTRIBUTE5 IN VARCHAR2,
17 X_ATTRIBUTE6 IN VARCHAR2,
18 X_ATTRIBUTE7 IN VARCHAR2,
19 X_ATTRIBUTE8 IN VARCHAR2,
20 X_ATTRIBUTE9 IN VARCHAR2,
21 X_ATTRIBUTE10 IN VARCHAR2,
22 X_ATTRIBUTE11 IN VARCHAR2,
23 X_ATTRIBUTE12 IN VARCHAR2,
24 X_ATTRIBUTE13 IN VARCHAR2,
25 X_ATTRIBUTE14 IN VARCHAR2,
26 X_ATTRIBUTE15 IN VARCHAR2,
27 X_ATTRIBUTE16 IN VARCHAR2,
28 X_ATTRIBUTE17 IN VARCHAR2,
29 X_ATTRIBUTE18 IN VARCHAR2,
30 X_ATTRIBUTE19 IN VARCHAR2,
31 X_ATTRIBUTE20 IN VARCHAR2,
32 X_ORIG_SYSTEM_REFERENCE IN VARCHAR2,
33 X_LANGUAGE IN VARCHAR2,
34 X_MAILSTOP IN VARCHAR2,
35 X_IDENTIFYING_ADDRESS_FLAG IN VARCHAR2,
36 X_STATUS IN VARCHAR2,
37 X_PARTY_SITE_NAME IN VARCHAR2,
38 X_ADDRESSEE IN VARCHAR2,
39 X_OBJECT_VERSION_NUMBER IN NUMBER,
40 X_CREATED_BY_MODULE IN VARCHAR2,
41 X_APPLICATION_ID IN NUMBER,
42 X_ACTUAL_CONTENT_SOURCE IN VARCHAR2,
43 X_GLOBAL_LOCATION_NUMBER IN VARCHAR2,
44 X_DUNS_NUMBER_C IN VARCHAR2 DEFAULT NULL
45 ) IS
46
47 l_success VARCHAR2(1) := 'N';
48 l_debug_prefix VARCHAR2(30) := '';
49 BEGIN
50
51 WHILE l_success = 'N' LOOP
52 BEGIN
53 INSERT INTO HZ_PARTY_SITES (
54 PARTY_SITE_ID,
55 PARTY_SITE_NUMBER,
56 PARTY_ID,
57 LOCATION_ID,
58 LAST_UPDATE_DATE,
59 LAST_UPDATED_BY,
60 CREATION_DATE,
61 CREATED_BY,
62 LAST_UPDATE_LOGIN,
63 REQUEST_ID,
64 PROGRAM_APPLICATION_ID,
65 PROGRAM_ID,
66 PROGRAM_UPDATE_DATE,
67 ATTRIBUTE_CATEGORY,
68 ATTRIBUTE1,
69 ATTRIBUTE2,
70 ATTRIBUTE3,
71 ATTRIBUTE4,
72 ATTRIBUTE5,
73 ATTRIBUTE6,
74 ATTRIBUTE7,
75 ATTRIBUTE8,
76 ATTRIBUTE9,
77 ATTRIBUTE10,
78 ATTRIBUTE11,
79 ATTRIBUTE12,
80 ATTRIBUTE13,
81 ATTRIBUTE14,
82 ATTRIBUTE15,
83 ATTRIBUTE16,
84 ATTRIBUTE17,
85 ATTRIBUTE18,
86 ATTRIBUTE19,
87 ATTRIBUTE20,
88 ORIG_SYSTEM_REFERENCE,
89 MAILSTOP,
90 IDENTIFYING_ADDRESS_FLAG,
91 STATUS,
92 PARTY_SITE_NAME,
93 ADDRESSEE,
94 OBJECT_VERSION_NUMBER,
95 CREATED_BY_MODULE,
96 APPLICATION_ID,
97 ACTUAL_CONTENT_SOURCE,
98 GLOBAL_LOCATION_NUMBER,
99 DUNS_NUMBER_C
100 )
101 VALUES (
102 DECODE( X_PARTY_SITE_ID, FND_API.G_MISS_NUM, HZ_PARTY_SITES_S.NEXTVAL, NULL, HZ_PARTY_SITES_S.NEXTVAL, X_PARTY_SITE_ID ),
103 DECODE( X_PARTY_SITE_NUMBER, FND_API.G_MISS_CHAR, TO_CHAR( HZ_PARTY_SITE_NUMBER_S.NEXTVAL ), NULL, TO_CHAR( HZ_PARTY_SITE_NUMBER_S.NEXTVAL ), X_PARTY_SITE_NUMBER ),
104 DECODE( X_PARTY_ID, FND_API.G_MISS_NUM, NULL, X_PARTY_ID ),
105 DECODE( X_LOCATION_ID, FND_API.G_MISS_NUM, NULL, X_LOCATION_ID ),
106 HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
107 HZ_UTILITY_V2PUB.LAST_UPDATED_BY,
108 HZ_UTILITY_V2PUB.CREATION_DATE,
109 HZ_UTILITY_V2PUB.CREATED_BY,
110 HZ_UTILITY_V2PUB.LAST_UPDATE_LOGIN,
111 HZ_UTILITY_V2PUB.REQUEST_ID,
112 HZ_UTILITY_V2PUB.PROGRAM_APPLICATION_ID,
113 HZ_UTILITY_V2PUB.PROGRAM_ID,
114 HZ_UTILITY_V2PUB.PROGRAM_UPDATE_DATE,
115 DECODE( X_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE_CATEGORY ),
116 DECODE( X_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE1 ),
117 DECODE( X_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE2 ),
118 DECODE( X_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE3 ),
119 DECODE( X_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE4 ),
120 DECODE( X_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE5 ),
121 DECODE( X_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE6 ),
122 DECODE( X_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE7 ),
123 DECODE( X_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE8 ),
124 DECODE( X_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE9 ),
125 DECODE( X_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE10 ),
126 DECODE( X_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE11 ),
127 DECODE( X_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE12 ),
128 DECODE( X_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE13 ),
129 DECODE( X_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE14 ),
130 DECODE( X_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE15 ),
131 DECODE( X_ATTRIBUTE16, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE16 ),
132 DECODE( X_ATTRIBUTE17, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE17 ),
133 DECODE( X_ATTRIBUTE18, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE18 ),
134 DECODE( X_ATTRIBUTE19, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE19 ),
135 DECODE( X_ATTRIBUTE20, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE20 ),
136 DECODE( X_ORIG_SYSTEM_REFERENCE, FND_API.G_MISS_CHAR, TO_CHAR(NVL(X_PARTY_SITE_ID,HZ_PARTY_SITES_S.CURRVAL)), NULL, TO_CHAR(NVL(X_PARTY_SITE_ID,HZ_PARTY_SITES_S.CURRVAL)), X_ORIG_SYSTEM_REFERENCE ),
137 DECODE( X_MAILSTOP, FND_API.G_MISS_CHAR, NULL, X_MAILSTOP ),
138 DECODE( X_IDENTIFYING_ADDRESS_FLAG, FND_API.G_MISS_CHAR, 'N', NULL, 'N', X_IDENTIFYING_ADDRESS_FLAG ),
139 DECODE( X_STATUS, FND_API.G_MISS_CHAR, 'A', NULL, 'A', X_STATUS ),
140 DECODE( X_PARTY_SITE_NAME, FND_API.G_MISS_CHAR, NULL, X_PARTY_SITE_NAME ),
141 DECODE( X_ADDRESSEE, FND_API.G_MISS_CHAR, NULL, X_ADDRESSEE ),
142 DECODE( X_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, X_OBJECT_VERSION_NUMBER ),
143 DECODE( X_CREATED_BY_MODULE, FND_API.G_MISS_CHAR, NULL, X_CREATED_BY_MODULE ),
144 DECODE( X_APPLICATION_ID, FND_API.G_MISS_NUM, NULL, X_APPLICATION_ID ),
145 decode( X_ACTUAL_CONTENT_SOURCE,
146 FND_API.G_MISS_CHAR, G_MISS_CONTENT_SOURCE_TYPE,
147 NULL, G_MISS_CONTENT_SOURCE_TYPE, X_ACTUAL_CONTENT_SOURCE ),
148 DECODE( X_GLOBAL_LOCATION_NUMBER, FND_API.G_MISS_CHAR, NULL, X_GLOBAL_LOCATION_NUMBER),
149 DECODE( X_DUNS_NUMBER_C, FND_API.G_MISS_CHAR, NULL, X_DUNS_NUMBER_C )
150 ) RETURNING
151 PARTY_SITE_ID,
152 PARTY_SITE_NUMBER
153 INTO
154 X_PARTY_SITE_ID,
155 X_PARTY_SITE_NUMBER;
156
157 l_success := 'Y';
158
159 EXCEPTION
160 WHEN DUP_VAL_ON_INDEX THEN
161 IF INSTRB( SQLERRM, 'HZ_PARTY_SITES_U1' ) <> 0 OR
162 INSTRB( SQLERRM, 'HZ_PARTY_SITES_PK' ) <> 0
163 THEN
164 DECLARE
165 l_count NUMBER;
166 l_dummy VARCHAR2(1);
167 BEGIN
168 l_count := 1;
169 WHILE l_count > 0 LOOP
170 SELECT HZ_PARTY_SITES_S.NEXTVAL
171 INTO X_PARTY_SITE_ID FROM dual;
172 BEGIN
173 SELECT 'Y' INTO l_dummy
174 FROM HZ_PARTY_SITES
175 WHERE PARTY_SITE_ID = X_PARTY_SITE_ID;
176 l_count := 1;
177 EXCEPTION
178 WHEN NO_DATA_FOUND THEN
179 l_count := 0;
180 END;
181 END LOOP;
182 END;
183 ELSIF INSTRB( SQLERRM, 'HZ_PARTY_SITES_U2' ) <> 0 THEN
184 DECLARE
185 l_count NUMBER;
186 l_dummy VARCHAR2(1);
187 BEGIN
188 -- Debug info.
189 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
190 hz_utility_v2pub.debug(p_message=>'DUP_VAL_ON_INDEX Error on HZ_PARTY_SITES_U2 Index',
191 p_prefix=>l_debug_prefix,
192 p_msg_level=>fnd_log.level_procedure);
193 END IF;
194 -- Bug9394160 When Profile HZ: Generate Party Site Number set to NO
195 -- System should not pick Sequence value and should raise
196 -- Duplicate Party Site Number Error.
197 IF fnd_profile.value('HZ_GENERATE_PARTY_SITE_NUMBER') = 'N' THEN
198
199 -- Debug info.
200 IF fnd_log.level_procedure>=fnd_log.g_current_runtime_level THEN
201 hz_utility_v2pub.debug(p_message=>'HZ: Generate Party Site Number set to NO so raising Dup val Error.',
202 p_prefix=>l_debug_prefix,
203 p_msg_level=>fnd_log.level_procedure);
204 END IF;
205
206 FND_MESSAGE.SET_NAME('AR', 'HZ_API_DUPLICATE_COLUMN');
207 FND_MESSAGE.SET_TOKEN('COLUMN', 'party_site_number');
208 FND_MSG_PUB.ADD;
209 RAISE FND_API.G_EXC_ERROR;
210 ELSE
211 l_count := 1;
212 WHILE l_count > 0 LOOP
213 SELECT TO_CHAR( HZ_PARTY_SITE_NUMBER_S.NEXTVAL )
214 INTO X_PARTY_SITE_NUMBER FROM dual;
215 BEGIN
216 SELECT 'Y' INTO l_dummy
217 FROM HZ_PARTY_SITES
218 WHERE PARTY_SITE_NUMBER = X_PARTY_SITE_NUMBER;
219 l_count := 1;
220 EXCEPTION
221 WHEN NO_DATA_FOUND THEN
222 l_count := 0;
223 END;
224 END LOOP;
225 END IF;
226 END;
227 ELSE
228 RAISE;
229 END IF;
230
231 END;
232 END LOOP;
233
234 END Insert_Row;
235
236 PROCEDURE Update_Row (
237 X_Rowid IN OUT NOCOPY VARCHAR2,
238 X_PARTY_SITE_ID IN NUMBER,
239 X_PARTY_ID IN NUMBER,
240 X_LOCATION_ID IN NUMBER,
241 X_PARTY_SITE_NUMBER IN VARCHAR2,
242 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
243 X_ATTRIBUTE1 IN VARCHAR2,
244 X_ATTRIBUTE2 IN VARCHAR2,
245 X_ATTRIBUTE3 IN VARCHAR2,
246 X_ATTRIBUTE4 IN VARCHAR2,
247 X_ATTRIBUTE5 IN VARCHAR2,
248 X_ATTRIBUTE6 IN VARCHAR2,
249 X_ATTRIBUTE7 IN VARCHAR2,
250 X_ATTRIBUTE8 IN VARCHAR2,
251 X_ATTRIBUTE9 IN VARCHAR2,
252 X_ATTRIBUTE10 IN VARCHAR2,
253 X_ATTRIBUTE11 IN VARCHAR2,
254 X_ATTRIBUTE12 IN VARCHAR2,
255 X_ATTRIBUTE13 IN VARCHAR2,
256 X_ATTRIBUTE14 IN VARCHAR2,
257 X_ATTRIBUTE15 IN VARCHAR2,
258 X_ATTRIBUTE16 IN VARCHAR2,
259 X_ATTRIBUTE17 IN VARCHAR2,
260 X_ATTRIBUTE18 IN VARCHAR2,
261 X_ATTRIBUTE19 IN VARCHAR2,
262 X_ATTRIBUTE20 IN VARCHAR2,
263 X_ORIG_SYSTEM_REFERENCE IN VARCHAR2,
264 X_LANGUAGE IN VARCHAR2,
265 X_MAILSTOP IN VARCHAR2,
266 X_IDENTIFYING_ADDRESS_FLAG IN VARCHAR2,
267 X_STATUS IN VARCHAR2,
268 X_PARTY_SITE_NAME IN VARCHAR2,
269 X_ADDRESSEE IN VARCHAR2,
270 X_OBJECT_VERSION_NUMBER IN NUMBER,
271 X_CREATED_BY_MODULE IN VARCHAR2,
272 X_APPLICATION_ID IN NUMBER,
273 X_ACTUAL_CONTENT_SOURCE IN VARCHAR2 DEFAULT NULL,
274 X_GLOBAL_LOCATION_NUMBER IN VARCHAR2,
275 X_DUNS_NUMBER_C IN VARCHAR2 DEFAULT NULL
276 ) IS
277
278 BEGIN
279
280 UPDATE HZ_PARTY_SITES SET
281 PARTY_SITE_ID = DECODE( X_PARTY_SITE_ID, NULL, PARTY_SITE_ID, FND_API.G_MISS_NUM, NULL, X_PARTY_SITE_ID ),
282 PARTY_ID = DECODE( X_PARTY_ID, NULL, PARTY_ID, FND_API.G_MISS_NUM, NULL, X_PARTY_ID ),
283 LOCATION_ID = DECODE( X_LOCATION_ID, NULL, LOCATION_ID, FND_API.G_MISS_NUM, NULL, X_LOCATION_ID ),
284 LAST_UPDATE_DATE = HZ_UTILITY_V2PUB.LAST_UPDATE_DATE,
285 PARTY_SITE_NUMBER = DECODE( X_PARTY_SITE_NUMBER, NULL, PARTY_SITE_NUMBER, FND_API.G_MISS_CHAR, NULL, X_PARTY_SITE_NUMBER ),
286 LAST_UPDATED_BY = HZ_UTILITY_V2PUB.LAST_UPDATED_BY,
287 CREATION_DATE = CREATION_DATE,
288 CREATED_BY = CREATED_BY,
289 LAST_UPDATE_LOGIN = HZ_UTILITY_V2PUB.LAST_UPDATE_LOGIN,
290 REQUEST_ID = HZ_UTILITY_V2PUB.REQUEST_ID,
291 PROGRAM_APPLICATION_ID = HZ_UTILITY_V2PUB.PROGRAM_APPLICATION_ID,
292 PROGRAM_ID = HZ_UTILITY_V2PUB.PROGRAM_ID,
293 PROGRAM_UPDATE_DATE = HZ_UTILITY_V2PUB.PROGRAM_UPDATE_DATE,
294 ATTRIBUTE_CATEGORY = DECODE( X_ATTRIBUTE_CATEGORY, NULL, ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE_CATEGORY ),
295 ATTRIBUTE1 = DECODE( X_ATTRIBUTE1, NULL, ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE1 ),
296 ATTRIBUTE2 = DECODE( X_ATTRIBUTE2, NULL, ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE2 ),
297 ATTRIBUTE3 = DECODE( X_ATTRIBUTE3, NULL, ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE3 ),
298 ATTRIBUTE4 = DECODE( X_ATTRIBUTE4, NULL, ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE4 ),
299 ATTRIBUTE5 = DECODE( X_ATTRIBUTE5, NULL, ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE5 ),
300 ATTRIBUTE6 = DECODE( X_ATTRIBUTE6, NULL, ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE6 ),
301 ATTRIBUTE7 = DECODE( X_ATTRIBUTE7, NULL, ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE7 ),
302 ATTRIBUTE8 = DECODE( X_ATTRIBUTE8, NULL, ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE8 ),
303 ATTRIBUTE9 = DECODE( X_ATTRIBUTE9, NULL, ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE9 ),
304 ATTRIBUTE10 = DECODE( X_ATTRIBUTE10, NULL, ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE10 ),
305 ATTRIBUTE11 = DECODE( X_ATTRIBUTE11, NULL, ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE11 ),
306 ATTRIBUTE12 = DECODE( X_ATTRIBUTE12, NULL, ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE12 ),
307 ATTRIBUTE13 = DECODE( X_ATTRIBUTE13, NULL, ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE13 ),
308 ATTRIBUTE14 = DECODE( X_ATTRIBUTE14, NULL, ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE14 ),
309 ATTRIBUTE15 = DECODE( X_ATTRIBUTE15, NULL, ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE15 ),
310 ATTRIBUTE16 = DECODE( X_ATTRIBUTE16, NULL, ATTRIBUTE16, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE16 ),
311 ATTRIBUTE17 = DECODE( X_ATTRIBUTE17, NULL, ATTRIBUTE17, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE17 ),
312 ATTRIBUTE18 = DECODE( X_ATTRIBUTE18, NULL, ATTRIBUTE18, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE18 ),
313 ATTRIBUTE19 = DECODE( X_ATTRIBUTE19, NULL, ATTRIBUTE19, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE19 ),
314 ATTRIBUTE20 = DECODE( X_ATTRIBUTE20, NULL, ATTRIBUTE20, FND_API.G_MISS_CHAR, NULL, X_ATTRIBUTE20 ),
315 ORIG_SYSTEM_REFERENCE = DECODE( X_ORIG_SYSTEM_REFERENCE, NULL, ORIG_SYSTEM_REFERENCE, FND_API.G_MISS_CHAR, ORIG_SYSTEM_REFERENCE, X_ORIG_SYSTEM_REFERENCE ),
316 MAILSTOP = DECODE( X_MAILSTOP, NULL, MAILSTOP, FND_API.G_MISS_CHAR, NULL, X_MAILSTOP ),
317 IDENTIFYING_ADDRESS_FLAG = DECODE( X_IDENTIFYING_ADDRESS_FLAG, NULL, IDENTIFYING_ADDRESS_FLAG, FND_API.G_MISS_CHAR, 'N', X_IDENTIFYING_ADDRESS_FLAG ),
318 STATUS = DECODE( X_STATUS, NULL, STATUS, FND_API.G_MISS_CHAR, 'A', X_STATUS ),
319 PARTY_SITE_NAME = DECODE( X_PARTY_SITE_NAME, NULL, PARTY_SITE_NAME, FND_API.G_MISS_CHAR, NULL, X_PARTY_SITE_NAME ),
320 ADDRESSEE = DECODE( X_ADDRESSEE, NULL, ADDRESSEE, FND_API.G_MISS_CHAR, NULL, X_ADDRESSEE ),
321 OBJECT_VERSION_NUMBER = DECODE( X_OBJECT_VERSION_NUMBER, NULL, OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, X_OBJECT_VERSION_NUMBER ),
322 CREATED_BY_MODULE = DECODE( X_CREATED_BY_MODULE, NULL, CREATED_BY_MODULE, FND_API.G_MISS_CHAR, NULL, X_CREATED_BY_MODULE ),
323 APPLICATION_ID = DECODE( X_APPLICATION_ID, NULL, APPLICATION_ID, FND_API.G_MISS_NUM, NULL, X_APPLICATION_ID ),
324 ACTUAL_CONTENT_SOURCE = DECODE( x_ACTUAL_CONTENT_SOURCE, NULL, ACTUAL_CONTENT_SOURCE,
325 FND_API.G_MISS_CHAR, NULL, X_ACTUAL_CONTENT_SOURCE),
326 GLOBAL_LOCATION_NUMBER = DECODE ( X_GLOBAL_LOCATION_NUMBER, NULL, GLOBAL_LOCATION_NUMBER, FND_API.G_MISS_CHAR, NULL, X_GLOBAL_LOCATION_NUMBER),
327 DUNS_NUMBER_C = DECODE( X_DUNS_NUMBER_C, NULL, DUNS_NUMBER_C, FND_API.G_MISS_CHAR, NULL, X_DUNS_NUMBER_C )
328 WHERE ROWID = X_RowId;
329
330 IF ( SQL%NOTFOUND ) THEN
331 RAISE NO_DATA_FOUND;
332 END IF;
333
334 END Update_Row;
335
336 PROCEDURE Lock_Row (
337 X_Rowid IN OUT NOCOPY VARCHAR2,
338 X_PARTY_SITE_ID IN NUMBER,
339 X_PARTY_ID IN NUMBER,
340 X_LOCATION_ID IN NUMBER,
341 X_LAST_UPDATE_DATE IN DATE,
342 X_PARTY_SITE_NUMBER IN VARCHAR2,
343 X_LAST_UPDATED_BY IN NUMBER,
344 X_CREATION_DATE IN DATE,
345 X_CREATED_BY IN NUMBER,
346 X_LAST_UPDATE_LOGIN IN NUMBER,
347 X_REQUEST_ID IN NUMBER,
348 X_PROGRAM_APPLICATION_ID IN NUMBER,
349 X_PROGRAM_ID IN NUMBER,
350 X_PROGRAM_UPDATE_DATE IN DATE,
351 X_ATTRIBUTE_CATEGORY IN VARCHAR2,
352 X_ATTRIBUTE1 IN VARCHAR2,
353 X_ATTRIBUTE2 IN VARCHAR2,
354 X_ATTRIBUTE3 IN VARCHAR2,
355 X_ATTRIBUTE4 IN VARCHAR2,
356 X_ATTRIBUTE5 IN VARCHAR2,
357 X_ATTRIBUTE6 IN VARCHAR2,
358 X_ATTRIBUTE7 IN VARCHAR2,
359 X_ATTRIBUTE8 IN VARCHAR2,
360 X_ATTRIBUTE9 IN VARCHAR2,
361 X_ATTRIBUTE10 IN VARCHAR2,
362 X_ATTRIBUTE11 IN VARCHAR2,
363 X_ATTRIBUTE12 IN VARCHAR2,
364 X_ATTRIBUTE13 IN VARCHAR2,
365 X_ATTRIBUTE14 IN VARCHAR2,
366 X_ATTRIBUTE15 IN VARCHAR2,
367 X_ATTRIBUTE16 IN VARCHAR2,
368 X_ATTRIBUTE17 IN VARCHAR2,
369 X_ATTRIBUTE18 IN VARCHAR2,
370 X_ATTRIBUTE19 IN VARCHAR2,
371 X_ATTRIBUTE20 IN VARCHAR2,
372 X_ORIG_SYSTEM_REFERENCE IN VARCHAR2,
373 X_LANGUAGE IN VARCHAR2,
374 X_MAILSTOP IN VARCHAR2,
375 X_IDENTIFYING_ADDRESS_FLAG IN VARCHAR2,
376 X_STATUS IN VARCHAR2,
377 X_PARTY_SITE_NAME IN VARCHAR2,
378 X_ADDRESSEE IN VARCHAR2,
379 X_OBJECT_VERSION_NUMBER IN NUMBER,
380 X_CREATED_BY_MODULE IN VARCHAR2,
381 X_APPLICATION_ID IN NUMBER,
382 X_ACTUAL_CONTENT_SOURCE IN VARCHAR2 DEFAULT NULL,
383 X_GLOBAL_LOCATION_NUMBER IN VARCHAR2
384 ) IS
385
386 CURSOR C IS
387 SELECT * FROM HZ_PARTY_SITES
388 WHERE ROWID = x_Rowid
389 FOR UPDATE NOWAIT;
390 Recinfo C%ROWTYPE;
391
392 BEGIN
393
394 OPEN C;
395 FETCH C INTO Recinfo;
396 IF ( C%NOTFOUND ) THEN
397 CLOSE C;
398 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
399 APP_EXCEPTION.RAISE_EXCEPTION;
400 END IF;
401 CLOSE C;
402
403 IF (
404 ( ( Recinfo.PARTY_SITE_ID = X_PARTY_SITE_ID )
405 OR ( ( Recinfo.PARTY_SITE_ID IS NULL )
406 AND ( X_PARTY_SITE_ID IS NULL ) ) )
407 AND ( ( Recinfo.PARTY_ID = X_PARTY_ID )
408 OR ( ( Recinfo.PARTY_ID IS NULL )
409 AND ( X_PARTY_ID IS NULL ) ) )
410 AND ( ( Recinfo.LOCATION_ID = X_LOCATION_ID )
411 OR ( ( Recinfo.LOCATION_ID IS NULL )
412 AND ( X_LOCATION_ID IS NULL ) ) )
413 AND ( ( Recinfo.LAST_UPDATE_DATE = X_LAST_UPDATE_DATE )
414 OR ( ( Recinfo.LAST_UPDATE_DATE IS NULL )
415 AND ( X_LAST_UPDATE_DATE IS NULL ) ) )
416 AND ( ( Recinfo.PARTY_SITE_NUMBER = X_PARTY_SITE_NUMBER )
417 OR ( ( Recinfo.PARTY_SITE_NUMBER IS NULL )
418 AND ( X_PARTY_SITE_NUMBER IS NULL ) ) )
419 AND ( ( Recinfo.LAST_UPDATED_BY = X_LAST_UPDATED_BY )
420 OR ( ( Recinfo.LAST_UPDATED_BY IS NULL )
421 AND ( X_LAST_UPDATED_BY IS NULL ) ) )
422 AND ( ( Recinfo.CREATION_DATE = X_CREATION_DATE )
423 OR ( ( Recinfo.CREATION_DATE IS NULL )
424 AND ( X_CREATION_DATE IS NULL ) ) )
425 AND ( ( Recinfo.CREATED_BY = X_CREATED_BY )
426 OR ( ( Recinfo.CREATED_BY IS NULL )
427 AND ( X_CREATED_BY IS NULL ) ) )
428 AND ( ( Recinfo.LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN )
429 OR ( ( Recinfo.LAST_UPDATE_LOGIN IS NULL )
430 AND ( X_LAST_UPDATE_LOGIN IS NULL ) ) )
431 AND ( ( Recinfo.REQUEST_ID = X_REQUEST_ID )
432 OR ( ( Recinfo.REQUEST_ID IS NULL )
433 AND ( X_REQUEST_ID IS NULL ) ) )
434 AND ( ( Recinfo.PROGRAM_APPLICATION_ID = X_PROGRAM_APPLICATION_ID )
435 OR ( ( Recinfo.PROGRAM_APPLICATION_ID IS NULL )
436 AND ( X_PROGRAM_APPLICATION_ID IS NULL ) ) )
437 AND ( ( Recinfo.PROGRAM_ID = X_PROGRAM_ID )
438 OR ( ( Recinfo.PROGRAM_ID IS NULL )
439 AND ( X_PROGRAM_ID IS NULL ) ) )
440 AND ( ( Recinfo.PROGRAM_UPDATE_DATE = X_PROGRAM_UPDATE_DATE )
441 OR ( ( Recinfo.PROGRAM_UPDATE_DATE IS NULL )
442 AND ( X_PROGRAM_UPDATE_DATE IS NULL ) ) )
443 AND ( ( Recinfo.ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY )
444 OR ( ( Recinfo.ATTRIBUTE_CATEGORY IS NULL )
445 AND ( X_ATTRIBUTE_CATEGORY IS NULL ) ) )
446 AND ( ( Recinfo.ATTRIBUTE1 = X_ATTRIBUTE1 )
447 OR ( ( Recinfo.ATTRIBUTE1 IS NULL )
448 AND ( X_ATTRIBUTE1 IS NULL ) ) )
449 AND ( ( Recinfo.ATTRIBUTE2 = X_ATTRIBUTE2 )
450 OR ( ( Recinfo.ATTRIBUTE2 IS NULL )
451 AND ( X_ATTRIBUTE2 IS NULL ) ) )
452 AND ( ( Recinfo.ATTRIBUTE3 = X_ATTRIBUTE3 )
453 OR ( ( Recinfo.ATTRIBUTE3 IS NULL )
454 AND ( X_ATTRIBUTE3 IS NULL ) ) )
455 AND ( ( Recinfo.ATTRIBUTE4 = X_ATTRIBUTE4 )
456 OR ( ( Recinfo.ATTRIBUTE4 IS NULL )
457 AND ( X_ATTRIBUTE4 IS NULL ) ) )
458 AND ( ( Recinfo.ATTRIBUTE5 = X_ATTRIBUTE5 )
459 OR ( ( Recinfo.ATTRIBUTE5 IS NULL )
460 AND ( X_ATTRIBUTE5 IS NULL ) ) )
461 AND ( ( Recinfo.ATTRIBUTE6 = X_ATTRIBUTE6 )
462 OR ( ( Recinfo.ATTRIBUTE6 IS NULL )
463 AND ( X_ATTRIBUTE6 IS NULL ) ) )
464 AND ( ( Recinfo.ATTRIBUTE7 = X_ATTRIBUTE7 )
465 OR ( ( Recinfo.ATTRIBUTE7 IS NULL )
466 AND ( X_ATTRIBUTE7 IS NULL ) ) )
467 AND ( ( Recinfo.ATTRIBUTE8 = X_ATTRIBUTE8 )
468 OR ( ( Recinfo.ATTRIBUTE8 IS NULL )
469 AND ( X_ATTRIBUTE8 IS NULL ) ) )
470 AND ( ( Recinfo.ATTRIBUTE9 = X_ATTRIBUTE9 )
471 OR ( ( Recinfo.ATTRIBUTE9 IS NULL )
472 AND ( X_ATTRIBUTE9 IS NULL ) ) )
473 AND ( ( Recinfo.ATTRIBUTE10 = X_ATTRIBUTE10 )
474 OR ( ( Recinfo.ATTRIBUTE10 IS NULL )
475 AND ( X_ATTRIBUTE10 IS NULL ) ) )
476 AND ( ( Recinfo.ATTRIBUTE11 = X_ATTRIBUTE11 )
477 OR ( ( Recinfo.ATTRIBUTE11 IS NULL )
478 AND ( X_ATTRIBUTE11 IS NULL ) ) )
479 AND ( ( Recinfo.ATTRIBUTE12 = X_ATTRIBUTE12 )
480 OR ( ( Recinfo.ATTRIBUTE12 IS NULL )
481 AND ( X_ATTRIBUTE12 IS NULL ) ) )
482 AND ( ( Recinfo.ATTRIBUTE13 = X_ATTRIBUTE13 )
483 OR ( ( Recinfo.ATTRIBUTE13 IS NULL )
484 AND ( X_ATTRIBUTE13 IS NULL ) ) )
485 AND ( ( Recinfo.ATTRIBUTE14 = X_ATTRIBUTE14 )
486 OR ( ( Recinfo.ATTRIBUTE14 IS NULL )
487 AND ( X_ATTRIBUTE14 IS NULL ) ) )
488 AND ( ( Recinfo.ATTRIBUTE15 = X_ATTRIBUTE15 )
489 OR ( ( Recinfo.ATTRIBUTE15 IS NULL )
490 AND ( X_ATTRIBUTE15 IS NULL ) ) )
491 AND ( ( Recinfo.ATTRIBUTE16 = X_ATTRIBUTE16 )
492 OR ( ( Recinfo.ATTRIBUTE16 IS NULL )
493 AND ( X_ATTRIBUTE16 IS NULL ) ) )
494 AND ( ( Recinfo.ATTRIBUTE17 = X_ATTRIBUTE17 )
495 OR ( ( Recinfo.ATTRIBUTE17 IS NULL )
496 AND ( X_ATTRIBUTE17 IS NULL ) ) )
497 AND ( ( Recinfo.ATTRIBUTE18 = X_ATTRIBUTE18 )
498 OR ( ( Recinfo.ATTRIBUTE18 IS NULL )
499 AND ( X_ATTRIBUTE18 IS NULL ) ) )
500 AND ( ( Recinfo.ATTRIBUTE19 = X_ATTRIBUTE19 )
501 OR ( ( Recinfo.ATTRIBUTE19 IS NULL )
502 AND ( X_ATTRIBUTE19 IS NULL ) ) )
503 AND ( ( Recinfo.ATTRIBUTE20 = X_ATTRIBUTE20 )
504 OR ( ( Recinfo.ATTRIBUTE20 IS NULL )
505 AND ( X_ATTRIBUTE20 IS NULL ) ) )
506 AND ( ( Recinfo.ORIG_SYSTEM_REFERENCE = X_ORIG_SYSTEM_REFERENCE )
507 OR ( ( Recinfo.ORIG_SYSTEM_REFERENCE IS NULL )
508 AND ( X_ORIG_SYSTEM_REFERENCE IS NULL ) ) )
509 AND ( ( Recinfo.MAILSTOP = X_MAILSTOP )
510 OR ( ( Recinfo.MAILSTOP IS NULL )
511 AND ( X_MAILSTOP IS NULL ) ) )
512 AND ( ( Recinfo.IDENTIFYING_ADDRESS_FLAG = X_IDENTIFYING_ADDRESS_FLAG )
513 OR ( ( Recinfo.IDENTIFYING_ADDRESS_FLAG IS NULL )
514 AND ( X_IDENTIFYING_ADDRESS_FLAG IS NULL ) ) )
515 AND ( ( Recinfo.STATUS = X_STATUS )
516 OR ( ( Recinfo.STATUS IS NULL )
517 AND ( X_STATUS IS NULL ) ) )
518 AND ( ( Recinfo.PARTY_SITE_NAME = X_PARTY_SITE_NAME )
519 OR ( ( Recinfo.PARTY_SITE_NAME IS NULL )
520 AND ( X_PARTY_SITE_NAME IS NULL ) ) )
521 AND ( ( Recinfo.ADDRESSEE = X_ADDRESSEE )
522 OR ( ( Recinfo.ADDRESSEE IS NULL )
523 AND ( X_ADDRESSEE IS NULL ) ) )
524 AND ( ( Recinfo.OBJECT_VERSION_NUMBER = X_OBJECT_VERSION_NUMBER )
525 OR ( ( Recinfo.OBJECT_VERSION_NUMBER IS NULL )
526 AND ( X_OBJECT_VERSION_NUMBER IS NULL ) ) )
527 AND ( ( Recinfo.CREATED_BY_MODULE = X_CREATED_BY_MODULE )
528 OR ( ( Recinfo.CREATED_BY_MODULE IS NULL )
529 AND ( X_CREATED_BY_MODULE IS NULL ) ) )
530 AND ( ( Recinfo.APPLICATION_ID = X_APPLICATION_ID )
531 OR ( ( Recinfo.APPLICATION_ID IS NULL )
532 AND ( X_APPLICATION_ID IS NULL ) ) )
533 AND ( ( Recinfo.ACTUAL_CONTENT_SOURCE = X_ACTUAL_CONTENT_SOURCE )
534 OR ( ( Recinfo.ACTUAL_CONTENT_SOURCE IS NULL )
535 AND ( X_ACTUAL_CONTENT_SOURCE IS NULL ) ) )
536 AND ( ( Recinfo.GLOBAL_LOCATION_NUMBER = X_GLOBAL_LOCATION_NUMBER )
537 OR ( ( Recinfo.GLOBAL_LOCATION_NUMBER IS NULL )
538 AND ( X_GLOBAL_LOCATION_NUMBER IS NULL ) ) )
539 ) THEN
540 RETURN;
541 ELSE
542 FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_DELETED');
543 APP_EXCEPTION.RAISE_EXCEPTION;
544 END IF;
545
546 END Lock_Row;
547
548 PROCEDURE Select_Row (
549 X_PARTY_SITE_ID IN OUT NOCOPY NUMBER,
550 X_PARTY_ID OUT NOCOPY NUMBER,
551 X_LOCATION_ID OUT NOCOPY NUMBER,
552 X_PARTY_SITE_NUMBER OUT NOCOPY VARCHAR2,
553 X_ATTRIBUTE_CATEGORY OUT NOCOPY VARCHAR2,
554 X_ATTRIBUTE1 OUT NOCOPY VARCHAR2,
555 X_ATTRIBUTE2 OUT NOCOPY VARCHAR2,
556 X_ATTRIBUTE3 OUT NOCOPY VARCHAR2,
557 X_ATTRIBUTE4 OUT NOCOPY VARCHAR2,
558 X_ATTRIBUTE5 OUT NOCOPY VARCHAR2,
559 X_ATTRIBUTE6 OUT NOCOPY VARCHAR2,
560 X_ATTRIBUTE7 OUT NOCOPY VARCHAR2,
561 X_ATTRIBUTE8 OUT NOCOPY VARCHAR2,
562 X_ATTRIBUTE9 OUT NOCOPY VARCHAR2,
563 X_ATTRIBUTE10 OUT NOCOPY VARCHAR2,
564 X_ATTRIBUTE11 OUT NOCOPY VARCHAR2,
565 X_ATTRIBUTE12 OUT NOCOPY VARCHAR2,
566 X_ATTRIBUTE13 OUT NOCOPY VARCHAR2,
567 X_ATTRIBUTE14 OUT NOCOPY VARCHAR2,
568 X_ATTRIBUTE15 OUT NOCOPY VARCHAR2,
569 X_ATTRIBUTE16 OUT NOCOPY VARCHAR2,
570 X_ATTRIBUTE17 OUT NOCOPY VARCHAR2,
571 X_ATTRIBUTE18 OUT NOCOPY VARCHAR2,
572 X_ATTRIBUTE19 OUT NOCOPY VARCHAR2,
573 X_ATTRIBUTE20 OUT NOCOPY VARCHAR2,
574 X_ORIG_SYSTEM_REFERENCE OUT NOCOPY VARCHAR2,
575 X_LANGUAGE OUT NOCOPY VARCHAR2,
576 X_MAILSTOP OUT NOCOPY VARCHAR2,
577 X_IDENTIFYING_ADDRESS_FLAG OUT NOCOPY VARCHAR2,
578 X_STATUS OUT NOCOPY VARCHAR2,
579 X_PARTY_SITE_NAME OUT NOCOPY VARCHAR2,
580 X_ADDRESSEE OUT NOCOPY VARCHAR2,
581 X_CREATED_BY_MODULE OUT NOCOPY VARCHAR2,
582 X_APPLICATION_ID OUT NOCOPY NUMBER,
583 X_ACTUAL_CONTENT_SOURCE OUT NOCOPY VARCHAR2,
584 X_GLOBAL_LOCATION_NUMBER OUT NOCOPY VARCHAR2,
585 X_DUNS_NUMBER_C OUT NOCOPY VARCHAR2
586 ) IS
587
588 BEGIN
589
590 SELECT
591 NVL( PARTY_SITE_ID, FND_API.G_MISS_NUM ),
592 NVL( PARTY_ID, FND_API.G_MISS_NUM ),
593 NVL( LOCATION_ID, FND_API.G_MISS_NUM ),
594 NVL( PARTY_SITE_NUMBER, FND_API.G_MISS_CHAR ),
595 NVL( ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR ),
596 NVL( ATTRIBUTE1, FND_API.G_MISS_CHAR ),
597 NVL( ATTRIBUTE2, FND_API.G_MISS_CHAR ),
598 NVL( ATTRIBUTE3, FND_API.G_MISS_CHAR ),
599 NVL( ATTRIBUTE4, FND_API.G_MISS_CHAR ),
600 NVL( ATTRIBUTE5, FND_API.G_MISS_CHAR ),
601 NVL( ATTRIBUTE6, FND_API.G_MISS_CHAR ),
602 NVL( ATTRIBUTE7, FND_API.G_MISS_CHAR ),
603 NVL( ATTRIBUTE8, FND_API.G_MISS_CHAR ),
604 NVL( ATTRIBUTE9, FND_API.G_MISS_CHAR ),
605 NVL( ATTRIBUTE10, FND_API.G_MISS_CHAR ),
606 NVL( ATTRIBUTE11, FND_API.G_MISS_CHAR ),
607 NVL( ATTRIBUTE12, FND_API.G_MISS_CHAR ),
608 NVL( ATTRIBUTE13, FND_API.G_MISS_CHAR ),
609 NVL( ATTRIBUTE14, FND_API.G_MISS_CHAR ),
610 NVL( ATTRIBUTE15, FND_API.G_MISS_CHAR ),
611 NVL( ATTRIBUTE16, FND_API.G_MISS_CHAR ),
612 NVL( ATTRIBUTE17, FND_API.G_MISS_CHAR ),
613 NVL( ATTRIBUTE18, FND_API.G_MISS_CHAR ),
614 NVL( ATTRIBUTE19, FND_API.G_MISS_CHAR ),
615 NVL( ATTRIBUTE20, FND_API.G_MISS_CHAR ),
616 NVL( ORIG_SYSTEM_REFERENCE, FND_API.G_MISS_CHAR ),
617 NVL( LANGUAGE, FND_API.G_MISS_CHAR ),
618 NVL( MAILSTOP, FND_API.G_MISS_CHAR ),
619 NVL( IDENTIFYING_ADDRESS_FLAG, FND_API.G_MISS_CHAR ),
620 NVL( STATUS, FND_API.G_MISS_CHAR ),
621 NVL( PARTY_SITE_NAME, FND_API.G_MISS_CHAR ),
622 NVL( ADDRESSEE, FND_API.G_MISS_CHAR ),
623 NVL( CREATED_BY_MODULE, FND_API.G_MISS_CHAR ),
624 NVL( APPLICATION_ID, FND_API.G_MISS_NUM ),
625 NVL( ACTUAL_CONTENT_SOURCE, FND_API.G_MISS_CHAR ),
626 NVL( GLOBAL_LOCATION_NUMBER, FND_API.G_MISS_CHAR ),
627 NVL( DUNS_NUMBER_C, FND_API.G_MISS_CHAR )
628 INTO
629 X_PARTY_SITE_ID,
630 X_PARTY_ID,
631 X_LOCATION_ID,
632 X_PARTY_SITE_NUMBER,
633 X_ATTRIBUTE_CATEGORY,
634 X_ATTRIBUTE1,
635 X_ATTRIBUTE2,
636 X_ATTRIBUTE3,
637 X_ATTRIBUTE4,
638 X_ATTRIBUTE5,
639 X_ATTRIBUTE6,
640 X_ATTRIBUTE7,
641 X_ATTRIBUTE8,
642 X_ATTRIBUTE9,
643 X_ATTRIBUTE10,
644 X_ATTRIBUTE11,
645 X_ATTRIBUTE12,
646 X_ATTRIBUTE13,
647 X_ATTRIBUTE14,
648 X_ATTRIBUTE15,
649 X_ATTRIBUTE16,
650 X_ATTRIBUTE17,
651 X_ATTRIBUTE18,
652 X_ATTRIBUTE19,
653 X_ATTRIBUTE20,
654 X_ORIG_SYSTEM_REFERENCE,
655 X_LANGUAGE,
656 X_MAILSTOP,
657 X_IDENTIFYING_ADDRESS_FLAG,
658 X_STATUS,
659 X_PARTY_SITE_NAME,
660 X_ADDRESSEE,
661 X_CREATED_BY_MODULE,
662 X_APPLICATION_ID,
663 X_ACTUAL_CONTENT_SOURCE,
664 X_GLOBAL_LOCATION_NUMBER,
665 X_DUNS_NUMBER_C
666 FROM HZ_PARTY_SITES
667 WHERE PARTY_SITE_ID = X_PARTY_SITE_ID;
668
669 EXCEPTION
670 WHEN NO_DATA_FOUND THEN
671 FND_MESSAGE.SET_NAME( 'AR', 'HZ_API_NO_RECORD' );
672 FND_MESSAGE.SET_TOKEN( 'RECORD', 'party_site_rec');
673 FND_MESSAGE.SET_TOKEN( 'VALUE', TO_CHAR( X_PARTY_SITE_ID ) );
674 FND_MSG_PUB.ADD;
675 RAISE FND_API.G_EXC_ERROR;
676
677 END Select_Row;
678
679 PROCEDURE Delete_Row (
680 X_PARTY_SITE_ID IN NUMBER
681 ) IS
682
683 BEGIN
684
685 DELETE FROM HZ_PARTY_SITES
686 WHERE PARTY_SITE_ID = X_PARTY_SITE_ID;
687
688 IF ( SQL%NOTFOUND ) THEN
689 RAISE NO_DATA_FOUND;
690 END IF;
691
692 END Delete_Row;
693
694 END HZ_PARTY_SITES_PKG;