<?php
error_reporting(E_COMPILE_ERROR | E_ERROR | E_CORE_ERROR);
require './roots.php';
require $root_path . 'include/inc_environment_global.php';
/**
* CARE2X Integrated Hospital Information System Deployment 2.1 - 2004-10-02
* GNU General Public License
* Copyright 2005 Robert Meggle based on the development of Elpidio Latorilla (2002,2003,2004,2005)
* elpidio@care2x.org, meggle@merotech.de
*
* See the file "copy_notice.txt" for the licence notice
*/
# This is a working script, to archive all bills from pending list
# to billing archive.
# *** DO NOT PLAY WITH THAT SCRIPT ****
require_once $root_path . 'include/care_api_classes/class_encounter.php';
require_once $root_path . 'include/care_api_classes/class_tz_billing.php';
require_once $root_path . 'include/care_api_classes/class_tz_insurance.php';
$bill_obj = new Bill();
// Get all pending bill number's
$arr_pending_bill_number = $bill_obj->GetAllPendingBillNumbers();
//print_r ($arr_pending_bill_number);
echo "start";
while (list($u, $v) = each($arr_pending_bill_number)) {
$bill_number = $v['nr'];
$bill_obj->ArchiveBill($bill_number);
}
// end of while(list($u,$v) = each($arr_pending_bill_number))
echo "finished";
