CREATE PROCEDURE get_sch_associated_appointment_info
(@piAcc_itn int)
AS
SELECT s.acc_itn,
r.internal_key,
r.mnemonic,
r.descp,
sh.start_dtime,
sh.end_dtime
FROM
schdtl s,
schdtlhdr sh,
resource r
WHERE
s.acc_itn = @piAcc_itn and
sh.acc_itn = @piAcc_itn and
sh.resource_itn = r.internal_key
SELECT sdcr.acc_itn,
sdcr.rsch_dtime,
sdcr.rsch_by_init,
sdcr.rsch_code,
sdcr.rsch_reason,
sdcr.cncl_dtime,
sdcr.cncl_by_init,
sdcr.cncl_code,
sdcr.cncl_reason,
sdcr.prev_start_dtime,
sdcr.prev_by_init
FROM schdtl_canrsch sdcr
WHERE
sdcr.acc_itn = @piAcc_itn
SELECT
sdi.acc_itn,
i.sched_notes,
i.post_sched_notes,
d.pre_sch_notes,
d.post_sch_notes,
i.detail_key,
i.output_notes
FROM
schdtl_info sdi,
extitem i,
dept d
WHERE
sdi.acc_itn = @piAcc_itn and
sdi.actual_dept = i.dept and
sdi.actual_proc_no = i.proc_no and
sdi.actual_dept = d.dept
|
CREATE OR REPLACE PROCEDURE get_sch_associated_appointment_info
(piAcc_itn int,
RC1 IN OUT Omwb_emulation.globalPkg.RCT1)
AS
OPEN RC1
SELECT s.acc_itn,
r.internal_key,
r.mnemonic,
r.descp,
sh.start_dtime,
sh.end_dtime
FROM
schdtl s,
schdtlhdr sh,
resource r
WHERE
s.acc_itn = piAcc_itn and
sh.acc_itn = piAcc_itn and
sh.resource_itn = r.internal_key;
OPEN RC1
SELECT sdcr.acc_itn,
sdcr.rsch_dtime,
sdcr.rsch_by_init,
sdcr.rsch_code,
sdcr.rsch_reason,
sdcr.cncl_dtime,
sdcr.cncl_by_init,
sdcr.cncl_code,
sdcr.cncl_reason,
sdcr.prev_start_dtime,
sdcr.prev_by_init
FROM schdtl_canrsch sdcr
WHERE
sdcr.acc_itn = piAcc_itn;
OPEN RC1
SELECT
sdi.acc_itn,
i.sched_notes,
i.post_sched_notes,
d.pre_sch_notes,
d.post_sch_notes,
i.detail_key,
i.output_notes
FROM
schdtl_info sdi,
extitem i,
dept d
WHERE
sdi.acc_itn = piAcc_itn and
sdi.actual_dept = i.dept and
sdi.actual_proc_no = i.proc_no and
sdi.actual_dept = d.dept;
|
CREATE OR REPLACE PROCEDURE get_sch_associated_appointment_info
(piAcc_itn int,
RC1 IN OUT Omwb_emulation.globalPkg.RCT1,
RC2 IN OUT Omwb_emulation.globalPkg.RCT1,
RC3 IN OUT Omwb_emulation.globalPkg.RCT1)
AS
OPEN RC1
SELECT s.acc_itn,
r.internal_key,
r.mnemonic,
r.descp,
sh.start_dtime,
sh.end_dtime
FROM
schdtl s,
schdtlhdr sh,
resource r
WHERE
s.acc_itn = piAcc_itn and
sh.acc_itn = piAcc_itn and
sh.resource_itn = r.internal_key;
OPEN RC2
SELECT sdcr.acc_itn,
sdcr.rsch_dtime,
sdcr.rsch_by_init,
sdcr.rsch_code,
sdcr.rsch_reason,
sdcr.cncl_dtime,
sdcr.cncl_by_init,
sdcr.cncl_code,
sdcr.cncl_reason,
sdcr.prev_start_dtime,
sdcr.prev_by_init
FROM schdtl_canrsch sdcr
WHERE
sdcr.acc_itn = piAcc_itn;
OPEN RC3
SELECT
sdi.acc_itn,
i.sched_notes,
i.post_sched_notes,
d.pre_sch_notes,
d.post_sch_notes,
i.detail_key,
i.output_notes
FROM
schdtl_info sdi,
extitem i,
dept d
WHERE
sdi.acc_itn = piAcc_itn and
sdi.actual_dept = i.dept and
sdi.actual_proc_no = i.proc_no and
sdi.actual_dept = d.dept;
|