How to assign select only privilage to a user application wise..?

Question

1-i have a function checking for a user_id and password it works fine.
2-i have a procedure checking for the user privilage
Both 1 and 2 stored in a package library,both called from 'ok' button on the main form as follows:
DECLARE
     V_USER_ID users_codes.USE_ID%TYPE;
     V_PASSWORD users_codes.use_pass%TYPE;
     V_EXIST BOOLEAN;
     v_insets USERS_PRIVILAGES.I%TYPE;
     v_deletes USERS_PRIVILAGES.D%TYPE;
     v_retrieves USERS_PRIVILAGES.R%TYPE;
     v_saves USERS_PRIVILAGES.S%TYPE;
     AL_ID NUMBER;
BEGIN
          V_USER_ID :=:TI_USRCOD;
          V_PASSWORD :=:TI_USRPSW;
     :GLOBAL.USR_CODE :=V_USER_ID;
     :GLOBAL.PASSWORD :=V_PASSWORD;
     V_EXIST :=SECURITY_NEW.LOGON_AUTH ( V_USER_ID ,
     V_PASSWORD );
     IF V_EXIST = TRUE THEN
               SET_ALERT_PROPERTY('NOTE',ALERT_MESSAGE_TEXT,'V_EXIST = 1 ');
               AL_ID := SHOW_ALERT('NOTE');
ELSE
               SET_ALERT_PROPERTY('NOTE',ALERT_MESSAGE_TEXT,'V_EXIST = 0 ');
               AL_ID := SHOW_ALERT('NOTE');
END IF;
     IF V_EXIST =TRUE THEN
                    SECURITY_NEW.Menu_Status ( V_USER_ID ,
          v_insets ,
          v_deletes ,
          v_retrieves,
          v_saves );
               MESSAGE(' Priv Exist' ||V_USER_ID||', '|| v_insets||' , '|| v_deletes||' , ' ||v_retrieves||' , ' ||v_saves);      
     :GLOBAL.insets :=v_insets;
     :GLOBAL.retrieves :=v_deletes;
     :GLOBAL.deletes :=v_retrieves;
     :GLOBAL.saves := v_saves;
     END IF;
     CALL_FORM('F_Frame_MDC');
END;
==========================================================
Above code returns my parameters just fine.
My doubt now is:
1-how can i give alll privilages to user1.
2-how can i give Select only privilage to user2.
==========================================================
For clarification i used the following code in a when-new-record-instance
--when_new_block_instance
--result protected to be updated
DECLARE
BEGIN
-- MESSAGE(' Priv' ||:GLOBAL.insets ||', '|| :GLOBAL.retrieves||' , '|| :GLOBAL.deletes||' , ' ||:GLOBAL.saves );
--     MESSAGE(' Priv' ||:GLOBAL.insets ||', '|| :GLOBAL.retrieves||' , '|| :GLOBAL.deletes||' , ' ||:GLOBAL.saves );                    IF :GLOBAL.insets =0 THEN
IF :GLOBAL.insets =0 THEN
                              Set_Block_Property('MISSION_CODE1',INSERT_ALLOWED,PROPERTY_FALSE);
                              Set_Block_Property('MISSION_CODE1',UPDATE_ALLOWED,PROPERTY_FALSE);
                              Set_Block_Property('MISSION_CODE1',DELETE_ALLOWED,PROPERTY_FALSE);
                              MESSAGE('ÚÝæÇð ÇáãÓÊÎÏã ÑÞã'|| ' ' || :GLOBAL.USR_CODE || 'ÛíÑ ãÓãæÍ ÈÇáÅÏÎÇá Ãæ ÇáÊÚÏíá ');
          RAISE Form_Trigger_Failure;
                    ELSIF :GLOBAL.insets =1 THEN
                              Set_Block_Property('MISSION_CODE1',INSERT_ALLOWED,PROPERTY_TRUE);
                              Set_Block_Property('MISSION_CODE1',UPDATE_ALLOWED,PROPERTY_TRUE);
                              Set_Block_Property('MISSION_CODE1',DELETE_ALLOWED,PROPERTY_TRUE);
                    END IF;
                    IF :GLOBAL.retrieves =0 THEN
                         Set_Block_Property('MISSION_CODE1',QUERY_ALLOWED,PROPERTY_FALSE);
                              Set_Block_Property('MISSION_CODE1',DELETE_ALLOWED,PROPERTY_FALSE);
                              Set_Block_Property('MISSION_CODE1',UPDATE_ALLOWED,PROPERTY_FALSE);
                              Set_Block_Property('MISSION_CODE1',INSERT_ALLOWED,PROPERTY_FALSE);
                              MESSAGE('ÚÝæÇð ÇáãÓÊÎÏã ÑÞã'|| ' ' || :GLOBAL.USR_CODE || 'ÛíÑ ãÓãæÍ áå ÈÇáÅÓÊÚáÇã ');
          RAISE Form_Trigger_Failure;
                    ELSIF :GLOBAL.retrieves =1 THEN
                         Set_Block_Property('MISSION_CODE1',QUERY_ALLOWED,PROPERTY_TRUE);
                         Set_Block_Property('MISSION_CODE1',DELETE_ALLOWED,PROPERTY_FALSE);
                              Set_Block_Property('MISSION_CODE1',UPDATE_ALLOWED,PROPERTY_FALSE);
                              Set_Block_Property('MISSION_CODE1',INSERT_ALLOWED,PROPERTY_FALSE);
                    END IF;
                    IF :GLOBAL.deletes =0 THEN
                    Set_Block_Property('MISSION_CODE1',DELETE_ALLOWED,PROPERTY_FALSE);
                              Set_Block_Property('MISSION_CODE1',UPDATE_ALLOWED,PROPERTY_FALSE);
                              Set_Block_Property('MISSION_CODE1',INSERT_ALLOWED,PROPERTY_FALSE);
                              MESSAGE('ÚÝæÇð ÇáãÓÊÎÏã ÑÞã'|| ' ' || :GLOBAL.USR_CODE || 'ÛíÑ ãÓãæÍ áå ÈÇáÅáÛÇÁ ');
          RAISE Form_Trigger_Failure;
                    ELSIF :GLOBAL.deletes =1 THEN
                    Set_Block_Property('MISSION_CODE1',DELETE_ALLOWED,PROPERTY_TRUE);
                              Set_Block_Property('MISSION_CODE1',UPDATE_ALLOWED,PROPERTY_TRUE);
                              Set_Block_Property('MISSION_CODE1',INSERT_ALLOWED,PROPERTY_TRUE);
                    END IF;
                    IF :GLOBAL.saves =0 THEN
                         Set_Block_Property('MISSION_CODE1',DELETE_ALLOWED,PROPERTY_FALSE);
                              Set_Block_Property('MISSION_CODE1',UPDATE_ALLOWED,PROPERTY_FALSE);
                              Set_Block_Property('MISSION_CODE1',INSERT_ALLOWED,PROPERTY_FALSE);
                                        RAISE Form_Trigger_Failure;
                    ELSIF :GLOBAL.saves =1 THEN
                              Set_Block_Property('MISSION_CODE1',DELETE_ALLOWED,PROPERTY_TRUE);
                              Set_Block_Property('MISSION_CODE1',UPDATE_ALLOWED,PROPERTY_TRUE);
                              Set_Block_Property('MISSION_CODE1',INSERT_ALLOWED,PROPERTY_TRUE);
                    END IF;
          END;
========================================================
I even tried to take the concerned parts in key commit and key-delrec
but it was only disabled 4 both users and then when press exit button it saves alll changes...
========================================================
It's urgent,immediate help will be much appreciated
Thanks in advance,
Regards,
Abdetu..
==========================================================

Answer 1

Hello Christain,
i am so sorry but there was problems in the internet connections so i wasn't able to reply to u immediately..
Well,ur guidelines to Globals as they r always charaters was a new info to me that make me change:
-the query,the return values when checked or unchecked it now returns n or y in the privilage forms which affects the behaviour of the select statment in my priivilage procedure instead of returning 0 or 1 it is now returning n or y.
-most importantly,either it was n or 0 i called themas characters from any form in the (WNFI Trigger) if :GLOBAL.INSERTS ='Y'
THEN SET_ITEM_PROPERTY.....etc.
-->what do you mean with "NULL values"? plz clarify...
i am displaying messages with the returned values from the called parameters assigned to the Globals in my loginForm,so if there is a privilage checked it returns with y if not it was previously returned with null.
--i aslo changed the where condition in my privilage procedure instead of :
BEGIN
                         SELECT I
                         INTO v_inserts
                         FROM USERS_PRIVILAGES
                         WHERE USER_ID = P_USER_ID
                         AND ( I = 'Y'
                                                  p_i :=v_inserts;          
to the following :
===========
BEGIN
                         SELECT I
                         INTO v_inserts
                         FROM USERS_PRIVILAGES
                         WHERE USER_ID = P_USER_ID
                         AND ( I = 'Y'
                              or I = 'N');
                    p_i :=v_inserts;          
============================================================
Then i yahoooooo it returns with both n and y values then a college at work made the following function:
===============
FUNCTION Change_Block_Property( Block_Name In Varchar2 , Process Varchar2 , Val_Flag     Varchar2)
RETURN BOOLEAN
IS
     Block_ID BLOCK;
BEGIN
     --WRONG_ALERT('WRONG_PASS','íÌÈ ÊÕÍíÍ ÅÏÎÇá ÇáÈíÇäÇÊ');
          Block_ID := Find_Block( Block_Name);          
          IF Process = 'Insert' And Val_Flag = 'N'Then
                    Set_Block_Property(Block_ID , INSERT_ALLOWED , PROPERTY_FALSE);
                    Set_Block_Property(Block_ID , UPDATE_ALLOWED , PROPERTY_FALSE);
                    Set_Block_Property(Block_ID , DELETE_ALLOWED , PROPERTY_FALSE);
          End IF;
          IF Process = 'Query' And Val_Flag = 'N'Then
                    Set_Block_Property(Block_ID , QUERY_ALLOWED , PROPERTY_FALSE);
                    Set_Block_Property(Block_ID , DELETE_ALLOWED , PROPERTY_FALSE);
                    Set_Block_Property(Block_ID , UPDATE_ALLOWED , PROPERTY_FALSE);
                    Set_Block_Property(Block_ID , INSERT_ALLOWED , PROPERTY_FALSE);
          End IF;
          IF Process = 'Delete' And Val_Flag = 'N'Then
                    Set_Block_Property(Block_ID , DELETE_ALLOWED , PROPERTY_FALSE);
                    Set_Block_Property(Block_ID , UPDATE_ALLOWED , PROPERTY_FALSE);
                    Set_Block_Property(Block_ID , INSERT_ALLOWED , PROPERTY_FALSE);
          End IF;
     Return True;
End;
=========================================================
and called this Function from (wnfi Trigger) as:
==================================
Declare
     V_EXIST Boolean;     
BEGIN
     IF :GLOBAL.Insets = 'N' THEN
               V_EXIST := ATT_SECURITY.Change_Block_Property ( 'EMP_MISSIONS' , 'Insert' , 'N' );                                   
     End IF;
     IF :GLOBAL.Retrieves = 'N' THEN
               V_EXIST := ATT_SECURITY.Change_Block_Property ( 'EMP_MISSIONS' , 'Query' , 'N' );
     End IF;     
     IF :GLOBAL.Deletes ='N' THEN
               V_EXIST := ATT_SECURITY.Change_Block_Property ( 'EMP_MISSIONS' , 'Delete' , 'N' );
     End IF;
End;
=======================================================
To Handel the only case that return with no privilage assigned to a user
and it finallyyyy on the dead moments of losing hope the darkness of don't know how turns to light and i works fine..
==========================================================
thank u Christian u r a friend indeed,i reappologize for not beeing on line with u..
Thank u very much for the loyal help u offered to me and the useful tips to refine and optimize my code...
Kissess and Hugs Christian
====================
Best regards,
Abdetu.
=========================================================