PLSDEPTO - Ponto de entrada que permite personalizar a gravação do campo de departamento responsavel pela auditoria.

Descrição

PLSDEPTO - Ponto de entrada que permite personalizar a gravação do campo de departamento responsavel pela auditoria.

Observações

Quando um procedimento é enviado para auditoria pelas rotinas de atendimento, por padrão, nenhum conteúdo é gravado no campo campo Departamento (B53_CODDEP) do registro de auditoria.

Ponto de entrada PLSDEPTO permite realizar verificações específicas do cliente e retornar um código de departamento para ser gravado no campo Departamento (B53_CODDEP) do registro de auditoria.

Exemplos

User Function PLSDEPTO()
LOCAL cOriMov := PARAMIXB1
LOCAL cTipo := PARAMIXB2
LOCAL lAutorizacao := PARAMIXB3
LOCAL cCarInt := PARAMIXB4
LOCAL lFutura := PARAMIXB5
LOCAL lReembolso := PARAMIXB6
LOCAL lEvolu := PARAMIXB7
LOCAL lIntern := PARAMIXB8
LOCAL aDadCri := PARAMIXB9
LOCAL aCabCri := PARAMIXB10
LOCAL aColsITE := PARAMIXB11
LOCAL aHeaderITE := PARAMIXB12
LOCAL cAliasIte := PARAMIXB13
LOCAL cAliasCri := PARAMIXB14
LOCAL cRegInt := PARAMIXB15
LOCAL lPartic := PARAMIXB16
LOCAL cDepto := ""

If BCL->BCL_TIPGUI $ "03|05|06" cDepto := '001' // Departamento de auditores de guias de internação. Else cCabec := '002' // Departamento de auditores de outras guias. EndIf

Return(cCabec)

Preview

Veja também

Idioma

Português(Brasil)

Versões

Microsiga_Protheus11

Sistemas Operacionais Suportados

Todos

Compatível com as Bases de Dados

Todas

Updates

Parâmetros

PARAMIXB1 = Caractere - origem do movimento: 1=Guias de Consultas/Serviços;2=Guia de Internação;3=Outros
PARAMIXB2 = Caractere - Tipo de crítica/glosa: 0=Operacional;1=Técnica;2=Administrativa
PARAMIXB3 = Lógico - Tipo de autorização: .T.=Autorização;.F.=Liberação
PARAMIXB4 = Caractere - Caráter da internação: E=Eletiva;U=Urgência/Emergência
PARAMIXB5 = Logico - Guia futura ?: .T. = Sim; .F. = Não
PARAMIXB6 = Logico - É guia de reembolso? .T. = Sim; .F. = Não
PARAMIXB7 = Lógico - É evolução ? .T. = Sim; .F. = Não
PARAMIXB8 = Lógico - É guia de internação ? .T. = Sim; .F. = Não
PARAMIXB9 = Array - Array contendo detalhes dos Itens da critica
PARAMIXB10 = Array - Array contendo estrutura de dicionário do arquivo de críticas
PARAMIXB11 = Array - Array contendo detalhes dos procedimentos da guia
PARAMIXB12 = Array - Array contendo estrutura de dicionário do arquivo de procedimentos da guia
PARAMIXB13 = Caractere - Alias da tabela de procedimentos da guia.
PARAMIXB14 = Caractere - Alias da tabela de criticas da guia,
PARAMIXB15 = Caractere - Regime de internação da guia.
PARAMIXB16 = Logico - É uma auditoria participativa ?

Retorno

O ponto de entrada retorna uma string contendo o código do departamento que deverá ser gravado no campo Departamento (B53_CODDEP) .

Eventos de chamada do Ponto de Entrada

Variáveis

Programa Fonte

PLSA790V