PACKAGE BODY: APPS.PON_BIZRULE_PKG

Source

1 PACKAGE BODY PON_BIZRULE_PKG AS
2 /* $Header: PONBIZRB.pls 120.0 2005/06/01 14:15:03 appldev noship $ */
3 
4 PROCEDURE add_rule(p_rule_id    NUMBER) IS
5 
6 CURSOR documents IS
7    SELECT doctype_id FROM pon_auc_doctypes;
8 
9 BEGIN
10 
11    FOR doc IN documents LOOP
12       INSERT INTO PON_AUC_DOCTYPE_RULES
13 	(BIZRULE_ID,
14 	 DOCTYPE_ID,
15 	 DISPLAY_FLAG,
16 	 REQUIRED_FLAG,
17 	 FIXED_VALUE,
18 	 DEFAULT_VALUE,
19 	 RESTRICTED_VALUES_FLAG,
20 	 VALIDITY_FLAG,
21 	 CREATED_BY,
22 	 CREATION_DATE,
23 	 LAST_UPDATED_BY,
24 	 LAST_UPDATE_DATE
25 	 )
26 	VALUES
27 	(p_rule_id,
28          doc.doctype_id,
29 	 'N',
30 	 'N',
31 	 NULL,
32 	 NULL,
33 	 'N',
34 	 'N',
35 	 1,
36 	 Sysdate,
37 	 1,
38 	 Sysdate
39 	 );
40    END LOOP;
41 END add_rule;
42 
43 PROCEDURE delete_rule(p_rule_id    NUMBER) IS
44 
45 CURSOR documents IS
46    SELECT doctype_id FROM pon_auc_doctypes;
47 
48 BEGIN
49    DELETE FROM pon_auc_doctype_rules  WHERE  bizrule_id = p_rule_id;
50 END delete_rule;
51 
52 
53 PROCEDURE edit_rule(p_rule_id    NUMBER) IS
54 
55 CURSOR documents IS
56 SELECT d.doctype_id FROM pon_auc_doctypes d
57   WHERE NOT EXISTS (select 'FOUND' from pon_auc_doctype_rules
58 		    where bizrule_id = p_rule_id AND doctype_id = d.doctype_id);
59 
60 BEGIN
61 
62    FOR doc IN documents LOOP
63       INSERT INTO PON_AUC_DOCTYPE_RULES
64 	(BIZRULE_ID,
65 	 DOCTYPE_ID,
66 	 DISPLAY_FLAG,
67 	 REQUIRED_FLAG,
68 	 FIXED_VALUE,
69 	 DEFAULT_VALUE,
70 	 RESTRICTED_VALUES_FLAG,
71 	 VALIDITY_FLAG,
72 	 CREATED_BY,
73 	 CREATION_DATE,
74 	 LAST_UPDATED_BY,
75 	 LAST_UPDATE_DATE
76 	 )
77 	VALUES
78 	(p_rule_id,
79          doc.doctype_id,
80 	 'N',
81 	 'N',
82 	 NULL,
83 	 NULL,
84 	 'N',
85 	 'N',
86 	 1,
87 	 Sysdate,
88 	 1,
89 	 Sysdate
90 	 );
91    END LOOP;
92 END edit_rule;
93 
94 END PON_BIZRULE_PKG;