%TSQL.Impl

class %TSQL.Impl extends %Library.RegisteredObject

Implementation of TSQL scalar and other functions not supported by SQL

Method Inventory (Including Private)

Methods

private classmethod AnalyseRangePattern(RangeText As %String, LikeEscape As %String) as %String [ Language = objectscript ]

Given RangeText with what appeared between [..] with the escapes for LikeEscape and "-" intact

Return a COS pattern fragment which matches the range

classmethod CHARINDEX(ToFind As %String, FindIn As %String, StartAt As %Integer = 1) as %String [ Language = objectscript, SQLProc = CHARINDEX ]

Implement CHARINDEX(tofind,findin[,startat])

private classmethod CompareStringPos2(N1 As %Integer, N2 As %Integer, Tags As %List) as %Integer [ Language = objectscript ]

N1-N2 are COS string positions, 1-based and 0 means not found

If one of the positions is undisputedly earlier its tag is returned

otherwise return 0

private classmethod CompareStringPos3(N1 As %Integer, N2 As %Integer, N3 As %Integer, Tags As %List) as %Integer [ Language = objectscript ]

N1-N3 are COS string positions, 1-based and 0 means not found

If one of the positions is undisputedly earliest of the three its tag is returned

otherwise return 0

classmethod DATALENGTH(Item) as %Integer [ Language = objectscript, SQLProc = DATALENGTH ]

Implement DATALENGTH(item)

private classmethod ExtractRangeText(LikePattern As %String, LikeEscape As %String, ByRef Pos As %Integer) as %String [ Language = objectscript ]

Given the position just after the "["

Return with the position just after the "]" - or after the end of the string if there is no "]"

Return the raw range text (with relevant escapes for "-" and the escape character itself still in place)

classmethod FLOOR(Number As %String) as %Numeric [ Language = objectscript ]

Implement FLOOR for COS context

classmethod Find(LookIn As %String, LookFor As %String, StartLook As %Integer = 1) [ Language = objectscript ]

Look for LookIn in LookFor starting at StartLook (defaults to 1)

If the string isn't found then 0 is returned

If the string is found then the 1-based offset to the start of LookFor in LookIn is returned

classmethod IFNULL(Expr1 As %String, Expr2 As %String, Expr3 As %String = "") as %String [ Language = objectscript, SQLProc = IFNULL ]

Implement IFNULL(expr1,expr2[,expr3])

classmethod IsStream(Value As %String, ByRef StreamOref) as %Boolean [ Language = objectscript ]

Is the given value a stream id?

- if so: return 1 and set StreamOref

- otherwise: return 0 and set StreamOref to $$$NULLOREF

classmethod LEN(Str As %String) as %Integer [ Language = objectscript ]

Implement LEN for COS context

classmethod REPLACE(Expr As %String, Old As %String, New As %String) as %String [ Language = objectscript, SQLProc = REPLACE ]

Implement REPLACE(expr,old,new)

classmethod ROUND(Number As %Numeric, Length As %Integer, Function As %Integer) as %String [ Language = objectscript, SQLProc = ROUND ]

Implement ROUND(number,length,function)

private classmethod RangeToPattern(Range As %List) as %String [ Language = objectscript ]
classmethod STUFF(SourceString As %String, StartPos As %Integer, ReplaceLength As %Integer, ReplaceString As %String) as %String [ Language = objectscript, SQLProc = STUFF ]

Implement STUFF(sourcestring,startpos,replacelength,replacestring)

classmethod SUBSTRING(Item, Start, Length) as %String [ Language = objectscript, SQLProc = SUBSTRING ]

Implement SUBSTRING(item, start, length)

classmethod ZBITWISEAND(A, B) as %Integer [ Language = objectscript, SQLProc = ZBITWISEAND ]

Implement bitwiseAND

classmethod ZBITWISEOR(A, B) as %Integer [ Language = objectscript, SQLProc = ZBITWISEOR ]

Implement bitwiseOR

classmethod ZBITWISEXOR(A, B) as %Integer [ Language = objectscript, SQLProc = ZBITWISEXOR ]

Implement bitwiseXOR

classmethod ZCONVERRFROMTSQL(A) as %Integer [ Language = objectscript, SQLProc = ZCONVERRFROMTSQL ]

Translate a TSQL error code to a SQLCODE

classmethod ZFORMATMESSAGE(Message, Args...) [ Language = objectscript, SQLProc = ZFORMATMESSAGE ]

Format a RAISERROR message with the given arguments

classmethod ZLIKETOCOSPATTERN(LikePattern As %String, LikeEscape As %String = "") as %String [ Language = objectscript ]

Given a LIKE pattern and optional LIKE ESCAPE, return the corresponding COS pattern (non-SQL strings)

private classmethod ZLIKETOCOSPATTERNLIST(LikePattern As %String, LikeEscape As %String = "") as %List [ Language = objectscript, SQLProc = ZLIKETOCOSPATTERNLIST ]

Given a LIKE pattern and optional LIKE ESCAPE, return a list of top-level COS pattern elements

classmethod ZLIKETOCOSPATTERNS(LikePattern As %String, LikeEscape As %String = "") as %String [ Language = objectscript, SQLProc = ZLIKETOCOSPATTERNS ]

Given a LIKE pattern and optional LIKE ESCAPE, return the corresponding COS pattern (SQL strings)

classmethod ZPATINDEXFB(CosPattern As %String, Expr As %String) as %Integer [ Language = objectscript, SQLProc = ZPATINDEXFB ]

PATINDEX for anything that isn't covered above (FB=fallback) - returns 0/1

- will not give the correct result for a pattern beginning with "%"

classmethod ZPATINDEXL(LiteralPart As %String, Expr As %String) as %Integer [ Language = objectscript, SQLProc = ZPATINDEXL ]

PATINDEX for: literal - returns 0/1

classmethod ZPATINDEXLR(LiteralPart As %String, CosPattern As %String, Expr As %String) as %Integer [ Language = objectscript, SQLProc = ZPATINDEXLR ]

PATINDEX for: literal rest - returns 0/1

classmethod ZPATINDEXPL(LiteralPart As %String, Expr As %String) as %Integer [ Language = objectscript, SQLProc = ZPATINDEXPL ]

PATINDEX for: percent literal - returns 0/position of literal

classmethod ZPATINDEXPLR(LiteralPart As %String, CosPattern As %String, Expr As %String) as %Integer [ Language = objectscript, SQLProc = ZPATINDEXPLR ]

PATINDEX for: percent literal rest - 0/returns position of literal

classmethod ZPATINDEXPN(CosPattern As %String, Expr As %String) as %Integer [ Language = objectscript, SQLProc = ZPATINDEXPN ]

PATINDEX for: percent non-literal - returns 0/position of non-literal

classmethod ZPATINDEXU(UnderlineCount As %Integer, Expr As %String) as %Integer [ Language = objectscript, SQLProc = ZPATINDEXU ]

PATINDEX for: underline(s) - returns 0/1

classmethod ZPATINDEXUL(UnderlineCount As %Integer, LiteralPart As %String, Expr As %String) as %Integer [ Language = objectscript, SQLProc = ZPATINDEXUL ]

PATINDEX for: underline(s) literal - returns 0/1

classmethod ZPATINDEXULR(UnderlineCount As %Integer, LiteralPart As %String, CosPattern As %String, Expr As %String) as %Integer [ Language = objectscript, SQLProc = ZPATINDEXULR ]

PATINDEX for: underline(s) literal rest - returns 0/1

classmethod ZPATTERNMATCH(Expr As %String, CosPattern As %String) as %Integer [ Language = objectscript, SQLProc = ZPATTERNMATCH ]
classmethod ZRAND(ScaleFactor As %Integer) as %Float [ Language = objectscript, SQLProc = ZRAND ]

Implement ZRAND(scalefactor)

classmethod ZREMAMPM(Item) as %String [ Language = objectscript, SQLProc = ZREMAMPM ]

Implement ZREMAMPM(item) to remove the "AM" or "PM" if necessary

classmethod ZRPATINDEX(TsqlPattern As %String, Expr As %String) as %Integer [ Language = objectscript, SQLProc = ZRPATINDEX ]

PATINDEX for non-literal patterns

classmethod ZRPATINDEXPLP(TsqlInnerPattern As %String, Expr As %String) as %Integer [ Language = objectscript, SQLProc = ZRPATINDEXPLP ]

PATINDEX for "%"+XXX+"%" patterns

classmethod ZWITHDATETIME(Item As %String) as %String [ Language = objectscript, SQLProc = ZWITHDATETIME ]

Implement ZWITHDATETIME(item) to append a date of 1/1/1900 and/or a time of midnight to the item if necessary

Inherited Members

Inherited Methods (Including Private)

Feedback