PACKAGE EMP_PKG IS
  PROCEDURE fill_job_name;
END;


PACKAGE BODY EMP_PKG IS
  
     
  PROCEDURE fill_job_name IS
    CURSOR lookup_job IS
      SELECT job_title
      FROM jobs
      WHERE job_id = :EMP_BLOCK.JOB_ID;
  BEGIN
    OPEN lookup_job;
    FETCH lookup_job INTO :EMP_BLOCK.JOB_NAME;
    CLOSE lookup_job;
  END;







END;


TRIGGER "WHEN-NEW-FORM-INSTANCE" IS
BEGIN


  Execute_Query;


END "WHEN-NEW-FORM-INSTANCE";


TRIGGER "POST-QUERY" ON EMP_BLOCK IS
BEGIN
  EMP_PKG.fill_job_name;
END "POST-QUERY";







@FormController("EXAMPLE1")
public class Example1Form{

  @Inject EmpPkg emp_pkg;
 
  public static abstract class EmpPkg {
    public abstract void fill_job_name();
  }
 
  @Package
  public class EmpPkgBody extends EmpPkg {
         
    public void fill_job_name() {
      SqlCursor <?> lookup_job = cursorFor(
        "SELECT job_title FROM jobs WHERE
        job_id = :EMP_BLOCK.JOB_ID"
      );
      try {
        open(lookup_job);
        fetchInto(lookup_job) ,
        nameIn("EMP_BLOCK.JOB_NAME"));
      } finally {
        if (lookup_job.isOpen()) {
          close(lookup_job);
        }
      }
    }
         
  }
     
  @WhenNewFormInstance
  public void form_WHEN_NEW_FORM_INSTANCE() {
         
    executeQuery();
         
  }
     
  @PostQuery("EMP_BLOCK")
  public void block_EMP_BLOCK_POST_QUERY() {
    emp_pkg.fill_job_name();
  }
     
}