Refreshing a view question 6.5.1 - view not refreshed when command executed in lotusScript

Hello...I do not have a lot of experience here....obviously...

I have a view that selects a specific form type with a status != "Deleted".......I double click to bring up the form and select a action button on this form that allows me to change the status to "Deleted".  I then exit the form and return to the view and the document is still visiable.  If I press f9 to refresh, it disappears.

I have tried executing a refresh of the view in the action button script (on the form), right after ths status is changed to "Deleted" and the doc is saved.

I follow it through debugger...the refresh is executed, but doesn't  happen.  The problem could be glaring, but I can't see it.....

Any help is appreciated....

view name is - Pymts by Check
SELECT FORM = "PP" & ProdREQ_Status != "Deleted"

On the PP form I have this button -

Sub Click(Source As Button)
      Dim workspace As New NotesUIWorkspace
      Dim uidoc As NotesUIDocument
      
      Dim doc As NotesDocument
      Dim response As Integer
      Dim db As NotesDatabase
      Dim session As New NotesSession
      Dim PBCview As NotesView
      Set db = session.CurrentDatabase
      
      Set PBCview = db.GetView("Pymts by Check")            
      
      Set uidoc = workspace.CurrentDocument
      Set doc = uidoc.document
      
      
      If ((doc.PP_Payment_Confirmed(0) = "No")) Then
            response = workspace.Prompt (PROMPT_YESNOCANCEL, "Delete Payment" , "DeleteThis Payment?")
            If response = 1 Then
                  Call uidoc.Close(True)
                  doc.ProdREQ_Status = "Deleted"
                  Call doc.Save(True,False)      
                  Messagebox "Payment Marked for Deletion", , "Delete Payment"
                  Call PBCview.Refresh
                  Exit Sub
            End If      
      End If      
      If ((doc.PP_Payment_Confirmed(0) = "Yes")) Then
            Messagebox "Payment Confirmed - Deletion Not Permitted", , "Delete Payment"
      End If
End Sub