function simpan_pasien($value) {
global $last_id;
$objResponse = new xajaxResponse();
$kon = new Konek;
if(!$value['id_pasien']) {
if(!$value['id']) {
$sql = "
INSERT INTO pasien(
nama,
tempat_lahir,
tgl_lahir,
gol_darah,
sex,
agama,
pendidikan_id,
pekerjaan_id,
status_nikah,
alamat,
rt,
rw,
desa_id,
telp,
tgl_daftar,
nama_ayah,
nama_ibu,
nama_suami,
nama_istri,
no_ktp_sim,
created_datetime,
created_user,
kode_petugas,
id_petugas
)
VALUES (
'".$value[nama]."',
'".$value[tempat_lahir]."',
'".$value[tgl_lahir_thn]."-".$value[tgl_lahir_bln]."-".$value[tgl_lahir_tgl].
"',
NULLIF('".$value[gol_darah_id]."',''),
'".$value[sex]."',
'".$value[agama]."',
'".$value[pendidikan_id]."',
'".$value[pekerjaan_id]."',
'".$value[status_nikah]."',
'".$value[alamat]."',
'".$value[rt]."',
'".$value[rw]."',
'".$value[desa_id]."',
'".$value[telp]."',
NOW(),
'".$value[nama_ayah]."',
'".$value[nama_ibu]."',
'".$value[nama_suami]."',
'".$value[nama_istri]."',
'".$value[no_ktp_sim]."',
NOW(),
'".$_SESSION[username]."',
'".$value[nama_petugas]."',
'".$val[petugas_id]."'
)";
$kon->sql = $sql;
$kon->execute();
$afek = $kon->affected_rows;
$last_id = $kon->last_id;
//$_SESSION[id] = $kon->last_id;
//print $afek;
//update no rekam medis
$sql = "SELECT p.id as id, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as id_display FROM pasien p WHERE id='".$last_id."'";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
$sql = "UPDATE pasien SET no_rm ='".$data[id_display]."' WHERE id = '".$last_id."'";
$kon->sql = $sql;
$kon->execute();
// $id_pasien = $last_id;
} else {
$sql = "
INSERT INTO pasien(
id,
nama,
tempat_lahir,
tgl_lahir,
gol_darah,
sex,
agama,
pendidikan_id,
pekerjaan_id,
status_nikah,
alamat,
rt,
rw,
desa_id,
telp,
tgl_daftar,
nama_ayah,
nama_ibu,
nama_suami,
nama_istri,
no_ktp_sim,
created_datetime,
created_user,
kode_petugas,
id_petugas
)
VALUES (
'".$value[id]."',
'".$value[nama]."',
'".$value[tempat_lahir]."',
'".$value[tgl_lahir_thn]."-".$value[tgl_lahir_bln]."-".$value[tgl_lahir_tgl].
"',
NULLIF('".$value[gol_darah_id]."',''),
'".$value[sex]."',
'".$value[agama]."',
'".$value[pendidikan_id]."',
'".$value[pekerjaan_id]."',
'".$value[status_nikah]."',
'".$value[alamat]."',
'".$value[rt]."',
'".$value[rw]."',
'".$value[desa_id]."',
'".$value[telp]."',
NOW(),
'".$value[nama_ayah]."',
'".$value[nama_ibu]."',
'".$value[nama_suami]."',
'".$value[nama_istri]."',
'".$value[no_ktp_sim]."',
NOW(),
'".$_SESSION[username]."',
'".$value[nama_petugas]."'
'".$value[id_petugas]."'
)";
$kon->sql = $sql;
$kon->execute();
$afek = $kon->affected_rows;
$last_id = $kon->last_id;
$_SESSION[id] =$kon->last_id;
}
//print $afek;
//$objResponse->addAlert($_SESSION[id]);
//update no rekam medis
$sql = "SELECT p.id as id, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as id_display FROM pasien p WHERE id='".$last_id."'";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
$sql = "UPDATE pasien SET no_rm ='".$data[id_display]."' WHERE id = '".$last_id."'";
$kon->sql = $sql;
$kon->execute();
$id_pasien = $last_id;
//$objResponse->addAssign("debug", "innerHTML", $id_pasien);
} else {
$sql1 = "
UPDATE pasien SET
nama= '".$value[nama]."',
tempat_lahir = '".$value[tempat_lahir]."',
tgl_lahir= '".$value[tgl_lahir_thn]."-".$value[tgl_lahir_bln]."-".$value[tgl_lahir_tgl]."',
gol_darah = NULLIF('".$value[gol_darah_id]."', ''),
sex= '".$value[sex]."',
agama= '".$value[agama]."',
pendidikan_id= '".$value[pendidikan_id]."',
pekerjaan_id= '".$value[pekerjaan_id]."',
status_nikah= '".$value[status_nikah]."',
alamat= '".$value[alamat]."',
rt= '".$value[rt]."',
rw= '".$value[rw]."',
desa_id= '".$value[desa_id]."',
telp= '".$value[telp]."',
nama_ayah='".$value[nama_ayah]."',
nama_ibu='".$value[nama_ibu]."',
nama_suami='".$value[nama_suami]."',
nama_istri='".$value[nama_istri]."',
no_ktp_sim='".$value[no_ktp_sim]."',
update_user='******',
update_time=NOW(),
kode_petugas='".$value[nama_petugas]."' WHERE id = '".$value[id_pasien]."'";
$kon->sql = $sql1;
$kon->execute();
//$afek = $kon->affected_rows;
$afek = $kon->getJml();
//$afek = -1;
$last_id = $value[id];
$sql = "SELECT p.id as id, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as id_display FROM pasien p WHERE id='".$value[id_pasien]."'";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
//update no rekam medis
$sql = "UPDATE pasien SET no_rm ='".$data[id_display]."' WHERE id = '".$value[id_pasien]."'";
$kon->sql = $sql;
$kon->execute();
$id = $value[id];
//$objResponse->addAssign("debug", "innerHTML",$id);
}
if($afek < 0) {
$objResponse->addAlert("Data Tidak Dapat Disimpan.\nCek kembali Nomor Rekam Medis.");
//$objResponse->addAssign("debug", "innerHTML", $afek);
$objResponse->addScriptCall("fokus", "id");
} else {
//$objResponse->addAssign("debug", "innerHTML", $sql);
/*
tambah data kunjungan
*/
$sql_kunjungan_ke = "
SELECT
CASE
WHEN (MAX(kunjungan_ke) IS NULL) THEN '1'
ELSE (MAX(kunjungan_ke) + 1)
END AS kunjungan_ke
FROM
kunjungan
WHERE
pasien_id = '".$last_id."'
";
// $objResponse->addAssign("debug", "innerHTML", $sql_kunjungan_ke);
$kon->sql = $sql_kunjungan_ke;
$kon->execute();
$kunjungan_ke = $kon->getOne();
$sql_kunjungan = "
INSERT INTO
kunjungan(
kunjungan_ke,
pasien_id,
perujuk_id,
cara_masuk,
id_petugas
) VALUES(
'".$kunjungan_ke[kunjungan_ke]."',
'".$last_id."',
NULLIF('".$value[perujuk_id]."', ''),
'".$value[cara_masuk]."',
'".$value[petugas_id]."'
)";
// $objResponse->addAlert($sql_kunjungan);
$kon->sql = $sql_kunjungan;
$kon->execute();
$sql_last = "select * from kunjungan where LAST_INSERT_ID(id) ORDER BY id DESC LIMIT 1";
$kon->sql = $sql_last;
$kon->execute();
$idk = $kon->getOne();
$id_kunjungan = $idk[id];
//$objResponse->addAssign("debug", "innerHTML", $sql_kunjungan);
/*
masuk rajal
*/
$sql_kamar = "INSERT INTO kunjungan_kamar(kunjungan_id,kamar_id,no_antrian,tgl_daftar,tgl_periksa, ";
$sql_kamar .="tgl_keluar,dokter_id,cara_bayar,jenis_askes,perusahaan_id, nomor, pj_nama, pj_alamat, ";
$sql_kamar .="pj_telp, pj_hubungan_keluarga) VALUES (
'".$id_kunjungan."',
'".$value[kamar_id]."',
'".$value[no_antrian]."',
NOW(),
'".$value[tgl_periksa_thn]."-".$value[tgl_periksa_bln]."-".$value[tgl_periksa_tgl]."',
NOW(),
NULLIF('".$value[dokter_id]."', ''),
'".$value[cara_bayar]."',
NULLIF('".$value[jenis_askes]."',''),
NULLIF('".$value[perusahaan_id]."',''),
NULLIF('".$value[nomor]."',''),
'".$value[pj_nama]."',
'".$value[pj_alamat]."',
'".$value[pj_telp]."',
NULLIF('".$value[pj_hubungan_keluarga]."', ''))";
$kon->sql = $sql_kamar;
$kon->execute();
$sql_last = "select * from kunjungan_kamar where LAST_INSERT_ID(id) ORDER BY id DESC LIMIT 1";
$kon->sql = $sql_last;
$kon->execute();
$id_kamar = $kon->getOne();
$id_kunjungan_kamar = $id_kamar[id];
//$objResponse->addAlert($sql_kamar);
$kon->sql = "INSERT INTO tracer (kunjungan_kamar_id, pasien_id, keperluan, tgl_keluar, cetak) VALUES ('".
$id_kunjungan_kamar."', '".$last_id."', 'PEMERIKSAAN', '".$value[tgl_periksa_thn].
"-".$value[tgl_periksa_bln]."-".$value[tgl_periksa_tgl]."', 'BELUM')";
$kon->execute();
$afek_kunjungan = $kon->affected_rows;
//$objResponse->addAssign("debug", "innerHTML", $sql_kamar);
if($afek_kunjungan < 0) {
$objResponse->addAlert("Data Kunjungan Tidak Dapat Disimpan.\nCek kembali.");
//$objResponse->addAssign("debug", "innerHTML", $sql);
$objResponse->addScriptCall("fokus", "id");
} else {
if($value[bayar_karcis] == "1") {
##?? 35
$kon->sql = "SELECT biaya_jasa FROM karcis WHERE id='72'";
$kon->execute();
$bayar = $kon->getOne();
##?? KASIR
//$kon->sql = "SELECT tarif FROM pelayanan WHERE id='".$value[kamar_id]."'";
$kon->sql="SELECT kmr.id as id, kmr.nama as nama, pel.nama as nama_pel, pel.tarif as tarif, pel.id as id_poli FROM kamar kmr
JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id)
WHERE pel.jenis = 'RAWAT JALAN'
AND kmr.id = '".$value[kamar_id]."'
ORDER BY kmr.nama";
$kon->execute();
$bayar_poli = $kon->getOne();
$biaya_jasa=$bayar_poli[tarif];
//$id_kwitansi = bikinKwitansi("KASIR", $bayar[biaya_jasa]+$bayar_poli[tarif],"");
$sql = "
INSERT INTO
kunjungan_bayar (
nama,
kunjungan_kamar_id,
karcis_id,
hak_id,
biaya_bhp,
biaya_jasa,
jumlah,
bayar_bhp,
bayar_jasa,
mampu_bayar_bhp,
jasa_p,
jasa_rs,
jasa_rs_op,
jasa_rs_kembang,
jasa_rs_adm,
jasa_rs_sdm,
spesialis,
spesialis_pendamping,
ugp,
grabaf,
perawat,
penunjang,
zakat,
pajak,
tgl
) SELECT
nama,
'".$id_kunjungan_kamar."',
'72',
'89',
biaya_bhp,
biaya_jasa,
'1',
biaya_bhp,
biaya_jasa,
biaya_bhp,
jasa_p,
jasa_rs,
jasa_rs_op,
jasa_rs_kembang,
jasa_rs_adm,
jasa_rs_sdm,
spesialis,
spesialis_pendamping,
ugp,
grabaf,
perawat,
penunjang,
zakat,
pajak,
NOW()
FROM
karcis
WHERE
id = '72'
";
$kon->sql = $sql;
//$objResponse->addAppend("debug", "innerHTML", $sql);
$kon->execute();
//tarif poli
$sql = "
INSERT INTO
kunjungan_bayar (
nama,
kunjungan_kamar_id,
poli_id,
hak_id,
biaya_bhp,
biaya_jasa,
jumlah,
bayar_bhp,
bayar_jasa,
mampu_bayar_bhp,
jasa_p,
jasa_rs,
jasa_rs_op,
jasa_rs_kembang,
jasa_rs_adm,
jasa_rs_sdm,
spesialis,
spesialis_pendamping,
ugp,
grabaf,
perawat,
penunjang,
zakat,
pajak,
tgl
) SELECT
'".$bayar_poli[nama_pel]."',
'".$id_kunjungan_kamar."',
'".$bayar_poli[id_poli]."',
'89',
biaya_bhp,
'".$bayar_poli[tarif]."',
'1',
biaya_bhp,
'".$bayar_poli[tarif]."',
biaya_bhp,
jasa_p,
jasa_rs,
jasa_rs_op,
jasa_rs_kembang,
jasa_rs_adm,
jasa_rs_sdm,
spesialis,
spesialis_pendamping,
ugp,
grabaf,
perawat,
penunjang,
zakat,
pajak,
NOW()
FROM
karcis
WHERE
id = '72'
";
$kon->sql = $sql;
//$objResponse->addAppend("debug", "innerHTML", $sql);
$kon->execute();
/*$idkb = $kon->last_id;
$kon->sql = "INSERT INTO kwitansi_detil(kunjungan_bayar_id, kwitansi_id, angsuran_bhp, angsuran_jasa) SELECT '".
$idkb."', '".$id_kwitansi."', biaya_bhp, biaya_jasa FROM karcis WHERE id='72'";
$kon->execute();
//untuk bayar poli
$kon->sql = "INSERT INTO kwitansi_detil(kunjungan_bayar_id, kwitansi_id, angsuran_jasa) VALUES ('".
$idkb."', '".$id_kwitansi."','".$biaya_jasa."')";
$kon->execute();*/
}
$objResponse->addConfirmCommands(1, "Cetak Kartu Periksa?");
// $objResponse->addAssign("debug", "innerHTML",$id);
$objResponse->addScriptCall("cetak", URL."pendaftaran/kartu_periksa_cetak/?id=".
$last_id, 350, 210);
$objResponse->addScriptCall("show_status_simpan");
$objResponse->addScriptCall("xajax_reset_pasien");
$objResponse->addScriptCall("get_sidebar_content");
$objResponse->addScriptCall("fokus", "id");
}
}
//$objResponse->addScriptCall("xajax_list_data_dua", $_SESSION[hal], $_SESSION[val]);
return $objResponse;
}
function simpan_kunjungan($value) {
$cleaner = new FormCleaner;
$cleaner->setValue($value);
$cleaner->clean();
$val = $cleaner->getValue();
$kon = new Konek;
if($val[beri_resep]==1){
$resep="YA";
}else{
$resep="TIDAK";
}
//update beri resep
$sql = "
UPDATE
kunjungan
SET
resep='".$resep."'
WHERE
id = '".$val[input_id_kunjungan]."'
";
$kon->sql = $sql;
$kon->execute();
//update
$sql = "
UPDATE
kunjungan_kamar
SET
dokter_id = NULLIF('".$val[input_dokter_id]."', ''),
diagnosa_utama_id = NULLIF('".$val[input_diagnosa_utama]."', '')
WHERE
id = '".$val[input_id_kunjungan_kamar]."'
";
$kon->sql = $sql;
$kon->execute();
//$afek = $kon->affected_rows;
$afek = $kon->getJml();
$temp = $sql;
$objResponse = new xajaxResponse();
//$objResponse->addAlert($temp);
//$objResponse->addAlert(print_r($val));
//$objResponse->addAppend("debug", "innerHTML", $mampu_bayar);
//INSERT UPDATE KARCIS
for($i=0;$i<sizeof($val[input_karcis]);$i++) {
$kunci = key($val[input_karcis]);
//get
/* BAGI BAYAR => BHP+JASA */
$biaya_bhp = 0;
$biaya_jasa = 0;
$selisih_biaya = 0;
$biaya_bhp = round($val[input_karcis_biaya_bhp][$kunci]);
$biaya_jasa = round($val[input_karcis_biaya_jasa][$kunci]);
$selisih_biaya = $val[input_karcis_biaya][$kunci]-$biaya_bhp-$biaya_jasa;
$biaya_jasa += $selisih_biaya;
$bayar_bhp = 0;
$bayar_jasa = 0;
$selisih_bayar = 0;
$bayar_bhp = round($val[input_karcis_biaya_bhp][$kunci]);
$bayar_jasa = round($val[input_karcis_biaya_jasa][$kunci]);
$selisih_bayar = $val[input_karcis_bayar][$kunci]-$bayar_bhp-$bayar_jasa;
$bayar_jasa += $selisih_bayar;
if(!$val[input_kunjungan_karcis_id][$kunci]) {
//insert
$sql = "
INSERT INTO
kunjungan_bayar (
nama,
kunjungan_kamar_id,
karcis_id,
hak_id,
biaya_bhp,
biaya_jasa,
jumlah,
bayar_bhp,
bhp_p,
bhp_rs,
bhp_rs_adm,
bhp_rs_op,
bayar_jasa,
jasa_p,
jasa_rs,
jasa_rs_op,
jasa_rs_kembang,
jasa_rs_adm,
jasa_rs_sdm,
spesialis,
spesialis_pendamping,
ugp,
grabaf,
perawat,
penunjang,
zakat,
pajak,
tgl
) SELECT
'".$val[input_karcis_nama][$i]."',
'".$val[input_id_kunjungan_kamar]."',
'".$val[input_karcis][$kunci]."',
'".$val[input_karcis_hak][$kunci]."',
'".$biaya_bhp."',
'".$biaya_jasa."',
'".$val[input_karcis_jml][$kunci]."',
'".$bayar_bhp."',
bhp_p,
bhp_rs,
bhp_rs_adm,
bhp_rs_op,
'".$bayar_jasa."',
jasa_p,
jasa_rs,
jasa_rs_op,
jasa_rs_kembang,
jasa_rs_adm,
jasa_rs_sdm,
spesialis,
spesialis_pendamping,
ugp,
grabaf,
perawat,
penunjang,
zakat,
pajak,
NOW()
FROM
karcis
WHERE
id = '".$val[input_karcis][$kunci]."'
";
$kon->sql = $sql;
$kon->execute();
} else {
//update
$sql = "
UPDATE
kunjungan_bayar
SET
hak_id = '".$val[input_karcis_hak][$kunci]."',
jumlah = '".$val[input_karcis_jml][$kunci]."',
biaya_bhp = '".$biaya_bhp ."',
biaya_jasa = '".$biaya_jasa."',
bayar_bhp = '".$bayar_bhp."',
bayar_jasa = '".$bayar_jasa."'
WHERE
id = '".$val[input_kunjungan_karcis_id][$kunci]."'";
$kon->sql = $sql;
$kon->execute();
//$objResponse->addAppend("debug", "innerHTML", $sql);
}
//$objResponse->addAppend("debug", "innerHTML", $sql);
next($val[input_karcis]);
}
//TINDAKAN
for($i=0;$i<sizeof($val[input_icopim]);$i++) {
$kunci = key($val[input_icopim]);
$parent = $val[input_icopim_parent][$i];
//get
if(!$val[input_kunjungan_icopim_id][$kunci] && $val[input_icopim][$kunci]) {
//insert
$sql = "INSERT INTO kunjungan_kamar_icopim (kunjungan_kamar_id, icopim_id, nama) VALUES ('".$val[input_id_kunjungan_kamar]."', '".$val[input_icopim][$kunci]."', '".$val[input_icopim_nama][$kunci]."')";
$kon->sql = $sql;
$kon->execute();
$id_kki = $kon->last_id;
//$objResponse->addAppend("debug", "innerHTML", $field . " => " . $val[input_icopim_detil_bayar][$parent][$field] . "<br />");
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa,tgl)
VALUES ('".$val[input_icopim_nama][$kunci]."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$kunci]."', '".$val[input_icopim_hak][$kunci]."', '".$val[input_icopim_biaya][$kunci]."', NOW())";
$kon->sql = $sql;
$kon->execute();
} else { //UPDATE
/*diinsert satu satu*/
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_hak][$kunci]."', biaya_jasa = '".$val[input_icopim_biaya][$kunci]."' WHERE id = '".$val[input_kunjungan_icopim_id][$kunci]."'";
//$objResponse->addAppend("debug", "innerHTML", $field . " => " . $sql . "<br /><br />");
$kon->sql = $sql;
$kon->execute();
} //endfor
next($val[input_icopim]); }
//BHP
for($i=0;$i<sizeof($val[input_bhp]);$i++) {
$kunci = key($val[input_bhp]);
if(!$val[input_kunjungan_bhp_id][$kunci]) {
//insert
$sql = "
INSERT INTO
kunjungan_bayar (
nama,
kunjungan_kamar_id,
bhp_id,
hak_id,
biaya_bhp,
sifat,
jumlah,
bayar_bhp,
tgl,
no_resep
) VALUES (
'".$val[input_bhp_nama][$i]."',
'".$val[input_id_kunjungan_kamar]."',
'".$val[input_bhp][$kunci]."',
'".$val[input_bhp_hak][$kunci]."',
'".$val[input_bhp_biaya][$kunci]."',
'".$val[input_bhp_sifat][$kunci]."',
'".$val[input_bhp_jml][$kunci]."',
'".$val[input_bhp_bayar][$kunci]."',
NOW(),
'".$val[input_no_resep]."')
";
$kon->sql = $sql;
$kon->execute();
$temp .= $sql;
} else {
//update
$sql = "
UPDATE
kunjungan_bayar
SET
hak_id = '".$val[input_bhp_hak][$kunci]."',
biaya_bhp = '".$val[input_bhp_biaya][$kunci]."',
sifat = '".$val[input_bhp_sifat][$kunci]."',
jumlah = '".$val[input_bhp_jml][$kunci]."',
bayar_bhp = '".$val[input_bhp_bayar][$kunci]."'
WHERE
id = '".$val[input_kunjungan_bhp_id][$kunci]."'";
$kon->sql = $sql;
//$objResponse->addAssign("debug", "innerHTML", $sql);
$kon->execute();
}
next($val[input_bhp]);
}
// $objResponse->addAlert($temp);
//simpan di database apotek
//pasien id
$usercreated = $_SESSION["username"];
$unit_id = 4;
$tgl=date("d/m/Y");
$sql="insert into db_apotek.resep_head (no_resep,param_no,pasien_id,created_datetime,created_user,tgl,unit_id,cara_masuk,flags)
values('".$val[input_no_resep]."','".$val[input_param_no]."','".$val[input_pasien_id]."',now(),'$usercreated','$tgl','$unit_id','RAWAT INAP',3)";
$kon->sql = $sql;
$kon->execute();
//BHP
for($i = 0; $i < sizeof($val[input_bhp]); $i++) {
$kunci = key($val[input_bhp]);
//ambil kode barang
$sql = "select db_apotek.ms_barang.id as id, db_apotek.ms_barang.kd_barang as kd_barang,db_apotek.ms_barang.nama as nama
from db_apotek.ms_barang where db_apotek.ms_barang.id ='".$val[input_bhp][$i]."'";
$kon->sql = $sql;
$kon->execute();
$ref = $kon->getOne(); //ambil data kd_barang
$date = date("d/m/Y");
$sql = "INSERT INTO db_apotek.resep (no_resep, pasien_id, kode_obat, tgl, diminta,dosis_id,ket,racikan,flags)
VALUES ('".$val[input_no_resep]."','".$val[input_pasien_id]."', '".$ref[kd_barang].
"', '$date','".$val[input_bhp_jml][$i]."','".$val[input_dosis][$i]."','".$val[input_ket][$i]."','-',3)";
$kon->sql = $sql;
$kon->execute();
next($val[input_bhp]);
}
if($afek < 0) {
$objResponse->addAlert("Data Kunjungan Tidak Dapat Disimpan\nHubungi Bagian SIM.");
} else {
$objResponse->addScriptCall("show_status_simpan");
$objResponse->addScriptCall("list_data", "0");
$objResponse->addScriptCall("tutup_kunjungan");
}
return $objResponse;
}
function simpan_kunjungan($value) {
$cleaner = new FormCleaner;
$cleaner->setValue($value);
$cleaner->clean();
$val = $cleaner->getValue();
$kon = new Konek;
//update
$kon->sql = "
UPDATE
kunjungan
SET
keadaan_keluar = '".$val[input_keadaan_keluar]."'
WHERE
id = '".$val[input_id_kunjungan]."'
";
$kon->execute();
$sql = "
UPDATE
kunjungan_kamar
SET
kelanjutan = '".$val[input_kelanjutan]."',
tgl_keluar = '".$val[input_tgl_keluar_thn]."-".$val[input_tgl_keluar_bln]."-".$val[input_tgl_keluar_tgl]." ".$val[input_tgl_keluar_jam].":".$val[input_tgl_keluar_mnt].":00'
WHERE
id = '".$val[input_id_kunjungan_kamar]."'
";
//}
$kon->sql = $sql;
$kon->execute();
$afek = $kon->getJml();
$objResponse = new xajaxResponse();
//$objResponse->addAssign("debug", "innerHTML", $sql);
if($afek < 0) {
$objResponse->addAlert("Data Pemulangan Tidak Dapat Disimpan\nHubungi Bagian SIM.");
} else {
$objResponse->addScriptCall("list_data", "0");
$objResponse->addScriptCall("xajax_tutup_kunjungan");
$objResponse->addScriptCall("show_status_simpan");
}
return $objResponse;
}
function simpan_kunjungan($value) {
$cleaner = new FormCleaner;
$cleaner->setValue($value);
$cleaner->clean();
$val = $cleaner->getValue();
$kon = new Konek;
if($val[beri_resep]==1){
$resep="YA";
}else{
$resep="TIDAK";
}
$objResponse = new xajaxResponse;
//awal tambah kunjungan
if($value[input_kelanjutan]=='DIRUJUK'){
$sql_kunjungan_ke = "
SELECT
CASE
WHEN (MAX(kunjungan_ke) IS NULL) THEN '1'
ELSE (MAX(kunjungan_ke) + 1)
END AS kunjungan_ke
FROM
kunjungan
WHERE
pasien_id = '".$value[input_pasien_id]."'
";
// $objResponse->addAssign("debug", "innerHTML", $sql_kunjungan_ke);
$kon->sql = $sql_kunjungan_ke;
$kon->execute();
$kunjungan_ke = $kon->getOne();
$sql_kunjungan = "
INSERT INTO
kunjungan(
kunjungan_ke,
pasien_id,
perujuk_id,
cara_masuk,
id_petugas
) VALUES(
'".$kunjungan_ke[kunjungan_ke]."',
'".$value[input_pasien_id]."',
NULLIF('".$value[input_dokter_id]."', ''),
'RUJUKAN',
'". $_SESSION[username] ."'
)";
// $objResponse->addAlert($sql_kunjungan);
$kon->sql = $sql_kunjungan;
$kon->execute();
$sql_last = "select * from kunjungan where LAST_INSERT_ID(id) ORDER BY id DESC LIMIT 1";
$kon->sql = $sql_last;
$kon->execute();
$idk = $kon->getOne();
$id_kunjungan = $idk[id];
//no antrian
$tgl_periksa = tanggalIndo($val[input_tgl_daftar],'Y-m-d');
if($val[dokter_id]) $s = " AND dokter_id = '".$val[dokter_id]."' ";
else $s = " AND dokter_id IS NULL ";
$kon = new Konek;
$sql = "
SELECT
CASE
WHEN (MAX(no_antrian) IS NULL) THEN '1'
ELSE (MAX(no_antrian) + 1)
END AS no_antrian
FROM
kunjungan_kamar
WHERE
kamar_id = '".$val[input_poli]."'
AND DATE(tgl_periksa) = '".$tgl_periksa."'
$s
";
$kon->sql = $sql;
$kon->execute();
$data_antrian = $kon->getOne();
$no_antrian = $data_antrian[no_antrian];
//$objResponse->addAssign("debug", "innerHTML", $tgl_periksa);
/*
masuk rajal
*/
$sql_kamar = "INSERT INTO kunjungan_kamar(kunjungan_id,kamar_id,no_antrian,tgl_daftar,tgl_periksa, ";
$sql_kamar .="tgl_keluar,dokter_id,cara_bayar,jenis_askes,perusahaan_id, nomor, pj_nama, pj_alamat, ";
$sql_kamar .="pj_telp, pj_hubungan_keluarga)
select kunjungan_id,".$value[kamar_id].",'".$no_antrian."',NOW(),NOW(),NOW(),".$value[dokter_id].",
cara_bayar,jenis_askes,perusahaan_id, nomor,pj_nama, pj_alamat, pj_telp, pj_hubungan_keluarga
from kunjungan_kamar where id='".$value[kunjungan_kamar]."'";
$kon->sql = $sql_kamar;
$kon->execute();
$sql_last = "select * from kunjungan_kamar where LAST_INSERT_ID(id) ORDER BY id DESC LIMIT 1";
$kon->sql = $sql_last;
$kon->execute();
$id_kamar = $kon->getOne();
$id_kunjungan_kamar = $id_kamar[id];
//$objResponse->addAlert($sql_kamar);
$kon->sql = "INSERT INTO tracer (kunjungan_kamar_id, pasien_id, keperluan, tgl_keluar, cetak) VALUES ('".
$id_kunjungan_kamar."', '".$last_id."', 'PEMERIKSAAN', '".$value[tgl_periksa_thn].
"-".$value[tgl_periksa_bln]."-".$value[tgl_periksa_tgl]."', 'BELUM')";
$kon->execute();
$afek_kunjungan = $kon->affected_rows;
//$objResponse->addAssign("debug", "innerHTML", $sql_kamar);
if($afek_kunjungan < 0) {
$objResponse->addAlert("Data Kunjungan Tidak Dapat Disimpan.\nCek kembali.");
//$objResponse->addAssign("debug", "innerHTML", $sql);
$objResponse->addScriptCall("fokus", "id");
} else {
//tarif poli
$sql = "
INSERT INTO
kunjungan_bayar (
nama,
kunjungan_kamar_id,
poli_id,
hak_id,
biaya_bhp,
biaya_jasa,
jumlah,
bayar_bhp,
bayar_jasa,
mampu_bayar_bhp,
jasa_p,
jasa_rs,
jasa_rs_op,
jasa_rs_kembang,
jasa_rs_adm,
jasa_rs_sdm,
spesialis,
spesialis_pendamping,
ugp,
grabaf,
perawat,
penunjang,
zakat,
pajak,
tgl
) SELECT
'".$bayar_poli[nama_pel]."',
'".$id_kunjungan_kamar."',
'".$bayar_poli[id_poli]."',
'89',
biaya_bhp,
'".$bayar_poli[tarif]."',
'1',
biaya_bhp,
'".$bayar_poli[tarif]."',
biaya_bhp,
jasa_p,
jasa_rs,
jasa_rs_op,
jasa_rs_kembang,
jasa_rs_adm,
jasa_rs_sdm,
spesialis,
spesialis_pendamping,
ugp,
grabaf,
perawat,
penunjang,
zakat,
pajak,
NOW()
FROM
karcis
WHERE
id = '72'
";
$kon->sql = $sql;
//$objResponse->addAppend("debug", "innerHTML", $sql);
$kon->execute();}
}else{
//update
$kon->sql = "
UPDATE
kunjungan
SET
keadaan_keluar = '".$val[input_keadaan_keluar]."',resep = '".$resep."'
WHERE
id = '".$val[input_id_kunjungan]."'
";
$kon->execute();
//update
$sql = "
UPDATE
kunjungan_kamar
SET
status_periksa = 1,
dokter_id = NULLIF('".$val[input_dokter_id]."', ''),
kelanjutan = NULLIF('".$val[input_kelanjutan]."',''),
diagnosa_utama_id = NULLIF('".$val[input_diagnosa_utama]."', '')
WHERE
id = '".$val[input_id_kunjungan_kamar]."'
";
$kon->sql = $sql;
$kon->execute();
}
//$afek = $kon->affected_rows;
$afek = $kon->getJml();
$objResponse = new xajaxResponse();
//$objResponse->addAlert(print_r($val));
//$objResponse->addAppend("debug", "innerHTML", $mampu_bayar);
//INSERT UPDATE KARCIS
for($i = 0; $i < sizeof($val[input_karcis]); $i++) {
$kunci = key($val[input_karcis]);
//get
/*
* $kon->sql = "SELECT * FROM karcis WHERE id = '".$val[input_karcis][$kunci]."'";
* $kon->execute();
* $data_karcis[$i] = $kon->getOne();
* $jasa_p[$i] = $data_karcis[$i][jasa_p] * $val[input_karcis_bayar][$kunci];
* $jasa_rs[$i] = $data_karcis[$i][jasa_rs] * $val[input_karcis_bayar][$kunci];
* $jasa_rs_op[$i] = $data_karcis[$i][jasa_rs_op] * $val[input_karcis_bayar][$kunci];
* $jasa_rs_kembang[$i] = $data_karcis[$i][jasa_rs_kembang] * $val[input_karcis_bayar][$kunci];
* $jasa_rs_adm[$i] = $data_karcis[$i][jasa_rs_adm] * $val[input_karcis_bayar][$kunci];
* $jasa_rs_sdm[$i] = $data_karcis[$i][jasa_rs_sdm] * $val[input_karcis_bayar][$kunci];
* $spesialis[$i] = $data_karcis[$i][spesialis] * $val[input_karcis_bayar][$kunci] * $data_karcis[$i][netto];
* $spesialis_pendamping[$i] = $data_karcis[$i][spesialis_pendamping] * $val[input_karcis_bayar][$kunci] * $data_karcis[$i][netto];
* $ugp[$i] = $data_karcis[$i][ugp] * $val[input_karcis_bayar][$kunci] * $data_karcis[$i][netto];
* $grabaf[$i] = $data_karcis[$i][grabaf] * $val[input_karcis_bayar][$kunci] * $data_karcis[$i][netto];
* $perawat[$i] = $data_karcis[$i][perawat] * $val[input_karcis_bayar][$kunci] * $data_karcis[$i][netto];
* $penunjang[$i] = $data_karcis[$i][penunjang] * $val[input_karcis_bayar][$kunci] * $data_karcis[$i][netto];
* $zakat[$i] = $data_karcis[$i][zakat] * $val[input_karcis_bayar][$kunci] * $data_karcis[$i][netto];
* $pajak[$i] = $data_karcis[$i][pajak] * ($val[input_karcis_bayar][$kunci] - ($jasa_p[$i] + $jasa_rs_op[$i] + $jasa_rs_kembang[$i] + $jasa_rs_adm[$i] + $jasa_rs_sdm[$i]));
* //$objResponse->addAlert("pajak : " . $pajak[$i]);
*/
/* BAGI BAYAR => BHP+JASA */
$biaya_bhp = 0;
$biaya_jasa = 0;
$selisih_biaya = 0;
$biaya_bhp = round($val[input_karcis_biaya_bhp][$kunci]);
$biaya_jasa = round($val[input_karcis_biaya_jasa][$kunci]);
$selisih_biaya = $val[input_karcis_biaya][$kunci]-$biaya_bhp-$biaya_jasa;
$biaya_jasa += $selisih_biaya;
$bayar_bhp = 0;
$bayar_jasa = 0;
$selisih_bayar = 0;
$bayar_bhp = round($val[input_karcis_biaya_bhp][$kunci]);
$bayar_jasa = round($val[input_karcis_biaya_jasa][$kunci]);
$selisih_bayar = $val[input_karcis_bayar][$kunci]-$bayar_bhp-$bayar_jasa;
$bayar_jasa += $selisih_bayar;
if(!$val[input_kunjungan_karcis_id][$kunci]) {
//insert
$sql = "
INSERT INTO
kunjungan_bayar (
nama,
kunjungan_kamar_id,
karcis_id,
hak_id,
biaya_bhp,
biaya_jasa,
jumlah,
bayar_bhp,
bhp_p,
bhp_rs,
bhp_rs_adm,
bhp_rs_op,
bayar_jasa,
jasa_p,
jasa_rs,
jasa_rs_op,
jasa_rs_kembang,
jasa_rs_adm,
jasa_rs_sdm,
spesialis,
spesialis_pendamping,
ugp,
grabaf,
perawat,
penunjang,
zakat,
pajak,
netto
) SELECT
'".$val[input_karcis_nama][$i]."',
'".$val[input_id_kunjungan_kamar]."',
'".$val[input_karcis][$kunci]."',
'".$val[input_karcis_hak][$kunci]."',
'".$biaya_bhp."',
'".$biaya_jasa."',
'".$val[input_karcis_jml][$kunci]."',
'".$bayar_bhp."',
bhp_p,
bhp_rs,
bhp_rs_adm,
bhp_rs_op,
'".$bayar_jasa."',
jasa_p,
jasa_rs,
jasa_rs_op,
jasa_rs_kembang,
jasa_rs_adm,
jasa_rs_sdm,
spesialis,
spesialis_pendamping,
ugp,
grabaf,
perawat,
penunjang,
zakat,
pajak,
netto
FROM
karcis
WHERE
id = '".$val[input_karcis][$kunci]."'
";
$kon->sql = $sql;
$kon->execute();
} else {
//update
$sql = "
UPDATE
kunjungan_bayar
SET
hak_id = '".$val[input_karcis_hak][$kunci]."',
jumlah = '".$val[input_karcis_jml][$kunci]."',
biaya_bhp = '".$biaya_bhp."',
biaya_jasa = '".$biaya_jasa."',
bayar_bhp = '".$bayar_bhp."',
bayar_jasa = '".$bayar_jasa."'
WHERE
id = '".$val[input_kunjungan_karcis_id][$kunci]."'";
$kon->sql = $sql;
$kon->execute();
//$objResponse->addAppend("debug", "innerHTML", $sql);
}
//$objResponse->addAppend("debug", "innerHTML", $sql);
next($val[input_karcis]);
}
//TINDAKAN
for($i=0;$i<sizeof($val[input_icopim]);$i++) {
$kunci = key($val[input_icopim]);
$parent = $val[input_icopim_parent][$i];
//get
if(!$val[input_kunjungan_icopim_id][$kunci] && $val[input_icopim][$kunci]) {
//insert
$sql = "INSERT INTO kunjungan_kamar_icopim (kunjungan_kamar_id, icopim_id, nama) VALUES ('".$val[input_id_kunjungan_kamar]."', '".$val[input_icopim][$kunci]."', '".$val[input_icopim_nama][$kunci]."')";
$kon->sql = $sql;
$kon->execute();
$id_kki = $kon->last_id;
//$objResponse->addAppend("debug", "innerHTML", $field . " => " . $val[input_icopim_detil_bayar][$parent][$field] . "<br />");
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa,tgl)
VALUES ('".$val[input_icopim_nama][$kunci]."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$kunci]."', '".$val[input_icopim_hak][$kunci]."', '".$val[input_icopim_biaya][$kunci]."', NOW())";
$kon->sql = $sql;
$kon->execute();
} else { //UPDATE
/*diinsert satu satu*/
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_hak][$kunci]."', biaya_jasa = '".$val[input_icopim_biaya][$kunci]."' WHERE id = '".$val[input_kunjungan_icopim_id][$kunci]."'";
//$objResponse->addAppend("debug", "innerHTML", $field . " => " . $sql . "<br /><br />");
$kon->sql = $sql;
$kon->execute();
} //endfor
next($val[input_icopim]); }
//BHP
for($i = 0; $i < sizeof($val[input_bhp]); $i++) {
$kunci = key($val[input_bhp]);
/*
* //get
* $sql = "SELECT * FROM bhp WHERE id = '".$val[input_bhp][$kunci]."'";
* $kon->sql = $sql;
* $kon->execute();
* $data_bhp[$i] = $kon->getOne();
*
* //$objResponse->addAssign("debug", "innerHTML", $sql);
*
* $bhp_p[$i] = $data_bhp[$i][bhp_p] * $val[input_bhp_bayar][$kunci];
* $bhp_rs[$i] = $data_bhp[$i][bhp_rs] * $val[input_bhp_bayar][$kunci];
* $bhp_rs_adm[$i] = $data_bhp[$i][bhp_rs_adm] * $val[input_bhp_bayar][$kunci];
* $bhp_rs_op[$i] = $data_bhp[$i][bhp_rs_op] * $val[input_bhp_bayar][$kunci];
*/
if(!$val[input_kunjungan_bhp_id][$kunci]) {
//insert
/*$sql = "
INSERT INTO
kunjungan_bayar (
nama,
kunjungan_kamar_id,
bhp_id,
hak_id,
biaya_bhp,
sifat,
jumlah,
bayar_bhp,
bhp_p,
bhp_rs,
bhp_rs_adm,
bhp_rs_op
) SELECT
'".$val[input_bhp_nama][$i]."',
'".$val[input_id_kunjungan_kamar]."',
'".$val[input_bhp][$kunci]."',
'".$val[input_bhp_hak][$kunci]."',
'".$val[input_bhp_biaya][$kunci]."',
'".$val[input_bhp_sifat][$kunci]."',
'".$val[input_bhp_jml][$kunci]."',
'".$val[input_bhp_bayar][$kunci]."',
bhp_p,
bhp_rs,
bhp_rs_adm,
bhp_rs_op
FROM
bhp
WHERE
id = '".$val[input_bhp][$kunci]."'
";
$kon->sql = $sql;
$kon->execute();*/
$sql = "
INSERT INTO
kunjungan_bayar (
nama,
kunjungan_kamar_id,
bhp_id,
hak_id,
biaya_bhp,
sifat,
jumlah,
bayar_bhp,
tgl,
no_resep
) VALUES (
'".$val[input_bhp_nama][$i]."',
'".$val[input_id_kunjungan_kamar]."',
'".$val[input_bhp][$kunci]."',
'".$val[input_bhp_hak][$kunci]."',
'".$val[input_bhp_biaya][$kunci]."',
'".$val[input_bhp_sifat][$kunci]."',
'".$val[input_bhp_jml][$kunci]."',
'".$val[input_bhp_bayar][$kunci]."',
NOW(),
'".$val[input_no_resep]."')
";
$kon->sql = $sql;
$kon->execute();
$temp .= $sql;
} else {
//update
$sql = "
UPDATE
kunjungan_bayar
SET
hak_id = '".$val[input_bhp_hak][$kunci]."',
biaya_bhp = '".$val[input_bhp_biaya][$kunci]."',
sifat = '".$val[input_bhp_sifat][$kunci]."',
jumlah = '".$val[input_bhp_jml][$kunci]."',
bayar_bhp = '".$val[input_bhp_bayar][$kunci]."'
WHERE
id = '".$val[input_kunjungan_bhp_id][$kunci]."'";
$kon->sql = $sql;
//$objResponse->addAssign("debug", "innerHTML", $sql);
$kon->execute();
}
next($val[input_bhp]);
}
//simpan di database apotek
//pasien id
$usercreated = $_SESSION["username"];
$unit_id = 4;
$tgl=date("d/m/Y");
$sql="insert into db_apotek.resep_head (no_resep,param_no,pasien_id,created_datetime,created_user,tgl,unit_id,cara_masuk,flags)
values('".$val[input_no_resep]."','".$val[input_param_no]."','".$val[input_pasien_id]."',now(),'$usercreated','$tgl','$unit_id','RAWAT JALAN',3)";
$kon->sql = $sql;
$kon->execute();
//BHP
for($i = 0; $i < sizeof($val[input_bhp]); $i++) {
$kunci = key($val[input_bhp]);
//ambil kode barang
$sql = "select db_apotek.ms_barang.id as id, db_apotek.ms_barang.kd_barang as kd_barang,db_apotek.ms_barang.nama as nama
from db_apotek.ms_barang where db_apotek.ms_barang.id ='".$val[input_bhp][$i]."'";
$kon->sql = $sql;
$kon->execute();
$ref = $kon->getOne(); //ambil data kd_barang
$date = date("d/m/Y");
$sql = "INSERT INTO db_apotek.resep (no_resep, pasien_id, kode_obat, tgl, diminta,dosis_id,ket,racikan,flags)
VALUES ('".$val[input_no_resep]."','".$val[input_pasien_id]."', '".$ref[kd_barang].
"', '$date','".$val[input_bhp_jml][$i]."','".$val[input_dosis][$i]."','".$val[input_ket][$i]."','-',3)";
$kon->sql = $sql;
$kon->execute();
next($val[input_bhp]);
}
if($afek < 0) {
$objResponse->addAlert("Data Kunjungan Tidak Dapat Disimpan\nHubungi Bagian SIM.");
} else {
$objResponse->addScriptCall("list_data", "0");
$objResponse->addScriptCall("tutup_kunjungan");
$objResponse->addScriptCall("show_status_simpan");
}
return $objResponse;
}
function simpan_pasien($value) {
$objResponse = new xajaxResponse();
$kon = new Konek;
if(!$value['id_pasien']) {
if(!$value['id']) {
$sql = "
INSERT INTO pasien(
nama,
tempat_lahir,
tgl_lahir,
gol_darah,
sex,
agama,
pendidikan_id,
pekerjaan_id,
status_nikah,
alamat,
rt,
rw,
desa_id,
telp,
tgl_daftar,
nama_ayah,
nama_ibu,
nama_suami,
nama_istri,
no_ktp_sim,
created_datetime,
created_user,
kode_petugas
)
VALUES (
'".$value[nama]."',
'".$value[tempat_lahir]."',
'".$value[tgl_lahir_thn]."-".$value[tgl_lahir_bln]."-".$value[tgl_lahir_tgl].
"',
NULLIF('".$value[gol_darah_id]."',''),
'".$value[sex]."',
'".$value[agama]."',
'".$value[pendidikan_id]."',
'".$value[pekerjaan_id]."',
'".$value[status_nikah]."',
'".$value[alamat]."',
'".$value[rt]."',
'".$value[rw]."',
'".$value[desa_id]."',
'".$value[telp]."',
NOW(),
'".$value[nama_ayah]."',
'".$value[nama_ibu]."',
'".$value[nama_suami]."',
'".$value[nama_istri]."',
'".$value[no_ktp_sim]."',
NOW(),
'".$_SESSION[username]."',
'".$value[nama_petugas]."'
)";
$kon->sql = $sql;
$kon->execute();
$afek = $kon->affected_rows;
$last_id = $kon->last_id;
$_SESSION[id] = $kon->last_id;
//print $afek;
//update no rekam medis
$sql = "SELECT p.id as id, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as id_display FROM pasien p WHERE id='".$last_id."'";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
$sql = "UPDATE pasien SET no_rm ='".$data[id_display]."' WHERE id = '".$last_id."'";
$kon->sql = $sql;
$kon->execute();
} else {
$sql = "
INSERT INTO pasien(
id,
nama,
tempat_lahir,
tgl_lahir,
gol_darah,
sex,
agama,
pendidikan_id,
pekerjaan_id,
status_nikah,
alamat,
rt,
rw,
desa_id,
telp,
tgl_daftar,
nama_ayah,
nama_ibu,
nama_suami,
nama_istri,
no_ktp_sim,
created_datetime,
created_user,
kode_petugas
)
VALUES (
'".$value[id]."',
'".$value[nama]."',
'".$value[tempat_lahir]."',
'".$value[tgl_lahir_thn]."-".$value[tgl_lahir_bln]."-".$value[tgl_lahir_tgl].
"',
NULLIF('".$value[gol_darah_id]."',''),
'".$value[sex]."',
'".$value[agama]."',
'".$value[pendidikan_id]."',
'".$value[pekerjaan_id]."',
'".$value[status_nikah]."',
'".$value[alamat]."',
'".$value[rt]."',
'".$value[rw]."',
'".$value[desa_id]."',
'".$value[telp]."',
NOW(),
'".$value[nama_ayah]."',
'".$value[nama_ibu]."',
'".$value[nama_suami]."',
'".$value[nama_istri]."',
'".$value[no_ktp_sim]."',
NOW(),
'".$_SESSION[username]."',
'".$value[nama_petugas]."'
)";
$kon->sql = $sql;
$kon->execute();
$afek = $kon->affected_rows;
$last_id = $kon->last_id;
$_SESSION[id] =$kon->last_id;
}
//print $afek;
//$objResponse->addAlert($_SESSION[id]);
//update no rekam medis
$sql = "SELECT p.id as id, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as id_display FROM pasien p WHERE id='".$last_id."'";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
$sql = "UPDATE pasien SET no_rm ='".$data[id_display]."' WHERE id = '".$last_id."'";
$kon->sql = $sql;
$kon->execute();
$id_pasien = $last_id;
} else {
$sql1 = "
UPDATE pasien SET
nama= '".$value[nama]."',
tempat_lahir = '".$value[tempat_lahir]."',
tgl_lahir= '".$value[tgl_lahir_thn]."-".$value[tgl_lahir_bln]."-".$value[tgl_lahir_tgl]."',
gol_darah = NULLIF('".$value[gol_darah_id]."', ''),
sex= '".$value[sex]."',
agama= '".$value[agama]."',
pendidikan_id= '".$value[pendidikan_id]."',
pekerjaan_id= '".$value[pekerjaan_id]."',
status_nikah= '".$value[status_nikah]."',
alamat= '".$value[alamat]."',
rt= '".$value[rt]."',
rw= '".$value[rw]."',
desa_id= '".$value[desa_id]."',
telp= '".$value[telp]."',
nama_ayah='".$value[nama_ayah]."',
nama_ibu='".$value[nama_ibu]."',
nama_suami='".$value[nama_suami]."',
nama_istri='".$value[nama_istri]."',
no_ktp_sim='".$value[no_ktp_sim]."',
update_user='******',
update_time=NOW(),
kode_petugas='".$value[nama_petugas]."' WHERE id = '".$value[id_pasien]."'";
$kon->sql = $sql1;
$kon->execute();
//$afek = $kon->affected_rows;
$afek = $kon->getJml();
//$afek = -1;
$last_id = $value[id];
$sql = "SELECT p.id as id, CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as id_display FROM pasien p WHERE id='".$value[id_pasien]."'";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
//update no rekam medis
$sql = "UPDATE pasien SET no_rm ='".$data[id_display]."' WHERE id = '".$value[id_pasien]."'";
$kon->sql = $sql;
$kon->execute();
$id = $value[id];
}
if($afek < 0) {
$objResponse->addAlert("Data Tidak Dapat Disimpan.\nCek kembali Nomor Rekam Medis.");
//$objResponse->addAssign("debug", "innerHTML", $sql);
$objResponse->addScriptCall("fokus", "id");
} else {
$sql_kunjungan = "
INSERT INTO
radio_kunjungan(
pasien_id,
kelas,
tgl_daftar,
tgl_periksa,
pengirim,
cara_masuk,
cara_bayar,
jenis_askes,
perusahaan_id,
nomor,
pj_nama,
pj_alamat,
pj_telp,
pj_hubungan_keluarga
) VALUES(
'".$last_id."',
'".$value[kelas]."',
NOW(),
'".$value[tgl_periksa_thn]."-".$value[tgl_periksa_bln]."-".$value[tgl_periksa_tgl]."',
'".$value[pengirim]."',
'PASIEN LUAR',
'".$value[cara_bayar]."',
NULLIF('".$value[jenis_askes]."',''),
NULLIF('".$value[perusahaan_id]."',''),
NULLIF('".$value[nomor]."',''),
'".$value[pj_nama]."',
'".$value[pj_alamat]."',
'".$value[pj_telp]."',
NULLIF('".$value[pj_hubungan_keluarga]."', '')
)";
$kon->sql = $sql_kunjungan;
$kon->execute();
/*
$kon->sql = "INSERT INTO tracer (kunjungan_kamar_id, pasien_id, keperluan, tgl_keluar, cetak) VALUES ('".$id_kunjungan_kamar."', '".$last_id."', 'PEMERIKSAAN', '".$value[tgl_periksa_thn]."-".$value[tgl_periksa_bln]."-".$value[tgl_periksa_tgl]."', 'BELUM')";
$kon->execute();
*/
$afek_kunjungan = $kon->affected_rows;
//$objResponse->addAssign("debug", "innerHTML", $sql_kunjungan);
if($afek_kunjungan < 0) {
$objResponse->addAlert("Data Kunjungan Tidak Dapat Disimpan.\nCek kembali.");
//$objResponse->addAssign("debug", "innerHTML", $sql);
$objResponse->addScriptCall("fokus", "id");
} else {
$objResponse->addConfirmCommands(1, "Cetak Kartu Periksa?");
$objResponse->addScriptCall("cetak", URL . "pendaftaran/kartu_periksa_cetak/?id=" . $last_id, 350, 210);
$objResponse->addScriptCall("show_status_simpan");
$objResponse->addScriptCall("xajax_reset_pasien");
$objResponse->addScriptCall("fokus", "id");
}
}
//$objResponse->addScriptCall("xajax_list_data_dua", $_SESSION[hal], $_SESSION[val]);
return $objResponse;
}
