User bio
404 bio not found
Member since Jul 1, 2019
Posts:
Replies:
Class example
Class Test.XmlContent Extends (%RegisteredObject, %XML.Adaptor)
{
Parameter XMLNAME = "Demo";
Property FieldInfoString As %String(MAXLEN = "");
Property FieldInfoEscape As %String(CONTENT = "ESCAPE", MAXLEN = "");
Property FieldInfoMixed As %String(CONTENT = "MIXED", MAXLEN = "");
}
Execution example
Set t = ##class(Test.XmlContent).%New()
Set t.FieldInfoString = "Written From : 09 , US & Test1"
Set t.FieldInfoEscape = "Written From : 09 , US & Test1"
Set t.FieldInfoMixed = "Written From : 09 , US & Test1"
Do t.XMLExportToString(.String)
Output
<Demo>
<FieldInfoString><![CDATA[Written From : 09 , US & Test1]]></FieldInfoString>
<FieldInfoEscape>Written From : 09 , US & Test1</FieldInfoEscape>
<FieldInfoMixed>Written From : 09 , US & Test1</FieldInfoMixed>
</Demo>
A business service is responsible for the following activities:
- Waiting for a specific external event (such as notification from an application, receipt of a TCP message, etc.).
- Reading, parsing, and validating the data accompanying such an event,
- Returning, if required, an acknowledgment to the external application indicating that the event was received.
- Creating an instance of a request message and forwarding it on to the appropriate business process or business operation for processing.
Link: https://docs.intersystems.com/irislatest/csp/docbook/DocBook.UI.Page.cls...
Certifications & Credly badges:
Rodolfo has no Certifications & Credly badges yet.
Global Masters badges:
Rodolfo has no Global Masters badges yet.
Followers:
Rodolfo has no followers yet.
Following:
Rodolfo has not followed anybody yet.
Create an object that extends %String, and override the VALUELIST with a class method that returns a string with comma-separated values.
Example:
Class App.X509CredentialAlias Extends %String { Parameter VALUELIST = {..GetValueList()}; ClassMethod GetValueList() As %String { Set sql = "SELECT LIST(Alias) As ValueList FROM %SYS.X509Credentials" Set resultSet = ##class(%SQL.Statement).%ExecDirect(,sql) If (resultSet.%Next()) { Return ","_resultSet.ValueList } Return "" } }
Your BPL property must be the type of the created object
Class App.bp.Test Extends Ens.BusinessProcessBPL [ ClassType = persistent, ProcedureBlock ] { Property Example As App.X509CredentialAlias; Parameter SETTINGS = "Example:App"; /* my BPL */ }