/* oopsall.aml
/*
/*   Called by: editanno.menu
/*		editarc.menu
/*		editarcplus.menu
/*		editgroup.menu
/*		editlabel.menu
/*		editlink.menu
/*		editnode.menu
/*		editpolygon.menu
/*		editscan.menu
/*		edittic.menu
/*		labelcontour.aml
/*  Calls made: none
/*
/* Description:	Oops back to beginning of edit session. Also used to OOPS back 
/*		to a specific point in the edit session from routines such as
/*		Label Contour where the transaction ID to OOPS back to is passed
/*		as an argument.

&args to_transaction
&if [null %to_transaction%] &then
  &s to_transaction 1
&if [show transaction] <> 1 &then &do
  &do n = [calc [show transaction] - 1] &to %to_transaction% &by -1
    OOPS
    &end /* do to by
  &end /* then do
&else
  &ty Already at first transaction
&return