第五十一章 开发Productions - ObjectScript Productions - 不常见的任务
定义自定义实用函数
IRIS提供了一组可以从业务规则和DTL中调用的实用函数；这些在开发业务规则的Productions中使用的效用函数中有所描述。可以添加自己的功能，业务规则引擎和业务规则编辑器会自动适应您的扩展。
要添加新的效用函数:
- 创建一个新类，它是
Ens.Rule.FunctionSet的子类。此类不得扩展任何其他超类，只能扩展Ens.Rule.FunctionSet。 - 对于希望定义的每个函数，将一个类方法添加到新函数集类中。不支持多态性，所以准确的说，你必须把这些类方法标记为
final。可以在现有的Ens.Util.FunctionSet方法中查看这个（Ens.Util.FunctionSet是Ens.Rule.FunctionSet的超类）。 - 编译新类。新函数现在可用于规则表达式。要调用这些函数，请使用子类中的
ClassMethod名称。与Ens.Rule.FunctionSet中定义的函数不同，用户定义的方法名称必须使用它们所属的类进行完全限定。如果通过从管理门户中的向导中选择名称来添加它们，则会自动发生这种情况。
例如，以下函数集类提供了用于业务规则的日期和时间函数。它的类方法 DayOfWeek() 和 TimeInSeconds() 调用 ObjectScript 函数 $ZDATE 和 $PIECE 以从 ObjectScript 特殊变量 $HOROLOG 中提取所需的日期和时间值：
/// Time functions to use in rule definitions.
Class Demo.MsgRouter.Functions Extends Ens.Rule.FunctionSet
{
/// Returns the ordinal position of the day in the week,
/// where 0 is Sunday, 1 is Monday, and so on.
ClassMethod DayOfWeek() As %Integer [ CodeMode = expression, Final ]
{
$zd($H,10)
}
/// Returns the time as a number of seconds since midnight.
ClassMethod TimeInSeconds() As %Integer [ CodeMode = expression, Final ]
{
$p($H,",",2)
}
}
按照本主题中的描述添加新函数后，引用它的语法与内置函数略有不同。假设在一个继承自 Ens.Rule.FunctionSet 的类中定义此函数。
ClassMethod normalizaSexo(value as %String) as %String
编译该类后，当使用 IRIS 互操作性可视化工具之一（例如路由规则编辑器或数据转换生成器）时，会看到函数名称 normalizaSexo 包含在函数选择框中以及内置函数，例如 Strip、In , 包含等等。
假设从函数选择框中选择一个内置函数并查看生成的代码。会看到 IRIS 已经使用双点方法调用语法（在 DTL 中）生成了函数调用，或者只是通过名称引用了函数（在业务规则中）。 （这些语法规则在 Developing Business Rules 的 Utility Functions for Use in Productions 中进行了解释。）
以下示例是来自 DTL 的 <assign> 语句，它使用双点语法引用内置 Strip 函数：
<assign property='target.cod'
value='..Strip(source.{PatientIDExternalID.ID},"<>CW")'
action='set'/>
但是，如果创建自己的用户定义函数，则 DTL 的语法会有所不同。仅仅识别功能是不够的；还必须确定包含函数的类方法的类的完整类名。假设函数 normalizaSexo 是在名为 HP.Util.funciones 的类中定义的。在这种情况下，从函数选择框中选择一个函数并查看生成的代码后，会看到类似于以下示例的内容：
<assign property='target.sexo'
value='##class(HP.Util.funciones).normalizaSexo(source.{Sex})'
action='set'/>
如果希望将类似这样的语句直接键入到 DTL 代码中，而不是使用 Data Transformation Builder生成代码，则需要注意这种语法变化。
