Home

Linha Microsiga Protheus

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

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.
Comentário: Migration of unmigrated content due to installation of a new plugin
Composition Setup
import.css=/download/attachments/327912/newLayout.css
Portuguese

Pagetitle
HSPROCIHA - Código e Tipo de Procedimento SUS - CIHA
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:
NomeTipoDescriçãoDefaultObrigatórioReferência
cCodDesCaracterCódigo da despesa.
cRegateArray of RecordRegistro 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})