Histórico da Página

...

A rotina visa a exportação das notas de fatura seguindo o padrão Unimed PTU A500.

A regra de quebra de 9.999 guias é feita no lote de intercambio.

02. EXEMPLO DE UTILIZAÇÃO

...

...

Tag	Regra Protheus
nrVerTra_PTU	Pergunte de exportação "Versão Atual?"
cd_Uni_Destino	BTO_OPEORI
cd_Uni_Origem	BTO_CODOPE
dt_Geracao	Data do servidor
nr_Competencia	BTO_ANOINI + BTO BTO_MESINI
tp_Cobranca	BTO_TPMOV

A regra para exportação do documento2 é o campo BTO_TPMOV ser igual a '3'

Tag	Regra Protheus
cd_Unimed	BD6_MATANT
id_Benef	BD6_MATANT
nm_Benef	BD6_NOMUSR
id_RN	BD5/BE4IDRN
tp_Paciente	BD5_TIPPAC/ '1' Para guias de internação

Tag	Regra Protheus
cpf_cnpj	BD5/BE4_NOMRDA
nome	BAU_CPFCGC
nm_Profissional	1º BB8_CNES, 2º BAU_CNES, 3º "9999999"
sg_Conselho	BB8_CODMUN
nr_Conselho	BAU_TIPRED
UF	BAG_CODPT(Utilizando BAU_TIPPRE para chegar no registro)
CBO	BAU_RECPRO

Tag	Regra Protheus
nome	BD5/BE4_NOMRDA
CPF_CNPJ	BAU_CPFCGC
CNES	1º BB8_CNES → , 2º BAU_CNES → , 3º "9999999"
cd_MunicipioCont	BB8_CODMUN
tp_RedeMin	BAU_TIPRED
tp_Prestador	BAG_CODPT(Utilizando BAUUtilizando BAU_TIPPRE para chegar no registro)
id_RecProprio	BAU_RECPRO

BAU_TIPRED

Tag	Regra Protheus
nome	1º BB0_NOME(Chave BD5/BE4_REGEXE), 2º BAU_NOME(Chave BD5/BE4_NOMRDACODRDA)
sg_ConselhoBAU_CPFCGC	1º BB0_CODSIG(Chave BD5/BE4_REGEXE), 2º BAU_SIGLCR(Chave BD5/BE4_CODRDA)
nr_Conselho	BB8_CNES → BAU_CNES → 9999999
UF	BB8_CODMUN
CBO
1º BB0_NUMCR(Chave BD5/BE4_REGEXE), 2º BAU_CONREG(Chave BD5/BE4_CODRDA)
UF	1º BB0_ESTADO(Chave BD5/BE4_REGEXE), 2º BAU_ESTCR(Chave BD5/BE4_CODRDA)
CBO	BAQ_CBOS(Chave 1ºBD6_ESPEXE , 2º BD5/BE4_CODESP)

Tag	Regra Protheus	Observação
nr_Ver_TISS	BD5/BE4_TISVER
tp_Consulta	BD5/BE4_TIPCON(Se for igual a 5 mudamos para 2)	Apenas para tipo de guia Consulta
nr_LotePrestador	BD5/BE4_CODPEG
dt_Protocolo	BD5/BE4_DTDIGI
dt_Conhecimento	BD5/BE4_DTDIGI
nr_GuiaTissPrestador	1º BD5/BE4_NUMIMP, 2º BD5/BE4_CODLDP + BD5/BE4_CODPEG + BD5/BE4_NUMERO
nr_GuiaTissOperadora	BD5/BE4_CODLDP + BD5/BE4_CODPEG + BD5/BE4_NUMERO
nr_GuiaTissPrincipal	BD5/BE4_GUIPRI	Caso seja maior que 20 caracteres, removemos o código da operadora que são os 4 primeiros caracteres.
tp_IndAcidente	1º BD5/BE4_INDACI, 2º "9"
dt_Atendimento	BD5/BE4_DATPRO + BD5/BE4_HORPRO
id_Liminar	BD5/BE4_GUIJUR
id_Continuado	Existência de um registro válido na tabela B5F.
id_Avisado	Existência da guia na tabela B5S
cd_Excecao	1º Se a tag "nr_Autorizacao" estiver preenchida e for uma internação "C", senão "L", caso a tag esteja vazia "0"
id_GlosaTotal	"N"
id_GuiaPrincipal	Se a tag "nr_GuiaTissPrincipal" estiver vazia envia "S".	Somente para guia SADT

Tag	Regra Protheus
tp_RegCPL	"1" (Preenchido caso o registro abaixo seja diferente de vazio)
nm_DescComplemento	BD5/BE4_INDCLI + BD5/BE4_INDCL2
tp_RegCPL	"2" (Preenchido caso o registro abaixo seja diferente de vazio)
nm_DescComplemento	BZC_OBSNO1 + BZC_OBSNO2 (Chave: 1º CODOPE+CODLDP+CODPEG+NUMERO, 2º BD5/BE4_GUIINT)
tp_RegCPL	"3" (Preenchido caso o registro abaixo seja diferente de vazio)
nm_DescComplemento	BZC_JUSTE1+ BZC_JUSTE2 + BZC_JUSTE3 + BZC_JUSTE4 (Chave: 1º CODOPE+CODLDP+CODPEG+NUMERO, 2º BD5/BE4_GUIINT)
tp_RegCPL	"4" (Preenchido caso o registro abaixo seja diferente de vazio)
nm_DescComplemento	BZC_ESMAT1+ BZC_ESMAT2 + BZC_ESMAT3 + BZC_ESMAT4 (Chave: 1º CODOPE+CODLDP+CODPEG+NUMERO, 2º BD5/BE4_GUIINT)

PLSR506

...