* SCSIDELE.PRG V1.01 BY DEREK FOUNTAIN
* Deletes the current record in the database

IF DELETED()=0               * Not already deleted    
  AT 7,12 SAY "Please confirm this record is to be deleted (Y/N) >>>"
  LET confirm$=" "
  DO WHILE confirm$=" "
    AT 7,67 GET confirm$       
    IF WHERE(confirm$,"YNyn")=0
      LET confirm$=" "
    ENDIF
  ENDDO
  IF UPPER(confirm$)="Y"
    IF calling$="SCSI"
      LET 1:LUPDATE$=today$
    ENDIF
    DELETE RECORD
  ENDIF
ENDIF
RELEASE confirm$
RETURN