".__("NO PATIENT SPECIFIED")."\n";
if ($patient>0) {
$this_patient = CreateObject('FreeMED.Patient', $patient);
$patient_information = freemed::patient_box ($this_patient);
} // if there is a patient
// This section is the start of "Billing v1.0". We are using "handlers"
// to assign different types of billing, and from there, we will
LoadObjectDependency('PHP.module');
switch ($_REQUEST['action']) {
case 'type':
// Execute handler
$module_handlers = freemed::module_handler('BillingFunctions');
GettextXML::textdomain(strtolower($_REQUEST['type']));
$display_buffer .= module_function($_REQUEST['type'], $module_handlers[strtolower($_REQUEST['type'])]);
// Display closing information for return to menu
$display_buffer .= "
";
break; // end case 'type'
default:
//----- Determine handlers for billing types
$type_handlers = freemed::module_handler('BillingFunctions');
if (!is_array($type_handlers)) {
$display_buffer .= __("Your FreeMED installation has no billing handlers defined. This should not happen.")." \n";
template_display();
die();
} else {
$display_buffer .=
"
".__("Billing System")."
".
"\n";
}
foreach ($type_handlers AS $class => $handler) {
// Load proper GettextXML definitions for this class
GettextXML::textdomain(strtolower($class));
// Get title from meta information
$title = freemed::module_get_meta($class, 'BillingFunctionName');
$desc = freemed::module_get_meta($class, 'BillingFunctionDescription');
// Add to the list
$types[__($title)] = $class;
$description[__($title)] = __($desc);
if ($icon = freemed::module_get_value($class, 'ICON')) {
$icons[__($title)] = $icon;
} else {
unset($icons[__($title)]);
}
}
// Sort & unique values
$types = array_unique($types);
ksort($types);
// Display
$display_buffer .= "