/**
* Context needs simple way of getting patient ID.
* @return the patientid associated with an order
*/
public function getPatientIDFromTrackingID($sTrackingID)
{
$debugmsg = 'LOOK getPatientIDFromTrackingID for [' . $sTrackingID . ']';
error_log($debugmsg);
//Get the IEN from the tracking ID
$aParts = explode('-', $sTrackingID);
if (count($aParts) == 2) {
$nIEN = $aParts[1];
//siteid-IEN
} else {
if (count($aParts) == 1) {
$nIEN = $aParts[0];
//Just IEN
} else {
$sMsg = 'Did NOT recognize format of tracking id [' . $sTrackingID . '] expected SiteID-IEN format!';
error_log($sMsg);
throw new \Exception($sMsg);
}
}
$debugmsg = 'LOOK getPatientIDFromTrackingID for IEN=[' . $nIEN . ']';
error_log($debugmsg);
//Now lookup the patient ID
$pid = NULL;
$serviceResponse = MdwsUtils::parseDdrGetsEntry($this->makeQuery("ddrGetsEntry", array('file' => '75.1', 'iens' => $nIEN . ',', 'flds' => '*', 'flags' => 'IEN')));
foreach ($serviceResponse as $key => $value) {
$pid = $value;
break;
//First one is the one we want.
}
if ($pid == NULL) {
$msg = 'Expected to find a PID but did not find one for ticket [' . $sTrackingID . '] ' . '<br>Details...' . print_r($aParts, TRUE) . '<br>Soapresult>>>' . print_r($serviceResponse, TRUE);
die($msg);
}
$debugmsg = 'LOOK Found PID as [' . $pid . ']';
error_log($debugmsg);
return $pid;
}
private function getWorklistItemFromMDWS($sTrackingID)
{
//error_log('DEBUG called getWorklistItemFromMDWS start with ['.$sTrackingID.']');
//Get the IEN from the tracking ID
$aParts = explode('-', $sTrackingID);
if (count($aParts) == 2) {
$nIEN = $aParts[1];
//siteid-IEN
} else {
if (count($aParts) == 1) {
$nIEN = $aParts[0];
//Just IEN
} else {
$sMsg = 'Did NOT recognize format of tracking id [' . $sTrackingID . '] expected SiteID-IEN format!';
error_log($sMsg);
throw new \Exception($sMsg);
}
}
$aResult = MdwsUtils::parseDdrGetsEntry($this->m_oContext->getMdwsClient()->makeQuery("ddrGetsEntry", array('file' => '75.1', 'iens' => $nIEN . ',', 'flds' => '*', 'flags' => 'IEN')));
//error_log('DEBUG called getWorklistItemFromMDWS done with result >>>'.print_r($aResult,TRUE));
return $aResult;
}
