DBA Data[Home] [Help]

PACKAGE BODY: APPS.FII_CCID_CALLOUT

Source


1 PACKAGE BODY FII_CCID_CALLOUT AS
2 /* $Header: FIIGLUCB.pls 120.1 2005/10/30 05:13:38 appldev noship $ */
3   g_debug_mode   VARCHAR2(1) := NVL(FND_PROFILE.value('FII_DEBUG_MODE'), 'N');
4 
5 
6 -- *******************************************************************
7 -- Procedure UPDATE_FC.
8 -- *******************************************************************
9 
10    PROCEDURE UPDATE_FC (p_from_ccid	IN	NUMBER,
11 		        p_to_ccid	IN	NUMBER
12 		       )  IS
13 
14    BEGIN
15 
16 	IF (g_debug_mode = 'Y') THEN
17            FII_MESSAGE.Func_Ent ('FII_CCID_CALLOUT.UPDATE_FC');
18         END IF;
19 
20         -- Print the values of the parameters
21         IF (g_debug_mode = 'Y') THEN
22            FII_UTIL.Write_Log('Value of p_from_ccid : '||p_from_ccid);
23            FII_UTIL.Write_Log('Value of p_to_ccid : '||p_to_ccid);
24         end if;
25 
26         -----------------------------------------------------------------
27 	-- At this place the customised code will be put in place of NULL
28 	-- This piece of code will update records with CCID between
29 	-- p_from_ccid and p_to_ccid
30 	-----------------------------------------------------------------
31 
32 	NULL;
33 
34         IF (g_debug_mode = 'Y') THEN
35            FII_MESSAGE.Func_Succ(func_name => 'FII_CCID_CALLOUT.UPDATE_FC');
36         end if;
37 
38    Exception
39      When others then
40         FII_UTIL.Write_Log ('Unexpected error when calling UPDATE_FC...');
41 	FII_UTIL.Write_Log ('Error Message: '|| substr(sqlerrm,1,180));
42 	raise;
43 
44 
45    END UPDATE_FC;
46 
47 END FII_CCID_CALLOUT;