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();
  }
}