% Events
  EventLs = [
			 date_s = "25/12/2019",
			 hour = 43344,
			 diff = beg_a,
			 description = "ala bala"
			]
& Event_ID = :$pesho96:cp_subitiq.create (EventLs)

%Chat
& ChatLs = [
			text_person = "Kvo praim ako vali"
		   ]
& Chat_ID = :$pesho96:cp_chat.create (ChatLs)


% Person
& Email_ls = ["asd@gmail.com", "hre@gmail.com", "lll@gmail.com", "kkk@gmail.com", "ggg@gmail.com", "ddd@gmail.com", "yyy@gmail.com", "icc@gmail.com"]
& First_name_ls = ["Petar", "Ivan", "Gosho", "Iskren", "Martin", "Iveta", "Uliq", "Valentina"]
& Last_name_ls = ["Yovev", "Ivanov", "Goshev", "Dimitrov", "Terziev", "Ohuta", "Litova", "Ilieva"]
& Date_of_birth_ls = ["01/01/1980", "12/05/1963", "12/05/1973", "12/05/1983", "12/05/1993", "12/05/1932", "12/05/1933", "12/05/1954"]

& Res = compute list (Link_prsn_event) where
			(
			  m:lst.member (Email_ls, Email, Pos)
			& t:lst.member (First_name_ls, FName, Pos)
			& t:lst.member (Last_name_ls, LName, Pos)
			& t:lst.member (Date_of_birth_ls, DoB, Pos)
			& if

				  t:obj.find ($pesho96:cp_persons, [email = Email], P, [])

			  then
				  nop

			  else
				  (
				    List_ls = [
							   email = Email,
							   first_name = FName,
							   last_name = LName,
							   date_of_birth = DoB
							  ]

				  & P = :$pesho96:cp_persons.create (List_ls)
				  )
			& Link_prsn_event = :$pesho96:cl_prs_event.create ([l_event = Event_ID, l_person = P])


			)



%Ekipirovka
& Equipment_ls = ["rope", "hrana", "kafe"]
& for_all
	  m:lst.member (Equipment_ls, EQIP, Pos)
  do
	  (
	    List_Eqip = [
					 name_equipment = EQIP
					]
	  & Equip_ID = :$pesho96:cp_eqipment.create (List_Eqip)
	  )



& Link_event_equip = :$pesho96:cl_eqip_event.create ([l_event = Event_ID, l_equip = Equip_ID])

& :trx.save