function get_pasien_check($val) {
$val[tgl_periksa_tgl_start] = empty($val[tgl_periksa_tgl_start])?1:$val[tgl_periksa_tgl_start];
$val[tgl_periksa_bln_start] = empty($val[tgl_periksa_bln_start])?1:$val[tgl_periksa_bln_start];
$val[tgl_periksa_tgl_end] = empty($val[tgl_periksa_tgl_end])?1:$val[tgl_periksa_tgl_end];
$val[tgl_periksa_bln_end] = empty($val[tgl_periksa_bln_end])?1:$val[tgl_periksa_bln_end];
$objResponse = new xajaxResponse;
$tgl_start = strtotime($val[tgl_periksa_thn_start] . "-" . $val[tgl_periksa_bln_start] . "-" . $val[tgl_periksa_tgl_start]);
$tgl_end = strtotime($val[tgl_periksa_thn_end] . "-" . $val[tgl_periksa_bln_end] . "-" . $val[tgl_periksa_tgl_end]);
if(!checkdate($val[tgl_periksa_bln_start], $val[tgl_periksa_tgl_start], $val[tgl_periksa_thn_start])) {
$objResponse->addAlert("Tanggal Awal Tidak Valid");
$objResponse->addScriptCall("fokus", "tgl_periksa_tgl_start");
} elseif(!checkdate($val[tgl_periksa_bln_end], $val[tgl_periksa_tgl_end], $val[tgl_periksa_thn_end])) {
$objResponse->addAlert("Tanggal Akhir Tidak Valid");
$objResponse->addScriptCall("fokus", "tgl_periksa_tgl_start");
} elseif($tgl_start > $tgl_end) {
$objResponse->addAlert("Tanggal Awal Harus Kurang Dari Tanggal Akhir");
$objResponse->addScriptCall("fokus", "tgl_periksa_tgl_start");
} else {
$objResponse->addScriptCall("xajax_get_pasien", $val);
}
return $objResponse;
}
function simpan_tracer_check($value) {
$cleaner = new FormCleaner;
$cleaner->setValue($value);
$cleaner->clean();
$val = $cleaner->getValue();
$objResponse = new xajaxResponse;
if(!$val[no_rm]) {
$objResponse->addAlert("Silakan Isi Nomor Rekam Medis");
$objResponse->addScriptCall("fokus", "no_rm");
} elseif(!$val[peminjam]) {
$objResponse->addAlert("Silakan Isi Peminjam");
$objResponse->addScriptCall("fokus", "peminjam");
} else {
$kon = new Konek;
$arr_no_rm = explode("\n", $val[no_rm]);
$str_no_rm = str_replace("\n", ", ", $val[no_rm]);
//$objResponse->addAlert($str_no_rm);
$kon->sql = "
SELECT
CONCAT_WS('-', SUBSTRING(trc.pasien_id, 1,2), SUBSTRING(trc.pasien_id, 3,2), SUBSTRING(trc.pasien_id, 5,2), SUBSTRING(trc.pasien_id, 7,2)) as no_rm,
kmr.nama as nama_kamar,
trc.peminjam as peminjam,
DATE_FORMAT(trc.tgl_keluar, '%d/%m/%y') as tgl_keluar,
p.nama as nama
FROM
tracer trc
LEFT JOIN kunjungan_kamar kk ON (kk.id = trc.kunjungan_kamar_id)
LEFT JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN pasien p ON (p.id = trc.pasien_id)
WHERE
trc.pasien_id IN (".$str_no_rm.")
AND trc.tgl_kembali IS NULL
";
$kon->execute();
$data = $kon->getAll();
if(!empty($data)) {
$str = "\n";
for($i=0;$i<sizeof($data);$i++) {
$str .= "---------------------------------------\n";
$str .= "No RM : " . $data[$i][no_rm] . "\n";
$str .= "Pasien : " . $data[$i][nama] . "\n";
$str .= "Tgl Keluar : " . $data[$i][tgl_keluar] . "\n";
if( $data[$i][peminjam]) $str .= "Peminjam : " . $data[$i][peminjam] . "\n";
if( $data[$i][nama_kamar]) $str .= "Pelayanan : " . $data[$i][nama_kamar] . "\n";
$str .= "---------------------------------------\n";
}
$objResponse->addAlert("Data Tidak Dapat Disimpan.\nNomor Rekam Medis Berikut Belum Kembali Ke Rak Penyimpanan :\n" . $str);
$objResponse->addScriptCall("fokus", "no_rm");
} else {
$objResponse->addScriptCall("xajax_simpan_tracer", $val, $arr_no_rm);
}
}
return $objResponse;
}
function submitForm($elems, $doneFunc = 'AjaxFormObj.checkDone', $errFunc = 'AjaxFormObj.checkError')
{
global $lbl, $txt;
$auth = R3AuthInstance::get();
$fieldDescr = array('app_code' => array(MISSING_FIELD => !isset($txt['missing_fld_app']) ? _("Il campo 'applicazione' e' obbligatorio") : $txt['missing_fld_app'], INVALID_FIELD => "Il campo 'codice' contiene caratteri non validi. Solo lettere e numeri sono accettati", PK_ERROR => "Il campo 'codice' immesso esiste gia'"), 'app_name' => array(MISSING_FIELD => "Il campo 'nome' e' obbligatorio"));
// print_r($elems);
$elems = AjaxSplitArray($elems);
//print_r($elems);
$objResponse = new xajaxResponse();
$error = array();
try {
if ($elems['act'] == 'add') {
/** add a new acname */
foreach (explode(',', str_replace(';', ',', $elems['ac_verb'])) as $verb) {
$auth->addACName($elems['app_code'], strtoupper(trim($verb)), strtoupper(trim($elems['ac_name'])), trim($elems['ac_descr']), trim($elems['ac_order']), strtoupper($elems['ac_active']) == 'T', array('ac_type' => strtoupper($elems['ac_type'])));
}
} else {
if ($elems['act'] == 'mod') {
/** modify an acname */
$auth->modACName($elems['old_app_code'], $elems['old_ac_verb'], $elems['old_ac_name'], $elems['app_code'], strtoupper(trim($elems['ac_verb'])), strtoupper(trim($elems['ac_name'])), trim($elems['ac_descr']), trim($elems['ac_order']), strtoupper($elems['ac_active']) == 'T', array('ac_type' => strtoupper($elems['ac_type'])));
} else {
if ($elems['act'] == 'del') {
/** delete an acname */
$auth->delACName($elems['app_code'], $elems['ac_verb'], $elems['ac_name']);
} else {
throw new Exception('Invalid action');
}
}
}
} catch (EPermissionDenied $e) {
$error['element'][] = '';
$error['message'][] = $e->getMessage();
} catch (EDatabaseError $e) {
$error['element'][] = '';
$error['message'][] = "Database error: " . $e->getMessage();
} catch (EInputError $e) {
$error['element'][] = $e->getField();
if (isset($fieldDescr[$e->getField()][$e->getCode()])) {
$error['message'][] = $fieldDescr[$e->getField()][$e->getCode()];
} else {
$error['message'][] = $e->getMessage();
}
} catch (Exception $e) {
$error['element'][] = '';
$error['message'][] = 'Generic error: ' . $e->getMessage();
}
// Action
if (count($error) > 0) {
$errText = (!isset($txt['err_store_failed']) ? _("Salvataggio fallito") . ":" : $txt['err_store_failed']) . "\n - " . implode("\n - ", $error['message']);
$objResponse->addScriptCall($errFunc, $errText, $error['element'][0]);
} else {
$objResponse->addScriptCall($doneFunc);
}
return $objResponse->getXML();
}
function callScript()
{
$response = new xajaxResponse();
$value2 = "this is a string";
$response->addScriptCall("myJSFunction", "arg1", 9432.120000000001, array("myKey" => "some value", "key2" => $value2));
return $response;
}
function tutup_resep_rawat_jalan() {
$objResponse = new xajaxResponse;
$objResponse->addScriptCall("enable_mainbar");
$objResponse->addAssign("modal_resep_rawat_jalan", "style.display", "none");
$objResponse->addScript("document.getElementById('input_resep_rawat_jalan').reset()");
return $objResponse;
}
function simpan_langsung_bayar($val) {
$kon = new Konek;
$objResponse = new xajaxResponse;
$kon->sql = "SELECT kb.id as id, kb.bayar_bhp as bayar_bhp, kb.bayar_jasa as bayar_jasa, kb.mampu_bayar_bhp as mampu_bayar_bhp, kb.mampu_bayar_jasa as mampu_bayar_jasa FROM kunjungan_bayar kb JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id) JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id) WHERE kk.kunjungan_id = '".$val[lb_id_kunjungan]."' AND kwd.kwitansi_id = '".$val[lb_id_kwitansi]."'";
$kon->execute();
$data = $kon->getAll();
if(!empty($data)) {
if($val[lb_mampu_bayar] < $val[lb_kurang]) $status = "ANGSUR";
else $status = "LUNAS";
$id_kwitansi = bikinKwitansi("KASIR", $val[lb_mampu_bayar], $status);
$mampu = round($val[lb_mampu_bayar]/$val[lb_kurang], 2);
//$objResponse->addAppend("debug", "innerHTML", $mampu . "<br />");
$tot = 0;
for($i=0;$i<sizeof($data);$i++) {
$data[$i][angsuran_bhp] = round($data[$i][bayar_bhp] * $mampu);
$data[$i][angsuran_jasa] = round($data[$i][bayar_jasa] * $mampu);
$data[$i][pertambahan_bhp] += $data[$i][angsuran_bhp]-$data[$i][mampu_bayar_bhp];
$data[$i][pertambahan_jasa] += $data[$i][angsuran_jasa]-$data[$i][mampu_bayar_jasa];
$tot += $data[$i][angsuran_bhp] + $data[$i][angsuran_jasa];
//$objResponse->addAppend("debug", "innerHTML", $data[$i][angsuran_bhp] . " - " . $data[$i][angsuran_jasa] . ", tot : ".$tot."<br />");
}
$selisih = ($val[lb_mampu_bayar]+$val[lb_sudah_dibayar]) - $tot;
//$objResponse->addAppend("debug", "innerHTML", "selisih : " . $selisih . ", mampu bayar : " .$val[lb_mampu_bayar]. ", tot : ".$tot."<br />");
if($data[0][angsuran_jasa]) {
$data[0][angsuran_jasa] += $selisih;
} else {
$data[0][angsuran_bhp] += $selisih;
}
for($i=0;$i<sizeof($data);$i++) {
$sql = "UPDATE kunjungan_bayar kb, kwitansi_detil kwd SET kb.mampu_bayar_bhp = '".$data[$i][angsuran_bhp]."', kb.mampu_bayar_jasa = '".$data[$i][angsuran_jasa]."' WHERE kwd.kunjungan_bayar_id = kb.id AND kb.id = '".$data[$i][id]."' AND kwd.kwitansi_id = '".$val[lb_id_kwitansi]."'";
//$objResponse->addAppend("debug", "innerHTML", nl2br($sql) . "<br />");
$kon->sql = $sql;
$kon->execute();
//pembayaran angsuran
$sql = "INSERT INTO kwitansi_detil(kunjungan_bayar_id, kwitansi_id, angsuran_bhp, angsuran_jasa) VALUES ('".$data[$i][id]."', '".$id_kwitansi."', '".$data[$i][pertambahan_bhp]."', '".$data[$i][pertambahan_jasa]."')";
//$objResponse->addAppend("debug", "innerHTML", nl2br($sql) . "<br />");
$kon->sql = $sql;
$kon->execute();
}
$id_kwitansi = tambahNol($id_kwitansi, 20);
$objResponse->addScriptCall("cetak_kwitansi", "KASIR-" . $id_kwitansi);
$objResponse->addScriptCall("show_status_simpan");
} else {
$objResponse->addAlert("Data Pembayaran Tidak Dapat Dirubah, karena : \n1. Kwitansi Sudah Dibuat atau\n2. Belum Terjadi Transaksi!");
}
$objResponse->addScriptCall("tutup_modal_lb");
//$objResponse->addAssign("debug", "innerHTML", $sql);
return $objResponse;
}
function reset_dokter () {
$objResponse = new xajaxResponse();
$objResponse->addClear("id_dokter", "value");
$objResponse->addClear("nama", "value");
$objResponse->addClear("alamat", "value");
$objResponse->addClear("telp", "value");
$objResponse->addScriptCall("fokus", "spesialisasi_id");
return $objResponse;
}
function buka_langsung_bayar($idkk) {
unset($_SESSION[igd][langsung_bayar]);
$kon = new Konek;
//$kon->debug = 1;
$objResponse = new xajaxResponse;
//get data pasien
$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 id_display,
p.nama as nama,
p.tgl_lahir as tgl_lahir,
CONCAT(p.alamat, ' ', IF(p.rt = '','',CONCAT(' RT ', p.rt)), IF(p.rw = '','',CONCAT(' RW ', p.rw)), ', ', des.nama, ', ', kec.nama, ', ', kab.nama) as alamat,
kk.tgl_periksa as tgl_periksa,
CONCAT_WS(' - ', pel.jenis, pel.nama) as nama_pelayanan,
p.sex as jk,
CONCAT_WS(' - ', kk.cara_bayar, kk.jenis_askes, rper.nama) as cara_bayar,
kk.nomor as nomor
FROM
kunjungan_kamar kk
JOIN kunjungan k ON (k.id = kk.kunjungan_id)
JOIN pasien p ON (p.id = k.pasien_id)
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id)
JOIN ref_desa des ON (des.id = p.desa_id)
JOIN ref_kecamatan kec ON (kec.id = des.kecamatan_id)
JOIN ref_kabupaten kab ON (kab.id = kec.kabupaten_id)
JOIN ref_propinsi prop ON (prop.id = kab.propinsi_id)
LEFT JOIN ref_perusahaan rper ON (rper.id = kk.perusahaan_id)
WHERE
kk.id = '".$idkk."'
GROUP BY
p.id
";
$kon->execute();
$data_pasien = $kon->getOne();
$arr_usia = hitungUmur($data_pasien[tgl_lahir], $data_pasien[tgl_periksa]);
$data_pasien[usia] = empty($arr_usia[tahun])?"":$arr_usia[tahun] . " thn ";
$data_pasien[usia] .= empty($arr_usia[bulan])?"":$arr_usia[bulan] . " bln ";
$data_pasien[usia] .= empty($arr_usia[hari])?"":$arr_usia[hari] . " hr ";
$objResponse->addClear("modal_lb", "style.display");
$objResponse->addAssign("lb_id_kunjungan_kamar", "value", $idkk);
$objResponse->addAssign("lb_no_rm", "innerHTML", $data_pasien[id_display]);
$objResponse->addAssign("lb_pasien", "innerHTML", $data_pasien[nama]);
$objResponse->addAssign("lb_sex", "innerHTML", $data_pasien[jk]);
$objResponse->addAssign("lb_usia", "innerHTML", $data_pasien[usia]);
$objResponse->addAssign("lb_alamat", "innerHTML", $data_pasien[alamat]);
$objResponse->addAssign("lb_tgl_periksa", "innerHTML", tanggalIndo($data_pasien[tgl_periksa], 'j F Y'));
$objResponse->addAssign("lb_cara_bayar", "innerHTML", $data_pasien[cara_bayar]);
$objResponse->addAssign("lb_pelayanan", "innerHTML", $data_pasien[nama_pelayanan]);
$objResponse->addAssign("lb_nomor", "innerHTML", empty($data_pasien[nomor])?"-":$data_pasien[nomor]);
//BIKIN SESSION UNTUK DICETAK
$_SESSION[igd][langsung_bayar][data_px] = $data_pasien;
$tabel = new Table;
$tabel->cellspacing = "0";
$tabel->scroll = false;
$tabel->extra_table = "style=\"width:9cm;\"";
$tabel->addTh("No", "Jasa", "Biaya");
$tabel->addExtraTh("style=\"width:0.7cm;\"", "style=\"width:6.5cm;\"", "");
//get data karcis
$kon->sql = "
SELECT
kb.nama as nama,
kb.bayar_bhp+kb.bayar_jasa as bayar,
kb.mampu_bayar_bhp+kb.mampu_bayar_jasa as mampu_bayar,
kwd.kwitansi_id as kwitansi_id
FROM
kunjungan_bayar kb
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
LEFT JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
WHERE
kb.karcis_id IS NOT NULL
AND kk.id = '".$idkk."'
GROUP BY
kb.id
ORDER BY kb.id
";
$kon->execute();
$data_karcis = $kon->getAll();
if(!empty($data_karcis)) {
$tabel->addRow("","<b>Karcis</b>","");
for($i=0;$i<sizeof($data_karcis);$i++) {
$tabel->addRow(
($i+1),
$data_karcis[$i][nama],
uangIndo($data_karcis[$i][bayar])
);
$total += $data_karcis[$i][bayar];
$sudah_dibayar += $data_karcis[$i][mampu_bayar];
//belum bayar
if(!$data_karcis[$i][kwitansi_id]) $kurang += $data_karcis[$i][bayar];
}
}
//get data tindakan
$kon->sql = "
SELECT
kki.nama as nama,
SUM(kb.bayar_jasa) as bayar,
SUM(kb.mampu_bayar_jasa) as mampu_bayar,
kwd.kwitansi_id as kwitansi_id
FROM
kunjungan_kamar_icopim kki
JOIN kunjungan_bayar kb ON (kb.kunjungan_kamar_icopim_id = kki.id)
LEFT JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
WHERE
kb.icopim_detil_id IS NOT NULL
AND kki.kunjungan_kamar_id = '".$idkk."'
GROUP BY
kki.id
ORDER BY kki.id
";
$kon->execute();
$data_tindakan = $kon->getAll();
if(!empty($data_tindakan)) {
$tabel->addRow("","<b>Tindakan</b>","");
for($i=0;$i<sizeof($data_tindakan);$i++) {
$tabel->addRow(
($i+1),
$data_tindakan[$i][nama],
uangIndo($data_tindakan[$i][bayar])
);
$total += $data_tindakan[$i][bayar];
$sudah_dibayar += $data_tindakan[$i][mampu_bayar];
//belum bayar
if(!$data_tindakan[$i][kwitansi_id]) $kurang += $data_tindakan[$i][bayar];
}
}
//get data bhp
$kon->sql = "
SELECT
kb.nama as nama,
kb.bayar_bhp as bayar,
kb.mampu_bayar_bhp as mampu_bayar,
kwd.kwitansi_id as kwitansi_id
FROM
kunjungan_bayar kb
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
LEFT JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
WHERE
kb.bhp_id IS NOT NULL
AND kk.id = '".$idkk."'
GROUP BY
kb.id
ORDER BY kb.id
";
$kon->execute();
$data_bhp = $kon->getAll();
if(!empty($data_bhp)) {
$tabel->addRow("","<b>Bahan Habis Pakai</b>","");
for($i=0;$i<sizeof($data_bhp);$i++) {
$tabel->addRow(
($i+1),
$data_bhp[$i][nama],
uangIndo($data_bhp[$i][bayar])
);
$total += $data_bhp[$i][bayar];
$sudah_dibayar += $data_bhp[$i][mampu_bayar];
//belum bayar
if(!$data_bhp[$i][kwitansi_id]) $kurang += $data_bhp[$i][bayar];
}
}
$tabel->addRow("","<b>Total</b>", uangIndo($total));
$tabel_jasa = $tabel->build();
$tabel_jasa .= "<br />Terbilang : <i>" . terbilang($total) . "</i>";
$objResponse->addAssign("lb_list_jasa", "innerHTML", $tabel_jasa);
$objResponse->addScriptCall("disable_mainbar", "#E5E6E1");
return $objResponse;
}
function simpan_kunjungan($value, $langsung_bayar = false, $tutup_modal = true) {
$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();
//update
$sql = "
UPDATE
kunjungan_kamar
SET
dokter_id = NULLIF('".$val[input_dokter_id]."', ''),
kelanjutan = NULLIF('".$val[input_kelanjutan]."',''),
diagnosa_utama_id = NULLIF('".$val[input_diagnosa_utama]."', ''),
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->affected_rows;
$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]*$val[input_karcis_biaya][$kunci]/($val[input_karcis_biaya_bhp][$kunci]+$val[input_karcis_biaya_jasa][$kunci]));
$biaya_jasa = round($val[input_karcis_biaya_jasa][$kunci]*$val[input_karcis_biaya][$kunci]/($val[input_karcis_biaya_bhp][$kunci]+$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]*$val[input_karcis_bayar][$kunci]/($val[input_karcis_biaya_bhp][$kunci]+$val[input_karcis_biaya_jasa][$kunci]));
$bayar_jasa = round($val[input_karcis_biaya_jasa][$kunci]*$val[input_karcis_bayar][$kunci]/($val[input_karcis_biaya_bhp][$kunci]+$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,*/
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]."',
/*'".$val[input_karcis_bayar][$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 = '".$val[input_karcis_bayar][$kunci]."',*/
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", $parent . "<br /><br />");
/*diinsert satu satu*/
for($j=0;$j<sizeof($val[input_icopim_detil_field][$parent]);$j++) {
$field = "";
$field = $val[input_icopim_detil_field][$parent][$j];
/*
$netto = $val[input_icopim_detil_bayar][$parent][$field] * $val[input_icopim_detil_netto][$parent];
$zakat = $val[input_icopim_detil_bayar][$parent][$field] * $val[input_icopim_detil_netto][$parent] * $val[input_icopim_detil_zakat][$parent];
$pajak = $val[input_icopim_detil_bayar][$parent][$field] * $val[input_icopim_detil_pajak][$parent];
*/
//$objResponse->addAppend("debug", "innerHTML", $field . " => " . $val[input_icopim_detil_bayar][$parent][$field] . "<br />");
if($field == "jasa_rumah_sakit") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa, sifat, jumlah, bayar_jasa, jasa_p, jasa_rs, jasa_rs_op, jasa_rs_kembang, jasa_rs_adm, jasa_rs_sdm) SELECT '".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$parent]."', '".$val[input_icopim_detil_hak][$parent][$j]."', '".$val[input_icopim_detil_biaya][$parent][$j]."', '".$val[input_icopim_detil_sifat][$parent][$j]."', '".$val[input_icopim_detil_jml][$parent][$j]."', '".$val[input_icopim_detil_bayar][$parent][$j]."', jasa_p, jasa_rs, jasa_rs_op, jasa_rs_kembang, jasa_rs_adm, jasa_rs_sdm FROM icopim_detil WHERE id = '".$val[input_icopim_detil][$parent]."'";
} elseif($field == "spesialis") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa, sifat, jumlah, bayar_jasa, spesialis, pajak, zakat, netto) SELECT '".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$parent]."', '".$val[input_icopim_detil_hak][$parent][$j]."', '".$val[input_icopim_detil_biaya][$parent][$j]."', '".$val[input_icopim_detil_sifat][$parent][$j]."', '".$val[input_icopim_detil_jml][$parent][$j]."', '".$val[input_icopim_detil_bayar][$parent][$j]."', netto, pajak, zakat, netto FROM icopim_detil WHERE id = '".$val[input_icopim_detil][$parent]."'";
} elseif($field == "spesialis_pendamping") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa, sifat, jumlah, bayar_jasa, spesialis_pendamping, pajak, zakat, netto) SELECT '".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$parent]."', '".$val[input_icopim_detil_hak][$parent][$j]."', '".$val[input_icopim_detil_biaya][$parent][$j]."', '".$val[input_icopim_detil_sifat][$parent][$j]."', '".$val[input_icopim_detil_jml][$parent][$j]."', '".$val[input_icopim_detil_bayar][$parent][$j]."', netto, pajak, zakat, netto FROM icopim_detil WHERE id = '".$val[input_icopim_detil][$parent]."'";
} elseif($field == "perawat_perinatologi") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa, sifat, jumlah, bayar_jasa, perawat_perinatologi, pajak, zakat, netto) SELECT '".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$parent]."', '".$val[input_icopim_detil_hak][$parent][$j]."', '".$val[input_icopim_detil_biaya][$parent][$j]."', '".$val[input_icopim_detil_sifat][$parent][$j]."', '".$val[input_icopim_detil_jml][$parent][$j]."', '".$val[input_icopim_detil_bayar][$parent][$j]."', netto, pajak, zakat, netto FROM icopim_detil WHERE id = '".$val[input_icopim_detil][$parent]."'";
} elseif($field == "dr_umum") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa, sifat, jumlah, bayar_jasa, dr_umum, pajak, zakat, netto) SELECT '".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$parent]."', '".$val[input_icopim_detil_hak][$parent][$j]."', '".$val[input_icopim_detil_biaya][$parent][$j]."', '".$val[input_icopim_detil_sifat][$parent][$j]."', '".$val[input_icopim_detil_jml][$parent][$j]."', '".$val[input_icopim_detil_bayar][$parent][$j]."', netto, pajak, zakat, netto FROM icopim_detil WHERE id = '".$val[input_icopim_detil][$parent]."'";
} elseif($field == "dr_gigi") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa, sifat, jumlah, bayar_jasa, dr_gigi, pajak, zakat, netto) SELECT '".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$parent]."', '".$val[input_icopim_detil_hak][$parent][$j]."', '".$val[input_icopim_detil_biaya][$parent][$j]."', '".$val[input_icopim_detil_sifat][$parent][$j]."', '".$val[input_icopim_detil_jml][$parent][$j]."', '".$val[input_icopim_detil_bayar][$parent][$j]."', netto, pajak, zakat, netto FROM icopim_detil WHERE id = '".$val[input_icopim_detil][$parent]."'";
} elseif($field == "assisten_non_dokter") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa, sifat, jumlah, bayar_jasa, assisten_non_dokter, pajak, zakat, netto) SELECT '".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$parent]."', '".$val[input_icopim_detil_hak][$parent][$j]."', '".$val[input_icopim_detil_biaya][$parent][$j]."', '".$val[input_icopim_detil_sifat][$parent][$j]."', '".$val[input_icopim_detil_jml][$parent][$j]."', '".$val[input_icopim_detil_bayar][$parent][$j]."', netto, pajak, zakat, netto FROM icopim_detil WHERE id = '".$val[input_icopim_detil][$parent]."'";
} elseif($field == "spesialis_anestesi") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa, sifat, jumlah, bayar_jasa, spesialis_anestesi, pajak, zakat, netto) SELECT '".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$parent]."', '".$val[input_icopim_detil_hak][$parent][$j]."', '".$val[input_icopim_detil_biaya][$parent][$j]."', '".$val[input_icopim_detil_sifat][$parent][$j]."', '".$val[input_icopim_detil_jml][$parent][$j]."', '".$val[input_icopim_detil_bayar][$parent][$j]."', netto, pajak, zakat, netto FROM icopim_detil WHERE id = '".$val[input_icopim_detil][$parent]."'";
} elseif($field == "aknest") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa, sifat, jumlah, bayar_jasa, aknest, pajak, zakat, netto) SELECT '".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$parent]."', '".$val[input_icopim_detil_hak][$parent][$j]."', '".$val[input_icopim_detil_biaya][$parent][$j]."', '".$val[input_icopim_detil_sifat][$parent][$j]."', '".$val[input_icopim_detil_jml][$parent][$j]."', '".$val[input_icopim_detil_bayar][$parent][$j]."', netto, pajak, zakat, netto FROM icopim_detil WHERE id = '".$val[input_icopim_detil][$parent]."'";
} elseif($field == "gizi") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa, sifat, jumlah, bayar_jasa, gizi, pajak, zakat, netto) SELECT '".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$parent]."', '".$val[input_icopim_detil_hak][$parent][$j]."', '".$val[input_icopim_detil_biaya][$parent][$j]."', '".$val[input_icopim_detil_sifat][$parent][$j]."', '".$val[input_icopim_detil_jml][$parent][$j]."', '".$val[input_icopim_detil_bayar][$parent][$j]."', netto, pajak, zakat, netto FROM icopim_detil WHERE id = '".$val[input_icopim_detil][$parent]."'";
} elseif($field == "fisioterapi") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa, sifat, jumlah, bayar_jasa, fisioterapi, pajak, zakat, netto) SELECT '".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$parent]."', '".$val[input_icopim_detil_hak][$parent][$j]."', '".$val[input_icopim_detil_biaya][$parent][$j]."', '".$val[input_icopim_detil_sifat][$parent][$j]."', '".$val[input_icopim_detil_jml][$parent][$j]."', '".$val[input_icopim_detil_bayar][$parent][$j]."', netto, pajak, zakat, netto FROM icopim_detil WHERE id = '".$val[input_icopim_detil][$parent]."'";
} elseif($field == "analis_pa") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa, sifat, jumlah, bayar_jasa, analis_pa, pajak, zakat, netto) SELECT '".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$parent]."', '".$val[input_icopim_detil_hak][$parent][$j]."', '".$val[input_icopim_detil_biaya][$parent][$j]."', '".$val[input_icopim_detil_sifat][$parent][$j]."', '".$val[input_icopim_detil_jml][$parent][$j]."', '".$val[input_icopim_detil_bayar][$parent][$j]."', netto, pajak, zakat, netto FROM icopim_detil WHERE id = '".$val[input_icopim_detil][$parent]."'";
} elseif($field == "bidan") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa, sifat, jumlah, bayar_jasa, bidan, pajak, zakat, netto) SELECT '".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$parent]."', '".$val[input_icopim_detil_hak][$parent][$j]."', '".$val[input_icopim_detil_biaya][$parent][$j]."', '".$val[input_icopim_detil_sifat][$parent][$j]."', '".$val[input_icopim_detil_jml][$parent][$j]."', '".$val[input_icopim_detil_bayar][$parent][$j]."', netto, pajak, zakat, netto FROM icopim_detil WHERE id = '".$val[input_icopim_detil][$parent]."'";
} elseif($field == "perawat") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa, sifat, jumlah, bayar_jasa, perawat, pajak, zakat, netto) SELECT '".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$parent]."', '".$val[input_icopim_detil_hak][$parent][$j]."', '".$val[input_icopim_detil_biaya][$parent][$j]."', '".$val[input_icopim_detil_sifat][$parent][$j]."', '".$val[input_icopim_detil_jml][$parent][$j]."', '".$val[input_icopim_detil_bayar][$parent][$j]."', netto, pajak, zakat, netto FROM icopim_detil WHERE id = '".$val[input_icopim_detil][$parent]."'";
} elseif($field == "penunjang") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kamar_icopim_id, icopim_detil_id, hak_id, biaya_jasa, sifat, jumlah, bayar_jasa, penunjang, pajak, zakat, netto) SELECT '".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_icopim_detil][$parent]."', '".$val[input_icopim_detil_hak][$parent][$j]."', '".$val[input_icopim_detil_biaya][$parent][$j]."', '".$val[input_icopim_detil_sifat][$parent][$j]."', '".$val[input_icopim_detil_jml][$parent][$j]."', '".$val[input_icopim_detil_bayar][$parent][$j]."', netto, pajak, zakat, netto FROM icopim_detil WHERE id = '".$val[input_icopim_detil][$parent]."'";
} else {
//lain-lain
}
//$objResponse->addAppend("debug", "innerHTML", $sql . "<br /><br />");
$kon->sql = $sql;
$kon->execute();
}
} else {
//UPDATE
/*diinsert satu satu*/
for($j=0;$j<sizeof($val[input_icopim_detil_field][$parent]);$j++) {
$field = "";
$field = $val[input_icopim_detil_field][$parent][$j];
/*
$netto = $val[input_icopim_detil_bayar][$parent][$field] * $val[input_icopim_detil_netto][$parent];
$zakat = $val[input_icopim_detil_bayar][$parent][$field] * $val[input_icopim_detil_netto][$parent] * $val[input_icopim_detil_zakat][$parent];
$pajak = $val[input_icopim_detil_bayar][$parent][$field] * $val[input_icopim_detil_pajak][$parent];
*/
//$objResponse->addAppend("debug", "innerHTML", $field . " => " . $val[input_icopim_detil_bayar][$parent][$field] . "<br />");
if($field == "jasa_rumah_sakit") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_detil_hak][$parent][$j]."', biaya_jasa = '".$val[input_icopim_detil_biaya][$parent][$j]."', sifat = '".$val[input_icopim_detil_sifat][$parent][$j]."', jumlah = '".$val[input_icopim_detil_jml][$parent][$j]."', bayar_jasa = '".$val[input_icopim_detil_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_icopim_detil_id][$parent][$j]."'";
} elseif($field == "spesialis") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_detil_hak][$parent][$j]."', biaya_jasa = '".$val[input_icopim_detil_biaya][$parent][$j]."', sifat = '".$val[input_icopim_detil_sifat][$parent][$j]."',jumlah = '".$val[input_icopim_detil_jml][$parent][$j]."', bayar_jasa = '".$val[input_icopim_detil_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_icopim_detil_id][$parent][$j]."'";
} elseif($field == "spesialis_pendamping") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_detil_hak][$parent][$j]."', biaya_jasa = '".$val[input_icopim_detil_biaya][$parent][$j]."', sifat = '".$val[input_icopim_detil_sifat][$parent][$j]."',jumlah = '".$val[input_icopim_detil_jml][$parent][$j]."', bayar_jasa = '".$val[input_icopim_detil_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_icopim_detil_id][$parent][$j]."'";
} elseif($field == "perawat_perinatologi") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_detil_hak][$parent][$j]."', biaya_jasa = '".$val[input_icopim_detil_biaya][$parent][$j]."', sifat = '".$val[input_icopim_detil_sifat][$parent][$j]."',jumlah = '".$val[input_icopim_detil_jml][$parent][$j]."', bayar_jasa = '".$val[input_icopim_detil_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_icopim_detil_id][$parent][$j]."'";
} elseif($field == "dr_umum") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_detil_hak][$parent][$j]."', biaya_jasa = '".$val[input_icopim_detil_biaya][$parent][$j]."', sifat = '".$val[input_icopim_detil_sifat][$parent][$j]."',jumlah = '".$val[input_icopim_detil_jml][$parent][$j]."', bayar_jasa = '".$val[input_icopim_detil_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_icopim_detil_id][$parent][$j]."'";
} elseif($field == "dr_gigi") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_detil_hak][$parent][$j]."', biaya_jasa = '".$val[input_icopim_detil_biaya][$parent][$j]."', sifat = '".$val[input_icopim_detil_sifat][$parent][$j]."',jumlah = '".$val[input_icopim_detil_jml][$parent][$j]."', bayar_jasa = '".$val[input_icopim_detil_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_icopim_detil_id][$parent][$j]."'";
} elseif($field == "assisten_non_dokter") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_detil_hak][$parent][$j]."', biaya_jasa = '".$val[input_icopim_detil_biaya][$parent][$j]."', sifat = '".$val[input_icopim_detil_sifat][$parent][$j]."',jumlah = '".$val[input_icopim_detil_jml][$parent][$j]."', bayar_jasa = '".$val[input_icopim_detil_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_icopim_detil_id][$parent][$j]."'";
} elseif($field == "spesialis_anestesi") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_detil_hak][$parent][$j]."', biaya_jasa = '".$val[input_icopim_detil_biaya][$parent][$j]."', sifat = '".$val[input_icopim_detil_sifat][$parent][$j]."',jumlah = '".$val[input_icopim_detil_jml][$parent][$j]."', bayar_jasa = '".$val[input_icopim_detil_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_icopim_detil_id][$parent][$j]."'";
} elseif($field == "aknest") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_detil_hak][$parent][$j]."', biaya_jasa = '".$val[input_icopim_detil_biaya][$parent][$j]."', sifat = '".$val[input_icopim_detil_sifat][$parent][$j]."',jumlah = '".$val[input_icopim_detil_jml][$parent][$j]."', bayar_jasa = '".$val[input_icopim_detil_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_icopim_detil_id][$parent][$j]."'";
} elseif($field == "gizi") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_detil_hak][$parent][$j]."', biaya_jasa = '".$val[input_icopim_detil_biaya][$parent][$j]."', sifat = '".$val[input_icopim_detil_sifat][$parent][$j]."',jumlah = '".$val[input_icopim_detil_jml][$parent][$j]."', bayar_jasa = '".$val[input_icopim_detil_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_icopim_detil_id][$parent][$j]."'";
} elseif($field == "fisioterapi") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_detil_hak][$parent][$j]."', biaya_jasa = '".$val[input_icopim_detil_biaya][$parent][$j]."', sifat = '".$val[input_icopim_detil_sifat][$parent][$j]."',jumlah = '".$val[input_icopim_detil_jml][$parent][$j]."', bayar_jasa = '".$val[input_icopim_detil_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_icopim_detil_id][$parent][$j]."'";
} elseif($field == "analis_pa") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_detil_hak][$parent][$j]."', biaya_jasa = '".$val[input_icopim_detil_biaya][$parent][$j]."', sifat = '".$val[input_icopim_detil_sifat][$parent][$j]."',jumlah = '".$val[input_icopim_detil_jml][$parent][$j]."', bayar_jasa = '".$val[input_icopim_detil_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_icopim_detil_id][$parent][$j]."'";
} elseif($field == "bidan") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_detil_hak][$parent][$j]."', biaya_jasa = '".$val[input_icopim_detil_biaya][$parent][$j]."', sifat = '".$val[input_icopim_detil_sifat][$parent][$j]."',jumlah = '".$val[input_icopim_detil_jml][$parent][$j]."', bayar_jasa = '".$val[input_icopim_detil_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_icopim_detil_id][$parent][$j]."'";
} elseif($field == "perawat") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_detil_hak][$parent][$j]."', biaya_jasa = '".$val[input_icopim_detil_biaya][$parent][$j]."', sifat = '".$val[input_icopim_detil_sifat][$parent][$j]."',jumlah = '".$val[input_icopim_detil_jml][$parent][$j]."', bayar_jasa = '".$val[input_icopim_detil_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_icopim_detil_id][$parent][$j]."'";
} elseif($field == "penunjang") {
//penunjang
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_icopim_detil_hak][$parent][$j]."', biaya_jasa = '".$val[input_icopim_detil_biaya][$parent][$j]."', sifat = '".$val[input_icopim_detil_sifat][$parent][$j]."',jumlah = '".$val[input_icopim_detil_jml][$parent][$j]."', bayar_jasa = '".$val[input_icopim_detil_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_icopim_detil_id][$parent][$j]."'";
} else {
//lain-lain
}
//$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();
} 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]);
}
//KENDARAAN
for($i=0;$i<sizeof($val[input_kendaraan_jenis]);$i++) {
$parent = key($val[input_kendaraan_jenis]);
//get
if(!$val[input_kunjungan_kendaraan_id][$parent] && $val[input_kendaraan_jenis][$parent]) {
//insert
$sql = "INSERT INTO kunjungan_kendaraan (kunjungan_kamar_id, nama, jarak_tempuh, harga_bbm, tgl) VALUES ('".$val[input_id_kunjungan_kamar]."', '".$val[input_kendaraan_jenis][$parent]."', '".$val[input_jarak_tempuh]."', '".$val[input_harga_bbm]."', NOW())";
$kon->sql = $sql;
$kon->execute();
$id_kki = $kon->last_id;
if($val[input_kendaraan_jenis][$parent] == "SEWA AMBULANCE") {
$jasa_p = '0.75';
$jasa_rs = '0.25';
$jasa_rs_op = '0.2';
$jasa_rs_kembang = '0.025';
$jasa_rs_adm = '0.025';
} else {
//SEWA MOBIL JENAZAH
$jasa_p = '0.5';
$jasa_rs = '0.5';
$jasa_rs_op = '0.4';
$jasa_rs_kembang = '0.05';
$jasa_rs_adm = '0.05';
}
/*diinsert satu satu*/
/*
$data[bahan_habis_pakai] = round(0.5 * $biaya);
$data[jasa_rumah_sakit] = round(0.25 * $biaya);
$data[rumah_tangga] = round(0.0375 * $biaya);
$data[sopir] = round(0.10625 * $biaya);
$data[perawat] = round(0.10625 * $biaya);
*/
for($j=0;$j<sizeof($val[input_kendaraan_field][$parent]);$j++) {
$field = "";
$field = $val[input_kendaraan_field][$parent][$j];
if($field == "jasa_rumah_sakit") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kendaraan_id, hak_id, biaya_jasa, bayar_jasa, jasa_p, jasa_rs, jasa_rs_op, jasa_rs_kembang, jasa_rs_adm) VALUES ('".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_kendaraan_hak][$parent][$j]."', '".$val[input_kendaraan_biaya][$parent][$j]."', '".$val[input_kendaraan_bayar][$parent][$j]."', '".$jasa_p."', '".$jasa_rs."', '".$jasa_rs_op."', '".$jasa_rs_kembang."', '".$jasa_rs_adm."')";
} elseif($field == "bahan_habis_pakai") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kendaraan_id, hak_id, biaya_bhp, bayar_bhp, bhp_rs, bhp_rs_op) VALUES ('".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_kendaraan_hak][$parent][$j]."', '".$val[input_kendaraan_biaya][$parent][$j]."', '".$val[input_kendaraan_bayar][$parent][$j]."', '1', '1')";
} elseif($field == "rumah_tangga") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kendaraan_id, hak_id, biaya_jasa, bayar_jasa, grabaf, netto) VALUES ('".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_kendaraan_hak][$parent][$j]."', '".$val[input_kendaraan_biaya][$parent][$j]."', '".$val[input_kendaraan_bayar][$parent][$j]."', '1', '1')";
} elseif($field == "sopir") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kendaraan_id, hak_id, biaya_jasa, bayar_jasa, grabaf, netto) VALUES ('".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_kendaraan_hak][$parent][$j]."', '".$val[input_kendaraan_biaya][$parent][$j]."', '".$val[input_kendaraan_bayar][$parent][$j]."', '1', '1')";
} elseif($field == "perawat") {
$sql = "INSERT INTO kunjungan_bayar (nama, kunjungan_kamar_id, kunjungan_kendaraan_id, hak_id, biaya_jasa, bayar_jasa, perawat, netto) VALUES ('".$field."', '".$val[input_id_kunjungan_kamar]."', '".$id_kki."', '".$val[input_kendaraan_hak][$parent][$j]."', '".$val[input_kendaraan_biaya][$parent][$j]."', '".$val[input_kendaraan_bayar][$parent][$j]."', '1','1')";
} else {
//lain-lain
}
//$objResponse->addAppend("debug", "innerHTML", $sql . "<br /><br />");
$kon->sql = $sql;
$kon->execute();
}
} else {
//UPDATE
$sqlup = "UPDATE kunjungan_kendaraan SET jarak_tempuh = '".$val[input_jarak_tempuh]."', harga_bbm = '".$val[input_harga_bbm]."' WHERE id = '".$val[input_kunjungan_kendaraan_id][$parent]."'";
$kon->sql = $sqlup;
$kon->execute();
/*diinsert satu satu*/
for($j=0;$j<sizeof($val[input_kendaraan_field][$parent]);$j++) {
$field = "";
$field = $val[input_kendaraan_field][$parent][$j];
//$objResponse->addAppend("debug", "innerHTML", $field . " => " . $val[input_icopim_detil_bayar][$parent][$field] . "<br />");
if($field == "jasa_rumah_sakit") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_kendaraan_hak][$parent][$j]."', biaya_jasa = '".$val[input_kendaraan_biaya][$parent][$j]."', bayar_jasa = '".$val[input_kendaraan_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_bayar_id][$parent][$j]."'";
} elseif($field == "bahan_habis_pakai") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_kendaraan_hak][$parent][$j]."', biaya_bhp = '".$val[input_kendaraan_biaya][$parent][$j]."', bayar_bhp = '".$val[input_kendaraan_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_bayar_id][$parent][$j]."'";
} elseif($field == "rumah_tangga") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_kendaraan_hak][$parent][$j]."', biaya_jasa = '".$val[input_kendaraan_biaya][$parent][$j]."', bayar_jasa = '".$val[input_kendaraan_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_bayar_id][$parent][$j]."'";
} elseif($field == "sopir") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_kendaraan_hak][$parent][$j]."', biaya_jasa = '".$val[input_kendaraan_biaya][$parent][$j]."', bayar_jasa = '".$val[input_kendaraan_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_bayar_id][$parent][$j]."'";
} elseif($field == "perawat") {
$sql = "UPDATE kunjungan_bayar SET hak_id = '".$val[input_kendaraan_hak][$parent][$j]."', biaya_jasa = '".$val[input_kendaraan_biaya][$parent][$j]."', bayar_jasa = '".$val[input_kendaraan_bayar][$parent][$j]."' WHERE id = '".$val[input_kunjungan_bayar_id][$parent][$j]."'";
} else {
//lain-lain
}
//$objResponse->addAppend("debug", "innerHTML", $field . " => " . $sql . "<br /><br />");
$kon->sql = $sql;
$kon->execute();
} //endfor
}
next($val[input_kendaraan_jenis]);
}
//simpan di database apotek
//pasien id
$usercreated = $_SESSION["username"];
$unit_id = 4;
$tgl=date("d/m/Y");
if (!$val[input_no_resep]) {
$sql="insert into db_apotek.resep_head (no_resep,param_no,pasien_id,created_datetime,created_user,tgl,unit_id)
values('".$val[input_no_resep]."','".$val[input_param_no]."','".$val[input_pasien_id]."',now(),'$usercreated','$tgl','$unit_id')";
$kon->sql = $sql;
$kon->execute();
}
else
{
$sql="update db_apotek.resep_head
set
param_no='".$val[input_param_no]."',
pasien_id='".$val[input_pasien_id]."',
created_datetime= now(),
created_user = '******',
tgl='$tgl',
unit_id=4
where
no_resep = '".$val[input_no_resep]."'";
$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)
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]."','".$val[input_bhp_sifat][$i]."')";
$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 submitForm($elems, $doneFunc = 'AjaxFormObj.checkDone', $errFunc = 'AjaxFormObj.checkError')
{
global $lbl, $txt, $users_extra_fields;
$auth = R3AuthInstance::get();
$fieldDescr = array('app_code' => array(MISSING_FIELD => _("Il campo 'applicazione' e' obbligatorio"), INVALID_FIELD => _("Il campo 'applicazione' contiene caratteri non validi. Solo lettere e numeri sono accettati"), PK_ERROR => _("Il campo 'codice' immesso esiste gia'")), 'app_name' => array(MISSING_FIELD => _("Il campo 'nome' e' obbligatorio")));
// print_r($elems);
$elems = AjaxSplitArray($elems);
// print_r($elems);
$objResponse = new xajaxResponse();
/** User extra field for the common section */
$extra_fields = $auth->getConfigValue('USER_MANAGER', 'EXTRA_FIELDS', array());
if (isset($users_extra_fields)) {
$extra_fields = array_merge($extra_fields, $users_extra_fields);
}
$error = array();
try {
$errors = checkReq($extra_fields, $elems);
if (!empty($errors)) {
$errorMsg = implode('\\n', $errors);
throw new Exception($errorMsg);
}
if ($auth->passwordStatus < 0 && $elems['us_password'] == '') {
throw new Exception('Password must be set');
}
/** Extra fields in user table */
$extras = array();
foreach ($extra_fields as $key => $val) {
if (!isset($val['inistorage']) && !isset($val['kind'])) {
if (isset($elems[$key])) {
$extras[$key] = $elems[$key];
}
}
}
/** password check */
if ($elems['us_password'] != '' && $elems['us_password'] != $elems['us_password2']) {
throw new Exception('Invalid password');
}
if ($elems['us_password'] != '') {
$auth->setParam('us_password', $elems['us_password'], true);
}
foreach ($extras as $key => $val) {
$auth->setParam($key, $val, true);
}
/** Extra fields in user table */
foreach ($extra_fields as $key => $val) {
if (isset($val['inistorage']) && !isset($val['kind'])) {
if (isset($elems[$key])) {
$auth->setConfigValue($val['inistorage'][0], $val['inistorage'][1], $elems[$key]);
}
}
}
} catch (EPermissionDenied $e) {
$error['element'][] = '';
$error['message'][] = $e->getMessage();
} catch (EDatabaseError $e) {
$error['element'][] = '';
$error['message'][] = "Database error: " . $e->getMessage();
} catch (EInputError $e) {
$error['element'][] = $e->getField();
if (isset($fieldDescr[$e->getField()][$e->getCode()])) {
$error['message'][] = $fieldDescr[$e->getField()][$e->getCode()];
} else {
$error['message'][] = $e->getMessage();
}
} catch (Exception $e) {
$error['element'][] = '';
//$error['message'][] = 'Generic error: ' . $e->getMessage();
$error['message'][] = $e->getMessage();
}
// Action
if (count($error) > 0) {
$errText = $txt['err_store_failed'] . "\n - " . implode("\n - ", $error['message']);
$objResponse->addScriptCall($errFunc, $errText, $error['element'][0]);
} else {
$objResponse->addScriptCall($doneFunc);
}
return $objResponse->getXML();
}
function reset_kamar () {
$objResponse = new xajaxResponse();
$objResponse->addClear("id_kamar", "value");
$objResponse->addClear("nama", "value");
$objResponse->addClear("pelayanan_id", "value");
$objResponse->addClear("kelas", "value");
$objResponse->addClear("jml_bed", "value");
$objResponse->addScriptCall("fokus", "pelayanan_id");
return $objResponse;
}
function list_semua_kunjungan($hal, $pasien_id) {
$paging = new MyPagina;
$paging->hal = $hal;
$paging->rows_on_page = 5;
$sql = "
SELECT
k.id as id_kunjungan,
kk.id as id_kunjungan_kamar,
k.kunjungan_ke as kunjungan_ke,
kk.no_antrian as no_antrian,
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.id as pasien_id,
p.nama as nama,
kmr.nama as kamar,
kk.tgl_periksa as tgl_periksa,
d.nama as nama_dokter
FROM
kunjungan k
JOIN pasien p ON (p.id = k.pasien_id)
JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id)
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
LEFT JOIN dokter d ON (d.id = kk.dokter_id)
WHERE
p.id = '".$pasien_id."'
ORDER BY
kk.id ASC
";
$paging->sql = $sql;
$paging->onclick_func = "xajax_list_semua_kunjungan";
$paging->setOnclickValue($pasien_id);
$paging->get_page_result();
$data = $paging->data;
$no = $paging->start_number();
$navi = $paging->navi();
$objResponse = new xajaxResponse();
//$objResponse->addAssign('debug', 'innerHTML', $sql);
$objResponse->addScriptCall("buka_semua_kunjungan");
$ret .= "<br /><b>No.RM : " . $data[0][no_rm] . "</b>";
$ret .= "<br /><b>Pasien : " . $data[0][nama] . "</b>";
$ret .= "<hr />";
for($i=0;$i<sizeof($data);$i++) {
$ret .= "<table cellpadding=\"0\" cellspacing=\"2\" border=\"0\">";
$ret .= "<tr><td colspan=\"2\"><b>Kunjungan Ke-" . $data[$i][kunjungan_ke] ."</b></td></tr>";
$ret .= "<tr><td style=\"width:150px\">Tanggal Kunjung</td><td>" . tanggalIndo($data[$i][tgl_periksa], "j F Y") . "</td></tr>";
$ret .= "<tr><td>Pelayanan</td><td>" . $data[$i][kamar] . "</td></tr>";
$ret .= "<tr><td>Dokter</td><td>" . $data[$i][nama_dokter] . "</td></tr>";
$ret .= "</table>";
$ret .= "<hr />";
}
$modal = new Modal;
$modal->setNavi($navi);
$modal->setTitle("Daftar Kunjungan");
$modal->setContent($ret);
$modal->setCloseButtonOnclick("tutup_semua_kunjungan()");
$modal_cnt = $modal->build();
//$objResponse->addAssign("list_semua_kunjungan_navi", "innerHTML", $navi);
$objResponse->addAssign("list_semua_kunjungan", "innerHTML", $modal_cnt);
return $objResponse;
}
function GroupBan($groupuri, $isgrpurl = "no", $queue = "no", $reason = "", $last = "")
{
$objResponse = new xajaxResponse();
if ($GLOBALS['config']['config.enablegroupbanning'] == 0) {
return $objResponse;
}
global $userbank, $username;
if (!$userbank->HasAccess(ADMIN_OWNER | ADMIN_ADD_BAN)) {
$objResponse->redirect("index.php?p=login&m=no_access", 0);
$log = new CSystemLog("w", "Ошибка доступа", $username . " пытался забанить группу '" . htmlspecialchars(addslashes(trim($groupuri))) . "', не имея на это прав.");
return $objResponse;
}
if ($isgrpurl == "yes") {
$grpname = $groupuri;
} else {
$url = parse_url($groupuri, PHP_URL_PATH);
$url = explode("/", $url);
$grpname = $url[2];
}
if (empty($grpname)) {
$objResponse->addAssign("groupurl.msg", "innerHTML", "ошибка преобразования URL группы.");
$objResponse->addScript("\$('groupurl.msg').setStyle('display', 'block');");
return $objResponse;
} else {
$objResponse->addScript("\$('groupurl.msg').setStyle('display', 'none');");
}
if ($queue == "yes") {
$objResponse->addScript("ShowBox('Ждите...', 'Банятся все участники выбранной группы... <br>Ждите...<br>Внимание: Это может занять 15 минут или дольше, в зависимости от количества участников группы!', 'info', '', true);");
} else {
$objResponse->addScript("ShowBox('Ждите...', 'Банятся все участники группы " . $grpname . "...<br>Ждите...<br>Внимание: Это может занять 15 минут или дольше, в зависимости от количества участников группы!', 'info', '', true);");
}
$objResponse->addScript("\$('dialog-control').setStyle('display', 'none');");
$objResponse->addScriptCall("xajax_BanMemberOfGroup", $grpname, $queue, htmlspecialchars(addslashes($reason)), $last);
return $objResponse;
}
function getOption($id)
{
$objResponse = new xajaxResponse("utf-8");
global $db;
$category_info = $db->assoc("Select cat_id, common_options From subcategories Where id = '{$id}'");
if ($category_info['common_options'] == 'Y') {
$common_options = $db->in_array("Select * From options Where cat_id = '" . $category_info['cat_id'] . "' and (subcat_id = '0' or subcat_id = '{$id}') order by name");
} else {
$common_options = $db->in_array("Select * From options Where subcat_id = '{$id}' and subcat_id <> '0' order by name");
}
$option_counter = 0;
if ($common_options) {
$result = '<div class="clear"></div><div class="mr_t10"><div class="fl_left w_110 mr_t8"><p class="fl_right"><span class="orange">*</span>Параметры:</p></div><div class="fl_left mr_l8"><div class="medium_select"><select name="option[' . $option_counter . ']">';
$result .= '<option value="">' . $common_options[0]['name'] . '</option>';
$label = $common_options[0]['name'];
$option_counter++;
for ($i = 0; $i < count($common_options); $i++) {
if ($common_options[$i]['name'] == $label) {
if ($common_options[$i]['k'] == 'arr') {
$result .= '<option>' . $common_options[$i]['v'] . '</option>';
} else {
$start = explode('-', $common_options[$i]['k']);
for ($k = $start[0]; $k <= $start[1]; $k += $common_options[$i]['v']) {
$result .= '<option>' . $k . '</option>';
}
}
} else {
$label = $common_options[$i]['name'];
$result .= '</select></div><div class="medium_select mr_t4"><div class="clear"></div><select class="slct fl_left mr_b0" name="option[' . $option_counter . ']">';
$result .= '<option>' . $common_options[$i]['name'] . '</option>';
$option_counter++;
if ($common_options[$i]['k'] == 'arr') {
$result .= '<option>' . $common_options[$i]['v'] . '</option>';
} else {
$start = explode('-', $common_options[$i]['k']);
for ($k = $start[0]; $k <= $start[1]; $k += $common_options[$i]['v']) {
$result .= '<option>' . $k . '</option>';
}
}
}
}
$result .= '</select></div></div></div><div class="clear"></div>';
} else {
$result = "";
}
$objResponse->addScriptCall("addOption", $result);
return $objResponse;
}
function _addComment($comment_text)
{
$xajax_response = new xajaxResponse();
if ($comment_text == '') {
$xajax_response->addAlert('Please enter a comment to submit.');
$xajax_response->addScriptCall('commentAdded', '', '', '');
} else {
$new_comment = $this->article_model->InsertArticleComment($this->uri->segment(3), $this->user_auth->entityId, $comment_text);
$xajax_response->addScriptCall('commentAdded', date('D jS F Y @ H:i', $new_comment['time']), $new_comment['name'], nl2br($comment_text));
}
return $xajax_response;
}
function tutup_list_kunjungan() {
$objResponse = new xajaxResponse;
$objResponse->addAssign("modal_list_kunjungan", "style.display", "none");
$objResponse->addClear("tab_list_semua_kunjungan_navi", "innerHTML");
$objResponse->addClear("tab_list_semua_kunjungan", "innerHTML");
$objResponse->addScriptCall("enable_mainbar");
return $objResponse;
}
function reset_karcis () {
$objResponse = new xajaxResponse();
$objResponse->addClear("id_karcis", "value");
$objResponse->addClear("nama", "value");
$objResponse->addClear("jenis", "value");
$objResponse->addClear("kelas", "value");
$objResponse->addClear("biaya_bhp", "value");
$objResponse->addClear("biaya_jasa", "value");
$objResponse->addClear("bhp_p", "value");
$objResponse->addClear("bhp_rs", "value");
$objResponse->addClear("bhp_rs_adm", "value");
$objResponse->addClear("bhp_rs_op", "value");
$objResponse->addClear("jasa_p", "value");
$objResponse->addClear("jasa_rs", "value");
$objResponse->addClear("jasa_rs_op", "value");
$objResponse->addClear("jasa_rs_kembang", "value");
$objResponse->addClear("jasa_rs_adm", "value");
$objResponse->addClear("jasa_rs_sdm", "value");
$objResponse->addClear("spesialis", "value");
$objResponse->addClear("spesialis_pendamping", "value");
$objResponse->addClear("ugp", "value");
$objResponse->addClear("grabaf", "value");
$objResponse->addClear("perawat", "value");
$objResponse->addClear("penunjang", "value");
$objResponse->addClear("zakat", "value");
$objResponse->addClear("pajak", "value");
$objResponse->addClear("netto", "value");
$objResponse->addScriptCall("fokus", "nama");
return $objResponse;
}
function daftar_dari_cari($value) {
$objResponse = new xajaxResponse();
$objResponse->addScript("document.tambah_pasien.reset()");
$objResponse->addScriptCall("show_hide_form", "form_tambah");
$objResponse->addClear("id_pasien", "value");
$objResponse->addAssign("id", "value", $value[cari_id]);
$objResponse->addAssign("nama", "value", $value[cari_nama]);
$objResponse->addAssign("alamat", "value", $value[cari_alamat]);
$objResponse->addAssign("rt", "value", $value[cari_rt]);
$objResponse->addAssign("rw", "value", $value[cari_rw]);
$objResponse->addAssign("propinsi_id", "value", $value[cari_propinsi_id]);
$objResponse->addAssign("sex", "value", $value[cari_sex]);
$objResponse->addScriptCall("xajax_get_kabupaten", $value[cari_propinsi_id], $value[cari_kabupaten_id]);
$objResponse->addScriptCall("xajax_get_kecamatan", $value[cari_kabupaten_id], $value[cari_kecamatan_id]);
$objResponse->addScriptCall("xajax_get_desa", $value[cari_kecamatan_id], $value[cari_desa_id]);
$objResponse->addScriptCall("fokus", "nama");
return $objResponse;
}
function submitForm($elems, $doneFunc = 'AjaxFormObj.checkDone', $errFunc = 'AjaxFormObj.checkError')
{
global $lbl, $txt, $dbini;
$auth = R3AuthInstance::get();
if (!$auth->hasPerm('EDIT', 'CONFIG') && !$auth->hasPerm('MOD', 'CONFIG')) {
die("PERMISSION DENIED [EDIT|MOD/CONFIG]\n");
}
/*$fieldDescr = array('do_names'=>array(MISSING_FIELD=>"Il campo 'nome dominio' e' obbligatorio",
INVALID_FIELD=>"Il campo 'nome dominio' contiene caratteri non validi. Solo lettere e numeri sono accettati",
PK_ERROR=>"Il campo 'nome dominio' immesso esiste gia'"),
'do_auth_type'=>array(MISSING_FIELD=>"Il campo 'tipo autenticazione' e' obbligatorio"),
INVALID_FIELD=>"Il campo 'tipo autenticazione' non è valido",);
*/
$elems = AjaxSplitArray($elems);
if (!isset($elems['old_us_login'])) {
$elems['old_us_login'] = '';
}
// print_r($elems);
$objResponse = new xajaxResponse();
$error = array();
try {
if (($p = strpos($elems['us_login'], '|')) !== false) {
$elems['us_login'] = substr($elems['us_login'], $p + 1);
}
if (($p = strpos($elems['old_us_login'], '|')) !== false) {
$elems['old_us_login'] = substr($elems['old_us_login'], $p + 1);
}
if (!$auth->hasPerm('SHOW', 'ALL_DOMAINS')) {
$elems['dn_name'] = $auth->domain;
}
if (!$auth->hasPerm('SHOW', 'ALL_APPLICATIONS')) {
$elems['app_code'] = $auth->application;
}
if (!$auth->hasPerm('SHOW', 'ALL_USERS')) {
$elems['us_login'] = $auth->login;
}
if ($elems['act'] == 'del') {
$dbini->removeAttribute($elems['dn_name'], $elems['app_code'], $elems['us_login'], $elems['se_section'], $elems['se_param']);
} else {
$se_section = strtoupper(trim($elems['se_section']));
$se_param = strtoupper(trim($elems['se_param']));
if ($elems['se_type'] == 'STRING') {
$se_type_ext = $elems['se_type_ext_STRING'];
} else {
if ($elems['se_type'] == 'ENUM') {
$se_type_ext = $elems['se_type_ext_ENUM'];
} else {
$se_type_ext = '';
}
}
if ($elems['se_type'] == 'ARRAY') {
$se_value = trim($elems['se_value_TEXT']);
@eval('$my_array = array(' . $se_value . ');');
if (!isset($my_array)) {
throw new Exception('Invalid value');
}
$se_value = serialize($my_array);
// echo $se_value;
} else {
if ($elems['se_type'] == 'JSON') {
if (trim($elems['se_value_TEXT']) == '') {
$se_value = null;
} else {
$se_value = $elems['se_value_TEXT'];
$jsonData = @json_decode($se_value, true);
if ($jsonData === null) {
throw new Exception('JSon error: ' . json_last_error_msg());
}
}
} else {
if ($elems['se_type'] == 'TEXT') {
$se_value = $elems['se_value_TEXT'];
} else {
$se_value = $elems['se_value_normal'];
}
}
}
$dbini->replaceAttribute($elems['old_dn_name'], $elems['old_app_code'], $elems['old_us_login'], $elems['old_se_section'], $elems['old_se_param'], $elems['dn_name'], $elems['app_code'], $elems['us_login'], $se_section, $se_param, $se_value, $elems['se_type'], $se_type_ext, $elems['se_private'], $elems['se_order'], $elems['se_descr']);
}
} catch (EPermissionDenied $e) {
$error['element'][] = '';
$error['message'][] = $e->getMessage();
} catch (EDatabaseError $e) {
$error['element'][] = '';
$error['message'][] = "Database error: " . $e->getMessage();
} catch (Exception $e) {
$error['element'][] = '';
$error['message'][] = 'Generic error: ' . $e->getMessage();
}
// Action
if (count($error) > 0) {
$errText = $txt['err_store_failed'] . "\n - " . implode("\n - ", $error['message']);
$objResponse->addScriptCall($errFunc, $errText, $error['element'][0]);
} else {
$objResponse->addScriptCall($doneFunc);
}
return $objResponse->getXML();
}
function simpan_pasien_check($value) {
$objResponse = new xajaxResponse();
$cleaner = new FormCleaner;
$cleaner->setValue($value);
$cleaner->clean();
$new_value = $cleaner->getValue();
if(!$new_value[nama]) {
$objResponse->addAlert("Silakan Isi Nama Pasien.");
$objResponse->addScriptCall("fokus", "nama");
} elseif(!checkdate($new_value[tgl_lahir_bln], $new_value[tgl_lahir_tgl], $new_value[tgl_lahir_thn])) {
$objResponse->addAlert("Tanggal Lahir Tidak Valid.");
$objResponse->addScriptCall("fokus", "tgl_lahir_tgl");
} elseif(!$new_value[sex]) {
$objResponse->addAlert("Silakan Isi Jenis Kelamin Pasien.");
$objResponse->addScriptCall("fokus", "sex");
} elseif(!$new_value[agama]) {
$objResponse->addAlert("Silakan Isi Agama Pasien.");
$objResponse->addScriptCall("fokus", "agama");
} elseif(!$new_value[pendidikan_id]) {
$objResponse->addAlert("Silakan Isi Pendidikan Pasien.");
$objResponse->addScriptCall("fokus", "pendidikan_id");
} elseif(!$new_value[pekerjaan_id]) {
$objResponse->addAlert("Silakan Isi Pekerjaan Pasien.");
$objResponse->addScriptCall("fokus", "pekerjaan_id");
} elseif(!$new_value[status_nikah]) {
$objResponse->addAlert("Silakan Isi Status Nikah Pasien.");
$objResponse->addScriptCall("fokus", "status_nikah");
} elseif(!$new_value[alamat]) {
$objResponse->addAlert("Silakan Isi Alamat Pasien.");
$objResponse->addScriptCall("fokus", "alamat");
} elseif(!$new_value[propinsi_id]) {
$objResponse->addAlert("Silakan Isi Propinsi Pasien.");
$objResponse->addScriptCall("fokus", "propinsi_id");
} elseif(!$new_value[kabupaten_id]) {
$objResponse->addAlert("Silakan Isi Kabupaten Pasien.");
$objResponse->addScriptCall("fokus", "kabupaten_id");
} elseif(!$new_value[kecamatan_id]) {
$objResponse->addAlert("Silakan Isi Kecamatan Pasien.");
$objResponse->addScriptCall("fokus", "kecamatan_id");
} elseif(!$new_value[desa_id]) {
$objResponse->addAlert("Silakan Isi Kelurahan Pasien.");
$objResponse->addScriptCall("fokus", "desa_id");
} elseif(!$new_value[cara_masuk]) {
$objResponse->addAlert("Silakan Isi Cara Masuk.");
$objResponse->addScriptCall("fokus", "cara_masuk");
} elseif($new_value[cara_masuk] == "RUJUKAN" && !$new_value[perujuk_id]) {
$objResponse->addAlert("Silakan Isi Perujuk.");
$objResponse->addScriptCall("fokus", "perujuk_id");
} elseif(!$new_value[cara_bayar]) {
$objResponse->addAlert("Silakan Isi Cara Bayar.");
$objResponse->addScriptCall("fokus", "cara_bayar");
} elseif(!$new_value[nama_ayah]) {
$objResponse->addAlert("Silakan Isi Nama Ayah.");
$objResponse->addScriptCall("fokus", "nama_ayah");
} elseif(!$new_value[nama_ibu]) {
$objResponse->addAlert("Silakan Isi Nama Ibu.");
$objResponse->addScriptCall("fokus", "nama_ibu");
} elseif(!$new_value[no_ktp_sim]) {
$objResponse->addAlert("Silakan Isi No KTP/SIM.");
$objResponse->addScriptCall("fokus", "no_ktp_sim");
} else {
/*
for($i=0;$i<sizeof($new_value);$i++) {
$kunci = key($new_value);
$objResponse->addAppend("debug", "innerHTML", $kunci . "=>" . $new_value[$kunci] . "<br />");
next($new_value);
}
*/
$objResponse->addScriptCall("xajax_simpan_pasien", $new_value);
}
return $objResponse;
}
function ke_kunjungan($val) {
$kon = new Konek;
$objResponse = new xajaxResponse;
$sql = "
SELECT
rk.id
FROM
radio_kunjungan rk
WHERE
rk.kunjungan_kamar_id = '".$val[dp_idkk]."'
";
$kon->sql = $sql;
$kon->execute();
$d = $kon->getOne();
$id_d = $d[id];
$sql = "
SELECT
*
FROM
kunjungan_bayar
WHERE
radio_kunjungan_id = '$id_d' AND
kwid IS NULL
";
$kon->sql = $sql;
$kon->execute();
$d = $kon->getOne();
if (!$d)
{
$sql = "
INSERT INTO radio_kunjungan(
pasien_id,
kunjungan_kamar_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)
SELECT
k.pasien_id,
kk.id,
pel.jenis,
NOW(),
NOW(),
'".$val[dp_pengirim]."',
pel.jenis,
kk.cara_bayar,
kk.jenis_askes,
kk.perusahaan_id,
kk.nomor,
kk.pj_nama,
kk.pj_alamat,
kk.pj_telp,
kk.pj_hubungan_keluarga
FROM
kunjungan k
JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id)
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id)
WHERE
kk.id = '".$val[dp_idkk]."'
";
}
else
{
$sql = "
SELECT
k.pasien_id,
kk.id,
pel.jenis,
NOW(),
NOW(),
'".$val[dp_pengirim]."',
pel.jenis,
kk.cara_bayar,
kk.jenis_askes,
kk.perusahaan_id,
kk.nomor,
kk.pj_nama,
kk.pj_alamat,
kk.pj_telp,
kk.pj_hubungan_keluarga
FROM
kunjungan k
JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id)
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
JOIN pelayanan pel ON (pel.id = kmr.pelayanan_id)
WHERE
kk.id = '".$val[dp_idkk]."'
";
}
$kon->sql = $sql;
$kon->execute();
//for($i=0;$i<sizeof($data);$i++) {
$sql = "
SELECT
rk.id
FROM
radio_kunjungan rk
WHERE
rk.kunjungan_kamar_id = '".$val[dp_idkk]."'
";
//$objResponse->addAssign("id_kunjungan_lab", "innerHTML", $data[no_rm]);
$kon->sql = $sql;
$kon->execute();
//$objResponse->addAlert($sql);
//$id_kunjungan_lab = $kon;
//$dp_idkk = $val[dp_idkk];
$data = $kon->getOne();
//$objResponse->addAssign("dp_no_rm", "innerHTML", $data[no_rm]);
$id_kunjungan_radio = $data[id];
//$objResponse->addAlert($id_kunjungan_lab);
//}
$objResponse->addScriptCall("tutup_daftar_penunjang");
$objResponse->addScriptCall("xajax_buka_kunjungan",$id_kunjungan_radio);
return $objResponse;
}
function getCity($region)
{
$objResponse = new xajaxResponse("utf-8");
global $db;
$cities = $db->in_array("SELECT cities.* FROM cities, regions WHERE regions.id = '{$region}' and regions.id = cities.id_region");
$addCities[0]['name'] = "Город";
for ($i = 0; $i < count($cities); $i++) {
$addCities[$i + 1]['name'] = $cities[$i]['city_name_ru'];
}
$objResponse->addScriptCall("addCity", $addCities);
return $objResponse;
}
function daftar_penunjang($val) {
$kon = new Konek;
$objResponse = new xajaxResponse;
if($val[dp_lab] == "1") {
$sql = "
INSERT INTO lab_kunjungan(
pasien_id,
kunjungan_kamar_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)
SELECT
k.pasien_id,
kk.id,
kmr.kelas,
NOW(),
NOW(),
'".$val[dp_pengirim]."',
'IGD',
kk.cara_bayar,
kk.jenis_askes,
kk.perusahaan_id,
kk.nomor,
kk.pj_nama,
kk.pj_alamat,
kk.pj_telp,
kk.pj_hubungan_keluarga
FROM
kunjungan k
JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id)
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
WHERE
kk.id = '".$val[dp_idkk]."'
";
$kon->sql = $sql;
$kon->execute();
}
if($val[dp_radio] == "1") {
$sql = "
INSERT INTO radio_kunjungan(
pasien_id,
kunjungan_kamar_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)
SELECT
k.pasien_id,
kk.id,
kmr.kelas,
NOW(),
NOW(),
'".$val[dp_pengirim]."',
'IGD',
kk.cara_bayar,
kk.jenis_askes,
kk.perusahaan_id,
kk.nomor,
kk.pj_nama,
kk.pj_alamat,
kk.pj_telp,
kk.pj_hubungan_keluarga
FROM
kunjungan k
JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id)
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
WHERE
kk.id = '".$val[dp_idkk]."'
";
$kon->sql = $sql;
$kon->execute();
}
if($val[dp_radio] == "1") {
$sql = "
INSERT INTO radio_kunjungan(
pasien_id,
kunjungan_kamar_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)
SELECT
k.pasien_id,
kk.id,
kmr.kelas,
NOW(),
NOW(),
'".$val[dp_pengirim]."',
'IGD',
kk.cara_bayar,
kk.jenis_askes,
kk.perusahaan_id,
kk.nomor,
kk.pj_nama,
kk.pj_alamat,
kk.pj_telp,
kk.pj_hubungan_keluarga
FROM
kunjungan k
JOIN kunjungan_kamar kk ON (kk.kunjungan_id = k.id)
JOIN kamar kmr ON (kmr.id = kk.kamar_id)
WHERE
kk.id = '".$val[dp_idkk]."'
";
$kon->sql = $sql;
$kon->execute();
}
if($val[dp_vk] == "1") {
$sql = "INSERT INTO kunjungan_kamar( parent_id, kunjungan_id, kamar_id, tgl_daftar, tgl_periksa, cara_bayar, jenis_askes, perusahaan_id, nomor, pj_nama, pj_alamat, pj_telp, pj_hubungan_keluarga ) SELECT id, kunjungan_id, '61', NOW(), NOW(), cara_bayar, jenis_askes, perusahaan_id, nomor, pj_nama, pj_alamat, pj_telp, pj_hubungan_keluarga FROM kunjungan_kamar WHERE id = '".$val[dp_idkk]."' ";
$kon->sql = $sql; $kon->execute();
}
if($val[dp_anestesi] == "1") {
$sql = "INSERT INTO kunjungan_kamar( parent_id, kunjungan_id, kamar_id, tgl_daftar, tgl_periksa, cara_bayar, jenis_askes, perusahaan_id, nomor, pj_nama, pj_alamat, pj_telp, pj_hubungan_keluarga ) SELECT id, kunjungan_id, '81', NOW(), NOW(), cara_bayar, jenis_askes, perusahaan_id, nomor, pj_nama, pj_alamat, pj_telp, pj_hubungan_keluarga FROM kunjungan_kamar WHERE id = '".$val[dp_idkk]."' ";
$kon->sql = $sql; $kon->execute();
}
if($val[dp_roperasi] == "1") {
$sql = "INSERT INTO kunjungan_kamar( parent_id, kunjungan_id, kamar_id, tgl_daftar, tgl_periksa, cara_bayar, jenis_askes, perusahaan_id, nomor, pj_nama, pj_alamat, pj_telp, pj_hubungan_keluarga ) SELECT id, kunjungan_id, '71', NOW(), NOW(), cara_bayar, jenis_askes, perusahaan_id, nomor, pj_nama, pj_alamat, pj_telp, pj_hubungan_keluarga FROM kunjungan_kamar WHERE id = '".$val[dp_idkk]."' ";
$kon->sql = $sql; $kon->execute();
}
//$objResponse->addAssign("debug", "innerHTML", nl2br($sql));
$objResponse->addScriptCall("show_status_simpan");
$objResponse->addScriptCall("tutup_daftar_penunjang");
return $objResponse;
}
function chat_get_pesan($by_me = "no") {
$arr_asal = array(
":kembang:",
":melet:",
":mesum:",
":mlongo:",
":mringis:",
":nangis:",
":nesu:",
":ngakak:",
":ngekek:",
":ngguyu:",
":ngikik:",
":nyosor:",
":sedih:",
":setan:",
":tresno:");
$arr_smilies = array(
"<img src='" . IMAGES_URL . "smilies/kembang.gif' alt='' onclick='sendSmilies(this.src)' border='0' />",
"<img src='" . IMAGES_URL . "smilies/melet.gif' alt='' onclick='sendSmilies(this.src)' border='0' />",
"<img src='" . IMAGES_URL . "smilies/mesum.gif' alt='' onclick='sendSmilies(this.src)' border='0' />",
"<img src='" . IMAGES_URL . "smilies/mlongo.gif' alt='' onclick='sendSmilies(this.src)' border='0' />",
"<img src='" . IMAGES_URL . "smilies/mringis.gif' alt='' onclick='sendSmilies(this.src)' border='0' />",
"<img src='" . IMAGES_URL . "smilies/nangis.gif' alt='' onclick='sendSmilies(this.src)' border='0' />",
"<img src='" . IMAGES_URL . "smilies/nesu.gif' alt='' onclick='sendSmilies(this.src)' border='0' />",
"<img src='" . IMAGES_URL . "smilies/ngakak.gif' alt='' onclick='sendSmilies(this.src)' border='0' />",
"<img src='" . IMAGES_URL . "smilies/ngekek.gif' alt='' onclick='sendSmilies(this.src)' border='0' />",
"<img src='" . IMAGES_URL . "smilies/ngguyu.gif' alt='' onclick='sendSmilies(this.src)' border='0' />",
"<img src='" . IMAGES_URL . "smilies/ngikik.gif' alt='' onclick='sendSmilies(this.src)' border='0' />",
"<img src='" . IMAGES_URL . "smilies/nyosor.gif' alt='' onclick='sendSmilies(this.src)' border='0' />",
"<img src='" . IMAGES_URL . "smilies/sedih.gif' alt='' onclick='sendSmilies(this.src)' border='0' />",
"<img src='" . IMAGES_URL . "smilies/setan.gif' alt='' onclick='sendSmilies(this.src)' border='0' />",
"<img src='" . IMAGES_URL . "smilies/tresno.gif' alt='' onclick='sendSmilies(this.src)' border='0' />");
$kon = new Konek;
$kon->sql = "
SELECT
p.nama as nama,
CASE
WHEN (ps.penerima_id IS NULL) THEN 'Semua'
ELSE '".$_SESSION[nama]."'
END as penerima,
DATE_FORMAT(ps.tgl_kirim, '%d/%m/%y %H:%i:%s') as tgl_kirim,
ps.pesan as isi,
MAX(ps.id) as max_id
FROM
pesan ps
JOIN pengguna p ON (p.id = ps.pengirim_id)
WHERE
ps.penerima_id IS NULL
OR
ps.penerima_id = '".$_SESSION[pengguna_id]."'
GROUP BY
ps.id
ORDER BY
ps.id DESC
LIMIT 0,20
";
$kon->execute();
$data = $kon->getAll();
$ret = "<ol class=\"chat_list_pesan\">";
for($i=0;$i<sizeof($data);$i++) {
if($data[$i][penerima] != "Semua") $bg = "#F8F9F5"; else $bg = "";
$ret .= "<li style=\"background-color:".$bg."\"><i>" . $data[$i][tgl_kirim] . "</i><br />";
$ret .= "<b>Dari</b> " . $data[$i][nama] . "<br />";
$ret .= "<b>Untuk</b> " . $data[$i][penerima] . "<br />";
$pesan = str_replace($arr_asal, $arr_smilies, $data[$i][isi]);
$ret .= "<b>Pesan</b><br />" . nl2br($pesan) . "<br />";
$ret .= "<hr /></li>";
}
$ret .= "</ol>";
$objResponse = new xajaxResponse();
for($i=0;$i<sizeof($arr_smilies);$i++) {
$sml .= $arr_smilies[$i];
}
$max_id_curr = $_SESSION[chat][max_id];
if($by_me == "no" && $max_id_curr != $data[0][max_id]) {
$objResponse->addScriptCall("chat_ganti_button", "chat.png");
}
$_SESSION[chat][max_id] = $data[0][max_id];
$objResponse->addAssign("chat_smilies", "innerHTML", $sml);
$objResponse->addAssign("chat_list_pesan", "innerHTML", $ret);
return $objResponse;
}
function simpan_pasien_check($value) {
$objResponse = new xajaxResponse();
$cleaner = new FormCleaner;
$cleaner->setValue($value);
$cleaner->clean();
$new_value = $cleaner->getValue();
$tgl_skr = strtotime(date("Y-m-d"));
$tgl_periksa = strtotime($new_value[tgl_periksa_thn]."-".$new_value[tgl_periksa_bln].
"-".$new_value[tgl_periksa_tgl]);
if(!$new_value[nama]) {
$objResponse->addAlert("Silakan Isi Nama Pasien.");
$objResponse->addScriptCall("fokus", "nama");
} elseif(!$new_value[sex]) {
$objResponse->addAlert("Silakan Isi Jenis Kelamin Pasien.");
$objResponse->addScriptCall("fokus", "sex");
} elseif(!$new_value[agama]) {
$objResponse->addAlert("Silakan Isi Agama Pasien.");
$objResponse->addScriptCall("fokus", "agama");
} elseif(!$new_value[pendidikan_id]) {
$objResponse->addAlert("Silakan Isi Pendidikan Pasien.");
$objResponse->addScriptCall("fokus", "pendidikan_id");
} elseif(!$new_value[pekerjaan_id]) {
$objResponse->addAlert("Silakan Isi Pekerjaan Pasien.");
$objResponse->addScriptCall("fokus", "pekerjaan_id");
} elseif(!$new_value[status_nikah]) {
$objResponse->addAlert("Silakan Isi Status Nikah Pasien.");
$objResponse->addScriptCall("fokus", "status_nikah");
} elseif(!$new_value[alamat]) {
$objResponse->addAlert("Silakan Isi Alamat Pasien.");
$objResponse->addScriptCall("fokus", "alamat");
} elseif(!$new_value[propinsi_id]) {
$objResponse->addAlert("Silakan Isi Propinsi Pasien.");
$objResponse->addScriptCall("fokus", "propinsi_id");
} elseif(!$new_value[kabupaten_id]) {
$objResponse->addAlert("Silakan Isi Kabupaten Pasien.");
$objResponse->addScriptCall("fokus", "kabupaten_id");
} elseif(!$new_value[kecamatan_id]) {
$objResponse->addAlert("Silakan Isi Kecamatan Pasien.");
$objResponse->addScriptCall("fokus", "kecamatan_id");
} elseif(!$new_value[desa_id]) {
$objResponse->addAlert("Silakan Isi Kelurahan Pasien.");
$objResponse->addScriptCall("fokus", "desa_id");
} elseif($tgl_periksa < $tgl_skr) {
$objResponse->addAlert("Tanggal periksa tidak boleh kurang dari sekarang.");
$objResponse->addScriptCall("fokus", "tgl_periksa_tgl");
} elseif(!$new_value[kamar_id]) {
$objResponse->addAlert("Silakan Pilih Spesialisasi.");
$objResponse->addScriptCall("fokus", "kamar_id");
} elseif(!checkdate($new_value[tgl_periksa_bln], $new_value[tgl_periksa_tgl], $new_value[tgl_periksa_thn])) {
$objResponse->addAlert("Tanggal Periksa Tidak Valid.");
$objResponse->addScriptCall("fokus", "tgl_periksa_tgl");
} elseif(!$new_value[cara_masuk]) {
$objResponse->addAlert("Silakan Isi Cara Masuk.");
$objResponse->addScriptCall("fokus", "cara_masuk");
} elseif($new_value[cara_masuk] == "RUJUKAN" && !$new_value[perujuk_id]) {
$objResponse->addAlert("Silakan Isi Perujuk.");
$objResponse->addScriptCall("fokus", "perujuk_id");
} elseif(!$new_value[cara_bayar]) {
$objResponse->addAlert("Silakan Isi Cara Bayar.");
$objResponse->addScriptCall("fokus", "cara_bayar");
} elseif(!$new_value[nama_ayah]) {
$objResponse->addAlert("Silakan Isi Nama Ayah.");
$objResponse->addScriptCall("fokus", "nama_ayah");
} elseif(!$new_value[nama_ibu]) {
$objResponse->addAlert("Silakan Isi Nama Ibu.");
$objResponse->addScriptCall("fokus", "nama_ibu");
/*} elseif(!$new_value[no_ktp_sim]) {
$objResponse->addAlert("Silakan Isi No KTP/SIM.");
$objResponse->addScriptCall("fokus", "no_ktp_sim"); */
} else {
$objResponse->addScriptCall("xajax_simpan_pasien", $new_value);
}
return $objResponse;
}
function PrepareReblock($bid)
{
$objResponse = new xajaxResponse();
$ban = $GLOBALS['db']->GetRow("SELECT name, authid, type, length, reason FROM " . DB_PREFIX . "_comms WHERE bid = '" . $bid . "';");
// clear any old stuff
$objResponse->addScript("\$('nickname').value = ''");
$objResponse->addScript("\$('steam').value = ''");
$objResponse->addScript("\$('txtReason').value = ''");
$objResponse->addAssign("txtReason", "innerHTML", "");
// add new stuff
$objResponse->addScript("\$('nickname').value = '" . $ban['name'] . "'");
$objResponse->addScript("\$('steam').value = '" . $ban['authid'] . "'");
$objResponse->addScriptCall("selectLengthTypeReason", $ban['length'], $ban['type'] - 1, addslashes($ban['reason']));
$objResponse->addScript("SwapPane(0);");
return $objResponse;
}
public function process_form_data($formData)
{
$objResponse = new xajaxResponse();
$selectedThumb = explode("|", $formData['imageChoice']);
// 0 location
// 1 original width(?)
// 2 original height(?)
// 3 type
// 4 image id
// 5 image type width
// 6 image type height
// 7 title
// 8 thumb_id
// 9 watermark
/* REDO
$securityCheck = array_search($selectedThumb[4], $_SESSION['img'][]['list']);// this is the line to change
if ($securityCheck === false) {
exit("LOGOUT #1" . print_r($selectedThumb) . '****' . var_dump($_SESSION['img']));
$this->ci->user_auth->logout();
redirect('/', 'location');
//TODO add some kind of logging
exit;
} else {
if ($_SESSION['img'][$securityCheck]['type'] != $selectedThumb[3]) {
exit("LOGOUT #2" . print_r($selectedThumb) . '****' . var_dump($_SESSION['img']));
$this->ci->user_auth->logout();
redirect('/', 'location');
//TODO add some kind of logging
exit;
}
}
*/
$sql = 'SELECT image_type_id AS id, image_type_width AS x,
image_type_height AS y, image_type_codename AS codename
FROM image_types WHERE image_type_id = ? LIMIT 1';
$result = $this->ci->db->query($sql, array($selectedThumb[3]));
if ($result->num_rows() != 1) {
$this->ci->user_auth->logout();
redirect('/');
//TODO add some kind of logging
exit;
}
$bits = explode('/', $selectedThumb[0]);
if ($bits[1] == 'tmp') {
//Get mime
if (function_exists('exif_imagetype')) {
$mime = image_type_to_mime_type(exif_imagetype('.' . $selectedThumb[0]));
} else {
$byDot = explode('.', $selectedThumb[0]);
switch ($byDot[count($byDot) - 1]) {
case 'jpg':
case 'jpeg':
case 'JPG':
case 'JPEG':
$mime = 'image/jpeg';
break;
case 'png':
case 'PNG':
$mime = 'image/png';
break;
case 'gif':
case 'GIF':
$mime = 'image/gif';
break;
}
}
switch ($mime) {
case 'image/jpeg':
$image = imagecreatefromjpeg('.' . $selectedThumb[0]);
break;
case 'image/png':
$image = imagecreatefrompng('.' . $selectedThumb[0]);
break;
case 'image/gif':
$image = imagecreatefromgif('.' . $selectedThumb[0]);
break;
}
$result = $result->first_row();
$newImage = imagecreatetruecolor($result->x, $result->y);
imagecopyresampled($newImage, $image, 0, 0, $formData['x1'], $formData['y1'], $result->x, $result->y, $formData['width'], $formData['height']);
$id = $this->ci->image->add('image', $newImage, array('title' => $selectedThumb[7], 'mime' => $mime, 'type_id' => $selectedThumb[3]));
if ($id != false) {
for ($iUp = 0; $iUp < count($_SESSION['img']); $iUp++) {
if ($selectedThumb[4] == $_SESSION['img'][$iUp]['list'] and $selectedThumb[3] == $_SESSION['img'][$iUp]['type']) {
if (isset($_SESSION['img'][$iUp]['oldID'])) {
$this->ci->image->delete('image', $_SESSION['img'][$iUp]['oldID']);
//TODO log orphaned image if false
$_SESSION['img'][$iUp]['oldID'] = $id;
} else {
$_SESSION['img'][$iUp]['oldID'] = $id;
}
$_SESSION['img'][$iUp]['list'] = $id;
}
}
// php limitation
// foreach ($_SESSION['img'] as &$newImages) {
// if ($selectedThumb[4] == $newImages['list'] and $selectedThumb[3] == $newImages['type']) {
// if (isset($newImages['oldID'])) {
// $this->ci->image->delete('image', $newImages['oldID']); //TODO log orphaned image if false
// $newImage['oldID'] = $id;
// } else {
// $newImages['oldID'] = 0;
// }
// //$newImages['list'] = $id;
// }
// }
} else {
$objResponse->addAlert("The thumbnail was not saved, please try again.");
$objResponse->addAssign("submitButton", "value", "Save again");
$objResponse->addAssign("submitButton", "disabled", false);
return $objResponse;
}
} else {
$sql = 'DELETE FROM photo_thumbs WHERE photo_thumbs_photo_id = ? AND photo_thumbs_image_type_id = ? LIMIT 1';
$this->ci->db->query($sql, array($selectedThumb[4], $selectedThumb[3]));
if (!$this->ci->image->thumbnail($selectedThumb[4], $result->first_row(), $formData['x1'], $formData['y1'], $formData['width'], $formData['height'], $selectedThumb[9])) {
$objResponse->addAlert("The thumbnail was not saved, please try again.");
}
}
$objResponse->addScriptCall("registerImageSave", $selectedThumb[4] . '-' . $selectedThumb[3]);
$objResponse->addAssign("submitButton", "value", "Save");
$objResponse->addAssign("submitButton", "disabled", false);
return $objResponse;
}
function GroupBan($groupuri, $isgrpurl = "no", $queue = "no", $reason = "", $last = "")
{
$objResponse = new xajaxResponse();
if ($GLOBALS['config']['config.enablegroupbanning'] == 0) {
return $objResponse;
}
global $userbank, $username;
if (!$userbank->HasAccess(ADMIN_OWNER | ADMIN_ADD_BAN)) {
$objResponse->redirect("index.php?p=login&m=no_access", 0);
$log = new CSystemLog("w", "Hacking Attempt", $username . " tried to initiate a groupban '" . htmlspecialchars(addslashes(trim($groupuri))) . "', but doesnt have access.");
return $objResponse;
}
if ($isgrpurl == "yes") {
$grpname = $groupuri;
} else {
$url = parse_url($groupuri, PHP_URL_PATH);
$url = explode("/", $url);
$grpname = $url[2];
}
if (empty($grpname)) {
$objResponse->addAssign("groupurl.msg", "innerHTML", "Error parsing the group url.");
$objResponse->addScript("\$('groupurl.msg').setStyle('display', 'block');");
return $objResponse;
} else {
$objResponse->addScript("\$('groupurl.msg').setStyle('display', 'none');");
}
if ($queue == "yes") {
$objResponse->addScript("ShowBox('Please Wait...', 'Banning all members of the selected groups... <br>Please Wait...<br>Notice: This can last 15mins or longer, depending on the amount of members of the groups!', 'info', '', true);");
} else {
$objResponse->addScript("ShowBox('Please Wait...', 'Banning all members of " . $grpname . "...<br>Please Wait...<br>Notice: This can last 15mins or longer, depending on the amount of members of the group!', 'info', '', true);");
}
$objResponse->addScript("\$('dialog-control').setStyle('display', 'none');");
$objResponse->addScriptCall("xajax_BanMemberOfGroup", $grpname, $queue, htmlspecialchars(addslashes($reason)), $last);
return $objResponse;
}
function simpan_pasien_check($value) {
$objResponse = new xajaxResponse();
$cleaner = new FormCleaner;
$cleaner->setValue($value);
$cleaner->clean();
$new_value = $cleaner->getValue();
if(!$new_value[nama]) {
$objResponse->addAlert("Silakan Isi Nama Pasien.");
$objResponse->addScriptCall("fokus", "nama");
} elseif(!checkdate($new_value[tgl_lahir_bln],$new_value[tgl_lahir_tgl],$new_value[tgl_lahir_thn])) {
$objResponse->addAlert("Tanggal Lahir Tidak Valid.");
$objResponse->addScriptCall("fokus", "tgl_lahir_tgl");
} elseif(!$new_value[sex]) {
$objResponse->addAlert("Silakan Isi Jenis Kelamin Pasien.");
$objResponse->addScriptCall("fokus", "sex");
} elseif(!$new_value[agama]) {
$objResponse->addAlert("Silakan Isi Agama Pasien.");
$objResponse->addScriptCall("fokus", "agama");
} elseif(!$new_value[pendidikan_id]) {
$objResponse->addAlert("Silakan Isi Pendidikan Pasien.");
$objResponse->addScriptCall("fokus", "pendidikan_id");
} elseif(!$new_value[pekerjaan_id]) {
$objResponse->addAlert("Silakan Isi Pekerjaan Pasien.");
$objResponse->addScriptCall("fokus", "pekerjaan_id");
} elseif(!$new_value[status_nikah]) {
$objResponse->addAlert("Silakan Isi Status Nikah Pasien.");
$objResponse->addScriptCall("fokus", "status_nikah");
} elseif(!$new_value[alamat]) {
$objResponse->addAlert("Silakan Isi Alamat Pasien.");
$objResponse->addScriptCall("fokus", "alamat");
} elseif(!$new_value[propinsi_id]) {
$objResponse->addAlert("Silakan Isi Propinsi Pasien.");
$objResponse->addScriptCall("fokus", "propinsi_id");
} elseif(!$new_value[kabupaten_id]) {
$objResponse->addAlert("Silakan Isi Kabupaten Pasien.");
$objResponse->addScriptCall("fokus", "kabupaten_id");
} elseif(!$new_value[kecamatan_id]) {
$objResponse->addAlert("Silakan Isi Kecamatan Pasien.");
$objResponse->addScriptCall("fokus", "kecamatan_id");
} elseif(!$new_value[desa_id]) {
$objResponse->addAlert("Silakan Isi Kelurahan Pasien.");
$objResponse->addScriptCall("fokus", "desa_id");
} else {
$objResponse->addScriptCall("xajax_simpan_pasien", $new_value);
}
return $objResponse;
}
function reset_kecamatan () {
$objResponse = new xajaxResponse();
$objResponse->addClear("id_kecamatan", "value");
$objResponse->addClear("nama", "value");
$objResponse->addScriptCall("fokus", "nama");
return $objResponse;
}
