Sub Initialize
	
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim dc  As NotesDocument
	Dim doc As NotesDocument
	Dim col As NotesDocumentCollection
	Dim rc As String
	Dim status As String
	Dim UNID As String
	
	Set db = s.CurrentDatabase
	Set dc = s.DocumentContext
	rc = Join(dc.GetItemValue("request_content"), "")
	If(Len(rc) = 0) Then rc = Join(dc.GetItemValue("query_string"), "")
	
	status = getvalue(rc, "status")
	UNID = getvalue(rc, "UNID")
	
	Set doc = db.GetDocumentByUNID(UNID)
	Call doc.ReplaceItemValue("status", status)
	Call doc.Save(True, False, True)
	
	Print |Content-type: text/plain|
	
End Sub