EventPersonLs1 = compute [list(Person=Result)] where
			(
			Ppl = m:obj.find ($pckg_007:cl_prsn_events_007, [l_events = Event_oid]) &
			Person = get:Ppl.l_prsn &
			:Person.get_details (Result)
			)

-------------------------------------------------------------

void get_details (out list Details)
	get_details( Prsn ) :-

		Fnm = get:fnm &
		Lnm = get:lnm &
		Eml = get:eml &
		Bday = get:bday &

			Prsn = [
				Fnm ,
				Lnm,
				Eml,
				Bday
			]
;