Just an update I have tried the following however, the MSH segment seems to be getting overwritten, any ideas why?

s tMsg = ##class(EnsLib.HL7.Message).%New()
s tMsg.DocType ="2.3.1:DFT_P03"
s tSeg = ##class(EnsLib.HL7.Segment).%New()
set tSeg.DocType="2.3.1:PID"
s tsc = tMsg.SetValueAt("abc","MSH:9")
s tsc = tSeg.SetValueAt("PID","1")
s tsc = tSeg.SetValueAt("TEST","3.1")
set tsc=tMsg.SetSegmentAt(tSeg,2)
w tMsg.OutputToString()

I have also tried set tsc=  tMsg.AppendSegment(tSeg) which seems to be overwriting the MSH segment.

Any help would be great.

Hi

This is what my business operation looks like method looks like.

Method GetResultspRequest As GOSHPackage.Messages.PPID.Request.MyRequest, Output pResponse As GOSHPackage.Messages.PPID.Response.MyResponse) As %Status
{
Set tSC = $$$OK
Set pResponse = ##class(GOSHPackage.Messages.PPID.Response.MyResponse).%New()
Try
{
Set tSC = ..Adapter.Connect()
Throw:($$$ISERR(tSC))
Set tSC = ..Adapter.SetAutoCommit(1)
Throw:($$$ISERR(tSC))
$$$LOGINFO("2")
Set tQuery = "SELECT top 3 surname, forename FROM [dbo].[tblTest]"
//set tQuery =..Adapter.Query
$$$LOGINFO("3")
Set tSC = ..Adapter.ExecuteQuery(.tResults,tQuery,)
Throw:($$$ISERR(tSC))
set snap=##class(EnsLib.SQL.Snapshot).%New()
set tSC = tResults.GetSnapshot(.snap)
set pResponse.TestRS =snap
Throw:($$$ISERR(tSC))
$$$LOGINFO("5")
}
Catch tException
{
Set tSC = ##class(%SYSTEM.Status).Error(tException.AsStatus,tException.Name_" Threw an Error "_tException.DisplayString)
}                                                                          
Quit tSC
}

This populates the snapshot however when I am trying to get the response back in to the BPL I get the following error

ERROR <Ens>ErrBPTerminated: Terminating BP PPID Shadow Processor # due to error: ERROR <Ens>ErrException: <INVALID OREF>zOnResponse1+2^GOSHPackage.Process.PPID.PPIDShadowProcess.Context.1 -- logged as '-' number - @' Set status=1,context.TestRS=callresponse.TestRS' > ERROR <Ens>ErrException: <INVALID OREF>zOnResponse1+2^GOSHPackage.Process.PPID.PPIDShadowProcess.Context.1 -- logged as '-' number - @' Set status=1,context.TestRS=callresponse.TestRS'

I am unsure whether this is the right approach, any help would be appreciated.

Thank you.

Salma

Hi All,

Thank you all for your comments, I am currently using 2017.1 of Healthshare/Healthconnect, I am assuming I can use Atelier with this version.  How different is Atelier to studio and are there downsides to using Atelier.  Thank you so much for your help.

Kind Regards,

Salma

Salma

Hi Both,

Thank you for the suggestions, the fundamental requirement is that the PDF file needs to reach the target folder before the xml.  Also these files come in pairs so before processing it is important to check that the matching xml actually exists.  What I ended up doing was once the check was complete move the xml file in to a secondary folder which was getting polled by another business service, the xml would only reach the secondary folder once the PDF had been processed and archived this resolved the issue but again I am not sure whether it was the right solution.

I will give your suggestion a go too.  Thanks again for your help.

Kind Regards,

Salma

Hi

The issue of having this code within the business process is that there is no transparency in doing a copy over, so I personally don't think that this is the best approach, there must be a better way if someone can recommend the correct way of transferring a file from a business process to a business operation that would be great.

Kind Regards,

Salma

Hi

The issue of having this code within the business process is that there is no transparency is doing a copy over, so I personally don't think that this is the best approach there must be a better way.

Kind Regards,

Salma

Hi ,

What I have done is using code I have copied the associated xml file to the target folder. I am not sure whether this is the best approach for doing a task like this.

The code snippet used to achieve this is below:

  //copy to target directory

  set targetFilePath= "\\serverName\targetPath\" _ context.XMLFileName
 
  set archiveFilePath = "\\serverName\archive\" _ $PIECE(context.XMLFileName,".",1) _$ZDATE($H,8)_".xml"
 
  set res=##class(%Library.File).CopyFile(context.XMLFilePath,targetFilePath)
  //Move file to archive folder with filename
  set res=##class(%Library.File).CopyFile(context.XMLFilePath,archiveFilePath)
 
  //compare that the files are the same and then delete
 
  if (##class(%Library.File).Compare(context.XMLFilePath, targetFilePath))
  {
    //delete from the current filepath
    do ##class(%Library.File).Delete(context.XMLFilePath)
  }

Is this the best approach or could you suggest a better approach?

Kind Regards,

Salma

hi

I was thinking maybe it can be achieved by opening a file using a filepath or using an inbound file passthrough adapter and giving it a particular filename to process but I don't think that would be the right approach?  Any help would be appreciated.

Kind Regards,

Salma