In[]:=
Switch[#,"HM","HMD","AN","ANT","PS","PSE",_,Association[#@"CountryCode"->#@"UNCode"&/@EntityList@"Country"]@#]&/@{"HM","US","AN","PS","DE"}
Out[]=
{HMD,USA,ANT,PSE,DEU}