* SCSIRECA.PRG V1.01 BY DEREK FOUNTAIN
* Recalls the current record in the database

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