Text dropped in LS tracer

Have the code below which I converted to script last year and it was working fine. Now for some reason it is only producing the test below in the email. I have looked thru it but am not sure why it is not getting all the data. What am I missing here.

This is all I get:  An IBPC Refresh survey has been submitted for

Sub Click(Source As Button)
	    ' get and save the current document
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim email As New NotesDatabase("", "")
	Dim doc As NotesDocument, memo As NotesDocument
	Dim body As NotesRichTextItem
	Set uidoc = ws.CurrentDocument
	If (uidoc.EditMode) Then Call uidoc.Save
	Set doc = uidoc.Document
	uidoc.EditMode = True
 
	Call email.OpenMail
	Set memo = email.CreateDocument
	memo.Form = "Memo"
	memo.Subject = "IBPC Refresh Survey for " & doc.GetItemValue("office_num_adjusted")(0) & " has been submitted"
	memo.SendTo = "Field Technology"
	memo.CopyTo = ""
	
        ' add a body and a doc link
	Set body = memo.CreateRichTextItem("Body")
	Call body.AppendText( "An IBPC Refresh Survey for " & doc.GetItemValue("office_num_adjusted")(0) & " has been submitted" )
	Call body.AddNewLine( 2 )
	Call body.AppendText("Does the conference room have enough space for 10-15 devices and can be reserved for the entire time?  " & doc.GetItemValue("conf_room")(0))
	Call body.AddNewLine( 2 )
	Call body.AppendText("Does the room referenced above have an active datajack for network connectivity?  " & doc.GetItemValue("data_jack")(0) )
	Call body.AddNewLine( 2 )
	Call body.AppendText("Who will be the On-Site Assistant (OSA) for this location?  " & doc.GetItemValue("osa")(0) )
	Call body.AddNewLine( 2 )
	Call body.AppendDocLink(doc, "", "")
	Call uidoc.FieldSetText("status", "Survey Complete")
	Call uidoc.FieldSetText("survey_flag", "done")
	Call uidoc.Save
	
        ' send the memo and close the form
	Call memo.Send(False)
	Call uidoc.Close(True)
End Sub

Select allOpen in new window