Routines Routines When you create routines in InterSystems IRIS, you use ObjectScript. The following shows part of a routine written in ObjectScript: SET text = "" FOR i=1:5:$LISTLENGTH(attrs) { IF ($ZCONVERT($LIST(attrs, (i + 1)), "U") = "XREFLABEL") { SET text = $LIST(attrs, (i + 4)) QUIT } } IF (text = "") { QUIT $$$ERROR($$$GeneralError,$$$T("Missing xreflabel value")) }