Linha Microsiga Protheus.

Home

Linha Microsiga Protheus

Páginas filhas
  • HSPROCIHA - Código e Tipo de Procedimento SUS - CIHA

Ponto-de-Entrada: HSPROCIHA - Código e Tipo de Procedimento SUS - CIHA
Descrição: 
O Ponto de Entrada HSPROCIHA permite indicar um código de procedimento. Ele retorna o código e classificação SUS do procedimento para a geração do arquivo CIHA.
É acionado no momento da geração do arquivo CIHA e é executado em cada procedimento encontrado para envio do arquivo.
Eventos

Programa Fonte 
HSPFUEDI
Sintaxe

HSPROCIHA - Código e Tipo de Procedimento SUS - CIHA ( [ cCodDes ], [ cRegate ] ) --> aRet

Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cCodDes Caracter Código da despesa.
cRegate Array of Record Registro de atendimento.
Retorno
    aRet(array_of_record)
  • Array contendo:
    aRet[1] – Código do procedimento SUS.
    aRet[2] – Tipo de procedimento. Retornar: “A” – Apac / “C” – Consolidado / “I” – Individualizado.
Observações
O ponto de entrada passa por parâmetro o código da despesa e o registro de atendimento:
Parâmetros:
Paramixb[1] – Código da despesa
Paramixb[2] – Registro de atendimento

No retorno, é obrigatório infomar o código do procedimento SUS e o Tipo de procedimento SUS:
Retorno:
Array contendo:
aRet[1] – Código do procedimento SUS
aRet[2] – Tipo de procedimento. Retornar: “A” – Apac / “C” – Consolidado / “I” – Individualizado.

Exemplos 
User Function HSPROCIHA     Local cCodDes := paramixb[1]Local cRegAte := paramixb[2]Local cCodSus := ""Local cTipo   := ""         If //Regra do Cliente   cCodSus := "9999999999"   cTipo   := "C" //ConsolidadoElseIf //Regra do Cliente           cCodSus := "9999999999"   cTipo   := "I" //IndividualizadoElseIf //Regra do Cliente           cCodSus := "9999999999"   cTipo   := "A" //ApacEndIfReturn({cCodSus,cTipo})