Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim ws As New NotesUIWorkspace
	Dim db As NotesDatabase
	Dim doc As NotesUIDocument 
	Dim col As NotesDocumentCollection 
	Dim res As NotesUIDocument 
	Dim found_doc As NotesUIDocument 
	Dim undoc As NotesItem 
	Dim unres As NotesItem 
	Set doc = ws.CurrentDocument
	Set db = session.CurrentDatabase
	Set col = doc.Responses 
	Set undoc = doc.GetItemValue (main_id)
	If col.Count >  0  Then 
		Set res = col.GetFirstDocument 
		Do While Not res Is Nothing 
			If res.IsResponse Then
				unres=	res.GetItemValue (par_id)
				
				If undoc.Text  = unres.Text  Then 
					Set found_doc = res 
					Call ws.EditDocument(found_doc, False,False)
					Exit Sub 
				Else
					Set res = col.GetNextDocument 
				End If
			End If
		Loop
	End If   
	
	If found_doc Is Nothing Then 
		Set found_doc = New NotesDocument(db) 
	End If
	
	found_doc.Form = "response"
	found_doc.MakeResponse(doc)
	Call ws.EditDocument(found_doc, True) 
	
End Sub

@If(@IsNewDoc; @Unavailable; $Ref)

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim ws As NotesUIWorkspace
	Dim db As NotesDatabase
	Dim doc As NotesDocument 
	Dim col As NotesDocumentCollection 
	Dim res As NotesDocument 
	Dim found_doc As NotesDocument 
	Dim undoc As NotesItem   
	Dim unres As  NotesItem 
	Set doc = ws.CurrentDocument.Document
	Set db = session.CurrentDatabase
	Set col = doc.Responses 
	Set undoc = doc.GetFirstItem ("main_id")
	If col.Count >  0  Then 
		Set res = col.GetFirstDocument 
		Do While Not res Is Nothing 
			Set unres=res.GetFirstItem ("par_id")
			If undoc.Text = unres.Text  Then 
				Set found_doc = res 
				Call ws.EditDocument(found_doc, False,False)
				Exit Do 
			Else
				Set res = col.GetNextDocument(res) 
			End If
		Loop
	End If   
	
	If found_doc Is Nothing Then 
		Set found_doc = New NotesDocument(db) 
	End If
	
	found_doc.Form = "response"
	Call 	found_doc.MakeResponse(doc)
	Call ws.EditDocument(found_doc, True) 
	
End Sub

Sub Click(Source As Button)
	Dim s As New NotesSession 
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Set db = s.CurrentDatabase
	If doc.IsResponse Then
		Call  db.GetDocumentByUNID(doc.ParentDocumentUNID)
	End If
End Sub

@If(@IsNewDoc; @Unavailable; $Ref)

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim ws As New NotesUIWorkspace 	
	Dim db As NotesDatabase
	Dim docA As NotesDocument
	Dim docB As NotesDocument 
	Set db = session.CurrentDatabase
	docA.form  = "Document" 	
	Set docB = New NotesDocument(db) 
	Call docB.MakeResponse( docA )
	docB.Form = "Response"
	Call ws.EditDocument (True, docB)
End Sub

fmain = uidoc.FieldGetText( "main_id" )
found_doc.Form = "response"
Call found_doc.MakeResponse(doc)
Call ws.EditDocument(True,found_doc) 
Call found_doc.FieldSetText ( "f2", Cstr( fmain))

@If(@IsNewDoc; @Unavailable; $Ref)

Sub Click(Source As Button)
Dim s As New NotesSession 
Dim db As NotesDatabase
Dim doc As NotesDocument
Set db = s.CurrentDatabase
Set doc = ws.CurrentDocument.Document 
Call  db.GetDocumentByUNID(doc.ParentDocumentUNID)
End Sub