Declaration

TEditNoteRec = record
  DocType: Integer;
  IsNewNote: boolean;
  Title: Integer;
  TitleName: string;
  DateTime: TFMDateTime;
  Author: Int64;
  AuthorName: string;
  Cosigner: Int64;
  CosignerName: string;
  Subject: string;
  Location: Integer;
  LocationName: string;
  VisitDate: TFMDateTime;
  PkgRef: string;      // 'IEN;GMR(123,' or 'IEN;SRF('
  PkgIEN: integer;     // file IEN
  PkgPtr: string;      // 'GMR(123,' or 'SRF(' 
  NeedCPT: Boolean;
  Addend: Integer;
  LastCosigner: Int64;
  LastCosignerName: string;
  IDParent: integer;
  ClinProcSummCode: integer;
  ClinProcDateTime: TFMDateTime;
  Lines: TStrings;
  PRF_IEN: integer;
  ActionIEN: string;
end;