PLSTISESP - De/Para CBO-s vs Especialidade (N:1)

Descrição

Criado ponto de entrada 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.

Observações

Ponto de entrada funciona somente em guias padrão TISS inferiores à versão 3.

Exemplos

#Include 'Protheus.ch'

User Function PLSTISESP()
Local cCodCbo := paramixb[1]
Local cCodEsp := ""

If cCodCbo == "225120"
cCodEsp := "001"
Endif

**/*O retorno deve ser um Array com duas posições
[1] - Codigo do CBOS
[2] - Codigo da Especialidade**
*/

Return {cCodCbo,cCodEsp}

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Parâmetros

cCodCbo

Retorno

Array com duas posições:
Posição	Variável	Descrição
1	cCodCbo	Código do CBOS
2	cCodEsp	Código da Especialidade

Programa Fonte

PLSA973.PRW
PLSA973L.PRW
PLSXMOV.PRW

Home

Linha Microsiga Protheus

Páginas filhas

#Include 'Protheus.ch'

User Function PLSTISESP()
Local cCodCbo := paramixb[1]
Local cCodEsp := ""

If cCodCbo == "225120"
cCodEsp := "001"
Endif

**/*O retorno deve ser um Array com duas posições
[1] - Codigo do CBOS
[2] - Codigo da Especialidade**
*/

Return {cCodCbo,cCodEsp}

Home

Linha Microsiga Protheus

Páginas filhas

PLSTISESP - De/Para CBO-s vs Especialidade (N:1)

#Include 'Protheus.ch'

User Function PLSTISESP()Local cCodCbo := paramixb[1]Local cCodEsp := ""

If cCodCbo == "225120" cCodEsp := "001"Endif

/*O retorno deve ser um Array com duas posições [1] - Codigo do CBOS [2] - Codigo da Especialidade*/

Return {cCodCbo,cCodEsp}

User Function PLSTISESP()
Local cCodCbo := paramixb[1]
Local cCodEsp := ""

If cCodCbo == "225120"
cCodEsp := "001"
Endif

**/*O retorno deve ser um Array com duas posições
[1] - Codigo do CBOS
[2] - Codigo da Especialidade**
*/