|
FUNCTION codes_are_unique (values : LIST [0:?] OF dic_value) : BOOLEAN; LOCAL ls : SET OF STRING := [ ] ; li : SET OF INTEGER := [ ] ; END_LOCAL ; IF ( 'iso13584_iec61360_dictionary_schema.value_code_type' IN TYPEOF ( values [ 1 ] . value_code ) ) THEN REPEAT i := 1 TO SIZEOF ( values ) ; ls := ls + values [ i ] . value_code ; END_REPEAT ; RETURN ( SIZEOF ( values ) = SIZEOF ( ls ) ) ; ELSE IF ( 'iso13584_iec61360_dictionary_schema.integer_type' IN TYPEOF ( values [ 1 ] . value_code ) ) THEN REPEAT i := 1 TO SIZEOF ( values ) ; li := li + values [ i ] . value_code ; END_REPEAT ; RETURN ( SIZEOF ( values ) = SIZEOF ( li ) ) ; ELSE RETURN ( UNKNOWN ) ; END_IF ; END_IF ; END_FUNCTION; -- codes_are_unique |
|
public class FCodes_are_unique public static Value run(SdaiContext _context, Value values) |