How to open the document based on user roles?

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim acl As NotesACL
	Dim entry As NotesACLEntry
	Dim np As Variant
	Set db = session.CurrentDatabase
	Set acl = db.ACL
	Set entry = acl.GetEntry( session.UserName )
	Set uidoc = ws.CurrentDocument
	
	np = uidoc.FieldGetText("Notify")
	If ( entry Is Nothing ) Then
		continue = False
	Elseif Not ( entry.IsRoleEnabled( "DHSG" )=np) Then 
		continue = False
	End If
End Sub
 
===============================================================
Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
	Dim curdoc As notesdocument
	Dim item As notesitem
	Dim session As New notessession
	
	
	Set curdoc=Source.document
	Set item=curdoc.getfirstitem("editaccess")
	
	If Not (source.editmode) Then
		For x=0 To Ubound(item.values) 
			If session.username<>item.values(x) Then
'do nothing
				k="no"
			Else
				k="yes"
				continue=True
				Goto memberofgroup
			End If
		Next
		If k="no" Then
			Msgbox "You can only read this document"
			continue=False
			End
		End If
memberofgroup:
		Msgbox "You are going to make changes to this document!"
		continue=True
		
	End If
End Sub