[RESOLVIDO] Registro programa datasul não esta no arquivo

Srs.
tenho uma upc na tela cp0301d1, onde quando o usuario abre uma ordem de beneficiamento(toogle-box upc).
o sistema envia email, isto esta acontecendo sem problema.

minha duvida é que depois que ele abre a ordem e envia o email, e mostra a seguinte mensagem.

** registro programa datasul não esta no arquivo(138).

o que é este erro?
como posso resolver?
veja o codigo

If p-ind-event = 'end-update' AND
p-ind-object = 'Viewer' AND
p-cod-table = "ord-prod" THEN DO:

IF VALID-HANDLE(h-num-ordem) THEN DO:
find first ord-prod
WHERE ROWID(ord-prod) = r-rowid no-lock no-error.
IF AVAIL ord-prod THEN DO:

IF int(h-num-ordem:SCREEN-VALUE) = ord-prod.nr-ord-produ THEN DO:
IF VALID-HANDLE(h-log-benefic) THEN DO:

find first yp-ord-prod
WHERE yp-ord-prod.ep-codigo = int(i-ep-codigo-usuario) AND
yp-ord-prod.nr-ord-produ = ord-prod.nr-ord-produ EXCLUSIVE-LOCK no-error.
IF NOT AVAIL yp-ord-prod THEN DO:

CREATE yp-ord-prod.
ASSIGN yp-ord-prod.ep-codigo = int(i-ep-codigo-usuario)
yp-ord-prod.nr-ord-produ = ord-prod.nr-ord-produ
yp-ord-prod.lg-ord-produ-benefi = h-log-benefic:CHECKED.
/*** enviar email *****/
RUN ypupc\cp0301d1-upc01-01.p(INPUT ord-prod.nr-ord-produ).

END.
ELSE DO:

ASSIGN yp-ord-prod.lg-ord-produ-benefi = h-log-benefic:CHECKED.
/*** enviar email **/
RUN ypupc\cp0301d1-upc01-01.p(INPUT ord-prod.nr-ord-produ).
END.

END.
END.
END.
END.
END.

obrigado. era isso mesmo.