PACKAGE BODY: APPS.IEM_DIAG_UTILS_PVT

Source

1 PACKAGE BODY IEM_DIAG_UTILS_PVT as
2 /* $Header: iemdutib.pls 120.0 2005/09/30 14:35:51 chtang noship $*/
3 
4 G_PKG_NAME CONSTANT varchar2(30) :='IEM_DIAG_UTILS_PVT ';
5 
6 PROCEDURE check_profiles(
7       	x_customer_num_isnull	      OUT NOCOPY  VARCHAR2,
8         x_resource_num_isnull         OUT NOCOPY  VARCHAR2)
9 
10 IS
11 	l_cust_prof_null 	varchar2(10)	:= 'false';
12    	l_resource_prof_null 	varchar2(10)	:= 'false';
13 
14 
15 BEGIN
16 
17 
18 	  -- Check if user has entered an default customer number in Profile
19    		if (FND_PROFILE.VALUE('IEM_DEFAULT_CUSTOMER_NUMBER') is null or FND_PROFILE.VALUE('IEM_DEFAULT_CUSTOMER_ID') is null) then
20    			l_cust_prof_null := 'true';
21    		end if;
22 
23    		-- Check if user has entered an default resource number in Profile
24    		if (FND_PROFILE.VALUE('IEM_SRVR_ARES') is null or FND_PROFILE.VALUE('IEM_DEFAULT_RESOURCE_NUMBER') is null) then
25    			l_resource_prof_null := 'true';
26    		end if;
27 
28 		x_customer_num_isnull := l_cust_prof_null;
29 		x_resource_num_isnull := l_resource_prof_null;
30 
31 END check_profiles;
32 
33 
34 
35 
36 
37 
38 END IEM_DIAG_UTILS_PVT;