Try:
set result = $SYSTEM.SQL.Execute("CALL osuwmc_Utils_EnterpriseDirDb.InterfaceCheckConnectMedCtrID('$Get(MedCtrID)')")
set rs = result.%NextResult()
while rs.%Next(){
set Loc = rs.Get("OSUguestRoleDTL")
}Maybe you'll need to call %NextResult() twice.
Any valid alphanumeric section name will work. For example:
Class Utils.BO Extends Ens.BusinessOperation
{
Property MySetting;
Parameter SETTINGS = "MySetting:My Custom Category";
}
Will create a new My Custom Category for this business host:
.png)
Settings names can be localized by following this guide (categories too probably, but I haven't tried). Domain would be Ensemble.
I think you can guarantee that the picked list would:
And do it in O(2n) where n is list count (assuming lists are of similar length).
Before anything, zero-init a list for each number (called a number list). You'll need to do two passes over your lists.
On a first pass, check each list value against your number list. If at least one corresponding value in a number list is a zero (meaning our current list has a number we did not encounter before), add the list to the result and increment each position in a number list that is present in a current list by 1.
In our case:
Numbers: 0, 0, 0, 0, 0, 0, 0, 0, 0
List(1)="3,5,6,7,9"
As Numbers(3)==0, we add List(1) to the output and modify Numbers:
Numbers: 0, 0, 1, 0, 1, 1, 1, 0, 1
In a similar vein, we iterate all our lists (and add all of them, actually); our Numbers after the first pass should look like this:
Numbers: 1, 2, 1, 2, 2, 3, 2, 2, 4
Lists: 1, 2, 3, 4, 5
Now do a second pass, only over lists added on a first pass. If every element in a list has a value >1 in a number list, remove the list and decrease the corresponding number list by 1.
List(1)="3,5,6,7,9"
Numbers: 1, 2, 1, 2, 2, 3, 2, 2, 4
Numbers(3)==1, so this list remains.
List(2)="1,2,6,9"
Numbers(1)==1, so this list remains.
List(3)="5,8,9"
Numbers(5)==2>1, Numbers(8)==2>1, Numbers(5)==4>1, so we are removing this list, new numbers:
Numbers: 1, 2, 1, 2, 1, 3, 2, 1, 3
List(4)="2,4,6,8"
Numbers(8)==1, so this list remains.
List(5)="4,7,9"
Numbers(4)==2>1, Numbers(7)==2>1, Numbers(9)==3>1, so we are removing this list, new numbers:
Numbers: 1, 2, 1, 1, 1, 3, 1, 1, 2
Lists: 1, 2, 4
This, however, does not guarantee that it's a minimum amount of lists, but entirely superfluous lists would be removed, and all possible numbers would be present (have at least one reference in a number list).
Another way I thought it could be resolved is by transposing the lists into numbers like this:
Number(1)=$lb(2)
Number(2)=$lb(2, 4)
Number(3)=$lb(1)
Number(4)=$lb(4, 5)
Number(5)=$lb(1, 3)
Number(6)=$lb(1, 2, 4)
Number(7)=$lb(1, 5)
Number(8)=$lb(3, 4)
Number(9)=$lb(1, 2, 3, 5)
After that is done, any number with just one reference must be picked (meaning it's present in only one list). In our case, numbers 1 and 3, resulting in picking lists 2 and 1.
All numbers in lists 1 and 2 must also be picked: 1, 2, 3, 5, 6, 7, 9
Next, we delete Numbers that we already picked, leaving us with:
Number(4)=$lb(4, 5)
Number(8)=$lb(3, 4)
From the remaining Numbers, we need to remove lists that we already picked (so 1 and 2), but in your example, they are not present anyway.
However, after this cleanup, we might encounter a situation where a number is present in only one list. In that case, the first step needs to be redone again until we arrive at a situation where no number is present only in one list, so in our case:
Number(4)=$lb(4, 5)
Number(8)=$lb(3, 4)
After that, pick a list with the largest amount of different numbers - 4 in our case and repeat from the beginning. Eventually, you'll arrive at empty Numbers local, meaning the task is complete.
Inherit from %JSON.Adapter?
Starting from 2024.1 IRIS Native disallows routine invocations. Please use class methods instead.
For reference, these changes can be identified as DP-422635 and DP-424156.
That's convenient!
In the main method of EnsLib.HTTP.OutboundAdapter - SendFormDataArray line 5 you can see the following code:
#; Create an Http Request Object
Set tHttpRequest=$S($$$IsdefObject(pHttpRequestIn):pHttpRequestIn,1:##class(%Net.HttpRequest).%New()) $$$ASSERT($IsObject(tHttpRequest)&&tHttpRequest.%IsA("%Net.HttpRequest"))
Which creates a new empty %Net.HttpRequest object, unless pHttpRequestIn (3rd arg) has been passed with a custom request object. Most wrapper methods (VERB, VERBURL and VERBFormDataArray) do not pass pHttpRequestIn so you should get a fresh request object every time, but SendFormData and SendFormDataURL would pass pHttpRequestIn from caller, if given.
Another place to look into is a Send call:
Set tSC=tHttpRequest.Send($ZCVT(pOp,"U"),$G(pURL,..URL),..#DEBUG)It has the following signature:
Method Send(type As %String, location As %String, test As %Integer = 0, reset As %Boolean = 1) As %Statusreset arg defaults to 1, and when it's true the Reset method of %Net.HttpRequest is called after every request. Reset method removes headers (among other things). As you can see in the implementation:
Kill i%Headers,i%FormData,i%ParamsEnsLib.HTTP.OutboundAdapter never calls Send with reset=0, so the request should be reset every time.
That said, how do you call SendFormDataArray?
I took a look at the article you linked to. Can you add logging to GetRequest method? It should be called on every business operation message.
Hello.
I agree it works great for ObjectScript code, but it sits at an empy method invocation unfortunately. And I need not even my method, but library calls.
Move global/subscript to RO DB and collect <PROTECT> errors.
How about the following setup:
Notes:
The advantage here is that you can scale to any number of jobs immediately and since you enforce FIFO only at the end, most of the processing can be parallelized.
Yes, thank you.
There's no guarantee that BP with PoolSize=1 would process messages in enqueued order. That is only true for BOs, for BPs it's only true that message processing would start in the enqueued order. That might be (or might be not) a good enough guarantee for you depending on your use case.
An approach I saw used to guarantee FIFO for BP is to add an intermediate BP with PoolSize=1 which sends a sync request to your target BP and waits for an answer.
Can you elaborate on a Message key, please? Is it a random or a categorical division? Why three specifically and not some other number?
What we were considering doing is increasing the pool size to 3 and programmatically creating a BPL on each thread that processes messages that would be directed to it, rather than having to create multiple BPLs into the production.
What do you want to achieve with that change?
You'll need to implement %OnValidateObject callback to do custom checking.
%Library.RoutineMgr_StudioOpenDialog is a useful query!
Originally I started writing something similar, but went into %Dictionary package instead, which of course created issues for me about System and Mapped classes, so I decided to go a different way (ended with what's presented in this article).
With your approach I'll advice first building a list of classes to delete and then passing it to $SYSTEM.OBJ.Delete - it will be faster than deleting classes one by one. That said usually deletions are small in number (or at least in frequency) so speed does not really matter here.
PropertyClass is for registered objects, not datatypes themselves.
Thank you, Ben!
LoadDir returns loaded list with extensions (.cls) but Delete accepts only wildcards without extensions.
If not for that minor detail, it would be a completely trivial two-liner. But accounting for this requires some interesting $LFS/$LTS wrangling in the middle.
How do you keep production running during update in that case?
If the class to delete is persistent, include the 'e' flag or '/deleteextent' qualifier to delete the extent data and extent metadata.
Hello, @Enrico Parisi!CSP On in Virtual Hosts is not supported by Web Gateway means that Web Gateway does no request disambiguation based on a Virtual Host and will process any request passed by Apache.
However, Apache does Virtual Hosts request validation and won't pass a request to a Web Gateway if there's no corresponding CSP On directive.
1 outputs but does not send the request, so just call Send with 1 first, then with 2 to get both request and response.
I don't think you'll get much from parallelization with * in SELECT. Calling @Benjamin De Boe
Quick question about the port. Is it the standard port the IRIS instance is running on?
Yes, 1972 is a default Super Server port.
I do not need an external language server connection on the host?
External language servers talk to Super Server, so in a case of IRIS to IRIS we can just talk to Super Server directly.
Local:
Do ##class(%SYS.Namespace).ListAll(.result)Convert xml to FHIR object:
Set payload=##class(HS.FHIR.DTL.vR4.Model.Resource.Organization).FromXML(FHIRxmlStream)Here's how to do it (sample code to transfer files over iris connection):
/// Get IRIS connection object
/// set iris = ##class().GetIRIS()
ClassMethod GetIRIS() As %Net.DB.Iris
{
Set host = "host"
Set port = 1972
Set ns = "%SYS"
Set user = "_SYSTEM"
Set pass = "***"
Set connection = ##class(%Net.DB.DataSource).CreateConnection(host, port, ns, user, pass)
Set iris = connection.CreateIris()
Quit iris
}
/// Transfer one file from sourceFile to targetFile on iris connection.
ClassMethod Transfer(iris As %Net.DB.Iris, sourceFile As %String, targetFile As %String) As %Status
{
Set sc = $$$OK
Try {
Set stream = ##class(%Stream.FileBinary).%New()
Do stream.LinkToFile(sourceFile)
Set var = "%stream"
Do iris.ClassMethodVoid($classname(), "InitStream", var, targetFile)
While 'stream.AtEnd {
Set chunk = stream.Read($$$MaxStringLength-1000)
Do iris.ClassMethodVoid($classname(), "WriteStream", var, chunk)
}
Do iris.ClassMethodVoid($classname(), "SaveStream", var, ##class(%File).Attributes(sourceFile))
}
Catch ex{
Do ##class(%SYS.System).WriteToConsoleLog("SuperServer Copy failure in Transfer:" _ ex.DisplayString())
Throw ex
}
Quit sc
}
/// Initialize stream for subsequent write requests and place it in var.
/// var must be a global variable (start form %)
/// file is created or truncated if already exists
ClassMethod InitStream(var As %String, file As %String)
{
Try {
Do ##class(%File).Truncate(file)
Set stream = ##class(%Stream.FileBinary).%New()
Do stream.LinkToFile(file)
Set @var = stream
} Catch ex{
Do ##class(%SYS.System).WriteToConsoleLog("SuperServer Copy failure in InitStream: " _ ex.DisplayString())
Throw ex
}
}
/// Wrile string into a stream initialized by InitStream
ClassMethod WriteStream(var As %String, string As %String)
{
Try {
Do $method(@var, "Write", string)
} Catch ex{
Do ##class(%SYS.System).WriteToConsoleLog("SuperServer Copy failure in WriteStream: " _ ex.DisplayString())
Throw ex
}
}
/// Save stream initialized by InitStream.
/// Optionally sets file attributes.
ClassMethod SaveStream(var As %String, attributes As %String = "")
{
Try {
Set sc = $method(@var, "%Save")
Set file = $property(@var, "Id")
Kill @var
Do:attributes'="" ##class(%File).SetAttributes(file, attributes)
} catch ex {
Do ##class(%SYS.System).WriteToConsoleLog("SuperServer Copy failure in Savetream: " _ ex.DisplayString())
Throw ex
}
}Use ClassMethodValue to get a scalar value back. Use json for complex type transfer as objects are not supported. There are other methods corresponding to APIs in other languages.
Also please note that this class (technically only the callee *Stream methods but save yourself a headache and just copy the entire class) needs to be present on both nodes.
Finally, remember that callee methods must produce no stdout/stderr writes, since the io is bound to the iris connection itself and it cannot disambiguate stdout.
new $namespace set $namespace = "%SYS"