create or alter procedure RES_CITOLOG
(
  PROTOCOLID type of column TREATPLACE.PROTOCOLID,
  CODEPARAMS type of column PARAMSINFO.CODEPARAMS,
  ORGANID type of column PARAMSINFO.ORGANID,
  TREATCODE type of column TREAT.TREATCODE
)
returns
(
  SPOSOB type of column PARAMSINFO.VALUETEXT
)
as
begin
for
	select
 IIF(coalesce(tp.dirid,0)>0, (select distinct
										IIF(p.organid=14874,
										(select v1.valuetext
										from treat t
										left join clrefdet crd on t.treatcode=crd.rtreatcode and crd.schid=502001397 and crd.organid=14874
										left join clreferrals cr on crd.refid=cr.refid
										left join stat_direction sd on cr.dirid=sd.sdid
										left join treatplace tp1 on sd.sdid=tp1.dirid and tp1.placeid=502000472 and cr.dcode=tp1.dcode
										left join (select valuetext, protocolid from paramsinfo where codeparams=502038627 and ver_no=0) v1 on tp1.protocolid=v1.protocolid
										where t.treatcode=:treatcode),
										IIF(p.organid=14876,
										(select v1.valuetext
										from treat t
										left join clrefdet crd on t.treatcode=crd.rtreatcode and crd.schid=502001397 and crd.organid=14876
										left join clreferrals cr on crd.refid=cr.refid
										left join stat_direction sd on cr.dirid=sd.sdid
										left join treatplace tp1 on sd.sdid=tp1.dirid and tp1.placeid=502000472 and cr.dcode=tp1.dcode
										left join (select valuetext, protocolid from paramsinfo where codeparams=502038650 and ver_no=0) v1 on tp1.protocolid=v1.protocolid
										where t.treatcode=:treatcode),''))
										from paramsinfo p
										where p.codeparams=:codeparams and p.organid=:organid and p.protocolid=:protocolid),
	(select distinct
										IIF(p.organid=14874,
										(select v1.valuetext
										from treat t
										left join clrefdet crd on t.treatcode=crd.rtreatcode and crd.schid=502001397 and crd.organid=14874
										left join treat t1 on crd.treatcode=t1.treatcode
										left join treatplace tp1 on t1.treatcode=tp1.treatcode and tp1.placeid=502000472
										left join (select valuetext, protocolid from paramsinfo where codeparams=502038627 and ver_no=0) v1 on tp1.protocolid=v1.protocolid
										where t.treatcode=:treatcode),
										IIF(p.organid=14876,
										(select v1.valuetext
										from treat t
										left join clrefdet crd on t.treatcode=crd.rtreatcode and crd.schid=502001397 and crd.organid=14876
										left join treat t1 on crd.treatcode=t1.treatcode
										left join treatplace tp1 on t1.treatcode=tp1.treatcode and tp1.placeid=502000472
										left join (select valuetext, protocolid from paramsinfo where codeparams=502038650 and ver_no=0) v1 on tp1.protocolid=v1.protocolid
										where t.treatcode=:treatcode),''))
										from paramsinfo p
										where p.codeparams=:codeparams and p.organid=:organid and p.protocolid=:protocolid))


	from treatplace tp
	where tp.protocolid=:protocolid
	into :SPOSOB
  do
  suspend;
end