PACKAGE BODY: APPS.AP_INCOME_TAX_REGIONS_PKG

Source

1 PACKAGE BODY AP_INCOME_TAX_REGIONS_PKG AS
2 /* $Header: apiincrb.pls 120.3 2004/10/28 00:04:59 pjena noship $ */
3 
4 PROCEDURE CHECK_UNIQUE (X_ROWID             VARCHAR2,
5 		        X_REGION_SHORT_NAME VARCHAR2,
6 		        X_REGION_CODE       NUMBER,
7 			X_calling_sequence	IN	VARCHAR2) IS
8   dummy number;
9   current_calling_sequence    VARCHAR2(2000);
10   debug_info                  VARCHAR2(100);
11 
12 begin
13 --Update the calling sequence
14 --
15   current_calling_sequence := 'AP_INCOME_TAX_REGIONS_PKG.CHECK_UNIQUE<-' ||
16                                X_calling_sequence;
17 
18   debug_info := 'Count income tax regions';
19   select count(1)
20   into   dummy
21   from   ap_income_tax_regions
22   where  (region_short_name = X_REGION_SHORT_NAME OR
23           region_code = X_REGION_CODE)
24   and    ((X_ROWID is null) or (rowid <> X_ROWID));
25 
26   if (dummy >= 1) then
27     fnd_message.set_name('SQLAP','AP_ALL_DUPLICATE_VALUE');
28     app_exception.raise_exception;
29   end if;
30   EXCEPTION
31        WHEN OTHERS THEN
32            IF (SQLCODE <> -20001) THEN
33               FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
34               FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
35               FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',current_calling_sequence);
36               FND_MESSAGE.SET_TOKEN('PARAMETERS','ROWID = ' || X_ROWID ||
37 		        	', REGION_SHORT_NAME = ' || X_REGION_SHORT_NAME ||
38 		        	', REGION_CODE = ' || X_REGION_CODE);
39               FND_MESSAGE.SET_TOKEN('DEBUG_INFO',debug_info);
40            END IF;
41            APP_EXCEPTION.RAISE_EXCEPTION;
42 
43 end CHECK_UNIQUE;
44 
45 END AP_INCOME_TAX_REGIONS_PKG;