$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_EDPS, '', '&')); 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); $edps_list=json_decode($output, true); curl_close($exp); $edps_complete=$edps_list[0]['edpsnidamaaa_complete']; if($edps_complete=='2') { $record_id=$edps_list[0]['record_id']; $risk_cat=$edps_list[0]['txt_risk_cat']; $substance_risk=$edps_list[0]['clinic_risk_cat___3']; $edps_calc=$edps_list[0]['calc']; # - - - - - - - - - - - - - - - - - - # # Determine Risk Category Prevention and Positive Depression: if($edps_calc!=''){ $clinic_risk_cat___1 = ($edps_calc>=9)? '1' : '0'; if($risk_cat!='1' && $edps_calc>=9){ $risk_cat='1'; } $clinic_risk_cat___2 = ($edps_calc<9)? '1' : '0'; # if(($risk_cat!='3' || $risk_cat!='4') && $risk_cat!='2' && $edps_calc<9){ # $risk_cat='2'; # } $import_info=array('record_id'=>$record_id,'redcap_event_name'=>$EVENT,'clinic_risk_cat___1'=>$clinic_risk_cat___1, 'clinic_risk_cat___2'=>$clinic_risk_cat___2,'txt_risk_cat'=>$risk_cat); $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, FALSNE); 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); } # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # Determine Risk Category and Send Text Messages w/ Twilio API: # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - # # $client = new Client($sid, $token); # - - - - - - - - - - - - - - - - - - - - - # # Positive Depression Text Messages # if($risk_cat=='1') { # $client->messages->create($cell_num, array("body"=>$TXT_GLOBAL['pos_txt_1'],"from"=>$twilio_num)); # $client->messages->create($cell_num,array("body"=>$TXT_GLOBAL['pos_contact_txt'],"from"=>$twilio_num)); # sleep(1); # $client->messages->create($cell_num,array("body"=>$TXT_GLOBAL['safety_txt'],"from"=>$twilio_num)); # } # - - - - - - - - - - - - - - - - - - - - - # # Prevention Text Messages: # if ($risk_cat=='2'){ # Build & send Twilio text message: # $client->messages->create($cell_num, array("body"=>$TXT_GLOBAL['prev_txt_1'],"from"=>$twilio_num)); # $client->messages->create($cell_num,array("body"=>$TXT_GLOBAL['prev_contact_txt'],"from"=>$twilio_num)); # sleep(1); # $client->messages->create($cell_num,array("body"=>$TXT_GLOBAL['safety_txt'],"from"=>$twilio_num)); # } # - - - - - - - - - - - - - - - - - - - - - # # Substance and Domestic Abuse Messages: # if ($risk_cat=='3' || $risk_cat=='4'){ # $client->messages->create($cell_num, array("body"=>$TXT_GLOBAL['sars_txt_1'],"from"=>$twilio_num)); # $client->messages->create($cell_num,array("body"=>$TXT_GLOBAL['sars_contact_txt'],"from"=>$twilio_num)); # sleep(1); # $client->messages->create($cell_num,array("body"=>$TXT_GLOBAL['safety_txt'],"from"=>$twilio_num)); # } # - - - - - - - - - - - - - - - - - - - - - # # Substance Abuse Sub Category: if ($substance_risk=='1'){ $substance_cat=''; $nida_q2=$edps_list[0]['nida_q2']; $nida_q3=$edps_list[0]['nida_q3']; $sbirt_9=$edps_list[0]['sbirt_q9_ans']; # Opioids if ($nida_q2!='0' || $nida_q3!='0') { $substance_cat='1'; $import_info_1=array('record_id'=>$record_id,'redcap_event_name'=>$EVENT,'clinic_risk_sub_cat'=>$substance_cat); $import_1=json_encode(array($import_info_1)); $DATA_IMPORT_1=array('token'=>$REDCAP_TOKEN,'content'=>'record', 'format'=>'json','type'=>'flat','data'=>$import_1); $imp = curl_init(); curl_setopt($imp, CURLOPT_URL, $API_URL); curl_setopt($imp, CURLOPT_POSTFIELDS, http_build_query($DATA_IMPORT_1, '', '&')); curl_setopt($imp, CURLOPT_RETURNTRANSFER, true); curl_setopt($imp, CURLOPT_SSL_VERIFYPEER, FALSNE); 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); } else { # Tobacco if ($sbirt_9=='1') { $substance_cat='0'; # Import into REDCap # $import_info1=array('record_id'=>$record_id,'redcap_event_name'=>$EVENT,'clinic_risk_sub_cat'=>$substance_cat); $import1=json_encode(array($import_info1)); $DATA_IMPORT1=array('token'=>$REDCAP_TOKEN,'content'=>'record', 'format'=>'json','type'=>'flat','data'=>$import1); $imp = curl_init(); curl_setopt($imp, CURLOPT_URL, $API_URL); curl_setopt($imp, CURLOPT_POSTFIELDS, http_build_query($DATA_IMPORT1, '', '&')); 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 EDPS COMPLETE else { exit(); } ?>