(FILECREATED "27-Jul-86 01:13:59" {QV}<NOTECARDS>1.3K>RHTPATCH080.;1
 1630   

      changes to:  (VARS RHTPATCH080COMS))


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

(PRETTYCOMPRINT RHTPATCH080COMS)

(RPAQQ RHTPATCH080COMS
 ((* * Change to NCPROGINT)
			  (FNS NCP.OpenNoteFile)))
(* * Change to NCPROGINT)


(DEFINEQ

(NCP.OpenNoteFile

  (LAMBDA (NoteFileOrFileName Don'tCreateFlg Convertw/oConfirmFlg QuietFlg MenuPosition ReadOnlyFlg 
			      Don'tCreateInterfaceFlg)       (* rht: "26-Jul-86 23:53")


          (* * Prog's intface version of opening a notefile.)




          (* * rht 7/7/86: Now takes QuietFlg and MenuPosition arg. Takes either NoteFile object or file name.)




          (* * rht 7/16/86: Added ReadOnlyFlg arg.)




          (* * rht 7/26/86: Added Don'tCreateInterfaceFlg)



    (if
 (type?
 NoteFile NoteFileOrFileName)
	then
 (
NC.OpenDatabaseFile
 NoteFileOrFileName (
AND
 ReadOnlyFlg (
QUOTE
 INPUT))
				      NIL QuietFlg Don'tCreateFlg Convertw/oConfirmFlg NIL NIL NIL 
				      NIL NIL NIL MenuPosition)
      else
 (LET ((FileNameWithExt (
NC.DatabaseFileName
 "Name of NoteFile to open:" " -- " T NIL 
							   NoteFileOrFileName)))
	          (
AND
 FileNameWithExt (
NC.OpenDatabaseFile
 FileNameWithExt (
AND
 ReadOnlyFlg
										       (
QUOTE

											 INPUT))
								NIL QuietFlg Don'tCreateFlg 
								Convertw/oConfirmFlg NIL NIL 
								Don'tCreateInterfaceFlg NIL NIL NIL 
								MenuPosition))))))
)
(PUTPROPS RHTPATCH080 COPYRIGHT ("Xerox Corporation" 1986))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (346 1548 (NCP.OpenNoteFile 356 . 1546)))))
STOP