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