create procedure get_tree_%Lower(%TableName) (
  MASTER_%TableName_ID INTEGER)
returns (%ForEachAtt(%TableName, ',')
 {
  %AttFieldName %AttDataType})
AS
begin
  for select %ForEachAtt(%TableName, ',')
    { %AttFieldName}
  from %TableName T
  where Base_%TableName_id =:MASTER_%TableName_id
  order by T.Location, T.FName_Short
  into %ForEachAtt(%TableName, ',')
  { :%AttFieldName}
   do begin
     suspend;
     if (Child_Count >  0 ) then
       for  select %ForEachAtt(%TableName, ',')
         { %AttFieldName}
       from get_tree_%Lower(%TableName)(:%TableName_id)
       into %ForEachAtt(%TableName, ',')
        { :%AttFieldName}
     do suspend;
   end
end

create procedure get_tree_part_category (
  MASTER_Part_Category_ID INTEGER)
returns (part_category_id INTEGER,
  base_part_category_id INTEGER,
  fname_short VARCHAR( 84 ),
  location INTEGER,
  child_count INTEGER)
AS
begin
  for select part_category_id, base_part_category_id, fname_short, location, child_count
  from Part_Category T
  where Base_Part_Category_id =:MASTER_Part_Category_id
  order by T.Location, T.FName_Short
  into :part_category_id, :base_part_category_id, :fname_short, :location, :child_count
   do begin
     suspend;
     if (Child_Count >  0 ) then
       for  select part_category_id, base_part_category_id, fname_short, location, child_count
       from get_tree_part_category(:Part_Category_id)
       into :part_category_id, :base_part_category_id, :fname_short, :location, :child_count
     do suspend;
   end
end