PACKAGE BODY: APPS.AP_EXPENSE_FEED_LINES_PKG

Source

1 PACKAGE BODY AP_EXPENSE_FEED_LINES_PKG AS
2 /* $Header: apiwtrxb.pls 120.1 2005/06/24 21:14:38 hchacko ship $ */
3 
4 PROCEDURE SELECT_SUMMARY(X_FEED_LINE_ID IN NUMBER,
5 	         	 X_TOTAL         IN OUT NOCOPY NUMBER,
6                          X_TOTAL_RTOT_DB IN OUT NOCOPY NUMBER,
7 			 X_CALLING_SEQUENCE IN VARCHAR2) IS
8 
9   l_current_calling_sequence  VARCHAR2(2000);
10   l_debug_info		      VARCHAR2(100);
11 
12 BEGIN
13   l_current_calling_sequence := 'AP_EXPENSE_FEED_LINES_PKG.SELECT_SUMMARY<-' ||
14                                  X_calling_sequence;
15 
16   ----------------------------------------
17   l_debug_info := 'Get Sum of Amounts';
18   ----------------------------------------
19   SELECT NVL(SUM(AMOUNT), 0), NVL(SUM(AMOUNT), 0)
20   INTO   X_TOTAL, X_TOTAL_RTOT_DB
21   FROM   AP_EXPENSE_FEED_DISTS
22   WHERE  FEED_LINE_ID = X_FEED_LINE_ID;
23 
24   X_TOTAL_RTOT_DB := X_TOTAL;
25 
26 EXCEPTION
27   WHEN OTHERS THEN
28     IF (SQLCODE <> -20001) THEN
29       IF (SQLCODE = -54) THEN
30         FND_MESSAGE.SET_NAME('SQLAP','AP_RESOURCE_BUSY');
31       ELSE
32         FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
33         FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
34         FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE',
35                   l_current_calling_sequence);
36         FND_MESSAGE.SET_TOKEN('PARAMETERS',
37                 'X_FEED_LINE_ID = '||X_FEED_LINE_ID
38             ||', X_TOTAL = '||X_TOTAL
39             ||', X_TOTAL_RTOT_DB = '||X_TOTAL_RTOT_DB
40                                  );
41         FND_MESSAGE.SET_TOKEN('DEBUG_INFO',l_debug_info);
42       END IF;
43     END IF;
44     APP_EXCEPTION.RAISE_EXCEPTION;
45 
46 END;
47 
48 END AP_EXPENSE_FEED_LINES_PKG;