DEFINITION MODULE Invtry;
FROM DBFInvtry IMPORT InvtryRec;
FROM NumTypes IMPORT Real8;
  PROCEDURE ControlInvtry();
  PROCEDURE GetInvItem( VAR InvItem : InvtryRec): BOOLEAN;
  PROCEDURE UpdateInvQuant( InvtryNbr : ARRAY OF CHAR; ChangeAmt :Real8);
  PROCEDURE GeneralInventory(VAR InvtrCode : ARRAY OF CHAR);
END Invtry.