Daftar Pertemuan seseorang

Skrip klien berikut akan meminta server remote untuk mengembalikan sebuah daftar dari seluruh pertemuan dari seseorang. Skrip akan menampilkan daftar yang dihasilkan ke sebuah tabel.

pilih sebuah nomor PID dari 10000000 sampai 10000004, masukkan kedalam kotak inpute dan tekan "Mulai Demo". Catatan jika anda memasukkan nilai yang salah atau jika PID tidak ada di database remote, sebuah pesan error akan ditampilkan.

 
// Load the library
require('ixr_library.inc.php');

// Create the client and connect to the remote server
$client = new IXR_Client('http://www.care2x.net/foundry/modules/hxp/server.php');

// Create the header and supply the username and password
$header['usr'] = 'hxp';
$header['pw'] = 'hxp';

// Set the PID
$PID = $HTTP_GET_VARS['pid'];

// Call the remote procedure
if (!$client->query('Person.Appointment.List', $header, $PID)){
	
	// If error, show info
	echo ('An error occured - '.$client->getErrorCode().' : '.$client->getErrorMessage();

}else{

	// Get the result
	$response = $client->getResponse();

	// Display the result
	echo '<TABLE BORDER=0>';

	echo "<TR>
	<TD> Appt. Nr. </TD>
	<TD> PID </TD>
	<TD> Date </TD>
	<TD> Time </TD>
	<TD> Dept. Nr. </TD>
	<TD> Dr. </TD>
	<TD> Purpose </TD>
	<TD> Urgency </TD>
	<TD> Remind </TD>
	<TD> Status </TD>
	</TR>";
	
	while(list($x,$v) = each($response)){
		echo "<TR>";
		while(list($y, $z) = each($v)){
			echo '<TD>'.$v.'</TD>';
		}
		echo "</TR>";
	}


	echo '</TABLE>';
}