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