[问题求助]鼎捷T100批量审核如何写

我是一名新手鼎捷T100开发，采用4GL没多久
目前接到一个任务：
要做一个作业的批量审核/批量取消审核的功能


目前有两个问题卡住我了：
1.要求批量审核时和批量取消审核时不能有任何弹窗报错。审核用的函数调用了大量的公用方法，这些方法写的只要一有报错就会弹窗。
我不想重写这么多的公用方法，有没有方法可以避免？


2.批量审核/批量取消审核，如果有报错，报错的提示码要记录到一个具体的字段里面。问题点在于函数存在大量套娃，A函数调用B函数，B函数又调用C函数，A,B,C函数都各有报错码，我如何在不重写函数的情况下就可以获取所有被调用函数，报错时产生的报错码


这两个问题，最笨的方法就是重新函数，但这个工作量实在太大，有没有更好的解决办法？


下面是目前系统的标准报错代码
INITIALIZE g_errparam TO NULL
       LET g_errparam.code = 'sub-00228'
       LET g_errparam.extend = ""
       LET g_errparam.popup = FALSE
       CALL cl_err()
       LET r_success = FALSE
       RETURN r_success

我用的是p作业来写

急急急