Class main.PatchExport Extends %RegisteredObject
{

ClassMethod Create(ien = 12450) As %Status
{
 Set irisstream=##class(%GlobalCharacterStream).%New()
 Set IENI=(ien) For
    {
    Set IENI=$Order(^["IRIS"]XPD(9.7,IENI)) Quit:+IENI=0
    Set NAMEI=$Piece(^["IRIS"]XPD(9.7,IENI,0),"^",1)
    Continue:$Extract(NAMEI,$Length(NAMEI))="b"
    Do irisstream.WriteLine(IENI_"^"_NAMEI)
    Write IENI_"^"_NAMEI,!
    }

 // Edu2 Server Open Source Vista
 Set ssh = ##class(%Net.SSH.Session).%New()
 Set host="hostserver"
 Set port="port"
 Set username="username"
 Set password="password"
 Do ssh.Connect(host,port), ssh.AuthenticateWithUsername(username,password)
 For loop=1:1:3 { Set success=ssh.OpenSFTP(.SftpFso) Quit:success  Hang 5 }
 Do SftpFso.PutStream(irisstream,"/home/ben/vista/birtns/ipl.txt","0666")
 Do SftpFso.CloseSFTP()

 Quit $$$OK
}

}