cpc-rc0311a3.p1

Rotina utilizada para permitir a entrada de documento com a série duplicada, quando parametrizado na transação "Tipo d Seqüência = 04 –Seq. Serie/Documento".
Permite realizar a conversão da unidade da carteira do beneficiário.
Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.
Será permitido para esta CPC apenas um registro na tabela temporária de saída. Caso possuir mais de um registro um erro será reportado.
Localização
Dentro do programa rc0311a3.p. quando da consistência do número do documento com o parâmetro, da transação, "Tipo d Seqüência = 04 –Seq. Serie/Documento" ;
Após incluir o documento.
Antes de informar o profissional solicitante
Ao realizar as consistências sobre a unidade da carteirinha digitada na inclusão de um documento.
Ponto "APOS-INSUMO", após a inclusão de insumos no documento do RC.
Ponto de Utilização
"SEQ-SERIE-DOCTO".
APOS-INCL-DOCTO
CONS-PROF-SOL
"CONV-UNID-CART"
"APOS-INSUMO"
Include das definições das tabelas temporárias
CPC-RC0311A3.I
Tabelas de entrada e saída
Tabela de entrada tmp-cpc-rc0311a3-entrada
def temp-table tmp-cpc-rc0311a3-entrada no-undo
field in-evento-programa as char format "x(06)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-unidade like preserv.cd-unidade
field cd-unidade-prestadora like preserv.cd-unidade
field cd-transacao like docrecon.cd-transacao
field cd-unidade-principal like docrecon.cd-unidade-principal
field cd-prestador-principal like docrecon.cd-prestador-principal
field nr-serie-doc-original like docrecon.nr-serie-doc-original
field nr-doc-original like docrecon.nr-doc-original
field nr-doc-sistema like docrecon.nr-doc-sistema
field aa-guia-atend like docrecon.aa-guia-atendimento
field nr-guia-atend like docrecon.nr-guia-atendimento.
Definição campo a campo da tabela de entrada
in-evento-programa – Evento do programa que chama a cpc-rc0311a3.p.
"INCLUI"
nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa rc0311a3.p:
"SEQ-SERIE-DOCTO".
"APOS-INCL-DOCTO"
"CONS-PROF-SOL"
"ANTES-UNIDADE"
"CONV-UNID-CART"
"APOS-INSUMO"
Cd-unidade – Código da Unidade;
Cd-unidade-prestadora – Código da Unidade Prestadora;
Cd-transacao – Código da Transação;
Cd-unidade-principal – Código da Unidade do prestador principal;
Cd-prestador-principal – Código do prestador Principal;
Nr-serie-doc-original – Número da Série do documento;
Nr-doc-original – Número do documento;
Aa-guia- atend – Ano da guia de atendimento
Nr-guia-atendi – Número da guia de atendimento
Tabela de saída tmp-cpc-rc0311a3-saida
def temp-table tmp-cpc-rc0311a3-saida no-undo
field lg-undo-retry as log
field ds-mensagem as char format "x(75)"
field nm-prof-sol as char
field cd-conselho as char
field nr-registro as int
field cd-uf-conselho as char
field cd-unidade-carteira like docrecon.cd-unidade-carteira.
Definição campo a campo da tabela de saída
lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC deve retornar SIM se erros acontecerem e NÃO se o processo foi concluído por completo.
Ds-mensagem – Mensagem de aviso ou de erro.
Nm-prof-sol – Nome do profisisonal solicitante
Cd-conselho – Conselho do profissional solciitante
Nr-registro – Número do registro do conselho do prof. Solicitante
Cd-uf-conselho – UF do conselho do profissional solicitante.
Cd-unidade-carteira – Código da unidade da carteira