interface/billing/print_daysheet_report_num1.php

   1 <?php
   2 /**
   3 * interface/billing/print_daysheet_report.php Genetating an end of day report.
   4 *
   5 * Program for Generating an End of Day report
   6 *
   7 *
   8 * Copyright (C) 2014 Terry Hill <terry@lillysystems.com>
   9 *
  10 * LICENSE: This program is free software; you can redistribute it and/or
  11 * modify it under the terms of the GNU General Public License
  12 * as published by the Free Software Foundation; either version 3
  13 * of the License, or (at your option) any later version.
  14 * This program is distributed in the hope that it will be useful,
  15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
  16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  17 * GNU General Public License for more details.
  18 * You should have received a copy of the GNU General Public License
  19 * along with this program. If not, see <http://opensource.org/licenses/gpl-license.php>;.
  20 *
  21 * @package OpenEMR
  22 * @author Terry Hill <terry@lillysystems.com>
  23 * @link http://www.open-emr.org
  24 */
  25
  26 $fake_register_globals=false;
  27 $sanitize_all_escapes=true;
  28
  29 include_once("../globals.php");
  30 include_once("$srcdir/patient.inc");
  31 include_once("$srcdir/../interface/reports/report.inc.php");
  32 include_once("$srcdir/daysheet.inc.php");
  33
  34 //global variables:
  35 if (!isset($_GET["mode"])) {
  36     if (!isset($_GET["from_date"])) {
  37         $from_date=date("Y-m-d");
  38     } else {
  39         $from_date = $_GET["from_date"];
  40     }
  41     if (!isset($_GET["to_date"])) {
  42         $to_date = date("Y-m-d");
  43     } else {
  44         $to_date = $_GET["to_date"];
  45     }
  46     if (!isset($_GET["code_type"])) {
  47         $code_type="all";
  48     } else {
  49         $code_type = $_GET["code_type"];
  50     }
  51     if (!isset($_GET["unbilled"])) {
  52         $unbilled = "on";
  53     } else {
  54         $unbilled = $_GET["unbilled"];
  55     }
  56     if (!isset($_GET["authorized"])) {
  57         $my_authorized = "on";
  58     } else {
  59         $my_authorized = $_GET["authorized"];
  60     }
  61 } else {
  62     $from_date = $_GET["from_date"];
  63     $to_date = $_GET["to_date"];
  64     $code_type = $_GET["code_type"];
  65     $unbilled = $_GET["unbilled"];
  66     $my_authorized = $_GET["authorized"];
  67 }
  68
  69 ?>
  70
  71 <html>
  72 <head>
  73 <?php html_header_show();?>
  74
  75 <link rel=stylesheet href="<?php echo $css_header;?>" type="text/css">
  76
  77 </head>
  78 <body bgcolor="#ffffff" topmargin=0 rightmargin=0 leftmargin=2 bottommargin=0 marginwidth=2 marginheight=0>
  79
  80 <a href="javascript:window.close();" target=Main><font class=title><?php echo xlt('Day Sheet Report')?></font></a>
  81 <br>
  82
  83 <?php
  84 if ($my_authorized === 'on' ) {
  85     $my_authorized = true;
  86 } else {
  87     $my_authorized = '%';
  88 }
  89 if ($unbilled === 'on') {
  90     $unbilled = '0';
  91 } else {
  92     $unbilled = '%';
  93 }
  94 if ($code_type === 'all') {
  95     $code_type = '%';
  96 }
  97
  98 if (!isset($_GET["mode"])) {
  99     if (!isset($_GET["from_date"])) {
 100         $from_date=date("Y-m-d");
 101     } else {
 102         $from_date = $_GET["from_date"];
 103     }
 104     if (!isset($_GET["to_date"])) {
 105         $to_date = date("Y-m-d");
 106     } else {
 107         $to_date = $_GET["to_date"];
 108     }
 109     if (!isset($_GET["code_type"])) {
 110         $code_type="all";
 111     } else {
 112         $code_type = $_GET["code_type"];
 113     }
 114     if (!isset($_GET["unbilled"])) {
 115         $unbilled = "on";
 116     } else {
 117         $unbilled = $_GET["unbilled"];
 118     }
 119     if (!isset($_GET["authorized"])) {
 120         $my_authorized = "on";
 121     } else {
 122         $my_authorized = $_GET["authorized"];
 123     }
 124 } else {
 125     $from_date = $_GET["from_date"];
 126     $to_date = $_GET["to_date"];
 127     $code_type = $_GET["code_type"];
 128     $unbilled = $_GET["unbilled"];
 129     $my_authorized = $_GET["authorized"];
 130 }
 131
 132 if ($my_authorized === 'on' ) {
 133     $my_authorized = true;
 134 } else {
 135     $my_authorized = '%';
 136 }
 137 if ($unbilled === 'on') {
 138     $unbilled = '0';
 139 } else {
 140     $unbilled = '%';
 141 }
 142 if ($code_type === 'all') {
 143     $code_type = '%';
 144 }
 145
 146 if (isset($_GET["mode"]) && $_GET["mode"] === 'bill') {
 147     billCodesList($list);
 148 }
 149
 150 $res_count = 0;
 151 $N = 1;
 152 $k = 1;
 153 $anypats = 0;
 154 $the_first_time = 1;
 155 $itero = array();
 156
 157 if ($ret = getBillsBetweendayReport($code_type)) {
 158
 159 // checking to see if there is any information in the array if not display a message (located after this if statment)
 160 $anypats = count($ret);
 161 $run_provider = 0;
 162 $old_pid = -1;
 163 $first_time = 1;
 164 $new_old_pid = -1;
 165
 166 // $iter has encounter information
 167
 168 // this loop gathers the user and provider numbers
 169 foreach ($ret as $iter) {
 170   $catch_user[] = $iter{'user'};
 171   $catch_provider[] = $iter{'provider_id'};
 172 }
 173
 174 //This statment uniques the arrays removing duplicates
 175
 176 $user_list = array_unique($catch_user);
 177 $provider_list = array_unique($catch_provider);
 178
 179 // reorder the list starting with array element zero
 180 $user_final_list = array_values($user_list);
 181 $provider_final_list = array_values($provider_list);
 182 // sort array in assending order
 183 sort($user_final_list);
 184 sort($provider_final_list);
 185 $all4 = array_natsort($ret, pid, fulname, asc);
 186
 187 if ($_POST['end_of_day_provider_only'] == 1){
 188 $run_provider = 1;
 189 }
 190 if ($_POST['end_of_day_totals_only'] == 1){
 191 $totals_only = 1;
 192 }
 193 foreach ($all4 as $iter) {
 194
 195 // Case statment to tally information by user
 196  switch ($iter{'user'}) {
 197     case $iter{'user'} = $user_final_list[0]:
 198             $us0_user = $iter{'user'};
 199                 $us0_fee = $us0_fee + $iter{'fee'};
 200                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 201                  $us0_inspay = $us0_inspay + $iter{'ins_code'};
 202                 }
 203                 $us0_insadj = $us0_insadj + $iter{'ins_adjust_dollar'};
 204                 $us0_patadj = $us0_patadj + $iter{'pat_adjust_dollar'};
 205                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 206                  $us0_patpay = $us0_patpay + $iter{'pat_code'};
 207                 }
 208             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 209           $us0_insref = $us0_insref + $iter{'ins_code'};
 210         }
 211         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 212           $us0_patref = $us0_patref + $iter{'pat_code'};
 213         }
 214         break;
 215     case $iter{'user'} = $user_final_list[1]:
 216             $us1_user = $iter{'user'};
 217         $us1_fee = $us1_fee + $iter{'fee'};
 218                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 219                  $us1_inspay = $us1_inspay + $iter{'ins_code'};
 220                 }
 221                 $us1_insadj = $us1_insadj + $iter{'ins_adjust_dollar'};
 222                 $us1_patadj = $us1_patadj + $iter{'pat_adjust_dollar'};
 223                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 224                  $us1_patpay = $us1_patpay + $iter{'pat_code'};
 225                 }
 226             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 227           $us1_insref = $us1_insref + $iter{'ins_code'};
 228         }
 229         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 230           $us1_patref = $us1_patref + $iter{'pat_code'};
 231         }
 232         break;
 233     case $iter{'user'} = $user_final_list[2]:
 234             $us2_user = $iter{'user'};
 235         $us2_fee = $us2_fee + $iter{'fee'};
 236                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 237                  $us2_inspay = $us2_inspay + $iter{'ins_code'};
 238                 }
 239                 $us2_insadj = $us2_insadj + $iter{'ins_adjust_dollar'};
 240                 $us2_patadj = $us2_patadj + $iter{'pat_adjust_dollar'};
 241                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 242                  $us2_patpay = $us2_patpay + $iter{'pat_code'};
 243                 }
 244                 if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 245           $us2_insref = $us2_insref + $iter{'ins_code'};
 246         }
 247         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 248           $us2_patref = $us2_patref + $iter{'pat_code'};
 249         }
 250         break;
 251     case $iter{'user'} = $user_final_list[3]:
 252             $us3_user = $iter{'user'};
 253         $us3_fee = $us3_fee + $iter{'fee'};
 254                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 255                  $us3_inspay = $us3_inspay + $iter{'ins_code'};
 256                 }
 257                 $us3_insadj = $us3_insadj + $iter{'ins_adjust_dollar'};
 258                 $us3_patadj = $us3_patadj + $iter{'pat_adjust_dollar'};
 259                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 260                  $us3_patpay = $us3_patpay + $iter{'pat_code'};
 261                 }
 262             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 263           $us3_insref = $us3_insref + $iter{'ins_code'};
 264         }
 265         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 266           $us3_patref = $us3_patref + $iter{'pat_code'};
 267         }
 268         break;
 269     case $iter{'user'} = $user_final_list[4]:
 270             $us4_user = $iter{'user'};
 271         $us4_fee = $us4_fee + $iter{'fee'};
 272                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 273                  $us4_inspay = $us4_inspay + $iter{'ins_code'};
 274                 }
 275                 $us4_insadj = $us4_insadj + $iter{'ins_adjust_dollar'};
 276                 $us4_patadj = $us4_patadj + $iter{'pat_adjust_dollar'};
 277                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 278                  $us4_patpay = $us4_patpay + $iter{'pat_code'};
 279                 }
 280                 if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 281           $us4_insref = $us4_insref + $iter{'ins_code'};
 282         }
 283         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 284           $us4_patref = $us4_patref + $iter{'pat_code'};
 285         }
 286         break;
 287     case $iter{'user'} = $user_final_list[5]:
 288             $us5_user = $iter{'user'};
 289         $us5_fee = $us5_fee + $iter{'fee'};
 290                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 291                  $us5_inspay = $us5_inspay + $iter{'ins_code'};
 292                 }
 293                 $us5_insadj = $us5_insadj + $iter{'ins_adjust_dollar'};
 294                 $us5_patadj = $us5_patadj + $iter{'pat_adjust_dollar'};
 295                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 296                  $us5_patpay = $us5_patpay + $iter{'pat_code'};
 297                 }
 298             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 299           $us5_insref = $us5_insref + $iter{'ins_code'};
 300         }
 301         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 302           $us5_patref = $us5_patref + $iter{'pat_code'};
 303         }
 304         break;
 305     case $iter{'user'} = $user_final_list[6]:
 306             $us6_user = $iter{'user'};
 307         $us6_fee = $us6_fee + $iter{'fee'};
 308                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 309                  $us6_inspay = $us6_inspay + $iter{'ins_code'};
 310                 }
 311                 $us6_insadj = $us6_insadj + $iter{'ins_adjust_dollar'};
 312                 $us6_patadj = $us6_patadj + $iter{'pat_adjust_dollar'};
 313                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 314                  $us6_patpay = $us6_patpay + $iter{'pat_code'};
 315                 }
 316             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 317           $us6_insref = $us6_insref + $iter{'ins_code'};
 318         }
 319         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 320           $us6_patref = $us6_patref + $iter{'pat_code'};
 321         }
 322         break;
 323     case $iter{'user'} = $user_final_list[7]:
 324             $us7_user = $iter{'user'};
 325         $us7_fee = $us7_fee + $iter{'fee'};
 326                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 327                  $us7_inspay = $us7_inspay + $iter{'ins_code'};
 328                 }
 329                 $us7_insadj = $us7_insadj + $iter{'ins_adjust_dollar'};
 330                 $us7_patadj = $us7_patadj + $iter{'pat_adjust_dollar'};
 331                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 332                  $us7_patpay = $us7_patpay + $iter{'pat_code'};
 333                 }
 334             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 335           $us7_insref = $us7_insref + $iter{'ins_code'};
 336         }
 337         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 338           $us7_patref = $us7_patref + $iter{'pat_code'};
 339         }
 340         break;
 341         case $iter{'user'} = $user_final_list[8]:
 342             $us8_user = $iter{'user'};
 343         $us8_fee = $us8_fee + $iter{'fee'};
 344                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 345                  $us8_inspay = $us8_inspay + $iter{'ins_code'};
 346                 }
 347                 $us8_insadj = $us8_insadj + $iter{'ins_adjust_dollar'};
 348                 $us8_patadj = $us8_patadj + $iter{'pat_adjust_dollar'};
 349                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 350                  $us8_patpay = $us8_patpay + $iter{'pat_code'};
 351                 }
 352             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 353           $us8_insref = $us8_insref + $iter{'ins_code'};
 354         }
 355         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 356           $us8_patref = $us8_patref + $iter{'pat_code'};
 357         }
 358         break;
 359     case $iter{'user'} = $user_final_list[9]:
 360             $us9_user = $iter{'user'};
 361         $us9_fee = $us9_fee + $iter{'fee'};
 362                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 363                  $us9_inspay = $us9_inspay + $iter{'ins_code'};
 364                 }
 365                 $us9_insadj = $us9_insadj + $iter{'ins_adjust_dollar'};
 366                 $us9_patadj = $us9_patadj + $iter{'pat_adjust_dollar'};
 367                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 368                  $us9_patpay = $us9_patpay + $iter{'pat_code'};
 369                 }
 370             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 371           $us9_insref = $us9_insref + $iter{'ins_code'};
 372         }
 373         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 374           $us9_patref = $us9_patref + $iter{'pat_code'};
 375         }
 376         break;
 377     case $iter{'user'} = $user_final_list[10]:
 378         $us10_user = $iter{'user'};
 379                 $us10_fee = $us10_fee + $iter{'fee'};
 380                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 381                  $us10_inspay = $us10_inspay + $iter{'ins_code'};
 382                 }
 383                 $us10_insadj = $us10_insadj + $iter{'ins_adjust_dollar'};
 384                 $us10_patadj = $us10_patadj + $iter{'pat_adjust_dollar'};
 385                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 386                  $us10_patpay = $us10_patpay + $iter{'pat_code'};
 387                 }
 388                 if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 389           $us10_insref = $us10_insref + $iter{'ins_code'};
 390         }
 391         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 392           $us10_patref = $us10_patref + $iter{'pat_code'};
 393         }
 394         break;
 395     case $iter{'user'} = $user_final_list[11]:
 396             $us11_user = $iter{'user'};
 397         $us11_fee = $us11_fee + $iter{'fee'};
 398                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 399                  $us11_inspay = $us11_inspay + $iter{'ins_code'};
 400                 }
 401                 $us11_insadj = $us11_insadj + $iter{'ins_adjust_dollar'};
 402                 $us11_patadj = $us11_patadj + $iter{'pat_adjust_dollar'};
 403                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 404                  $us11_patpay = $us11_patpay + $iter{'pat_code'};
 405                 }
 406             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 407           $us11_insref = $us11_insref + $iter{'ins_code'};
 408         }
 409         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 410           $us11_patref = $us11_patref + $iter{'pat_code'};
 411         }
 412         break;
 413     case $iter{'user'} = $user_final_list[12]:
 414             $us12_user = $iter{'user'};
 415         $us12_fee = $us12_fee + $iter{'fee'};
 416                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 417                  $us12_inspay = $us12_inspay + $iter{'ins_code'};
 418                 }
 419                 $us12_insadj = $us12_insadj + $iter{'ins_adjust_dollar'};
 420                 $us12_patadj = $us12_patadj + $iter{'pat_adjust_dollar'};
 421                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 422                  $us12_patpay = $us12_patpay + $iter{'pat_code'};
 423                 }
 424             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 425           $us12_insref = $us12_insref + $iter{'ins_code'};
 426         }
 427         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 428           $us12_patref = $us12_patref + $iter{'pat_code'};
 429         }
 430         break;
 431     case $iter{'user'} = $user_final_list[13]:
 432             $us13_user = $iter{'user'};
 433         $us13_fee = $us13_fee + $iter{'fee'};
 434                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 435                  $us13_inspay = $us13_inspay + $iter{'ins_code'};
 436                 }
 437                 $us13_insadj = $us13_insadj + $iter{'ins_adjust_dollar'};
 438                 $us13_patadj = $us13_patadj + $iter{'pat_adjust_dollar'};
 439                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 440                  $us13_patpay = $us13_patpay + $iter{'pat_code'};
 441                 }
 442             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 443           $us13_insref = $us13_insref + $iter{'ins_code'};
 444         }
 445         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 446           $us13_patref = $us13_patref + $iter{'pat_code'};
 447         }
 448         break;
 449     case $iter{'user'} = $user_final_list[14]:
 450             $us14_user = $iter{'user'};
 451         $us14_fee = $us14_fee + $iter{'fee'};
 452                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 453                  $us14_inspay = $us14_inspay + $iter{'ins_code'};
 454                 }
 455                 $us14_insadj = $us14_insadj + $iter{'ins_adjust_dollar'};
 456                 $us14_patadj = $us14_patadj + $iter{'pat_adjust_dollar'};
 457                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 458                  $us14_patpay = $us14_patpay + $iter{'pat_code'};
 459                 }
 460             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 461           $us14_insref = $us14_insref + $iter{'ins_code'};
 462         }
 463         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 464           $us14_patref = $us14_patref + $iter{'pat_code'};
 465         }
 466         break;
 467     case $iter{'user'} = $user_final_list[15]:
 468             $us15_user = $iter{'user'};
 469         $us15_fee = $us15_fee + $iter{'fee'};
 470                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 471                  $us15_inspay = $us15_inspay + $iter{'ins_code'};
 472                 }
 473                 $us15_insadj = $us15_insadj + $iter{'ins_adjust_dollar'};
 474                 $us15_patadj = $us15_patadj + $iter{'pat_adjust_dollar'};
 475                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 476                  $us15_patpay = $us15_patpay + $iter{'pat_code'};
 477                 }
 478             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 479           $us15_insref = $us15_insref + $iter{'ins_code'};
 480         }
 481         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 482           $us15_patref = $us15_patref + $iter{'pat_code'};
 483         }
 484         break;
 485     case $iter{'user'} = $user_final_list[16]:
 486             $us16_user = $iter{'user'};
 487         $us16_fee = $us16_fee + $iter{'fee'};
 488                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 489                  $us16_inspay = $us16_inspay + $iter{'ins_code'};
 490                 }
 491                 $us16_insadj = $us16_insadj + $iter{'ins_adjust_dollar'};
 492                 $us16_patadj = $us16_patadj + $iter{'pat_adjust_dollar'};
 493                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 494                  $us16_patpay = $us16_patpay + $iter{'pat_code'};
 495                 }
 496             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 497           $us16_insref = $us16_insref + $iter{'ins_code'};
 498         }
 499         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 500           $us16_patref = $us16_patref + $iter{'pat_code'};
 501         }
 502         break;
 503     case $iter{'user'} = $user_final_list[17]:
 504             $us17_user = $iter{'user'};
 505         $us17_fee = $us17_fee + $iter{'fee'};
 506                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 507                  $us17_inspay = $us17_inspay + $iter{'ins_code'};
 508                 }
 509                 $us17_insadj = $us17_insadj + $iter{'ins_adjust_dollar'};
 510                 $us17_patadj = $us17_patadj + $iter{'pat_adjust_dollar'};
 511                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 512                  $us17_patpay = $us17_patpay + $iter{'pat_code'};
 513                 }
 514             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 515           $us17_insref = $us17_insref + $iter{'ins_code'};
 516         }
 517         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 518           $us17_patref = $us17_patref + $iter{'pat_code'};
 519         }
 520         break;
 521         case $iter{'user'} = $user_final_list[18]:
 522             $us18_user = $iter{'user'};
 523         $us18_fee = $us18_fee + $iter{'fee'};
 524                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 525                  $us18_inspay = $us18_inspay + $iter{'ins_code'};
 526                 }
 527                 $us18_insadj = $us18_insadj + $iter{'ins_adjust_dollar'};
 528                 $us18_patadj = $us18_patadj + $iter{'pat_adjust_dollar'};
 529                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 530                  $us18_patpay = $us18_patpay + $iter{'pat_code'};
 531                 }
 532             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 533           $us18_insref = $us18_insref + $iter{'ins_code'};
 534         }
 535         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 536           $us18_patref = $us18_patref + $iter{'pat_code'};
 537         }
 538         break;
 539     case $iter{'user'} = $fuser_final_list[19]:
 540             $us19_user = $iter{'user'};
 541         $us19_fee = $us19_fee + $iter{'fee'};
 542                 if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 543                  $us19_inspay = $us19_inspay + $iter{'ins_code'};
 544                 }
 545                 $us19_insadj = $us19_insadj + $iter{'ins_adjust_dollar'};
 546                 $us19_patadj = $us19_patadj + $iter{'pat_adjust_dollar'};
 547                 if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 548                  $us19_patpay = $us19_patpay + $iter{'pat_code'};
 549                 }
 550             if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 551           $us19_insref = $us19_insref + $iter{'ins_code'};
 552         }
 553         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 554           $us19_patref = $us19_patref + $iter{'pat_code'};
 555         }
 556         break;
 557  }
 558 // Case statment to tally information by Provider
 559  switch ($iter{'provider_id'}) {
 560     case $iter{'provider_id'} = $provider_final_list[0]:
 561             $pro0_user = $iter{'provider_id'};
 562                 $pro0_fee = $pro0_fee + $iter{'fee'};
 563         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 564                   $pro0_inspay = $pro0_inspay + $iter{'ins_code'};
 565                 }
 566                 $pro0_insadj = $pro0_insadj + $iter{'ins_adjust_dollar'};
 567                 $pro0_patadj = $pro0_patadj + $iter{'pat_adjust_dollar'};
 568         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 569                   $pro0_patpay = $pro0_patpay + $iter{'pat_code'};
 570                 }
 571         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 572           $pro0_insref = $pro0_insref + $iter{'ins_code'};
 573         }
 574         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 575           $pro0_patref = $pro0_patref + $iter{'pat_code'};
 576
 577         }
 578         break;
 579     case $iter{'provider_id'} = $provider_final_list[1]:
 580             $pro1_user = $iter{'provider_id'};
 581         $pro1_fee = $pro1_fee + $iter{'fee'};
 582         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 583                   $pro1_inspay = $pro1_inspay + $iter{'ins_code'};
 584                 }
 585                 $pro1_insadj = $pro1_insadj + $iter{'ins_adjust_dollar'};
 586                 $pro1_patadj = $pro1_patadj + $iter{'pat_adjust_dollar'};
 587         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 588                    $pro1_patpay = $pro1_patpay + $iter{'pat_code'};
 589         }
 590         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 591           $pro1_insref = $pro1_insref + $iter{'ins_code'};
 592         }
 593         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 594           $pro1_patref = $pro1_patref + $iter{'pat_code'};
 595         }
 596         break;
 597     case $iter{'provider_id'} = $provider_final_list[2]:
 598             $pro2_user = $iter{'provider_id'};
 599         $pro2_fee = $pro2_fee + $iter{'fee'};
 600         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 601                   $pro2_inspay = $pro2_inspay + $iter{'ins_code'};
 602                 }
 603                 $pro2_insadj = $pro2_insadj + $iter{'ins_adjust_dollar'};
 604                 $pro2_patadj = $pro2_patadj + $iter{'pat_adjust_dollar'};
 605         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 606                   $pro2_patpay = $pro2_patpay + $iter{'pat_code'};
 607                 }
 608         if(($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 609           $pro2_insref = $pro2_insref + $iter{'ins_code'};
 610         }
 611         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 612           $pro2_patref = $pro2_patref + $iter{'pat_code'};
 613         }
 614         break;
 615     case $iter{'provider_id'} = $provider_final_list[3]:
 616             $pro3_user = $iter{'provider_id'};
 617         $pro3_fee = $pro3_fee + $iter{'fee'};
 618         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 619                   $pro3_inspay = $pro3_inspay + $iter{'ins_code'};
 620                 }
 621                 $pro3_insadj = $pro3_insadj + $iter{'ins_adjust_dollar'};
 622                 $pro3_patadj = $pro3_patadj + $iter{'pat_adjust_dollar'};
 623         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 624                   $pro3_patpay = $pro3_patpay + $iter{'pat_code'};
 625                 }
 626         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 627           $pro3_insref = $pro3_insref + $iter{'ins_code'};
 628         }
 629         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 630           $pro3_patref = $pro3_patref + $iter{'pat_code'};
 631         }
 632         break;
 633     case $iter{'provider_id'} = $provider_final_list[4]:
 634             $pro4_user = $iter{'provider_id'};
 635         $pro4_fee = $pro4_fee + $iter{'fee'};
 636         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 637                   $pro4_inspay = $pro4_inspay + $iter{'ins_code'};
 638                 }
 639                 $pro4_insadj = $pro4_insadj + $iter{'ins_adjust_dollar'};
 640                 $pro4_patadj = $pro4_patadj + $iter{'pat_adjust_dollar'};
 641         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 642                   $pro4_patpay = $pro4_patpay + $iter{'pat_code'};
 643                 }
 644         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 645           $pro4_insref = $pro4_insref + $iter{'ins_code'};
 646         }
 647         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 648           $pro4_patref = $pro4_patref + $iter{'pat_code'};
 649         }
 650         break;
 651     case $iter{'provider_id'} = $provider_final_list[5]:
 652             $pro5_user = $iter{'provider_id'};
 653         $pro5_fee = $pro5_fee + $iter{'fee'};
 654         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 655                   $pro5_inspay = $pro5_inspay + $iter{'ins_code'};
 656                 }
 657                 $pro5_insadj = $pro5_insadj + $iter{'ins_adjust_dollar'};
 658                 $pro5_patadj = $pro5_patadj + $iter{'pat_adjust_dollar'};
 659         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 660                 $pro5_patpay = $pro5_patpay + $iter{'pat_code'};
 661                 }
 662         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 663           $pro5_insref = $pro5_insref + $iter{'ins_code'};
 664         }
 665         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 666           $pro5_patref = $pro5_patref + $iter{'pat_code'};
 667         }
 668         break;
 669     case $iter{'provider_id'} = $provider_final_list[6]:
 670             $pro6_user = $iter{'provider_id'};
 671         $pro6_fee = $pro6_fee + $iter{'fee'};
 672         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 673                   $pro6_inspay = $pro6_inspay + $iter{'ins_code'};
 674                 }
 675                 $pro6_insadj = $pro6_insadj + $iter{'ins_adjust_dollar'};
 676                 $pro6_patadj = $pro6_patadj + $iter{'pat_adjust_dollar'};
 677         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 678                   $pro6_patpay = $pro6_patpay + $iter{'pat_code'};
 679                 }
 680         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 681           $pro6_insref = $pro6_insref + $iter{'ins_code'};
 682         }
 683         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 684           $pro6_patref = $pro6_patref + $iter{'pat_code'};
 685         }
 686         break;
 687     case $iter{'provider_id'} = $provider_final_list[7]:
 688             $pro7_user = $iter{'provider_id'};
 689         $pro7_fee = $pro7_fee + $iter{'fee'};
 690         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 691                   $pro7_inspay = $pro7_inspay + $iter{'ins_code'};
 692                 }
 693                 $pro7_insadj = $pro7_insadj + $iter{'ins_adjust_dollar'};
 694                 $pro7_patadj = $pro7_patadj + $iter{'pat_adjust_dollar'};
 695         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 696                   $pro7_patpay = $pro7_patpay + $iter{'pat_code'};
 697                 }
 698         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 699           $pro7_insref = $pro7_insref + $iter{'ins_code'};
 700         }
 701         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 702           $pro7_patref = $pro7_patref + $iter{'pat_code'};
 703         }
 704         break;
 705         case $iter{'provider_id'} = $provider_final_list[8]:
 706             $pro8_user = $iter{'provider_id'};
 707         $pro8_fee = $pro8_fee + $iter{'fee'};
 708         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 709                   $pro8_inspay = $pro8_inspay + $iter{'ins_code'};
 710                 }
 711                 $pro8_insadj = $pro8_insadj + $iter{'ins_adjust_dollar'};
 712                 $pro8_patadj = $pro8_patadj + $iter{'pat_adjust_dollar'};
 713         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 714                   $pro8_patpay = $pro8_patpay + $iter{'pat_code'};
 715                 }
 716         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 717           $pro8_insref = $pro8_insref + $iter{'ins_code'};
 718         }
 719         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 720           $pro8_patref = $pro8_patref + $iter{'pat_code'};
 721         }
 722         break;
 723     case $iter{'provider_id'} = $provider_final_list[9]:
 724             $pro9_user = $iter{'provider_id'};
 725         $pro9_fee = $pro9_fee + $iter{'fee'};
 726         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 727                   $pro9_inspay = $pro9_inspay + $iter{'ins_code'};
 728                 }
 729                 $pro9_insadj = $pro9_insadj + $iter{'ins_adjust_dollar'};
 730                 $pro9_patadj = $pro9_patadj + $iter{'pat_adjust_dollar'};
 731         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 732                   $pro9_patpay = $pro9_patpay + $iter{'pat_code'};
 733                 }
 734         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 735           $pro9_insref = $pro9_insref + $iter{'ins_code'};
 736         }
 737         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 738           $pro9_patref = $pro9_patref + $iter{'pat_code'};
 739         }
 740         break;
 741     case $iter{'provider_id'} = $provider_final_list[10]:
 742         $pro10_user = $iter{'provider_id'};
 743                 $pro10_fee = $pro10_fee + $iter{'fee'};
 744         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 745                   $pro10_inspay = $pro0_inspay + $iter{'ins_code'};
 746                 }
 747                 $pro10_insadj = $pro10_insadj + $iter{'ins_adjust_dollar'};
 748                 $pro10_patadj = $pro10_patadj + $iter{'pat_adjust_dollar'};
 749         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 750                   $pro10_patpay = $pro10_patpay + $iter{'pat_code'};
 751                 }
 752         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 753           $pro10_insref = $pro10_insref + $iter{'ins_code'};
 754         }
 755         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 756           $pro10_patref = $pro10_patref + $iter{'pat_code'};
 757         }
 758         break;
 759     case $iter{'provider_id'} = $provider_final_list[11]:
 760             $pro11_user = $iter{'provider_id'};
 761         $pro11_fee = $pro11_fee + $iter{'fee'};
 762         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 763                   $pro11_inspay = $pro11_inspay + $iter{'ins_code'};
 764                 }
 765                 $pro11_insadj = $pro11_insadj + $iter{'ins_adjust_dollar'};
 766                 $pro11_patadj = $pro11_patadj + $iter{'pat_adjust_dollar'};
 767         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 768                   $pro11_patpay = $pro11_patpay + $iter{'pat_code'};
 769                 }
 770         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 771           $pro11_insref = $pro11_insref + $iter{'ins_code'};
 772         }
 773         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 774           $pro11_patref = $pro11_patref + $iter{'pat_code'};
 775         }
 776         break;
 777     case $iter{'provider_id'} = $provider_final_list[12]:
 778             $pro12_user = $iter{'provider_id'};
 779         $pro12_fee = $pro12_fee + $iter{'fee'};
 780         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 781                   $pro12_inspay = $pro12_inspay + $iter{'ins_code'};
 782                 }
 783                 $pro12_insadj = $pro12_insadj + $iter{'ins_adjust_dollar'};
 784                 $pro12_patadj = $pro12_patadj + $iter{'pat_adjust_dollar'};
 785         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 786                   $pro12_patpay = $pro12_patpay + $iter{'pat_code'};
 787                 }
 788         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 789           $pro12_insref = $pro12_insref + $iter{'ins_code'};
 790         }
 791         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 792           $pro12_patref = $pro12_patref + $iter{'pat_code'};
 793         }
 794         break;
 795     case $iter{'provider_id'} = $provider_final_list[13]:
 796             $pro13_user = $iter{'provider_id'};
 797         $pro13_fee = $pro13_fee + $iter{'fee'};
 798         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 799                 $pro13_inspay = $pro13_inspay + $iter{'ins_code'};
 800                 }
 801                 $pro13_insadj = $pro13_insadj + $iter{'ins_adjust_dollar'};
 802                 $pro13_patadj = $pro13_patadj + $iter{'pat_adjust_dollar'};
 803         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 804                   $pro13_patpay = $pro13_patpay + $iter{'pat_code'};
 805                 }
 806         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 807           $pro13_insref = $pro13_insref + $iter{'ins_code'};
 808         }
 809         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 810           $pro13_patref = $pro13_patref + $iter{'pat_code'};
 811         }
 812         break;
 813     case $iter{'provider_id'} = $provider_final_list[14]:
 814             $pro14_user = $iter{'provider_id'};
 815         $pro14_fee = $pro14_fee + $iter{'fee'};
 816         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 817                   $pro14_inspay = $pro14_inspay + $iter{'ins_code'};
 818                 }
 819                 $pro14_insadj = $pro14_insadj + $iter{'ins_adjust_dollar'};
 820                 $pro14_patadj = $pro14_patadj + $iter{'pat_adjust_dollar'};
 821         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 822                   $pro14_patpay = $pro14_patpay + $iter{'pat_code'};
 823                 }
 824         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 825           $pro14_insref = $pro14_insref + $iter{'ins_code'};
 826         }
 827         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 828           $pro14_patref = $pro14_patref + $iter{'pat_code'};
 829         }
 830         break;
 831     case $iter{'provider_id'} = $provider_final_list[15]:
 832             $pro15_user = $iter{'provider_id'};
 833         $pro15_fee = $pro15_fee + $iter{'fee'};
 834         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 835                   $pro15_inspay = $pro15_inspay + $iter{'ins_code'};
 836                 }
 837                 $pro15_insadj = $pro15_insadj + $iter{'ins_adjust_dollar'};
 838                 $pro15_patadj = $pro15_patadj + $iter{'pat_adjust_dollar'};
 839         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 840                   $pro15_patpay = $pro15_patpay + $iter{'pat_code'};
 841                 }
 842         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 843           $pro15_insref = $pro15_insref + $iter{'ins_code'};
 844         }
 845         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 846           $pro15_patref = $pro15_patref + $iter{'pat_code'};
 847         }
 848         break;
 849     case $iter{'provider_id'} = $provider_final_list[16]:
 850             $pro16_user = $iter{'provider_id'};
 851         $pro16_fee = $pro16_fee + $iter{'fee'};
 852         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 853                   $pro16_inspay = $pro16_inspay + $iter{'ins_code'};
 854                 }
 855                 $pro16_insadj = $pro16_insadj + $iter{'ins_adjust_dollar'};
 856                 $pro16_patadj = $pro16_patadj + $iter{'pat_adjust_dollar'};
 857         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 858                   $pro16_patpay = $pro16_patpay + $iter{'pat_code'};
 859                 }
 860         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 861           $pro16_insref = $pro16_insref + $iter{'ins_code'};
 862         }
 863         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 864           $pro16_patref = $pro16_patref + $iter{'pat_code'};
 865         }
 866         break;
 867     case $iter{'provider_id'} = $provider_final_list[17]:
 868             $pro17_user = $iter{'provider_id'};
 869         $pro17_fee = $pro17_fee + $iter{'fee'};
 870         if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 871                   $pro17_inspay = $pro17_inspay + $iter{'ins_code'};
 872                 }
 873                 $pro17_insadj = $pro17_insadj + $iter{'ins_adjust_dollar'};
 874                 $pro17_patadj = $pro17_patadj + $iter{'pat_adjust_dollar'};
 875         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 876                   $pro17_patpay = $pro17_patpay + $iter{'pat_code'};
 877                 }
 878         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 879           $pro17_insref = $pro17_insref + $iter{'ins_code'};
 880         }
 881         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 882           $pro17_patref = $pro17_patref + $iter{'pat_code'};
 883         }
 884         break;
 885         case $iter{'provider_id'} = $provider_final_list[18]:
 886             $pro18_user = $iter{'provider_id'};
 887         $pro18_fee = $pro18_fee + $iter{'fee'};
 888             if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 889                   $pro18_inspay = $pro18_inspay + $iter{'ins_code'};
 890                 }
 891                 $pro18_insadj = $pro18_insadj + $iter{'ins_adjust_dollar'};
 892                 $pro18_patadj = $pro18_patadj + $iter{'pat_adjust_dollar'};
 893         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 894                   $pro18_patpay = $pro18_patpay + $iter{'pat_code'};
 895                 }
 896         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 897           $pro18_insref = $pro18_insref + $iter{'ins_code'};
 898         }
 899         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 900           $pro18_patref = $pro18_patref + $iter{'pat_code'};
 901         }
 902         break;
 903     case $iter{'provider_id'} = $provider_final_list[19]:
 904             $pro19_user = $iter{'provider_id'};
 905         $pro19_fee = $pro19_fee + $iter{'fee'};
 906             if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 907                   $pro19_inspay = $pro19_inspay + $iter{'ins_code'};
 908                 }
 909                 $pro19_insadj = $pro19_insadj + $iter{'ins_adjust_dollar'};
 910                 $pro19_patadj = $pro19_patadj + $iter{'pat_adjust_dollar'};
 911         if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 912                   $pro19_patpay = $pro19_patpay + $iter{'pat_code'};
 913                 }
 914         if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 915           $pro19_insref = $pro19_insref + $iter{'ins_code'};
 916         }
 917         if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 918           $pro19_patref = $pro19_patref + $iter{'pat_code'};
 919         }
 920         break;
 921  }
 922
 923 if ($the_first_time === 1) {
 924   $user = $iter{'user'};
 925   $new_old_pid = $iter{'pid'};
 926   $the_first_time = 0;
 927 }
 928
 929 if ($totals_only != 1) {
 930
 931     if ($old_pid != $iter{'pid'} AND ($iter{'code_type'} != 'payment_info')) {
 932            if ($old_pid === $new_old_pid) {
 933             $line_total = 0;
 934             $line_total_pay = 0;
 935            }
 936
 937           if ($first_time) {
 938        print "<table border=0><tr>\n";     // small table
 939        $first_time=0;
 940       }
 941       print "<td width=70><span class=text><b><center>" . xlt("Date"). "</b></center>";
 942       print "</span></td><td width=50><span class=text><center><b>" . xlt("Acct").'#'. "</b></center>";
 943       print "</span></td><td width=100><span class=text><center><b>" . xlt("Name") . "</b></center>";
 944       print "</span></td><td width=100><span class=text><b><center>" . xlt("Source"). "</b></center>";
 945       print "</span></td><td width=100><span class=text><b><center>" . xlt("CPT"). "</b></center>";
 946       print "</span></td><td width=100><span class=small><center><b>" . xlt("ICD"). "</b></center>";
 947       print "</span></td><td width=100><span class=small><center><b>". xlt("Charges"). "</b></center>";
 948       print "</span></td><td width=100><span class=small><center><b>". xlt("Payments").'/'.xlt("Adj").".". "</b></center>";
 949       print "</span></td><td><br></tr><tr>\n";
 950       //Next patient
 951           $old_pid = $iter{'pid'};
 952     }
 953
 954         // get dollar amounts to appear on pat,ins payments and copays
 955
 956         if ($iter{'code_type'} != 'payment_info') {
 957          if ($iter{'code_type'} === 'COPAY' || $iter{'code_type'} === 'Patient Payment' || $iter{'code_type'} === 'Insurance Payment' ) {
 958            print "<td width=70><span class=text><center>" . text(date("Y-m-d",strtotime($iter{'date'}))). "</center>" ;
 959            print "</span></td><td width=50><span class=text><center>" . text($iter{'pid'}) . "</center>";
 960        print "</span></td><td width=180><span class=text><center>" . text($iter{'last'}) . ", " . text($iter{'first'}) ."</center>";
 961           if (($iter{'ins_adjust_dollar'}) != 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 962            print  "</span></td><td width=180><span class=text><center>" . xlt('Insurance Adjustment'). "</center>";
 963           }
 964           if (($iter{'pat_adjust_dollar'}) != 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 965            print  "</span></td><td width=180><span class=text><center>" . xlt('Patient Adjustment'). "</center>";
 966           }
 967           if (($iter{'ins_code'}) > 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 968            print  "</span></td><td width=180><span class=text><center>" . xlt('Insurance Payment'). "</center>";
 969           }
 970           if (($iter{'pat_code'}) > 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 971            print  "</span></td><td width=180><span class=text><center>" . xlt('Patient Payment'). "</center>";
 972           }
 973           if (($iter{'ins_code'}) < 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 974            print  "</span></td><td width=180><span class=text><center>" . xlt('Insurance Credit'). "</center>";
 975           }
 976           if (($iter{'pat_code'}) < 0 AND ($iter{'code_type'}) === 'Patient Payment' AND $iter{'paytype'} != 'PCP' ){
 977            print  "</span></td><td width=180><span class=text><center>" . xlt('Patient Credit'). "</center>";
 978           }
 979           if ($iter{'paytype'} === 'PCP') {
 980            print  "</span></td><td width=180><span class=text><center>" . xlt('COPAY'). "</center>";
 981           }
 982       print  "</span></td><td width=100><span class=text>";
 983       print  "</span></td><td width=100><span class=text>";
 984       print  "</span></td><td width=100><span class=text>";
 985           if (($iter{'ins_adjust_dollar'}) != 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 986            $line_total_pay = $line_total_pay + $iter{'ins_adjust_dollar'};
 987            print  "</span></td><td width=100><span class=text><center>" . text($iter{'ins_adjust_dollar'}). "</center>";
 988           }
 989           if (($iter{'ins_code'}) != 0 AND ($iter{'code_type'}) === 'Insurance Payment' ){
 990            $line_total_pay = $line_total_pay + $iter{'ins_code'};
 991            print  "</span></td><td width=100><span class=text><center>" . text($iter{'ins_code'}). "</center>";
 992           }
 993           if (($iter{'code_type'}) != 'Patient Payment' AND ($iter{'code_type'}) != 'Insurance Payment' ){
 994            $line_total_pay = $line_total_pay + $iter{'code'};
 995            print  "</span></td><td width=100><span class=text><center>" . text($iter{'code'}). "</center>";
 996           }
 997           if (($iter{'pat_adjust_dollar'}) != 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
 998            $line_total_pay = $line_total_pay + $iter{'pat_adjust_dollar'};
 999            print  "</span></td><td width=100><span class=text><center>" . text($iter{'pat_adjust_dollar'}). "</center>";
1000           }
1001           if (($iter{'pat_code'}) != 0 AND ($iter{'code_type'}) === 'Patient Payment' ){
1002            $line_total_pay = $line_total_pay + $iter{'pat_code'};
1003            print  "</span></td><td width=100><span class=text><center>" . text($iter{'pat_code'}). "</center>";
1004       }
1005           if (($iter{'code_type'}) != 'Insurance Payment' AND ($iter{'code_type'}) != 'Patient Payment' AND $iter{'paytype'} != 'PCP') {
1006            print  "</span></td><td width=100><span class=text><center>" . text($iter{'code_type'}). "</center>";
1007           }
1008       print  "</span></td><td width=100><span class=text>";
1009       print  "</span></td>\n";
1010
1011         }
1012         else
1013         {
1014           if ($iter{'fee'} != 0) {
1015           $line_total = $line_total + $iter{'fee'};
1016       print "<td width=70><span class=text><center>" . text(date("Y-m-d",strtotime($iter{'date'}))) . "</center>";
1017       print "</span></td><td width=50><span class=text><center>" . text($iter{'pid'}) . "</center>";
1018       print "</span></td><td width=180><span class=text><center>" . text($iter{'last'}) . ", " . text($iter{'first'}) . "</center>";
1019           if ($GLOBALS['language_default'] === 'English (Standard)'){
1020          print "</span></td><td width=100><span class=text><center>" . text(ucwords(strtolower(substr($iter{'code_text'},0,25)))) . "</center>";
1021            }
1022            else
1023            {
1024          print "</span></td><td width=100><span class=text><center>" . text(substr($iter{'code_text'},0,25)) . "</center>";
1025            }
1026       print "</span></td><td width=100><span class=text><center>" . text($iter{'code'}) . "</center>";
1027       print "</span></td><td width=100><span class=small><center>" . text(substr($iter{'justify'},5,3)) . "</center>";
1028       print "</span></td><td width=100><span class=small><center>" . text($iter{'fee'}). "</center>";
1029       print "</span></td>\n";
1030           }
1031         }
1032
1033         if ($iter{'code_type'} === 'COPAY' || $iter{'code_type'} === 'Patient Payment' || $iter{'code_type'} === 'Insurance Payment' || $iter{'fee'} != 0) {
1034      $res_count++;
1035     }
1036
1037     if ($res_count === $N) {
1038      print "</tr><tr>\n";
1039      $res_count = 0;
1040     }
1041     $itero = $iter;
1042
1043         if ($old_pid != $new_old_pid AND ($iter{'code_type'} != 'payment_info')) {
1044          $new_old_pid = $old_pid;
1045         }
1046 }
1047
1048 }
1049 // end totals only
1050
1051 }
1052
1053 // end for
1054 }
1055
1056
1057 if ($anypats === 0) {
1058 ?><font size = 5 ><?php echo xlt('No Data to Process')?></font><?php
1059 }
1060
1061 // TEST TO SEE IF THERE IS INFORMATION IN THE VARAIBLES THEN ADD TO AN ARRAY FOR PRINTING
1062 if ($run_provider != 1) {
1063  if ($us0_fee != 0 || $us0_inspay != 0 || $us0_insadj != 0 || $us0_patadj != 0 || $us0_patpay != 0 || $us0_insref != 0 || $us0_patref != 0) {
1064   $user_info['user'][$k] = $us0_user;
1065   $user_info['fee'][$k]  = $us0_fee;
1066   $user_info['inspay'][$k]  = $us0_inspay;
1067   $user_info['insadj'][$k]  = $us0_insadj;
1068   $user_info['insref'][$k]  = $us0_insref;
1069   $user_info['patadj'][$k]  = $us0_patadj;
1070   $user_info['patpay'][$k]  = $us0_patpay;
1071   $user_info['patref'][$k]  = $us0_patref;
1072   ++$k;
1073  }
1074  if ($us1_fee != 0 || $us1_inspay != 0 || $us1_insadj != 0 || $us1_patadj != 0 || $us1_patpay != 0 || $us1_insref != 0 || $us1_patref != 0) {
1075   $user_info['user'][$k] = $us1_user;
1076   $user_info['fee'][$k]  = $us1_fee;
1077   $user_info['inspay'][$k]  = $us1_inspay;
1078   $user_info['insadj'][$k]  = $us1_insadj;
1079   $user_info['insref'][$k]  = $us1_insref;
1080   $user_info['patadj'][$k]  = $us1_patadj;
1081   $user_info['patpay'][$k]  = $us1_patpay;
1082   $user_info['patref'][$k]  = $us1_patref;
1083   ++$k;
1084  }
1085  if ($us2_fee != 0 || $us2_inspay != 0 || $us2_insadj != 0 || $us2_patadj != 0 || $us2_patpay != 0 || $us2_insref != 0 || $us2_patref != 0) {
1086   $user_info['user'][$k] = $us2_user;
1087   $user_info['fee'][$k]  = $us2_fee;
1088   $user_info['inspay'][$k]  = $us2_inspay;
1089   $user_info['insadj'][$k]  = $us2_insadj;
1090   $user_info['insref'][$k]  = $us2_insref;
1091   $user_info['patadj'][$k]  = $us2_patadj;
1092   $user_info['patpay'][$k]  = $us2_patpay;
1093   $user_info['patref'][$k]  = $us2_patref;
1094   ++$k;
1095  }
1096  if ($us3_fee != 0 || $us3_inspay != 0 || $us3_insadj != 0 || $us3_patadj != 0 || $us3_patpay != 0 || $us3_insref != 0 || $us3_patref != 0) {
1097   $user_info['user'][$k] = $us3_user;
1098   $user_info['fee'][$k]  = $us3_fee;
1099   $user_info['inspay'][$k]  = $us3_inspay;
1100   $user_info['insadj'][$k]  = $us3_insadj;
1101   $user_info['insref'][$k]  = $us3_insref;
1102   $user_info['patadj'][$k]  = $us3_patadj;
1103   $user_info['patpay'][$k]  = $us3_patpay;
1104   $user_info['patref'][$k]  = $us3_patref;
1105   ++$k;
1106  }
1107  if ($us4_fee != 0 || $us4_inspay != 0 || $us4_insadj != 0 || $us4_patadj != 0 || $us4_patpay != 0 || $us4_insref != 0 || $us4_patref != 0) {
1108   $user_info['user'][$k] = $us4_user;
1109   $user_info['fee'][$k]  = $us4_fee;
1110   $user_info['inspay'][$k]  = $us4_inspay;
1111   $user_info['insadj'][$k]  = $us4_insadj;
1112   $user_info['insref'][$k]  = $us4_insref;
1113   $user_info['patadj'][$k]  = $us4_patadj;
1114   $user_info['patpay'][$k]  = $us4_patpay;
1115   $user_info['patref'][$k]  = $us4_patref;
1116   ++$k;
1117  }
1118  if ($us5_fee != 0 || $us5_inspay != 0 || $us5_insadj != 0 || $us5_patadj != 0 || $us5_patpay != 0 || $us5_insref != 0 || $us5_patref != 0) {
1119   $user_info['user'][$k] = $us5_user;
1120   $user_info['fee'][$k]  = $us5_fee;
1121   $user_info['inspay'][$k]  = $us5_inspay;
1122   $user_info['insadj'][$k]  = $us5_insadj;
1123   $user_info['insref'][$k]  = $us5_insref;
1124   $user_info['patadj'][$k]  = $us5_patadj;
1125   $user_info['patpay'][$k]  = $us5_patpay;
1126   $user_info['patref'][$k]  = $us5_patref;
1127   ++$k;
1128  }
1129  if ($us6_fee != 0 || $us6_inspay != 0 || $us6_insadj != 0 || $us6_patadj != 0 || $us6_patpay != 0 || $us6_insref != 0 || $us6_patref != 0) {
1130   $user_info['user'][$k] = $us6_user;
1131   $user_info['fee'][$k]  = $us6_fee;
1132   $user_info['inspay'][$k]  = $us6_inspay;
1133   $user_info['insadj'][$k]  = $us6_insadj;
1134   $user_info['insref'][$k]  = $us6_insref;
1135   $user_info['patadj'][$k]  = $us6_patadj;
1136   $user_info['patpay'][$k]  = $us6_patpay;
1137   $user_info['patref'][$k]  = $us6_patref;
1138   ++$k;
1139  }
1140  if ($us7_fee != 0 || $us7_inspay != 0 || $us7_insadj != 0 || $us7_patadj != 0 || $us7_patpay != 0 || $us7_insref != 0 || $us7_patref != 0) {
1141   $user_info['user'][$k] = $us7_user;
1142   $user_info['fee'][$k]  = $us7_fee;
1143   $user_info['inspay'][$k]  = $us7_inspay;
1144   $user_info['insadj'][$k]  = $us7_insadj;
1145   $user_info['insref'][$k]  = $us7_insref;
1146   $user_info['patadj'][$k]  = $us7_patadj;
1147   $user_info['patpay'][$k]  = $us7_patpay;
1148   $user_info['patref'][$k]  = $us7_patref;
1149   ++$k;
1150  }
1151  if ($us8_fee != 0 || $us8_inspay != 0 || $us8_insadj != 0 || $us8_patadj != 0 || $us8_patpay != 0 || $us8_insref != 0 || $us8_patref != 0) {
1152   $user_info['user'][$k] = $us8_user;
1153   $user_info['fee'][$k]  = $us8_fee;
1154   $user_info['inspay'][$k]  = $us8_inspay;
1155   $user_info['insadj'][$k]  = $us8_insadj;
1156   $user_info['insref'][$k]  = $us8_insref;
1157   $user_info['patadj'][$k]  = $us8_patadj;
1158   $user_info['patpay'][$k]  = $us8_patpay;
1159   $user_info['patref'][$k]  = $us8_patref;
1160   ++$k;
1161  }
1162  if ($us9_fee != 0 || $us9_inspay != 0 || $us9_insadj != 0 || $us9_patadj != 0 || $us9_patpay != 0 || $us9_insref != 0 || $us9_patref != 0) {
1163   $user_info['user'][$k] = $us9_user;
1164   $user_info['fee'][$k]  = $us9_fee;
1165   $user_info['inspay'][$k]  = $us9_inspay;
1166   $user_info['insadj'][$k]  = $us9_insadj;
1167   $user_info['insref'][$k]  = $us9_insref;
1168   $user_info['patadj'][$k]  = $us9_patadj;
1169   $user_info['patpay'][$k]  = $us9_patpay;
1170   $user_info['patref'][$k]  = $us9_patref;
1171   ++$k;
1172  }
1173  if ($us10_fee != 0 || $us10_inspay != 0 || $us10_insadj != 0 || $us10_patadj != 0 || $us10_patpay != 0 || $us10_insref != 0 || $us10_patref != 0) {
1174   $user_info['user'][$k] = $us10_user;
1175   $user_info['fee'][$k]  = $us10_fee;
1176   $user_info['inspay'][$k]  = $us10_inspay;
1177   $user_info['insadj'][$k]  = $us10_insadj;
1178   $user_info['insref'][$k]  = $us10_insref;
1179   $user_info['patadj'][$k]  = $us10_patadj;
1180   $user_info['patpay'][$k]  = $us10_patpay;
1181   $user_info['patref'][$k]  = $us10_patref;
1182   ++$k;
1183  }
1184  if ($us11_fee != 0 || $us11_inspay != 0 || $us11_insadj != 0 || $us11_patadj != 0 || $us11_patpay != 0 || $us11_insref != 0 || $us11_patref != 0) {
1185   $user_info['user'][$k] = $us11_user;
1186   $user_info['fee'][$k]  = $us11_fee;
1187   $user_info['inspay'][$k]  = $us11_inspay;
1188   $user_info['insadj'][$k]  = $us11_insadj;
1189   $user_info['insref'][$k]  = $us11_insref;
1190   $user_info['patadj'][$k]  = $us11_patadj;
1191   $user_info['patpay'][$k]  = $us11_patpay;
1192   $user_info['patref'][$k]  = $us11_patref;
1193   ++$k;
1194  }
1195  if ($us12_fee != 0 || $us12_inspay != 0 || $us12_insadj != 0 || $us12_patadj != 0 || $us12_patpay != 0 || $us12_insref != 0 || $us12_patref != 0) {
1196   $user_info['user'][$k] = $us12_user;
1197   $user_info['fee'][$k]  = $us12_fee;
1198   $user_info['inspay'][$k]  = $us12_inspay;
1199   $user_info['insadj'][$k]  = $us12_insadj;
1200   $user_info['insref'][$k]  = $us12_insref;
1201   $user_info['patadj'][$k]  = $us12_patadj;
1202   $user_info['patpay'][$k]  = $us12_patpay;
1203   $user_info['patref'][$k]  = $us12_patref;
1204   ++$k;
1205  }
1206  if ($us13_fee != 0 || $us13_inspay != 0 || $us13_insadj != 0 || $us13_patadj != 0 || $us13_patpay != 0 || $us13_insref != 0 || $us13_patref != 0) {
1207   $user_info['user'][$k] = $us13_user;
1208   $user_info['fee'][$k]  = $us13_fee;
1209   $user_info['inspay'][$k]  = $us13_inspay;
1210   $user_info['insadj'][$k]  = $us13_insadj;
1211   $user_info['insref'][$k]  = $us13_insref;
1212   $user_info['patadj'][$k]  = $us13_patadj;
1213   $user_info['patpay'][$k]  = $us13_patpay;
1214   $user_info['patref'][$k]  = $us13_patref;
1215   ++$k;
1216  }
1217  if ($us14_fee != 0 || $us14_inspay != 0 || $us14_insadj != 0 || $us14_patadj != 0 || $us14_patpay != 0 || $us14_insref != 0 || $us14_patref != 0) {
1218   $user_info['user'][$k] = $us14_user;
1219   $user_info['fee'][$k]  = $us14_fee;
1220   $user_info['inspay'][$k]  = $us14_inspay;
1221   $user_info['insadj'][$k]  = $us14_insadj;
1222   $user_info['insref'][$k]  = $us14_insref;
1223   $user_info['patadj'][$k]  = $us14_patadj;
1224   $user_info['patpay'][$k]  = $us14_patpay;
1225   $user_info['patref'][$k]  = $us14_patref;
1226   ++$k;
1227  }
1228  if ($us15_fee != 0 || $us15_inspay != 0 || $us15_insadj != 0 || $us15_patadj != 0 || $us15_patpay != 0 || $us15_insref != 0 || $us15_patref != 0) {
1229   $user_info['user'][$k] = $us15_user;
1230   $user_info['fee'][$k]  = $us15_fee;
1231   $user_info['inspay'][$k]  = $us15_inspay;
1232   $user_info['insadj'][$k]  = $us15_insadj;
1233   $user_info['insref'][$k]  = $us15_insref;
1234   $user_info['patadj'][$k]  = $us15_patadj;
1235   $user_info['patpay'][$k]  = $us15_patpay;
1236   $user_info['patref'][$k]  = $us15_patref;
1237   ++$k;
1238  }
1239  if ($us16_fee != 0 || $us16_inspay != 0 || $us16_insadj != 0 || $us16_patadj != 0 || $us16_patpay != 0 || $us16_insref != 0 || $us16_patref != 0) {
1240   $user_info['user'][$k] = $us16_user;
1241   $user_info['fee'][$k]  = $us16_fee;
1242   $user_info['inspay'][$k]  = $us16_inspay;
1243   $user_info['insadj'][$k]  = $us16_insadj;
1244   $user_info['insref'][$k]  = $us16_insref;
1245   $user_info['patadj'][$k]  = $us16_patadj;
1246   $user_info['patpay'][$k]  = $us16_patpay;
1247   $user_info['patref'][$k]  = $us16_patref;
1248   ++$k;
1249  }
1250  if ($us17_fee != 0 || $us17_inspay != 0 || $us17_insadj != 0 || $us17_patadj != 0 || $us17_patpay != 0 || $us17_insref != 0 || $us17_patref != 0) {
1251   $user_info['user'][$k] = $us17_user;
1252   $user_info['fee'][$k]  = $us17_fee;
1253   $user_info['inspay'][$k]  = $us17_inspay;
1254   $user_info['insadj'][$k]  = $us17_insadj;
1255   $user_info['insref'][$k]  = $us17_insref;
1256   $user_info['patadj'][$k]  = $us17_patadj;
1257   $user_info['patpay'][$k]  = $us17_patpay;
1258   $user_info['patref'][$k]  = $us17_patref;
1259   ++$k;
1260  }
1261  if ($us18_fee != 0 || $us18_inspay != 0 || $us18_insadj != 0 || $us18_patadj != 0 || $us18_patpay != 0 || $us18_insref != 0 || $us18_patref != 0) {
1262   $user_info['user'][$k] = $us18_user;
1263   $user_info['fee'][$k]  = $us18_fee;
1264   $user_info['inspay'][$k]  = $us18_inspay;
1265   $user_info['insadj'][$k]  = $us18_insadj;
1266   $user_info['insref'][$k]  = $us18_insref;
1267   $user_info['patadj'][$k]  = $us18_patadj;
1268   $user_info['patpay'][$k]  = $us18_patpay;
1269   $user_info['patref'][$k]  = $us18_patref;
1270   ++$k;
1271  }
1272  if ($us19_fee != 0 || $us19_inspay != 0 || $us19_insadj != 0 || $us19_patadj != 0 || $us19_patpay != 0 || $us19_insref != 0 || $us19_patref != 0) {
1273   $user_info['user'][$k] = $us19_user;
1274   $user_info['fee'][$k]  = $us19_fee;
1275   $user_info['inspay'][$k]  = $us19_inspay;
1276   $user_info['insadj'][$k]  = $us19_insadj;
1277   $user_info['insref'][$k]  = $us19_insref;
1278   $user_info['patadj'][$k]  = $us19_patadj;
1279   $user_info['patpay'][$k]  = $us19_patpay;
1280   $user_info['patref'][$k]  = $us19_patref;
1281  ++$k;
1282  }
1283 }
1284 if ($run_provider === 1) {
1285
1286  if ($pro0_fee != 0 || $pro0_inspay != 0 || $pro0_insadj != 0 || $pro0_patadj != 0 || $pro0_patpay != 0 || $pro0_insref != 0 || $pro0_patref != 0) {
1287   $provider_info['user'][$k] = $pro0_user;
1288   $provider_info['fee'][$k]  = $pro0_fee;
1289   $provider_info['inspay'][$k]  = $pro0_inspay;
1290   $provider_info['insadj'][$k]  = $pro0_insadj;
1291   $provider_info['insref'][$k]  = $pro0_insref;
1292   $provider_info['patadj'][$k]  = $pro0_patadj;
1293   $provider_info['patpay'][$k]  = $pro0_patpay;
1294   $provider_info['patref'][$k]  = $pro0_patref;
1295   ++$k;
1296  }
1297  if ($pro1_fee != 0 || $pro1_inspay != 0 || $pro1_insadj != 0 || $pro1_patadj != 0 || $pro1_patpay != 0 || $pro1_insref != 0 || $pro1_patref != 0) {
1298   $provider_info['user'][$k] = $pro1_user;
1299   $provider_info['fee'][$k]  = $pro1_fee;
1300   $provider_info['inspay'][$k]  = $pro1_inspay;
1301   $provider_info['insadj'][$k]  = $pro1_insadj;
1302   $provider_info['insref'][$k]  = $pro1_insref;
1303   $provider_info['patadj'][$k]  = $pro1_patadj;
1304   $provider_info['patpay'][$k]  = $pro1_patpay;
1305   $provider_info['patref'][$k]  = $pro1_patref;
1306   ++$k;
1307  }
1308  if ($pro2_fee != 0 || $pro2_inspay != 0 || $pro2_insadj != 0 || $pro2_patadj != 0 || $pro2_patpay != 0 || $pro2_insref != 0 || $pro2_patref != 0) {
1309   $provider_info['user'][$k] = $pro2_user;
1310   $provider_info['fee'][$k]  = $pro2_fee;
1311   $provider_info['inspay'][$k]  = $pro2_inspay;
1312   $provider_info['insadj'][$k]  = $pro2_insadj;
1313   $provider_info['insref'][$k]  = $pro2_insref;
1314   $provider_info['patadj'][$k]  = $pro2_patadj;
1315   $provider_info['patpay'][$k]  = $pro2_patpay;
1316   $provider_info['patref'][$k]  = $pro2_patref;
1317   ++$k;
1318  }
1319  if ($pro3_fee != 0 || $pro3_inspay != 0 || $pro3_insadj != 0 || $pro3_patadj != 0 || $pro3_patpay != 0 || $pro3_insref != 0 || $pro3_patref != 0) {
1320   $provider_info['user'][$k] = $pro3_user;
1321   $provider_info['fee'][$k]  = $pro3_fee;
1322   $provider_info['inspay'][$k]  = $pro3_inspay;
1323   $provider_info['insadj'][$k]  = $pro3_insadj;
1324   $provider_info['insref'][$k]  = $pro3_insref;
1325   $provider_info['patadj'][$k]  = $pro3_patadj;
1326   $provider_info['patpay'][$k]  = $pro3_patpay;
1327   $provider_info['patref'][$k]  = $pro3_patref;
1328   ++$k;
1329  }
1330  if ($pro4_fee != 0 || $pro4_inspay != 0 || $pro4_insadj != 0 || $pro4_patadj != 0 || $pro4_patpay != 0 || $pro4_insref != 0 || $pro4_patref != 0) {
1331   $provider_info['user'][$k] = $pro4_user;
1332   $provider_info['fee'][$k]  = $pro4_fee;
1333   $provider_info['inspay'][$k]  = $pro4_inspay;
1334   $provider_info['insadj'][$k]  = $pro4_insadj;
1335   $provider_info['insref'][$k]  = $pro4_insref;
1336   $provider_info['patadj'][$k]  = $pro4_patadj;
1337   $provider_info['patpay'][$k]  = $pro4_patpay;
1338   $provider_info['patref'][$k]  = $pro4_patref;
1339   ++$k;
1340  }
1341  if ($pro5_fee != 0 || $pro5_inspay != 0 || $pro5_insadj != 0 || $pro5_patadj != 0 || $pro5_patpay != 0 || $pro5_insref != 0 || $pro5_patref != 0) {
1342   $provider_info['user'][$k] = $pro5_user;
1343   $provider_info['fee'][$k]  = $pro5_fee;
1344   $provider_info['inspay'][$k]  = $pro5_inspay;
1345   $provider_info['insadj'][$k]  = $pro5_insadj;
1346   $provider_info['insref'][$k]  = $pro5_insref;
1347   $provider_info['patadj'][$k]  = $pro5_patadj;
1348   $provider_info['patpay'][$k]  = $pro5_patpay;
1349   $provider_info['patref'][$k]  = $pro5_patref;
1350   ++$k;
1351  }
1352  if ($pro6_fee != 0 || $pro6_inspay != 0 || $pro6_insadj != 0 || $pro6_patadj != 0 || $pro6_patpay != 0 || $pro6_insref != 0 || $pro6_patref != 0) {
1353   $provider_info['user'][$k] = $pro6_user;
1354   $provider_info['fee'][$k]  = $pro6_fee;
1355   $provider_info['inspay'][$k]  = $pro6_inspay;
1356   $provider_info['insadj'][$k]  = $pro6_insadj;
1357   $provider_info['insref'][$k]  = $pro6_insref;
1358   $provider_info['patadj'][$k]  = $pro6_patadj;
1359   $provider_info['patpay'][$k]  = $pro6_patpay;
1360   $provider_info['patref'][$k]  = $pro6_patref;
1361   ++$k;
1362  }
1363  if ($pro7_fee != 0 || $pro7_inspay != 0 || $pro7_insadj != 0 || $pro7_patadj != 0 || $pro7_patpay != 0 || $pro7_insref != 0 || $pro7_patref != 0) {
1364   $provider_info['user'][$k] = $pro7_user;
1365   $provider_info['fee'][$k]  = $pro7_fee;
1366   $provider_info['inspay'][$k]  = $pro7_inspay;
1367   $provider_info['insadj'][$k]  = $pro7_insadj;
1368   $provider_info['insref'][$k]  = $pro7_insref;
1369   $provider_info['patadj'][$k]  = $pro7_patadj;
1370   $provider_info['patpay'][$k]  = $pro7_patpay;
1371   $provider_info['patref'][$k]  = $pro7_patref;
1372   ++$k;
1373  }
1374  if ($pro8_fee != 0 || $pro8_inspay != 0 || $pro8_insadj != 0 || $pro8_patadj != 0 || $pro8_patpay != 0 || $pro8_insref != 0 || $pro8_patref != 0) {
1375   $provider_info['user'][$k] = $pro8_user;
1376   $provider_info['fee'][$k]  = $pro8_fee;
1377   $provider_info['inspay'][$k]  = $pro8_inspay;
1378   $provider_info['insadj'][$k]  = $pro8_insadj;
1379   $provider_info['insref'][$k]  = $pro8_insref;
1380   $provider_info['patadj'][$k]  = $pro8_patadj;
1381   $provider_info['patpay'][$k]  = $pro8_patpay;
1382   $provider_info['patref'][$k]  = $pro8_patref;
1383   ++$k;
1384  }
1385  if ($pro9_fee != 0 || $pro9_inspay != 0 || $pro9_insadj != 0 || $pro9_patadj != 0 || $pro9_patpay != 0 || $pro9_insref != 0 || $pro9_patref != 0) {
1386   $provider_info['user'][$k] = $pro9_user;
1387   $provider_info['fee'][$k]  = $pro9_fee;
1388   $provider_info['inspay'][$k]  = $pro9_inspay;
1389   $provider_info['insadj'][$k]  = $pro9_insadj;
1390   $provider_info['insref'][$k]  = $pro9_insref;
1391   $provider_info['patadj'][$k]  = $pro9_patadj;
1392   $provider_info['patpay'][$k]  = $pro9_patpay;
1393   $provider_info['patref'][$k]  = $pro9_patref;
1394   ++$k;
1395  }
1396  if ($pro10_fee != 0 || $pro10_inspay != 0 || $pro10_insadj != 0 || $pro10_patadj != 0 || $pro10_patpay != 0 || $pro10_insref != 0 || $pro10_patref != 0) {
1397   $provider_info['user'][$k] = $pro10_user;
1398   $provider_info['fee'][$k]  = $pro10_fee;
1399   $provider_info['inspay'][$k]  = $pro10_inspay;
1400   $provider_info['insadj'][$k]  = $pro10_insadj;
1401   $provider_info['insref'][$k]  = $pro10_insref;
1402   $provider_info['patadj'][$k]  = $pro10_patadj;
1403   $provider_info['patpay'][$k]  = $pro10_patpay;
1404   $provider_info['patref'][$k]  = $pro10_patref;
1405   ++$k;
1406  }
1407  if ($pro11_fee != 0 || $pro11_inspay != 0 || $pro11_insadj != 0 || $pro11_patadj != 0 || $pro11_patpay != 0 || $pro11_insref != 0 || $pro11_patref != 0) {
1408   $provider_info['user'][$k] = $pro11_user;
1409   $provider_info['fee'][$k]  = $pro11_fee;
1410   $provider_info['inspay'][$k]  = $pro11_inspay;
1411   $provider_info['insadj'][$k]  = $pro11_insadj;
1412   $provider_info['insref'][$k]  = $pro11_insref;
1413   $provider_info['patadj'][$k]  = $pro11_patadj;
1414   $provider_info['patpay'][$k]  = $pro11_patpay;
1415   $provider_info['patref'][$k]  = $pro11_patref;
1416   ++$k;
1417  }
1418  if ($pro12_fee != 0 || $pro12_inspay != 0 || $pro12_insadj != 0 || $pro12_patadj != 0 || $pro12_patpay != 0 || $pro12_insref != 0 || $pro12_patref != 0) {
1419   $provider_info['user'][$k] = $pro12_user;
1420   $provider_info['fee'][$k]  = $pro12_fee;
1421   $provider_info['inspay'][$k]  = $pro12_inspay;
1422   $provider_info['insadj'][$k]  = $pro12_insadj;
1423   $provider_info['insref'][$k]  = $pro12_insref;
1424   $provider_info['patadj'][$k]  = $pro12_patadj;
1425   $provider_info['patpay'][$k]  = $pro12_patpay;
1426   $provider_info['patref'][$k]  = $pro12_patref;
1427   ++$k;
1428  }
1429  if ($pro13_fee != 0 || $pro13_inspay != 0 || $pro13_insadj != 0 || $pro13_patadj != 0 || $pro13_patpay != 0 || $pro13_insref != 0 || $pro13_patref != 0) {
1430   $provider_info['user'][$k] = $pro13_user;
1431   $provider_info['fee'][$k]  = $pro13_fee;
1432   $provider_info['inspay'][$k]  = $pro13_inspay;
1433   $provider_info['insadj'][$k]  = $pro13_insadj;
1434   $provider_info['insref'][$k]  = $pro13_insref;
1435   $provider_info['patadj'][$k]  = $pro13_patadj;
1436   $provider_info['patpay'][$k]  = $pro13_patpay;
1437   $provider_info['patref'][$k]  = $pro13_patref;
1438   ++$k;
1439  }
1440  if ($pro14_fee != 0 || $pro14_inspay != 0 || $pro14_insadj != 0 || $pro14_patadj != 0 || $pro14_patpay != 0 || $pro14_insref != 0 || $pro14_patref != 0) {
1441   $provider_info['user'][$k] = $pro14_user;
1442   $provider_info['fee'][$k]  = $pro14_fee;
1443   $provider_info['inspay'][$k]  = $pro14_inspay;
1444   $provider_info['insadj'][$k]  = $pro14_insadj;
1445   $provider_info['insref'][$k]  = $pro14_insref;
1446   $provider_info['patadj'][$k]  = $pro14_patadj;
1447   $provider_info['patpay'][$k]  = $pro14_patpay;
1448   $provider_info['patref'][$k]  = $pro14_patref;
1449   ++$k;
1450  }
1451  if ($pro15_fee != 0 || $pro15_inspay != 0 || $pro15_insadj != 0 || $pro15_patadj != 0 || $pro15_patpay != 0 || $pro15_insref != 0 || $pro15_patref != 0) {
1452   $provider_info['user'][$k] = $pro15_user;
1453   $provider_info['fee'][$k]  = $pro15_fee;
1454   $provider_info['inspay'][$k]  = $pro15_inspay;
1455   $provider_info['insadj'][$k]  = $pro15_insadj;
1456   $provider_info['insref'][$k]  = $pro15_insref;
1457   $provider_info['patadj'][$k]  = $pro15_patadj;
1458   $provider_info['patpay'][$k]  = $pro15_patpay;
1459   $provider_info['patref'][$k]  = $pro15_patref;
1460   ++$k;
1461  }
1462  if ($pro16_fee != 0 || $pro16_inspay != 0 || $pro16_insadj != 0 || $pro16_patadj != 0 || $pro16_patpay != 0 || $pro16_insref != 0 || $pro16_patref != 0) {
1463   $provider_info['user'][$k] = $pro16_user;
1464   $provider_info['fee'][$k]  = $pro16_fee;
1465   $provider_info['inspay'][$k]  = $pro16_inspay;
1466   $provider_info['insadj'][$k]  = $pro16_insadj;
1467   $provider_info['insref'][$k]  = $pro16_insref;
1468   $provider_info['patadj'][$k]  = $pro16_patadj;
1469   $provider_info['patpay'][$k]  = $pro16_patpay;
1470   $provider_info['patref'][$k]  = $pro16_patref;
1471   ++$k;
1472  }
1473  if ($pro17_fee != 0 || $pro17_inspay != 0 || $pro17_insadj != 0 || $pro17_patadj != 0 || $pro17_patpay != 0 || $pro17_insref != 0 || $pro17_patref != 0) {
1474   $provider_info['user'][$k] = $pro17_user;
1475   $provider_info['fee'][$k]  = $pro17_fee;
1476   $provider_info['inspay'][$k]  = $pro17_inspay;
1477   $provider_info['insadj'][$k]  = $pro17_insadj;
1478   $provider_info['insref'][$k]  = $pro17_insref;
1479   $provider_info['patadj'][$k]  = $pro17_patadj;
1480   $provider_info['patpay'][$k]  = $pro17_patpay;
1481   $provider_info['patref'][$k]  = $pro17_patref;
1482   ++$k;
1483  }
1484  if ($pro18_fee != 0 || $pro18_inspay != 0 || $pro18_insadj != 0 || $pro18_patadj != 0 || $pro18_patpay != 0 || $pro18_insref != 0 || $pro18_patref != 0) {
1485   $provider_info['user'][$k] = $pro18_user;
1486   $provider_info['fee'][$k]  = $pro18_fee;
1487   $provider_info['inspay'][$k]  = $pro18_inspay;
1488   $provider_info['insadj'][$k]  = $pro18_insadj;
1489   $provider_info['insref'][$k]  = $pro18_insref;
1490   $provider_info['patadj'][$k]  = $pro18_patadj;
1491   $provider_info['patpay'][$k]  = $pro18_patpay;
1492   $provider_info['patref'][$k]  = $pro18_patref;
1493   ++$k;
1494  }
1495  if ($pro19_fee != 0 || $pro19_inspay != 0 || $pro19_insadj != 0 || $pro19_patadj != 0 || $pro19_patpay != 0 || $pro19_insref != 0 || $pro19_patref != 0) {
1496   $provider_info['user'][$k] = $pro19_user;
1497   $provider_info['fee'][$k]  = $pro19_fee;
1498   $provider_info['inspay'][$k]  = $pro19_inspay;
1499   $provider_info['insadj'][$k]  = $pro19_insadj;
1500   $provider_info['insref'][$k]  = $pro19_insref;
1501   $provider_info['patadj'][$k]  = $pro19_patadj;
1502   $provider_info['patpay'][$k]  = $pro19_patpay;
1503   $provider_info['patref'][$k]  = $pro19_patref;
1504   ++$k;
1505  }
1506 }
1507
1508 if ($totals_only === 1) {
1509 $from_date = oeFormatShortDate(substr($query_part_day,37,10));
1510 $to_date = oeFormatShortDate(substr($query_part_day,63,10));
1511 print "<br><br>";
1512 ?><font size = 5 ><?php echo xlt('Totals for '). $from_date . ' '. xlt('To'). ' ' . $to_date ?></font><?php
1513 }
1514  if ($run_provider != 1) {
1515
1516     print "<table border=0><tr>\n";
1517     print "<br><br>";
1518     print  "<td width=25><span class=text>";
1519     Print  "</span></td><td width=250><span class=text><b><center>". xlt("User"). "</center></b>";
1520     print  "</span></td><td width=125><span class=text>";
1521     print  "</span></td><td width=250><span class=text><b>" . xlt("Charges"). "</b>";
1522     print  "</span></td><td width=125><span class=text>";
1523     print  "</span></td><td width=250><span class=text><b>" . xlt("Payments"). "</b>";
1524     print  "</span></td><td width=25><span class=text>";
1525
1526    for ($i=1 ; $i<$k; ) {
1527     print "</br></td>";
1528     print "<table border=0><tr>\n";
1529         print  "<td width=25><span class=text>" ;
1530         Printf ("</span></td><td width=250><span class=text><center>".text($user_info[user][$i])). "</center>";
1531     print  "</span></td><td width=125><span class=text>" ;
1532     printf ("</span></td><td width=250><span class=text><b>" . xlt("Total Charges") .': '." %1\$.2f ", text($user_info[fee][$i])). "</b>";
1533     print  "</span></td><td width=125><span class=text>";
1534     printf ("</span></td><td width=250><span class=text><b>"  . xlt("Total Payments").': '. "(%1\$.2f)",text($user_info[inspay][$i] + $user_info[patpay][$i])) . "</b>";
1535     print  "</span></td><td width=25><span class=text>" ;
1536     print "</br></td>";
1537     print "<table border=0><tr>\n";
1538         print "<td width=25><span class=text>" ;
1539         Print "</span></td><td width=250><span class=text>";
1540     print "</span></td><td width=125><span class=text>" ;
1541     printf ("</span></td><td width=250><span class=text><b>" . xlt("Total Adj").'.: '."(%1\$.2f)", text($user_info[patadj][$i] + $user_info[insadj][$i])). "</b>";
1542     print "</span></td><td width=125><span class=text>" ;
1543     printf ("</span></td><td width=250><span class=text><b>" . xlt("Refund").': '."(%1\$.2f)", text($user_info[patref][$i] + $user_info[insref][$i]))."</b>";
1544     print "</span></td><td width=25><span class=text>";
1545     print "</br></td>";
1546         print "<table border=0><tr>\n";
1547         print "<td width=25><span class=text>" ;
1548         Print "</span></td><td width=250><span class=text>";
1549     print "</span></td><td width=125><span class=text>";
1550     print "</span></td><td width=250><span class=text>";
1551     print "</span></td><td width=125><span class=text>";
1552     print "</span></td><td width=175 height=5><span class=text><b><hr noshade size=3>";
1553     print "</b></hr></span></td><td width=25><span class=text>";
1554     print "</br></td>";
1555     print "<table border=0><tr>\n";
1556         print "<td width=25><span class=text>";
1557         Print "</span></td><td width=250><span class=text>";
1558     print "</span></td><td width=125><span class=text>";
1559     print "</span></td><td width=250><span class=text>";
1560     print "</span></td><td width=125><span class=text>";
1561     printf ("</span></td><td width=250><span class=text><b>" . xlt("Actual Receipts").': '."(%1\$.2f)", text($user_info[patref][$i] + $user_info[insref][$i] + $user_info[inspay][$i] + $user_info[patpay][$i])). "</b>";
1562     print "</span></td><td width=25><span class=text>";
1563     print "</br></td>";
1564     print "<table border=0><tr>\n";
1565         print "<td width=25><span class=text>";
1566         Print "</span></td><td width=250><span class=text>";
1567     print "</span></td><td width=125><span class=text>";
1568     print "</span></td><td width=250><span class=text>";
1569     print "</span></td><td width=125><span class=text>";
1570     print "</span></td><td width=125><span class=text>";
1571     print "</span></td><td width=25><span class=text>";
1572
1573     $gtotal_fee = $gtotal_fee + $user_info[fee][$i];
1574     $gtotal_insadj = $gtotal_insadj + $user_info[insadj][$i];
1575     $gtotal_inspay = $gtotal_inspay + $user_info[inspay][$i];
1576     $gtotal_patadj = $gtotal_patadj + $user_info[patadj][$i];
1577     $gtotal_patpay = $gtotal_patpay + $user_info[patpay][$i];
1578
1579     ++$i;
1580
1581     print "</br></td></tr>";
1582    }
1583    print "</br></td>";
1584    print "</table>";
1585  }
1586  else
1587  {
1588     print "<table border=0><tr>\n";
1589     print "<br><br>";
1590     print  "<td width=25><span class=text>";
1591     Print  "</span></td><td width=250><span class=text><b><center>". xlt("Provider"). "</center></b>";
1592     print  "</span></td><td width=125><span class=text>";
1593     print  "</span></td><td width=250><span class=text><b>" . xlt("Charges"). "</b>";
1594     print  "</span></td><td width=125><span class=text>";
1595     print  "</span></td><td width=250><span class=text><b>" . xlt("Payments"). "</b>";
1596     print  "</span></td><td width=25><span class=text>";
1597
1598    for ($i=1 ; $i<$k; ) {
1599     print "</br></td>";
1600     print "<table border=0><tr>\n";
1601         print  "<td width=25><span class=text>";
1602         Printf ("</span></td><td width=250><span class=text><center>".text($provider_info[user][$i])). "</center>";
1603     print  "</span></td><td width=125><span class=text>";
1604     printf ("</span></td><td width=250><span class=text><b>" . xlt("Total Charges").': '." %1\$.2f ", text($provider_info[fee][$i])). "</b>";
1605     print  "</span></td><td width=125><span class=text>";
1606     printf ("</span></td><td width=250><span class=text><b>"  . xlt("Total Payments").': '. "(%1\$.2f)",text($provider_info[inspay][$i] + $provider_info[patpay][$i])) . "</b>";
1607     print  "</span></td><td width=25><span class=text>";
1608     print "</br></td>";
1609     print "<table border=0><tr>\n";
1610         print "<td width=25><span class=text>";
1611         Print "</span></td><td width=250><span class=text>";
1612     print "</span></td><td width=125><span class=text>";
1613     printf ("</span></td><td width=250><span class=text><b>" . xlt("Total Adj").'.: '."(%1\$.2f)", text($provider_info[patadj][$i] + $provider_info[insadj][$i])). "</b>";
1614     print "</span></td><td width=125><span class=text>";
1615     printf ("</span></td><td width=250><span class=text><b>" . xlt("Refund").': '."(%1\$.2f)", text($provider_info[patref][$i] + $provider_info[insref][$i]))."</b>";
1616     print "</span></td><td width=25><span class=text>";
1617     print "</br></td>";
1618         print "<table border=0><tr>\n";
1619         print "<td width=25><span class=text>";
1620         Print "</span></td><td width=250><span class=text>";
1621     print "</span></td><td width=125><span class=text>";
1622     print "</span></td><td width=250><span class=text>";
1623     print "</span></td><td width=125><span class=text>";
1624     print "</span></td><td width=175 height=5><span class=text><b><hr noshade size=3>";
1625     print "</b></hr></span></td><td width=25><span class=text>";
1626     print "</br></td>";
1627     print "<table border=0><tr>\n";
1628         print "<td width=25><span class=text>";
1629         Print "</span></td><td width=250><span class=text>";
1630     print "</span></td><td width=125><span class=text>";
1631     print "</span></td><td width=250><span class=text>";
1632     print "</span></td><td width=125><span class=text>";
1633     printf ("</span></td><td width=250><span class=text><b>" . xlt("Actual Receipts").': '."(%1\$.2f)", text($provider_info[patref][$i] + $provider_info[insref][$i] + $provider_info[inspay][$i] + $provider_info[patpay][$i])). "</b>";
1634     print "</span></td><td width=25><span class=text>";
1635     print "</br></td>";
1636     print "<table border=0><tr>\n";
1637         print "<td width=25><span class=text>";
1638         Print "</span></td><td width=250><span class=text>";
1639     print "</span></td><td width=125><span class=text>";
1640     print "</span></td><td width=250><span class=text>";
1641     print "</span></td><td width=125><span class=text>";
1642     print "</span></td><td width=125><span class=text>";
1643     print "</span></td><td width=25><span class=text>";
1644
1645     $gtotal_fee = $gtotal_fee + $provider_info[fee][$i];
1646     $gtotal_insadj = $gtotal_insadj + $provider_info[insadj][$i];
1647     $gtotal_inspay = $gtotal_inspay + $provider_info[inspay][$i];
1648         $gtotal_insref = $gtotal_insref + $provider_info[insref][$i];
1649     $gtotal_patadj = $gtotal_patadj + $provider_info[patadj][$i];
1650     $gtotal_patpay = $gtotal_patpay + $provider_info[patpay][$i];
1651         $gtotal_patref = $gtotal_patref + $provider_info[patref][$i];
1652
1653     ++$i;
1654
1655     print "</br></td></tr>";
1656    }
1657    print "</br></td>";
1658    print "</table>";
1659  }
1660 ?>
1661 </body>
1662 </html>