Tempo aproximado para leitura: 10 min
01. DADOS GERAIS
| Produto: | |
|---|---|
| Linha de Produto: | |
| Segmento: | |
| 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 Entrada | MDTA4104() |
|---|---|
| Chamada | Ao acessar a rotina Prontuário Médico (MDTA410) e quando clicar para mudar de aba. |
| Pré-Requisito | N/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ção | MDTA4104() |
|---|---|
| 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. |
| Retorno | aNao, Array, Traz os campos que serão retirados da exibição em tela. |
#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á.
<style>
div.theme-default .ia-splitter #main {
margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
display: none;
}
#main {
padding-left: 10px;
padding-right: 10px;
overflow-x: hidden;
}
.aui-header-primary .aui-nav, .aui-page-panel {
margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
margin-left: 0px !important;
}
</style>
|