oralce tips:

select lengthb('守门员') from dual;

result:
LENGTHB('守门员')
9

variable ret number;

call pkg_fs_admin.recover_card( 3704507562868195898, 944435, 49369, 1, 30, :ret);

print :ret;