51 lines
2.0 KiB
PHP
51 lines
2.0 KiB
PHP
<?php
|
|
include("core/main.php");
|
|
|
|
$qry = "SELECT NOMR FROM m_pasien";
|
|
$get = $db->query($qry);
|
|
foreach($get->fetchAll() as $data){
|
|
|
|
$kodebarang = $data['NOMR'];
|
|
/*$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 14)");
|
|
$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 10)");
|
|
$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 3)");
|
|
$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 15)");
|
|
$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 4)"); */
|
|
$sql_daftar = "select TGLREG from t_pendaftaran where NOMR = '".$kodebarang."'
|
|
order by IDXDAFTAR asc limit 1";
|
|
$get_daftar = $db->query($sql_daftar);
|
|
$dat_daftar = $get_daftar->fetchAll()[0];
|
|
$tgl_daftar = $dat_daftar['TGLREG'];
|
|
|
|
$db->query("update m_pasien set TGLDAFTAR = '".$tgl_daftar."' where NOMR= '".$kodebarang."'");
|
|
/*$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 2)");
|
|
$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 17)");
|
|
$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 20)");
|
|
$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 22)");
|
|
$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 1)");
|
|
$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 18)");
|
|
$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 5)");
|
|
$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 19)");
|
|
$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 7)");
|
|
$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 21)");
|
|
$db->query("INSERT INTO m_barang_unit (kode_barang, KDUNIT)
|
|
VALUES ($kodebarang, 9)"); */
|
|
}
|
|
|
|
|
|
?>
|