!TRACYED1.IPF - mod from  TRACYIN4.IPF to do single record edit on newly
!index TAESDATA.ITB [TAESDATA.IND - INDEXED BY AZ ACNUMBER]
clear
!TABLES
!BLOCK BELOW FOR USE [TABLE/INDEX WILL BE LOADED IN TRACYIN4]
finish all;e.supd=true
use taesdata with taesdata !MAIN DATA TABLE
!VARIABLES - THIS PROGRAM
qacnum=" ";noentry=0;edirec=0;echoice=0;edoit=0
!FORM
perform traform2 
!ARRAYS - THIS PROGRAM
dim ed1menu(2) !THIS ONE HOLDS THE MENU STRINGS FOR COUNTY/PLACE NAME
ed1menu(1)=" Check another record "
ed1menu(2)="       Return         "
while edoit=0 do
 clear
 @10,2 input qacnum using "rrrrrrrrrr" with "Accession number of specimen:  "
 if qacnum ne " " then
  noentry=0
  pluck qacnum
 else
  noentry=1
 endif
 if noentry=0 then
  if #found=true then
   edirec=currec(taesdata)
   browse range edirec,edirec with traform2
   noentry=1
  else
   @12,2?"No specimen in the database with an accession number of: ",qacnum
   @14,2?"Hit any key to re-enter/edit this accession number or enter nothing to return";wait
   noentry=0
  endif
 endif
 if noentry ne 0 then
     test menu (ed1menu,1,2,24,16,0,25,2)
      CASE 1: echoice=0;break
      CASE 2: echoice=2;break     
      OTHERWISE:  clear;@10,2?"SOMETHING IS AMISS - CALL WILSON";break
     endtest
 endif
 if echoice=2 then
  edoit=1
 endif
 if echoice ne 0 then;break;endif
endwhile
release traform2
release echoice,edirec,noentry,qacnum,edoit,ed1menu
clear;wstart1=0;return