All
Accepted answers
Hansel Rudy Stange Gaete · Dec 20, 2017 go to post 
Set tSC = $System.Status.OK()
Try{
	Set tRequest = ##class(PortalPaciente.s0.ConsultaPaciente1).%New()
	Set tResponse = ##class(PortalPaciente.s0.InformacionPaciente).%New()
	Set pResponse = ##class(PortalPaciente.Msg.OInformacionPaciente).%New()
	Set tRequest.RUT = pRequest.RUT
	Set tSC = ..Adapter.InvokeMethod("ConsultaPaciente",.tResponse,tRequest)
	if '$IsObject(tResponse)
	{
		Set tSC = $System.Status.Error(5001,"The method ConsultaPaciente did not return anything!")
		Quit
	}
	Set pResponse.EstadoConsulta = tResponse.EstadoConsulta
}
catch(tException)
{
	Set tSC = tException.AsStatus()
}
Quit tSC
Hansel Rudy Stange Gaete · Dec 20, 2017 go to post

in tResponse i can only get "1"

the object i spect is formed by 3 properties :

One %String

One Object

One list Of Objects

Hansel Rudy Stange Gaete · Dec 20, 2017 go to post

I'm working on it, add file debug in operation and webClient, in webClient i can get the full and correct object, but don't  pass to operation.

Hansel Rudy Stange Gaete · Dec 21, 2017 go to post

I get the trace, mi web service is generated only with (%RegisteredObject, %XML.Adaptor) Objects, this generate some problem for wizard on ensemble machine, changing to %Persistent have the solution

Hansel Rudy Stange Gaete · Feb 12, 2019 go to post

Cache for UNIX (Red Hat Enterprise Linux for x86-64) 2017.2.1

(Build 801U) Wed Dec 6 2017 09:23:15 EST [HealthShare Modules:Core:15.03.9901 + Linkage Engine:15.03.9901

Hansel Rudy Stange Gaete · Jun 3, 2019 go to post

best solution to my problem look like stupid solution :

In my case : i need a custom home page, look no cache system (Custom Logo, Custom Form)

my solution :

1.- create a simple index.html with a login form (Action page is my App Home)
2.- put this file in web app folder
3.- Set "Login Page" to my index.html

Bingo !

Hansel Rudy Stange Gaete · Sep 25, 2019 go to post

@Thembelani Mlalazi 

Hi, thanks,
1 how bigger is this stream ? xml message have normal limitation to 32k or 64k related to system config
2 can you separate this files and serve on links ?
3 can you encrypt like base64 html images?

i'm not sure have the answer, but i think this questions can help you to get the right path to solution

Hansel Rudy Stange Gaete · Apr 15, 2020 go to post

Hi, you have some tests on 2020.1 ?

i have some strange issue, around 40 seconds response from a host with no charge server

Hansel Rudy Stange Gaete · Jul 2, 2020 go to post

in my case, some fixes for Huawei (like Old version s3)

Class Cloud.Storage
{
ClassMethod GetOBSCredentials(profile = "CloudStorage") As %Status
{
    Set tUsername = ##Class(Ens.Config.Credentials).%OpenId(profile)
    If (tUsername){
        Set %extOBS("AccessKeyId")=tUsername.Username
        Set %extOBS("SecretAccessKey")=tUsername.Password
    }
    Quit $$$OK
}
ClassMethod OBSSignRequest(ByRef request, requeststring, bucket) As %String
{
    If '$data(%extOBS) {
        Set sc=..GetOBSCredentials()
    }
    Set tAccessKeyId = %extOBS("AccessKeyId")
    Set tSecretAccessKey = %extOBS("SecretAccessKey")
    Set tDateH = $ZTS
    Set tWeekDay = $Piece($ZDateTime(tDateH,11)," ",1)
    Set tDate = tWeekDay_", "_$ZDateTime(tDateH,2,1)_" GMT"
    Set request.Date = tDate
    Set tContentMD5 = ""
    Set tContentType = ""
    Set CanonicalizedHeaders = "x-obs-acl:private"
    Set tStringToSign = $Piece(requeststring," ",1)_$Char(10)_
                            tContentMD5_$Char(10)_
                            tContentType_$Char(10)_
                            tDate_$Char(10)_
                            "/"_ bucket_$Piece(requeststring," ",2)
    Set tStringToSignUTF8 = $Zconvert(tStringToSign,"O","UTF8")
    Set tSignature = ##Class(%SYSTEM.Encryption).HMACSHA1(tStringToSignUTF8,tSecretAccessKey)
    Set tSignatureBase64 = ##Class(%SYSTEM.Encryption).Base64Encode(tSignature)
    Set tAuthorization = "OBS "_tAccessKeyId_":"_tSignatureBase64
    Set request.Authorization=tAuthorization
    Quit $$$OK
}
ClassMethod GetFileHeader(filename, ByRef stream As %Stream.GlobalBinary, ByRef status As %Library.DynamicObject, classname = "") As %Status
{
    Set status = {}
    Set bucket = $Piece(filename,"/",3)
    Set key=$Piece(filename,"/",4,*)
    Set object="/"_bucket_"/"_key
    Set obsRegion=$Get(^EXT.OBSBucketRegion(bucket),"la-south-2")
    Set server = bucket_".obs."_obsRegion_".myhuaweicloud.com"
    Set request = ##Class(%Net.HttpRequest).%New()
    Set request.Server = server
    Set request.Https=1
    Set request.SSLConfiguration="ISC.FeatureTracker.SSL.Config"
    Set url =  "/"_key
    Set requeststring="GET "_"/"_key
    Set sc= ..OBSSignRequest(request,requeststring,bucket)
    Set sc = request.Get(url)
    Set status.code = request.HttpResponse.StatusCode
    Set stream=request.HttpResponse.Data
    Set stream.LineTerminator=$Char(10)
    Quit $$$OK
}
}

I use Credentials to save data.

Thanks !!

Hansel Rudy Stange Gaete · Sep 14, 2020 go to post

Sorry, not enough data on my question,
this machine work as "ensemble",
more bigger database have no more 40Gb (production active),
iristemp growth from aprox 10Gb  to 106Gb,
after init Iris Again i move this database to another disk, and use truncate button, the screen show 24 Gb size, not file total size, after run process file and portal show lower 100Mg file
this machine use outbound queries ODBC, not inbound queries exists, this outbound queries get a lower number of rows,
some process clean tables used as temporal data extracted from Non Iris database to transfer this data to another Iris Server
This machine work on Failover Cluster, the other machine have no news after shutdown
Only one special condition, this cluster work without arbiter
After start iris again i read Audit and logs, not a clue in Iris or Linux logs
ghost in the machine ?

Hansel Rudy Stange Gaete · Nov 17, 2023 go to post

To many time later, anyway for keep reference

Set string = ""Set length = 256For i=1:1:length {
    Set Up = $random(2)
    Set tNum = $random(28)
    If (tNum = 26) {
        Set tChar = "-"
    }elseif (tNum = 27) {
        Set tChar = "_"
    } Else {
        If Up {
            // Upper case rangeSet tChar = $CHAR(tNum+65)
        } Else {
            // Lower case rangeSet tChar = $CHAR(tNum+97)
        }
    }
    Set string = string _ tChar
}