Replies by Nicki Vallentgoed for InterSystems Developer Community

Thanks, the .%Get("pdf",,"stream<base64") works.

It is super frustrating though.
This produces an error: <PARAMETER> 127 %GetNext^%Iterator.Array.1

Set iter = jsonob.value.labReports.%GetIterator()
While iter.%GetNext(.key,.labReport,.type) {
    w !,"type: "_type
}

I do not know if it a bug on my side or the documentation:

go to post

Nicki Vallentgoed · Jan 30

My code:

try{
  Set jsonob = ##class(%DynamicObject).%FromJSON(httprequest.HttpResponse.Data)
  w !,"statusCodes: "_jsonob.%Get("statusCode"),!
  Set iter = jsonob.value.labReports.%GetIterator()
  While iter.%GetNext(.key, .labReport) {
  w !,"reportName: "_labReport.%Get("reportName")
  Set pdf=labReport.%Get("pdf",,"stream<base64")
  w !,"pdf: "_pdf.Read(20),!
  }
} catch(tException) {		
  w !,tException.DisplayString(),!
}

JSON looks like this( pdf the offending big string):

Output:

statusCodes: 200

reportName: Long-Oeloff-Badenhorst.pdf
<MAXSTRING> 5 ztestpdf+36^Test.Testy.1

ztestpdf+36 = Set pdf=labReport.%Get("pdf",,"stream<base64")

go to post

Nicki Vallentgoed · Nov 30, 2023

Good info!
What happens if the particular task takes longer than a minute and the busines sservice is invoked again?

go to post

Nicki Vallentgoed · Nov 9, 2023

Thanks for the response Brett.

In regards to check if a file is out of date, doing it on save is fine, however that's where the inconsistency problem is. Using a private development server is not really an option in our environment where we have to test with data coming from external sources e.g via HL7 TCP integrations.

go to post

Nicki Vallentgoed · Oct 12, 2022

Answering incase someone has the same issue.

docs

It does not support the <fault> element. That is, if you include a <fault> element within the <operation> element of the binding, the <fault> element is ignored.

go to post

Nicki Vallentgoed · Jun 30, 2022

Nope, does not seem to work.

Creating the async goes fine but as soon as I promote it, primary ensemble sees it as down.

You can also not revert back to an async afterwards.

go to post

Nicki Vallentgoed · Feb 23, 2022

Did you ever get a resulotion to this?

go to post

Nicki Vallentgoed · Apr 1, 2020

I do not know what you use to "process a request from the app server"?

1. Do you have Long String support turned on in, System > Configuration > Memory and Startup?

2. If you are using webservices you can modify the generated classes and change payload to type %GlobalCharacterStream

https://cedocs.intersystems.com/latest/csp/docbook/DocBook.UI.Page.cls?KEY=GSOAP_webclients#GSOAP_clie%20nt_the_long_string_problem

go to post

Nicki Vallentgoed · Oct 7, 2019

The query plan is the same in this instance, however the relative cost is vastly different.

Without TOP 1 = 72497300 (which should give you some idea of the table size)

With TOP 1 = 11

go to post

Nicki Vallentgoed · Jun 3, 2019

How do you parse the parameters in option 2?

go to post

Nicki Vallentgoed · May 2, 2019

I think he was referring to the excel xml format: wiki link

I've used it previously:

Create an example file in excel and save it in the xml format.

View the source in a text editor to see what it looks like.

Write out similar code to a file via COS.

Save as .xls

Ugly example:

s xls=##class(%Stream.FileCharacter).%New()
d xls.LinkToFile("/ensemble/nicki/a.xls")
d xls.WriteLine("<?xml version=""1.0""?><?mso-application progid=""Excel.Sheet""?><Workbook xmlns=""urn:schemas-microsoft-com:office:spreadsheet"" xmlns:o=""urn:schemas-microsoft-com:office:office"" xmlns:x=""urn:schemas-microsoft-com:office:excel"" xmlns:ss=""urn:schemas-microsoft-com:office:spreadsheet"" xmlns:html=""http://www.w3.org/TR/REC-html40""> <DocumentProperties xmlns=""urn:schemas-microsoft-com:office:office""> <Author>me</Author> <LastAuthor>me</LastAuthor> <Created>"_$ZDT($H,3,8)_"</Created> <Company>AMPATH</Company> <Version>1.0</Version> </DocumentProperties>")
d xls.WriteLine("<Styles><Style ss:ID=""header""><Font ss:Bold=""1"" ss:Size=""12""/></Style><Style ss:ID=""a1""><Font ss:Color=""#ff3333""/></Style><Style ss:ID=""a2""><Font ss:Color=""#FFA500""/></Style></Styles>")
d xls.WriteLine("<Worksheet ss:Name=""Sheet1""><Table>"
_"<Column ss:Width=""120""/>"
_"<Column ss:Width=""80""/>"
_"<Column ss:Width=""100""/>"
_"<Column ss:Width=""100""/>")
d xls.WriteLine("<Row ss:Height=""20"">"
    _"<Cell ss:StyleID=""header""><Data ss:Type=""String"">Col 1</Data></Cell>"
    _"<Cell ss:StyleID=""header""><Data ss:Type=""Integer"">2</Data></Cell>"
    _"<Cell ss:StyleID=""header""><Data ss:Type=""String"">Col 3</Data></Cell>"
    _"<Cell ss:StyleID=""header""><Data ss:Type=""String"">Col 4</Data></Cell></Row>")

    d xls.WriteLine("<Row ss:StyleID=""a1"">"
    _"<Cell><Data ss:Type=""String"">Col 1</Data></Cell>"
    _"<Cell><Data ss:Type=""Integer"">2</Data></Cell>"
    _"<Cell><Data ss:Type=""String"">Col 3</Data></Cell>"
    _"<Cell ss:StyleID=""a2""><Data ss:Type=""String"">Col 4</Data></Cell></Row>")

d xls.WriteLine("</Table></Worksheet></Workbook>")
d xls.%Save()