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 -- item invalid IF item does NOT belong TO versionable types RETURN(FALSE); END_IF; END_REPEAT; RETURN(TRUE); ELSE -- CASE WHERE aia does NOT convey a version id RETURN(TRUE); END_IF; END_FUNCTION; -- external_version_assignment_is_valid
|