All
Accepted answers
Dmitrii Baranov 路 May 20, 2023 go to post

Got it! Now I'm struggling with adding a value to that array. Would it be correct?

set arr(arr + 1) = value
Dmitrii Baranov 路 May 20, 2023 go to post

Thanks Robert. 

> args = number of params

Arrays in IRIS are counterintuitive 馃槬

Dmitrii Baranov 路 May 17, 2023 go to post

Here it is:

Class MyHL7HTTPService Extends EnsLib.HL7.Service.HTTPService
{

Method OnAdapterHTTPResponse(
	ByRef pStatus As %Status,
	ByRef pHTTPResponseStatus As %String,
	ByRef pBodyLen As %Integer,
	ByRef pResponseBodyStream As %Stream.Object,
	ByRef pMainResponseHeader As %String,
	ByRef pHeaderExtra As %String)
{
    set pHeaderExtra = pHeaderExtra _ "Access-Control-Allow-Origin: *"_ $char(13) _ $char(10) 
                                    _ "Access-Control-Allow-Headers: *" _ $char(13) _ $char(10) 
                                    _ "Access-Control-Allow-Methods: *" _ $char(13) _ $char(10)
}

}
Dmitrii Baranov 路 Apr 30, 2023 go to post

Finally, I've implemented the following brute solution. I don't like the look of this at all, but it works

ClassMethod test() As %Status
{
  #dim request as %CSP.Request
  set request = %request

  #dim headerName as %String
  set headerName = ""
  set headerName = request.NextCgiEnv(headerName)
  while (headerName '= "") {
    if $find(headerName, "HTTP_") '= 0 {
      set localHeaderName = $replace(headerName, "HTTP_", "")
      set localHeaderName = $replace(localHeaderName, "_", "- ")
      set localHeaderName = $zconvert(localHeaderName, "L")
      set localHeaderName = $zconvert(localHeaderName, "W")
      set localHeaderName = $replace(localHeaderName, "- ", "-")
      write localHeaderName, ": ", request.GetCgiEnv(headerName), !
    }
    set headerName = request.NextCgiEnv(headerName)
    }
    return $$$OK
}

Dmitrii Baranov 路 Mar 21, 2023 go to post

I need to find a reason of a performance bug in the source code of the original class :) 

Dmitrii Baranov 路 Jan 9, 2023 go to post

Thanks, I caught your idea but no, IIS is not a cause, although the issue exists in Windows but not in Linux

Dmitrii Baranov 路 Jan 8, 2023 go to post

I'm using Postman, the default Accept header value was */*, then according your advice I tried application/json, then application/fhir+json, both not working, IRIS still produces HTML

<div id="content">
		<div class="content-container">
			<fieldset>
				<h2>500 - Internal server error.</h2>
				<h3>There is a problem with the resource you are looking for, and it cannot be displayed.</h3>
			</fieldset>
		</div>
	</div>
Dmitrii Baranov 路 Nov 6, 2022 go to post

Thanks but I doubt it's a license issue. The IRIS installer creates another log in C:\Windows directory, and it also contains no useful information. At some point the installation process just hangs as well as the log file stops growing.

Dmitrii Baranov 路 Nov 5, 2022 go to post

UPD1: launched the installation package via the "Run as administrator" menu item. Now the messages.log file contains the following diagnostics info:

- on Ryzen 3900 - the processor has too many cores which is not allowed by Community edition license

- on Athlon 3000G the error message is less informative: `11/06/22-01:06:28:788 ( 5200) 3 irisctl.dll (error during startup):(289) IRIS failed to start.  IRIS Control Process terminated abnormally (exit code = 0).`

Dmitrii Baranov 路 Nov 5, 2022 go to post

I know about messages.log, but in my case it's pretty short (~2kb) and contains no useful trace info :( There are workarounds with Docker and VMs, both approaches work

Dmitrii Baranov 路 Nov 5, 2022 go to post

Laptop - Windows 11 

AMD workstations - Windows 10 Home (official OEM, with fresh updates)