<?php
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Project: Hear4Mamas PCORI II (PID: 80978)
# Script: PPCVS.php (Instrument: postpartum_care_visit_survey_ppcvs)
# Updated: 22-February-2024
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
 date_default_timezone_set('America/New_York');
# I. Variables:
 $api_config_file = dirname(__FILE__) . '/config.php';
 include ($api_config_file);
# - - - - - - - - - - - - - - - - - - - - - - - - - #
# A. Twilio PHP Helper Library
 $dir='/var/www/html/twh.musc.edu/twilio-php-master';
 require $dir.'/Twilio/autoload.php';
 use Twilio\Rest\Client;
# - - - - - - - - - - - - - - - - - - - - #
# B. Hear4Mamas PCORI Twilio Account:
 $sid = $TWILIO_GLOBAL['sid'];
 $token = $TWILIO_GLOBAL['token'];
 $twilio_num = $TWILIO_GLOBAL['twilio_num'];
# - - - - - - - - - - - - - - - - - - - - - - - - - #
# C. REDCap API Variables:
 $REDCAP_TOKEN=$REDCAP_GLOBAL['REDCAP_TOKEN'];
 $API_URL=$REDCAP_GLOBAL['API_URL'];
# - - - - - - - - - - - - - - - - - - - - #
# D. Options Passed 
 $options=getopt(null,array("record:","event:","instance:","cell_num:","language:","contact_link:"));
 $RECORD=$options['record'];
 $EVENT=$options['event'];
 $INSTANCE=$options['instance'];
 $cell_num=$options['cell_num'];
 $language=$options['language'];
 $contact_link=$options['contact_link'];
# - - - - - - - - - - - - - - - - - - - - #
# E. PPCVS Text Message Arrays:
 $ppcvs_call_2=$PPCVS_TXT['call_2'].$contact_link;
 $ob_contact_text=$PPCVS_TXT['ppcvs_2'].$contact_link;
 $call_texts=array($PPCVS_TXT['call_1'],$ppcvs_call_2,$PPCVS_TXT['ppcvs_1']);
 $no_call_texts=array($PPCVS_TXT['nocall_1'],$PPCVS_TXT['ppcvs_1'],$ob_contact_text);

# - - - - - - - - - - - - - - - - - - - - - - - - - #
# II. Export Record:
# - - - - - - - - - - - - - - - - - - - - - - - - - #
 $DATA=array('token'=>$REDCAP_TOKEN,'content' => 'record','format' => 'json',
    'type' => 'flat','records' => $RECORD,'events'=>array($EVENT));
# - - - - - - - - - - - - - - - - - - #
# Curl Commands
 $exp = curl_init();
 curl_setopt($exp, CURLOPT_URL, $API_URL);
 curl_setopt($exp, CURLOPT_POSTFIELDS, http_build_query($DATA, '', '&'));
 curl_setopt($exp, CURLOPT_RETURNTRANSFER, true);
 curl_setopt($exp, CURLOPT_SSL_VERIFYPEER, FALSE);
 curl_setopt($exp, CURLOPT_VERBOSE, 0);
 curl_setopt($exp, CURLOPT_FOLLOWLOCATION, true);
 curl_setopt($exp, CURLOPT_AUTOREFERER, true);
 curl_setopt($exp, CURLOPT_MAXREDIRS, 10);
 curl_setopt($exp, CURLOPT_CUSTOMREQUEST, "POST");
 curl_setopt($exp, CURLOPT_FRESH_CONNECT, 1);
 $output = curl_exec($exp);
 $list=json_decode($output, true);
 curl_close($exp);
# Find the correct instance data:
 $instance_id = array_search($INSTANCE, array_column($list, 'redcap_repeat_instance'));
 $postpartum_care_visit_survey_ppcvs_complete=$list[$instance_id]['day_6_postpartum_care_visit_ppcv_checkin_complete'];
 if($postpartum_care_visit_survey_ppcvs_complete=='2'){
# - - - - - - - - - - - - - - - - - - - - - - - - - #
# III. EVALUATE PPCVS Fields:
# - - - - - - - - - - - - - - - - - - - - - - - - - #
//Survey Fields:
  $ppcvs_list=$list[$instance_id];
  $ppcvs_q1=$ppcvs_list['ppcvs_q1'];
  $ppcvs_q1a=(array_key_exists("ppcvs_q1a",$ppcvs_list))? $ppcvs_list['ppcvs_q1a'] : '';
  $ppcvs_q1b=(array_key_exists("ppcvs_q1b",$ppcvs_list))? $ppcvs_list['ppcvs_q1b'] : '';
//Evaluate Survey Fields:
  $stop_ppc=($ppcvs_q1=='1')? '1' : '0';
//Assign Text Risk Categories
   $ppcvs_txt_risk_cat=($ppcvs_q1a=='1' || $ppcvs_q1b=='1')? '0' : '1';
//Assign Clinician Risk Category:
   $ppcvs_clinician_risk___0=($ppcvs_q1a=='1')? '1' : '0';
   $ppcvs_clinician_risk___1=($ppcvs_q1a=='0')? '1' : '0';
   $ppcvs_clinician_risk___2=($ppcvs_q1b=='1')? '1' : '0';
   $ppcvs_clinician_risk___3=($ppcvs_q1b=='0')? '1' : '0';
//25-April-2024: Status Bubble Color:   
   $ppcv_complete=($ppcvs_txt_risk_cat=='1')? '2' : '0';

# - - - - - - - - - - - - - - - - - - - - - - - - - #
# IV. IMPORT Record:
# - - - - - - - - - - - - - - - - - - - - - - - - - #
//Import stop_ppc field to baseline:
  $import_info=array('record_id'=>$RECORD,'redcap_event_name'=>'baseline_arm_1','redcap_repeat_instrument'=>'','redcap_repeat_instance'=>'','stop_ppc'=>$stop_ppc);
  $import=json_encode(array($import_info));
  $DATA_IMP=array('token'=>$REDCAP_TOKEN,'content'=>'record', 'format'=>'json','type'=>'flat','data'=>$import);
  $imp = curl_init();
  curl_setopt($imp, CURLOPT_URL, $API_URL);
  curl_setopt($imp, CURLOPT_POSTFIELDS, http_build_query($DATA_IMP, '', '&'));
  curl_setopt($imp, CURLOPT_RETURNTRANSFER, true);
  curl_setopt($imp, CURLOPT_SSL_VERIFYPEER, FALSE);
  curl_setopt($imp, CURLOPT_VERBOSE, 0);
  curl_setopt($imp, CURLOPT_FOLLOWLOCATION, true);
  curl_setopt($imp, CURLOPT_AUTOREFERER, true);
  curl_setopt($imp, CURLOPT_MAXREDIRS, 10);
  curl_setopt($imp, CURLOPT_CUSTOMREQUEST, "POST");
  curl_setopt($imp, CURLOPT_FRESH_CONNECT, 1);
  curl_exec($imp);
  curl_close($imp);
//IMPORT PPCVS Risk Category:
  $import_info_2=array('record_id'=>$RECORD,'redcap_event_name'=>$EVENT,'redcap_repeat_instrument'=>'','redcap_repeat_instance'=>$INSTANCE, 'ppcvs_txt_risk_cat'=>$ppcvs_txt_risk_cat,'ppcvs_clinician_risk___0'=>$ppcvs_clinician_risk___0,'ppcvs_clinician_risk___1'=>$ppcvs_clinician_risk___1,'ppcvs_clinician_risk___2'=>$ppcvs_clinician_risk___2,'ppcvs_clinician_risk___3'=>$ppcvs_clinician_risk___3,'day_6_ppcv_clinician_complete'=>$ppcv_complete);
  $import_2=json_encode(array($import_info_2));
  $DATA_IMP_2=array('token'=>$REDCAP_TOKEN,'content'=>'record', 'format'=>'json','type'=>'flat','data'=>$import_2);
  $imp = curl_init();
  curl_setopt($imp, CURLOPT_URL, $API_URL);
  curl_setopt($imp, CURLOPT_POSTFIELDS, http_build_query($DATA_IMP_2, '', '&'));
  curl_setopt($imp, CURLOPT_RETURNTRANSFER, true);
  curl_setopt($imp, CURLOPT_SSL_VERIFYPEER, FALSE);
  curl_setopt($imp, CURLOPT_VERBOSE, 0);
  curl_setopt($imp, CURLOPT_FOLLOWLOCATION, true);
  curl_setopt($imp, CURLOPT_AUTOREFERER, true);
  curl_setopt($imp, CURLOPT_MAXREDIRS, 10);
  curl_setopt($imp, CURLOPT_CUSTOMREQUEST, "POST");
  curl_setopt($imp, CURLOPT_FRESH_CONNECT, 1);
  curl_exec($imp);
  curl_close($imp);
# - - - - - - - - - - - - - - - - - - - - - - - - - #
# V. SEND Text Messages:
# - - - - - - - - - - - - - - - - - - - - - - - - - #
  $text_array=($ppcvs_txt_risk_cat=='0')? $call_texts : $no_call_texts; 
  $client = new Client($sid, $token);
  foreach ($text_array as $text_message){
   $client->messages->create($cell_num, array("body"=>$text_message,"from"=>$twilio_num));
   sleep(1);
   } //foreach ($text_array as $text_message)
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Enter Statistics for PPCV:
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Number of PPCV:
 $DATA=array('token'=>$REDCAP_TOKEN,'content' => 'record','format' => 'json',
    'type' => 'flat','records' => $RECORD,'forms'=>array('day_6_postpartum_care_visit_ppcv_checkin'),'filterLogic'=>'[day_6_postpartum_care_visit_ppcv_checkin_complete]="2"');
# Curl Commands
 $exp = curl_init();
 curl_setopt($exp, CURLOPT_URL, $API_URL);
 curl_setopt($exp, CURLOPT_POSTFIELDS, http_build_query($DATA, '', '&'));
 curl_setopt($exp, CURLOPT_RETURNTRANSFER, true);
 curl_setopt($exp, CURLOPT_SSL_VERIFYPEER, FALSE);
 curl_setopt($exp, CURLOPT_VERBOSE, 0);
 curl_setopt($exp, CURLOPT_FOLLOWLOCATION, true);
 curl_setopt($exp, CURLOPT_AUTOREFERER, true);
 curl_setopt($exp, CURLOPT_MAXREDIRS, 10);
 curl_setopt($exp, CURLOPT_CUSTOMREQUEST, "POST");
 curl_setopt($exp, CURLOPT_FRESH_CONNECT, 1);
 $output = curl_exec($exp);
 $list=json_decode($output, true);
 curl_close($exp);
 $num_of_ppcv=count($list);
# Count Instances:
 $ppcv_no_appt=0;
 $ppcv_yes_appt=0;
 foreach($list as $instance){
  if($instance['ppcvs_q1']=='0'){
   $ppcv_no_appt++;
   } //if($instance['ppcvs_q1']=='0')
  if($instance['ppcvs_q1']=='1'){
   $ppcv_yes_appt++;
   } //if($instance['ppcvs_q1']=='1')
  } //foreach($list as $instance)
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Enter Statistics
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
 $import_info=array();
 $import_info['record_id']=$RECORD;
 $import_info['redcap_event_name']='baseline_arm_1';
 $import_info['total_num_ppcv']=$num_of_ppcv;
 $import_info['ppcv_no_appt']=$ppcv_no_appt;
 $import_info['ppcv_yes_appt']=$ppcv_yes_appt;
 $import=json_encode(array($import_info));
 $DATA_IMP=array('token'=>$REDCAP_TOKEN,'content'=>'record', 'format'=>'json','type'=>'flat','data'=>$import);
 $imp = curl_init();
 curl_setopt($imp, CURLOPT_URL, $API_URL);
 curl_setopt($imp, CURLOPT_POSTFIELDS, http_build_query($DATA_IMP, '', '&'));
 curl_setopt($imp, CURLOPT_RETURNTRANSFER, true);
 curl_setopt($imp, CURLOPT_SSL_VERIFYPEER, FALSE);
 curl_setopt($imp, CURLOPT_VERBOSE, 0);
 curl_setopt($imp, CURLOPT_FOLLOWLOCATION, true);
 curl_setopt($imp, CURLOPT_AUTOREFERER, true);
 curl_setopt($imp, CURLOPT_MAXREDIRS, 10);
 curl_setopt($imp, CURLOPT_CUSTOMREQUEST, "POST");
 curl_setopt($imp, CURLOPT_FRESH_CONNECT, 1);
 curl_exec($imp);
 curl_close($imp);


 } //if($postpartum_care_visit_survey_ppcvs_complete=='2')
?>