obj = OBJ_NEW('IDLffDICOM')
read = obj->Read(DIALOG_PICKFILE(PATH=path))

ref = obj->GetValue('0028'x,'0030'x)

PRINT, "ref[0]:", *ref[0]

hans = STRSPLIT(*ref[0], '\', COUNT=0, EXTRACT=1)

PRINT, "hans:", hans