declare
  procedure InsUpd(p$name       in varchar2,
                   p$full_name  in varchar2,
                   p#type       in number,
                   p#id_docspec in number,
                   p#id_analysis in number,
                   p#id_diagnostic in number,
                   p$cipher in varchar2) is

..
   insert into adm_glb.po2_service
        (rid, name, full_name, type, id_docspec, id_analysis, id_diagnostic, cipher)
      values
        (v#rid, p$name, p$full_name, p#type, p#id_docspec,p#id_analysis, p#id_diagnostic, p$cipher);

 InsUpd('Осмотр фтизиатра', 'Осмотр фтизиатра', 0, null, null, (select rid from adm_glb.diagnostik_issled where issl_name like 'Рентгенография грудной клетки в двух проекциях' and type_issled = 62 and lid = 7000), '0');