Linha Microsiga Protheus

Árvore de páginas

Ponto de Entrada para validar exclusão de registros na rotina de Prontuário Médico (MDTA410).

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Serviços

Módulo:

Medicina e Segurança do Trabalho (SIGAMDT).

Rotina:

Rotina

Nome Técnico

MDTA410

Prontuário Médico

Cadastros Iniciais:

  • Funcionário (SRA)
  • Ficha Médica (TM0)

Ponto de Entrada:

MDTA4101

País(es):

Todos

Banco(s) de Dados:

Todos

Tabelas Utilizadas:

SRA - Funcionarios
TM0 - Ficha Médica
TMY - Atestado Saúde Ocupacional
TMN - Funcionários em Prog Especiais
TMF - Restrições do Funcionário
TNA - Doenças do Funcionário
TNY - Atestados Médicos
TNC - Acidentes de Trabalho
TMT - Diagnostico
TL9 - Vacinas do Funcionário
TNF - EPI Entregues Funcionários
TMI - Questionário Funcionário
TMJ - Agenda de Consultas Medicas
TM5 - Exames do Funcionário
TMT - Diagnostico

Sistema(s) Operacional(is):

Windows e Linux

Descrição

Ponto de Entrada que permite validar a exclusão de registros na rotina de Prontuário Médico (MDTA410).

Ponto de Entrada

Descrição:

Ponto de Entrada para validar a exclusão de registros.

Localização:

SIGAMDT: Atualizações \ Atendimento Médico \ Prontuário Médico

Eventos:

Ao realizar a exclusão de qualquer registro contido na rotina do Prontuário Médico (MDTA410).

Programa Fonte:

Prontuário Médico (MDTA410)

Função:

MDTA4101

Retorno:

Nome

Tipo

Descrição

Obrigatório

 lRet

Lógico

Indica se existe a permissão para a exclusão de registros no prontuário.

Sim

Parâmetros:
NomeTipo Descrição Obrigatório
cAliasCarácterAlias da tabela de onde o registro está sendo excluído.Sim
Exemplo
#Include "Protheus.ch"

User Function MDTA4101()

	Local cAlias := PARAMIXB[1]
	Local lRet := .T.

	If cAlias == "TM5" .And. PswAdmin(,,RetCodUsr()) != 0
		MsgAlert("Esse usuário não possui permissão para executar essa exclusão", "Atenção")
		lRet := .F.
	EndIf

Return lRet