Guillaume Rongier · Oct 29, 2020 go to post

What a great idea :)

Here is my contribution :

{
	"Request Class": {
		"prefix": "ClassRequest",
		"body": [
			"Class ${0:ClassName} Extends Ens.Request",
			"{",
			"\t$1",
			"}"
		],
		"description": "Message helper"
	},

	"Response Class": {
		"prefix": "ClassResponse",
		"body": [
			"Class ${0:ClassName} Extends Ens.Response",
			"{",
			"\t$1",
			"}"
		],
		"description": "Message helper"
	},

	"Operation Class": {
		"prefix": "ClassOperation",
		"body": [
			"Class ${0:ClassName}  Extends Ens.BusinessOperation",
			"{",
			"\tParameter ADAPTER = \"${1:Adapter}\";",
			"\tProperty Adapter As ${1:Adapter};",
			"\tParameter INVOCATION = \"Queue\";",
			"\n",
			"Method ${2:Methode}(pRequest As ${3:Request}, Output pResponse As ${4:Response}) As %Status",
			"{",
			"\tset tStatus = $$$$OK",
			"\tset pResponse = ##class(${4:Response}).%New()",
			"",
			"\ttry{",
			"\t\t\n",
			"\t}",
			"\tcatch exp",
			"\t{",
			"\t\tset tStatus = exp.AsStatus()",
			"\t}",
			"\tQuit tStatus",
			"}",
			"XData MessageMap",
			"{",
			"<MapItems>",
			"\t<MapItem MessageType=\"${3:Request}\">",
			"\t\t<Method>${2:Methode}</Method>",
			"\t</MapItem>",
			"</MapItems>",
			"}",
			"}",
		],
		"description": "Operation helper"
	},

	"Service Class": {
		"prefix": "ClassService",
		"body": [
			"Class ${0:ClassName} Extends Ens.BusinessService",
			"{",
			"Parameter ADAPTER = \"${1:Adapter}\";",
			"Property TargetConfigNames As %String(MAXLEN = 1000) [ InitialExpression = \"${2:BusinessProcess}\" ];",
			"Parameter SETTINGS = \"TargetConfigNames:Basic:selector?multiSelect=1&context={Ens.ContextSearch/ProductionItems?targets=1&productionName=@productionId}\";",
			"Method OnProcessInput(pDocIn As %RegisteredObject, Output pDocOut As %RegisteredObject) As %Status",
			"{",
			"\tset status = $$$$OK",
			"",
			"\ttry {",
			"",
			"\t\tfor iTarget=1:1:$L(..TargetConfigNames, \",\") {",
			"\t\t\tset tOneTarget=$ZStrip($P(..TargetConfigNames,\",\",iTarget),\"<>W\")  Continue:\"\"=tOneTarget",
			"\t\t\t$$$$ThrowOnError(..SendRequestSync(tOneTarget,pDocIn,.pDocOut))",
			"\t\t}",
			"\t} catch ex {",
			"\t\tset status = ex.AsStatus()",
			"\t}",
			"",
			"\tQuit status",
			"}",
			"",
			"}",
		],
		"description": "Operation helper"
	},
}
Guillaume Rongier · Nov 4, 2020 go to post

Hi Yuri, Have a look at this : https://github.com/grongierisc/iris-csvgen-ui/blob/master/src/CSVGEN/API/Dispatch.cls Here you will find and example of a multi-part upload on a %CSP.REST class.

To get the stream from the multi part you have to do this ligne 39 to 43 :

    // Get stream
    set stream = %request.GetMimeData("id")
    if ('$IsObject(stream) {
      $$$ThrowOnError($$$ERROR(9200,"no file"))
    }

Where id is the name of you multi-part

To send the stream to a business service :

        $$$ThrowOnError(##class(Ens.Director).CreateBusinessService(BsName,.tService))
        
        $$$ThrowOnError(tService.ProcessInput(stream,.output))

Where BsName is the name of your business service in the active production of your namespace. And stream you stream.

Guillaume Rongier · Nov 4, 2020 go to post

Hi Mike, To retrive multi-part from %resquest you have do to this in the %CSP.REST class :

    // Get properties
    set body = %request.Get("body")
    if '$d(body) {
      $$$ThrowOnError($$$ERROR(9200,"no parameters"))
    }
    set dynaBody = {}.%FromJSON(body)

    // Get stream
    set stream = %request.GetMimeData("file")
    if ('$IsObject(stream) {
      $$$ThrowOnError($$$ERROR(9200,"no file"))
    }

To get property you have to use Get and for stream GetMimeData In my example my body is a json.

Guillaume Rongier · Nov 16, 2020 go to post

Great app, I'll will definitely take a look, this can be very useful.

Thanks, and good luck for the contest.

Guillaume Rongier · Dec 2, 2020 go to post

Hi Alexender, I'll send you the WSDL in PM.

But I guess I found a workaround :

I created a new method that parse the XML with %XML.Reader and correlate the payload with my destination class :

 set reader = ##class(%XML.Reader).%New()
 // pRequest.GetPatientsByClinicResult.any.GetAt(1) <-- Header
 // pRequest.GetPatientsByClinicResult.any.GetAt(2) <-- Payload
 do reader.OpenString(pRequest.GetPatientsByClinicResult.any.GetAt(2))
 do reader.Correlate("Patients","FME.Object.Patient")

 while reader.Next(.object,.status) {
   do pResponse.Patients.Insert(object)
 }

Where FME.Object.Patient is :

Class FME.Object.Patient Extends (%SerialObject, %XML.Adaptor)
{

Property LastName As %String;

Property FirstName As %String;

Property Datex0020ofx0020Birth As %String(XMLNAME = "Date_x0020_of_x0020_Birth");

Property Gender As %String;

Property Code As %String;

Property Insurance As %String;

Property GUID As %String;

Property CLINICGUID As %String;

}
Guillaume Rongier · Dec 7, 2020 go to post

Hi,

What you can do is a snapshot of this ResultSet.

Then use the global of this snapshot for another Operation :

Get snapshot global :

Method OnGetSnapshot(pRequest As Ens.Request, Output pResponse As Ens.StringResponse) As %Status
{
	set tStatus = $$$OK
	
	try{
		
		set pResponse = ##class(Ens.StringResponse).%New()
				
		set tQuery = "SELECT *  FROM [sqlserver].[dbo].[whatever] "
 
		//$$$TRACE(tQuery)		
		Set pSnap = ##class(EnsLib.SQL.Snapshot).%New()
		
		//size of snapshot
		// -1 = Max
		set pSnap.MaxRowsToGet = -1
				
		$$$ThrowOnError(..Adapter.ExecuteQueryBatch(pSnap,tQuery,1000))
		
		$$$ThrowOnError(pSnap.%Save())
		
	
		set pResponse.StringValue = pSnap.%GblRef	
			
	}
	catch exp
		{
			Set tStatus = exp.AsStatus()
		}
	Quit tStatus
}

Use snapshot global :

Method UseSnapshot(pRequest As Ens.StringRequest, Output pResponse As Ens.Response) As %Status
{
	
	set status = $$$OK
	
	try {
		set pResponse = ##class(Ens.Response).%New()

		set nRow = 0
		set tSequence = 0
		
		//Get SnapShot
		Set tSnap = ##class(EnsLib.SQL.Snapshot).%New()
		set tSnap.%GblRef = pRequest.StringValue // use of global SnapShot
		set tSnap.%CurrentRow = 0
		set tSnap.FirstRow = 1
		set tSnap.MaxRowsToGet = -1
		
		$$$TRACE("MaxRowsToGet :  "_tSnap.RowCountGet())

				while tSnap.Next() {
					try {
							set nRow = nRow + 1
							set tSequence = tSequence + 1

                            set i = 0

                            set i = i + 1
                            set tParam(i) = tSnap.Get("Col1")

                            
                            set i = i + 1
                            set tParam(i) = tSnap.Get("Col2")

                       
                            set i = i + 1
                            set tParam(i) = tSnap.Get("Col3")

                           
                            set i = i + 1
                            set tParam(i) = tSnap.Get("ColX")

                            set tParam = i

							set tQuery = "UPDATE Whatever  "_
										"SET   "_
										"Col1 = ?  "_
										",Col2 = ?  "_
										",Col3 = ?  "_
										" WHERE ColX = ?  " 
														
							
							$$$ThrowOnError(..Adapter.ExecuteUpdateParmArray(.tResult,tQuery,.tParam))

						} catch exSnap {
                            // Update exeption
						}
			
		}
		
		
	} catch ex {
		set status = ex.AsStatus()
	}
	return status
}

Furthermore, If you have big table to query/insert in JDBC consider this ZPM module : https://github.com/grongierisc/BatchSqlOutboundAdapter

Guillaume Rongier · Jan 28, 2021 go to post

Hi Yeung,

First how-to auto increment an integer, you can use this property :

Then, why you have ID1 in your table, because by default any persistent class have an column called ID who is an auto increment and indexed as a primary key.
You can overload this primary key by your own with this index :

Guillaume Rongier · Jan 28, 2021 go to post

Hi Michael,

No plan for that yet, but the solution is quiet similar, fetch the internal data of step count, transform it to FHIR, send them to the registry.

But, as soon as I change my iPhone to an Android, I will reconsider to do it for Android ;)

Guillaume Rongier · Apr 12, 2021 go to post

Super benchmark, it's very interesting.
Personally, I prefer the squash method because it is easy to implement (no change in the dockefile).  

Guillaume Rongier · Apr 12, 2021 go to post

If I understand correctly, you want to replace an HTTP Header basic auth with a bearer token. If the bearer token is static, you can implement a solution like this:

If it is dynamic, I think you will have to develop your own plug-in:

A good base to start working on could be this plugin:

Guillaume Rongier · Apr 15, 2021 go to post

What a nice feature.

If I understand correctly, this module can be considered as a replacement for the Manifest installer?

If so, then this module has the benefit of exposing the configuration as JSON and API rather than a compiled class.

Guillaume Rongier · Apr 16, 2021 go to post

I tried your module as a replacement for the Manifest installer, see this example:

https://github.com/grongierisc/intersystems-iris-dev-template

However, I'm stuck for the part with ZPM.
The problem is, with your module, I can create a database, its rights, etc., but how to tell ZPM to load the classes in the freshly installed NameSpace?


What are the possible solutions?

We have today many options to load configuration IRIS, are they in competition?

How to federate these modules who are all complementary?

Guillaume Rongier · Apr 21, 2021 go to post

Nice, the support of ZPM in the json config file is a major improvement.

Now we can use this module as a total replacement of the manifest installer !

Great work !

Guillaume Rongier · May 18, 2021 go to post

Hi Lucas,

A simple solution to you question can be this :

Property numDossiersMER As list Of %Integer(SQLPROJECTION = "table/column", STORAGEDEFAULT = "array");

Index numDossiersMERIdx On numDossiersMER(ELEMENTS);

With those parameters you can achieve :

  • 'As list Of %Integer' allows you to use the Insert() in ObjectScript and 'for some %element' in SQL command
  • 'SQLPROJECTION = "table/column"' allows you to display the table as a column (note, the column does not appear in a select * it must be specified : select numDossierMER, numDossiersMER from User_TestList_Data.Titre )
  • 'STORAGEDEFAULT = "array"' allows a separate table for the normalized representation
  • 'Index numDossiersMERIdx On numDossiersMER(ELEMENTS);' bring the ability to use index on values with this SQL query :
select numDossierMER, numDossiersMER from User_TestList_Data.Titre
where
for some %element(numDossiersMER) (%Value in (345))
Guillaume Rongier · May 25, 2021 go to post

Hi Xiong,

To convert FHIR R4 to SDA you have to use this helper class :

HS.FHIR.DTL.Util.HC.FHIR.SDA3.Process

This class take in input a message of this kind : HS.FHIRServer.Interop.Request or HS.Message.FHIR.Request.

So if you want to convert an json FHIR file to SDA, you have to read the file from a business service cast you file to one of this message and send it to the helper class.

Here is and Business service example of reading fhir json files :

Class BS.FHIRFileService Extends Ens.BusinessService
{

Parameter ADAPTER = "EnsLib.File.InboundAdapter";

Property TargetConfigNames As %String(MAXLEN = 1000) [ InitialExpression = "BusinessProcess" ];

Parameter SETTINGS = "TargetConfigNames:Basic:selector?multiSelect=1&context={Ens.ContextSearch/ProductionItems?targets=1&productionName=@productionId}";

Method OnProcessInput(pDocIn As %RegisteredObject, Output pDocOut As %RegisteredObject) As %Status
{
    set status = $$$OK

    try {

        set pInput = ##class(HS.FHIRServer.Interop.Request).%New()
        set tQuickStream = ##class(HS.SDA3.QuickStream).%New()
        do tQuickStream.CopyFrom(pDocIn)
        set pInput.QuickStreamId= tQuickStream.Id


        for iTarget=1:1:$L(..TargetConfigNames, ",") {
            set tOneTarget=$ZStrip($P(..TargetConfigNames,",",iTarget),"<>W")  Continue:""=tOneTarget
            $$$ThrowOnError(..SendRequestSync(tOneTarget,pInput,.pDocOut))
        }
    } catch ex {
        set status = ex.AsStatus()
    }

    Quit status
}

}

You can find more information from this documentation :

https://docs.intersystems.com/irisforhealthlatest/csp/docbook/Doc.View.cls?KEY=HXFHIR_transforms#HXFHIR_transforms_bp_fhirsda

Guillaume Rongier · May 26, 2021 go to post

You can't work directly in HSLIB, you have to create your own namespace to work with.

In a terminal :

zn"HSLIB"
// Install a Foundation namespace and change to it
Do##class(HS.HC.Util.Installer).InstallFoundation("NEW_NAMESPACE")
zn"NEW_NAMESPACE"

If you are not familiar with Namespace, HSLIB, Ensemble first check for training here :

https://learning.intersystems.com/course/view.php?id=243

Guillaume Rongier · Jun 17, 2021 go to post

You are right Benjamin, the R gateway go through the Java gateway with two helper classes :

  • com.intersystems.rgateway.Helper
  • org.rosuda.REngine.Rserve

An example can be found here :

If I may, I prefer the approach of Eduard for the R gateway : https://github.com/intersystems-community/RGateway who by pass the java gateway and directly use socket connection to the R Server.

@Eduard Lebedyuk : you are right no documentation a this time for the R Gateway.

Guillaume Rongier · Jun 23, 2021 go to post

It depends on what you are looking for.

To create applications to expose data on IRIS with custom APIs and make custom applications, you can use IRIS Studio and/or VsCode with the IRIS extension.

For database administration, you can use the management portal.

For 100% SQL administration, I recommend DbBeaver.

Guillaume Rongier · Jun 28, 2021 go to post

Hi,

Great news about Direct Messages.

In the meantime, is there any plan to make a dark mode for the community front end (as githut, stakoverflow, and so on does) ?

Guillaume Rongier · Jul 7, 2021 go to post

Is Amir's solution not satisfactory?

In some cases, it is preferable to use a < code > activity that directly calls the transformation and assigns the status code to the status variable, which will be processed by the try/catch.

<code> Set status = $classmethod(tTransformClass, "Transform", request, .normalizedRequest </code>