Connecting the database to the outside world with Perl and Database Events

insert_data.sql

/*
Author:Nikos Vaggalis
Licensed under Artistic License 1.0
Accompanying code of the "Connecting the database to the outside world with Perl and Database Events" 
article on i-programmer.info
https://www.i-programmer.info/programming/perl/12299-connecting-the-database-to-the-outside-world-with-perl-and-database-events.html
*/

insert into PatientAssignor
(universal_id,namespace_id,universal_id_type)
values 
('2.16.840.1.113883.19.3','NationalPN','ISO');

insert into PatientRegistry
(patient_id,ssn,family_name,given_name,dob,sex,phone_number,assignors_id)
values
(100660325,1234567890,'GREENING','WAYNE','30/10/1961','M','+44213445','2.16.840.1.113883.19.3');
	
insert into PatientEvent
(patient_id,event_type,event_id,event_date_time,sending_org)
values
(100660325,'A01',201,'2018-12-11 08:14:01','DD015');

insert into PatientDiagnosis
(patient_id,event_type,event_id,diagnosis_id,diagnosing_clinician_id)
values
(100660325,'A01',201,'S42.1',120002);

insert into PatientDiagnosis
(patient_id,event_type,event_id,diagnosis_id,diagnosing_clinician_id)
values
(100660325,'A01',201,'S42.2',120002);

	
insert into PatientVisit
(patient_id,event_type,event_id,patient_class,
attending_doctor_id,referring_doctor_id,
hospital_service,admit_source,
total_charges,total_adjustments,total_payments)
values
(100660325,'A01',201,'E',
120002,145601,'MED',2,
1200.44,200.44,1000);