[Home] [Help]
831: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_OBJECT_WRITE';
832: l_count NUMBER;
833: l_last_save_time DATE;
834: l_lock_type BSC_OBJECT_LOCKS.LOCK_TYPE%TYPE;
835: l_user_type BSC_OBJECT_LOCK_USERS.USER_TYPE%TYPE;
836:
837: CURSOR c_get_object(
838: c_object_key VARCHAR2,
839: c_object_type VARCHAR2
982: l_last_save_time DATE;
983: l_object_key BSC_OBJECT_LOCKS.OBJECT_KEY%TYPE;
984: l_object_type BSC_OBJECT_LOCKS.OBJECT_TYPE%TYPE;
985: l_lock_type BSC_OBJECT_LOCKS.LOCK_TYPE%TYPE;
986: l_user_type BSC_OBJECT_LOCK_USERS.USER_TYPE%TYPE;
987: l_session_id NUMBER := USERENV('SESSIONID');
988:
989: CURSOR c_get_object(
990: c_object_key VARCHAR2,
1194: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_OBJECT_ALL';
1195: l_object_key BSC_OBJECT_LOCKS.OBJECT_KEY%TYPE;
1196: l_object_type BSC_OBJECT_LOCKS.OBJECT_TYPE%TYPE;
1197: l_lock_type BSC_OBJECT_LOCKS.LOCK_TYPE%TYPE;
1198: l_user_type BSC_OBJECT_LOCK_USERS.USER_TYPE%TYPE;
1199: l_last_save_time BSC_OBJECT_LOCKS.LAST_SAVE_TIME%TYPE;
1200: l_exception_flag BOOLEAN;
1201:
1202: CURSOR c_lock_object IS
1226: l_exception_flag := FALSE;
1227:
1228: -- Lock the user entry for the top level object
1229: BEGIN
1230: LOCK TABLE BSC_OBJECT_LOCK_USERS IN EXCLUSIVE MODE NOWAIT;
1231: LOCK TABLE BSC_OBJECT_LOCKS IN EXCLUSIVE MODE NOWAIT;
1232: --FOR clock IN c_lock_object LOOP
1233: -- l_last_save_time := clock.LAST_SAVE_TIME;
1234: --END LOOP;
1348: ,x_msg_data OUT NOCOPY varchar2
1349: ) IS
1350:
1351: l_api_name CONSTANT VARCHAR2(30) := 'LOCK_USER';
1352: l_user_id BSC_OBJECT_LOCK_USERS.USER_ID%TYPE;
1353: --l_insert_flag BOOLEAN;
1354:
1355: CURSOR c_lock_user(c_object_key VARCHAR2, c_object_type VARCHAR2, c_user_type VARCHAR2) IS
1356: SELECT USER_ID FROM BSC_OBJECT_LOCK_USERS
1352: l_user_id BSC_OBJECT_LOCK_USERS.USER_ID%TYPE;
1353: --l_insert_flag BOOLEAN;
1354:
1355: CURSOR c_lock_user(c_object_key VARCHAR2, c_object_type VARCHAR2, c_user_type VARCHAR2) IS
1356: SELECT USER_ID FROM BSC_OBJECT_LOCK_USERS
1357: WHERE OBJECT_KEY = c_object_key
1358: AND OBJECT_TYPE = c_object_type
1359: AND USER_TYPE = c_user_type
1360: FOR UPDATE NOWAIT;
1982: FND_GLOBAL.USER_ID,
1983: l_session_id
1984: FROM BSC_TABS_B;
1985:
1986: INSERT INTO BSC_OBJECT_LOCK_USERS (
1987: OBJECT_KEY,
1988: OBJECT_TYPE,
1989: USER_TYPE,
1990: PROGRAM_ID,
2009: SYSDATE,
2010: FND_GLOBAL.USER_ID
2011: FROM BSC_TABS_B;
2012:
2013: INSERT INTO BSC_OBJECT_LOCK_USERS (
2014: OBJECT_KEY,
2015: OBJECT_TYPE,
2016: USER_TYPE,
2017: PROGRAM_ID,
2146: FND_GLOBAL.USER_ID,
2147: l_session_id
2148: FROM BSC_KPIS_B;
2149:
2150: INSERT INTO BSC_OBJECT_LOCK_USERS (
2151: OBJECT_KEY,
2152: OBJECT_TYPE,
2153: USER_TYPE,
2154: PROGRAM_ID,
2173: SYSDATE,
2174: FND_GLOBAL.USER_ID
2175: FROM BSC_KPIS_B;
2176:
2177: INSERT INTO BSC_OBJECT_LOCK_USERS (
2178: OBJECT_KEY,
2179: OBJECT_TYPE,
2180: USER_TYPE,
2181: PROGRAM_ID,
2310: FND_GLOBAL.USER_ID,
2311: l_session_id
2312: FROM BSC_SYS_DIM_GROUPS_TL;
2313:
2314: INSERT INTO BSC_OBJECT_LOCK_USERS (
2315: OBJECT_KEY,
2316: OBJECT_TYPE,
2317: USER_TYPE,
2318: PROGRAM_ID,
2337: SYSDATE,
2338: FND_GLOBAL.USER_ID
2339: FROM BSC_SYS_DIM_GROUPS_TL;
2340:
2341: INSERT INTO BSC_OBJECT_LOCK_USERS (
2342: OBJECT_KEY,
2343: OBJECT_TYPE,
2344: USER_TYPE,
2345: PROGRAM_ID,
2474: FND_GLOBAL.USER_ID,
2475: l_session_id
2476: FROM BSC_SYS_DIM_LEVELS_B;
2477:
2478: INSERT INTO BSC_OBJECT_LOCK_USERS (
2479: OBJECT_KEY,
2480: OBJECT_TYPE,
2481: USER_TYPE,
2482: PROGRAM_ID,
2501: SYSDATE,
2502: FND_GLOBAL.USER_ID
2503: FROM BSC_SYS_DIM_LEVELS_B;
2504:
2505: INSERT INTO BSC_OBJECT_LOCK_USERS (
2506: OBJECT_KEY,
2507: OBJECT_TYPE,
2508: USER_TYPE,
2509: PROGRAM_ID,
2638: FND_GLOBAL.USER_ID,
2639: l_session_id
2640: FROM BSC_SYS_DATASETS_B;
2641:
2642: INSERT INTO BSC_OBJECT_LOCK_USERS (
2643: OBJECT_KEY,
2644: OBJECT_TYPE,
2645: USER_TYPE,
2646: PROGRAM_ID,
2665: SYSDATE,
2666: FND_GLOBAL.USER_ID
2667: FROM BSC_SYS_DATASETS_B;
2668:
2669: INSERT INTO BSC_OBJECT_LOCK_USERS (
2670: OBJECT_KEY,
2671: OBJECT_TYPE,
2672: USER_TYPE,
2673: PROGRAM_ID,
2802: FND_GLOBAL.USER_ID,
2803: l_session_id
2804: FROM BSC_SYS_MEASURES;
2805:
2806: INSERT INTO BSC_OBJECT_LOCK_USERS (
2807: OBJECT_KEY,
2808: OBJECT_TYPE,
2809: USER_TYPE,
2810: PROGRAM_ID,
2829: SYSDATE,
2830: FND_GLOBAL.USER_ID
2831: FROM BSC_SYS_MEASURES;
2832:
2833: INSERT INTO BSC_OBJECT_LOCK_USERS (
2834: OBJECT_KEY,
2835: OBJECT_TYPE,
2836: USER_TYPE,
2837: PROGRAM_ID,
2966: FND_GLOBAL.USER_ID,
2967: l_session_id
2968: FROM BSC_TAB_VIEWS_B;
2969:
2970: INSERT INTO BSC_OBJECT_LOCK_USERS (
2971: OBJECT_KEY,
2972: OBJECT_TYPE,
2973: USER_TYPE,
2974: PROGRAM_ID,
2993: SYSDATE,
2994: FND_GLOBAL.USER_ID
2995: FROM BSC_TAB_VIEWS_B;
2996:
2997: INSERT INTO BSC_OBJECT_LOCK_USERS (
2998: OBJECT_KEY,
2999: OBJECT_TYPE,
3000: USER_TYPE,
3001: PROGRAM_ID,
3131: l_session_id
3132: FROM BSC_TAB_VIEW_LABELS_B
3133: WHERE LABEL_TYPE = 2;
3134:
3135: INSERT INTO BSC_OBJECT_LOCK_USERS (
3136: OBJECT_KEY,
3137: OBJECT_TYPE,
3138: USER_TYPE,
3139: PROGRAM_ID,
3159: FND_GLOBAL.USER_ID
3160: FROM BSC_TAB_VIEW_LABELS_B
3161: WHERE LABEL_TYPE = 2;
3162:
3163: INSERT INTO BSC_OBJECT_LOCK_USERS (
3164: OBJECT_KEY,
3165: OBJECT_TYPE,
3166: USER_TYPE,
3167: PROGRAM_ID,
3297: FND_GLOBAL.USER_ID,
3298: l_session_id
3299: FROM BSC_SYS_PERIODICITIES;
3300:
3301: INSERT INTO BSC_OBJECT_LOCK_USERS (
3302: OBJECT_KEY,
3303: OBJECT_TYPE,
3304: USER_TYPE,
3305: PROGRAM_ID,
3324: SYSDATE,
3325: FND_GLOBAL.USER_ID
3326: FROM BSC_SYS_PERIODICITIES;
3327:
3328: INSERT INTO BSC_OBJECT_LOCK_USERS (
3329: OBJECT_KEY,
3330: OBJECT_TYPE,
3331: USER_TYPE,
3332: PROGRAM_ID,
3461: FND_GLOBAL.USER_ID,
3462: l_session_id
3463: FROM BSC_SYS_CALENDARS_B;
3464:
3465: INSERT INTO BSC_OBJECT_LOCK_USERS (
3466: OBJECT_KEY,
3467: OBJECT_TYPE,
3468: USER_TYPE,
3469: PROGRAM_ID,
3488: SYSDATE,
3489: FND_GLOBAL.USER_ID
3490: FROM BSC_SYS_CALENDARS_B;
3491:
3492: INSERT INTO BSC_OBJECT_LOCK_USERS (
3493: OBJECT_KEY,
3494: OBJECT_TYPE,
3495: USER_TYPE,
3496: PROGRAM_ID,
3625: FND_GLOBAL.USER_ID,
3626: l_session_id
3627: FROM BSC_DB_TABLES;
3628:
3629: INSERT INTO BSC_OBJECT_LOCK_USERS (
3630: OBJECT_KEY,
3631: OBJECT_TYPE,
3632: USER_TYPE,
3633: PROGRAM_ID,
3652: SYSDATE,
3653: FND_GLOBAL.USER_ID
3654: FROM BSC_DB_TABLES;
3655:
3656: INSERT INTO BSC_OBJECT_LOCK_USERS (
3657: OBJECT_KEY,
3658: OBJECT_TYPE,
3659: USER_TYPE,
3660: PROGRAM_ID,
4118: BEGIN
4119: --DBMS_OUTPUT.PUT_LINE('INSERT_USER_INFO');
4120: x_return_status := FND_API.G_RET_STS_SUCCESS;
4121:
4122: INSERT INTO BSC_OBJECT_LOCK_USERS (
4123: OBJECT_KEY,
4124: OBJECT_TYPE,
4125: USER_TYPE,
4126: PROGRAM_ID,
4328: --DBMS_OUTPUT.PUT_LINE('UPDATE_USER_INFO');
4329: x_return_status := FND_API.G_RET_STS_SUCCESS;
4330:
4331: IF (p_object_key = 'ALL' AND p_object_type = 'ALL') THEN
4332: UPDATE BSC_OBJECT_LOCK_USERS
4333: SET PROGRAM_ID = p_program_id,
4334: USER_ID = p_user_id,
4335: MACHINE = p_machine,
4336: TERMINAL = p_terminal,
4340: WHERE p_user_type = 'ALL'
4341: OR USER_TYPE = p_user_type;
4342:
4343: ELSE
4344: UPDATE BSC_OBJECT_LOCK_USERS
4345: SET PROGRAM_ID = p_program_id,
4346: USER_ID = p_user_id,
4347: MACHINE = p_machine,
4348: TERMINAL = p_terminal,
4382: );
4383: END IF;
4384:
4385: IF (p_user_type = 'L') THEN
4386: UPDATE BSC_OBJECT_LOCK_USERS
4387: SET PROGRAM_ID = p_program_id,
4388: USER_ID = p_user_id,
4389: MACHINE = p_machine,
4390: TERMINAL = p_terminal,
4612: DELETE FROM BSC_OBJECT_LOCKS
4613: WHERE OBJECT_TYPE = p_object_type
4614: AND OBJECT_KEY = p_object_key;
4615:
4616: DELETE FROM BSC_OBJECT_LOCK_USERS
4617: WHERE OBJECT_TYPE = p_object_type
4618: AND OBJECT_KEY = p_object_key;
4619:
4620: EXCEPTION
4772:
4773: l_api_name CONSTANT VARCHAR2(30) := 'RAISE_EXCEPTION';
4774: l_component BSC_LOOKUPS.MEANING%TYPE;
4775: l_user_name BSC_APPS_USERS_V.USER_NAME%TYPE;
4776: l_machine BSC_OBJECT_LOCK_USERS.MACHINE%TYPE;
4777: l_terminal BSC_OBJECT_LOCK_USERS.TERMINAL%TYPE;
4778:
4779: CURSOR c_get_user(
4780: c_object_key VARCHAR2
4773: l_api_name CONSTANT VARCHAR2(30) := 'RAISE_EXCEPTION';
4774: l_component BSC_LOOKUPS.MEANING%TYPE;
4775: l_user_name BSC_APPS_USERS_V.USER_NAME%TYPE;
4776: l_machine BSC_OBJECT_LOCK_USERS.MACHINE%TYPE;
4777: l_terminal BSC_OBJECT_LOCK_USERS.TERMINAL%TYPE;
4778:
4779: CURSOR c_get_user(
4780: c_object_key VARCHAR2
4781: ,c_object_type VARCHAR2
4781: ,c_object_type VARCHAR2
4782: ,c_user_type VARCHAR2
4783: ) IS
4784: SELECT L.PROGRAM_ID, U.USER_NAME, L.MACHINE, L.TERMINAL
4785: FROM BSC_OBJECT_LOCK_USERS L, BSC_APPS_USERS_V U
4786: WHERE L.OBJECT_KEY = c_object_key
4787: AND L.OBJECT_TYPE = c_object_type
4788: AND L.USER_TYPE = c_user_type
4789: AND L.USER_ID = U.USER_ID (+);