PACKAGE BODY: APPS.CN_SYSTEM_PARAMETERS

Source

1 PACKAGE BODY CN_SYSTEM_PARAMETERS AS
2 /* $Header: cnsysprb.pls 120.0 2005/09/13 06:27 rramakri noship $ */
3 
4 
5 FUNCTION VALUE(P_PROFILE_CODE IN VARCHAR2,P_ORG_ID IN NUMBER) RETURN VARCHAR2 IS
6 L_SQL_STRING VARCHAR2(100);
7 P_CRS PROFILE_CURSOR;
8 L_PROFILE_VALUE VARCHAR2(100);
9 BEGIN
10 L_SQL_STRING:='SELECT '||P_PROFILE_CODE||' FROM CN_REPOSITORIES WHERE ORG_ID=:1';
11 OPEN P_CRS FOR L_SQL_STRING USING P_ORG_ID;
12 LOOP
13 FETCH P_CRS INTO L_PROFILE_VALUE;
14 EXIT WHEN P_CRS%NOTFOUND;
15 END LOOP;
16 RETURN L_PROFILE_VALUE;
17 EXCEPTION
18 WHEN OTHERS THEN
19 FND_MESSAGE.SET_NAME('CN','CN_INVALID_PROFILE_CODE');
20 APP_EXCEPTION.RAISE_EXCEPTION;
21 
22 
23 END VALUE;
24 
25 PROCEDURE GET_SYSTEM_PARAMETER(P_PROFILE_CODE IN VARCHAR2,P_ORG_ID IN NUMBER,X_VALUE OUT NOCOPY VARCHAR2)
26 IS
27 BEGIN
28 X_VALUE:=VALUE(P_PROFILE_CODE,P_ORG_ID);
29 END GET_SYSTEM_PARAMETER;
30 
31 END CN_SYSTEM_PARAMETERS;