Linha Microsiga Protheus

Árvore de páginas

Tempo aproximado para leitura: 10 min

01. DADOS GERAIS

Produto:

TOTVS Medicina e Segurança do Trabalho

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:Medicina e Segurança do Trabalho (SIGAMDT)
Função:Prontuário Médico
Ticket:18748160
Issue:DNGRHUMDT-27


02. SITUAÇÃO/REQUISITO

Solicitação de criação de um Ponto de Entrada na rotina de Prontuário Médico (MDTA410) permitindo a inclusão de novos campos.


03. SOLUÇÃO

Ponto de EntradaMDTA4104()
ChamadaAo acessar a rotina Prontuário Médico (MDTA410) e quando clicar para mudar de aba.
Pré-RequisitoN/A
Evento

Ao selecionar o funcionário e alterar entre as abas

Retorno

Array com os campos que não serão ou não exibidos em tela.


04. DEMAIS INFORMAÇÕES

FunçãoMDTA4104()
Parâmetros

nOption, Numérico, Traz o valor a ser comparado com o folder selecionado.

aNao, Array, Traz os campos que serão retirados da exibição em tela.

RetornoaNao, Array, Traz os campos que serão retirados da exibição em tela.
Exemplo
#Include 'Totvs.ch'    
 
User Function MDTA4104()
 
    Local aNao    := ParamIXB[1]
    Local nOption := ParamIXB[2]
 
    Do Case
 
        Case nOption == 02 //Consultas
 
            aNao := { "TMJ_NUMFIC", "TMJ_NOMFIC", "TMJ_MAT", "TMJ_PCMSO", "TMJ_DTATEN", "TMJ_DTPROG", "TMJ_CONVOC" }
 
        Case nOption == 03 //Programa de Saude
 
            aNao := {"TMN_NUMFIC", "TMN_NOMFIC"}
 
        Case nOption == 04 //Restricoes
 
            aNao := {"TMF_NUMFIC", "TMF_NOMFIC"}
 
        Case nOption == 05 //Doenças
 
            aNao :={"TNA_NUMFIC", "TNA_NOMFIC"}
 
        Case nOption == 06 //Exames
 
            aNao := {"TM5_NUMFIC", "TM5_NOMFIC"}
 
        Case nOption == 07 //ASO'S
 
            aNao := {"TMY_NUMFIC", "TMY_NOMFIC", "TMY_DESPAR", "TMY_DESNAT"}
 
        Case nOption == 08 //Atestado
 
            If AliasInDic( "TYZ" ) //Caso possua a tabela de afastamentos.
                aNao    := {"TNY_NUMFIC", "TNY_NOMFIC", "TNY_DTSAID", "TNY_DTALTA", "TNY_DTSAI2", "TNY_DTALT2", "TNY_DTSAI3", "TNY_DTALT3" }
            Else
                aNao    := {"TNY_NUMFIC", "TNY_NOMFIC" }
            EndIf
 
        Case nOption == 09 //Acidentes
 
            aNao := {"TNC_NUMFIC", "TNC_NOMFIC"}
 
            If AliasInDic( "TYE" )
                aAdd( aNao, "TNC_CODOBJ" )
                aAdd( aNao, "TNC_DESOBJ" )
                aAdd( aNao, "TNC_CODPAR" )
                aAdd( aNao, "TNC_DESPAR" )
            EndIf
 
        Case nOption == 10 //Diagnósticos Médicos
 
            aNao := {"TMT_NUMFIC", "TMT_NOMFIC", "TMT_MAT"}
 
            If cReleaseRPO < '12.1.2310'
 
                aAdd( aNao, "TMT_QUESYP" )
                aAdd( aNao, "TMT_DATSYP" )
                aAdd( aNao, "TMT_DIASYP" )
                aAdd( aNao, "TMT_HDASYP" )
                aAdd( aNao, "TMT_HISSYP" )
                aAdd( aNao, "TMT_CABSYP" )
                aAdd( aNao, "TMT_OLHSYP" )
                aAdd( aNao, "TMT_OUVSYP" )
                aAdd( aNao, "TMT_PESSYP" )
                aAdd( aNao, "TMT_APRSYP" )
                aAdd( aNao, "TMT_APDSYP" )
                aAdd( aNao, "TMT_APCSYP" )
                aAdd( aNao, "TMT_APUSYP" )
                aAdd( aNao, "TMT_MISSYP" )
                aAdd( aNao, "TMT_PELSYP" )
                aAdd( aNao, "TMT_EXFSYP" )
                aAdd( aNao, "TMT_ORFSYP" )
                aAdd( aNao, "TMT_OTSSYP" )
                aAdd( aNao, "TMT_ABDSYP" )
                aAdd( aNao, "TMT_AUCSYP" )
                aAdd( aNao, "TMT_AUPSYP" )
                 
            EndIf
 
        Case nOption == 11 //Vacinas
 
            aNao := {"TL9_NUMFIC", "TL9_NOMFIC"}
 
        Case nOption == 13 //Questionário
 
            aNao := {"TMI_NUMFIC", "TMI_NOMFIC", 'TMI_QUESTA', 'TMI_PERGUN', 'TMI_RESPOS', 'TMI_DESRES', 'TMI_QTRESP', 'TMI_COMRES', 'TMI_DESCRI' }
 
        OtherWise //Ficha Médica
 
            aNao := { 'TM0_ALTCOT','TM0_ALTJOE','TM0_ALTOLH','TM0_ALTPUB','TM0_ALTURA','TM0_BITMAP','TM0_CCDESC',;
            'TM0_CLIENT','TM0_CODCID','TM0_COMPPE','TM0_CORCAB','TM0_COROLH','TM0_CORPEL','TM0_CTPCD ','TM0_DEPTO ',;
            'TM0_DESCDP','TM0_DESCFU','TM0_DESCRI','TM0_DOADOR','TM0_DOENCA','TM0_DTDOAC','TM0_ESTCIV','TM0_FATORH',;
            'TM0_FICANT','TM0_FILIAL','TM0_FUMA  ','TM0_INDBIO','TM0_LMAMIL','TM0_LOJA  ','TM0_MASSA ','TM0_NOMCLI',;
            'TM0_NOMSOC','TM0_NUMCAL','TM0_NUMDEP','TM0_PESO  ','TM0_QTCIG ','TM0_QTTEMP','TM0_REGBIO','TM0_SANGUE',;
            'TM0_TAMANT','TM0_TAMBRA','TM0_TAMMAO','TM0_TIPDEF','TM0_TIPFIS' }
 
    EndCase
 
Return aNao

05. ASSUNTOS RELACIONADOS.

Não há.