trigger/decontct.p

   1 TRIGGER PROCEDURE FOR DELETE OF Contact.
   2
   3 FIND Person OF Contact EXCLUSIVE-LOCK NO-ERROR.
   4 IF AVAILABLE(Person) THEN DO:
   5   DEF VAR system-contact AS LOGI NO-UNDO INITIAL Yes.
   6
   7   DEF BUFFER CtcType FOR ContactType.
   8   DEF BUFFER OtherContact FOR Contact.
   9
  10   FOR EACH OtherContact WHERE OtherContact.PersonCode = Contact.PersonCode
  11                         AND RECID(OtherContact) <> RECID(Contact) NO-LOCK,
  12                 FIRST CtcType OF OtherContact NO-LOCK:
  13     IF NOT CtcType.SystemCode THEN system-contact = No.
  14   END.
  15
  16   Person.SystemContact = system-contact.
  17   Person.LastModified = TODAY.
  18 END.