CLOSE TABLES ALL CLOSE DATABASES SET EXCL OFF SET TALK OFF SET DATE TO BRITISH SET CENTURY ON SET MARK TO SET DELETED OFF SET REFRESH TO 10,5 SET LOCK ON SET BELL OFF SET ENGINEBEHAVIOR 70 PUBLIC gcoldfilter, pvUsername, PvUsercode, pvItemopen, pvCount, pvEnrol_date, pvDate_inf, pvlast_visit pvUsername = ALLTRIM(SUBSTR(SYS(0),(AT("#",SYS(0))+1))) pvItemopen = 1 gcoldfilter = "" pvEnrol_date = {} pvDate_inf = {} pvlast_visit = 0 CD "\\mtwapa2\data\data\Database Management System\" OPEN DATABASE (CURDIR() + 'Databases\mtwapa') WITH _VFP .VISIBLE = .F. .CAPTION="IAVI Database Management System" ENDWITH _SCREEN.Icon = (CURDIR() + 'Other Files\iavi Icon.ICO') DO FORM (CURDIR() + 'forms\log form.scx') READ EVENTS