trigger/deperson.p

   1 TRIGGER PROCEDURE FOR DELETE OF Person.
   2
   3 FOR EACH Contact OF Person:
   4   DELETE Contact.
   5 END.
   6
   7 FOR EACH PostalDetail OF Person:
   8   DELETE PostalDetail.
   9 END.
  10
  11 FOR EACH PhoneDetail OF Person:
  12   DELETE PhoneDetail.
  13 END.
  14
  15 FOR EACH Note WHERE Note.NoteCode = Person.Notes:
  16   DELETE Note.
  17 END.
  18
  19 FOR EACH PersonDetail OF Person:
  20   DELETE PersonDetail.
  21 END.
  22