// Read the package definition from the database dictionary
procedure TPackageDefinition.ReadFromDictionary;
var Query: TOracleQuery;
	Obj: TPackageObject;
	LastObject, LastOverload: string;
	ThisObject, ThisOverload: string;
	ThisDataType: string;
	Par, ParentParam: TPackageParameter;
	ThisDataLevel: Integer;
	ParentIndex: Integer;
begin
  FObjects.Clear;
  Query := TOracleQuery.Create(nil);
  try
	Query.Session := Session;
	Query.SQL.Add('select * from sys.all_arguments');
	Query.SQL.Add('where package_name = :package_name');
	Query.SQL.Add('and owner = :owner');
	Query.SQL.Add('order by object_name, overload, sequence');
	Query.DeclareVariable('package_name', otString);
	Query.DeclareVariable('owner', otString);
	Query.SetVariable('package_name', Name);
	Query.SetVariable('owner', Owner);
	Query.Execute;
	while not Query.Eof do
	begin
	  ThisObject   := Query.Field('object_name');
	  ThisOverload := Query.Field('overload');
	  LastObject := ThisObject;
	  LastOverload := ThisOverload;
	  Obj := TPackageObject.Make(Self, ThisObject, ThisOverload);
	  repeat
		ThisDataLevel := Query.Field('data_level');
		ThisDataType  := Query.Field('data_type');
		Par := nil;
		if ThisDataType <> '' then
		begin
		  if ThisDataLevel = 0 then
		  begin
			Par := TPackageParameter.Make(Obj, Query.Field('argument_name'));
		  end else begin
			ParentIndex := Obj.FlatParameterCount;
			repeat
			  Dec(ParentIndex);
			  ParentParam := Obj.FlatParameters[ParentIndex];
			until (ParentParam.DataLevel = ThisDataLevel - 1) or (ParentIndex = 0);
			Par := TPackageParameter.MakeSub(ParentParam, Query.Field('argument_name'))
		  end;
		end;
		if Par <> nil then
		begin
		  Par.FDataLevel := ThisDataLevel;
		  Par.FSequence := Query.Field('sequence');
		  Par.FMode := pmIn;
		  if Query.Field('in_out') = 'OUT' then Par.FMode := pmOut;
		  if Query.Field('in_out') = 'IN/OUT' then Par.FMode := pmInOut;
		  Par.FDataType := Query.Field('data_type');
		  Par.FDefaultValue := Query.Field('default_value');
		  Par.FDataLength := Query.Field('data_length');
		  Par.FDataPrecision := Query.Field('data_precision');
		  Par.FDataScale := Query.Field('data_scale');
		  if Query.FieldIndex('type_owner') >= 0 then
			Par.FTypeOwner := Query.Field('type_owner')
		  else
			Par.FTypeOwner := '';
		  if Query.FieldIndex('type_name') >= 0 then
			Par.FTypeName := Query.Field('type_name')
		  else
			Par.FTypeName := '';
		  if Query.FieldIndex('type_subname') >= 0 then
			Par.FTypeSubName := Query.Field('type_subname')
		  else
			Par.FTypeSubName := '';
		end;
		Query.Next;
		if not Query.Eof then
		begin
		  ThisObject   := Query.Field('object_name');
		  ThisOverload := Query.Field('overload');
		end;
	  until Query.Eof or (ThisObject <> LastObject) or (ThisOverload <> LastOverload);
	  Obj.Selected := Obj.IsSupported;
	end;

	// ---PATCH-BEGIN---
	Query.SQL.Clear;
	Query.SQL.Add('select p.PROCEDURE_NAME');
	Query.SQL.Add('from all_procedures p');
	Query.SQL.Add('where');
	Query.SQL.Add('   p.OWNER = :owner and');
	Query.SQL.Add('   p.OBJECT_NAME = :package_name and');
	Query.SQL.Add('   p.PROCEDURE_NAME is NOT NULL and');
	Query.SQL.Add('   not exists');
	Query.SQL.Add('   (');
	Query.SQL.Add('	   select 1');
	Query.SQL.Add('	   from sys.all_arguments aa');
	Query.SQL.Add('	   where');
	Query.SQL.Add('		aa.OWNER = p.OWNER and');
	Query.SQL.Add('		aa.PACKAGE_NAME = p.OBJECT_NAME and');
	Query.SQL.Add('		aa.OBJECT_NAME = p.PROCEDURE_NAME');
	Query.SQL.Add('   )');
	Query.SQL.Add('order by p.PROCEDURE_NAME');
	Query.Execute;
	while not Query.Eof do
	begin
	  ThisObject   := Query.Field('PROCEDURE_NAME');
	  ThisOverload := '';

	  //Obj :=
	  TPackageObject.Make(Self, ThisObject, ThisOverload);

	  Query.Next;
	end;
	// ---PATCH-END---

  except
	FObjects.Clear;
	Query.Free;
	raise;
  end;
  Query.Free;
end;