note
	description: "Summary description for {COMMON_SETUP}."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class 
	COMMON_SETUP2

inherit
	ANY
		redefine
			default_create
		end

create 
	default_create

feature -- Constructor

	default_create
			-- Process instances of classes with no creation clause.
			-- (Default: do nothing.)
		do
			common_setup
		end
	
feature -- Attributes

	p1: PATIENT

	p2: PATIENT

	p3: PATIENT

	p4: PATIENT

	system: HEALTH_SYSTEM

	m1: MEDICATION

	m2: MEDICATION

	m3: MEDICATION

	m4: MEDICATION

	common_setup
		do
			create p1.make ("p1")
			create p2.make ("p2")
			create p3.make ("p3")
			create p4.make ("p4")
			create system.make
			create m1.make ("m1")
			create m2.make ("m2")
			create m3.make ("m3")
			create m4.make ("m4")
		end
	
end -- class COMMON_SETUP2

Generated by ISE EiffelStudio