set bii=$p(pStreamIn.GetAttribute("content-type"),"=",2)
	set message=##class(%Net.MIMEPart).%New()
	set reader=##class(%Net.MIMEReader).%New()
	Do reader.OpenStream(pStreamIn)
	set a=0
	while a'=1
	{
		Set sc=reader.readHeader(.message,1)
	    Set sc=reader.readBody(message,bii,.a)
	    $$$LOGINFO(message.GetHeader("Content-Type"))
	    $$$LOGINFO($p(message.GetHeader("Content-Disposition"),"""",2))
	    $$$LOGINFO(message.Body.Read())
	}