Oracle 10g Developer 2000 forms6i reports6i

When-New_Form_Instance

declare
    j int:=0;
  timer_id Timer;
  one_m NUMBER(5) :=1000;
  pl_code number;
  i_name varchar2(300);
 
BEGIN
    :global.ex :=0;
                           
    HIDE_VIEW('EXEC_SQL');
   
    hide_view('ex1');
    hide_view('encrypt');
  --hide_view('asst_1');
    show_view ('person');
    hide_view ('absentees');
    hide_view ('exam_print');
    show_view('avengers');
    show_view('sub_list');

DELETE FROM EX6;
   
     :global.sys_name:= 'd:\shield\gif\';
     read_image_file(:global.sys_name||'national.bmp','bmp','logo.img1');
     read_image_file(:global.sys_name||'cloud.jpg','jpg','logo.avengers');
     read_image_file(:global.sys_name||'first.bmp','bmp','logo.first');
     read_image_file(:global.sys_name||'O_BigDataAppliance_clr.gif','gif','logo.clr');

 
  set_window_property(forms_mdi_window, window_state, maximize);
     set_window_property('window1', window_state, maximize);
    
    select code into pl_code from encrypt ;
    if pl_code is null then
        hide_view('avengers');
        show_view('encrypt');
        go_item('encrypt.code');
    else
   

    select code||'-'||inst_name into i_name from encrypt;
    set_window_property('window1', title, i_name);

                             
  HOST('ALTER SESSION SET NLS_DATE_FORMAT = ''DD-MON-YYYY''',NO_SCREEN);
  timer_id := CREATE_TIMER('emp_timer', one_m, REPEAT);

     go_block('sub_list');
     execute_query;
    
     go_block('exam');
     execute_query;
    
  :system.message_level := '20';
 
  delete from compute_statistics;
  delete from compute_stage;
  forms_ddl('truncate table compute_statistics');
  forms_ddl('compute_stage');
  commit;
  :global.c1:=0;

    :GLOBAL.B :=0;
    :GLOBAL.C :=0;
   
    :global.x1 :=0;
   
    clear_list('block3.c_r_absent');
    
     clear_list('block3.exam_date_lst');
    go_item ('block3.exam_date_lst');
    for i in (select exam_date from sub_list where exam_date is not null GROUP BY EXAM_DATE order by exam_DATE) loop
        j:=j+1;
        add_list_element('block3.exam_date_lst',j,i.exam_date,i.exam_date);
    end loop;
   
    clear_list('block3.sess_id');
    for i in (select distinct sess_id from sub_list where sess_id is not null) loop
        j:=j+1;
        add_list_element('block3.sess_id',j,i.sess_id,i.sess_id);
    end loop;
   
    :repo.n1 := 'Notice Board 4 COL';
    :repo.n2 := 'Notice Board 5 COL';
    :repo.n3 := 'Form Ex7 Attendance';
    :repo.n4 := 'Form Ex2';
  :repo.n5 := 'Question Paper Requr';
    :repo.n6 := 'Form Ex1';
    :repo.n7 := 'Form Ex6';
    :repo.n9 := 'Full Report';
    :repo.n10:= 'Export Database';
    :repo.n11:= 'Import Exam.NR';
    :repo.n12:= 'Import SubList';
    :repo.n13:= 'Absentees';
    :repo.n14:= 'All Subject Absent';
    :repo.n15:= 'Change NR';
    :repo.item535 := 'External Staffs';
   


declare
    qh number:=0;
begin
    select count(*) into qh from exam ;
    :block3.qh := qh;
end;


declare
    string1 varchar2(1000) := ' ';
    f int:=0;
begin
    for i in (select branch,sem, count(sem) ct from exam group by branch,sem) loop
        f:=f+1;
        string1 :=string1||'('||i.branch||','||i.sem||','||i.ct||') ';
    end loop;
  :block3.tot := string1;
end;


    set_item_property('block3.even_seats',enabled,property_false);
    set_item_property('block3.odd_seats',enabled,property_false);
   
    end if;
   
   

   
exception
    when no_data_found then
    message ('Authorization Key Not Found');
   
    when others then
    message ('Import Your data');

 end;