I don't have a HL XML schema file? Think this was meant to create one

Thanks. Had actually been attempting without the / at the end mainly. Adding the %ALL just itself allows it to run. 

My scenario has been:

I have a training work I did and it has File adapters for HL7. It needs to look at an IN and an OUT folder. 

To do the work also access is required to put files into the IN folder and the OUT folder. Without rights it is not possible to create these folders or access it in the docker. 

I'll have  a look at extending the dockerfile to do this. 

On reading I get why you may not want to modify a container at the runtime as it's just for getting the community version running on a non production environment (not even any sort of work environment just my own personal pc) making true use of Docker it doesn't particularly matter just as long as folders and files can be created when looking at stuff. 

Thanks, now I know there isn't an easy workaround I will just temporarily start my computer using 8 cores instead of 16 in startup when I plan to use it . I had played about with volumes but adding in as well the whole windows file system on it it was just too complex. Thanks

Hi Thanks I already resolved the core issues when using docker.

I don't know how to update files on docked instance as will get an access denied type error

For iris installed locally not through docker as it would be easier to create files it errors with the core issue as haven't seen steps how to solve this on a non docker instance.

*** Recovery started at Sun Jan 31 10:25:11 2021
     Current default directory: c:\intersystems\iris\mgr
 
01/31/21-10:25:11:820 (16268) 2 [Generic.Event] Too many Cores (16) for InterSystems IRIS Community License.

Thank you. I think I had something along these lines and then due to /text html being returned went back on this. 

This is developed on 2016.1 So i can't easily exlude the _id and another property from JSON. It's not may tidy but it works

Set Body = ##class(%ZEN.proxyObject).%New()
  Set Body.Employee = pRequest.Employee
  Set Body.UserName = pRequest.UserName
  Set Body.ModuleName = pRequest.ModuleName
  Set Body.CompletionDate = pRequest.CompletionDate
  Set Body.CompletionDate = pRequest.CompletionDate
  Set Body.Source= pRequest.Source

Looking at it new JSON when we upgrade very soon it could be a lot tidier. 

The main stumbling block was all the responses i read use their own HTTP adapters. As soon as had class extending Ens.BusinessOperation, Ens.Util.JSON and using it's own adapter extending Enslib outbound like below it worked

Method PostURL(pURL As %String, Output pHttpResponse As %Net.HttpResponse, pFormVarNames As %String, pData...) As %Status [ CodeMode = expression ]
{
..SendFormDataArray(.pHttpResponse, "POST", ..GetRequest(), .pFormVarNames, .pData, pURL)
} ClassMethod GetRequest() As %Net.HttpRequest
{
    set request = ##class(%Net.HttpRequest).%New()
    set request.ContentType  = "application/json"
    quit request
}
   

Hi:

Thank you so much. I'm pretty much a complete beginner so just saying AttachStream took the full hour or so of trying to figure out how to implement it, so good learning exercise

Can you please check that this is the correct implementation? It works but I am aware I may have missed something that was obvious to it otherwise. I will mark as answer if it is correct. the variable file is the link to the attached file  

Set tStream = ##class(%Stream.FileBinary).%New()
Set tStream.Filename = file
Set tSC = msg.AttachStream(tStream,##class(%File).GetFilename(pRequest.InputData.OriginalFilename))
If $$$ISERR(tSC) {....

Hi:

Thanks, this doesn't seem to make any difference though

It turns out it wouldn't suspend because the code was quitting with a $$OK rather than the status. 

It now does suspend the message but as there was no pResponse the operation still waits 15 seconds for timeout and then doesn't display in the production viewer with the purple/red dot if there was no suspending applied. Snippets that get called are below. 

Method LookupDefault(pRequest As Penn.EDT.Messages.InputData, Output pResponse As Penn.EDT.Messages.PatientLookupResponse) As %Status
{
Quit ..DoLookup(.pResponse, sql,pRequest.NHSNumber, source)
}

Method DoLookup(Output pResponse As Penn.EDT.Messages.PatientLookupResponse, sql As %String, args...) As %Status
{
    Set tSC = $$$OK
    Set pResponse = ##class(Penn.EDT.Messages.PatientLookupResponse).%New()
        Set tSC = ..Adapter.ExecuteQuery(.rs, sql,args...)
    if $$$ISERR(tSC) {
        Do pResponse.Errors.Insert($System.Status.GetErrorText(tSC))
    } Else {
        Do ..GetResults(rs,$G(args(2)),pResponse)    
    }
    
    Quit tSC
}

}

I think the error needs to give a response to the calling object, how can i do this? 

Hi:

It is from a buisness operation  Penn.EDT.BO.ElectronicLettersLookup Extends Ens.BusinessOperation
{ Parameter ADAPTER = "EnsLib.SQL.OutboundAdapter";

I would have thought it would have suspended from the following 

Set tSC = ..Adapter.ExecuteQuery(.rs, sql,args...)
if $$$ISERR(tSC) {
Do pResponse.Errors.Insert($System.Status.GetErrorText(tSC))

Yup you're 100% spot on. 

I got this to work once there then tried to sort out the error messages and it no longer correlates before realising that my firewall was starting to block the request. 

I had a lot of errors, mainly down to to Message Definition.  Will need to sort out the firewall  issue

Final code:

Method GetGPStatus(pRequest As Penn.EDT.Messages.GetGPStatusRequest, Output pResponse As Penn.EDT.Messages.ODSGPStatus) As %Status
{
Set pResponse = ##class(Penn.EDT.Messages.ODSGPStatus).%New()
Set rdr = ##class(%XML.Reader).%New()
    set httprequest = ##class(%Net.HttpRequest).%New()
    set httprequest.SSLConfiguration = "test"
    set httprequest.Https = 1
    set httprequest.SSLCheckServerIdentity=0
    Set tSC = rdr.OpenURL("https://directory.spineservices.nhs.uk/ORD/2-0-0/organisations/"_pRequest.GPCode_"?_format=xml",,httprequest)     do rdr.Correlate("Status","Penn.EDT.Messages.ODSGPStatus") If 'rdr.Next(.gpxml,.tSC) || $$$ISERR(tSC) { If '$$$ISERR(tSC) Set tSC = $$$ERROR($$$EnsErrGeneral,"Failed to correlate GPStatus")
Quit tSC
}
set pResponse.Status=gpxml.Status
    quit tSC
}

Class Penn.EDT.Messages.ODSGPStatus Extends (Ens.Response, %XML.Adaptor, )
{ Property Status As %String(XMLNAME = "value", XMLPROJECTION = "attribute"); Storage Default
{
<Data name="ODSGPStatusDefaultData">
<Subscript>"ODSGPStatus"</Subscript>
<Value name="1">
<Value>Status</Value>
</Value>
</Data>
<DefaultData>ODSGPStatusDefaultData</DefaultData>
<Type>%Library.CacheStorage</Type>
} }
 

I'm still confused:

I have it in a class method

I can't check it actually goes in the property as it's a classmethod and see no way to test it as a method to test the ..GPStatus 

I get this now from my BO

Method GetGPStatus(pRequest As Penn.EDT.Messages.GetGPStatusRequest, Output pResponse As Penn.EDT.Messages.ODSGPStatus) As %Status
{
Set pResponse = ##class(Penn.EDT.Messages.ODSGPStatus).%New()
set reader = ##class(%XML.Reader).%New()
    set httprequest = ##class(%Net.HttpRequest).%New()
    set httprequest.SSLConfiguration = "test"
    set httprequest.Https = 1
    set httprequest.SSLCheckServerIdentity=0
    Set status = reader.OpenURL("https://directory.spineservices.nhs.uk/ORD/2-0-0/organisations/Y00334?_f...",,httprequest)
    if $$$ISERR(status) quit status
    do reader.Correlate("Status","Penn.EDT.Messages.ODSGPStatus")
   $$$TRACE(..Status)
    do reader.Next()
     $$$TRACE(..Status)
    //set pResponse.Status=obj
    
    quit status
}

Doesn't like the .Next() for some reason. 

If i try without the .next i get no value