Regra por processo 553 - Consistir resultado de exame

A regra por processo 553 tem a finalidade de validar/consistir a entrada de dados na tela do cadastro de resultados de exames. Esta regra será ativada sempre que mudar o registro ou ao sair da tela, o que poderá acontecer pelo botões de navegação, ou ao digitar outro exame e sair dos campos chaves ou pelo botão Sair.

Recursos utilizados: Estão disponíveis para esta regra por processo as seguintes tabelas:

• R108RES, R110FIC, R034FUN - Somente quando a ficha médica (R110FIC.TipAtn) for do tipo Colaborador ou Dependente.
• R036DEP - Somente quando a ficha médica (R110FIC.TipAtn) for do tipo Dependente.
• R122BEX - Somente quando a ficha médica (R110FIC.TipAtn) for do tipo candidato.

Exemplo: A regra determina que alguns campos não poderão ficar sem informação. Ao selecionar outro exame, será apresentada uma mensagem de crítica da regra que impedirá a saída do cadastro atual, forçando o correto preenchimento do cadastro ou simplesmente continuar.

<div class="Code"><p>Definir Alfa xStr;<br></br>Se(R108RES.OriExa = 2)<br></br>{<br></br>Se((R110FIC.NumCad = 3) e (R110FIC.TipAtn = 1))<br></br>{<br></br>xStr = R034FUN.NomFun;<br></br>Mensagem(Retorna,"Colab 3, usou R034FUN"); <br></br>}<br></br>Se((R110FIC.NumCad = 24) e (R110FIC.TipAtn = 2))<br></br>{<br></br>xStr = R034FUN.NomFun;<br></br>xStr = R036DEP.NomDep;<br></br>Mensagem(Retorna,"Colab 24/Dep 1, usou R034FUN e R036DEP"); <br></br>}<br></br>Se((R110FIC.NumCan = 2) e (R110FIC.TipAtn = 4))<br></br>{<br></br>xStr = R122CEX.NomCan;<br></br>Mensagem(Retorna,"Cand 2, usou R122CEX"); <br></br>}<br></br>}</p></div>

• Telas no SM: Medicina > PCMSO > Resultados e Medicina > Audiometria > Resultados.
• Telas do RS: Colaboradores > Exames e Candidatos > Exames.

Disponível para os módulos: SM e RS.