Histórico da Página
Implementado PE PLTISESP em Arquivos XML TISS v3++
Linha de Produto: | Microsiga Protheus | ||||
Segmento: | Saúde | ||||
Módulo: | Plano de Saúde | ||||
Rotina: |
| ||||
Parâmetro(s): | cCbos - CBO-s do Profissional enviado no arquivo. | ||||
Ponto de Entrada: | PLTISESP | ||||
Chamados Relacionados | TTMXMV | ||||
País(es): | Todos | ||||
Banco(s) de Dados: | Todos | ||||
Sistema(s) Operacional(is): | Todos | ||||
Versões/Release: | 11.80 |
Descrição
Realizada implementação do Ponto de Entrada PLTISESP em submissão/importação de arquivos XML TISS superiores ou iguais à versão 3.
Ponto de Entrada
Descrição: | Utilizado na rotina de submissão de arquivos XML para que seja possível realizar o De/Para para associar mais de um CBO-s para uma especialidade. | ||||||||||||||||
Localização: | Atualizações\Proc de Contas\Gerenciador XML TISS | ||||||||||||||||
Eventos: | Submissão e Importação de Arquivos XML TISS | ||||||||||||||||
Programa Fonte: |
| ||||||||||||||||
Função: |
| ||||||||||||||||
Retorno: |
|
Exemplo:
#Include 'Protheus.ch'User Function PLSTISESP()
Local cCodCbo := paramixb[1]
Local cCodEsp := ""
Local lRet := .F.If cCodCbo == "225120"
cCodEsp := "001"
lRet := .T.
Endif/*O retorno deve ser um Array com duas três posições
[1] - Codigo do CBOS
[2] - Codigo da Especialidade
[3] - Retorno da Validação
*/Return {cCodCbo,cCodEsp,lRet}