126: CLOSE C;
127: EXCEPTION
128: WHEN OTHERS THEN
129: IF (SQLCODE <> -20001) THEN
130: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
131: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
132: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
133: FND_MESSAGE.SET_TOKEN('PARAMETERS', ' txn_nature_id = '||TO_CHAR(X_txn_nature_id)||
134: ' tax_categ_attr_val_id = '||TO_CHAR(X_tax_categ_attr_val_id)||
127: EXCEPTION
128: WHEN OTHERS THEN
129: IF (SQLCODE <> -20001) THEN
130: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
131: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
132: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
133: FND_MESSAGE.SET_TOKEN('PARAMETERS', ' txn_nature_id = '||TO_CHAR(X_txn_nature_id)||
134: ' tax_categ_attr_val_id = '||TO_CHAR(X_tax_categ_attr_val_id)||
135: ' start_date_active = '||TO_CHAR(X_start_date_active,'YYYY/MM/DD')||
128: WHEN OTHERS THEN
129: IF (SQLCODE <> -20001) THEN
130: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
131: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
132: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
133: FND_MESSAGE.SET_TOKEN('PARAMETERS', ' txn_nature_id = '||TO_CHAR(X_txn_nature_id)||
134: ' tax_categ_attr_val_id = '||TO_CHAR(X_tax_categ_attr_val_id)||
135: ' start_date_active = '||TO_CHAR(X_start_date_active,'YYYY/MM/DD')||
136: ' end_date_active = '|| TO_CHAR(X_end_date_active,'YYYY/MM/DD'));
129: IF (SQLCODE <> -20001) THEN
130: FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
131: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
132: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
133: FND_MESSAGE.SET_TOKEN('PARAMETERS', ' txn_nature_id = '||TO_CHAR(X_txn_nature_id)||
134: ' tax_categ_attr_val_id = '||TO_CHAR(X_tax_categ_attr_val_id)||
135: ' start_date_active = '||TO_CHAR(X_start_date_active,'YYYY/MM/DD')||
136: ' end_date_active = '|| TO_CHAR(X_end_date_active,'YYYY/MM/DD'));
137: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
133: FND_MESSAGE.SET_TOKEN('PARAMETERS', ' txn_nature_id = '||TO_CHAR(X_txn_nature_id)||
134: ' tax_categ_attr_val_id = '||TO_CHAR(X_tax_categ_attr_val_id)||
135: ' start_date_active = '||TO_CHAR(X_start_date_active,'YYYY/MM/DD')||
136: ' end_date_active = '|| TO_CHAR(X_end_date_active,'YYYY/MM/DD'));
137: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
138: END IF ;
139: APP_EXCEPTION.RAISE_EXCEPTION;
140: END Insert_row;
141:
227: FETCH c INTO recinfo;
228: IF (c%notfound) THEN
229: debug_info := 'Close cursor C - DATA NOTFOUND';
230: CLOSE c;
231: FND_MESSAGE.Set_name('FND', 'FORM_RECORD_DELETED');
232: APP_EXCEPTION.Raise_Exception;
233: END IF;
234: debug_info := 'Close cursor C';
235: CLOSE c;
314: ((Recinfo.attribute15 IS NULL) AND
315: (X_attribute15 IS NULL)))) THEN
316: return;
317: ELSE
318: FND_MESSAGE.SET_NAME('FND', 'FORM_RECORD_CHANGED');
319: APP_EXCEPTION.Raise_exception;
320: END IF;
321:
322: EXCEPTION
322: EXCEPTION
323: WHEN OTHERS THEN
324: IF (SQLCODE <> -20001) THEN
325: IF (SQLCODE = -54) THEN
326: FND_MESSAGE.SET_NAME('AR', 'AR_RESOURCE_BUSY');
327: ELSE
328: FND_MESSAGE.SET_NAME('AR', 'AR_DEBUG');
329: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
330: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
324: IF (SQLCODE <> -20001) THEN
325: IF (SQLCODE = -54) THEN
326: FND_MESSAGE.SET_NAME('AR', 'AR_RESOURCE_BUSY');
327: ELSE
328: FND_MESSAGE.SET_NAME('AR', 'AR_DEBUG');
329: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
330: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
331: FND_MESSAGE.SET_TOKEN('PARAMETERS',
332: ' txn_nature_id = '||TO_CHAR(X_txn_nature_id)||
325: IF (SQLCODE = -54) THEN
326: FND_MESSAGE.SET_NAME('AR', 'AR_RESOURCE_BUSY');
327: ELSE
328: FND_MESSAGE.SET_NAME('AR', 'AR_DEBUG');
329: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
330: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
331: FND_MESSAGE.SET_TOKEN('PARAMETERS',
332: ' txn_nature_id = '||TO_CHAR(X_txn_nature_id)||
333: ' tax_categ_attr_val_id = '||TO_CHAR(X_tax_categ_attr_val_id)||
326: FND_MESSAGE.SET_NAME('AR', 'AR_RESOURCE_BUSY');
327: ELSE
328: FND_MESSAGE.SET_NAME('AR', 'AR_DEBUG');
329: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
330: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
331: FND_MESSAGE.SET_TOKEN('PARAMETERS',
332: ' txn_nature_id = '||TO_CHAR(X_txn_nature_id)||
333: ' tax_categ_attr_val_id = '||TO_CHAR(X_tax_categ_attr_val_id)||
334: ' start_date_active = '||TO_CHAR(X_start_date_active,'YYYY/MM/DD')||
327: ELSE
328: FND_MESSAGE.SET_NAME('AR', 'AR_DEBUG');
329: FND_MESSAGE.SET_TOKEN('ERROR', SQLERRM);
330: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
331: FND_MESSAGE.SET_TOKEN('PARAMETERS',
332: ' txn_nature_id = '||TO_CHAR(X_txn_nature_id)||
333: ' tax_categ_attr_val_id = '||TO_CHAR(X_tax_categ_attr_val_id)||
334: ' start_date_active = '||TO_CHAR(X_start_date_active,'YYYY/MM/DD')||
335: ' end_date_active = '|| TO_CHAR(X_end_date_active,'YYYY/MM/DD'));
332: ' txn_nature_id = '||TO_CHAR(X_txn_nature_id)||
333: ' tax_categ_attr_val_id = '||TO_CHAR(X_tax_categ_attr_val_id)||
334: ' start_date_active = '||TO_CHAR(X_start_date_active,'YYYY/MM/DD')||
335: ' end_date_active = '|| TO_CHAR(X_end_date_active,'YYYY/MM/DD'));
336: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
337: END IF;
338: END IF;
339: APP_EXCEPTION.RAISE_EXCEPTION;
340: END lock_row;
422:
423: EXCEPTION WHEN OTHERS THEN
424: IF (SQLCODE <> -20001) THEN
425: IF (SQLCODE = -54) THEN
426: FND_MESSAGE.SET_NAME('AR', 'AR_RESOURCE_BUSY');
427: ELSE
428: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
429: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
430: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
424: IF (SQLCODE <> -20001) THEN
425: IF (SQLCODE = -54) THEN
426: FND_MESSAGE.SET_NAME('AR', 'AR_RESOURCE_BUSY');
427: ELSE
428: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
429: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
430: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
431: FND_MESSAGE.SET_TOKEN('PARAMETERS','Rowid = '||X_Rowid);
432: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
425: IF (SQLCODE = -54) THEN
426: FND_MESSAGE.SET_NAME('AR', 'AR_RESOURCE_BUSY');
427: ELSE
428: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
429: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
430: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
431: FND_MESSAGE.SET_TOKEN('PARAMETERS','Rowid = '||X_Rowid);
432: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
433: END IF;
426: FND_MESSAGE.SET_NAME('AR', 'AR_RESOURCE_BUSY');
427: ELSE
428: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
429: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
430: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
431: FND_MESSAGE.SET_TOKEN('PARAMETERS','Rowid = '||X_Rowid);
432: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
433: END IF;
434: END IF;
427: ELSE
428: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
429: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
430: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
431: FND_MESSAGE.SET_TOKEN('PARAMETERS','Rowid = '||X_Rowid);
432: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
433: END IF;
434: END IF;
435: APP_EXCEPTION.RAISE_EXCEPTION;
428: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
429: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
430: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
431: FND_MESSAGE.SET_TOKEN('PARAMETERS','Rowid = '||X_Rowid);
432: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
433: END IF;
434: END IF;
435: APP_EXCEPTION.RAISE_EXCEPTION;
436: END Update_Row;
454: END IF;
455: EXCEPTION WHEN OTHERS THEN
456: IF (SQLCODE <> -20001) THEN
457: IF (SQLCODE = -54) THEN
458: FND_MESSAGE.SET_NAME('AR', 'AR_RESOURCE_BUSY');
459: ELSE
460: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
461: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
462: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
456: IF (SQLCODE <> -20001) THEN
457: IF (SQLCODE = -54) THEN
458: FND_MESSAGE.SET_NAME('AR', 'AR_RESOURCE_BUSY');
459: ELSE
460: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
461: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
462: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
463: FND_MESSAGE.SET_TOKEN('PARAMETERS','Rowid = '||X_Rowid);
464: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
457: IF (SQLCODE = -54) THEN
458: FND_MESSAGE.SET_NAME('AR', 'AR_RESOURCE_BUSY');
459: ELSE
460: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
461: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
462: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
463: FND_MESSAGE.SET_TOKEN('PARAMETERS','Rowid = '||X_Rowid);
464: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
465: END IF;
458: FND_MESSAGE.SET_NAME('AR', 'AR_RESOURCE_BUSY');
459: ELSE
460: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
461: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
462: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
463: FND_MESSAGE.SET_TOKEN('PARAMETERS','Rowid = '||X_Rowid);
464: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
465: END IF;
466: END IF;
459: ELSE
460: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
461: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
462: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
463: FND_MESSAGE.SET_TOKEN('PARAMETERS','Rowid = '||X_Rowid);
464: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
465: END IF;
466: END IF;
467: APP_EXCEPTION.RAISE_EXCEPTION;
460: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
461: FND_MESSAGE.SET_TOKEN('ERROR','SQLERRM');
462: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
463: FND_MESSAGE.SET_TOKEN('PARAMETERS','Rowid = '||X_Rowid);
464: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
465: END IF;
466: END IF;
467: APP_EXCEPTION.RAISE_EXCEPTION;
468: END delete_row;
492: AND org_id = X_org_id
493: AND ((X_rowid IS NULL) OR (rowid <> X_rowid));
494:
495: IF (l_dummy >=1) THEN
496: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
497: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
498: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
499: FND_MESSAGE.SET_TOKEN('PARAMETERS',
500: ' tax_categ_attr_val_id = '||TO_CHAR(X_tax_categ_attr_val_id)||
493: AND ((X_rowid IS NULL) OR (rowid <> X_rowid));
494:
495: IF (l_dummy >=1) THEN
496: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
497: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
498: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
499: FND_MESSAGE.SET_TOKEN('PARAMETERS',
500: ' tax_categ_attr_val_id = '||TO_CHAR(X_tax_categ_attr_val_id)||
501: ' end_date_active = '|| TO_CHAR(X_end_date_active,'YYYY/MM/DD')||
494:
495: IF (l_dummy >=1) THEN
496: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
497: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
498: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
499: FND_MESSAGE.SET_TOKEN('PARAMETERS',
500: ' tax_categ_attr_val_id = '||TO_CHAR(X_tax_categ_attr_val_id)||
501: ' end_date_active = '|| TO_CHAR(X_end_date_active,'YYYY/MM/DD')||
502: 'Rowid = '||X_Rowid);
495: IF (l_dummy >=1) THEN
496: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
497: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
498: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
499: FND_MESSAGE.SET_TOKEN('PARAMETERS',
500: ' tax_categ_attr_val_id = '||TO_CHAR(X_tax_categ_attr_val_id)||
501: ' end_date_active = '|| TO_CHAR(X_end_date_active,'YYYY/MM/DD')||
502: 'Rowid = '||X_Rowid);
503: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
499: FND_MESSAGE.SET_TOKEN('PARAMETERS',
500: ' tax_categ_attr_val_id = '||TO_CHAR(X_tax_categ_attr_val_id)||
501: ' end_date_active = '|| TO_CHAR(X_end_date_active,'YYYY/MM/DD')||
502: 'Rowid = '||X_Rowid);
503: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
504: APP_EXCEPTION.RAISE_EXCEPTION;
505: END IF;
506: END check_unique;
507:
537: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid))
538: AND org_id = X_org_id;
539:
540: IF (l_dummy >=1) THEN
541: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
542: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
543: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
544: FND_MESSAGE.SET_TOKEN('PARAMETERS',
545: ' tax_categ_attr_val_id = ' || to_char(X_tax_categ_attr_val_id)||
538: AND org_id = X_org_id;
539:
540: IF (l_dummy >=1) THEN
541: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
542: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
543: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
544: FND_MESSAGE.SET_TOKEN('PARAMETERS',
545: ' tax_categ_attr_val_id = ' || to_char(X_tax_categ_attr_val_id)||
546: ' end_date_active = ' || X_end_date_active ||
539:
540: IF (l_dummy >=1) THEN
541: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
542: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
543: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
544: FND_MESSAGE.SET_TOKEN('PARAMETERS',
545: ' tax_categ_attr_val_id = ' || to_char(X_tax_categ_attr_val_id)||
546: ' end_date_active = ' || X_end_date_active ||
547: ' start_date_active = ' || X_start_date_active );
540: IF (l_dummy >=1) THEN
541: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
542: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
543: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
544: FND_MESSAGE.SET_TOKEN('PARAMETERS',
545: ' tax_categ_attr_val_id = ' || to_char(X_tax_categ_attr_val_id)||
546: ' end_date_active = ' || X_end_date_active ||
547: ' start_date_active = ' || X_start_date_active );
548: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
544: FND_MESSAGE.SET_TOKEN('PARAMETERS',
545: ' tax_categ_attr_val_id = ' || to_char(X_tax_categ_attr_val_id)||
546: ' end_date_active = ' || X_end_date_active ||
547: ' start_date_active = ' || X_start_date_active );
548: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
549: APP_EXCEPTION.RAISE_EXCEPTION;
550: END IF;
551: END Check_Overlapped_Dates;
552:
607: AND org_id = X_org_id
608: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));
609:
610: IF (l_dummy2 <> 0) THEN
611: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
612: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
613: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
614: FND_MESSAGE.SET_TOKEN('PARAMETERS',
615: ' tax_categ_attr_val_id = '||to_char(X_tax_categ_attr_val_id)||
608: AND ((X_rowid IS NULL) OR (a.rowid <> X_rowid));
609:
610: IF (l_dummy2 <> 0) THEN
611: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
612: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
613: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
614: FND_MESSAGE.SET_TOKEN('PARAMETERS',
615: ' tax_categ_attr_val_id = '||to_char(X_tax_categ_attr_val_id)||
616: ' end_date_active = ' || X_end_date_active ||
609:
610: IF (l_dummy2 <> 0) THEN
611: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
612: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
613: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
614: FND_MESSAGE.SET_TOKEN('PARAMETERS',
615: ' tax_categ_attr_val_id = '||to_char(X_tax_categ_attr_val_id)||
616: ' end_date_active = ' || X_end_date_active ||
617: ' start_date_active = ' || X_start_date_active );
610: IF (l_dummy2 <> 0) THEN
611: FND_MESSAGE.SET_NAME('AR','AR_DEBUG');
612: FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
613: FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
614: FND_MESSAGE.SET_TOKEN('PARAMETERS',
615: ' tax_categ_attr_val_id = '||to_char(X_tax_categ_attr_val_id)||
616: ' end_date_active = ' || X_end_date_active ||
617: ' start_date_active = ' || X_start_date_active );
618: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
614: FND_MESSAGE.SET_TOKEN('PARAMETERS',
615: ' tax_categ_attr_val_id = '||to_char(X_tax_categ_attr_val_id)||
616: ' end_date_active = ' || X_end_date_active ||
617: ' start_date_active = ' || X_start_date_active );
618: FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
619: APP_EXCEPTION.RAISE_EXCEPTION;
620: END IF;
621: END;
622: END IF;