- if ( IsVRUnknown() )
- {
- DicomEntry::SetVR(vr);
- }
- else
- {
- gdcmErrorMacro( "Overwriting VR might compromise a dictionary");
- }
-}
-
-/**
- * \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");
- }
+ // according to 'Purify', TranslateToKey is one of the most
+ // time consuming methods.
+ // Let's try to shorten it !
+ return TagKey(group,elem);