custom/import_xml.php

   1 <?
   2  // Copyright (C) 2005 Rod Roark <rod@sunsetsystems.com>
   3  //
   4  // This program is free software; you can redistribute it and/or
   5  // modify it under the terms of the GNU General Public License
   6  // as published by the Free Software Foundation; either version 2
   7  // of the License, or (at your option) any later version.
   8
   9  /////////////////////////////////////////////////////////////////////
  10  // This imports patient demographics from our custom XML format.
  11  /////////////////////////////////////////////////////////////////////
  12
  13  include_once("../interface/globals.php");
  14  include_once("$srcdir/patient.inc");
  15  include_once("$srcdir/acl.inc");
  16
  17  function setInsurance($pid, $ainsurance, $asubscriber, $seq) {
  18   $iwhich = $seq == '2' ? "secondary" : ($seq == '3' ? "tertiary" : "primary");
  19   newInsuranceData(
  20    $pid,
  21    $iwhich,
  22    $ainsurance["provider$seq"],
  23    $ainsurance["policy$seq"],
  24    $ainsurance["group$seq"],
  25    $ainsurance["name$seq"],
  26    $asubscriber["lname$seq"],
  27    $asubscriber["mname$seq"],
  28    $asubscriber["fname$seq"],
  29    $asubscriber["relationship$seq"],
  30    $asubscriber["ss$seq"],
  31    fixDate($asubscriber["dob$seq"]),
  32    $asubscriber["street$seq"],
  33    $asubscriber["zip$seq"],
  34    $asubscriber["city$seq"],
  35    $asubscriber["state$seq"],
  36    $asubscriber["country$seq"],
  37    $asubscriber["phone$seq"],
  38    $asubscriber["employer$seq"],
  39    $asubscriber["employer_street$seq"],
  40    $asubscriber["employer_city$seq"],
  41    $asubscriber["employer_zip$seq"],
  42    $asubscriber["employer_state$seq"],
  43    $asubscriber["employer_country$seq"],
  44    $ainsurance["copay$seq"],
  45    $asubscriber["sex$seq"]
  46   );
  47  }
  48
  49  // Check authorization.
  50  $thisauth = acl_check('patients', 'demo');
  51  if ($thisauth != 'write')
  52   die("Updating demographics is not authorized.");
  53
  54  if ($_POST['form_import']) {
  55   $apatient    = array();
  56   $apcp        = array();
  57   $aemployer   = array();
  58   $ainsurance  = array();
  59   $asubscriber = array();
  60
  61   // $probearr is an array of tag names corresponding to the current
  62   // container in the tree structure.  $probeix is the current level.
  63   $probearr = array('');
  64   $probeix = 0;
  65
  66   $inspriority = '0'; // 1 = primary, 2 = secondary, 3 = tertiary
  67
  68   $parser = xml_parser_create();
  69   xml_parser_set_option($parser, XML_OPTION_SKIP_WHITE, 1);
  70   $xml = array();
  71
  72   if (xml_parse_into_struct($parser, $_POST['form_import_data'], $xml)) {
  73
  74    foreach ($xml as $taginfo) {
  75     $tag = strtolower($taginfo['tag']);
  76     $tagtype = $taginfo['type'];
  77     $tagval = addslashes($taginfo['value']);
  78
  79     if ($tagtype == 'open') {
  80      ++$probeix;
  81      $probearr[$probeix] = $tag;
  82      continue;
  83     }
  84     if ($tagtype == 'close') {
  85      --$probeix;
  86      continue;
  87     }
  88     if ($tagtype != 'complete') {
  89      die("Invalid tag type '$tagtype'");
  90     }
  91
  92     if ($probeix == 1 && $probearr[$probeix] == 'patient') {
  93      $apatient[$tag] = $tagval;
  94     }
  95     else if ($probeix == 2 && $probearr[$probeix] == 'pcp') {
  96      $apcp[$tag] = $tagval;
  97     }
  98     else if ($probeix == 2 && $probearr[$probeix] == 'employer') {
  99      $aemployer[$tag] = $tagval;
 100     }
 101     else if ($probeix == 2 && $probearr[$probeix] == 'insurance') {
 102      if ($tag == 'priority') {
 103       $inspriority = $tagval;
 104      } else {
 105       $ainsurance["$tag$inspriority"] = $tagval;
 106      }
 107     }
 108     else if ($probeix == 3 && $probearr[$probeix] == 'subscriber') {
 109      $asubscriber["$tag$inspriority"] = $tagval;
 110     }
 111     else {
 112      $alertmsg = "Invalid tag \"" . $probearr[$probeix] . "\" at level $probeix";
 113     }
 114    }
 115   } else {
 116    $alertmsg = "Invalid import data!";
 117   }
 118   xml_parser_free($parser);
 119
 120   $olddata = getPatientData($pid);
 121
 122   if ($olddata['squad'] && ! acl_check('squads', $olddata['squad']))
 123    die("You are not authorized to access this squad.");
 124
 125   newPatientData(
 126    $olddata['id'],
 127    $apatient['title'],
 128    $apatient['fname'],
 129    $apatient['lname'],
 130    $apatient['mname'],
 131    $apatient['sex'],
 132    $apatient['dob'],
 133    $apatient['street'],
 134    $apatient['zip'],
 135    $apatient['city'],
 136    $apatient['state'],
 137    $apatient['country'],
 138    $apatient['ss'],
 139    $apatient['occupation'],
 140    $apatient['phone_home'],
 141    $apatient['phone_biz'],
 142    $apatient['phone_contact'],
 143    $apatient['status'],
 144    $apatient['contact_relationship'],
 145    $apatient['referrer'],
 146    $apatient['referrerID'],
 147    $apatient['email'],
 148    $apatient['language'],
 149    $apatient['ethnoracial'],
 150    $apatient['interpreter'],
 151    $apatient['migrantseasonal'],
 152    $apatient['family_size'],
 153    $apatient['monthly_income'],
 154    $apatient['homeless'],
 155    fixDate($apatient['financial_review']),
 156    $apatient['pubpid'],
 157    $pid,
 158    $olddata['providerID'],
 159    $apatient['genericname1'],
 160    $apatient['genericval1'],
 161    $apatient['genericname2'],
 162    $apatient['genericval2'],
 163    $apatient['phone_cell'],
 164    $apatient['hipaa_mail'],
 165    $apatient['hipaa_voice'],
 166    $olddata['squad']
 167   );
 168
 169   newEmployerData(
 170    $pid,
 171    $aemployer['name'],
 172    $aemployer['street'],
 173    $aemployer['zip'],
 174    $aemployer['city'],
 175    $aemployer['state'],
 176    $aemployer['country']
 177   );
 178
 179   setInsurance($pid, $ainsurance, $asubscriber, '1');
 180   setInsurance($pid, $ainsurance, $asubscriber, '2');
 181   setInsurance($pid, $ainsurance, $asubscriber, '3');
 182
 183   echo "<html>\n<body>\n<script language='JavaScript'>\n";
 184   if ($alertmsg) echo " alert('$alertmsg');\n";
 185   echo " if (!opener.closed && opener.refreshme) opener.refreshme();\n";
 186   echo " window.close();\n";
 187   echo "</script>\n</body>\n</html>\n";
 188   exit();
 189  }
 190 ?>
 191 <html>
 192 <head>
 193 <link rel=stylesheet href="<?echo $css_header;?>" type="text/css">
 194 <title>Import Patient Demographics</title>
 195 </head>
 196 <body <? echo $top_bg_line ?> onload="javascript:document.forms[0].form_import_data.focus()">
 197
 198 <p>Paste the data to import into the text area below:</p>
 199
 200 <center>
 201 <form method='post' action="import_xml.php">
 202
 203 <textarea name='form_import_data' rows='10' cols='50' style='width:95%'></textarea>
 204
 205 <p>
 206 <input type='submit' name='form_import' value='Import Patient' /> &nbsp;
 207 <input type='button' value='Cancel' onclick='window.close()' /></p>
 208 </form>
 209 </center>
 210
 211 </body>
 212 </html>