2: /* $Header: OKEKAR2B.pls 115.10 2003/12/03 19:20:15 alaw ship $ */
3:
4: --
5: -- Name : Compile_Rules
6: -- Pre-reqs : FND_GLOBAL.INITIALIZE
7: -- Function : This function compiles access rules for the
8: -- given contract role.
9: --
10: -- Parameters :
24: L_stage number := 0;
25:
26: BEGIN
27:
28: L_user_id := FND_GLOBAL.user_id;
29: L_login_id := FND_GLOBAL.conc_login_id;
30:
31: SAVEPOINT Before_Compilation;
32: --
25:
26: BEGIN
27:
28: L_user_id := FND_GLOBAL.user_id;
29: L_login_id := FND_GLOBAL.conc_login_id;
30:
31: SAVEPOINT Before_Compilation;
32: --
33: -- Step 0
441:
442:
443: --
444: -- Name : Copy_Rules
445: -- Pre-reqs : FND_GLOBAL.INITIALIZE
446: -- Function : This function copies access rules from the
447: -- source role to the target role.
448: --
449: -- Parameters :
473: WHERE role_id = X_Target_Role_ID;
474:
475: END IF;
476:
477: L_user_id := FND_GLOBAL.user_id;
478: L_login_id := FND_GLOBAL.conc_login_id;
479:
480: IF ( X_Copy_Option = 'MERGE' ) THEN
481:
474:
475: END IF;
476:
477: L_user_id := FND_GLOBAL.user_id;
478: L_login_id := FND_GLOBAL.conc_login_id;
479:
480: IF ( X_Copy_Option = 'MERGE' ) THEN
481:
482: L_stage := 2;