[Home] [Help]
PACKAGE BODY: APPS.PER_EMPDIR_PEOPLE_OVERRIDE
Source
1 PACKAGE BODY PER_EMPDIR_PEOPLE_OVERRIDE AS
2 /* $Header: peredcor.pkb 115.1 2003/08/03 12:09 smallina noship $ */
3
4 g_override_flg BOOLEAN:= FALSE;
5
6 FUNCTION isOverrideEnabled RETURN BOOLEAN IS
7 BEGIN
8 RETURN g_override_flg;
9 END isOverrideEnabled;
10
11 PROCEDURE before_dml(
12 errbuf OUT NOCOPY VARCHAR2
13 ,retcode OUT NOCOPY VARCHAR2
14 ,p_eff_date IN DATE
15 ,p_cnt IN NUMBER
16 ,p_rec_locator IN NUMBER
17 ,p_srcSystem IN VARCHAR2) IS
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));
27 END IF; */
28
29 NULL;
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;