1 PACKAGE BODY per_ri_config_respon_pkg as
2 /* $Header: perriconresp.pkb 120.0 2005/06/01 01:02:05 appldev noship $ */
3 PROCEDURE create_config_responsibility(p_responsibility_application IN VARCHAR2
4 ,p_territory_code IN VARCHAR2
5 ,p_responsibility_key IN VARCHAR2
6 )
7 IS
8
9 l_resp_app PER_RI_CONFIG_RESPONSIBILITY.RESPONSIBILITY_APPLICATION%TYPE;
10 -- Cursor to check the
11 CURSOR csr_cnf_resp IS
12 SELECT lookup_code
13 FROM hr_lookups
14 WHERE lookup_type = 'PER_RI_CONFIG_PRODUCTS'
15 AND lookup_code in (select responsibility_application
16 from per_Ri_config_responsibility
17 where responsibility_application like p_responsibility_application
18 and territory_code like p_territory_code
19 and responsibility_key like p_responsibility_key);
20
21 BEGIN
22
23
24 OPEN csr_cnf_resp;
25 FETCH csr_cnf_resp INTO l_resp_app;
26
27 IF csr_cnf_resp%NOTFOUND THEN
28 INSERT INTO PER_RI_CONFIG_RESPONSIBILITY (responsibility_application,territory_code,responsibility_key)
29 VALUES (p_responsibility_application,p_territory_code,p_responsibility_key);
30 ELSE
31 return;
32
33 END IF;
34
35 END create_config_responsibility;
36
37 PROCEDURE load_configuration( p_responsibility_application IN VARCHAR2
38 ,p_territory_code IN VARCHAR2
39 ,p_responsibility_key IN VARCHAR2
40 )
41 IS
42 l_resp_app PER_RI_CONFIG_RESPONSIBILITY.RESPONSIBILITY_APPLICATION%TYPE;
43
44 -- Check if config respy already exists
45 CURSOR csr_cnf_resp IS
46 SELECT responsibility_application
47 FROM per_ri_config_responsibility
48 WHERE responsibility_application = p_responsibility_application
49 AND territory_code = p_territory_code
50 AND responsibility_key = p_responsibility_key;
51
52 BEGIN
53
54 OPEN csr_cnf_resp;
55 FETCH csr_cnf_resp INTO l_resp_app;
56
57 IF csr_cnf_resp%NOTFOUND THEN
58
59 create_config_responsibility(p_responsibility_application => p_responsibility_application
60 ,p_territory_code => p_territory_code
61 ,p_responsibility_key => p_responsibility_key
62 );
63
64 END IF;
65
66 -- As all are key columns, there will ideally be no need for an update
67 /*update_config_responsibility(p_responsibility_application => p_responsibility_application
68 ,p_territory_code => p_territory_code
69 ,p_responsibility_key => p_responsibility_key
70 );
71 END IF;*/
72
73 END load_configuration;
74
75
76 END per_ri_config_respon_pkg;
77
78