HAPPY WITH IT !: UAS BASIS DATA LANJUT

Tugas 1

1. FUNCTION ? Ada berapa macam ? Jelaskan bedanya ?

2. Apa package ? Jelaskan beri contoh ?

3. Dari masing-masing kelompok cari warna merah di materi dan kerjakan ?

4. Dari masing-masing kelompok buat topik / judul tentang suatu rencana sistem ?

5. Dari masing-masing kelompok buat ERD tingkat lanjut dan transformasi ?

6. Dari masing-masing kelompok buat table beserta relasi ?

7. Dari masing-masing kelompok buat desain active database yang meliputi Procedure, function, trigger dan tampilkan dalam bentuk Arsitektur PL metode PIPE dan FILTER ?

v Kelebihan Sistem aplikasi rekam medis :

§ Aplikasi terdapat tabel relasi turunan antar tabel

§ Dalam aplikasi terdapat data pegawai rumah sakit yang terintegrasi dengan sitem diagnosa

§ Dapat meminimalisasi antrian

§ Mempermudah proses pengambilan data pasien

Alir Data CDM :

Alir Data PDM :

Relasi tabel pada database rekam medis

Ø Relasi inheritance pada database tarjadi antara tabel pegawai dengan table kepala_RS, admin, Apoteker, Dokter. Dengan table pegawai sebagai induk.

Relasi antara table dokter dan rekam_medis many to one

Ø Relasi antara table pasien dengan admin many to one

Ø Relasi antara tabel admin dengan rekam medis one to many

Ø Relasi antara table resep dengan rekam_medis one to one

Ø Relasi antara tabel resep dengan data_obat many to many

Ø Relasi antara table apoteker dengan resep one to many

Jawaban Tugas 1

1. Desain active database yang meliputi Procedure, function, trigger dan tampilkan dalam bentuk Arsitektur PL metode PIPE dan FILTER .

§ Procedure

ü Update_dokter : procedure untuk mengupdate data dokter yang telah di inputkan

Input : id_pegawai, SIP_Dokter, spesialis

Proses : pada table dokter data di update kedalam data baru atau melakukan perubahan

Output : SIP_Dokter dan spesialis

ü Sp_insertpegawai : procedure untuk memasukkan data pegawai baru

Input : id_pegawai, nama_pegawai, jenis_kelamin, alamat, telepon

Proses : pada table pegawai terjadi proses penginputan data

Output : nama_pegawai, jenis_kelamin, alamat, telepon

ü Delete_RM : Procedure untuk mendelet data rekam medis pada table rekam medis

Input : nomer_RM

Proses : pada table rekam_medis terjadi proses delete data rekam medis

Output : hapus data

ü Sp_insertobat : Procedure untuk memasukkan data obat ke dalam table data_obat

Input : kode_obat, nama_obat, jumlah, kemasan,harga,harga total

Proses : melakukan proses penginputan data pada table data_obat

Output : kode_obat, nama_obat, jumlah, kemasan,harga,harga total

ü Lihat Rekam_Medis : Pada procedure lihat data Rekam_medis akan menunjukkan data rekam medis yang telah di input

Input : nomer_RM

Proses : melakukan proses menampilkan data rekam medis

Output : data Rekam_medis

§ Function

· Function fceknama_pegawai berfungsi untuk mengecek keberadaan nama pegawai dalam table pegawai

· Function fcekno_registrasi berfungsi untuk mengecek keberadaan nomer registrasi yang ada di dalam table pasien

· Function fcekdata_obat berfungsi untuk mengecek data obat pada table data obat dengan field kode_obat

· Function fcekrekam_medis berfungsi untuk mengecek data rekam medis pada tabel rekam medis

· Function fcekdata_dokter berfungsi untuk mengecek data dokter pada table dokter

§ Trigger

· Delete : deletedata_pegawai

Berfungsi untuk memberikan pesan telah berhasil di hapus sebuah data

Input : id_pegawai

Proses : jika terjadi proses delete data pegawai maka akan mucul pesan delete data yang di hapus.

Output : menampilkan id_pegawai yang di hapus

· Update : his_updtpegawai

Berfungsi untuk membuat hitory pengupdatetan data yang telah di lakukan.

Inputan : id_pegawai

Proses : jika terjadi proses update pada table pegawai maka secara otomatis id_pegawai yang telah di update akan masuk kedalam table history beserta tanggal update terjadi.

Output : pada table history akan muncul field keterangan id yang di update beserta tanggal update.

· Update : his_deletepegawai

Berfungsi untuk menampilkan data pegawai yang telah di delete kedalam table history_delete

Inputan : id_pegawai

Proses : jika terjadi proses pendeletan data pegawai maka akan secara otomatis terupdate id_pegawai dan tanggal proses terjadinya delete pada table history_delete.

Output : pada table history_delete akan terupdate secara otomatis id yang di hapus dan tanggal proses penghapusan data.

Tugas 2 & 3

Backup dan Sinkronisasi SQL, ORACLE

§ Query SQL Server

create database rekam_medis

use rekam_medis

------------------------------------------------------------------

tabel pegawai

------------------------------------------------------------------

create table pegawai(

id_pegawai varchar (5),

nama_pegawai varchar (15),

jenis_kelamin char (8),

alamat varchar (20),

telepon varchar (12),

constraint PK_pegawai primary key (id_pegawai))

select *from pegawai

insert into pegawai values ('00001','ria','wanita','kebraon',12345678)

insert into pegawai values ('00002','tara','pria','gogor city',987654321)

insert into pegawai values ('00003','alif','pria','papua',333333333333)

insert into pegawai values ('00004','budi','pria','JL rajawali',999999999999)

insert into pegawai values ('00005','selly','wanita','JL. semarang',888888888888)

insert into pegawai values ('00006','ridho','pria','ahmad yani',65432189)

insert into pegawai values ('00007','jelita','wanita','gunung sari',098765)

insert into pegawai values ('00008','rifky','pria','rungkut',765432)

------------buat procedure untuk insert pegawai

create proc sp_insertpegawai (

@id_pegawai varchar (5),

@nama_pegawai varchar (15),

@jenis_kelamin varchar (8),

@alamat varchar(20),

@telepon varchar (12))

as begin

insert into pegawai values(@id_pegawai, @nama_pegawai,@jenis_kelamin, @alamat, @telepon)

end

insert into pegawai values ('00001','ria','wanita','kebraon',12345678)

exec sp_insertpegawai '00010','danu','pria','karangpilang',12345678

select *from pegawai

-----------------------------------function cek nama pegawai

create function fceknama_pegawai (@nama_pegawai varchar (15))

returns varchar (5)

as begin

declare @data varchar(15), @status varchar (5)

declare cStatus cursor for select nama_pegawai from pegawai where nama_pegawai=@nama_pegawai

set @status=0

open cStatus

fetch next from cStatus into @nama_pegawai

while @@FETCH_STATUS=0

begin

set @data=(select nama_pegawai from pegawai where nama_pegawai=@nama_pegawai)

if(@data<>@nama_pegawai)

begin

set @status=0

end

else

begin

set @status=1

end

fetch next from cStatus into @nama_pegawai

end

close cStatus

deallocate cStatus

return @status

end

------Stored Procedure cek nama pegawai

select * from pegawai

create proc sp_ceknama_pegawai (@nama_pegawai varchar(15))

as begin

declare @status varchar (5)

set @status = dbo.fceknama_pegawai(@nama_pegawai)

if(@status=0)

begin

print 'Nama pegawai TIDAK ADA DALAM DATABASE'

end

else

begin

print ' Nama pegawai anda tersedia dalam database '

end

exec sp_ceknama_pegawai 'danu'

select * from pegawai

--- stored procedure update pegawai

create proc sp_updatepegawai(

@id_pegawai varchar (5),

@nama_pegawai varchar (15),

@jenis_kelamin varchar (8),

@alamat varchar(20),

@telepon varchar (12))

as begin

update pegawai set

nama_pegawai=@nama_pegawai,

jenis_kelamin=@jenis_kelamin,

alamat=@alamat, telepon=@telepon

where id_pegawai=@id_pegawai

end

exec sp_updatepegawai '00010','surti','wanita','jombang',12345678

select *from pegawai

select *from history

------------buat triger untuk history update pegawai

create trigger his_updtpegawai on pegawai

for update as

declare @id_pegawai varchar (5)

select @id_pegawai=id_pegawai

from pegawai

insert into history(keterangan,tgl)

values ('update data pada tabel pegawai dengan id : ' +@id_pegawai,GETDATE())

select *from history_delete

------------buat triger untuk history delete pegawai

create trigger his_deletepegawai on pegawai

for delete as

declare @id_pegawai varchar (5)

select @id_pegawai=id_pegawai

from deleted

insert into history_delete(ket,tgl)

values ('penghapusan data pada tabel pegawai dengan id : ' +@id_pegawai,GETDATE())

select *from history_delete

------------buat trigger untuk delete data pegawai

select * from history_delete

create trigger deletedata_pegawai on pegawai

after delete

declare @id_pegawai varchar (5)

select @id_pegawai=id_pegawai

from deleted

print 'pegawai yang di delete :' +@id_pegawai

create trigger delete_pegawai

after delete as

declare @id_pegawai varchar (5)

select @id_pegawai=id_pegawai

delete from pegawai where id_pegawai=@id_pegawai

inner join delete from admin where id_pegawai=@id_pegawai

inner join delete from dokter where id_pegawai=@id_pegawai

inner join delete from apoteker where id_pegawai=@id_pegawai

inner join delete from rekam_medis where id_pegawai=@id_pegawai

inner join delete from kepala_RS where id_pegawai=@id_pegawai

end

delete ini masih belum selesai

exec delete_pegawai '00007'

select*from pegawai

------------- Pemanggilan Trigger delete menggunakan Stored Procedure delete Data obat

create proc delete_pegawai(@id_pegawai varchar (5))

as begin

delete from pegawai where id_pegawai=@id_pegawai

end

exec delete_pegawai '00010'

------------------------------------------------------------------

tabel kepala rumah sakit

------------------------------------------------------------------

create table kepala_RS(

id_pegawai varchar (5),

jabatan varchar (20),

constraint FK_pegawai_kep foreign key(id_pegawai) references pegawai(id_pegawai))

insert into kepala_RS values ('00006','kepala_RS')

select *from kepala_RS

--------------- buat procedure insert kepala RS

create proc sp_insertkepalaRS (

@id_pegawai varchar (5),

@jabatan varchar (20))

as begin

insert into kepala_RS values(@id_pegawai, @jabatan)

end

exec sp_insertkepalaRS '',''

------------buat procedure untuk update kepala_RS

create procedure update_kepalaRS

@id_pegawai varchar (5),

@jabatan varchar (20)

as begin

update kepala_RS set jabatan=@jabatan where id_pegawai=@id_pegawai

end

exec update_kepalaRS '00008','kepala RS'

select *from kepala_RS

------------buat triger untuk history update kepala RS

create trigger his_updtkepRS on kepala_RS

for update as

declare @id_pegawai varchar (5)

select @id_pegawai=id_pegawai

from kepala_RS

insert into history(keterangan,tgl)

values ('update data pada tabel kepala RS dengan id : ' +@id_pegawai,GETDATE())

select *from history_delete

------------buat trigger untuk delete data kepala RS

select * from history_delete

create trigger deletedata_kepalaRS on kepala_RS

after delete

declare @id_pegawai varchar (5)

select @id_pegawai=id_pegawai

from deleted

print 'data kepala RS yang di delete :' +@id_pegawai

------------- Pemanggilan Trigger delete menggunakan Stored Procedure delete Data obat

create proc delete_kepalaRS(@id_pegawai varchar (5))

as begin

delete from pegawai where id_pegawai=@id_pegawai

end

exec delete_pegawai '00010'

select *from kepala_RS

------------------------------------------------------------------

tabel admin

------------------------------------------------------------------

create table admin(

id_pegawai varchar (5),

constraint FK_pegawai_adm foreign key(id_pegawai) references pegawai(id_pegawai))

insert into admin values ('00003')

select *from admin

--------------- buat procedure insert admin

create proc sp_insertadmin (

@id_pegawai varchar (5))

as begin

insert into admin values(@id_pegawai)

end

exec sp_insertadmin '00005'

select*from pegawai

select *from admin

------------buat triger untuk history delete admin

create trigger his_deleteadmin on admin

for delete as

declare @id_pegawai varchar (5)

select @id_pegawai=id_pegawai

from deleted

insert into history_delete(ket,tgl)

values ('penghapusan data pada tabel admin dengan no : ' +@id_pegawai,GETDATE())

select *from history_delete

------------- Pemanggilan Trigger delete menggunakan Stored Procedure delete Data obat

create proc delete_admin(@id_admin varchar (5))

as begin

delete from admin where id_pegawai=@id_admin

end

exec delete_admin '00005'

select*from admin

select *from history_delete

------------------------------------------------------------------

tabel apoteker

------------------------------------------------------------------

create table apoteker (

no_apotik varchar (5) not null,

id_pegawai varchar (5),

constraint PK_apoteker primary key (no_apotik,id_pegawai),

constraint FK_pegawai foreign key(id_pegawai) references pegawai(id_pegawai))

insert into apoteker values ('30001','00007')

insert into apoteker values ('30002','00008')

select *from apoteker

--------------- buat procedure insert apoteker

create proc sp_insertapoteker (

@no_apotik varchar (5),

@id_pegawai varchar (5))

as begin

insert into apoteker values(@no_apotik,@id_pegawai)

end

exec sp_insertapoteker '',''

------------buat procedure untuk update apoteker

create procedure update_apoteker(

@no_apotik varchar (5),

@id_pegawai varchar (5))

as begin

update apoteker set no_apotik=@no_apotik where id_pegawai=@id_pegawai

end

exec update_apoteker '00008','kepala RS'

select *from apoteker

------------buat triger untuk history update apoteker

create trigger his_updtapoteker on apoteker

for update as

declare @no_apotik varchar (5)

select @no_apotik=no_apotik

from apoteker

insert into history(keterangan,tgl)

values ('update data pada tabel apoteker dengan no : ' +@no_apotik,GETDATE())

select *from history

select *from apoteker

exec update_apoteker '30003','00007'

------------buat triger untuk history delete apoteker

create trigger his_deleteapoteker on apoteker

for delete as

declare @no_apotik varchar (5)

select @no_apotik=no_apotik

from deleted

insert into history_delete(ket,tgl)

values ('penghapusan data pada tabel apoteker dengan no : ' +@no_apotik,GETDATE())

select *from history_delete

------------- Pemanggilan Trigger delete menggunakan Stored Procedure delete Data obat

create proc delete_apoteker(@no_apotik varchar (5))

as begin

delete from apoteker where no_apotik=@no_apotik

end

exec delete_apoteker '00010'

------------------------------------------------------------

tabel dokter

------------------------------------------------------------------create table dokter (

id_pegawai varchar (5),

SIP_Dokter varchar (16),

Spesialis varchar (15)

constraint FK_pegawai_dok foreign key (id_pegawai) references pegawai (id_pegawai))

insert into dokter values ('00001','dok123456789anak','dokter anak')

insert into dokter values ('00002','dok234567890umum','umum')

insert into dokter values ('00008','dok777777777umum','umum')

select *from dokter

-----------------------------------function cek data dokter

create function fcekdata_dokter (@id_pegawai varchar (5))

returns varchar (6)

as begin

declare @data varchar(20), @status varchar (6)

declare cStatus cursor for select id_pegawai from dokter where id_pegawai=@id_pegawai

set @status=0

open cStatus

fetch next from cStatus into @id_pegawai

while @@FETCH_STATUS=0

begin

set @data=(select ID_PEGAWAI from dokter where id_pegawai=@id_pegawai)

if(@data<>@id_pegawai)

begin

set @status=0

end

else

begin

set @status=1

end

fetch next from cStatus into @id_pegawai

end

close cStatus

deallocate cStatus

return @status

end

------Stored Procedure cek id dokter

select * from pasien

create proc sp_cekdata_dokter (@id_pegawai varchar(5))

as begin

declare @status varchar (6)

set @status = dbo.fcekdata_dokter(@id_pegawai)

if(@status=0)

begin

print 'id dokter TIDAK ADA DALAM DATABASE'

end

else

begin

print ' id ' +@id_pegawai +' tersedia dalam database dokter '

end

exec sp_cekdata_dokter '00001'

select *from dokter

------------buat trigger untuk delete dokter

create trigger deletedata_dokter on dokter

after delete

declare @id_pegawai varchar (5)

select @id_pegawai=id_pegawai

from deleted

print 'dokter yang di delete :' +@id_pegawai

------------- Pemanggilan Trigger delete menggunakan Stored Procedure delete Data obat

create proc delete_dokter(@id_pegawai varchar (5))

as begin

delete from dokter where id_pegawai=@id_pegawai

end

exec delete_dokter '00008'

select*from dokter

select*from history_delete

------------buat procedure untuk melihat data dokter

create procedure d_dokter

as begin

select *from dokter

end

exec d_dokter

------------buat procedure untuk update dokter

create procedure update_dokter

@id_pegawai varchar (5),

@SIP_Dokter varchar (16),

@Spesialis varchar (15)

as begin

update dokter set SIP_Dokter=@SIP_Dokter, Spesialis=@Spesialis where id_pegawai=@id_pegawai

end

exec update_dokter '00002','dok111111anak','anak'

select*from history

selec

select * from dokter

------------buat triger untuk history update dokter

create trigger Tupdt_dokter on dokter

for update as

insert into history_delete(kete,tgl)

values ('pengubahan data pada tabel dokter',GETDATE())

select*from history

------------------------------------------------------------

tabel pasien

------------------------------------------------------------------create table pasien (

no_registrasi varchar (6) not null,

nama_pasien varchar (15),

usia varchar (7),

jenis_kelamin char (8),

alamat varchar (20)

constraint PK_pasien primary key (no_registrasi))

insert into pasien values ('100001','danny','16','wanita','kebraon')

insert into pasien values ('100002','sugeng','30','pria','gogor')

insert into pasien values ('100003','rio','12','pria','pondok indah')

insert into pasien values ('100004','tari','20','wanita','sepanjang')

select *from pasien

------------buat procedure untuk update pasien

create procedure update_pasien

@no_registrasi varchar (6),

@nama_pasien varchar (15),

@usia varchar (7),

@jenis_kelamin char (8),

@alamat varchar (20)

as begin

update pasien set nama_pasien=@nama_pasien,

usia=@usia, jenis_kelamin=@jenis_kelamin,

alamat=@alamat where no_registrasi=@no_registrasi

end

exec update_pasien '100004','juki','22','pria','sepanjang'

select *from pasien

------------buat procedure untuk melihat pasien

create procedure d_pasien

as begin

select *from pasien

end

exec d_pasien

-----------------------------------function cek no.regitrasi pasien

create function fceknama_pasien (@nama_pasien varchar (15))

returns varchar (6)

as begin

declare @data varchar(20), @status varchar (6)

declare cStatus cursor for select nama_pasien from pasien where nama_pasien=@nama_pasien

set @status=0

open cStatus

fetch next from cStatus into @nama_pasien

while @@FETCH_STATUS=0

begin

set @data=(select NAMA_PASIEN from pasien where nama_pasien=@nama_pasien)

if(@data<>@nama_pasien)

begin

set @status=0

end

else

begin

set @status=1

end

fetch next from cStatus into @nama_pasien

end

close cStatus

deallocate cStatus

return @status

end

------Stored Procedure cek no. registrasi pasien

select * from pasien

create proc sp_cekNO_REGISTRASI (@nama_pasien varchar(15))

as begin

declare @status varchar (6)

set @status = dbo.fcekno_registrasi(@nama_pasien)

if(@status=0)

begin

print 'nama pasien TIDAK ADA DALAM DATABASE'

end

else

begin

print ' nama pasien tersedia dalam database '

end

exec sp_cekNo_registrasi 'aaa'

select * from pasien

------------------------------------------------------------

tabel resep

------------------------------------------------------------------create table resep(

id_pegawai varchar (5),

no_registrasi varchar (6),

nomer_RM varchar (6),

no_resep varchar (6) not null,

kode_obat varchar (5),

nama_obat varchar (15),

jumlah integer,

aturan_pemakaian varchar (20),

dosis varchar (10),

masa_pemakaian varchar (20),

keterangan varchar (50),

harga_obat numeric (9),

biaya_periksa numeric (9),

biaya_total numeric (9)

constraint PK_resep primary key (no_resep,id_pegawai,no_registrasi,kode_obat,nama_obat),

constraint FK_pegawai_apotik foreign key (id_pegawai) references pegawai (id_pegawai),

constraint FK_pasienresep foreign key (no_registrasi) references pasien (no_registrasi),

constraint FK_obat foreign key (kode_obat,nama_obat) references data_obat (kode_obat,nama_obat))

insert into resep values ('00002','100001','200001','400001','40003','komix','3','3 kali sehari','1 gram','1 minggu','bila belum sembuh kembali','10000','50000','60000')

select *from resep

------------buat procedure untuk insert resep

create proc sp_insertresep (

@id_pegawai varchar (5),

@no_registrasi varchar (6),

@nomer_RM varchar (6),

@no_resep varchar(6),

@kode_obat varchar (5),

@nama_obat varchar (15),

@jumlah integer,

@aturan_pemakaian varchar (20),

@dosis varchar (10),

@masa_pemakaian varchar (20),

@keterangan varchar (50),

@harga_obat numeric (9),

@biaya_periksa numeric (9),

@biaya_total numeric (9))

as begin

insert into resep values(@id_pegawai, @no_registrasi,@nomer_RM,

@no_resep, @kode_obat, @nama_obat,

@jumlah,@aturan_pemakaian,@dosis

,@masa_pemakaian,@keterangan,@harga_obat

,@biaya_periksa,@biaya_total)

end

insert into pegawai values ('00001','ria','wanita','kebraon',12345678)

exec sp_insertpegawai '00010','danu','pria','karangpilang',12345678

select *from pegawai

------------buat procedure untuk insert resep

create proc sp_insertresep (

@id_pegawai varchar (5),

@no_registrasi varchar (6),

@nomer_RM varchar (6),

@no_resep varchar(6),

@kode_obat varchar (5),

@nama_obat varchar (15),

@jumlah int,

@aturan_pemakaian varchar (20),

@dosis varchar (10),

@masa_pemakaian varchar(20),

@keterangan varchar (50),

@harga_obat numeric (9),

@biaya_periksa numeric (9),

@biaya_total numeric (9))

as begin

insert into resep values(

@id_pegawai, @no_registrasi,

@nomer_RM, @no_resep,

@kode_obat, @nama_obat,

@jumlah, @aturan_pemakaian,

@dosis, @masa_pemakaian,

@keterangan, @harga_obat,

@biaya_periksa, @biaya_total)

end

exec sp_insertresep '','','','','','','','','','','','','',''

------------------------------------------------------------

tabel data obat

------------------------------------------------------------------

create table data_obat(

kode_obat varchar (5) not null,

nama_obat varchar (15) not null,

jumlah float,

kemasan varchar (9),

harga float,

harga_total float,

constraint PK_data_obat primary key (kode_obat,nama_obat))

-----------------------------------function cek data obat

CREATE function fcekdata_obat (@nama_obat varchar (15))

returns varchar (6)

as begin

declare @data varchar(20), @status varchar (6)

declare cStatus cursor for select nama_obat from data_obat where nama_obat=@nama_obat

set @status=0

open cStatus

fetch next from cStatus into @nama_obat

while @@FETCH_STATUS=0

begin

set @data=(select NAMA_OBAT from data_obat where nama_obat=@nama_obat)

if(@data<>@nama_obat)

begin

set @status=0

end

else

begin

set @status=1

end

fetch next from cStatus into @nama_obat

end

close cStatus

deallocate cStatus

return @status

end

------Stored Procedure cek data obat

select * from pegawai

create proc sp_ceknama_obat (@nama_obat varchar(15))

as begin

declare @status varchar (5)

set @status = dbo.fcekdata_obat(@nama_obat)

if(@status=0)

begin

print 'Nama Obat TIDAK ADA DALAM DATABASE'

end

else

begin

print ' Nama pegawai anda tersedia dalam database '

end

EXEC sp_ceknama_obat 'mixagrip'

select *from data_obat

------------buat procedure untuk insert data obat

create proc sp_insertobat(@kode_obat varchar (5), @nama_obat varchar (15), @jumlah float, @kemasan varchar(9), @harga float,@harga_total float)

as begin

insert into data_obat values(@kode_obat, @nama_obat,@jumlah, @kemasan, @harga,@harga_total)

end

exec sp_insertobat '40003','komix','10','tablet','4500','45000'

select *from data_obat

create function f_data_obat

(@kode_obat varchar (5))

as begin

@harga total=jumlah * harga

insert into data_obat values(@harga_total where @kode_obat=kode_obat)

------------buat procedure untuk melihat data obat

create procedure d_obat

as begin

select *from data_obat

end

exec d_obat

------------buat procedure untuk delete data obat

create proc obat_delete

@kode_obat varchar (5)

as begin

delete data_obat where kode_obat=@kode_obat

end

exec obat_delete '40006'

select *from data_obat

------------buat trigger untuk delete data_obat

select * from data_obat

create trigger delete_kode_obat on data_obat

instead of delete

begin

declare @kode_obat varchar (5), @nama_obat varchar (15)

set @kode_obat=(select kode_obat from deleted)

delete from data_obat where kode_obat=@kode_obat

end

select * from data_obat

create trigger deletedata_obat on data_obat

after delete

declare @kode_obat varchar (5)

select @kode_obat=kode_obat

from deleted

print 'data obat yang di delete :' +@kode_obat

------------- Pemanggilan Trigger delete menggunakan Stored Procedure delete Data obat

create proc delete_data_obat(@kode_obat varchar (5))

as begin

delete from data_obat where kode_obat=@kode_obat

end

exec delete_data_obat '40003'

select * from data_obat

insert into data_obat values ('40006','laserin','0','botol','8000','0')

insert into data_obat values ('40001','mixagrip','20','tablet','4500','90000')

insert into data_obat values ('40002','panadol','15','tablet','3500','52500')

insert into data_obat values ('40003','komix','12','sirup','9000','108000')

insert into data_obat values ('40004','antangin','14','tablet','5500','77000')

insert into data_obat values ('40005','paramex','18','tablet','6500','117000')

select *from data_obat

------------------------------------------------------------

tabel rekam medis

------------------------------------------------------------------

create table rekam_medis(

id_pegawai varchar (5),

nomer_RM varchar (6) not null,

no_registrasi varchar (6),

diagnosa varchar (15),

keterangan varchar (50),

biaya numeric (9)

constraint PK_rekam_medis primary key (nomer_RM,id_pegawai),

constraint FK_pegawai_RM foreign key (id_pegawai) references pegawai (id_pegawai),

constraint FK_pasienrm foreign key (no_registrasi) references pasien (no_registrasi))

insert into rekam_medis values ('00002','200001','100001','batuk','batuk berdahak','50000')

select *from rekam_medis

------------buat procedure untuk update rekam medis

create procedure update_RM

@id_pegawai varchar (5),

@nomer_RM varchar (6),

@no_registrasi varchar (6),

@diagnosa varchar (15),

@keterangan varchar (50),

@biaya numeric (9)

as begin

update rekam_medis set

id_pegawai=@id_pegawai,

no_registrasi=@no_registrasi,

diagnosa=@diagnosa,

keterangan=@keterangan,

biaya=@biaya

where nomer_RM=@nomer_RM

end

exec update_RM '00003','200001','100001','batuk','batuk berdahak','60000'

select *from history

CREATE function fcekrekam_medis (@nomer_RM varchar (6))

returns varchar (6)

as begin

declare @data varchar(20), @status varchar (6)

declare cStatus cursor for select nomer_RM from rekam_medis where nomer_RM=@nomer_RM

set @status=0

open cStatus

fetch next from cStatus into @nomer_RM

while @@FETCH_STATUS=0

begin

set @data=(select NOMER_RM from rekam_medis where nomer_RM=@nomer_RM)

if(@data<>@nomer_RM)

begin

set @status=0

end

else

begin

set @status=1

end

fetch next from cStatus into @nomer_RM

end

close cStatus

deallocate cStatus

return @status

end

------Stored Procedure cek data obat

select * from pegawai

create proc sp_cekrekam_medis (@nomer_RM varchar(6))

as begin

declare @status varchar (5)

set @status = dbo.fcekrekam_medis(@nomer_RM)

if(@status=0)

begin

print 'Nomer Rekam Medis TIDAK ADA DALAM DATABASE'

end

else

begin

print ' Nomer Rekam Medis anda tersedia dalam database '

end

exec sp_cekrekam_medis '200001'

select *from rekam_medis

------------buat triger untuk history update rekam medis

create trigger trg_tambahRM on rekam_medis

for update as

insert into history(keterangan,tgl)

values ('pengubahan data pada tabel rekam medis',GETDATE())

create table history(

keterangan varchar (50),

tgl date)

------------buat procedure untuk melihat rekam medis

create procedure lihat_data_RM1

as begin

select *from rekam_medis

end

exec lihat_data_RM1

------------buat procedure untuk insert rekam medis

create proc sp_insertRM(@id_pegawai varchar (5), @nomer_RM varchar (6), @no_registrasi varchar (6), @diagnosa varchar(15), @keterangan varchar (50),@biaya numeric(9))

as begin

insert into rekam_medis values(@id_pegawai, @nomer_RM,@no_registrasi, @diagnosa, @keterangan,@biaya)

end

exec sp_insertRM '00001','200002','100002','demam','demam berdarah','100000'

select *from rekam_medis

select *from dokter

------------buat triger untuk history delete RM

create trigger his_deleteRM on rekam_medis

for delete as

declare @nomer_RM varchar (6)

select @nomer_RM = nomer_RM

from deleted

insert into history_delete(ket,tgl)

values ('penghapusan data pada tabel rekam medis dengan no : ' +@nomer_RM,GETDATE())

select *from history_delete

------------- Pemanggilan Trigger delete menggunakan Stored Procedure delete Data obat

create proc delete_RM(@nomer_RM varchar (6))

as begin

delete from rekam_medis where nomer_RM=@nomer_RM

end

exec delete_RM '00010'

select

insert into pasien values ('100001','danny','16','wanita','kebraon')

insert into pasien values ('100002','sugeng','30','pria','gogor')

insert into pasien values ('100003','rio','12','pria','pondok indah')

insert into pasien values ('100004','tari','20','wanita','sepanjang')

insert into pasien values ('100005','rafa','18',pria)

select *from pasien

select *from dokter

select *from data_obat

select *from admin

select *from apoteker

select *from rekam_medis

select *from resep

------------------------------------------------------------------

tabel history delete

------------------------------------------------------------------

create table history_delete(

ket varchar (70),

tgl date)

§ Backup SQL Server

Gambar 1 : Di database klik kanan pilih tasks-back up.

Gambar 2 : Pilih recovery model FULL. Backup type full. Backup componen centang. Isi nama backup file. Pada destination pilih lokasi yang diinginkan untuk backup file.