Histórico da Página
...
Include das definições das tabelas temporárias
- cpc-rc0310p.i
Exemplo de chamada da cpc:
run cpc/cpc-rc0310p.p (input table tmp-cpc-rc0310p-entrada,
input ?,
output table tmp-cpc-rc0310p-saida,
input-output table tmp-moviproc,
input-output table tmp-mov-insu,
input-output table tmp-cpc-moviproc) no-error.
Para que não ocorram erros referentes as tabelas temporárias, devem ser acrescidos os comandos na lógica:
{rcp/rcapi021.i "shared"}
{rcp/rcapi022.i "shared"}
Tabelas de entrada e saída
...
field in-evento-programa as char format "x(10)"
field nm-ponto-chamada-cpc as char format "x(15)"
field cd-unidade like moviptmp.cd-unidade
field cd-unidade-prestadora like moviptmp.cd-unidade-prestadora
field cd-transacao like moviptmp.cd-transacao
field nr-serie-doc-original like moviptmp.nr-serie-doc-original
field nr-doc-original like docrecon.nr-doc-original
field nr-seq-interno like moviptmp.nr-seq-interno
field cd-insumo like mov-itmp.cd-insumo
field nr-processo like moviptmp.nr-processo
field nr-seq-digitacao like moviptmp.nr-seq-digitacao
field rw-movimento as rowid
field aa-guia-atendimento like guiautor.aa-guia-atendimento
field nr-guia-atendimento like guiautor.nr-guia-atendimento
field ds-mensagem-obs as char format "x(100)"
field in-status-lote like loteimp.in-status-lote
field nm-diretorio as char format "x(30)"
field lg-imprime-rel as log init no
field cd-local-atendimento like locaaten.cd-local-atendimento
field cd-unidade-imp like docretmp.cd-unidade-imp
field cd-prestador-imp like docretmp.cd-prestador-imp
field tp-atendimento as int format 99
field tp-inter as int format 99 as int format 99
field cd-unidade-carteira like docretmp.cd-unidade-carteira
...
field cd-carteira-usuario like docretmp.cd-carteira-usuario
...
field ds-xml-erro
...
like paramrc.char-3
field ds-dircarga like paramrc.char-5
...
field ds-dirresp like paramrc.char-6
...
field ds-dir-tiss
...
-aux
...
like paramrc.char-2
field nr-lote-prestador like lote-import-compltar.cod-lote-prestdor
...
field lg-especifico as logical
...
field nr-
...
especifico1 as int
field nr-especifico2 as int
field nm-arquivo as char
field nm-diretorio as char
field nm-extensao as char.
Definição campo a campo da tabela de entrada
- in-evento-programa – Evento do programa que chama a cpc-rc0310p;
- nm-ponto-chamada – Nome do ponto de chamada. Para este programa poderá ser SCHEDULE ou PREST-NAO-VINC;
- cd-unidade – Código da Unidade. Campo que faz parte da chave primaria do documento e também do movimento (procedimento ou insumo);
- cd-prestadora – Código da Unidade Prestador. Campo que faz parte da chave primaria do documento e também do movimento (procedimento ou insumo);
- cd-transacao – Código da Transação. Campo que faz parte da chave primaria do documento e também do movimento (procedimento ou insumo);
- nr-serie-doc-original – Código/Número de serie do documento. Campo que faz parte da chave primaria do documento e também do movimento (procedimento ou insumo);
- nr-doc-original – Número do documento. Campo que faz parte da chave primaria do documento e também do movimento (procedimento ou insumo);
- nr-seq-interno – Sequencia do Documento. Campo que faz parte da chave primaria do documento e também do movimento (procedimento ou insumo);
- cd-insumo – Código do Insumo;
- nr-processo – Número do processo a qual o movimento está vinculado. Campo que faz parte da chave primaria do movimento (procedimento ou insumo);
- nr-seq-digitacao – Número da sequencia do movimento. Campo que faz parte da chave primaria do movimento (procedimento ou insumo);
- rw-movimento – Rowid da tabela de movimento (procedimento ou insumo).
- Aa-guia-atendiemnto – Ano da guia de atendimento.
- Nr-guia-atendiemnto – Numero da guia de atendimento.
- Ds-mensagem-obs – Variável com mensagem de observação.
- In-status-lote – Status do lote.
- Nm-diretorio – Nome do diretório.
- LG-imprime-rel – retorna se será ou não impresso o relatório especifico.
- Cd-local-atendimento – Código do local do atendimento.
- Cd-unidade-imp – Código da unidade.
- Cd-prestador-imp – código do prestador.
- Tp-atendimento – tipo do atendimento
- Tp-inter - tipo da internação
cd-unidade-carteira - Unidade da carteira do beneficiário
cd-carteira-usuario - Codigo da carteira do beneficiario
ds-xml-erro - diretorio do arquivo de erro
ds-dircarga - Diretorio de carga dos arquivos
ds-dirresp - Diretorio de resposta dos arquivos
ds-dir-tiss-aux - Diretorio tiss dos arquivos
nr-lote-prestador - Codigo do lote do prestador
- lg-especifico - campo específico do tipo lógico. É devolvido na tabela de saída no ponto "DIR-XML", evento "FRAME", e enviado na tabela de entrada nos pontos "APOS-RCAPI020" e "APOS-API-REGRAS"
- nr-especifico1 - campo específico do tipo inteiro. É devolvido na tabela de saída no ponto "DIR-XML", evento "FRAME", e enviado na tabela de entrada nos pontos "APOS-RCAPI020" e "APOS-API-REGRAS"
- nr-especifico2 - campo específico do tipo inteiro. É devolvido na tabela de saída no ponto "DIR-XML", evento "FRAME", e enviado na tabela de entrada nos pontos "APOS-RCAPI020" e "APOS-API-REGRAS"
- nm-arquivo - nome do arquivo de relatório
- nm-diretorio - diretório do arquivo de relatório
- nm-extensao - nome da extensão do arquivo
Tabela de saída tmp-cpc-rc0310p-saida
...
field lg-undo-retry as log
field aa-periodo like perimovi.dt-anoref
field nr-periodo like perimovi.nr-perref
field lg-carga-arq as log
field lg-carga-autorizador as log
field lg-carga-grc as log
field lg-carrega as log
field lg-consiste as log
field lg-importa as log
field in-periodo as int
field lg-modifica-ident-prest as log
field lg-schedulado as log
field ds-mensagem as char format "x(75)"
field ds-mensagem-obs as char format "x(100)"
field ds-xml-erro like paramrc.char-3
field ds-dircarga like paramrc.char-5
field ds-dirresp like paramrc.char-6
field lg-imprime-rel as log init no
field cd-local-atendimento like locaaten.cd-local- atendimento
field tp-internacao as int format 99
field ds-dir-tiss like paramrc.char-2
field lg-desconsidera-lote as log
field lg-especifico as logical
field nr-especifico1 as int
field nr-especifico2 as int.
...