18: BEGIN
19:
20: -- Sample Code
21: /* IF p_srcSystem = 'PER' THEN
22: per_empdir_ss.personTbl.person_key(p_rec_locator) :=
23: upper(per_empdir_ss.personTbl.attribute26(p_rec_locator))
24: ||'%'||per_empdir_ss.personTbl.person_key(p_rec_locator);
25: per_empdir_ss.personTbl.user_name(p_rec_locator) :=
26: upper(per_empdir_ss.personTbl.attribute26(p_rec_locator));
19:
20: -- Sample Code
21: /* IF p_srcSystem = 'PER' THEN
22: per_empdir_ss.personTbl.person_key(p_rec_locator) :=
23: upper(per_empdir_ss.personTbl.attribute26(p_rec_locator))
24: ||'%'||per_empdir_ss.personTbl.person_key(p_rec_locator);
25: per_empdir_ss.personTbl.user_name(p_rec_locator) :=
26: upper(per_empdir_ss.personTbl.attribute26(p_rec_locator));
27: END IF; */
20: -- Sample Code
21: /* IF p_srcSystem = 'PER' THEN
22: per_empdir_ss.personTbl.person_key(p_rec_locator) :=
23: upper(per_empdir_ss.personTbl.attribute26(p_rec_locator))
24: ||'%'||per_empdir_ss.personTbl.person_key(p_rec_locator);
25: per_empdir_ss.personTbl.user_name(p_rec_locator) :=
26: upper(per_empdir_ss.personTbl.attribute26(p_rec_locator));
27: END IF; */
28:
21: /* IF p_srcSystem = 'PER' THEN
22: per_empdir_ss.personTbl.person_key(p_rec_locator) :=
23: upper(per_empdir_ss.personTbl.attribute26(p_rec_locator))
24: ||'%'||per_empdir_ss.personTbl.person_key(p_rec_locator);
25: per_empdir_ss.personTbl.user_name(p_rec_locator) :=
26: upper(per_empdir_ss.personTbl.attribute26(p_rec_locator));
27: END IF; */
28:
29: NULL;
22: per_empdir_ss.personTbl.person_key(p_rec_locator) :=
23: upper(per_empdir_ss.personTbl.attribute26(p_rec_locator))
24: ||'%'||per_empdir_ss.personTbl.person_key(p_rec_locator);
25: per_empdir_ss.personTbl.user_name(p_rec_locator) :=
26: upper(per_empdir_ss.personTbl.attribute26(p_rec_locator));
27: END IF; */
28:
29: NULL;
30:
30:
31: EXCEPTION WHEN OTHERS THEN
32: errbuf := errbuf||SQLERRM;
33: retcode := '1';
34: per_empdir_ss.write_log(1, 'Error in before_dml people : '||SQLCODE);
35: per_empdir_ss.write_log(1, 'Error Msg: '||substr(SQLERRM,1,700));
36: END before_dml;
37: END PER_EMPDIR_PEOPLE_OVERRIDE;
31: EXCEPTION WHEN OTHERS THEN
32: errbuf := errbuf||SQLERRM;
33: retcode := '1';
34: per_empdir_ss.write_log(1, 'Error in before_dml people : '||SQLCODE);
35: per_empdir_ss.write_log(1, 'Error Msg: '||substr(SQLERRM,1,700));
36: END before_dml;
37: END PER_EMPDIR_PEOPLE_OVERRIDE;