if (form_name='PERWSAPA') then 
      if (event_name = 'WHEN-NEW-FORM-INSTANCE') then
        if (nvl(fnd_profile.value('XXPER_HIDE_STATUSES'),'N') <> 'Y') then
        	rg_id := FIND_GROUP('STATUSES_UPDATE'); 
        	if not Id_Null(rg_id) then 
	          errcode := Populate_Group_With_Query(rg_id,
'select nvl(t.user_status, tl.user_status) status, s.assignment_status_type_id,
       nvl(a.per_system_status, s.per_system_status) per_system_status
from per_assignment_status_types s, per_ass_status_type_amends a, per_assignment_status_types_tl tl,
     per_ass_status_type_amends_tl t
where a.assignment_status_type_id(+) = s.assignment_status_type_id
      and a.business_group_id(+) + 0 = :ctl_globals.business_group_id
      and nvl(s.business_group_id, :ctl_globals.business_group_id) = :ctl_globals.business_group_id
      and nvl(s.legislation_code, :ctl_globals.legislation_code) = :ctl_globals.legislation_code
      and nvl(a.active_flag, s.active_flag) = ''Y''
      and s.primary_flag = ''P''
      and nvl(a.pay_system_status, s.pay_system_status) is null
      and s.assignment_status_type_id = tl.assignment_status_type_id
      and tl.language = userenv(''LANG'')
      and a.ass_status_type_amend_id = t.ass_status_type_amend_id(+)
      and decode(t.ass_status_type_amend_id, null, ''1'', t.language) = decode(t.ass_status_type_amend_id, null, ''1'', userenv(''LANG''))
      and s.assignment_status_type_id in (6)
order by nvl(a.per_system_status, s.per_system_status)
');      	  
        	end if;
        	rg_id := FIND_GROUP('STATUSES_INSERT'); 
        	if not Id_Null(rg_id) then 
	          errcode := Populate_Group_With_Query(rg_id,
'select nvl(t.user_status, tl.user_status) status, s.assignment_status_type_id,
       nvl(a.per_system_status, s.per_system_status) per_system_status
from per_assignment_status_types s, per_ass_status_type_amends a, per_assignment_status_types_tl tl,
     per_ass_status_type_amends_tl t
where s.assignment_status_type_id = tl.assignment_status_type_id
      and tl.language = userenv(''LANG'')
      and a.ass_status_type_amend_id = t.ass_status_type_amend_id(+)
      and decode(t.ass_status_type_amend_id, null, ''1'', t.language) =
      decode(t.ass_status_type_amend_id, null, ''1'', userenv(''LANG''))
      and a.assignment_status_type_id(+) = s.assignment_status_type_id
      and a.business_group_id(+) + 0 = :ctl_globals.business_group_id
      and nvl(s.business_group_id, :ctl_globals.business_group_id) = :ctl_globals.business_group_id
      and nvl(s.legislation_code, :ctl_globals.legislation_code) = :ctl_globals.legislation_code
      and nvl(a.active_flag, s.active_flag) = ''Y''
      and s.primary_flag = ''P''
      and nvl(a.pay_system_status, s.pay_system_status) is null
      and nvl(a.per_system_status, s.per_system_status) not in (''TERM_APL'')
      and s.assignment_status_type_id in (6)
order by nvl(a.per_system_status, s.per_system_status)
');      	  
      	  end if;
        end if;
      end if;
    end if;