431:
432: EXCEPTION
433: WHEN OTHERS THEN
434: ROLLBACK TO SAVEPOINT Before_Compilation;
435: FND_MESSAGE.SET_NAME('OKE', 'OKE_SEC_COMPILE_RULE_FAILED');
436: FND_MESSAGE.SET_TOKEN('STAGE', L_stage);
437: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
438: RETURN( FALSE );
439:
432: EXCEPTION
433: WHEN OTHERS THEN
434: ROLLBACK TO SAVEPOINT Before_Compilation;
435: FND_MESSAGE.SET_NAME('OKE', 'OKE_SEC_COMPILE_RULE_FAILED');
436: FND_MESSAGE.SET_TOKEN('STAGE', L_stage);
437: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
438: RETURN( FALSE );
439:
440: END Compile_Rules;
433: WHEN OTHERS THEN
434: ROLLBACK TO SAVEPOINT Before_Compilation;
435: FND_MESSAGE.SET_NAME('OKE', 'OKE_SEC_COMPILE_RULE_FAILED');
436: FND_MESSAGE.SET_TOKEN('STAGE', L_stage);
437: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
438: RETURN( FALSE );
439:
440: END Compile_Rules;
441:
549: RETURN( TRUE );
550:
551: EXCEPTION
552: WHEN OTHERS THEN
553: FND_MESSAGE.SET_NAME('OKE', 'OKE_SEC_COPY_RULE_FAILED');
554: FND_MESSAGE.SET_TOKEN('STAGE', L_stage);
555: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
556: RETURN( FALSE );
557:
550:
551: EXCEPTION
552: WHEN OTHERS THEN
553: FND_MESSAGE.SET_NAME('OKE', 'OKE_SEC_COPY_RULE_FAILED');
554: FND_MESSAGE.SET_TOKEN('STAGE', L_stage);
555: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
556: RETURN( FALSE );
557:
558: END Copy_Rules;
551: EXCEPTION
552: WHEN OTHERS THEN
553: FND_MESSAGE.SET_NAME('OKE', 'OKE_SEC_COPY_RULE_FAILED');
554: FND_MESSAGE.SET_TOKEN('STAGE', L_stage);
555: FND_MESSAGE.SET_TOKEN('ERROR', sqlerrm);
556: RETURN( FALSE );
557:
558: END Copy_Rules;
559:
599: RETCODE := 0;
600:
601: FOR crec IN c LOOP
602:
603: FND_MESSAGE.SET_NAME('OKE' , 'OKE_SEC_COMPILING_RULES');
604: FND_MESSAGE.SET_TOKEN('ROLE' , crec.Role_Name);
605: FND_FILE.PUT_LINE(FND_FILE.LOG , FND_MESSAGE.GET);
606:
607: IF NOT ( Compile_Rules( crec.Role_ID ) ) THEN
600:
601: FOR crec IN c LOOP
602:
603: FND_MESSAGE.SET_NAME('OKE' , 'OKE_SEC_COMPILING_RULES');
604: FND_MESSAGE.SET_TOKEN('ROLE' , crec.Role_Name);
605: FND_FILE.PUT_LINE(FND_FILE.LOG , FND_MESSAGE.GET);
606:
607: IF NOT ( Compile_Rules( crec.Role_ID ) ) THEN
608: RAISE Compile_Error;
601: FOR crec IN c LOOP
602:
603: FND_MESSAGE.SET_NAME('OKE' , 'OKE_SEC_COMPILING_RULES');
604: FND_MESSAGE.SET_TOKEN('ROLE' , crec.Role_Name);
605: FND_FILE.PUT_LINE(FND_FILE.LOG , FND_MESSAGE.GET);
606:
607: IF NOT ( Compile_Rules( crec.Role_ID ) ) THEN
608: RAISE Compile_Error;
609: END IF;
616: );
617:
618: EXCEPTION
619: WHEN Compile_Error THEN
620: L_Error_Buf := FND_MESSAGE.GET;
621: FND_FILE.PUT_LINE(FND_FILE.LOG , L_Error_Buf);
622: ERRBUF := L_Error_Buf;
623: RETCODE := 2;
624: