DEFINITION MODULE Payments; FROM DateFunctions IMPORT Date; FROM NumTypes IMPORT Real8; PROCEDURE MakePayment(InvoiceNbr : ARRAY OF CHAR; Pmtdate : Date; PmtAmt : Real8; CheckNbr : ARRAY OF CHAR; CustID : ARRAY OF CHAR); PROCEDURE ShowPaymentHist(CustID : ARRAY OF CHAR); (*PROCEDURE ManagePaymentFile();*) END Payments.