Hi @Scott Roth 

You can do in the BS, but in my opinion use the common approach sending a message from the BS to a BO. In the BO you insert the data into internal table, with this approach you have how to trace data if some error occur.

Hi Isayas,

You need to use TCP Client Server Communications (commands Open, Use, Read, Write) you can get information about this in the documentation https://docs.intersystems.com/iris20243/csp/docbook/DocBook.UI.Page.cls?KEY=GIOD_tcp.

In the OpenExchange exists a simple sample developed  by @Robert Cemper . Follow https://openexchange.intersystems.com/package/Simple-remote-server-control

Regards.

@maxime keltsma 

You can traverse the entire global with a loop and $Order function.

A simple routine to traverse your global can be:

Teste
    Set ^DataTest = 3
    Set ^DataTest(1) = $lb("","1329","JMMK-G1D6")
    Set ^DataTest(2) = $lb("","1516","AMEV-GVPF")
    Set ^DataTest(3) = $lb("","2333","4QC6-4HW3")
    Set key = ""
    // Print the header filds
    Write "Reference", $Char(9), "Code"	, !	
    For   
    {
        // first parameter is global and key, 
        // second parameter opredr to travers globa. 1 = ascending subscript order (the default) or –1 = descending
        // third is target that receives the value if the key is defined
        Set key = $Order(^DataTest(key),  1, data)
        If (key = "")
        {
            Quit // Exit for loop
        }
        Set reference = $ListGet(data, 2)
        Set code = $ListGet(data, 3)
        //
        Write reference, $Char(9), code, !
        
    }

Output o execution:

> Do Teste^Teste
> Reference Code
> 1329 JMMK-G1D6
> 1516 AMEV-GVPF
> 2333 4QC6-4HW3

See Using Globals Object Script Tutorial , $Order Function for more examples e details.

Hi William,

In SMP go to Interoperability->Interoperate->ASTM->ASTM Schemas Structures

Via Studio go to File->OpenFile, filter by AST Document "*.ast"

Hi @Mohammed Alhato 

The error tell that the class *User.IRISPRODTEST does not exists, did you compile this class?

Hi @Scott Roth 

Like the @Jeffrey Drumm told, the problem are because the Database ENSLIB are Read Only. The error occur because you are using the Macros $$$FormatText and $$$Text.

When you use $$$Text macro, the macro try to create a entry in the global ^IRIS.Msg. The global ^IRIS.Msg is mapped from ENSLIB database that is by default Read Only. See imagem bellow that the ^IRIS.Msg("ENSEMBLE") is mapped, but the root global ^IRIS.Msg is mapped to the namespace data base.

To solve the compilation error do change calls to $$$Text("some text", "Ensemble") for some think like $$$Text("some text", "MyDomain")

Click in Replace all

Then compile:

For more information see the documentation String Localization and Message Dictionaries

Regrads.

Hi @Punit Shah 

Use the method LinkToFile below a example.

C:\temp before create the file:

Execute the code

Set file = ##Class(%Stream.FileBinary).%New()
Set statusCode = file.LinkToFile("c:\temp\test_file.txt")
If ($System.Status.IsError(statusCode))
{
  Do $System.Status.DisplayError(statusCode)
  Return
}
Do file.WriteLine($ListBuild("Some bin data"))
Write $System.Status.DisplayError(file.%Save())

After execution:

• only uninstall option is the unattended section at https://docs.intersystems.com/ens201817/csp/docbook/DocBook.UI.Page.cls?...

You can use add or remove programs too.

• would I be correct to interpret 'CacheC' in the example command as the instance name of the Ensemble installation to be uninstalled? Or is that the folder name on the filesystem where it is in installed?

Is the instance name.

• Not familiar with Windows Registry editing, so can I safely delete those two trees in the registry if i want a completely fresh start?

After uninstall and if you have only one installation yes.
 

Hi Pedro,

You can retrieve this information querying the class %Dictionary.PropertyDefinition.

An example:

SELECT Name
FROM %Dictionary.PropertyDefinition
WHERE parent = "mypackage.MyClassName"

The field parent is fully qualified name of the class that you want to list properties name. 

HI @Freddy Baier 

You can change your query, given alias to the columns:

SELECT id,room,client->name as ClientName,functionary->name as FunctionaryName FROM rooms ORDER BY id

Then in COS you access the columns by name:

Write rs.%Get("ClientName")
Write rs.%Get("FunctionaryName")

Thanks @Enrico Parisi form complementary answer.

@Rob Schoenmakers You can query both tables:

Hi @William Glover 

I think that is not possible to do via Atelier API.

See the documentation about how to deploy a class. Other way is to deploy to file that only treat compiled code. 

Hi @Rob Schoenmakers 

The class that store alerts are  Ens.AlertRequest

Hi @Mark Sharman

In the Iris, the global where localized labels reside is ^IRIS.Msg("EnsColumns"):

This global is mapped from ENSLIB database that is read only, You can't set value to this Global. 

Uncheck the Mount Read-Only option, save then you can set the value of global:

I recommend that after you finish the configuration, comeback ENSLIB database to read only. 

Hi @prashanth ponugoti 

Are you using the Private Webserver? If yes this can be the issue, because InterSystems don't recommends then use of Private Webserver in production environment. Bellow a snippet of documentation:

Conclusion

If you expect very low volume of HTTP traffic, have limited demands for high availability and secure operation, the private web server may be suitable for your development and testing needs. However, for production use, InterSystems recommends installing your own separate copy of Apache, ideally on its own server, and configuring it to use our Web Gateway to communicate with InterSystems products. If you expect a high amount of HTTP traffic, require high availability in your web server, need to integrate with other sources of web information, or need a high degree of control over your web server, you should not use the private web server.

See the documentation:  Application Use Of InterSystems Web Server

For production environment install a Webgateway in a separate machine/container if possible.

Installing the Web Gateway

Regards.

Hi @Martin Staudigel 

Create a custom client class, then override the method InvokeRequest. In the method set the property SSLCheckServerIdentity  of private property %HttpRequest to false .

Bellow a simple example:

Class User.FHIRRestClient Extends HS.FHIRServer.RestClient.HTTP
{

/// @API.Overridable<br>
/// InvokeRequest takes the Private %HttpRequest object - passed in as pRequest here -
/// and invokes the request. The HTTP response is stored as the HttpResponse property
/// of the HTTP request object. This method returns a reference to that property.<br>
/// @Input pRequest %Net.HttpRequest object.<br>
/// @Input pRequestMethod HTTP verb.<br>
/// @Input pPayload Input payload content, can be FHIR resource content or Patch content.<br>
/// @Input pRequestPath Request path, as derived by the invoked interaction-specific method.<br>
/// @Input pQueryString Query string, as derived by the invoked interaction-specific method.
Method InvokeRequest(pRequest As %RegisteredObject, pRequestMethod As %String, pRequestPath As %String, pQueryString As %String) As %RegisteredObject
{
  Set ..%HttpRequest.SSLCheckServerIdentity = 0
  Return ##Super(pRequest, pRequestMethod, pRequestPath, pQueryString)
}

}

Hi Andy.

Follows a very simple example:

Navigation Customized:

/// br.cjs.zen.TableNavigator
Class br.cjs.zen.TableNavigator Extends %ZEN.Component.tableNavigator
{

/// Este é o namespace XML para este componente.
Parameter NAMESPACE = "br.cjs.zen";

/// Contents of this composite component:
/// This is a set of paging buttons as well as text controls
/// to show the current page number.
XData Contents
{
<composite xmlns="http://www.intersystems.com/zen">
    <hgroup labelPosition="left" cellAlign="left">
        <!-- originally was a series of buttons -->
        <image id="btnFirst" onclick="zenThis.composite.gotoPage('first');" src="navigation/First.png"/>
        <image id="btnPrev"  onclick="zenThis.composite.gotoPage('prev');"  src="navigation/Previus.png"/>
        <image id="btnNext"  onclick="zenThis.composite.gotoPage('next');"  src="navigation/Next.png"/>
        <image id="btnLast"  onclick="zenThis.composite.gotoPage('last');"  src="navigation/Last.png"/>
        <!-- End -->
        <spacer width="20"/>
        <text id="pageNo" size="2" labelClass="tn-pageLabel" onchange="zenThis.composite.gotoPage(zenThis.getValue());" />
        <text id="pageCount" size="4" labelClass="tn-pageLabel" readOnly="true" />
        <spacer width="*"/>
    </hgroup>
</composite>
}

}

Sample usage:

Hi Patrik,

For a better readability of code, switch the Quit command by Return in the portions of your code. where you relay want to return.

For example in this codesnippet in the While:

			W !, "BEGENING OF LOOP FOR: "_rs.articleCode
			IF (rs.article = article)
			{
				SET unitCode = rs.unitCode
				QUIT
			}

This Quit, only exit form While not from Method. Other problem is that the last line with Quit without argument can cause a <FUNCTION> error because doesn't return any value.

If I'm not miss understood, you can add a third parameter to use internally of method to check if the method needs to run or not. For example if the condition to stop is the unitCode is not blank change the signature of method and add the following line in the beginning of method:

A possible version to method is:

ClassMethod workpieceUnit(mainArticle As %String, article As %String, unitCode As %string = "") As %String
{
    Return:(unitCode '= "") unitCode
    
	&SQL(SELECT unit->unitCode INTO :unitCode FROM production_article.composition WHERE mainArticle = :mainArticle AND article = :article)
	
	IF SQLCODE = 0
	{
		W !, "Has Value"
		Return unitCode
	}
	ELSE
	{
		SET sql = "SELECT article, unit->unitCode,  production_article.composition_sqlArticleCode(article, type) AS articleCode FROM production_article.composition WHERE mainArticle = "_mainArticle_" AND type = 1",
		 	 rs = ##class(%SQL.Statement).%ExecDirect(,sql)
		 
		WHILE rs.%Next()
		{
			W !, "BEGENING OF LOOP FOR: "_rs.articleCode
			IF (rs.article = article)
			{
				SET unitCode = rs.unitCode
				Return unitCode
			}
			
			// CHECK IF WORKPIECE HAS COMPOSITION
			&SQL(SELECT COUNT(*) INTO :composition FROM production_article.composition WHERE mainArticle = :rs.article)
			
			IF (composition > 0)
			{
				W !, "START RECURSIVE"
				DO ..workpieceUnit(rs.article, article)
			}
		}
			
		W !, "END OF LOOP"
		Return unitCode
	}
	
	Return ""
}

Hi Maciej,

You can execute this query to achieve what you want:

SELECT
  Name,
  Super,
  CASE
    WHEN Super [ 'InboundAdapter' THEN 'InboundAdapter'
    ELSE 'OutboundAdapter'
  END "Type"
  FROM
    "%Dictionary".ClassDefinition
  WHERE
    Super LIKE '%InboundAdapter%'
    OR Super LIKE '%OutboundAdapter%'

In the IRIS 2021.1