Select the document type

[pft]('' if s(mpu,v5021[1],mpl)='I' then v2000^i else if s(mpu,v5021[1],mpl)='P' then v2000^p else v2000^e fi, fi, '')[/pft]