DEFINITION MODULE DBUtils;

FROM ScrnTypes IMPORT DisplayFile,DisplayFrame;
FROM DateFunctions IMPORT Date;
FROM GenLists IMPORT GenList;
FROM NumTypes IMPORT Real8;

VAR
  PrintTitle : ARRAY[0..6] OF ARRAY[0..79] OF CHAR;

PROCEDURE AddFldTypes(VAR DF : DisplayFrame;Col,Row: CARDINAL;
          Text : ARRAY OF CHAR; Len : CARDINAL; Type : CHAR);
	
(* PROCEDURE GetSeqNbr(FileName : ARRAY OF CHAR; VAR Str : ARRAY OF CHAR);*)
PROCEDURE SelectFromScreen(VAR DF : DisplayFrame);
PROCEDURE GetSelected(VAR TheList : GenList; DF : DisplayFrame);

PROCEDURE GetDateRange(VAR D1,D2 :Date; DFile : DisplayFile);

PROCEDURE ChangeDateField(VAR DF : DisplayFrame; D : Date;
                          FldName : ARRAY OF CHAR);
PROCEDURE ReadDateField( DF :DisplayFrame; VAR D : Date;
                          FldName : ARRAY OF CHAR);
PROCEDURE ReadCardField(DF : DisplayFrame; VAR TheCard : CARDINAL;
                        FldName : ARRAY OF CHAR);
PROCEDURE ReadRealField(DF : DisplayFrame; VAR TheReal : Real8;
                        FldName : ARRAY OF CHAR);
PROCEDURE ChangeCardField(DF : DisplayFrame; TheCard : CARDINAL;
                          FldName : ARRAY OF CHAR);
PROCEDURE ChangeRealField(DF : DisplayFrame; TheReal : Real8;
                            FldName : ARRAY OF CHAR);
(*PROCEDURE NormalTitle(VAR LastLine : ARRAY OF CHAR);*)
(* PROCEDURE PrintHeader(Handle : CARDINAL); *)
PROCEDURE PrintFrame(DF : DisplayFrame; Handle : CARDINAL);			
PROCEDURE BoolExists(B : BOOLEAN) : CHAR;
END DBUtils.