Preventing conflicts when updating parent from response

I searched the common forums, but could not find any working solutions. Several suggested closing the parent first, but that is harder than it sounds for a variety of reasons. Finally, I came up with the code below, which does the trick and has lots of other little gems for this type of functionality.

Code

Create an action on the parent document to create the response document and only allow the response to be created through this action. Put the following code in the action (note that this does not actually create a document -- it only sets a flag that will be detected in the QueryClose event):

FIELD CreateResponse := 
CreateResponse;

@If(@IsDocBeingEdited; ""; 
@Command([EditDocument]));

@If(
 @IsValid;
 @Do(
  @SetField("CreateResponse"; "Y");
  @PostedCommand([FileSave]);
  @PostedCommand([FileCloseWindow])
 );
"");

Sub Queryclose(Source As 
Notesuidocument, Continue As Variant)
 
 Dim uiwork As New notesuiworkspace 
 Dim doc As NotesDocument
 Set doc = source.Document
 
 If source.EditMode Then
  'Reload to be sure to get the flag
  'Not sure if this is necessary
  Call Source.Reload
 End If
 
 If doc.CreateResponse(0) = "Y" Then
  Call uiwork.ComposeDocument
( "", "", "Response" )
  'Clear the flag so it doesn't do it 
the next time the document is closed.
  doc.CreateResponse = ""
  Call doc.Save( False, False )
 End If
 
End Sub

Sub Querysave(Source As 
Notesuidocument, Continue 
As Variant)
  'Open parent in edit mode
  If source.IsNewDoc Then
   doc.GetParent = "Y"
  Else
   doc.GetParent = ""
  End If
End Sub


Sub Queryclose(Source As 
Notesuidocument, Continue 
As Variant)
 Dim session As New notessession
 Dim db As notesdatabase
 Dim uiwork As New notesuiworkspace  
 Dim uidoc As NotesUIDocument
 Dim doc As NotesDocument 
 Dim parent As notesdocument 
 
 Set doc = Source.Document
 Set db = session.CurrentDatabase
 
 If doc.GetParent(0) = "Y" Then
  Set parent = db.GetDocumentByUNID
( doc.ParentDocumentUNID )
  If Not (parent Is Nothing) Then
   Set uidoc = uiwork.EditDocument
( False, parent )
  End If
  doc.GetParent = ""
  Call doc.Save( False, False )
 End If
End Sub

Do you have comments on this tip? Let us know.