Duplicação PCMSO pelo Organograma
Caso o PCMSO da Empresa estiver sendo controlado por históricos, a rotina de duplicação irá tratar as tabelas R109??? conforme segue:
- para cada empresa em que a troca de organograma estiver sendo feita, será verificado se existe um PCMSO válido na data da troca (data inicial do PCMSO menor ou igual à data de alteração do organograma e data de término maior ou igual, ou zerada, ou seja em aberto);
- se não achou o PCMSO válido, não será feito tratamento nas tabelas do PCMSO para esta empresa;
- se achou PCMSO, será fechado o período final do mesmo no dia anterior à Data da alteração do Organograma;
- será incluído um novo PCMSO com data de início igual a Data da alteração do Organograma e data final igual Data final do antigo PCMSO;
- serão incluídos os exames periódicos do antigo PCMSO que estão cadastrados nas
tabelas R109EXE, R109EXC, R109EXI, R109EXF e R109EEX no novo código de PCMSO.
Importante somente serão cadastrados no novo PCMSO os Exames que estiverem válidos na Data da alteração do Organograma ou que tiverem data de início maior que a Data da alteração do Organograma; - após a inclusão de todos os periódicos acima no novo PCMSO, será efetuado o mesmo tratamento para os periódicos que estão vinculados ao Local (R109EXL, R109EXA e R109EXT), também considerando os Exames válidos.
Foram tratados também as seguintes situações:
- quando o PCMSO possuir algum exame cadastrado nas tabelas R109EXE, R109EXC, R109EXI, R109EXF, R109EEX, R109EXL, R109EXA e R109EXT com data de início superior à data de alteração, esse exame será excluído para o PCMSO antigo, pois não é coerente deixar um exame cadastrado com data posterior à data de fechamento do PCMSO;
- e, quando possuir algum exame cadastrado nas tabelas acima com a data de término superior à data de alteração do organograma, essa data de término será alterada no antigo PCMSO para a data de fechamento do PCMSO. Essas alterações foram necessárias para que as informações fiquem coerentes no antigo PCMSO, visto que todos os exames válidos foram incluídos no novo PCMSO;
- caso exista algum PCMSO futuro, somente foram tratadas as tabelas de periódicos vinculados ao Local(R109EXL, R109EXA e R109EXT), alterando o organograma antigo para o atual (TabOrg e Numloc).
- PCMSO 1 = Data de início: 01/01/2004 - Data de Término: 31/12/2005;
- PCMSO 2 = Data de início: 01/01/2006 - Data de Término: 00/00/0000;
- Alteração do organograma: 01/01/2005: Nesse caso, será fechado o PCMSO 1 com data de término = 31/12/2004 e criado um novo PCMSO ( = 3) com data de início = 01/01/2005 e data de término = 31/12/2005 e todos os exames periódicos do PCMSO 1 válidos (com data de início menor que 01/01/2005 e data de término maior ou igual à 01/01/2005 ou zerada, ou com a data de início maior ou igual à 01/01/2005 serão incluídos no novo PCMSO( = 3).