sub enter_order {

  my ($userid) = $_[0];
  my ($password) = $_[1];
  my ($projectid) = $_[2];
  my ($ordertypeid) = $_[3];
  my ($orderdateid) = $_[4];
  my ($accountid) = $_[5];
  my ($segcodeid) = $_[6];
  my ($marketid) = $_[7];
  my ($marketday) = $_[8];
  my ($marketmonth) = $_[9];
  my ($marketyear) = $_[10];
  my ($putcall) = $_[11];
  my ($strikeprice) = $_[12];
  my ($bs) = $_[13];
  my ($quantity) = $_[14];
  my ($orderprice) = $_[15];
  my ($entered_by) = $_[16];