Histórico da Página

Impc:\SDP_Extrator>sdp.exe EXTRATOR_AUTORIZACAO C:\EXTRATORES G 1000

01. DADOS GERAIS

...

O processo de extração deve gerar o arquivo JSON para exportação das autorizações em aberto autorizadas do sistema para que sejam importadas no TOTVS 12.

03. SOLUÇÃO

Foi implementado o processo de exportação das autorizações em aberto do sistema UNICOO para o TOTVS 12.

O processo é dividido em três quatro etapas: Seleção, processamento e Processamento, Geração dos arquivos e Retorno do Processamento.

03.1 SELEÇÃO

A seleção fará a carga da tabela IMPORT_AUTORIZACAO_GPS, nela serão carregados todos todas as autorizações e serviços que deverão ser exportados e servirá de base para o processamento.

...

begin
  pck_extrator_autorizacao.p_carrega_autorizacao(plimpadados => :plimpadados);
end;

...

As falhas de processamento serão apresentadas na tabela ERRO_PROCESS_IMPORT e serão sempre atualizadas a cada processamento.

03.2 PROCESSAMENTO

O processamento irá preparar os dados para exportação do arquivo JSON. para isso, execute através da procedure abaixo:

begin
  pck_extrator_autorizacao.p_import_guia_autorizacao(preprocessa => :preprocessa);
end;

...

• • N - Somente novas autorizações ou com erros serão reprocessadas;
  • S - Todas as autorizações não migradas (processadas ou com erros) serão reprocessadas;
  • T - Toda a massa de autorizações serão reprocessadasserá reprocessada.

...

totvs.conexaodb.tipoID = SERVICE_NAME
totvs.conexaodb.server = 10.20.30.40:1521
totvs.conexaodb.database = UNICOO
totvs.conexaodb.username = unicoogps
totvs.conexaodb.password = H@:3>=:BD$$$$$$

ptu.xml.debug = S
ptu.xml.Log = C:\LOGS

Crie um atalho e adicione os parâmetros indicados ou execute via prompt de comando o sdp:

c:\SDP_Extrator>sdp.exe EXTRATOR_AUTORIZACAO "C:\EXTRATOR_JSON" G 1000

O segundo parâmetro entre aspas é a pasta onde os arquivos json serão salvos. O quarto parâmetro define a quantidade de guias por arquivo JSON, se não informado gerará um arquivo a cada 1000 guias.

Image Added

Os arquivos serão salvos com o seguinte nomenclatura:

EXTRATOR_JSON_AUTORIZACAO_AAAAMMDD_HHMMSS_N.json

AAMMDD_HHMMSS - Data e hora atual

N - Sequencial do arquivo

03.3 RETORNO DO PROCESSAMENTO

...

c:\SDP_Extrator>sdp.exe EXTRATOR_AUTORIZACAO "C:\EXTRATOR_JSON\ERROS-M.CSV" R

O segundo parâmetro deve ser informado o caminho onde o arquivo de erro ou sucesso estará salvo.

Image Added

As autorizações importadas com sucesso ficarão com o status "MI" (migrado) no campo IND_SIT_IMPORT das tabelas IMPORT_GUIA e CONTROLE_MIGRAC ou "ER" para erro e as falhas serão carregadas na tabela ERRO_PROCESS_IMPORT

04. PARAMETRIZAÇÃO

...

• CDPRESTADOR: código de prestador requisitante genérico caso não encontre o prestador extraído;
• NOPRESTADOR: nome do prestador requisitante genérico;
• CDCONSELHOPROF: conselho do prestador requisitante genérico;
• NRCONSELHOPROF: número do conselho do prestador requisitante genérico;
• CDESTADOCRM: UF do conselho do prestador requisitante genérico;
• CDESPECIALIDADE: especialidade do prestador requisitante genérico;
• CDESPECIALIDUNIMED: especialidade para informar para a UNIMED quando intercâmbio;
• CDTIPOPRESTUNIMED: tipo de prestador da UNIMED quando intercâmbio;
• CD_GLOSA_DEFAULT: glosa padrão quando não encontrado de-para de glosa;
• CD_GLOSA_CLASS_ERRO_DEFAULT: classe de erro da glosa padrão;
• CD_PROCEDIMENTO_DEFAULT: procedimento padrão caso não encontre o serviço na tabela EXTRATOR_MODULO_SERVICO
• CD_INSUMO_DEFAULT: insumo padrão caso não encontre o insumo na tabela EXTRATOR_MODULO_SERVICO
• CDCLASSES_INSUMOS: classe de serviço do UNICOO, separados por vírgula, que serão considerados como insumos no TOTVS 12;

05. TABELAS DE CONVERSÃO

Tabelas cadastradas na Adm Sistema > Protocolos > Configurações > Tabelas de Conversão

• EXTRATOR_CBO: Códigos para de-para para definir um CBO para a especialidade do requisitante. O sistema colocará o CBO da especialidade cadastrada no sistema se não encontrar de-para e caso esteja vazio, informará 999999;
• EXTRATOR_TPGUIA_LOCAL: informa o local conforme o tipo de guia do TOTVS 12;
• EXTRATOR_GLOSA: informa o de-para entre os códigos de glosa do UNICOO x TOTVS 12;

• EXTRATOR_GLOSA_CLASSE: informa a classe da glosa do TOTVS 12. Segue sugestão de seleção dos dados:

  Bloco de código
  language sql title PL/SQL
  select cd_cod_glo, c.cd_classe_erro from codiglos c

05. 

...

TABELAS DE APOIO

Tabelas criadas na base de dados

• EXTRATOR_SERVICO: Informa de-para de servico UNICOO x TOTVS 12 - se não informado, irá utilizar o código do UNICOO;
• EXTRATOR_TRANSACAO_TIPOGUIA: Informa o depara entre o tipo de guia do UNICOO x Transação e tipo de guia do TOTVS 12;
• EXTRATOR_PLANO_UNIDADE: Informe a modalidade/plano/tipo_plano da Unidade (area de ação) no TOTVS 12;
• EXTRATOR_SERVICO_MODULO: Informa o módulo do procedimento/insumo conforme modalidade/plano/tipo_plano/transação no TOTVS 12. Segue sugestão de seleção dos dados nas tabelas do TOTVS 12:

select p.cd_modalidade,
       p.cd_plano,
       p.cd_tipo_plano,
       p.cd_modulo,
       'A' tp_procedimento,
       p.cd_amb cd_procedimento,
       t.cd_transacao,
       t.cd_modulo
  from pl_mo_am p, ambproce amb, trmodamb t
 where t.cd_esp_amb = amb.cd_esp_amb
   and t.cd_grupo_proc_amb = amb.cd_grupo_proc_amb
   and t.cd_procedimento = amb.cd_procedimento
   and t.dv_procedimento = amb.dv_procedimento
   and p.cd_amb = amb.cdprocedimentocompleto
   and p.cd_modulo = t.cd_modulo
union all
select p.cd_modalidade,
       p.cd_plano,
       p.cd_tipo_plano,
       p.cd_modulo,
       'P' tp_procedimento,
       amb.cdprocedimentocompleto cd_procedimento,
       t.cd_transacao,
       t.cd_modulo
  from plamodpr p, trmodamb t, ambproce amb
 where p.u##in_procedimento_insumo = 'P'
   and t.cd_esp_amb = amb.cd_esp_amb
   and t.cd_grupo_proc_amb = amb.cd_grupo_proc_amb
   and t.cd_procedimento = amb.cd_procedimento
   and t.dv_procedimento = amb.dv_procedimento
   and p.cd_modulo = t.cd_modulo
union all
select p.cd_modalidade,
       p.cd_plano,
       p.cd_tipo_plano,
       p.cd_modulo,
       'S' tp_procedimento,
       ins.cd_insumo cd_procedimento,
       t.cd_transacao,
       t.cd_modulo
  from partinsu p, insumos ins, trmodtpi t
 where p.cd_tipo_insumo = ins.cd_tipo_insumo
   and p.cd_modulo = t.cd_modulo
   and t.cd_tipo_insumo = p.cd_tipo_insumo
union all
select p.cd_modalidade,
       p.cd_plano,
       p.cd_tipo_plano,
       p.cd_modulo,
       'I' tp_procedimento,
       ins.cd_insumo cd_procedimento,
       t.cd_transacao,
       t.cd_modulo
  from plamodpr p, insumos ins, trmodtpi t
 where p.u##in_procedimento_insumo = 'I'
   and p.cd_modulo = t.cd_modulo
   and ins.cd_tipo_insumo = t.cd_tipo_insumo