Hem....from the main post:
"The signature of the contest entry MUST be:".....
Class codeGolf.MultiTap Extends %RegisteredObject
{
ClassMethod ToKeyPad(phrase) As %String
{
Return "" // Your solution here
}
}Is using a different variable name and quint instead of return allowed ?
Here is mine, 160
ClassMethod ToKeyPad(phrase) As %String
{
s x=$$$UPPER($zstrip(phrase,"*P",," ")) f i=1:1:$l(x){s p=$f("1****ABC2*DEF3*GHI4*JKL5*MNO6*PQRS7TUV8*WXYZ9 0",$e(x,i)),$p(r,p+3\5#10,*+p-2#5+1)=""} return r
}
160
165
More optimization: 171
Little optimization: 181
Ops! I assumed that punctuation includes blank, but looking at the test cases, it's not!
So mine is 186
Before posting the code, let's post the score 😊
Mine, so far, is 177
Another option to view/monitor opened transactions directly from System Management Portal is to use the System Dashboard (System Operation -> System Dashboard). No need to write code or SQL, just a few clicks.
In System Dashboard there is a line "Transactions":
In case one or more transactions is/are opened for more then 20 minutes (or so...) the System Dashboard shows a Troubled state.
In System Dashboard, if you click the "Transactions" label (regardless of Troubled state) then at the bottom of the page a link "Click here for more details" is displayed:
If/when "Click here for more details" is clicked a page with top 5 transactions (longer time) are displayed:
From there you can click the Process ID and go directly to the Process Details page.
Very true, but the question was:
in this case i want execute routine using BS ( Business Service )
😊
Create a Business Service that use Ens.InboundAdapter and in the OnProcessInput() method call your routine, something like:
Class Community.bs.ServiceTest Extends Ens.BusinessService
{
Parameter ADAPTER = "Ens.InboundAdapter";
Method OnProcessInput(pInput As %RegisteredObject, Output pOutput As %RegisteredObject) As %Status
{
Set result=$$getTicket^production.etl.getTicket()
Quit $$$OK
}
}
When you add the Business Service to the production set the setting CallInterval to a VERY LARGE interval (like 99999999), this ensure that the BS is called once.
In the BS settings add a schedule that starts the BS every day at 12 and stops at 13:00 (any time you are sure your call has finished), like: START:*-*-*T12:00:00,STOP:*-*-*T13:00:00
Note that no trace will be visible because the BS does not create any message, you may add some entry in the event log to track execution, something like $$$LOGINFO("Running getTicket") and possibly other info/error handling etc. (depends on your code).
The sample you are posting does not work, %JSON.Adaptor is an abstract class and cannot be instantiated, so the line:
set test = ##class(Test.Json).%New()
returns <METHOD DOES NOT EXIST> error.
In order to instantiate it you need to inherit from a non abstract class like %RegisteredObject, here is my test:
Class Community.TestJSON Extends (%RegisteredObject, %JSON.Adaptor)
{
Property bool As %Boolean;
}Then this is what I get:
set test=##class(Community.TestJSON).%New()
do test.%JSONExport()
{}Another test:
set test=##class(Community.TestJSON).%New()
set test.bool=1
do test.%JSONExport()
{"bool":true}I'm using IRIS 2023.3, same as yours.
Maybe you have a different situation than the sample you posted?
I would like to thank InterSystems for trusting me and granting me this role.
For me it's an honor to become a moderator in this passionate Community.
Stop the production before deleting it
Hi Michael,
this has been discussed in your previous question "INSERT OR UPDATE" here.
Did you check my answer there?
Does the class shown above (looks truncated) has a column that contains a unique constraint?
Can you provide the rest of your class, in particular index definitions and the INSERT OR UPDATE statement you are using?
Just realized you need/want "the entry(0).resource", then:
Set FirstResource=BundleObject.entry.GetAt(1).resource
Hi Antoine,
you are right regarding inheriting from %Persistent and Ens.Request/Response, it does makes sense in many cases!
I've edited my message to refer to your comment
Suppose you have your JSON in a stream StreamFHIR, then:
Set BundleObject=##class(HS.FHIR.DTL.vR4.Model.Resource.Bundle).FromJSON(StreamFHIR,"vR4")
If you want ONLY the first entry, then:
Set FirstEntry=BundleObject.entry.GetAt(1)
First I'd suggest not to use a persistent class "linked" to a message (Ens.Response in this case), Supplier is linked by your message class in this case.
If you do it, you will definitely create "orphaned" persistent objects when you purge, unless you add some logic (like triggers and callbacks) to delete the "linked" persistent objects when a message is purged.
To avoid this (when possible) a serial class is preferred.
So, the Supplier class would be:
Class Community.App.Msg.Supplier Extends (%SerialObject, %XML.Adaptor)
{
Property row As %Integer;
}As for the message class:
Class Community.App.Msg.Suppliers Extends Ens.Response
{
Property Supplier As list Of Community.App.Msg.Supplier(XMLPROJECTION = "ELEMENT");
ClassMethod test() As %Status
{
set XmlString="<Suppliers><Supplier><row>1</row></Supplier><Supplier><row>2</row></Supplier></Suppliers>"
set reader = ##class(%XML.Reader).%New()
$$$ThrowOnError(reader.OpenString(XmlString))
do reader.CorrelateRoot("Community.App.Msg.Suppliers")
do reader.Next(.Suppliers, .tSC)
do Suppliers.XMLExport(,",indent")
quit tSC
}
}For simplicity I modified the sample to be a classmethod.
When the test() method is run the output is:
EPTEST>d ##class(Community.App.Msg.Suppliers).test()
<Suppliers>
<Supplier>
<row>1</row>
</Supplier>
<Supplier>
<row>2</row>
</Supplier>
</Suppliers>The relevant documentation is "Controlling the Form of the Projection for Collection Properties" here.
Let me add a few notes.
If a class extend Ens.Response or Ens.Request is not necessary to extend %Persistent because is already inherited by Ens.Request/Ens.Response.
Edit: please see Antoine commnet below
If the desired XML tag correspond to the class name (without package), it is not necessary to add the XMLNAME parameter, like you did in App.Objects.Suppliers class.
Same goes for XMLNAME property parameter XMLNAME = "row" is not necessary because the property name correspond to the desired XML tag name.
Did you specified in the classpath the path to ALL required (IRIS and yours) jars?
Multiple path are separated by semicolon, looking at your post, in your case should be something like:
/usr/iris/dev/java/lib/JDK18/;<something>/tomcat/webapps/GAPP/WEB-INF/lib/notificationEngine/slf4j-simple-1.7.36.jar
As you did in the wizard, you need to add/specify the classpath to "your" jars, this can be done in the java gw definition (and seems you didn't) or in your code when you connect to the java gw.
The fact that it works after using the wizard (that add the javapath) suggest this may be the issue.
Did you add the classpath to the java gateway definition (not the import wizard) or added before you connect to the java gw?
Difficult to tell with the little info given.
Can you please provide some more detail, ideally the code you use when you say "on trying to connect"?
Did you include the classpath?
Did you start the Java Gateway?
Please check "Enabling Tracing" documentation here.
Optionally, instead of using IgnoreNull property of the reader, add to your M.PAT class:
Please check the documentation here regarding the IgnoreNull property of the reader.
- Use a Utility Method: Develop a utility method within a class that inherits from Ens.Util.FunctionSet. This method would read the source config name from the first message header in the session. You can then use this method in your router logic as it will be automagically included.
Custom utility functions used in DTL and Rules are defined in a class extending/inherits from Ens.Rule.FunctionSet, not Ens.Util.FunctionSet.
As documented here.
OK, I think I understand the question! 😊
Suppose you want to put the "source" HL7 Message SourceConfigName in MSH:Security:
In case you what to get the first message source config name:
With "Message Header" you refer to MSH segment or Ens.MessageHeader?
Ens.MessageHeader properties cannot should not be modified.