I:ܫc+]YF3KD $ײ >WPnc!:gq6]GMvUKمGS)d;\1Bnx|6UZP؛23"zyɞ5Qωq~?$?gyKtU}U K}HhzDObԊ"O5;ѯF!aA^䣃:cؽ% Q{"5E26 U+?#l+D}][Tdq@^(1Mdʬ[3 ӧ[8|8g-TJ/j(nET<5!Q.aۯ e$@#:#vM/j62@\`!v&}n}VbC"5]U+,{ʸy^Fek{ IWwլmOpқ*;$x_' AWuzvLQ16㰞gO48(7)j]'q+t *Tr;c(Ly;3F,5.#)d="p[t2`>1 ..FN0ld?6oC ʩ4ȬŪa՜fwswy?8mr[!qtY5]Я+5a,a32EtkRcӜ$CĈ~9<ZeZD Mk_k"#ֺC(>HyyӅo<,gĹthl < BAA=* 1J !쥰쿎j` @u3T'{LD8 h~1TWfH MҢCr)peTf/74L鳢^y djbJEN '߄‰Ђձ+hԪ״ۜ<܇Yr>@ǿTJAtm>-B{EͲ]YqګV:.h>u}5o*H4'H t.xu ?2;EgJC2@CQs%|zۨmwD9A vfeE+`}rvϪ/u/Eqsp{mBj*eT[:B0:(3[(5 LXN߅{(lX](xc^E=&*$"P h[2]OE4VOB}4-&$Ror4n'0USЭ~Ŗyڕq2+nhrn0P*턾L]f"5 ^vMlx+lbpm3w[UQ8B\ F8\EnQR=C@O2QXaJ|h9- T>@'fz J$q#Jc}٤Av㛏 s8 ^PNBn8n%Uu:湂Ӂ{۞R`yȁ0yˈ,F~{뻜{l{_dE#5)[0ֻT6z h^MʅUMOL⩍]KvzmE\b/hf8;LMhLЕRQy}Ls{4F F]ˆ5 T4Bߞ:kKV}!YzbVEtΉM2(bBʡ bܐpNe3f eV *Fw>2s$c]=bWf 3wCMKZ,r wY2aCXH(yjeXarUUUXdZƹ bI-Cm3`;l-@4Eĺ%3|sս+.MjfD3hx1#VVGbSz]v蒦JQ-v2Ad*X2kR?m2\E5>!T%翧038G~&>HL$y*dR JL&ܘ{}0:f-)E_SS1Cݥ8U*_Zy:!¦yw1s|bsԙА(G7Utd=(F2m~P\bo-oDiٜ=S/q^S\zɨO{6Bb|Tfqdyx}ު/uI0. иvC'<^L^C(Z狱2w\08fv}H|06Yp2#m./bp0+Gbhn0oՌw~ψ>; W%$VwD|y3+/}Xok;V{A* f`m[,$С4g}ꁶwH3m45ѿ=0X 5}|Iyb@{S9tTG`;}\:f-^#\ slbuI0. иvC'<^L^C(Z狱2w\08fv} ӂ a0ܧcFyI[*1ĠIV!+v:UmN}EiK>XKWB[$r_'YKȂ͝Cj* d'lXF d]|ȿiBRA[cR]B{ϳ^%xlXF dJ5 )IHӿmjT JĴH:|H\~6aƸ4A_Yg1S8'蠛+h@nDGȚ!C_f^%Ies/=g `%mgJktV2Xt)՗'F2gݱM 4Z$%2;aL* u euMu4 5(@PgC~b r#LcW 1iVh9&AS4-]p5a#)^ZyL@g*b6HQ'1,F0UތQL^;ل?X<Ўi K //y.˞}~"^/ek{1C6\>"<^.ˑZ :JfQܔ}riS*) ,ES.Y9\=sJQn]R\0Z&7jϓvFp






".$testID; if ($labNo=="NEW" or $labNo==""){ //$labNo=getName($conn,"select isnull(max(labNo),0)+1 from patientTests"); //$dailyNo=getName($conn,"select isnull(max(dailyNo),0)+1 from patientTests where date_='$date_' and labid='".$_SESSION['labid']."' "); $dailyNo="select isnull(max(dailyNo),0)+1 from patientTests where date_='$date_' and labid='".$_SESSION['labid']."' "; list($a,$labNo,$dailyNo)=getName($conn,"select isnull(max(labNo),0)+1,($dailyNo) from patientTests"); }else{ //check of if already assigned to other labs $labNo2=getName($conn,"select labNo from patientTests where labNo='$labNo' and labid<>'".$_SESSION['labid']."' "); if($labNo2!="") $labNo=getName($conn,"select isnull(max(labNo),0)+1 from patientTests"); } if ($visitNo=="" or $visitNo==0 or $visitNo=="0") $visitNo=getname($conn,"select isnull(max(visitNo),0) from patientVisits where patientID='$patientID' "); $testID=getName($conn,"select top 1 ID from testlab where testname='$testname' and labid='".$_SESSION['labid']."' "); //and show1=1 if ($testID=="" or $testID==0 or $testID=="0"){ echo ""; echo ""; //exit(); exit2($conn,$conn3); } $mainTestID=$testID; $cur= odbc_exec( $conn, "delete from patientTests where labNo='$labNo' and testID='$testID' and labid='".$_SESSION['labid']."' " ); if($discount==""){ $discount=0; $query="insert into patientTests(dailyNo,labid,time_,userID,testID,labNo,date_,doc,patientID,visitNo,testCharges,paymentType) "; $query.= " select '$dailyNo','".$_SESSION['labid']."',getdate(),'".$_SESSION['userID']."',ID,'$labNo','$date_','$doc','$patientID','$visitNo','$discount','$paymentType' from testlab where id='$testID' "; }elseif($discount>0){ $query="insert into patientTests(dailyNo,labid,time_,userID,testID,labNo,date_,doc,patientID,visitNo,testCharges,paymentType) "; $query.= " select '$dailyNo','".$_SESSION['labid']."',getdate(),'".$_SESSION['userID']."',ID,'$labNo','$date_','$doc','$patientID','$visitNo','$discount','$paymentType' from testlab where id='$testID' "; }else{ $query="insert into patientTests(dailyNo,labid,time_,userID,testID,labNo,date_,doc,patientID,visitNo,testCharges,paymentType) "; $query.= " select '$dailyNo','".$_SESSION['labid']."',getdate(),'".$_SESSION['userID']."',ID,'$labNo','$date_','$doc','$patientID','$visitNo',Charges,'$paymentType' from testlab where id='$testID' "; } $cur= odbc_exec( $conn, $query ); $typeofService="select typeofService from testlab where ID='$testID' "; $isPresent="select top 1 labNo from investigation where labNo='$labNo' and (testid='$testID' or testid in (select id from testlab where head_id='$testID') )"; $cur="select top 1 patientID from patientTestsSummary where patientID='$patientID' and visitNo='$visitNo' and labNo='$labNo' " ; list($a,$amount,$typeofService,$isPresent,$cur)=getName($conn,"select isnull(sum(testCharges),0),($typeofService),($isPresent),($cur) from patientTests where patientID='$patientID' and visitNo='$visitNo' and labNo='$labNo' "); //$cur= getName($conn, "select top 1 patientID from patientTestsSummary where patientID='$patientID' and visitNo='$visitNo' and labNo='$labNo' " ); if($cur==""){ $query="insert into patientTestsSummary(labid,time_,userID,labNo,date_,patientID,visitNo,amount,paymentType,discount,paid) "; $query.= " values('".$_SESSION['labid']."',getdate(),'".$_SESSION['userID']."','$labNo','$date_','$patientID','$visitNo','$amount','$paymentType','$discount','$paid') "; }else{ $query="update patientTestsSummary set amount='$amount' "; $query.= " where labNo='$labNo' and labid='".$_SESSION['labid']."' "; } $cur= odbc_exec( $conn, $query ); //add for investigation/Tests only if($typeofService==0){ //check if test not already added to investigation //if("1"!=getName($conn,"select 1 from investigation where labNo='$labNo' and (testid='$testID' or testid in (select id from testlab where head_id='$testID') )")){ //$isPresent=getName($conn,"select top 1 labNo from investigation where labNo='$labNo' and (testid='$testID' or testid in (select id from testlab where head_id='$testID') )"); if($isPresent==""){ $a1=add2Invest($conn,$mainTestID,$testID,$patientID,$date_,$labNo,$visitNo); } } echo ""; exit2($conn,$conn3); } function add2Invest($conn,$mainTestID,$testID2,$patientID,$date_,$labNo,$visitNo) { //$qry2="delete from investigation where labNo='$labNo' and (testid='$testID2' or testid in (select id from testlab where head_id='$testID2'))"; $qry2="delete from investigation where labNo='$labNo' and testid='$testID2' and labid='".$_SESSION['labid']."' "; $run1=odbc_exec($conn,$qry2); //echo "
".$qry2; $qry2="insert into investigation (mainTestID,labid,userID,patientid,testid,head_id,date_,labNo,visitNo) select '$mainTestID','".$_SESSION['labid']."','".$_SESSION['userID']."','$patientID',id,head_id,'$date_','$labNo','$visitNo' from testlab where head=0 and id='$testID2' "; $run1=odbc_exec( $conn,$qry2); //echo "
".$qry2; $qry2="insert into investigation (mainTestID,labid,userID,patientid,testid,head_id,date_,labNo,visitNo) select '$mainTestID','".$_SESSION['labid']."','".$_SESSION['userID']."','$patientID',id,head_id,'$date_','$labNo','$visitNo' from testlab where head=0 and head_id='$testID2' "; $run1=odbc_exec($conn, $qry2); //echo "
".$qry2; //$qry2 ="select id,testunit,head from testlab where head=1 and head_id='$testID2'"; $qry2 ="select id from testlab where head=1 and head_id='$testID2'"; $run1 = odbc_exec( $conn,$qry2); while( odbc_fetch_row( $run1 ) ) { //echo $testID2= odbc_result( $run1, 'id' ); $a1=add2Invest($conn,$mainTestID,odbc_result($run1,'id'),$patientID,$date_,$labNo,$visitNo); } return (0); } if($visitNo=="")$visitNo = getName($conn,"select top 1 visitNo from patientVisits where patientID='$patientID' and labid='".$_SESSION['userID']."' order by visitNo desc "); ?> HOME "; //echo ""; else echo ""; ?>
<< OPD
#MRNoDateDaily No.NameGenderAgeDepartmentAddress"; $age=odbc_result($cur,'age'); $ageStatus=odbc_result($cur,'ageStatus'); if(odbc_result($cur,'gender')==1) $gender='Male'; else $gender='Female'; } echo "
".$cnt++; echo "".odbc_result($cur,'patientID'); echo "".date('d.m.Y',strtotime(odbc_result($cur,'doa'))); echo "".odbc_result($cur,'dailyNo'); echo "".odbc_result($cur,'name').""; echo "".$gender; echo "".odbc_result($cur,'age')."-".odbc_result($cur,'ageStatus'); echo "".getHead($conn,odbc_result($cur,'depID')); echo "".odbc_result($cur,'address'); } if($cnt>1)echo "
"; ?>
Test"; echo ""; echo fillList($conn,"select distinct testname from testlab where show1=1 and labid='".$_SESSION['labid']."' order by testname"); echo ""; ?>

#Date V# No TestAmt ReciptResultAllSingleBar1Bar2Remarks
result all single ')" value='Print'> "; echo ""; echo ""; echo ""; //echo ""; echo ""; $cnt++; } ?>