function clear_form($arr) {
$objResponse = new xajaxResponse();
for($i=0;$i<sizeof($arr);$i++) {
$key = key($arr);
$objResponse->addClear($key, "value");
next($arr);
}
return $objResponse;
}
function buka_resep_rajal($id_kunjungan_kamar) {
$objResponse = new xajaxResponse;
$kon = new Konek;
//$objResponse->addAssign("debug", "innerHTML", $sql);
//info utama
$objResponse->addAssign("judul_daftar_ranap", "innerHTML", "Pendaftaran Pasien Rawat Inap");
//tampilkan modal window input pesan kamar
$objResponse->addClear("modal_resep_rawat_jalan", "style.display");
$objResponse->addScriptCall("disable_mainbar", "#E5E6E1");
$objResponse->addScriptCall('fokus', 'cara_bayar');
return $objResponse;
}
function chat_kirim_pesan($val) {
$kon = new Konek;
$kon->sql = "
INSERT INTO
pesan (pengirim_id, penerima_id, tgl_kirim, pesan)
VALUES (
'".$_SESSION[pengguna_id]."',
NULLIF('".$val[chat_penerima_id]."',''),
NOW(),
'".$val[chat_pesan]."'
)";
$kon->execute();
//hapus pesan lama
$kon->sql = "DELETE FROM pesan LIMIT 1";
$kon->execute();
$objResponse = new xajaxResponse();
$objResponse->addClear("chat_pesan", "value");
$objResponse->addScriptCall("chat_get_pesan", "yes");
$objResponse->addScriptCall("fokus", "chat_pesan");
return $objResponse;
}
function buka_kunjungan($id_kunjungan_kamar) {
$objResponse = new xajaxResponse;
$kon = new Konek;
$sql = "
SELECT
k.kunjungan_ke as kunjungan_ke,
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,
p.sex as sex,
p.tgl_lahir as tgl_lahir,
kk.id as id_kunjungan_kamar,
k.id as id_kunjungan,
DATE(kk.tgl_daftar) as tgl_daftar,
DATE(kk.tgl_periksa) as tgl_periksa,
DATE(kk.tgl_keluar) as tgl_keluar,
TIME(kk.tgl_keluar) as wkt_keluar,
kk.dokter_id as id_dokter,
kk.kelanjutan as kelanjutan,
k.keadaan_keluar as keadaan_keluar,
kmr.id as id_kamar,
kmr.kelas as kelas,
kmr.nama as spesialisasi,
kk.diagnosa_utama_id as diagnosa_utama_id,
IF(i.id IS NULL, ' ', CONCAT(i.kode_icd, ' - ', i.nama)) as diagnosa_utama_nama,
CONCAT_WS(' - ', k.cara_masuk, rp.nama) as cara_masuk,
CONCAT_WS(' - ', kk.cara_bayar, kk.jenis_askes, rper.nama) as cara_bayar
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 icd i ON (i.id = kk.diagnosa_utama_id)
LEFT JOIN ref_perujuk rp ON (rp.id = k.perujuk_id)
LEFT JOIN ref_perusahaan rper ON (rper.id = kk.perusahaan_id)
WHERE
kk.id = '".$id_kunjungan_kamar."'
";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
//get data karcis
$kon->sql = "
SELECT
id as kunjungan_bayar_id,
karcis_id as karcis_id,
nama as nama,
hak_id as hak_id,
jumlah as jumlah,
biaya_bhp+biaya_jasa as biaya,
bayar_bhp as bayar_bhp,
bayar_jasa as bayar_jasa
FROM
kunjungan_bayar
WHERE
kunjungan_kamar_id = '".$id_kunjungan_kamar."'
AND karcis_id IS NOT NULL
GROUP BY
id
";
$kon->execute();
$data_kc = $kon->getAll();
//get data tindakan
$kon->sql = "
SELECT
kkic.id as kunjungan_icopim_id,
kby.id as kunjungan_bayar_id,
kkic.nama as nama,
kby.nama as kolom,
kby.hak_id as hak_id,
kby.sifat as sifat,
kby.biaya_jasa as biaya,
kby.jumlah as jumlah,
kby.bayar_jasa as bayar
FROM
kunjungan_kamar_icopim kkic
JOIN kunjungan_bayar kby ON (kby.kunjungan_kamar_icopim_id = kkic.id)
WHERE
kkic.kunjungan_kamar_id = '".$id_kunjungan_kamar."'
GROUP BY
kby.id
ORDER BY
kkic.id, kby.id
";
$kon->execute();
$data_ic = $kon->getAll();
//get data BHP
$kon->sql = "
SELECT
id as kunjungan_bayar_id,
nama as nama,
hak_id as hak_id,
jumlah as jumlah,
sifat as sifat,
biaya_bhp as biaya,
bayar_bhp as bayar
FROM
kunjungan_bayar
WHERE
kunjungan_kamar_id = '".$id_kunjungan_kamar."'
AND bhp_id IS NOT NULL
GROUP BY
id
";
$kon->execute();
$data_bhp = $kon->getAll();
//get data kendaraan
$sqlkd = "
SELECT
kkd.id as kunjungan_kendaraan_id,
kkd.jarak_tempuh as jarak_tempuh,
kkd.harga_bbm as harga_bbm,
kb.id as kunjungan_bayar_id,
kkd.nama as nama,
kb.hak_id as hak_id,
kb.nama as kolom,
kb.biaya_bhp+kb.biaya_jasa as biaya,
kb.bayar_bhp+kb.bayar_jasa as bayar
FROM
kunjungan_kendaraan kkd
JOIN kunjungan_bayar kb ON (kb.kunjungan_kendaraan_id = kkd.id)
WHERE
kkd.kunjungan_kamar_id = '".$id_kunjungan_kamar."'
GROUP BY
kkd.id, kb.id
ORDER BY
kkd.id, kb.id
";
$kon->sql = $sqlkd;
$kon->execute();
$data_kd = $kon->getAll();
//get obat
$kon->sql = "SELECT db_apotek.resep_head.param_no, db_apotek.resep_head.tgl FROM db_apotek.resep_head.resep_head WHERE LAST_INSERT_ID(db_apotek.resep_head.param_no)
and db_apotek.resep_head.no_resep like 'RRJ%' ORDER BY db_apotek.resep_head.id DESC LIMIT 1";
$kon->execute();
$data_obat = $kon->getOne();
$tanggal_sekarang=date("d/m/Y");
//$month=substr($rp['tgl'],3,2);
$date=date("m");
$tgl = substr($data_obat['tgl'],3,2);
if ($tgl == $date)
{
$temp = $data_obat['param_no'];
$count = $temp + 1;
}
else
{
$temp = 1;
$count = $temp;
}
//cek untuk ketersediaan record
if (!$data_obat)
{
$temp = 1;
$count = $temp;
}
$digit1 = (int) ($count % 10);
$digit2 = (int) (($count % 100) / 10);
$digit3 = (int) (($count % 1000) / 100);
$digit4 = (int) (($count % 10000) / 1000);
$kd="RUGD/";
$no_resep = $kd . date("dmy")."$digit7" . "$digit6" . "$digit5" . "$digit4" . "$digit3" . "$digit2" . "$digit1";
$param_no = $count;
$skr = date("Y-m-d");
$usia = hitungUmur($data[tgl_lahir], $skr);
$umur = empty($usia[tahun])?"":$usia[tahun] . " th ";
$umur .= empty($usia[bulan])?"":$usia[bulan] . " bl ";
$umur .= empty($usia[hari])?"":$usia[hari] . " hr ";
//$objResponse->addAssign("debug", "innerHTML", $sql);
//info utama
$objResponse->addAssign("input_pasien_id", "value", $data[pasien_id]);
$objResponse->addAssign("input_param_no", "value", $param_no);
$objResponse->addAssign("input_no_resep", "value", $no_resep);
$objResponse->addAssign("no_resep", "innerHTML", $no_resep);
$objResponse->addAssign("input_no_rm", "innerHTML", $data[no_rm]);
$objResponse->addAssign("input_pasien", "innerHTML", $data[nama]);
$objResponse->addAssign("input_sex", "innerHTML", $data[sex]);
$objResponse->addAssign("input_usia", "innerHTML", $umur);
$objResponse->addAssign("input_cara_masuk", "innerHTML", $data[cara_masuk]);
$objResponse->addAssign("input_cara_bayar", "innerHTML", $data[cara_bayar]);
$objResponse->addAssign("input_id_kunjungan_kamar", "value", $data[id_kunjungan_kamar]);
$objResponse->addAssign("input_id_kunjungan", "value", $data[id_kunjungan]);
$objResponse->addAssign("icopim_kelas", "value", $data[kelas]);
$objResponse->addAssign("input_kunjungan_ke", "innerHTML", $data[kunjungan_ke]);
$objResponse->addAssign("input_spesialisasi", "innerHTML", $data[spesialisasi]);
$objResponse->addScriptCall("xajax_ref_get_dokter_from_kamar", "input_dokter_id", $data[id_kamar], $data[id_dokter]);
//set default
$kelanjutan = empty($data[kelanjutan])?"PULANG":$data[kelanjutan];
$objResponse->addAssign("input_kelanjutan", "value", $kelanjutan);
$keadaan_keluar = empty($data[keadaan_keluar])?"SEMBUH":$data[keadaan_keluar];
$objResponse->addAssign("input_keadaan_keluar", "value", $keadaan_keluar);
//tanggal keluar
$tgl_keluar = explode("-", $data[tgl_keluar]);
$objResponse->addAssign("input_tgl_keluar_thn", "value", $tgl_keluar[2]);
$objResponse->addAssign("input_tgl_keluar_bln", "value", $tgl_keluar[1]);
$objResponse->addAssign("input_tgl_keluar_tgl", "value", $tgl_keluar[0]);
$wkt_keluar = explode(":", $data[wkt_keluar]);
$objResponse->addAssign("input_tgl_keluar_jam", "value", $wkt_keluar[0]);
$objResponse->addAssign("input_tgl_keluar_mnt", "value", $wkt_keluar[1]);
$objResponse->addAssign("input_tgl_daftar", "innerHTML", tanggalIndo($data[tgl_daftar], 'j F Y'));
$objResponse->addAssign("input_tgl_periksa", "innerHTML", tanggalIndo($data[tgl_daftar], 'j F Y'));
//tab diagnosa_tindakan
$objResponse->addAssign("input_diagnosa_utama", "value", $data[diagnosa_utama_id]);
$objResponse->addAssign("input_diagnosa_utama_nama", "innerHTML", $data[diagnosa_utama_nama]);
if(!empty($data_kc)) $objResponse->addScriptCall("xajax_get_karcis_from_kunjungan", $data_kc);
if(!empty($data_bhp)) $objResponse->addScriptCall("xajax_get_bhp_from_kunjungan", $data_bhp);
if(!empty($data_ic)) $objResponse->addScriptCall("xajax_get_icopim_from_kunjungan", $data_ic);
if(!empty($data_kd)) {
$objResponse->addScriptCall("xajax_get_kendaraan_from_kunjungan", $data_kd);
$objResponse->addAssign("input_harga_bbm", "value", $data_kd[0][harga_bbm]);
$objResponse->addAssign("input_jarak_tempuh", "value", $data_kd[0][jarak_tempuh]);
} else {
$objResponse->addAssign("input_harga_bbm", "value", $_SESSION[setting][harga_bbm]);
$objResponse->addClear("input_jarak_tempuh", "value");
}
//tampilkan modal window input kunjungan
$objResponse->addClear("modal_kunjungan", "style.display");
$objResponse->addScriptCall("disable_mainbar", "#E5E6E1");
$objResponse->addScriptCall("fokus", "input_dokter_id");
return $objResponse;
}
function buka_langsung_bayar($idkw) {
unset($_SESSION[kasir][kunjungan][jasa_cetak]);
$kon = new Konek;
//$kon->debug = 1;
$objResponse = new xajaxResponse;
//get data pasien
$sql = "
SELECT
k.id as kunjungan_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,
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_daftar as tgl_daftar,
kk.tgl_periksa as tgl_periksa,
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 kunjungan_bayar kb ON (kb.kunjungan_kamar_id = kk.id)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
JOIN kwitansi kw ON (kw.id = kwd.kwitansi_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
kw.id = '".$idkw."'
GROUP BY
p.id
";
//$objResponse->addAssign("debug", "innerHTML", $sql);
$kon->sql = $sql;
$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", "value", $data_pasien[kunjungan_id]);
$objResponse->addAssign("lb_id_kwitansi", "value", $idkw);
$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_daftar", "innerHTML", tanggalIndo($data_pasien[tgl_daftar], 'j F Y'));
$objResponse->addAssign("lb_cara_bayar", "innerHTML", $data_pasien[cara_bayar]);
$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 kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
WHERE
kb.karcis_id IS NOT NULL
AND kwd.kwitansi_id = '".$idkw."'
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
$kurang += $data_karcis[$i][bayar]-$data_karcis[$i][mampu_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)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
JOIN kunjungan_kamar kk ON (kk.id = kki.kunjungan_kamar_id)
WHERE
kb.icopim_detil_id IS NOT NULL
AND kwd.kwitansi_id = '".$idkw."'
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
$kurang += $data_tindakan[$i][bayar]-$data_tindakan[$i][mampu_bayar];
}
}
//get data specimen
$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 lab_kunjungan lk ON (lk.id = kb.lab_kunjungan_id)
JOIN kunjungan_kamar kk ON (kk.id = lk.kunjungan_kamar_id)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
WHERE
kb.lab_specimen_id IS NOT NULL
AND kwd.kwitansi_id = '".$idkw."'
GROUP BY
kb.id
ORDER BY kb.id
";
$kon->execute();
$data_specimen = $kon->getAll();
if(!empty($data_specimen)) {
$tabel->addRow("","<b>Pemeriksaan Specimen</b>","");
for($i=0;$i<sizeof($data_specimen);$i++) {
$tabel->addRow(
($i+1),
$data_specimen[$i][nama],
uangIndo($data_specimen[$i][bayar])
);
$total += $data_specimen[$i][bayar];
$sudah_dibayar += $data_specimen[$i][mampu_bayar];
//belum bayar
$kurang += $data_specimen[$i][bayar]-$data_specimen[$i][mampu_bayar];
}
}
//get data radio
$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 radio_kunjungan lk ON (lk.id = kb.lab_kunjungan_id)
JOIN kunjungan_kamar kk ON (kk.id = lk.kunjungan_kamar_id)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
WHERE
kb.radio_specimen_id IS NOT NULL
AND kwd.kwitansi_id = '".$idkw."'
GROUP BY
kb.id
ORDER BY kb.id
";
$kon->execute();
$data_radio = $kon->getAll();
if(!empty($data_radio)) {
$tabel->addRow("","<b>Pemeriksaan Radiologi</b>","");
for($i=0;$i<sizeof($data_radio);$i++) {
$tabel->addRow(
($i+1),
$data_radio[$i][nama],
uangIndo($data_radio[$i][bayar])
);
$total += $data_radio[$i][bayar];
$sudah_dibayar += $data_radio[$i][mampu_bayar];
//belum bayar
$kurang += $data_radio[$i][bayar]-$data_radio[$i][mampu_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)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
WHERE
kb.bhp_id IS NOT NULL
AND kwd.kwitansi_id = '".$idkw."'
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
$kurang += $data_bhp[$i][bayar]-$data_bhp[$i][mampu_bayar];
}
}
//get data kendaraan
$kon->sql = "
SELECT
kkd.nama as nama,
SUM(kb.bayar_bhp+kb.bayar_jasa) as bayar,
SUM(kb.mampu_bayar_bhp+kb.mampu_bayar_jasa) as mampu_bayar,
kwd.kwitansi_id as kwitansi_id
FROM
kunjungan_kendaraan kkd
JOIN kunjungan_bayar kb ON (kb.kunjungan_kendaraan_id = kkd.id)
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
WHERE
kwd.kwitansi_id = '".$idkw."'
GROUP BY
kkd.id
ORDER BY kkd.id
";
$kon->execute();
$data_kendaraan = $kon->getAll();
if(!empty($data_kendaraan)) {
$tabel->addRow("","<b>Sewa Kendaraan</b>","");
for($i=0;$i<sizeof($data_kendaraan);$i++) {
$tabel->addRow(
($i+1),
$data_kendaraan[$i][nama],
uangIndo($data_kendaraan[$i][bayar])
);
$total += $data_kendaraan[$i][bayar];
$sudah_dibayar += $data_kendaraan[$i][mampu_bayar];
//belum bayar
$kurang += $data_kendaraan[$i][bayar]-$data_kendaraan[$i][mampu_bayar];
}
}
$tabel->addRow("","<b>Total</b>", uangIndo($total));
$tabel_jasa = $tabel->build();
$objResponse->addAssign("lb_list_jasa", "innerHTML", $tabel_jasa);
$objResponse->addAssign("lb_total_display", "value", uangIndo($total));
$objResponse->addAssign("lb_total_display", "title", terbilang($total));
$objResponse->addAssign("lb_sudah_dibayar", "value", $sudah_dibayar);
$objResponse->addAssign("lb_sudah_dibayar_display", "value", uangIndo($sudah_dibayar));
$objResponse->addAssign("lb_sudah_dibayar_display", "title", terbilang($sudah_dibayar));
$objResponse->addAssign("lb_kurang_display", "value", uangIndo($kurang));
$objResponse->addAssign("lb_kurang", "value", $kurang);
$objResponse->addAssign("lb_kurang_display", "title", terbilang($kurang));
$objResponse->addAssign("lb_mampu_bayar", "value", $kurang);
$objResponse->addAssign("mampu_terbilang", "innerHTML", terbilang($kurang));
$objResponse->addScriptCall("disable_mainbar", "#E5E6E1");
$objResponse->addScriptCall("fokus", "lb_mampu_bayar");
//get data kwitansi :
$kon->sql = "
SELECT
CONCAT_WS('-', kw.tempat_pembayaran, kw.id) as no_kwitansi,
kw.bayar as mampu_bayar,
kw.tgl as tgl
FROM
kunjungan_bayar kb
JOIN kwitansi_detil kwd ON (kwd.kunjungan_bayar_id = kb.id)
JOIN kwitansi kw ON (kw.id = kwd.kwitansi_id)
JOIN kunjungan_kamar kk ON (kk.id = kb.kunjungan_kamar_id)
WHERE
kw.id = '".$idkw."'
GROUP BY
kw.id
ORDER BY
kw.id
";
$kon->execute();
$data_kw = $kon->getAll();
if($kurang) {
//ada yang belum dibayar
$objResponse->addAssign("lb_simpan", "style.display", "");
}
if(!empty($data_kw)) {
//ada yang sudah dibayar
for($i=0;$i<sizeof($data_kw);$i++) {
$kw .= "<br /><input type=\"button\" name=\"lb_cetak\" id=\"lb_cetak\" value=\"Cetak Kwitansi ".$data_kw[$i][no_kwitansi]."\" class=\"inputan\" onclick=\"cetak_kwitansi('".$data_kw[$i][no_kwitansi]."');\" /> <br /> <em>Rp. ".uangIndo($data_kw[$i][mampu_bayar])." - ".tanggalIndo($data_kw[$i][tgl], "j F Y H:i")."</em><br />";
}
$objResponse->addAssign("fieldset_lb_button_kwitansi", "style.display", "");
$objResponse->addAssign("lb_button_kwitansi", "innerHTML", $kw);
if(!$kurang) $objResponse->addAssign("lb_simpan", "style.display", "none");
} else {
$objResponse->addAssign("fieldset_lb_button_kwitansi", "style.display", "none");
}
return $objResponse;
}
function scribble($aFormValues)
{
$sHandle = $aFormValues['handle'];
$sWords = $aFormValues['words'];
$objResponse = new xajaxResponse();
$objGraffiti = new graffiti($sHandle, $sWords);
$sErrMsg = $objGraffiti->save();
if (!$sErrMsg) {
$objResponse->addScript("xajax_updateWall();");
$objResponse->addClear("words", "value");
} else {
$objResponse->addAlert($sErrMsg);
}
return $objResponse;
}
function search_users($needle, $type, $relation_type)
{
global $tbl_user, $tbl_user_rel_access_url, $tbl_group_rel_user, $group_id;
$xajax_response = new xajaxResponse();
$return = $return_origin = $return_destination = '';
$without_user_id = $without_user_id = $condition_relation = '';
if (!empty($group_id) && !empty($relation_type)) {
$group_id = intval($group_id);
$relation_type = intval($relation_type);
// get user_id from relation type and group id
$sql = "SELECT user_id FROM {$tbl_group_rel_user}\n WHERE group_id = '{$group_id}'\n AND relation_type IN (" . GROUP_USER_PERMISSION_ADMIN . "," . GROUP_USER_PERMISSION_READER . "," . GROUP_USER_PERMISSION_PENDING_INVITATION . "," . GROUP_USER_PERMISSION_MODERATOR . ", " . GROUP_USER_PERMISSION_HRM . ") ";
$res = Database::query($sql);
$user_ids = array();
if (Database::num_rows($res) > 0) {
while ($row = Database::fetch_row($res)) {
$user_ids[] = $row[0];
}
$without_user_id = " AND user.user_id NOT IN(" . implode(',', $user_ids) . ") ";
}
$condition_relation = " AND groups.relation_type = '{$relation_type}' ";
// data for destination user list
$sql = "SELECT user.user_id, user.username, user.lastname, user.firstname\n FROM {$tbl_group_rel_user} groups\n INNER JOIN {$tbl_user} user ON user.user_id = groups.user_id\n WHERE groups.group_id = '{$group_id}' {$condition_relation} ";
$rs_destination = Database::query($sql);
if (Database::num_rows($rs_destination) > 0) {
$return_destination .= '<select id="destination_users" name="sessionUsersList[]" multiple="multiple" size="15" style="width:360px;">';
while ($row = Database::fetch_array($rs_destination)) {
$person_name = api_get_person_name($row['firstname'], $row['lastname']);
$return_destination .= '<option value="' . $row['user_id'] . '">' . $person_name . ' (' . $row['username'] . ')</option>';
}
$return_destination .= '</select>';
} else {
$return_destination .= '<select id="destination_users" name="sessionUsersList[]" multiple="multiple" size="15" style="width:360px;"></select>';
}
$xajax_response->addAssign('ajax_destination_list', 'innerHTML', api_utf8_encode($return_destination));
} else {
$return_destination .= '<select id="destination_users" name="sessionUsersList[]" multiple="multiple" size="15" style="width:360px;"></select>';
$xajax_response->addAssign('ajax_destination_list', 'innerHTML', api_utf8_encode($return_destination));
if ($type == 'single') {
$return .= '';
$xajax_response->addAssign('ajax_list_users_single', 'innerHTML', api_utf8_encode($return));
} else {
$return_origin .= '<select id="origin_users" name="nosessionUsersList[]" multiple="multiple" size="15" style="width:360px;"></select>';
$xajax_response->addAssign('ajax_origin_list_multiple', 'innerHTML', api_utf8_encode($return_origin));
}
}
if (!empty($needle) && !empty($type)) {
$user_anonymous = api_get_anonymous_id();
$order_clause = api_sort_by_first_name() ? ' ORDER BY firstname, lastname, username' : ' ORDER BY lastname, firstname, username';
if ($type == 'single') {
if (!empty($group_id) && !empty($relation_type)) {
// search users where username or firstname or lastname begins likes $needle
$sql = "SELECT user_id, username, lastname, firstname\n FROM {$tbl_user} user\n WHERE (username LIKE '{$needle}%' OR firstname LIKE '{$needle}%' OR lastname LIKE '{$needle}%')\n AND user_id<>'{$user_anonymous}' {$without_user_id} {$order_clause} LIMIT 11";
if (api_is_multiple_url_enabled()) {
$access_url_id = api_get_current_access_url_id();
if ($access_url_id != -1) {
$sql = "SELECT user.user_id, username, lastname, firstname FROM {$tbl_user} user\n INNER JOIN {$tbl_user_rel_access_url} url_user ON (url_user.user_id=user.user_id)\n WHERE access_url_id = '{$access_url_id}' AND (username LIKE '{$needle}%' OR firstname LIKE '{$needle}%' OR lastname LIKE '{$needle}%')\n AND user.user_id<>'{$user_anonymous}' {$without_user_id} {$order_clause} LIMIT 11 ";
}
}
$rs_single = Database::query($sql);
$i = 0;
while ($user = Database::fetch_array($rs_single)) {
$i++;
if ($i <= 10) {
$person_name = api_get_person_name($user['firstname'], $user['lastname']);
$return .= '<a href="javascript: void(0);" onclick="javascript: add_user(\'' . $user['user_id'] . '\',\'' . $person_name . ' (' . $user['username'] . ')' . '\')">' . $person_name . ' (' . $user['username'] . ')</a><br />';
} else {
$return .= '...<br />';
}
}
$xajax_response->addAssign('ajax_list_users_single', 'innerHTML', api_utf8_encode($return));
} else {
$xajax_response->addAlert(get_lang('YouMustChooseARelationType'));
$xajax_response->addClear('user_to_add', 'value');
}
} else {
// multiple
if (!empty($group_id) && !empty($relation_type)) {
$sql = "SELECT user_id, username, lastname, firstname FROM {$tbl_user} user\n WHERE " . (api_sort_by_first_name() ? 'firstname' : 'lastname') . " LIKE '{$needle}%' AND user_id<>'{$user_anonymous}' {$without_user_id} {$order_clause} ";
if (api_is_multiple_url_enabled()) {
$access_url_id = api_get_current_access_url_id();
if ($access_url_id != -1) {
$sql = "SELECT user.user_id, username, lastname, firstname\n FROM {$tbl_user} user\n INNER JOIN {$tbl_user_rel_access_url} url_user ON (url_user.user_id=user.user_id)\n WHERE\n access_url_id = '{$access_url_id}' AND\n " . (api_sort_by_first_name() ? 'firstname' : 'lastname') . " LIKE '{$needle}%' AND\n user.user_id<>'{$user_anonymous}' {$without_user_id} {$order_clause} ";
}
}
$rs_multiple = Database::query($sql);
$return_origin .= '<select id="origin_users" name="nosessionUsersList[]" multiple="multiple" size="15" style="width:360px;">';
while ($user = Database::fetch_array($rs_multiple)) {
$person_name = api_get_person_name($user['firstname'], $user['lastname']);
$return_origin .= '<option value="' . $user['user_id'] . '">' . $person_name . ' (' . $user['username'] . ')</option>';
}
$return_origin .= '</select>';
$xajax_response->addAssign('ajax_origin_list_multiple', 'innerHTML', api_utf8_encode($return_origin));
}
}
}
return $xajax_response;
}
function searchFormSubmit($searchFormValue, $numRows = null, $limit = null, $id = null, $type = null, $order = '')
{
global $locate, $db;
#print_r($searchFormValue);exit;
$objResponse = new xajaxResponse();
$searchField = array();
$searchContent = array();
$searchType = array();
$optionFlag = $searchFormValue['optionFlag'];
$searchContent = $searchFormValue['searchContent'];
//搜索内容 数组
$searchField = $searchFormValue['searchField'];
//搜索条件 数组
$searchType = $searchFormValue['searchType'];
//搜索方式 数组
$ordering = $searchFormValue['ordering'];
$order = $searchFormValue['order'];
$divName = "grid";
$allOrAnswer = $searchFormValue['allOrAnswer'];
#选中的radio值
if ($optionFlag == "export" || $optionFlag == "exportcsv") {
$fieldArray = array('mycdr.*', 'astercrm_accountgroup.groupname', 'astercrm_account.username');
$leftjoinArray = array('astercrm_accountgroup' => array('astercrm_accountgroup.id', 'mycdr.astercrm_groupid'), 'astercrm_account' => array('astercrm_account.id', 'mycdr.accountid'));
if ($searchFormValue['allOrAnswer'] == 'answered') {
$searchContent[] = '0';
$searchField[] = 'billsec';
$searchType[] = 'more';
}
$sql = astercrm::getSql($searchContent, $searchField, $searchType, 'mycdr', $fieldArray, $leftjoinArray);
//得到要导出的sql语句
$_SESSION['export_sql'] = $sql;
$objResponse->addAssign("hidSql", "value", $sql);
//赋值隐含域
$objResponse->addAssign("exporttype", "value", $optionFlag);
$objResponse->addScript("document.getElementById('exportForm').submit();");
} else {
if ($type == "delete") {
$res = Customer::deleteRecord($id, 'account');
if ($res) {
$html = createGrid('', '', $searchFormValue['numRows'], $searchFormValue['limit'], $searchField, $searchContent, $order, $divName, $ordering, $searchType, $allOrAnswer);
$objResponse = new xajaxResponse();
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("delete_rec"));
} else {
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("rec_cannot_delete"));
}
} else {
$html .= createGrid('', '', $numRows, $limit, $searchField, $searchContent, $order, $divName, $ordering, $searchType, $allOrAnswer);
}
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign($divName, "innerHTML", $html);
}
return $objResponse->getXML();
}
function searchFormSubmit($searchFormValue, $numRows = null, $limit = null, $id = null, $type = null)
{
global $locate, $db;
$objResponse = new xajaxResponse();
$searchField = array();
$searchContent = array();
$optionFlag = $searchFormValue['optionFlag'];
$searchContent = $searchFormValue['searchContent'];
//搜索内容 数组
$searchField = $searchFormValue['searchField'];
//搜索条件 数组
$searchType = $searchFormValue['searchType'];
$ordering = $searchFormValue['ordering'];
$order = $searchFormValue['order'];
$divName = "grid";
if ($optionFlag == "export") {
$sql = astercrm::getSql($searchContent, $searchField, $searchType, 'astercrm_account');
//得到要导出的sql语句
$_SESSION['export_sql'] = $sql;
$objResponse->addAssign("hidSql", "value", $sql);
//赋值隐含域
$objResponse->addScript("document.getElementById('exportForm').submit();");
} elseif ($optionFlag == "delete") {
astercrm::deletefromsearch($searchContent, $searchField, $searchType, 'astercrm_account');
$html = createGrid($searchFormValue['numRows'], $searchFormValue['limit'], '', '', $order, $divName, $ordering, '');
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign($divName, "innerHTML", $html);
} elseif ($type == "delete") {
$arreglo =& Customer::getAllRecords($start, $limit, $order, $_SESSION['curuser']['groupid']);
$content = '';
foreach ($arreglo as $agents) {
if ($agents['agent'] == $id) {
continue;
} else {
$addstr = "\nagent => " . trim($agents['agent']) . ',' . trim($agents['password']) . ',' . trim($agents['name']);
}
$content .= $addstr;
}
$agentsfile = '/etc/asterisk/agents_astercc.conf';
if ($fhandle = fopen($agentsfile, 'w')) {
fwrite($fhandle, $content);
$html = createGrid($searchFormValue['numRows'], $searchFormValue['limit'], $searchField, $searchContent, $order, $divName, $ordering, $searchType);
$objResponse = new xajaxResponse();
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("delete_rec"));
$objResponse->addAssign($divName, "innerHTML", $html);
} else {
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("rec_cannot_delete"));
}
} else {
$html = createGrid($numRows, $limit, $searchField, $searchContent, $order, $divName, $ordering, $searchType);
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign($divName, "innerHTML", $html);
}
return $objResponse->getXML();
}
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 searchFormSubmit($searchFormValue, $numRows = null, $limit = null, $id = null, $type = null)
{
global $locate, $db, $config;
$objResponse = new xajaxResponse();
$searchField = array();
$searchContent = array();
$searchContent = $searchFormValue['searchContent'];
//搜索内容 数组
$searchField = $searchFormValue['searchField'];
//搜索条件 数组
$searchType = $searchFormValue['searchType'];
$divName = "grid";
if ($type == "delete") {
if ($config['system']['portal_display_type'] == "note") {
$res = Customer::deleteRecord($id, 'note');
} else {
$res = Customer::deleteRecord($id, 'customer');
}
if ($res) {
$html = createGrid($searchFormValue['numRows'], $searchFormValue['limit'], $searchField, $searchContent, $searchField, $divName, "");
$objResponse = new xajaxResponse();
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("delete_rec"));
} else {
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("rec_cannot_delete"));
}
} else {
$html = createGrid($numRows, $limit, $searchField, $searchContent, $searchField, $divName, "", $searchType);
}
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign($divName, "innerHTML", $html);
return $objResponse->getXML();
}
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 archiveCDR($archiveDate)
{
global $db, $locate, $config;
$objResponse = new xajaxResponse();
$date = date("Y-m-d");
$end_date = date("Y-m-d", strtotime("{$date} - {$archiveDate} month"));
if ($config['system']['useHistoryCdr'] == 1) {
$table = 'historycdr';
} else {
$table = 'mycdr';
}
$sql = "SELECT calldate FROM {$table} WHERE calldate < '" . $end_date . "' ORDER BY calldate ASC LIMIT 1";
$start_date = $db->getOne($sql);
if ($start_date == '') {
$objResponse->addAlert($locate->Translate('no cdr data early than') . " " . $archiveDate . " " . $locate->Translate('months'));
$objResponse->addAssign("divMsg", "style.visibility", "hidden");
$objResponse->addClear("msgZone", "innerHTML");
return $objResponse->getXML();
}
$file_dir = $config['system']['upload_file_path'] . "cdr_archive";
if (!is_dir($file_dir)) {
if (!mkdir($file_dir)) {
$objResponse->addAlert($locate->Translate('cant create archive directory'));
$objResponse->addAssign("divMsg", "style.visibility", "hidden");
$objResponse->addClear("msgZone", "innerHTML");
return $objResponse->getXML();
}
}
$start_date = split('\\ ', $start_date);
$start_date = $start_date['0'];
$file_name = $start_date . "_to_" . $end_date;
if (!($handle = fopen($file_dir . "/" . $file_name . ".csv", 'x'))) {
$objResponse->addAlert($locate->Translate('cant create archive file'));
$objResponse->addAssign("divMsg", "style.visibility", "hidden");
$objResponse->addClear("msgZone", "innerHTML");
return $objResponse->getXML();
}
$sql = "SELECT * FROM {$table} WHERE calldate < '" . $end_date . "' ORDER BY calldate ASC";
$archiveData = astercrm::exportDataToCSV($sql);
if (!fwrite($handle, $archiveData)) {
$objResponse->addAlert($locate->Translate('cant create archive file'));
$objResponse->addAssign("divMsg", "style.visibility", "hidden");
$objResponse->addClear("msgZone", "innerHTML");
return $objResponse->getXML();
}
fclose($handle);
system("tar zcf " . $file_dir . "/" . $file_name . ".tar.gz " . $file_dir . "/" . $file_name . ".csv", $r);
if ($r === false) {
$final_file = $file_dir . "/" . $file_name . ".csv";
} else {
$final_file = $file_dir . "/" . $file_name . ".tar.gz";
unlink($file_dir . "/" . $file_name . ".csv");
}
$objResponse->addAlert($locate->Translate('archive success') . ", " . $locate->Translate('file save in') . ": " . $final_file);
$sql = "DELETE FROM {$table} WHERE calldate < '" . $end_date . "'";
$res = $db->query($sql);
if ($res == 1) {
$objResponse->addAlert($locate->Translate('clear cdr date success'));
} else {
$objResponse->addAlert($locate->Translate('clear cdr date failed'));
}
$html = createGrid(0, ROWSXPAGE);
$objResponse->addAssign("divMsg", "style.visibility", "hidden");
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign("grid", "innerHTML", $html);
return $objResponse->getXML();
//echo $file_name;exit;
}
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 searchFormSubmit($searchFormValue, $numRows, $limit, $id, $type)
{
global $locate, $db, $config;
$objResponse = new xajaxResponse();
$searchField = array();
$searchContent = array();
$optionFlag = $searchFormValue['optionFlag'];
$searchContent = $searchFormValue['searchContent'];
//搜索内容 数组
$searchField = $searchFormValue['searchField'];
//搜索条件 数组
$searchType = $searchFormValue['searchType'];
//搜索方式 数组
$divName = "grid";
if ($optionFlag == "export") {
$sql = astercrm::getSql($searchContent, $searchField, $searchType, 'clid');
//得到要导出的sql语句
$_SESSION['export_sql'] = $sql;
$objResponse->addAssign("hidSql", "value", $sql);
//赋值隐含域
$objResponse->addScript("document.getElementById('exportForm').submit();");
} elseif ($optionFlag == "delete") {
if (empty($_SESSION['curuser']['usertype'])) {
$objResponse->addAlert($locate->Translate("Session time out,please try again"));
return $objResponse->getXML();
}
if ($_SESSION['curuser']['usertype'] == 'groupadmin') {
$searchContent[] = $_SESSION['curuser']['groupid'];
$searchField[] = 'groupid';
$searchType[] = 'equal';
} elseif ($_SESSION['curuser']['usertype'] == 'reseller') {
$searchContent[] = $_SESSION['curuser']['resellerid'];
$searchField[] = 'resellerid';
$searchType[] = 'equal';
}
if ($config['synchronize']['delete_by_use_history']) {
astercrm::deleteToHistoryFromSearch($searchContent, $searchField, $searchType, 'clid');
} else {
astercrm::deletefromsearch($searchContent, $searchField, $searchType, 'clid');
}
$html = createGrid($numRows, $limit, '', '', '', $divName, "", $searchType);
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign($divName, "innerHTML", $html);
} elseif ($type == "delete") {
if (empty($_SESSION['curuser']['usertype'])) {
$objResponse->addAlert($locate->Translate("Session time out,please try again"));
return $objResponse->getXML();
}
if ($config['synchronize']['delete_by_use_history']) {
$res = Customer::deleteRecordToHistory('id', $id, 'clid');
} else {
$res = Customer::deleteRecord($id, 'clid');
}
if ($res) {
$html = createGrid($searchFormValue['numRows'], $searchFormValue['limit'], $searchField, $searchContent, $searchField, $divName, "", $searchType);
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("record deleted"));
$objResponse->addAssign($divName, "innerHTML", $html);
} else {
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("record cannot be deleted"));
}
} else {
$html = createGrid($numRows, $limit, $searchField, $searchContent, $searchField, $divName, "", $searchType);
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign($divName, "innerHTML", $html);
}
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 searchFormSubmit($searchFormValue, $numRows = null, $limit = null, $id = null, $type = null)
{
global $locate, $db;
$objResponse = new xajaxResponse();
$searchField = array();
$searchContent = array();
$optionFlag = $searchFormValue['optionFlag'];
$exportFlag = $searchFormValue['exportFlag'];
$searchContent = $searchFormValue['searchContent'];
//搜索内容 数组
$searchField = $searchFormValue['searchField'];
//搜索条件 数组
$searchType = $searchFormValue['searchType'];
$ordering = $searchFormValue['ordering'];
$order = $searchFormValue['order'];
$divName = "grid";
if ($optionFlag == "export" || $optionFlag == "exportcsv") {
$sql = astercrm::getSql($searchContent, $searchField, $searchType, 'diallist');
//得到要导出的sql语句
$joinstr = astercrm::createSqlWithStype($searchField, $searchContent, $searchType, 'diallist');
$joinstr = ltrim($joinstr, 'AND');
$sql = "SELECT diallist.dialnumber, customer.customer,diallist.customername,diallist.dialtime, diallist.assign,diallist.status,groupname,campaignname,diallist.cretime,diallist.creby,diallist.memo FROM diallist LEFT JOIN astercrm_accountgroup ON astercrm_accountgroup.groupid = diallist.groupid LEFT JOIN campaign ON campaign.id = diallist.campaignid LEFT JOIN customer ON customer.id = diallist.customerid";
if ($joinstr != '') {
$sql .= " WHERE " . $joinstr;
}
$_SESSION['export_sql'] = $sql;
$objResponse->addAssign("hidSql", "value", $sql);
//赋值隐含域
$objResponse->addAssign("maintable", "value", 'diallist');
//赋值隐含域
$objResponse->addAssign("exporttype", "value", $optionFlag);
$objResponse->addScript("document.getElementById('exportForm').submit();");
} elseif ($optionFlag == "delete") {
astercrm::deletefromsearch($searchContent, $searchField, $searchType, 'diallist');
$html = createGrid($searchFormValue['numRows'], $searchFormValue['limit'], '', '', $order, $divName, $ordering, '');
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign($divName, "innerHTML", $html);
} else {
if ($type == "delete") {
$res = Customer::deleteRecord($id, 'diallist');
if ($res) {
$html = createGrid($searchFormValue['numRows'], $searchFormValue['limit'], $searchField, $searchContent, $order, $divName, $ordering, $searchType);
$objResponse = new xajaxResponse();
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("delete_rec"));
} else {
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("rec_cannot_delete"));
}
} else {
$html = createGrid($numRows, $limit, $searchField, $searchContent, $order, $divName, $ordering, $searchType);
}
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign($divName, "innerHTML", $html);
}
return $objResponse->getXML();
}
function get_no_antrian($val) {
$tgl_periksa = $val[tgl_periksa_thn]."-".$val[tgl_periksa_bln]."-".$val[tgl_periksa_tgl];
if($val[dokter_id]) $s = " AND dokter_id = '".$val[dokter_id]."' ";
else $s = " AND dokter_id IS NULL ";
$kon = new Konek;
$sql = "
SELECT
CASE
WHEN (MAX(no_antrian) IS NULL) THEN '1'
ELSE (MAX(no_antrian) + 1)
END AS no_antrian
FROM
kunjungan_kamar
WHERE
kamar_id = '".$val[kamar_id]."'
AND DATE(tgl_periksa) = '".$tgl_periksa."'
$s
";
$kon->sql = $sql;
$kon->execute();
$data = $kon->getOne();
$objResponse = new xajaxResponse;
$objResponse->addClear("tr_no_antrian", "style.display");
$objResponse->addAssign("div_no_antrian", "innerHTML", $data[no_antrian]);
$objResponse->addAssign("no_antrian", "value", $data[no_antrian]);
return $objResponse;
}
function searchFormSubmit($searchFormValue, $numRows, $limit, $id, $type)
{
global $locate, $db, $config;
$objResponse = new xajaxResponse();
$searchField = array();
$searchContent = array();
$optionFlag = $searchFormValue['optionFlag'];
$searchContent = $searchFormValue['searchContent'];
//搜索内容 数组
$searchField = $searchFormValue['searchField'];
//搜索条件 数组
$searchType = $searchFormValue['searchType'];
//搜索方式 数组
$divName = "grid";
if ($optionFlag == "export") {
$sql = astercrm::getSql($searchContent, $searchField, $searchType, 'accountgroup');
//得到要导出的sql语句
$_SESSION['export_sql'] = $sql;
$objResponse->addAssign("hidSql", "value", $sql);
//赋值隐含域
$objResponse->addScript("document.getElementById('exportForm').submit();");
} elseif ($type == "delete") {
if ($config['synchronize']['delete_by_use_history']) {
$res = Customer::deleteRecordToHistory('groupid', $id, 'clid');
$res = Customer::deleteRecordToHistory('groupid', $id, 'myrate');
$res = Customer::deleteRecordToHistory('groupid', $id, 'callshoprate');
$res = Customer::deleteRecordToHistory('groupid', $id, 'account');
$res = Customer::deleteRecordToHistory('id', $id, 'accountgroup');
} else {
$res = Customer::deleteRecords('groupid', $id, 'clid');
$res = Customer::deleteRecords('groupid', $id, 'myrate');
$res = Customer::deleteRecords('groupid', $id, 'callshoprate');
$res = Customer::deleteRecords('groupid', $id, 'account');
$res = Customer::deleteRecord($id, 'accountgroup');
}
if ($res) {
$html = createGrid($searchFormValue['numRows'], $searchFormValue['limit'], $searchField, $searchContent, $searchField, $divName, "", $searchType);
$objResponse = new xajaxResponse();
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("delete_rec"));
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign($divName, "innerHTML", $html);
} else {
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("rec_cannot_delete"));
}
} else {
$html = createGrid($numRows, $limit, $searchField, $searchContent, $searchField, $divName, "", $searchType);
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign($divName, "innerHTML", $html);
}
return $objResponse->getXML();
}
/**
* function to verify user data
*
* @param $aFormValues (array) login form data
$aFormValues['username']
$aFormValues['password']
$aFormValues['locate']
* @return $objResponse
* @session
$_SESSION['curuser']['username']
$_SESSION['curuser']['extension']
$_SESSION['curuser']['extensions']
$_SESSION['curuser']['country']
$_SESSION['curuser']['language']
$_SESSION['curuser']['channel']
$_SESSION['curuser']['accountcode']
*/
function processAccountData($aFormValues)
{
global $db, $config;
list($_SESSION['curuser']['country'], $_SESSION['curuser']['language']) = split("_", $aFormValues['locate']);
//get locate parameter
$locate = new Localization($_SESSION['curuser']['country'], $_SESSION['curuser']['language'], 'login');
$objResponse = new xajaxResponse();
/* check whether the pear had been installed */
$pear_exists_result = class_exists('PEAR');
if (empty($pear_exists_result)) {
$objResponse->addAlert($locate->Translate("Please install php pear"));
$objResponse->addAssign("loginButton", "value", $locate->Translate("submit"));
$objResponse->addAssign("loginButton", "disabled", false);
return $objResponse;
}
if (isset($_SERVER["HTTP_X_FORWARDED_FOR"])) {
if ($_SERVER["HTTP_CLIENT_IP"]) {
$proxy = $_SERVER["HTTP_CLIENT_IP"];
} else {
$proxy = $_SERVER["REMOTE_ADDR"];
}
} else {
if (isset($_SERVER["HTTP_CLIENT_IP"])) {
$ip = $_SERVER["HTTP_CLIENT_IP"];
} else {
$ip = $_SERVER["REMOTE_ADDR"];
}
}
$query = "SELECT * FROM account_log WHERE ip='" . $ip . "' AND action='login' ORDER BY id DESC LIMIT 1";
$res = $db->query($query);
if ($res->fetchInto($this_ip_log)) {
$failedtimes = $this_ip_log['failedtimes'];
}
$log = array();
$log['action'] = 'login';
$log['ip'] = $ip;
$log['username'] = $aFormValues['username'];
if ($failedtimes >= $config['system']['max_incorrect_login'] && $config['system']['max_incorrect_login'] > 0) {
$objResponse->addAlert($locate->Translate("login failed,your ip is locked for login"));
$objResponse->addAssign("loginButton", "value", $locate->Translate("submit"));
$objResponse->addAssign("loginButton", "disabled", false);
return $objResponse;
}
$bError = false;
$loginError = false;
if (!$bError) {
$query = "SELECT account.*, accountgroup.accountcode,accountgroup.allowcallback as allowcallbackgroup,resellergroup.allowcallback as allowcallbackreseller,accountgroup.limittype FROM account LEFT JOIN accountgroup ON accountgroup.id = account.groupid LEFT JOIN resellergroup ON resellergroup.id = account.resellerid WHERE username='******'username'] . "'";
$res = $db->query($query);
if ($res->fetchInto($list)) {
$log['account_id'] = $list['id'];
$log['usertype'] = $list['usertype'];
if ($list['password'] == $aFormValues['password']) {
$log['status'] = 'success';
$log['failedtimes'] = 0;
if ($aFormValues['rememberme'] == "forever") {
// set cookies for three years
setcookie("username", $aFormValues['username'], time() + 94608000);
setcookie("password", $aFormValues['password'], time() + 94608000);
setcookie("language", $aFormValues['locate'], time() + 94608000);
setcookie("pagestyle", $aFormValues['pagestyle'], time() + 94608000);
} else {
// destroy cookies
setcookie("username", "", time() - 3600);
setcookie("password", "", time() - 3600);
setcookie("language", "", time() - 3600);
setcookie("pagestyle", $aFormValues['pagestyle'], time() + 94608000);
$username = '';
$password = '';
$language = 'en_US';
$checked = false;
}
$_SESSION = array();
$_SESSION['curuser']['username'] = trim($aFormValues['username']);
$_SESSION['curuser']['usertype'] = $list['usertype'];
$_SESSION['curuser']['ipaddress'] = $_SERVER["REMOTE_ADDR"];
$_SESSION['curuser']['userid'] = $list['id'];
$_SESSION['curuser']['groupid'] = $list['groupid'];
$_SESSION['curuser']['resellerid'] = $list['resellerid'];
$_SESSION['curuser']['limittype'] = $list['limittype'];
$configstatus = common::read_ini_file($config['system']['astercc_path'] . '/astercc.conf', $asterccConfig);
if ($configstatus == -2) {
$html = "(fail to read " . $config['system']['astercc_path'] . "/astercc.conf)";
return $html;
} else {
$billingfield = trim($asterccConfig['system']['billingfield']);
if ($billingfield == 'accountcode') {
$_SESSION['curuser']['billingfield'] = $billingfield;
}
}
$res = astercrm::getCalleridListByID($list['groupid']);
while ($res->fetchInto($row)) {
$_SESSION['curuser']['extensions'][] = $row['clid'];
}
if (!is_array($_SESSION['curuser']['extensions'])) {
$_SESSION['curuser']['extensions'] = array();
}
if ($list['usertype'] == 'reseller') {
$_SESSION['curuser']['allowcallback'] = $list['allowcallbackreseller'];
} else {
$_SESSION['curuser']['allowcallback'] = $list['allowcallbackgroup'];
}
$_SESSION['curuser']['accountcode'] = $list['accountcode'];
// if ($list['extensions'] != ''){
// $_SESSION['curuser']['extensions'] = split(',',$list['extensions']);
// }
// else{
// }
list($_SESSION['curuser']['country'], $_SESSION['curuser']['language']) = split("_", $aFormValues['locate']);
/*
if you dont want check manager status and show device status when user login
please uncomment these three line
*/
// $objResponse->addAlert($locate->Translate("login_success"));
if ($_SESSION['curuser']['usertype'] == 'groupadmin' || $_SESSION['curuser']['usertype'] == 'operator') {
if ($aFormValues['pagestyle'] == 'classic') {
$objResponse->addScript('window.location.href="systemstatus.php";');
} else {
$objResponse->addScript('window.location.href="systemstatus_simple.php";');
}
} else {
$objResponse->addScript('window.location.href="account.php";');
}
astercrm::insertAccountLog($log);
return $objResponse;
//check AMI connection
$myAsterisk = new Asterisk();
$myAsterisk->config['asmanager'] = $config['asterisk'];
$res = $myAsterisk->connect();
$html .= $locate->Translate("server_connection_test");
if ($res) {
$html .= '<font color=green>' . $locate->Translate("pass") . '</font><br>';
$html .= '<b>' . $_SESSION['curuser']['extension'] . ' ' . $locate->Translate("device_status") . '</b><br>';
$html .= asterisk::getPeerIP($_SESSION['curuser']['extension']) . '<br>';
$html .= asterisk::getPeerStatus($_SESSION['curuser']['extension']) . '<br>';
} else {
$html .= '<font color=red>' . $locate->Translate("no_pass") . '</font>';
}
if ($aFormValues['pagestyle'] == 'classic') {
$html .= '<input type="button" value="' . $locate->Translate("continue") . '" id="btnContinue" name="btnContinue" onclick="window.location.href=\'systemstatus.php\';">';
} else {
$html .= '<input type="button" value="' . $locate->Translate("continue") . '" id="btnContinue" name="btnContinue" onclick="window.location.href=\'systemstatus_simple.php\';">';
}
$objResponse->addAssign("formDiv", "innerHTML", $html);
$objResponse->addClear("titleDiv", "innerHTML");
$objResponse->addScript("xajax.\$('btnContinue').focus();");
} else {
//$log['account_id'] = 0;
$log['failedtimes'] = $failedtimes + 1;
$log['status'] = 'failed';
$log['failedcause'] = 'incorrect password';
$loginError = true;
}
} else {
$log['failedtimes'] = $failedtimes + 1;
$log['account_id'] = 0;
$log['usertype'] = 'manager_login';
$log['status'] = 'failed';
$log['failedcause'] = 'notexistent user';
$loginError = true;
}
astercrm::insertAccountLog($log);
if (!$loginError) {
return $objResponse;
} else {
$objResponse->addAlert($locate->Translate("login failed"));
$objResponse->addAssign("loginButton", "value", $locate->Translate("submit"));
$objResponse->addAssign("loginButton", "disabled", false);
return $objResponse;
}
} else {
$objResponse->addAssign("loginButton", "value", $locate->Translate("submit"));
$objResponse->addAssign("loginButton", "disabled", false);
}
return $objResponse;
}
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 saveCustomerLeadNote($f)
{
global $locate;
$objResponse = new xajaxResponse();
$respOk = Customer::saveCustomerLeadNote($f);
if ($respOk) {
$objResponse->addAssign("formNoteInfo", "style.visibility", "hidden");
$objResponse->addClear("formNoteInfo", "innerHTML");
$html = createGrid(0, ROWSXPAGE);
$objResponse->addAssign("grid", "innerHTML", $html);
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("a_new_note_added"));
} else {
$objResponse->addAlert('can not add note');
}
return $objResponse;
}
function searchFormSubmit($searchFormValue, $numRows = null, $limit = null, $id = null, $type = null)
{
global $locate, $db;
$objResponse = new xajaxResponse();
$searchField = array();
$searchContent = array();
$optionFlag = $searchFormValue['optionFlag'];
$searchContent = $searchFormValue['searchContent'];
//搜索内容 数组
$searchField = $searchFormValue['searchField'];
//搜索条件 数组
$searchType = $searchFormValue['searchType'];
$ordering = $searchFormValue['ordering'];
$order = $searchFormValue['order'];
$divName = "grid";
if ($optionFlag == "export") {
$sql = astercrm::getSql($searchContent, $searchField, $searchType, 'worktimes');
//得到要导出的sql语句
$_SESSION['export_sql'] = $sql;
$objResponse->addAssign("hidSql", "value", $sql);
//赋值隐含域
$objResponse->addScript("document.getElementById('exportForm').submit();");
} elseif ($type == "delete") {
$row = Customer::getRecordByField('worktime_id', $id, 'worktimepackage_worktimes');
if ($row['id'] != '') {
$objResponse->addAlert($locate->Translate("this worktime in one or more package, can not delete"));
return $objResponse->getXML();
}
$res = Customer::deleteRecord($id, 'worktimes');
if ($res) {
$html = createGrid($searchFormValue['numRows'], $searchFormValue['limit'], $searchField, $searchContent, $order, $divName, $ordering, $searchType);
$objResponse = new xajaxResponse();
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("delete_rec"));
$objResponse->addAssign($divName, "innerHTML", $html);
} else {
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("rec_cannot_delete"));
}
} else {
$html = createGrid($numRows, $limit, $searchField, $searchContent, $order, $divName, $ordering, $searchType);
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign($divName, "innerHTML", $html);
}
return $objResponse->getXML();
}
function searchFormSubmit($searchFormValue, $numRows, $limit, $id, $type)
{
global $locate, $db;
$objResponse = new xajaxResponse();
$searchField = array();
$searchContent = array();
$optionFlag = $searchFormValue['optionFlag'];
$deleteFlag = $searchFormValue['deleteFlag'];
$exportFlag = $searchFormValue['exportFlag'];
$searchContent = $searchFormValue['searchContent'];
//搜索内容 数组
$searchField = $searchFormValue['searchField'];
//搜索条件 数组
$searchType = $searchFormValue['searchType'];
//搜索方式 数组
$divName = "grid";
if ($exportFlag == "1" || $optionFlag == "export") {
$sql = astercrm::getSql($searchContent, $searchField, $searchType, 'curcdr');
//得到要导出的sql语句
$_SESSION['export_sql'] = $sql;
$objResponse->addAssign("hidSql", "value", $sql);
//赋值隐含域
$objResponse->addScript("document.getElementById('exportForm').submit();");
} elseif ($deleteFlag == "1" || $optionFlag == "delete") {
Customer::deleteFromSearch($searchContent, $searchField, $searchType, 'curcdr');
$html = createGrid($searchFormValue['numRows'], $searchFormValue['limit'], '', '', '', $divName, "", 1, $searchType);
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign($divName, "innerHTML", $html);
} else {
if ($type == "delete") {
$res = Customer::deleteRecord($id, 'curcdr');
if ($res) {
$html = createGrid($searchFormValue['numRows'], $searchFormValue['limit'], $searchField, $searchContent, $searchField, $divName, "", 1, $searchType);
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("record deleted"));
} else {
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("record cannot be deleted"));
}
} else {
$html = createGrid($numRows, $limit, $searchField, $searchContent, $searchField, $divName, "", 1, $searchType);
}
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign($divName, "innerHTML", $html);
}
return $objResponse->getXML();
}
function _data_preset_rra_item_xajax_save($post_args) {
require_once(CACTI_BASE_PATH . "/lib/data_preset/data_preset_rra_update.php");
require_once(CACTI_BASE_PATH . "/lib/data_template/data_template_update.php");
require_once(CACTI_BASE_PATH . "/lib/data_source/data_source_update.php");
$objResponse = new xajaxResponse();
if (basename($_SERVER["PHP_SELF"]) == "presets_rra.php") {
$form_rra_item["preset_rra_id"] = $post_args["preset_rra_id"];
}else if (basename($_SERVER["PHP_SELF"]) == "data_templates.php") {
$form_rra_item["data_template_id"] = $post_args["data_template_id"];
}else if (basename($_SERVER["PHP_SELF"]) == "data_sources.php") {
$form_rra_item["data_source_id"] = $post_args["data_source_id"];
}
/* obtain a list of visible rra item fields on the form */
$visible_fields = api_data_preset_rra_item_visible_field_list($post_args["rrai|consolidation_function|0"]);
/* all non-visible fields on the form should be discarded */
foreach ($visible_fields as $field_name) {
$form_rra_item[$field_name] = $post_args["rrai|$field_name|0"];
}
$field_errors = api_data_preset_rra_item_field_validate($form_rra_item, "rrai||field||0");
foreach (array_keys($form_rra_item) as $field_name) {
if (isset($post_args{"rrai|" . $field_name . "|0"})) {
/* make a red border around the fields which have validation errors */
if (in_array("rrai|" . $field_name . "|0", $field_errors)) {
$objResponse->addAssign("rrai|" . $field_name . "|0", "style.border", "2px solid red");
/* clear the border for all of the fields without validation errors */
}else{
$objResponse->addClear("rrai|" . $field_name . "|0", "style.border");
}
}
}
$rra_preset_item_id = false;
if (sizeof($field_errors) > 0) {
$objResponse->addAlert("Form validation error!");
}else{
if (basename($_SERVER["PHP_SELF"]) == "presets_rra.php") {
$rra_preset_item_id = api_data_preset_rra_item_save(0, $form_rra_item);
}else if (basename($_SERVER["PHP_SELF"]) == "data_templates.php") {
$rra_preset_item_id = api_data_template_rra_item_save(0, $form_rra_item);
}else if (basename($_SERVER["PHP_SELF"]) == "data_sources.php") {
$rra_preset_item_id = api_data_source_rra_item_save(0, $form_rra_item);
}else{
$rra_preset_item_id = false;
}
if ($rra_preset_item_id === false) {
$objResponse->addAlert("Save error!");
}else{
/* update the rra item header text */
$objResponse->addAssign("row_rra_item_header_0", "innerHTML", api_data_preset_rra_item_friendly_name_get($post_args["rrai|consolidation_function|0"], $post_args["rrai|steps|0"], $post_args["rrai|rows|0"]));
$objResponse->addScript("make_row_old(\"$rra_preset_item_id\");");
}
}
return $objResponse->getXML();
}
function reset_kecamatan () {
$objResponse = new xajaxResponse();
$objResponse->addClear("id_kecamatan", "value");
$objResponse->addClear("nama", "value");
$objResponse->addScriptCall("fokus", "nama");
return $objResponse;
}
function list_pasien($hal, $id_pekerjaan, $val) {
unset($_SESSION[rekmed][statistik_pasien_semua_pekerjaan][list_pasien]);
/*cek tanggal untuk menghindari 2007-02-31=>mundur 1 hari atw 1 bulan*/
$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];
$tgl_start = @date("Y-m-d", @mktime(1,1,1,$val[tgl_periksa_bln_start], $val[tgl_periksa_tgl_start], $val[tgl_periksa_thn_start]));
$tgl_end = @date("Y-m-d", @mktime(1,1,1,$val[tgl_periksa_bln_end], $val[tgl_periksa_tgl_end], $val[tgl_periksa_thn_end]));
if($val[jangka_waktu] == "hari") {
$tanggal_awal = tanggalIndo($tgl_start, "j F Y");
$tanggal_akhir = tanggalIndo($tgl_end, "j F Y");
$_q = "AND DATE(p.tgl_daftar) BETWEEN '" . $tgl_start . "' AND '" . $tgl_end . "'";
} elseif($val[jangka_waktu] == "bulan") {
$tanggal_awal = tanggalIndo($tgl_start, "F Y");
$tanggal_akhir = tanggalIndo($tgl_end, "F Y");
$_q = "AND EXTRACT(YEAR_MONTH FROM p.tgl_daftar) BETWEEN '" . $val[tgl_periksa_thn_start] . $val[tgl_periksa_bln_start] . "' AND '" . $val[tgl_periksa_thn_end] . $val[tgl_periksa_bln_end] . "'";
} else {
$tanggal_awal = tanggalIndo($tgl_start, "Y");
$tanggal_akhir = tanggalIndo($tgl_end, "Y");
$_q = "AND YEAR(p.tgl_daftar) BETWEEN '" . $val[tgl_periksa_thn_start] . "' AND '" . $val[tgl_periksa_thn_end] . "'";
}
$objResponse = new xajaxResponse();
$paging = new MyPagina;
$paging->rows_on_page = 5;
$paging->hal = $hal;
$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,
p.tgl_daftar as tgl_daftar,
p.sex as jk,
rp.nama as nama_pekerjaan
FROM
pasien p
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)
JOIN ref_pekerjaan rp ON (rp.id = p.pekerjaan_id)
WHERE
rp.id = '".$id_pekerjaan."'
$_q
GROUP BY p.id
ORDER BY
p.tgl_daftar
";
//echo $sql;
//$objResponse->addAssign("debug", "innerHTML", $sql);
$paging->onclick_func = "xajax_list_pasien";
$paging->setOnclickValue($id_pekerjaan, "xajax.getFormValues('statistik_pasien_semua_pekerjaan')");
$paging->sql = $sql;
$paging->get_page_result();
$ket_hal = $paging->ket_hal_ini();
$no = $paging->start_number();
$data = $paging->data;
$navi = $paging->navi();
$is_last_page = $paging->is_last_page();
$title = "Daftar Pasien Pasien Dengan Pekerjaan ".$data[0][nama_pekerjaan]. "\nPeriode " . $tanggal_awal . " s.d. " . $tanggal_akhir;
$objResponse->addClear("list_pasien", "style.display");
$atas = "<div style=\"text-align:right;width:100%;\">";
$atas .= "<img src=\"". IMAGES_URL . "printer.gif\" alt=\"Cetak\" onclick=\"cetak('".URL."rekmed/statistik_pasien_semua_pekerjaan_list_pasien_cetak/?hal=".$hal."');\" class=\"printer_button\" />";
$atas .= "<img src=\"". IMAGES_URL . "close.gif\" alt=\"Tutup\" onclick=\"tutup_list_pasien();\" class=\"close_button2\" />";
$atas .= "</div>";
$atas .= "<h3>".nl2br($title)."</h3>";
$atas .= "<div class=\"navi\">" . $navi . "</div>";
$atas .= "<hr />";
for($i=0;$i<sizeof($data);$i++) {
$arr_usia = hitungUmur($data[$i][tgl_lahir], $data[$i][tgl_daftar]);
$usia = empty($arr_usia[tahun])?"":$arr_usia[tahun] . " thn ";
$usia .= empty($arr_usia[bulan])?"":$arr_usia[bulan] . " bln ";
$usia .= empty($arr_usia[hari])?"":$arr_usia[hari] . " hr ";
$ret .= "<table cellpadding=\"0\" cellspacing=\"2\" border=\"0\">";
$ret .= "<tr><td style=\"width:30px;vertical-align:top;\" rowspan=\"6\">".($no+$i).".</td><td style=\"width:150px\">No. RM</td><td>" . $data[$i][id_display] . "</td></tr>";
$ret .= "<tr><td>Nama</td><td>" . $data[$i][nama] . "</td></tr>";
$ret .= "<tr><td>Usia</td><td>" . (empty($usia)?"-":$usia) . "</td></tr>";
$ret .= "<tr><td>Jenis Kelamin</td><td>" . $data[$i][jk] . "</td></tr>";
$ret .= "<tr><td style=\"vertical-align:top;\">Alamat</td><td>" . $data[$i][alamat] . "</td></tr>";
$ret .= "<tr><td>Tgl Daftar</td><td>" . tanggalIndo($data[$i][tgl_daftar], "j F Y") . "</td></tr>";
$ret .= "</table>";
$ret .= "<hr />";
}
$_SESSION[rekmed][statistik_pasien_semua_pekerjaan][list_pasien][is_last_page] = $is_last_page;
$_SESSION[rekmed][statistik_pasien_semua_pekerjaan][list_pasien][title] = $title;
$_SESSION[rekmed][statistik_pasien_semua_pekerjaan][list_pasien][content] = $ret;
$_SESSION[rekmed][statistik_pasien_semua_pekerjaan][list_pasien][ket_hal] = $ket_hal;
$objResponse->addAssign("list_pasien", "innerHTML", $atas.$ret);
return $objResponse;
}
function searchFormSubmit($searchFormValue, $numRows = null, $limit = null, $id = null, $type = null)
{
global $locate, $db;
$objResponse = new xajaxResponse();
$searchField = array();
$searchContent = array();
$optionFlag = $searchFormValue['optionFlag'];
$searchContent = $searchFormValue['searchContent'];
//搜索内容 数组
$searchField = $searchFormValue['searchField'];
//搜索条件 数组
$searchType = $searchFormValue['searchType'];
$ordering = $searchFormValue['ordering'];
$order = $searchFormValue['order'];
$divName = "grid";
if ($optionFlag == "export" || $optionFlag == "exportcsv") {
$sql = astercrm::getSql($searchContent, $searchField, $searchType, 'sms_sents');
//得到要导出的sql语句
$_SESSION['export_sql'] = $sql;
$objResponse->addAssign("hidSql", "value", $sql);
//赋值隐含域
$objResponse->addAssign("maintable", "value", 'sms_sents');
//赋值隐含域
$objResponse->addAssign("exporttype", "value", $optionFlag);
$objResponse->addScript("document.getElementById('exportForm').submit();");
} elseif ($optionFlag == "delete") {
astercrm::deletefromsearch($searchContent, $searchField, $searchType, 'sms_sents');
$html = createGrid($searchFormValue['numRows'], $searchFormValue['limit'], '', '', $order, $divName, $ordering, '');
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign($divName, "innerHTML", $html);
} elseif ($type == "delete") {
$res = Customer::deleteRecord($id, 'sms_templates');
if ($res) {
$html = createGrid($searchFormValue['numRows'], $searchFormValue['limit'], $searchField, $searchContent, $order, $divName, $ordering, $searchType);
$objResponse = new xajaxResponse();
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("delete_rec"));
$objResponse->addAssign($divName, "innerHTML", $html);
} else {
$objResponse->addAssign("msgZone", "innerHTML", $locate->Translate("rec_cannot_delete"));
}
} else {
$html = createGrid($numRows, $limit, $searchField, $searchContent, $order, $divName, $ordering, $searchType);
$objResponse->addClear("msgZone", "innerHTML");
$objResponse->addAssign($divName, "innerHTML", $html);
}
return $objResponse->getXML();
}
function reset_pasien () {
$objResponse = new xajaxResponse();
$objResponse->addScript("document.tambah_pasien.reset()");
$objResponse->addClear("id_pasien", "value");
$objResponse->addAssign("list_tombol_besar_kunjungan", "style.display", "none");
//$objResponse->addScriptCall("fokus", "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;
}
