<?php
# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - #
# Project: Hear4Mamas PCORI II (PID: 80978)
# Script: PPY.php (Instrument: postpartum_year_check_in_survey_ppy)
# 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:","cell_num:","language:","contact_link:"));
 $RECORD=$options['record'];
 $EVENT=$options['event'];
 $cell_num=$options['cell_num'];
 $language=$options['language'];
 $contact_link=$options['contact_link'];
# - - - - - - - - - - - - - - - - - - - - #
# E. PPY Text Message Arrays:
 $ppy_call_2=$PPY_TXT['call_2'].$contact_link;
 $ob_contact_text=$PPY_TXT['ppy_2'].$contact_link;
 $call_texts=array($PPY_TXT['call_1'],$ppy_call_2,$PPY_TXT['ppy_1']);
 $no_call_texts=array($PPY_TXT['nocall_1'],$PPY_TXT['ppy_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:
 $ppy_list=$list[0];
 $ppy_complete=$ppy_list['postpartum_year_ppy_checkin_complete'];
 if($ppy_complete=='2'){
# - - - - - - - - - - - - - - - - - - - - - - - - - #
# III. EVALUATE PPY Fields:
# - - - - - - - - - - - - - - - - - - - - - - - - - #
//Survey Fields:
  $ppy_q1=$ppy_list['ppy_q1'];
//Assign Text Risk Categories
   $ppy_txt_risk_cat=($ppy_q1=='1')? '0' : '1';
//25-April-2024: Status Bubble Color:
   $ppy_clin_complete=($ppy_txt_risk_cat=='1')? '2' : '0';
# - - - - - - - - - - - - - - - - - - - - - - - - - #
# IV. IMPORT Record:
# - - - - - - - - - - - - - - - - - - - - - - - - - #
  $import_info=array('record_id'=>$RECORD,'redcap_event_name'=>$EVENT, 'ppy_txt_risk_cat'=>$ppy_txt_risk_cat,'ppy_clinician_complete'=>$ppy_clin_complete);
  $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);
# - - - - - - - - - - - - - - - - - - - - - - - - - #
# V. SEND Text Messages:
# - - - - - - - - - - - - - - - - - - - - - - - - - #
  $text_array=($ppy_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)

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