go to post Robert Cemper · Mar 10, 2019 Hmmm,it seems to prefer "waste screen space" style over "have all on 1 screen with no scrolling" [my favorite ]
go to post Robert Cemper · Mar 8, 2019 In this case, you may create a Privileged Routine Application with the rights you need and the required codecalling it raises access rights just for this routine.
go to post Robert Cemper · Mar 8, 2019 Hi Timwrite $d(^|"%SYS"|SYS("Security","SSLConfigsD",<my config> ),settings)provided you have access rightsCheers, Robert
go to post Robert Cemper · Mar 6, 2019 I think RowVersion and Serial Counter Fields should do it as well.(with less typing)
go to post Robert Cemper · Mar 4, 2019 You have to set your DB to be in Primary MIRROR before the copy.Otherwise, you may miss some kind of "Mirror-Marker" / Timestamp. I hit this trap also on my first trials.
go to post Robert Cemper · Mar 2, 2019 I just realized that this method doesn't check the existence of the ID.therefore:write:##class(Abstract.Class).%ExistsId(id) $li(##class(Abstract.Class).%ComposeOid(id),2)or any equivalent construct.
go to post Robert Cemper · Mar 2, 2019 OID contains the class name. So this should do it.write $li(##class(Abstract.Class).%ComposeOid(id),2)
go to post Robert Cemper · Mar 2, 2019 You are totally right.With Parent-Child your data are not only logical but also physically tied to each other.One-to-many allows you more flexible handling of Relations.Just one out of many examples M:N Relationship
go to post Robert Cemper · Mar 1, 2019 Exactly 4 weeks before UK is leaving the European Union on Friday, March 29th this sounds like kind of British humor to me.
go to post Robert Cemper · Feb 25, 2019 Thanks @Jeffrey Drumm !I always distrusted HL7 separators and ESC chars. when I first met them ages back as they carry the same limit as $PIECE() with them:"There is always somewhere some odd case where your separator turns up as content. " Praise $LB() !
go to post Robert Cemper · Feb 25, 2019 if \E is just a synonym for <ESC> than use insteadset remove=$c(27)
go to post Robert Cemper · Feb 25, 2019 set remove="\E"set hl7="OBX|1|RP|ECG||CARDIO ECG^APPLICATION^PDF^^\E\\E\sitehopital.org\E\files\E\cardio\E\022018\E\GE274583.PDF|"set clean=$replace(hl7,remove,"") write cleanOBX|1|RP|ECG||CARDIO ECG^APPLICATION^PDF^^\\sitehopital.org\files\cardio\022018\GE274583.PDF|
go to post Robert Cemper · Feb 21, 2019 for that case passing the variables by reference should be sufficient. ClassMethod Main() { Do ..InvokedMethod(,var1,.var2) W !,var1}ClassMethod InvokedMethod(byRef var1, byRef var2) { Set var1 = "ChangedInInvoked"}
go to post Robert Cemper · Feb 21, 2019 I see 5 options :any classmethod can be projected as SQL Procedure. So using your ODBC adapter you may communicate that way with Cachébased on rather poor personal experience of PHP & ODBC it is definitely not my favorite.With Angular & PHP you are in the Web environment. So SOAP Webservices may be useful.I had a very positive experience with that approach. see it here Feeling the power of CachéActually I would rather use REST in combination with JSONIf rather synchronous interaction between both sides is required AJAX (+JSON) could be a way Or for longer lasting asynchronous communication WebSockets might be appropriate.So you have a choice what fits best to your needs.
go to post Robert Cemper · Feb 19, 2019 interesting observation with CHPC 65001:a loop USER>for i=1:1:255 write i," ",$c(i),! stops the session with any character > $c(127).I'd suggest forget that M$ crap.Use Putty or any thing else.Cache for Windows (x86-64) 2018.1.1 (Build 312U) Thu Jan 3 2019 14:34:00 EST
go to post Robert Cemper · Feb 19, 2019 BTW.zwrite @reader.GlobalNameUSER>zwrite @reader.GlobalName^||CacheTemp=5^||CacheTemp(5,1)=$lb("element","","Oceano","Oceano",0,1)^||CacheTemp(5,2)=$lb("element","","Header","Header",0,2)^||CacheTemp(5,3)=$lb("element","","DataSource","DataSource",0,3)^||CacheTemp(5,4)=$lb("chars","Oceano","")^||CacheTemp(5,5)=$lb("endelement","","DataSource","DataSource")^||CacheTemp(5,6)=$lb("element","","DataType","DataType",0,3)^||CacheTemp(5,7)=$lb("chars","EDAttendance","")^||CacheTemp(5,8)=$lb("endelement","","DataType","DataType")^||CacheTemp(5,9)=$lb("endelement","","Header","Header")^||CacheTemp(5,10)=$lb("element","","Body","Body",0,2)^||CacheTemp(5,11)=$lb("element","","MIU","MIU",0,3)^||CacheTemp(5,12)=$lb("element","","Department","Department",0,4)^||CacheTemp(5,13)=$lb("chars","BCH","")^||CacheTemp(5,14)=$lb("endelement","","Department","Department")^||CacheTemp(5,15)=$lb("element","","TotalNumber","TotalNumber",0,4)^||CacheTemp(5,16)=$lb("chars","6","")^||CacheTemp(5,17)=$lb("endelement","","TotalNumber","TotalNumber")^||CacheTemp(5,18)=$lb("element","","NumberWaitingToBeSeen","NumberWaitingToBeSeen",0,4)^||CacheTemp(5,19)=$lb("endelement","","NumberWaitingToBeSeen","NumberWaitingToBeSeen")^||CacheTemp(5,20)=$lb("element","","LongestWaitMin","LongestWaitMin",0,4)^||CacheTemp(5,21)=$lb("endelement","","LongestWaitMin","LongestWaitMin")^||CacheTemp(5,22)=$lb("endelement","","MIU","MIU")^||CacheTemp(5,23)=$lb("element","","MIU","MIU",0,3)^||CacheTemp(5,24)=$lb("element","","Department","Department",0,4)^||CacheTemp(5,25)=$lb("chars","BOS","")^||CacheTemp(5,26)=$lb("endelement","","Department","Department")^||CacheTemp(5,27)=$lb("element","","TotalNumber","TotalNumber",0,4)^||CacheTemp(5,28)=$lb("chars","1","")^||CacheTemp(5,29)=$lb("endelement","","TotalNumber","TotalNumber")^||CacheTemp(5,30)=$lb("element","","NumberWaitingToBeSeen","NumberWaitingToBeSeen",0,4)^||CacheTemp(5,31)=$lb("chars","1","")^||CacheTemp(5,32)=$lb("endelement","","NumberWaitingToBeSeen","NumberWaitingToBeSeen")^||CacheTemp(5,33)=$lb("element","","LongestWaitMin","LongestWaitMin",0,4)^||CacheTemp(5,34)=$lb("chars","109293","")^||CacheTemp(5,35)=$lb("endelement","","LongestWaitMin","LongestWaitMin")^||CacheTemp(5,36)=$lb("endelement","","MIU","MIU")^||CacheTemp(5,37)=$lb("endelement","","Body","Body")^||CacheTemp(5,38)=$lb("endelement","","Oceano","Oceano")
go to post Robert Cemper · Feb 19, 2019 structure is OK, and it worked for me.Removing all CR,LF,TAB,BLANK still looks good here. Could you have some control characters in your string ?USER>ZZDUMP myfile may show itUSER>write $TR(myfile,$c(13,10,9,32))<Oceano><Header><DataSource>Oceano</DataSource><DataType>EDAttendance</DataType></Header><Body><MIU><Department>BCH</Department><TotalNumber>6</TotalNumber><NumberWaitingToBeSeen/><LongestWaitMin/></MIU><MIU><Department>BOS</Department><TotalNumber>1</TotalNumber><NumberWaitingToBeSeen>1</NumberWaitingToBeSeen><LongestWaitMin>109293</LongestWaitMin></MIU></Body></Oceano>
go to post Robert Cemper · Feb 19, 2019 this happens if your variable myfile doesn't have a clean XML structure check the content it. eg: https://www.w3schools.com/xml/xml_validator.asp
