==CUT==
<?
if($jnspasien=="baru"){
if($jenis!=3){
$hasil2 =
$odb->GenQuery("select * from bm_mr");
if($hasil2){
$rsCon2 =
$odb->mfa($hasil2);
for($i=1;$i<=(7-strlen($rsCon2["mr_no"]));$i++){
$nomrs = $nomrs
."0" ;
}
$nomr =
$_COOKIE["co_koders"] . $nomrs . $rsCon2["mr_no"] ;
$nobaru =
intval($rsCon2["mr_no"]) + 1 ;
$hasil =
$odb->GenQuery("insert into m_pasien values ('". $nomr
."','". $nama ."','". $alamat ."','". $tgllhr ."','". $kota
."','". $kec ."','". $kel ."','".$rt."','".$rw."','". $kodepos
."','". $telp ."','". $telp2 ."','". $jnskel ."','".
date("Y-m-d")
."','".$pendidikan."','".$pekerjaan."','".$bangsa."','".$agama."')");
$hasil3 =
$odb->GenQuery("update bm_mr set mr_no=". $nobaru ."");
$odb->GenQuery("insert
into usr_history values('".
$_SESSION["userid"] ."','". $_SERVER['REMOTE_ADDR'] ."','add pasien
rj','".$nomr."','".$_SERVER["PHP_SELF"]."','". date("Y-m-d") ."',now()
)");
}
}else{
$hasil2 =
$odb->GenQuery("select * from bm_norl");
$rsCon2 = $odb->mfa($hasil2);
if($hasil2){
for($i=1;$i<=(5-strlen($rsCon2["rl_no"]));$i++){
$nomrl = $nomrl
."0" ;
}
$norl = "RL".
$_COOKIE["co_koders"] . $nomrl . $rsCon2["rl_no"] ;
$nobaru =
intval($rsCon2["rl_no"]) + 1 ;
$hasil =
$odb->GenQuery("insert into m_pasien values ('".
$norl ."','". $nama ."','". $alamat ."','". $tgllhr ."','". $kota
."','". $kec ."','". $kel ."','".$rt."','".$rw."','". $kodepos
."','". $telp ."','". $telp2 ."','". $jnskel ."','".
date("Y-m-d")
."','".$pendidikan."','".$pekerjaan."','".$bangsa."','".$agama."')");
$hasil3 =
$odb->GenQuery("update bm_norl set rl_no=". $nobaru ."");
$nomr = $norl;
$odb->GenQuery("insert
into usr_history values('".
$_SESSION["userid"] ."','". $_SERVER['REMOTE_ADDR'] ."','add pasien
ron/lab','".$nomr."','".$_SERVER["PHP_SELF"]."','". date("Y-m-d")
."','". date("H:i:s") ."' )");
}
}
}else{
$nomr = $nomr;
}
$bulan[1] = "A";
$bulan[2] = "B";
$bulan[3] = "C";
$bulan[4] = "D";
$bulan[5] = "E";
$bulan[6] = "F";
$bulan[7] = "G";
$bulan[8] = "H";
$bulan[9] = "I";
$bulan[10] = "J";
$bulan[11] = "K";
$bulan[12] = "L";
$hasil4 = $odb->GenQuery("select * from
bm_noreg");
$rsCon4 = $odb->mfa($hasil4);
$nor = '';
for($j=1;$j<=(5-strlen($rsCon4["no_noreg"]));$j++){
$nor = $nor ."0" ;
}
$noreg = $bulan[$rsCon4["bulan"]].
$_COOKIE["co_koders"] .
substr($rsCon4["tahun"],-2) . $nor . $rsCon4["no_noreg"] ;
$noregbaru = intval($rsCon4["no_noreg"])+1 ;
$hasil7 = $odb->GenQuery("update bm_noreg set
no_noreg=". $noregbaru ."");
$hasil5 = $odb->GenQuery("select
jn_breakdown,p_nama from
bm_jenisperusahaan,m_perusahaan where p_idprsh='". $prsh ."' and
p_tipe=jn_kode and p_end = '9999-01-01'");
$rsCon5 = $odb->mfa($hasil5);
if($rsCon5["jn_breakdown"]!="Y"){
$nmprsh2 = "";
if($rsCon5["jn_breakdown"]!="U"){
$hasil6 = $odb->GenQuery("insert into
df_idprsh values('". $noreg
."','". $nip ."','". $bagian ."','". $nmpegawai ."','". $pia ."')");
}
}else{
// --------- Asuransi ----------
$nmprsh2 = $prsh2;
$hasil6 = $odb->GenQuery("insert into
df_idprsh values('". $noreg
."','". $nip ."','". $nopolis ."','". $nmpegawai ."','". $pia ."')");
}
if($prsh!=""){
if($jenis!=3){
$hasil6 =
$odb->GenQuery("insert into df_daftar values('". $nomr
."','". $noreg ."','". $kunj ."','". $perujuk ."','". $poli ."','".
$dokter ."','". $prsh ."','". $nmprsh2 ."','". date("Y-m-d")
."','T','1',now(),'". $_SESSION["userid"] ."','T','Y')");
}else{
$hasil6 =
$odb->GenQuery("insert into df_daftar values('". $nomr
."','". $noreg ."','". $kunj ."','". $perujuk ."','". $poli ."','".
$dokter ."','". $prsh ."','". $nmprsh2 ."','". date("Y-m-d")
."','T','3',now(),'". $_SESSION["userid"] ."','T','Y')");
}
}
?>
==CUT==
PERTANYAANNYA KENAPA DI DB SELALU DOBEL DATA PADA SAAT EKSEKUSI SCRIPT
YANG DATANY DOBEL :
$hasil6 = $odb->GenQuery("insert into df_daftar values('". $nomr
."','". $noreg ."','". $kunj ."','". $perujuk ."','". $poli ."','".
$dokter ."','". $prsh ."','". $nmprsh2 ."','". date("Y-m-d")
."','T','1',now(),'". $_SESSION["userid"] ."','T','Y')");
PLZ KAKA YANG JAGO PHP
--
FAQ milis di http://wiki.linux.or.id/FAQ_milis_tanya-jawab
Unsubscribe: kirim email ke [EMAIL PROTECTED]
Arsip dan info milis selengkapnya di http://linux.or.id/milis
