|
FUNCTION external_version_assignment_is_valid (aia : applied_external_identification_assignment) : BOOLEAN; LOCAL item : identification_item ; role : identification_role ; END_LOCAL ; role := aia . role ; IF role . name = 'version' THEN REPEAT i := LOINDEX ( aia . items ) TO HIINDEX ( aia . items ) ; item := aia . items [ i ] ; IF ( SIZEOF ( [ 'external_properties_mim.' + 'externally_versioned_item' ] * TYPEOF ( item ) ) = 0 ) THEN RETURN ( FALSE ) ; END_IF ; END_REPEAT ; RETURN ( TRUE ) ; ELSE RETURN ( TRUE ) ; END_IF ; END_FUNCTION; -- external_version_assignment_is_valid |
|
public class FExternal_version_assignment_is_valid public static Value run(SdaiContext _context, Value aia) |