Dynamic Drop Down(Translate Values)

This code i have got Ittool box.com.
It is very usefull. we usually have requirement when we want to hide some translate values from translate field on page for some business reason.
In this case we can use AddDropDownItem(),ClearDropDownItem().
The fact is that we need to use ClearDropDownItem() function first. so whatver values it had will bec leared out and then we will have to manually add values using AddDropDownItem().

Here is an example on the page activate PeopleCode.

Local Field &fField;

&fField = Record.EX_APR_WRK.APPROVAL_STATUS;
&fField.ClearDropDownList();
&fField.AddDropDownItem(" ", "All");
&fField.AddDropDownItem("A", "Approved");
&fField.AddDropDownItem("D", "Denied");
&fField.AddDropDownItem("H", "Hold");