my $i = 1;
my $id = 0;
my $dimension_units = AM->retrieve_units($myconfig, $form, "dimension");
my $service_units = AM->retrieve_units($myconfig, $form, "service");
my $all_units = AM->retrieve_units($myconfig, $form);
while (($form->{"id_$i"}) or ($form->{"new_id_$i"})) {
my $i = 1;
my $id = 0;
my $dimension_units = AM->retrieve_units($myconfig, $form, "dimension");
my $service_units = AM->retrieve_units($myconfig, $form, "service");
my $all_units = AM->retrieve_units($myconfig, $form);
while (($form->{"id_$i"}) or ($form->{"new_id_$i"})) {