BEGIN
  PKG_DOCITEM.PROCESSING_ITEM (
  , P_DOC_ID      => :DOCITEM.DOC_ID
  , P_DOC_ITEM_ID => :DOCITEM.DOC_ITEM_ID
  );
END;

PROCEDURE DELETE_ITEMS
IS
BEGIN
     GO_BLOCK('DOCITEM');
     FIRST_RECORD;
     WHILE :SYSTEM.LAST_RECORD <> 'TRUE' LOOP
		IF :DOCITEM.SELECTED = 1 THEN
			DELETE_RECORD;
			POST;
		ELSE
			NEXT_RECORD;	
		END IF;
    END LOOP;
    IF :SYSTEM.LAST_RECORD = 'TRUE' AND :DOCITEM.SELECTED = 1 THEN
    	DELETE_RECORD;
    	POST;
    END IF;
END;

BEGIN
...
ELSIF DBMS_CODE = -1 THEN
   сообщение пользователю о ошибке;
   :GLOBAL.DOCITEM_ERROR_CODE = -1;
...
END;

BEGIN
...
  WHILE...
   ...
   IF :GLOBAL.DOCITEM_ERROR_CODE = -1 THEN
     RAISE Form_Trigger_Failure;
   END IF;
   ...
  END LOOP;
...
END;

EXCEPTION
WHEN OTHERS THEN
        message(SQLCODE||' '||SQLERRM);
	RAISE FORM_TRIGGER_FAILURE;