/* Hide Rows on the grid for any thing that is not of Address Type "HOME" */
FOR &i = 1 TO &Level1.ActiveRowCount
   &AddrType = FetchValue(Scroll.PERSON_ADDRESS, &i, PERSON_ADDRESS.ADDRESS_TYPE);
   IF &AddrType <> "HOME" Then
      &Level1(&i).Visible = False;
   Else
      &addrHomeFound = "Y";
   End-IF;
End-FOR;

/*Users will only be able to add a "Home" mailing address, so restrict the values in the drop down to show only "Home"*/
IF &addrHomeFound = "Y" Then
   /* home mailing address already there, no need to show the drop down menu */
   DERIVED_CO.ADDR_TYPE_DESCR.Visible = False;
Else
   /* Clear drop down list and then show only "Home" */
   DERIVED_CO.ADDR_TYPE_DESCR.ClearDropDownList();
   DERIVED_CO.ADDR_TYPE_DESCR.AddDropDownItem("HOME", "Home");
End-IF;