Можно передавать ошибки насквозь через флаг CY. Но в таком стиле надо писать ВСЕ подпрограммы.