+//-----------------------------------------------------------------------------
+/**
+ * \brief If-and only if-the V(alue) M(ultiplicity)
+ * \ is unset then overwrite it.
+ * @param vm New V(alue) M(ultiplicity) to be set.
+ */
+void DictEntry::SetVM(TagName const &vm)
+{
+ if ( IsVMUnknown() )
+ {
+ VM = vm;
+ }
+ else
+ {
+ gdcmErrorMacro( "Overwriting VM might compromise a dictionary");
+ }
+}