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