PACKAGE BODY: APPS.PER_EMPDIR_JOBS_OVERRIDE

Source

1 PACKAGE BODY PER_EMPDIR_JOBS_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       IF per_empdir_ss.jobTbl.display_name(p_rec_locator) IS NOT NULL THEN
23         per_empdir_ss.jobTbl.attribute1(p_rec_locator) :=
24                     per_empdir_ss.jobTbl.name(p_rec_locator);
25         per_empdir_ss.jobTbl.name(p_rec_locator) :=
26                     per_empdir_ss.jobTbl.display_name(p_rec_locator);
27          END IF;
28      END IF; */
29 
30      NULL;
31 
32     EXCEPTION WHEN OTHERS THEN
33         errbuf := errbuf||SQLERRM;
34         retcode := '1';
35         per_empdir_ss.write_log(1, 'Error in before_dml jobs : '||SQLCODE);
36         per_empdir_ss.write_log(1, 'Error Msg: '||substr(SQLERRM,1,700));
37 END before_dml;
38 END PER_EMPDIR_JOBS_OVERRIDE;