go to post Ian Pears · Dec 1, 2023 Hi Mary, this may work for you. It could do with a tidy up but should put you on the correct path. You can use this for testing - https://wiki.discoverydataservice.org/index.php?title=Dummy_NHS_numbers ClassMethod ValidNHS(pNHS As %String = "", Output pFailReason) As %Boolean { IF pNHS'?10N { set pFailReason = "Num" Quit 0 } set nCheckdigit = $Extract(pNHS,10,10) set nChi9Digits = $Extract(pNHS,1,9) set nMultFact = 2 set nCalcCheckdigit = 0 for i = 9 : -1 : 1 { set nThisDigit = $Extract(nChi9Digits,i,i) set nCalcCheckdigit = nCalcCheckdigit + (nThisDigit * nMultFact) set nMultFact = nMultFact + 1 } set nCalcCheckdigit = (nCalcCheckdigit # 11) set nCalcCheckdigit = 11 - nCalcCheckdigit if (nCalcCheckdigit = 10) { set pFailReason = "ChkDig" Quit 0 } if (nCalcCheckdigit = 11) { set nCalcCheckdigit = 0 } if (nCheckdigit = nCalcCheckdigit) { set pFailReason = "" Quit 1 } Else { set pFailReason = "ChkDig match" Quit 0 } }
go to post Ian Pears · Sep 22, 2023 hopefully this is what you mean. $$$LOGINFO("this is the first line "_$c(13,10)_"this is second line"_$c(13,10)_" this is third line")
go to post Ian Pears · Jun 7, 2023 hi Rochdi, try adding at top of page (where you have the Properties) Parameter JSINCLUDES = "js/BrowserPrint-3.1.250.min.js"; I've not used BrowserPrint. Hopefully this works for you.
go to post Ian Pears · Apr 18, 2023 hi Rochdi, the following may work zen('Asset').executeQuery('true'); zen("Asset").refreshContents(true);
go to post Ian Pears · Nov 1, 2022 hi Andy - I think you need to map in the data. Do you know how to do this? https://community.intersystems.com/post/running-sql-select-statement-use...
go to post Ian Pears · Sep 5, 2022 sorry, I should have read all the messages. I can see you have enough disk space. Contact WRC
go to post Ian Pears · Sep 5, 2022 hi Rochdi, what purge have you got for the journals and when did you last perform a backup? What space is available in yr journal and alt-journal directory? Ian
go to post Ian Pears · Sep 2, 2022 hi andy, it's in older cache/ensemble e.g. 2017 -- you'll find it in the samples namespace - class ZENDemo.home (open this in browser from studio and it's a good start). ZENApp.Helpdesk class is also a great help
go to post Ian Pears · Jul 6, 2022 rushed this out but may help. Remember utc you could extend the rules and then these would appear in the function dropdown. This would allow you to use objectscript to return the starttime and another method to return the enddatetime. You'd need to focus on yr default values in case any "in" values are invalid and for the second method - the 'duration' is this always in seconds? e.g Class GEN.Transform.cusFunctions Extends Ens.Rule.FunctionSet [ ProcedureBlock ] { ClassMethod retStartTime(in1 As %String = "", in2 As %String = "") As %String { s ret="" //default value? q:in1="" ret q:in2="" ret s ret=$zdt($zdth(in1_" "_in2,4),3,7) q ret } ClassMethod retEndTime(in1 As %String = "", in2 As %String = "", in3 As %String = "") As %String { s ret="" //default value? q:in1="" ret q:in2="" ret q:in3="" ret //need to determine if in3 is always in seconds - if yes then following may work s dt=$zdth(in1_" "_(in2),4) s $p(dt,",",2)=$p(dt,",",2)+in3 s ret=$zdt(dt,3,7) q ret } ------- test from terminal BPTLIVE>w in1 07/05/2022 BPTLIVE>w in2 14:30 BPTLIVE>w in3 30 BPTLIVE>w ##Class(GEN.Transform.cusFunctions).retStartTime(in1,in2) 2022-05-07T13:30:00Z BPTLIVE>w ##Class(GEN.Transform.cusFunctions).retEndTime(in1,in2,in3) 2022-05-07T13:30:30Z BPTLIVE>
go to post Ian Pears · Mar 22, 2022 hi Lewis, Search for 'Handling the UTC Time Zone Indicator'' in the documentation. This may help you. Property TimeCollected As %Time(XMLTIMEZONE = "IGNORE");
go to post Ian Pears · Nov 24, 2020 don't know if this is faster but it may help Pass in your date ClassMethod testD(inDate As %String = "") As %String { s dd="" &SQL(SELECT TO_TIMESTAMP(:inDate,'YYYYMMDDHHMISS') INTO :dd) q dd }
