示例#1
0
    function mostra_pareceres_emitidos()
    {
        global $dd;
        $cep = new cep();
        $caae = $this->protocol;
        $sql = "select * from cep_protocolos \n\t\t\t\t\tinner join cep_parecer on cep_protocol = pr_protocol \n\t\t\t\t\twhere cep_protocol = '{$caae}' \n\t\t\t\t\tand pr_status = 'A'\n\t\t\t\t\t";
        $rlt = db_query($sql);
        $sx .= '<table class="tabela00 lt1" width="100%" border=0>';
        $sx .= '<TR>
				<TH>' . msg('file_tipo') . '
				<TH>ID
				<TH>' . msg('date') . '
				<TH>' . msg('status') . '
				<TH>' . msg('status') . '
				<TH>' . msg('accompaniment') . '
				<TH>' . msg('action') . '
			';
        while ($line = db_read($rlt)) {
            $id = $line['id_pr'];
            $rela = round($line['pr_accompaniment']);
            $accompaniment = $cep->monitoring($rela);
            $link = '<A HREF="#" onclick="newxy2(\'dictamen_pdf.php?dd1=' . $id . '&dd90=' . checkpost($id) . '\',800,600);">Print</A>';
            $sx .= '<TR align="center">';
            $sx .= '<TD class="border1">';
            $sx .= msg('dictamen');
            $sx .= '<TD class="border1">';
            $sx .= strzero($line['id_pr'], 7);
            $sx .= '<TD class="border1">';
            $sx .= stodbr($line['pr_data']);
            $sx .= '<TD class="border1">';
            $sx .= $line['pr_status'];
            $sx .= '<TD class="border1">';
            $decision = msg('pm_' . trim($line['pr_situacao']));
            $sx .= mst($decision);
            $sx .= '<TD class="border1">';
            $sx .= $accompaniment;
            $sx .= '<TD class="border1">';
            $sx .= $link;
        }
        $sx .= '</table>';
        return $sx;
    }
示例#2
0
// Software. If not, see
// https://raw.githubusercontent.com/bireme/proethos/master/LICENSE.txt
/**
 * Protocol
 * @author Rene Faustino Gabriel Junior  (Analista-Desenvolvedor)
 * @copyright © Pan American Health Organization, 2013. All rights reserved.
 * @access public
 * @version v.0.13.46
 * @package Proethos
 * @subpackage Protocol
 */
/* mark active page to cabmenu */
$active_page = 'research';
require "cab.php";
require "_class/_class_cep.php";
$cep = new cep();
require "_class/_class_cep_submit.php";
require $include . 'sisdoc_colunas.php';
require $include . 'sisdoc_data.php';
require "_class/_class_resume.php";
$rs = new resume();
$proj = new submit();
/* Ajusta protocolos perdidos */
$sql = "update " . $proj->tabela . " set doc_status = '@' where doc_status = '' ";
$rlt = db_query($sql);
/* Buscar projetos do pesquisador */
$proj->doc_autor_principal = $ss->user_codigo;
$pta = $proj->protocolos_todos($dd[1]);
/* Search project form */
echo '<h1>' . msg('project_investigador') . '</h1>';
echo $cep->form_search();
示例#3
0
// Software. If not, see
// https://raw.githubusercontent.com/bireme/proethos/master/LICENSE.txt
/**
 * Protocol
 * @author Rene Faustino Gabriel Junior  (Analista-Desenvolvedor)
 * @copyright © Pan American Health Organization, 2013. All rights reserved.
 * @access public
 * @version v.0.13.46
 * @package Proethos
 * @subpackage Protocol
 */
/* mark active page to cabmenu */
$active_page = 'research';
require "cab.php";
require "_class/_class_cep.php";
$cep = new cep();
require "_class/_class_cep_submit.php";
require $include . 'sisdoc_colunas.php';
require $include . 'sisdoc_data.php';
$proj = new submit();
/* Buscar projetos do pesquisador */
$proj->doc_autor_principal = $ss->user_codigo;
$pta = $proj->protocolos_todos($dd[1]);
$type = $dd[1];
/* project in submission */
echo '<BR>';
echo '<h1>' . msg('caption_status_' . $dd[1]) . '</h1>';
echo '<fieldset>';
$type = $dd[1];
switch ($type) {
    case 'problem':
 * @package Proethos
 * @subpackage Protocol
 */
$breadcrumbs = array();
array_push($breadcrumbs, array('main.php', 'principal'));
array_push($breadcrumbs, array('', 'project'));
require "cab.php";
require $include . "sisdoc_email.php";
require $include . "sisdoc_data.php";
require $include . "sisdoc_autor.php";
require '_class/_class_ic.php';
require '_class/_class_oms.php';
require '_class/_class_cep_email.php';
$comu = new comunication();
require "_class/_class_cep.php";
$cep = new cep();
require '_class/_class_cep_comment.php';
require '_ged_config.php';
$comme = new cep_comment();
/* Project Identifier */
if (strlen($dd[0]) > 0) {
    if (!(checkpost($dd[0]) == $dd[90])) {
        echo 'erro de post';
        exit;
    }
    $_SESSION['proto_cep'] = $dd[0];
    redirecina(page());
} else {
    $dd[0] = $_SESSION['proto_cep'];
    if (round($dd[0]) <= 0) {
        redirecina('main.php');
示例#5
0
// https://raw.githubusercontent.com/bireme/proethos/master/LICENSE.txt
/**
 * Protocol
 * @author Rene Faustino Gabriel Junior  (Analista-Desenvolvedor)
 * @copyright © Pan American Health Organization, 2013. All rights reserved.
 * @access public
 * @version v.0.13.46
 * @package Proethos
 * @subpackage Protocol
 */
require "cab.php";
/* Date Library */
require $include . 'sisdoc_data.php';
/* CEP Class */
require "_class/_class_cep.php";
$cep = new cep();
$ok1 = ($perfil->valid('#ADM') or $perfil->valid('#MAS') or $perfil->valid('#MEM') or $perfil->valid('#SCR') or $perfil->valid('#COO'));
$ok2 = ($perfil->valid('#ADC') and $dd[1] == 'Z');
if ($ok1 or $ok2) {
    /* Protocolos de pesquisa */
    $sx = $cep->protocolos_avaliacao($dd[1], 'PRO');
    if (strlen($sx) > 0) {
        echo '<H2>' . msg('protocolos') . '</h2>';
        echo '<H4>' . msg('cep_status_' . $dd[1]) . '</h4>';
        echo $sx;
        echo '<BR>';
    }
    /* Monitoreo */
    $sx = $cep->protocolos_avaliacao($dd[1], 'AME');
    if (strlen($sx) > 0) {
        echo '<h2>' . msg('monitoreo_protocolos') . '</h2>';
示例#6
0
// restricts commercial use of the Software.
//
// ProEthos is distributed in the hope that it will be useful, but WITHOUT ANY
// WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
// PARTICULAR PURPOSE. See the ProEthos License for more details.
//
// You should have received a copy of the ProEthos License along with the ProEthos
// Software. If not, see
// https://raw.githubusercontent.com/bireme/proethos/master/LICENSE.txt
require "db.php";
require $include . 'sisdoc_debug.php';
global $messa;
require '_class/_class_ged.php';
$ged = new ged();
require '_class/_class_cep.php';
$cep = new cep();
require '_class/_class_dictamen.php';
$dict = new dictamen();
/* Mensagens do sistema */
require "_class/_class_message.php";
$edit_mode = round($_SESSION['editmode']);
$file = 'messages/msg_' . $LANG . '.php';
$LANG = $lg->language_read();
if (file_exists($file)) {
    require $file;
} else {
    echo 'message not found ' . $file;
}
if (strlen($acao) > 0) {
    $ok = $dict->dictamen_save($dd);
    $proto = $dd[1];
示例#7
0
$nome = trim($line['pais_nome']);
$pdf->MultiCell(0, 6, utf8_decode($nome), TL, 'L');
/* Tipo do Estudo */
$nome = trim($line['cep_study_type']);
if (strlen($nome) > 0) {
    $pdf->SetFont('Arial', '', 8);
    $pdf->Cell(35, 6, utf8_decode(msg('study_type')), T, T, 'R');
    $pdf->SetFont('Arial', 'B', 11);
    $pdf->MultiCell(0, 6, utf8_decode($nome), TL, 'L');
}
/* pr_accompaniment */
$nome = trim($line['pr_situacao']);
if ($nome == 'APR') {
    $rela = round($line['pr_accompaniment']);
    /* cria objeto */
    $cep = new cep();
    $nome = $cep->monitoring($rela);
    $pdf->SetFont('Arial', '', 8);
    $pdf->Cell(35, 6, utf8_decode(msg('accompaniment')), T, T, 'R');
    $pdf->SetFont('Arial', 'B', 11);
    $pdf->MultiCell(0, 6, utf8_decode($nome), TL, 'L');
}
/* Objetivo do estudo */
$nome = trim($line['cep_goal']);
if (strlen($nome) > 0) {
    $pdf->SetFont('Arial', '', 8);
    $pdf->Cell(35, 6, utf8_decode(msg('primary goal')), T, T, 'R');
    $pdf->SetFont('Arial', 'B', 11);
    $pdf->MultiCell(0, 6, utf8_decode($nome), TL, 'L');
}
/* Data do parecer */
示例#8
0
 * @version v0.13.46
 * @package ProEthos-Admin
 * @subpackage protocols
 */
require "cab.php";
require "_class/_class_cep.php";
/* Admin Common */
$ok = ($perfil->valid('#ADM') or $perfil->valid('#SCR') or $perfil->valid('#COO'));
if ($ok == 0) {
    redirecina('main.php');
}
global $acao, $dd, $cp, $tabela;
require $include . '_class_form.php';
$form = new form();
require $include . 'sisdoc_data.php';
$cl = new cep();
$cp = $cl->cep_manual();
$tabela = $cl->tabela;
$http_edit = page();
$http_redirect = '';
/** Comandos de Edicao */
$tela = $form->editar($cp, $tabela);
/** Caso o registro seja validado */
if ($form->saved > 0) {
    echo 'Salvo';
    $cl->updatex();
    redirecina('admin_protocols.php');
} else {
    echo $tela;
}
echo '</div>';
示例#9
0
array_push($breadcrumbs, array('', 'project'));
require "cab.php";
require $include . '_class_form.php';
$form = new form();
require "form_css.php";
require $include . "sisdoc_email.php";
require $include . "sisdoc_data.php";
require $include . "sisdoc_debug.php";
//require($include."sisdoc_autor.php");
require '_class/_class_oms.php';
require '_class/_class_position.php';
require '_class/_class_ic.php';
require '_class/_class_cep_email.php';
require '_class/_class_cep_comment.php';
require "_class/_class_cep.php";
$cep = new cep();
$ic = new ic();
$comu = new comunication();
require '_ged_config.php';
$comme = new cep_comment();
/* Project Identifier */
if (strlen($dd[0]) > 0) {
    if (!(checkpost($dd[0]) == $dd[90])) {
        echo 'erro de post';
        exit;
    }
    $_SESSION['proto_cep'] = $dd[0];
    redirecina(page());
} else {
    $dd[0] = $_SESSION['proto_cep'];
    if (round($dd[0]) <= 0) {
示例#10
0
//
// You should have received a copy of the ProEthos License along with the ProEthos
// Software. If not, see
// https://raw.githubusercontent.com/bireme/proethos/master/LICENSE.txt
require "cab.php";
require "_class/_class_cep_submit.php";
require "_class/_class_team.php";
require $include . 'sisdoc_data.php';
require $include . 'sisdoc_email.php';
require '_class/_class_ic.php';
$ic = new ic();
$proj = new submit();
$proj->doc_autor_principal = $ss->user_codigo;
require "_class/_class_ged.php";
require "_class/_class_cep.php";
$cep = new cep();
/****/
if (strlen($dd[91]) > 0) {
    $_SESSION['proj_page'] = $dd[91];
    redirecina('submit.php?time' . date("dmYhis"));
}
$pag_id = round($_SESSION['proj_id']);
$pag_page = round($_SESSION['proj_page']);
//if ($pag_id == 0) { $pag_page = 1; }
//if ($pag_page == 0) { $pag_page = 1; }
$pag_id = $_SESSION['proj_id'];
$dd[0] = $pag_id;
$protocolo = strzero($dd[0], 7);
echo '<H2>' . msg('submission_end_title') . '</h2>';
echo '<BR><BR>';
/* Checa diretorio de submissão do pdf */
示例#11
0
//
// ProEthos is distributed in the hope that it will be useful, but WITHOUT ANY
// WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
// PARTICULAR PURPOSE. See the ProEthos License for more details.
//
// You should have received a copy of the ProEthos License along with the ProEthos
// Software. If not, see
// https://raw.githubusercontent.com/bireme/proethos/master/LICENSE.txt
/**
 * XML OMS
 * @author Rene Faustino Gabriel Junior  (Analista-Desenvolvedor)
 * @copyright Copyright (c) 2013 - sisDOC.com.br
 * @access public
 * @version v.0.13.46
 * @package Proethos
 * @subpackage XML
 */
require "db.php";
header("Content-Type:text/xml");
require "_class/_class_cep.php";
$cep = new cep();
$id = round($dd[0]);
$dx = $dd[90];
if (checkpost($id) == $dx) {
    $cep->le($id);
    require "_class/_class_oms.php";
    $oms = new oms();
    echo $oms->xml($cep);
} else {
    echo 'post error';
}
示例#12
0
 * @package ProEthos-Admin
 * @subpackage protocols
 */
require "cab.php";
require '_class/_class_cep.php';
/* Admin Common */
$ok = ($perfil->valid('#ADM') or $perfil->valid('#SCR') or $perfil->valid('#COO'));
if ($ok == 0) {
    redirecina('main.php');
}
$tp = new message();
//$tp->language_set('pt_BR');
global $acao, $dd, $cp, $tabela;
require $include . 'sisdoc_colunas.php';
require $include . 'sisdoc_debug.php';
$clx = new cep();
$tabela = $clx->tabela;
$label = msg("protocols");
$http_edit = troca(page(), '.php', '_ed.php');
$http_ver = 'protocol_detalhe.php';
$http = page();
$editar = True;
$http_redirect = page();
//$http_ver = 'cliente_ver.php';
$clx->row();
$busca = true;
$offset = 20;
//$pre_where = " e_mailing = '".$cl->mail_codigo."' ";
echo '<h1>' . msg('cep_protocol') . '</h1>';
echo '<fieldset><legend>' . msg('protocol') . '</legend>';
echo '<TABLE width="100%" align="center"><TR><TD>';
示例#13
0
// WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
// PARTICULAR PURPOSE. See the ProEthos License for more details.
//
// You should have received a copy of the ProEthos License along with the ProEthos
// Software. If not, see
// https://raw.githubusercontent.com/bireme/proethos/master/LICENSE.txt
/**
 * Protocol
 * @author Rene Faustino Gabriel Junior  (Analista-Desenvolvedor)
 * @copyright © Pan American Health Organization, 2013. All rights reserved.
 * @access public
 * @version v.0.13.46
 * @package Proethos
 * @subpackage Protocol
 */
require "cab.php";
/* Date library */
require $include . 'sisdoc_data.php';
/* CEP Class */
require "_class/_class_cep.php";
$cep = new cep();
echo '<H2>' . msg('protocolos') . '</h2>';
echo '<div id="result" class="border1 pad5">';
echo $cep->protocolos_search($dd[50]);
echo '</div>';
echo '</div>';
echo $hd->foot();
?>
<script>
	
</script>
示例#14
0
 * @author Rene F. Gabriel Junior <*****@*****.**>
 * @author Rene Faustino Gabriel Junior  (Analista-Desenvolvedor)
 * @copyright © Pan American Health Organization, 2013. All rights reserved.
 * @access public
 * @version v0.13.46
 * @package ProEthos
 * @subpackage Committe
 */
/* mark active page to cabmenu */
$active_page = 'committee';
require "cab.php";
require $include . 'sisdoc_menus.php';
require "_class/_class_resume.php";
require "_class/_class_cep.php";
require $include . 'sisdoc_debug.php';
$cep = new cep();
$rs = new resume();
echo $rs->resume_cep();
echo $cep->form_search();
//echo $cep->form_search();
require "committee_secretary.php";
require "committee_reports.php";
echo '</div>';
?>
<script>
	
</script>
<?php 
// This file is part of the ProEthos Software.
//
// Copyright 2013, PAHO. All rights reserved. You can redistribute it and/or modify
示例#15
0
 * Sumissão de protocolo de pesquisa
 * @author Rene Faustino Gabriel Junior  (Analista-Desenvolvedor)
 * @copyright © Pan American Health Organization, 2013. All rights reserved.
 * @access public
 * @version v0.12.22
 * @package Class
 * @subpackage UC0001 - Sumissao de protocolo de pesquisa
 */
echo '<H1>' . msg('amendment_' . $doc_tipo) . '</h1>';
require 'submit_00_field.php';
if (strlen($acao) > 0) {
    require 'submit_save.php';
}
echo $s;
require "_class/_class_cep.php";
$cep = new cep();
// data CEP
$cep_recrutamento = $cep->get_cep_recrutamento($proto_cep);
$cp = $cep->cp_monitoreo();
/* Chave ID do register_shutdown_function(function)*/
$dd[0] = $proto_cep;
$form = new form();
require "form_css.php";
$tela = $form->editar($cp, 'cep_protocolos');
if ($form->saved > 0) {
    $cep->protocolo = strzero($proto_cep, 6);
    $log = $cep->cep_historic_append("CHG", msg("recruiting_" . $dd[2]) . ', ' . msg("date_reclutamiento") . ":" . stodbr($dd[1]));
    redirecina('submit_end_monitoreo_008.php');
} else {
    echo $tela;
}