(FILECREATED "25-Feb-87 18:03:44" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH015.;2
 1436   

      changes to:  (VARS RGPATCH015COMS)

      previous date: "25-Feb-87 17:39:36" {QV}<NOTECARDS>1.3K>NEXT>RGPATCH015.;1)


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

(PRETTYCOMPRINT RGPATCH015COMS)

(RPAQQ RGPATCH015COMS
 ((* * RG 2/23/87 Fixes yet another bug in value returns)
			 (* * Changes to NCCARDS)
			 (FNS NC.InsureProperFiling)))
(* * RG 2/23/87 Fixes yet another bug in value returns)


(* * Changes to NCCARDS)


(DEFINEQ

(NC.InsureProperFiling

  [LAMBDA (Card)                                             (* Randy.Gobbel "25-Feb-87 18:01")

                                                             (* Called when any type of note card is being quitted 

							     from, i.e., closed)


          (* * rht 12/9/84: Moved check of the NC.ForceFiling flag into NC.CheckContentsHooks.)




          (* * fgh 11/12/85 Updated to handle Card and NoteFile objects.)




          (* * fgh 6/27/86 Changed format to allow being killed by ERROR!)




          (* * rg 1/28/87 Now returns CANCELLED if any of the component tests fail)



    (
OR
 (
AND
 (
NULL
 (
NC.FetchBeingDeletedFlg
 Card))
		 (
NC.CheckTitle
 Card)
		 (
NC.CheckFiling
 Card))
	  (
QUOTE
 CANCELLED])
)
(PUTPROPS RGPATCH015 COPYRIGHT ("Xerox Corporation" 1987))
(DECLARE: DONTCOPY
  (FILEMAP (NIL (553 1355 (NC.InsureProperFiling 563 . 1353)))))
STOP