[Home] [Help]
1: PACKAGE BODY bsc_security AS
2: /* $Header: BSCSSECB.pls 120.3 2006/01/24 16:10:11 calaw noship $ */
3:
4: -- Global Variables
5: --
63: x_user_name IN VARCHAR2,
64: x_debug_flag IN VARCHAR2 := 'NO',
65: x_calling_fn IN VARCHAR2) IS
66:
67: h_current_fn VARCHAR2(128) := 'bsc_security.get_user_info';
68:
69: user_info User_Info_Rec_Type;
70: h_message VARCHAR2(200);
71: h_st_dt_chk NUMBER(10);
113: dbms_sql.define_column(l_curr,3,user_info.user_type);
114: dbms_sql.define_column(l_curr,4,h_st_dt_chk);
115: dbms_sql.define_column(l_curr,5,h_end_dt_chk);
116: dbms_sql.bind_variable(l_curr,':1',user_info.user_name); -- fix for literals bug#3075851
117: dbms_sql.bind_variable(l_curr,':2',BSC_SECURITY.DB_USER_TYPE); -- "
118:
119: l_val := dbms_sql.execute(l_curr);
120: IF dbms_sql.fetch_rows(l_curr)> 0 THEN
121: dbms_sql.column_value(l_curr,1,user_info.user_pwd);
283: x_debug_flag IN VARCHAR2 := 'NO',
284: x_status IN OUT NOCOPY BOOLEAN,
285: x_calling_fn IN VARCHAR2) IS
286:
287: h_current_fn VARCHAR2(128) := 'bsc_security.get_user_info';
288:
289: h_count NUMBER;
290: h_session_id NUMBER;
291: l_sql_stmt VARCHAR2(1024);
428: BSC_APPS.Init_Bsc_Apps;
429:
430: BSC_MESSAGE.Init(X_Debug_Flag => x_debug_flag);
431:
432: l_calling_fn := 'BSC_SECURITY.CHECK_SYSTEM_LOCK';
433: l_lock_msg := bsc_apps.get_message('BSC_SEC_LOCKED_SYSTEM');
434: h_components(-100) := bsc_apps.get_lookup_value('BSC_UI_SETUP', 'BSC_LOADER'); -- Loader UI
435: h_components(-101) := h_components(-100); -- Loader concurrent program
436: h_components(-200) := bsc_apps.get_lookup_value('BSC_UI_COMMON', 'METADATA_OPTIMIZER');
455: DELETE bsc_message_logs
456: WHERE last_update_login = h_session_id;
457: commit;
458:
459: BSC_SECURITY.Refresh_System_Lock(x_program_id);
460: -- Clean BSC_CURRENT_SESSIONS to leave only current sessions
461: --Delete bsc_current_sessions
462: --Where session_id Not In (Select vs.audsid From V$Session vs);
463: --commit;
731: -- Name
732: -- Refresh_System_Lock
733: -- Purpose
734: -- Cleanup BSC_CURRENT_SESSIONS table before acquiring locks
735: -- Called by BSC_SECURITY.CHECK_SYSTEM_LOCK and BSC_LOCKS_PUB.GET_SYSTEM_LOCK
736: -- 1) Delete all orphan the sessions
737: -- 2) Delete all the session not being reused by FND
738: -- 3) Delete all sessions, which have their concurrent programs in invalid or hang status
739: -- 4) Kill IViewer Sessions that have been INACTIVE more than 20 minutes
855: BSC_APPS.Init_Bsc_Apps;
856:
857: BSC_MESSAGE.Init(X_Debug_Flag => X_Debug_Flag);
858:
859: l_calling_fn := 'BSC_SECURITY.CHECK_SOURCE_SYSTEM_LOCK';
860: l_lock_msg := bsc_apps.get_message('BSC_SEC_LOCKED_SRC_SYSTEM');
861: h_components(-100) := bsc_apps.get_lookup_value('BSC_UI_SETUP', 'BSC_LOADER'); -- Loader UI
862: h_components(-101) := bsc_apps.get_lookup_value('BSC_UI_SETUP', 'BSC_LOADER'); -- Loader Concurrent program
863: h_components(-200) := bsc_apps.get_lookup_value('BSC_UI_COMMON', 'METADATA_OPTIMIZER');
996:
997: BSC_Lock_Error Exception;
998:
999: BEGIN
1000: l_calling_fn := 'BSC_SECURITY.DELETE_BSC_SESSION';
1001:
1002: DELETE BSC_CURRENT_SESSIONS
1003: WHERE SESSION_ID = USERENV('SESSIONID');
1004: COMMIT;
1036: l_message Varchar2(2000);
1037:
1038: BEGIN
1039:
1040: l_calling_fn := 'BSC_SECURITY.DELETE_BSC_SESSION_ICX';
1041:
1042: IF (p_icx_session_id IS NOT NULL) THEN
1043: DELETE BSC_CURRENT_SESSIONS
1044: WHERE ICX_SESSION_ID = p_icx_session_id;
1229: RETURN yes_no;
1230: end is_meta_inside;
1231:
1232:
1233: END bsc_security;