function confirmTest()
{
$objResponse = new xajaxResponse();
$objResponse->addAlert("Here is an alert.");
$objResponse->addConfirmCommands(2, "Are you sure you want to show two (2) more alerts?");
$objResponse->addAlert("This will only happen if the user presses OK.");
$objResponse->addAlert("This also will only happen if the user presses OK.");
$objResponse->addAlert("This will always happen.");
return $objResponse->getXML();
}
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
)
VALUES (
'".$value[nama]."',
'".$value[tempat_lahir]."',
'".$value[tgl_lahir_thn]."-".$value[tgl_lahir_bln]."-".$value[tgl_lahir_tgl]."',
NULLIF('".$value[gol_darah]."',''),
'".$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()
)";
} 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
)
VALUES (
'".$value[id]."',
'".$value[nama]."',
'".$value[tempat_lahir]."',
'".$value[tgl_lahir_thn]."-".$value[tgl_lahir_bln]."-".$value[tgl_lahir_tgl]."',
NULLIF('".$value[gol_darah]."',''),
'".$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()
)";
}
$kon->sql = $sql;
$kon->execute();
$afek = $kon->affected_rows;
$last_id = $kon->last_id;
} else {
$sql = "
UPDATE pasien SET
id = '".$value[id]."',
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]."', ''),
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]."'
WHERE
id = '".$value[id_pasien]."'";
$kon->sql = $sql;
$kon->execute();
$afek = $kon->affected_rows;
$last_id = $value[id];
}
if($afek < 0) {
$objResponse->addAlert("Data Tidak Dapat Disimpan.\nCek kembali Nomor Rekam Medis.");
$objResponse->addScriptCall("fokus", "id");
} else {
$objResponse->addConfirmCommands(1, "Cetak Kartu Periksa?");
$objResponse->addScriptCall("cetak", URL . "setting/kartu_periksa_cetak/?id=" . $last_id, 350, 210);
$objResponse->addScriptCall("show_status_simpan");
$objResponse->addScriptCall("xajax_reset_pasien");
$objResponse->addScriptCall("fokus", "id");
}
return $objResponse;
}
function cetak_bayar()
{
$objResponse = new xajaxResponse();
$objResponse->addConfirmCommands(1, "Cetak Form?");
$objResponse->addScriptCall("cetak", URL."pendaftaran/rajal_cetak", 900,760);
return $objResponse;
}
function hapus_pelayanan_confirm($id, $nama) {
$objResponse = new xajaxResponse();
$objResponse->addConfirmCommands(1, "Yakin akan menghapus data : \n$nama?");
$objResponse->addScriptCall("xajax_hapus_pelayanan", $id);
return $objResponse;
}
function add_perujuk_check($nama, $alamat) {
$objResponse = new xajaxResponse();
$nama = addslashes($nama);
$alamat = addslashes($alamat);
$kon = new Konek;
$kon->sql = "
SELECT
id,
nama,
alamat
FROM
ref_perujuk
WHERE
TRIM(LOWER(nama)) = TRIM(LOWER('".$nama."'))
";
$kon->execute();
$data = $kon->getOne();
if($data[id]) {
$objResponse->addConfirmCommands(2, "Nama Perujuk\n " . $nama . "\n mirip dengan Perujuk\n" . $data[nama] . "\n dengan Alamat " . $data[alamat] . "\nKlik Ok untuk menambah perujuk baru\n Klik Cancel untuk menggunakan perujuk yang telah ada");
$objResponse->addScriptCall("xajax_ref_add_perujuk", $nama, $alamat);
$objResponse->addScriptCall("fokus", "perujuk_id");
$objResponse->addAssign("perujuk_id", "value", $data[id]);
$objResponse->addScriptCall("fokus", "perujuk_id");
} else {
$objResponse->addScriptCall("xajax_ref_add_perujuk", $nama, $alamat);
$objResponse->addScriptCall("fokus", "perujuk_id");
}
return $objResponse;
}
function simpan_kembalikan_berkas_check($val) {
$objResponse = new xajaxResponse;
if(empty($val[kembalikan])) {
$objResponse->addAlert("Tidak Ada Berkas Yang Dikembalikan");
} else {
$kon = new Konek;
$str_trcid = implode(", ", $val[kembalikan]);
$kon->sql = "
SELECT
CONCAT_WS('-', SUBSTRING(p.id, 1,2), SUBSTRING(p.id, 3,2), SUBSTRING(p.id, 5,2), SUBSTRING(p.id, 7,2)) as no_rm,
p.nama as nama
FROM
pasien p
JOIN tracer trc ON (trc.pasien_id = p.id)
WHERE
trc.id IN (".$str_trcid.")
";
$kon->execute();
$data = $kon->getAll();
$str = "";
for($i=0;$i<sizeof($data);$i++) {
$str .= $data[$i][no_rm] . " : " . $data[$i][nama] . "\n";
}
$objResponse->addConfirmCommands(1, "Yakin Akan Mengembalikan Berkas Pasien berikut ? :\n" . $str);
$objResponse->addScriptCall("xajax_simpan_kembalikan_berkas", $val);
}
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;
}