* Utilities.prg
* Defines various utility classes

DEFINE CLASS Addr AS Session

PROCEDURE Init
This.Datasession = 2
IF NOT USED("Addresses")
   USE Addresses ALIAS Addresses AGAIN SHARED
ENDIF

ENDPROC

PROCEDURE Exists(tcAddrNum)

RETURN IndexSeek(m.nAddrNum, 'Address', 'Addrnum')
ENDPROC

* Other possible Mehotds
PROCEDURE AddAddr( ... )

ENDPROC

PROCEDURE DelAddr( ... )

ENDPROC

ENDDEFINE

* Other utility class definitions would be added here