Saúde - Planos - Linha Protheus - SIGAPLS - Processo de Reembolso - Alteração função padrão blqsubcont

Dúvida

Em algumas customizações utilizamos a função padrão BLQSUBCONT, mas acredito que após alguma atualização feita, esta função apresenta erros na sua execução.
Minha dúvida é se esta função foi alterada e qual a nova sintaxe dela.

Abaixo descrevo os erros apresentados:

/*-------------------------------------------------------
THREAD ERROR ([12796], DCAUTOBLOQ, THIS) 02/02/2021 16:11:31
variable does not exist CMOTBLO on BLQSUBCONT(PLSA660B.PRW) 28/09/2020 18:04:08 line : 4585

STACK BLQSUBCONT(PLSA660B.PRW) 28/09/2020 18:04:08

Param 1: CTIPO(C) : 0
Param 2: DDATBLQ(D) : 2021/02/02
Param 3: CMOTIVO(C) : 031
Param 4: COBSERV(C) :
Param 5: CBLOFAT(C) : 1
Param 6: DDATPED(U) : NIL
Local 1: CTIPO(C) :0
Local 2: DDATBLQ(D) :2021/02/02
Local 3: CMOTIVO(C) :031
Local 4: COBSERV(C) :
Local 5: CBLOFAT(C) :1
Local 6: DDATPED(U) :NIL
Local 7: DDATBLQANT(D) :00/00/00
Local 8: CMOTBLQANT(C) :
Local 9: AAREABQC(A) :
Local 10: AAREABA1(A) :
Local 11: AAREABA3(A) :
Local 12: CNIVEL(C) :S
Local 13: LGRVHIST(L) :.T.
Local 14: LPL660BQ1(L) :.T.
Local 15: LPL660BQ2(L) :.F.
Local 16: LATUNIO(L) :.T.
Local 17: CBLQANS(C) :
Local 18: CDESBLOANS(C) :
Local 19: CCHVBA3(C) : 00015589000000000001001000000001001
Local 20: CCHVBA1(C) : 00015589000001
Local 21: LCENTRALOBR(L) :.T.
Local 22: LUSASIP(L) :.T.
Local 23: LUSASIB(L) :.T.
Local 24: ACRITSIB(A) :
Local 25: ARECBA1(A) :
Local 26: NIND(N) :0
Local 27: LSIPSINCRONO(L) :.T.
Local 28: LSIBSINCRONO(L) :.T.
Local 29: CB3KMAT(C) :
Local 30: CNOMBEN(C) :
Local 31: AOPCSIP(A) :
Local 32: ADADCOB(A) :
Local 33: ADADNIOAUX(A) :
Local 34: ADADCOBJOB(A) :
Local 35: ADADUSR(A) :
Local 36: CCHAVEHAT(C) :

Ambiente
TOTVS Saúde - Planos - Linha Protheus - SIGAPLS plano de Saúde - A partir da versão 12.1.17

Solução
Esta variável CMOTBLO é criada no começo do fonte, como PRIVATE e não teve alterações na função do padrão de sistema.