CREATE OR REPLACE PACKAGE VITALS_PKG AS
PROCEDURE loadVitals;
END VITALS_PKG ;
/
CREATE OR REPLACE PACKAGE BODY VITALS_PKG AS
PROCEDURE loadVitals IS
BEGIN
insert into vitals_tgt (
STUDYID,
SITEID,
SUBJID,
VISITNUM,
INITIALS,
BIRTHDT,
HEIGHT,
HEIGHTU,
WEIGHT,
WEIGHTU,
SEX,
RACE,
VITALS_SKEY,
DEMOG_SKEY
) select
a.STUDYID,
a.SITEID,
a.SUBJID,
a.VISITNUM,
a.INITIALS,
a.BIRTHDT,
a.HEIGHT,
a.HEIGHTU,
a.WEIGHT,
a.WEIGHTU,
b.SEX,
b.RACE,
a.CDR$SKEY,
b.CDR$SKEY
from vitals a, demog b
where a.studyid = b.studyid
and a.subjid = b.subjid;
END loadVitals;
END VITALS_PKG;
/