NYSIIS: Difference between revisions

12 bytes added ,  11 years ago
m
m (Allow for small suffix/honours list (too large otherwise))
Line 17:
{
 
ClassMethod EncodeEncodeName(pAlgorithm As %String = "", pName As %String = "", Output pCode As %String, pSuffixRem As %Boolean = 1, pTruncate As %Integer = 0) As %Status
{
// check algorithm and name
Line 51:
Set pCode=""
For piece=1:1:$Length(pName, " ") {
If pAlgorithm="nysiis" Set pCode=pCode_..NYSIISToNYSIIS($Piece(pName, " ", piece))
}
If pTruncate {
Line 64:
}
 
ClassMethod NYSIISToNYSIIS(pName As %String) As %String
{
/*
Line 129:
{{out|Examples}}
<pre>
USER>For { Read !, name Quit:name="" Set sc=##class(Utils.Phonetic).EncodeEncodeName("nysiis", name, .code,, 6) If sc Write " -> ", code }
 
knight -> NAGT