FUNCTION AbandonEntry()
  repaint off
  vloadif(dpath|"cus_ent4.vw")
  order change index "current.idx"
  y2 = format("Select requisition type or {F10} to exit","M72")
  screen print 21 5 fgp bbd y2
  vloadif(dpath|"prodsel"|$prodend|".vw")
END FUNCTION ' AbandonEntry()