Declare
 vr_record_group      RECORDGROUP;
 vn_populate          Number;  
Begin
 If :Blk_1.Tech_Type = 1 Then
  vr_record_group := Create_Group_From_Query('Tech_Subject','Select Decode(:Global.Language, 1, Dtl_Class_Desc_Ntv, Dtl_Class_Desc_Frn),
                                                                    To_Char(Class_Serial)
                                                             From Dd_Classes_Dtl
                                                             Where Class_Code    = 26
                                                             And Class_Serial In (1, 2, 3, 4)');
  vn_populate     := Populate_Group(vr_record_group);
  Populate_List('Blk_1.Tech_Subject','Tech_Subject');
 Elsif :Blk_1.Tech_Type = 2 Then
  vr_record_group := Create_Group_From_Query('Tech_Subject','Select Decode(:Global.Language, 1, Dtl_Class_Desc_Ntv, Dtl_Class_Desc_Frn),
                                                                    To_Char(Class_Serial)
                                                             From Dd_Classes_Dtl
                                                             Where Class_Code    = 26
                                                             And Class_Serial In (5, 6, 7, 8, 9, 10, 11, 12, 13)');
  vn_populate     := Populate_Group(vr_record_group);
  Populate_List('Blk_1.Tech_Subject','Tech_Subject');   
 End If;
End;