CPC-WAC0012A1.P

Rotina utilizada para:

• Permitir que o nome do usuário seja alterado.
• Permitir que a identificação do usuário seja alterado.
• Permitir que o plano do beneficiário seja alterado.
• Permitir a operadora liberar o processo de simulação de registro de SP/SADT, quando da ocorrência de restrição por uso obrigatório de carteira do beneficiário. Ressalto que está CPC funciona em conjunto com a CPC-AC1006D (Ponto de Chamada PERMITE-SIMUL), e que para o correto funcionamento da mesma as duas CPC deverão estar ativas em conjunto.
• Digitação do procedimento.
• Verifica se o médico logado pode registrar os procedimentos da guia direcionada.
• Controlar (permitir/bloquear) o acesso ao programa de registro de SP/SADT TIS.
• Permitir a operadora tratar a obrigatoriedade ou não do prestador da divisão de honorários, em nível de movimento, quando o parâmetro LgDivHonorIndProc (arquivo wac0012a1.ini) estiver habilitado.
• Permitir verificação dos dados do beneficiario permitindo manipulação dos mesmos.
• Permitir a operadora informar quais grupos de prestadores que não será exigido o uso do cartão magnético e da leitora de biometria.
• Permite modificar a montagem do combo-box de prestadores de divisão de honorários.
• Permitir interagir com os campos de envio e resposta do Registro de Consulta TISS.
• Permite o controle da data de Atendimento.
• Permite incluir funções javascript na página HTML gerada.
• Permite visualizar informações relacionadas a franquias.

Caso o cliente não queira executar a chamada da CPC no seu cadastro deve colocar CPC Ativo como não.

Localização

• Dentro do programa wac0012a1.p.

Ponto de Utilização

"ALT-NM-USUARIO";
"PERMITE-SIMUL" ;
"PSEUDOCODIGO";
"DIR-VEREXEC";
"ACESSO-PROG";
"PRES-DIV-HON";
"INI-VALIDABENEF";
"GRUPO-PRESTADOR";
"ALT-CR-USUARIO";
"PREST-DIV";
"TROCA-DESC"
"RESP-INT-ELET"
"TESTA-LEITORA"
"ALTERA-DATA"
"CARREGA-GUIA"
"FUNCOES"
"INICIO-TELA"

Include das definições das tabelas temporárias

• cpc-wac0012a1.i

Tabelas de entrada e saída

Tabela de entrada tmp-cpc-wac0012a1-entrada

def temp-table tmp-cpc-wac0012a1-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-carteira                             like guiautor.cd-unidade-carteira
field cd-carteira-usuario                              like guiautor.cd-carteira-usuario
field cd-pseudocodigo                                as char
field cd-unidade                                         like preserv.cd-unidade
field cd-prestador                                       like preserv.cd-prestador
field cd-clinica-aux                                      as int
field aa-guia-atend-aux                              as int
field nr-guia-atend-aux                               as int
field lg-div-honor-ind-proc                           as log
field nr-total-proced                                    as int
field r-usuario                                             as recid
field nr-proced                                            as int
field ds-segmento-envio                             as char format "x(1000)"
field cd-erro-sistema                                   as char
field r-out-uni                                              as recid
field in-ordem                                             as int
field cd-contador                                        as int

Definição campo a campo da tabela de entrada

• • • in-evento-programa – Evento do programa que chama a cpc-wac0012a1.p. O valor desse campo pode ser:
    • "INCLUI" e "COMUNICA".
    • nm-ponto-chamada-cpc – Nome do ponto de chamada da cpc dentro do programa que a utiliza. Para o programa wac0012a1.w:
    • "ALT-NM-USUARIO", "PERMITE-SIMUL", "PSEUDOCODIGO", "DIR-VEREXEC", ACESSO-PROG", "PRES-DIV-HON" , "TROCA-DESC", "RESP-INT-ELET", "ALT-CR-USUARIO", "ALTERA-DATA" E "INICIO-TELA".
    • cd-unidade-carteira – Código da Unidade da carteira do beneficiário.
    • cd-carteira-usuario – Código da carteira do beneficiário.
    • cd-prestador – Código do prestador (base).
    • cd-clincia – Código da Clinica, a qual o prestador está vinculado.
    • aa-guia-atend-aux – Ano da guia de atendimento.
    • nr-guia-atend-aux – Número da guia de atendimento.
    • lg-div-honor-ind-porc – Indicador de procedimento com o LABEL do prestador de divisão de honorário ativo em nível de movimento.
    • nr-total-proced – Número total de movimentos que estão sendo incluídos no documento.
    • r-usuario – Recid do beneficiario.
    • nr-proced – Numero da posição do procedimento.
    • Ds-segmento-envio – Segmento do layout de transação AC (layout_ac.doc) para envio da transação de Consulta TISS.
    • R-out-uni – Recid do beneficiário de outra unidade.
    • in-ordem – indicador da ordem dos procedimentos.
    • Cd-contador – Indica qual movimento é o atual.
      
      

Tabela de saída tmp-cpc-wac0012a1-saida

def temp-table tmp-cpc-wac0012a1-saida no-undo

field lg-undo-retry                            as log
field ds-mensagem                         as char format "x(75)"
field lg-alt-nm-usuario                      as log
field cd-procedimento                     as int format 99999999
field lg-permite-simulacao               as log
field lg-restringe-acesso                  as log
field lg-restringe                              as log
field cd-unidade-carteira                 like guiautor.cd-unidade-carteira
field cd-carteira-usuario                  like guiautor.cd-carteira-usuario
field ds-mensagem-auditoria          as char format "x(75)"
field ds-mensagem-aut-parcial       as char format "x(75)"
field ds-mensagem-negada           as char format "x(75)"
field ds-segmento-retorno              as char format "x(1000)"
field cd-erro-sistema                       as char
field ds-tipo-plano                          like ti-pl-sa.nm-tipo-plano
field lg-cartao                                 as log
field lg-biometria                            as log

Definição campo a campo da tabela de saída

• • • lg-undo-retry – Variável que controla se erros aconteceram dentro da CPC. Se o retorno desta variável for igual a SIM, indicará que erros aconteceram e se o retorno for igual à NÃO, indicará que o processo foi concluído por completo.
    • ds-mensagem - Mensagem que deverá ser retornada ao usuário, quando indicação de ocorrência de erro.
    • lg-alt-nm-usuario – Log que informa se deve ser habilitado o campo para o nome do usuário ser alterado.
    • cd-procedimento – Código do procedimento.
    • lg-permite-simulacao - Indica se o processo de simulação de registro de SP/SADT, quando da ocorrência de restrição por uso obrigatório de carteira do beneficiário poderá ou não ser realizado.
    • lg-restringe-acesso - Indica se o usuário do sistema (clinica + prestador logado) terá ou não acesso ao programa de simulação/registro de SP/SADT.
    • lg-restringe – Indica se o grupo do prestador deverá ou não validar o uso do cartão magnético e da leitora biométrica.
    • cd-unidade-carteira – Codigo da unidade da carteira do beneficiário.
    • cd-carteira-usuario – Carteira do Beneficiário que será mostrado em tela.
    • Ds-mensagem-auditoria – Permite informar mensagem de Auditoria para as Guias que obtiveram este retorno.
    • Ds-mensagem-aut-parcial – Permite informar mensagem de Autorização Parcial para as Guias que obtiveram este retorno.
    • Ds-mensagem-negada – Permite informar mensagem de Negativa para as Guias que obtiveram este retorno.
    • Ds-segmento-retorno – Segmento do layout de transação AC (layout_ac.doc) para resposta da transação de Consulta TISS.
    • Cd-erro-sistema – Permite informar ERRO de retorno para apresentação em tela.
    • Lg-cartao – Desconsidera o uso da leitora de cartão.
    • Lg-biometria – Desconsidera o uso da leitora biométrica
      
      

Tabela de serviços tmp-cpc-wac0012a1-servicos

def temp-table tmp-cpc-wac0012a1-servicos no-undo

field in-ordem                            as int
field lg-com-erro                        as log
field id-servico                           as char format "x(1)"
field tp-servico                           as char format "x(12)"
field tp-insumo                          as char format "99"
field qt-servico                           as char format "999"
field cd-servico                          as char format "99999999"

Definição campo a campo da tabela de serviços

• • • in-ordem – Numero da ordem.
    • lg-com-erro – Variável lógica que indica a ocorrência de erro.
    • id-servico – ID do serviço.
    • tp-servico – Tipo do serviço.
    • tp-insumo – Tipo de insumo.
    • qt-servico – Quantidade de serviço.
    • cd-servico – Código do serviço.