PACKAGE BODY: APPS.CN_RULESETS_PKG

Source

1 PACKAGE BODY cn_rulesets_pkg AS
2 -- $Header: cnrulstb.pls 120.3 2005/06/28 22:53:49 appldev ship $
3 
4 -- Function Name:	Sync_ruleset
5 -- Purpose
6 -- This function is used to synchronize a ruleset
7 
8 PROCEDURE Sync_ruleset(x_ruleset_id_in cn_rulesets.ruleset_id%TYPE,
9 		       x_ruleset_status_in IN OUT NOCOPY cn_rulesets.ruleset_status%TYPE,
10 		       x_org_id cn_rulesets.org_id%TYPE) IS
11   CURSOR get_ruleset_data IS
12     SELECT *
13       FROM cn_rulesets
14      WHERE ruleset_id = x_ruleset_id_in and
15      org_id=x_org_id;
16 
17   l_get_ruleset_data_rec get_ruleset_data%ROWTYPE;
18 
19 
20 BEGIN
21 
22 
23   IF cn_classification_gen.revenue_classes(NULL, NULL, -1000,
24 					    x_ruleset_id_in,
25 					    x_org_id) THEN
26     x_ruleset_status_in := 'INSTINPG';
27   ELSE
28     x_ruleset_status_in := 'UNSYNC';
29   END IF;
30 
31   OPEN get_ruleset_data;
32     FETCH get_ruleset_data INTO l_get_ruleset_data_rec;
33 
34     cn_syin_rulesets_pkg.update_row(x_ruleset_id_in,
35                                    l_get_ruleset_data_rec.object_version_number,
36                                    x_ruleset_status_in,
37                                    l_get_ruleset_data_rec.destination_column_id,
38                                    l_get_ruleset_data_rec.repository_id,
39 				   l_get_ruleset_data_rec.start_date,
40 				   l_get_ruleset_data_rec.end_date,
41                                    l_get_ruleset_data_rec.name,
42 				   l_get_ruleset_data_rec.module_type,
43                                    null,
44                                    null,
45                                    null,
46 				   x_org_id);
47   CLOSE get_ruleset_data;
48   --COMMIT;
49 
50 END Sync_ruleset;
51 
52 -- Function Name:	Unsync_ruleset
53 -- Purpose
54 -- This function is used to unsynchronize a ruleset
55 
56 PROCEDURE Unsync_ruleset(x_ruleset_id_in cn_rulesets.ruleset_id%TYPE,
57 			 x_ruleset_status_in IN OUT NOCOPY cn_rulesets.ruleset_status%TYPE,
58 			 x_org_id cn_rulesets.org_id%TYPE) IS
59 
60   CURSOR get_ruleset_data IS
61     SELECT *
62       FROM cn_rulesets
63      WHERE ruleset_id = x_ruleset_id_in and org_id=x_org_id;
64 
65   l_get_ruleset_data_rec get_ruleset_data%ROWTYPE;
66 BEGIN
67 
68 
69 
70  --  need to uncomment when changing cn_rule_attribute_pvt
71   x_ruleset_status_in := 'UNSYNC';
72   OPEN get_ruleset_data;
73     FETCH get_ruleset_data INTO l_get_ruleset_data_rec;
74 
75 
76     cn_syin_rulesets_pkg.update_row(x_ruleset_id_in,
77                                    l_get_ruleset_data_rec.object_version_number,
78                                    x_ruleset_status_in,
79                                    l_get_ruleset_data_rec.destination_column_id,
80                                    l_get_ruleset_data_rec.repository_id,
81 				   l_get_ruleset_data_rec.start_date,
82 				   l_get_ruleset_data_rec.end_date,
83                                    l_get_ruleset_data_rec.name,
84 				   l_get_ruleset_data_rec.module_type,
85                                    null,
86                                    null,
87                                    null,
88 				   x_org_id);
89 
90   CLOSE get_ruleset_data;
91   --COMMIT;
92 END Unsync_ruleset;
93 
94 END cn_rulesets_pkg;