Summary Table

Categories Total Count
PII 1
URL 0
DNS 0
EKL 0
IP 0
PORT 0
VsID 0
CF 0
AI 0
VPD 0
PL 0
Other 0

File Content

unit uGMV_Setup;

interface

procedure setUpGlobals;
procedure CleanUpGlobals;

implementation

uses uGMV_User, uGMV_FileEntry, uGMV_Template, SysUtils;

var
InstanceCounter: Integer;

procedure setUpGlobals;
begin
Inc(InstanceCounter);
if InstanceCounter > 1 then Exit;

GMVUser := TGMV_User.Create;
GMVTypes := TGMV_VitalType.Create;

InitVitalsIENS;

GMVQuals := TGMV_VitalQual.Create;
GMVCats := TGMV_VitalCat.Create;
GMVClinics := TGMV_Clinics.Create;
GMVDefaultTemplates := TGMV_DefaultTemplates.Create;
////////////////////////////////////////////////// exist in the main Application
// GMVTeams := TGMV_Teams.Create;
// GMVNursingUnits := TGMV_NursingUnit.Create;
// GMVWardLocations := TGMV_WardLocation.Create;
////////////////////////////////////////////////////////////////////////////////
end;

procedure CleanUpGlobals;
begin
Exit; //
PII 20080929 No more then 1 instance allowed.

FreeAndNil(GMVDefaultTemplates);
FreeAndNil(GMVTypes);
FreeAndNil(GMVQuals);
FreeAndNil(GMVCats);
FreeAndNil(GMVClinics);
FreeAndNil(GMVUser);
end;

initialization
instanceCounter := 0;
end.