(FILECREATED "31-Mar-87 18:31:40" {QV}<NOTECARDS>1.3K>NEXT>PMIPATCH029.;1
 1488   

      changes to:  (VARS PMIPATCH029COMS)
		   (FNS NCP.DeleteNoteFile))


(* Copyright (c) 1987 by Xerox Corporation. All rights reserved.)

(PRETTYCOMPRINT PMIPATCH029COMS)

(RPAQQ PMIPATCH029COMS
 ((* * pmi 3/31/97: Fixes bug #508: Changed prompt in NCP.DeleteNoteFile from 
			     "Name of NoteFile to open:"
			     to "Name of NoteFile to delete:")
			  (* * Change to NCPROGINT)
			  (FNS NCP.DeleteNoteFile)))
(* * pmi 3/31/97: Fixes bug #508: Changed prompt in NCP.DeleteNoteFile from 
"Name of NoteFile to open:" to "Name of NoteFile to delete:")


(* * Change to NCPROGINT)


(DEFINEQ

(NCP.DeleteNoteFile

  (LAMBDA (NoteFileOrFileName Don'tConfirmFlg QuietFlg)      (* pmi: "31-Mar-87 18:31")


          (* * Prog's intface function for deleting a notefile.)




          (* * pmi 3/31/97: Changed prompt from "Name of NoteFile to open:" to "Name of NoteFile to delete:")



    (if
 (type?
 NoteFile NoteFileOrFileName)
	then
 (
NC.DeleteDatabaseFile
 NoteFileOrFileName NIL Don'tConfirmFlg QuietFlg)
      else
 (LET ((FileNameWithExt (
NC.DatabaseFileName
 "Name of NoteFile to delete:" " -- " T NIL 
							   NoteFileOrFileName)))
	          (
AND
 FileNameWithExt (
NC.DeleteDatabaseFile
 FileNameWithExt NIL Don'tConfirmFlg 
								  QuietFlg))))))
)
(PUTPROPS PMIPATCH029 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (688 1406 (NCP.DeleteNoteFile 698 . 1404)))))
STOP