INFO 2303 Database ProgrammingAssignment : PL/SQL Practice Note: PL/SQL can be executed in SQL*Plus or SQL Developer or Oracle Live SQL. Write an anonymous block to retrieve the doctor’s ID and name which in charge of certain patient. Allow the user to enter the patient’s ID. DROP TABLE PATIENT cascade constraints;DROP TABLE BILLING cascade constraints;DROP TABLE DOCTOR cascade constraints;DROP TABLE RENTAL cascade constraints;DROP TABLE MOVIE cascade constraints;DROP TABLE CUSTOMER cascade constraints;CREATE TABLE DOCTOR(DOC_IDDOC_NAMEDATEHIREDNUMBER(3),VARCHAR2(9),DATE,NUMBER(12),VARCHAR2(20),NUMBER(3),NUMBER(3),NUMBER(5),SALPERMONAREASUPERVISOR_IDCHGPERAPPTANNUAL BONUSCONSTRAINT DOCTOR_DOC_ID_PK PRIMARY KEY(DOC_ID));CREATE TABLE BILLING(PT_IDBALANCEDUEDATEPHONEADDRCITYSTZIPNUMBER(3),NUMBER(9),DATE,VARCHAR2(8),VARCHAR2(20),VARCHAR2(11),CHAR(2),NUMBER(5),VARCHAR2(11),PT_INSCONSTRAINT BILLING_PT_ID_PK PRIMARY KEY(PT_ID));CREATE TABLE PATIENT(PT IDPT LNAMENUMBER(3),VARCHAR2(15),VARCHAR2(15),DATE,NUMBER(3),DATE,DATE,PT FNAMEPTDOBDOC_IDNEXTAPPTDATELASTAPPTDATECONSTRAINT PATIENT_PT_ID_PK PRIMARY KEY(PT_ID),CONSTRAINT PATIENT_DOC_ID_FK FOREIGNKEY(DOC_ID)REFERENCES DOCTOR); INSERT INTO BILLING VALUES(168, 15650, TO DATE(21-AUG-01), '833-9569','128 W. Apple #4", 'Jonesboro', "IL', 62952', 'SIH');INSERT INTO BILLING VALUES(331, 300, TO DATE(09-SEP-01), '833-5587'"3434 Mulberry St., 'Anna', 'IL', '62906", "BCBS'):INSERT INTO BILLING VALUES(313, 0, TO DATE(01-JAN-02'). '893-9987','334 Tailgate Ln', 'COBDEN', IL', '62920', "Military');INSERT INTO BILLING VALUES(816, 0, TO DATE(01-JAN-02'), '833-6654'.*8814 W. Apple JONESBORO, 'IL', "62952', 'SIH);INSERT INTO BILLING VALUES(314, 100, TO DATE(31-MAR-01), '457-6658',"445 Oak St.", 'Carbondale', "IL', '62901, 'BCBS');INSERT INTO BILLING VALUES(264, 35000, TO DATE(11-JAN-01'), 942-8065',*8898 Bighil Drive', 'HERRIN', 'IL', '62948', 'MediSupplA'):INSERT INTO BILLING VALUESs(103, 4500, TO DATE(01-JUL-01), "833-5547','298 Murphy School Rd, 'Anna', 'IL', '62906', HealthCare');INSERT INTO BILLING VALUES(108, 0, TO_DATE(01-JAN-03'). '833-5542',*334 Pansie Hil Rd., JONESBORO, 'IL', '62952', HealthCare');INSERT INTO BILLING VALUES(943, 0, TO_DATE(01-JAN-05'), '529-9963','456 E. Grand #14', 'Carbondale', 'IL', 62901", Military'):INSERT INTO BILLING VALUES(847, 98000, TO DATE(31-JAN-00), '549-8854',"6543 W. Parkview Ln.', 'Carbondale', 'IL', '62901', BCBS');INSERT INTO BILLING VALUES(504, 0, TO DATE(01-JAN-01). '549-6139','6657 N. Allen', "Carbondale', IL', '62901', 'QualityCare');INSERT INTO BILLING VALUES(809, 450, TO_DATE('19-JUL-01'), '687-8852',"3345 Hwy 127 N., "Murphysboro', 'IL', 62966', QualityCare');INSERT INTO BILLING VALUES(703, 225, TO DATE('31-AUG-01), '529-8332',909 N. Brown St.', "Carbondale", IL', "62901', HealthCare"):INSERT INTO BILLING VALUES(696, 79850, TO_DATE(15-JUL-01), 549-7231',"5546 W. James', 'Carbondale', IL', 62901', "BCBS'):INSERT INTO BILLING VALUES(966, 98700, TO DATE(15-JUL-01), '833-5375',*9009 Taylor Ave.", 'Anna', IL', 62906', BCBS'):INSERT INTO BILLING VALUES(267, 0, TO_DATE(01-JAN-03'), 942-3321,'6755 US Route 148', HERRIN', 'IL', 62948', 'QualityCare');INSERT INTO BILLING VALUES(307, 450, TO DATE(31-AUG-01), '457-6967',"234 N. Allen', "Carbondale', 'IL', '62901', HealthCare'):INSERT INTO BILLING VALUES(719, 0, TO_DATE(01-JAN-02), '549-7848',*867 Henderson St.', 'Carbondale', "IL', 62901', "HealthCare');INSERT INTO BILLING VALUES(439, 500, TO DATE(31-AUG-01), '833-5541'."4456 N.Springer, 'Anna', 'IL', "62906", QualityCare"):INSERT INTO BILLING VALUES(315, 1500, TO DATE(14-SEP-01'), '833-6272,'404 Williford Rd., JONESBORO', 'IL', 62952', 'HealthCare'):INSERT INTO BILLING VALUES(163, 0, TO DATE(01-JAN-02'). '833-2133','129 Fountain St., "Anna', "IL'. 62906", HealthCare'):INSERT INTO BILLING VALUES(669, 128450, TO DATE(15-JUL-01), '833-6654',"353 Tin Bender Rd.", 'Jonesboro', "IL', '62952', 'BCBS');

Question

INFO 2303   Database ProgrammingAssignment : PL/SQL Practice  Note: PL/SQL can be executed in SQL*Plus or SQL Developer or Oracle Live SQL. Write an anonymous block to retrieve the doctor’s ID and name which in charge of certain patient. Allow the user to enter the patient’s ID. DROP TABLE PATIENT cascade constraints;DROP TABLE BILLING cascade constraints;DROP TABLE DOCTOR cascade constraints;DROP TABLE RENTAL cascade constraints;DROP TABLE MOVIE cascade constraints;DROP TABLE CUSTOMER cascade constraints;CREATE TABLE DOCTOR(DOC_IDDOC_NAMEDATEHIREDNUMBER(3),VARCHAR2(9),DATE,NUMBER(12),VARCHAR2(20),NUMBER(3),NUMBER(3),NUMBER(5),SALPERMONAREASUPERVISOR_IDCHGPERAPPTANNUAL BONUSCONSTRAINT DOCTOR_DOC_ID_PK PRIMARY KEY(DOC_ID));CREATE TABLE BILLING(PT_IDBALANCEDUEDATEPHONEADDRCITYSTZIPNUMBER(3),NUMBER(9),DATE,VARCHAR2(8),VARCHAR2(20),VARCHAR2(11),CHAR(2),NUMBER(5),VARCHAR2(11),PT_INSCONSTRAINT BILLING_PT_ID_PK PRIMARY KEY(PT_ID));CREATE TABLE PATIENT(PT IDPT LNAMENUMBER(3),VARCHAR2(15),VARCHAR2(15),DATE,NUMBER(3),DATE,DATE,PT FNAMEPTDOBDOC_IDNEXTAPPTDATELASTAPPTDATECONSTRAINT PATIENT_PT_ID_PK PRIMARY KEY(PT_ID),CONSTRAINT PATIENT_DOC_ID_FK FOREIGNKEY(DOC_ID)REFERENCES DOCTOR); INSERT INTO BILLING VALUES(168, 15650, TO DATE(21-AUG-01), '833-9569','128 W. Apple #4&#34;, 'Jonesboro', &#34;IL', 62952', 'SIH');INSERT INTO BILLING VALUES(331, 300, TO DATE(09-SEP-01), '833-5587'&#34;3434 Mulberry St., 'Anna', 'IL', '62906&#34;, &#34;BCBS'):INSERT INTO BILLING VALUES(313, 0, TO DATE(01-JAN-02'). '893-9987','334 Tailgate Ln', 'COBDEN', IL', '62920', &#34;Military');INSERT INTO BILLING VALUES(816, 0, TO DATE(01-JAN-02'), '833-6654'.*8814 W. Apple JONESBORO, 'IL', &#34;62952', 'SIH);INSERT INTO BILLING VALUES(314, 100, TO DATE(31-MAR-01), '457-6658',&#34;445 Oak St.&#34;, 'Carbondale', &#34;IL', '62901, 'BCBS');INSERT INTO BILLING VALUES(264, 35000, TO DATE(11-JAN-01'), 942-8065',*8898 Bighil Drive', 'HERRIN', 'IL', '62948', 'MediSupplA'):INSERT INTO BILLING VALUESs(103, 4500, TO DATE(01-JUL-01), &#34;833-5547','298 Murphy School Rd, 'Anna', 'IL', '62906', HealthCare');INSERT INTO BILLING VALUES(108, 0, TO_DATE(01-JAN-03'). '833-5542',*334 Pansie Hil Rd., JONESBORO, 'IL', '62952', HealthCare');INSERT INTO BILLING VALUES(943, 0, TO_DATE(01-JAN-05'), '529-9963','456 E. Grand #14', 'Carbondale', 'IL', 62901&#34;, Military'):INSERT INTO BILLING VALUES(847, 98000, TO DATE(31-JAN-00), '549-8854',&#34;6543 W. Parkview Ln.', 'Carbondale', 'IL', '62901', BCBS');INSERT INTO BILLING VALUES(504, 0, TO DATE(01-JAN-01). '549-6139','6657 N. Allen', &#34;Carbondale', IL', '62901', 'QualityCare');INSERT INTO BILLING VALUES(809, 450, TO_DATE('19-JUL-01'), '687-8852',&#34;3345 Hwy 127 N., &#34;Murphysboro', 'IL', 62966', QualityCare');INSERT INTO BILLING VALUES(703, 225, TO DATE('31-AUG-01), '529-8332',909 N. Brown St.', &#34;Carbondale&#34;, IL', &#34;62901', HealthCare&#34;):INSERT INTO BILLING VALUES(696, 79850, TO_DATE(15-JUL-01), 549-7231',&#34;5546 W. James', 'Carbondale', IL', 62901', &#34;BCBS'):INSERT INTO BILLING VALUES(966, 98700, TO DATE(15-JUL-01), '833-5375',*9009 Taylor Ave.&#34;, 'Anna', IL', 62906', BCBS'):INSERT INTO BILLING VALUES(267, 0, TO_DATE(01-JAN-03'), 942-3321,'6755 US Route 148', HERRIN', 'IL', 62948', 'QualityCare');INSERT INTO BILLING VALUES(307, 450, TO DATE(31-AUG-01), '457-6967',&#34;234 N. Allen', &#34;Carbondale', 'IL', '62901', HealthCare'):INSERT INTO BILLING VALUES(719, 0, TO_DATE(01-JAN-02), '549-7848',*867 Henderson St.', 'Carbondale', &#34;IL', 62901', &#34;HealthCare');INSERT INTO BILLING VALUES(439, 500, TO DATE(31-AUG-01), '833-5541'.&#34;4456 N.Springer, 'Anna', 'IL', &#34;62906&#34;, QualityCare&#34;):INSERT INTO BILLING VALUES(315, 1500, TO DATE(14-SEP-01'), '833-6272,'404 Williford Rd., JONESBORO', 'IL', 62952', 'HealthCare'):INSERT INTO BILLING VALUES(163, 0, TO DATE(01-JAN-02'). '833-2133','129 Fountain St., &#34;Anna', &#34;IL'. 62906&#34;, HealthCare'):INSERT INTO BILLING VALUES(669, 128450, TO DATE(15-JUL-01), '833-6654',&#34;353 Tin Bender Rd.&#34;, 'Jonesboro', &#34;IL', '62952', 'BCBS');

Accepted Answer

Hey there, I am writing the required solution based on the above given question.
Please do find the…

INFO 2303 Database Programming Assignment : PL/SQL Practice Note: PL/SQL can be executed in SQL*Plus or SQL Developer or Oracle Live SQL. Write an anonymous block to retrieve the doctor’s ID and name which in charge of certain patient. Allow the user to enter the patient’s ID.