Перевод на нал

EXECUTE block
/*
 * Скрипт автоматического перевода пациентов в наличный расчет,
 * если прикрепления по СК закончились
 *
 * Автор Коробка А.А.
 */
AS
DECLARE pcode TYPE OF COLUMN clients.pcode;
BEGIN
  FOR SELECT FIRST 1100 pcode FROM clients c WHERE 1=1
         /* не нал */
         AND COALESCE(grtype,0)!=1
         /* все прикрепления закончились */
         AND NOT EXISTS(SELECT * FROM clhistnum cl
                         WHERE cl.pcode=c.pcode AND COALESCE(cl.datecancel,cl.fdate,CURRENT_TIMESTAMP)>CURRENT_DATE)
  INTO pcode do
  BEGIN
    UPDATE clients
       SET GRTYPE=1, JID=NULL, SECTID=4363, JID0=NULL, LSTID=NULL, NSP=NULL, modifydate=CURRENT_TIMESTAMP
     WHERE pcode= :pcode;
  END
END