go to post Vitaliy Serdtsev · Jul 16 Very strange syntax: But if we tried at once with a single statment with a select into (1 value) it fails INSERT INTO Sample.YoungPeople (PASReligionCode) values (SELECT internalPatientNumber FROM Pennine_TIE_Clinicom_Link.PMISPECIALREGNCA where InternalPatientNumber=100) See: Insert Data from Another Table Using a SELECT Query %SYSTEM.SQL.Schema:CreateLinkedTable() Defining a Table by Querying an Existing Table %SYSTEM.SQL:QueryToTable()deprecated %SYSTEM.SQL.Schema:QueryToTable()deprecated
go to post Vitaliy Serdtsev · Jun 30 There was something similar: Event onPostDispatch %CSP.Rest or similar
go to post Vitaliy Serdtsev · Jun 30 Yes. Or you can immediately increase the logical size of the IRISTEMP to the desired value, for example: %SYS>set status=##class(Config.Databases).Get("IRISTEMP",.props) %SYS>set status=##class(SYS.Database).ModifyDatabase(props("Directory"),5*1024) ; 5GbIn this case, you will immediately increase the size from 240Mb to 5Gb, bypassing many small expansions.
go to post Vitaliy Serdtsev · Jun 27 Display Free Space Information Using the Management Portal Size The current allocated size of the database, in megabytes. Note: This field measures the logical size of the database. As a result, the size reported here may be lower than the physical size of the database, in particular for the IRISTEMP database. Look at MaxIRISTempSizeAtStart
go to post Vitaliy Serdtsev · Jun 24 I would like to see a small code example to understand how to help you. According to the documentation%Projection.AbstractProjection, there is a parameter DisableMulticompile and methods EndCompile, QueueClass. Do you somehow use them in your code?
go to post Vitaliy Serdtsev · Jun 13 I simplified the code a bit for testing: ROUTINE ztest23 Version() quit 20250613 ; ; do init^ztest22(100) ; in one irissession ; ; in another irissession: ; do test^ztest23() ; test(N=1E7) public { do runOne^ztest23("convertInRunFar",N,.dt1), runOne^ztest23("convertInBigMacFar",N,.dt2) write $fnumber(dt2-dt1*100/dt1,"",2)_"% difference",! } runOne(pLabel,N=1E7,&dt) public ; kill dt do runOne^ztest23("convertInRunFar",1E7,.dt) { if pLabel="convertInRunFar" { set comment="looping $$convertIn^ztestLib (far)" }else{ set comment="%New^ztestBigMac, looping $$convertIn^ztestLib (far)" set convertName=$$%New^ztestBigMac() } set convertIny=$zconvert("Маленькая умная Коричневая Лиса прыгает через лежащую сонную Пятнистую Собаку","o","UTF8") set dt0=$zhorolog for i=1:1:N set convertInx="" set dt0=($zhorolog-dt0) set dt1=$zhorolog for i=1:1:N set convertInx=$$convertIn^ztestLib(convertIny,"UTF8") set dt=($zhorolog-dt1-dt0)*1E6,dt=dt/N write pLabel,?30,$fnumber(dt,"",3),?45,comment,! }
go to post Vitaliy Serdtsev · Jun 12 IRIS 2025.1 CE I made 4 launches in a row - the result fluctuates greatly: USER>set N=1E7 do runOne^ztest22("convertInRunFar",N,.fields) set dt1=$get(fields("dt")) do runOne^ztest22("convertInBigMacFar",N,.fields) set dt2=$get(fields("dt")) w $fn(dt2-dt1*100/dt1,"",2)_"% difference",! convertInRunFar 0.473 looping $$convertIn^ztestLib (far) convertInBigMacFar 0.478 %New^ztestBigMac, looping $$convertIn^ztestLib (far) 1.13% difference USER>set N=1E7 do runOne^ztest22("convertInRunFar",N,.fields) set dt1=$get(fields("dt")) do runOne^ztest22("convertInBigMacFar",N,.fields) set dt2=$get(fields("dt")) w $fn(dt2-dt1*100/dt1,"",2)_"% difference",! convertInRunFar 0.474 looping $$convertIn^ztestLib (far) convertInBigMacFar 0.598 %New^ztestBigMac, looping $$convertIn^ztestLib (far) 25.99% difference USER>set N=1E7 do runOne^ztest22("convertInRunFar",N,.fields) set dt1=$get(fields("dt")) do runOne^ztest22("convertInBigMacFar",N,.fields) set dt2=$get(fields("dt")) w $fn(dt2-dt1*100/dt1,"",2)_"% difference",! convertInRunFar 0.461 looping $$convertIn^ztestLib (far) convertInBigMacFar 0.597 %New^ztestBigMac, looping $$convertIn^ztestLib (far) 29.70% difference USER>set N=1E7 do runOne^ztest22("convertInRunFar",N,.fields) set dt1=$get(fields("dt")) do runOne^ztest22("convertInBigMacFar",N,.fields) set dt2=$get(fields("dt")) w $fn(dt2-dt1*100/dt1,"",2)_"% difference",! convertInRunFar 0.511 looping $$convertIn^ztestLib (far) convertInBigMacFar 0.551 %New^ztestBigMac, looping $$convertIn^ztestLib (far) 7.88% difference USER> I'm afraid we can't do without the WRC.
go to post Vitaliy Serdtsev · Jun 12 See Zen Layout, Zen Style Class dc.test Extends %ZEN.Component.page { XData Style { <style type="text/css"> #mss { width:200px; height:100px; overflow:auto; border:2px solid DeepPink; background-color: #E5E5E5; } a.multiSelectSetCaption { color: blue; font-family: Verdana; font-weight: bold; } </style> } XData Contents [ XMLNamespace = "http://www.intersystems.com/zen" ] { <page xmlns="http://www.intersystems.com/zen"> <multiSelectSet id="mss" sql=" select 1 id,'Apple' name union select 2,'Banana' union select 3,'Cherry' union select 4,'Peach' union select 5,'Peach' union select 6,'Cherry' union select 7,'Banana' union select 8,'Apple'" /> </page> } }
go to post Vitaliy Serdtsev · Jun 11 Recently I noticed under some posts that there seem to be comments (count > 0), but there are no comments or their number does not correspond to the actual one. Is this related to AI Bot?
go to post Vitaliy Serdtsev · Jun 11 Unlike SQL, which has hints, IRIS Object Script has nothing similar. The only thing left to do is to tweak these settings. If you already have everything tuned, then probably the only thing left is to contact the WRC. PS: Having a reproducible example here would be a big help with the experiments. I love detective problems like this :)
go to post Vitaliy Serdtsev · Jun 11 Class dc.test Extends %ZEN.Component.page { ClientMethod selectMulti() [ Language = javascript ] { var values = zenPage.GetValues() zenSetProp('mss','value',values); } ClassMethod GetValues() As %String [ ZenMethod ] { ; here select data according to a certain condition &sql( select LIST(id) into :r from (select 1 id,'Apple' name union select 2,'Banana' union select 3,'Cherry' union select 4,'Peach') where name['a' ) quit r ; return 2,4 } ClientMethod saveMulti() [ Language = javascript ] { var values = zenGetProp('mss','value'); zenPage.SaveValues(values); } ClassMethod SaveValues(values) [ ZenMethod ] { set ^fruits=values } XData Contents [ XMLNamespace = "http://www.intersystems.com/zen" ] { <page xmlns="http://www.intersystems.com/zen"> <button caption="Select All" onclick="zen('mss').selectAll()"/> <button caption="Select based on data from the database" onclick="zenPage.selectMulti();"/> <button caption="Save" onclick="zenPage.saveMulti();"/> <multiSelectSet id="mss" sql="select 1 id,'Apple' name union select 2,'Banana' union select 3,'Cherry' union select 4,'Peach'" /> </page> } }
go to post Vitaliy Serdtsev · Jun 11 Try increasing the values for some parameters from the section Advanced Memory Settings: bbsiz, gmheap, history, locksiz, routines, etc.
go to post Vitaliy Serdtsev · Jun 11 See Query Parameters XData Contents [ XMLNamespace = "http://www.intersystems.com/zen" ] { <page xmlns="http://www.intersystems.com/zen"> <multiSelectSet sql="select 'Apple' union select 'Banana' union select 'Cherry'" /> </page> }
go to post Vitaliy Serdtsev · Jun 9 Let's suppose two different routines use one and the same chunk of code. From the object-oriented POV, a good decision is to have this chunk of code in a separate class and have both routines call it. However, whenever you call code outside of the routine as opposed to calling code in the same routine, some execution speed is lost. For reports churning through millions of transactions this lost speed might be noticeable. Any advice how to optimize specifically speed? What you are asking is very similar to Inline function in C. In Caché, macros and/or preprocessor directives are great for this role. Especially if the code size is small: ObjectScript Macros and the Macro Preprocessor In this case you will avoid the overhead of calling goto, do, job, xecute, etc. Example (procedure "swap") Class dc.a Extends %RegisteredObject { ClassMethod swap( ByRef x, ByRef y) { s tmp=x,x=y,y=tmp } /// d ##class(dc.a).Test() ClassMethod Test(N = {1e7}) { #define swap(%x,%y) s ##unique(new)=%x,%x=%y,%y=##unique(old) s a=3,b=7 s t=$zh f i=1:1:N s tmp=a,a=b,b=tmp w "inline procedure",?20,$zh-t," sec",! s t=$zh f i=1:1:N d swap w "just a procedure",?20,$zh-t," sec",! s t=$zh f i=1:1:N $$$swap(a,b) w "macros procedure",?20,$zh-t," sec",! s t=$zh f i=1:1:N d ..swap(.a,.b) w "class method",?20,$zh-t," sec",! swap() s tmp=a,a=b,b=tmp } } ;dc.a.1 ;Generated for class dc.a. Do NOT edit. 09.06.2025 00:00:00PM ;;00000000;dc.a ; Test(N) methodimpl { s:'($d(N)#2) N=1e7 s a=3,b=7 s t=$zh f i=1:1:N s tmp=a,a=b,b=tmp w "inline procedure",?20,$zh-t," sec",! s t=$zh f i=1:1:N d swap w "just a procedure",?20,$zh-t," sec",! s t=$zh f i=1:1:N s %mmmu1=a,a=b,b=%mmmu1 w "macros procedure",?20,$zh-t," sec",! s t=$zh f i=1:1:N d ..swap(.a,.b) w "class method",?20,$zh-t," sec",! swap() s tmp=a,a=b,b=tmp } swap(x,y) methodimpl { s tmp=x,x=y,y=tmp } When implementing a sorting algorithm doing lots of swaps, this can increase the execution speed. PS: And yes, avoid passing input/output parameters and class methods due to the high overhead of calling them.
go to post Vitaliy Serdtsev · Jun 6 CREATE FUNCTION inLike(str VARCHAR(50), lstLike VARCHAR(50)) RETURNS BIT PROCEDURE LANGUAGE OBJECTSCRIPT { set res = 0, ptr = 0 while $listnext(lstLike,ptr,v) { &sql(select case when :str like :v then 1 else 0 end into :like) if like { set res = 1 quit } } quit res }Usage: select * from CustomersTable where inLike(CustomerName,$LISTBUILD('%Mark%','%John%','%an%'))=1
go to post Vitaliy Serdtsev · Jun 4 In any unclear situation, when incorrect data is returned, two things need to be done first: rebuild the indexes and tune tables: Kyle Lists Common Problems and Their Solutions: 7 Reasons A Query Returns No Data The One Query Performance Trick You NEED to Know? Tune Table! Since you have a large range of values, I would pay attention to INDEXNULLMARKER: Indexing a NULL
go to post Vitaliy Serdtsev · Jun 4 Has it worked before? If so, then most likely there were some changes in the OS at the file/registry level. First, try to run on the command line (see Registering Files): >cd D:\DHC\DEVSOFTWARE\ENSEMBLE\BIN D:\DHC\DEVSOFTWARE\ENSEMBLE\BIN>RegFiles.bat ALL If it doesn't help, try select Repair to repair problems with the instance such as missing or corrupt files or registry entries: Reinstalling or Uninstalling Caché
go to post Vitaliy Serdtsev · May 21 Great, that's something. Can you show the exact query text and the class source code for the SQLUser.PA_Person table?
go to post Vitaliy Serdtsev · May 21 In your question, yesterday you published the mgstat results for slow and fast servers. Now it looks like you've deleted this data, since I can't see it. Could you return them? I noticed a very significant difference there for two parameters, namely routinebuffers and numberofcpus.
go to post Vitaliy Serdtsev · May 21 Try to do my example and report the results. Also, try to run your query not in win sql, but in the InterSystems Management Portal.
