[Home] [Help]
PACKAGE BODY: APPS.IGI_MPP_EXPENSE_RULES_PKG
Source
1 PACKAGE BODY IGI_MPP_EXPENSE_RULES_PKG as
2 /* $Header: igipmerb.pls 115.7 2003/12/01 14:57:30 sdixit ship $ */
3
4 --bug 3199481: following variables added for fnd logging changes: sdixit
5 l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6 l_state_level number := FND_LOG.LEVEL_STATEMENT;
7 l_proc_level number := FND_LOG.LEVEL_PROCEDURE;
8 l_event_level number := FND_LOG.LEVEL_EVENT;
9 l_excep_level number := FND_LOG.LEVEL_EXCEPTION;
10 l_error_level number := FND_LOG.LEVEL_ERROR;
11 l_unexp_level number := FND_LOG.LEVEL_UNEXPECTED;
12
13 PROCEDURE Lock_Row(X_Rowid VARCHAR2,
14 X_Expense_Ccid NUMBER,
15 X_Default_Accounting_Rule_Id NUMBER,
16 X_Enabled_Flag VARCHAR2,
17 X_Org_Id NUMBER,
18 X_Set_Of_Books_Id NUMBER
19
20 ) IS
21 CURSOR C IS
22 SELECT *
23 FROM igi_mpp_expense_rules
24 WHERE rowid = X_Rowid
25 FOR UPDATE of Expense_Ccid NOWAIT;
26 Recinfo C%ROWTYPE;
27
28 BEGIN
29 OPEN C;
30 FETCH C INTO Recinfo;
31 if (C%NOTFOUND) then
32 CLOSE C;
33 --bug 3199481 fnd logging changes: sdixit: start block
34 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
35 IF (l_error_level >= l_debug_level ) THEN
36 FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmerb.IGI_MPP_EXPENSE_RULES_PKG.Lock_Row',FALSE);
37 END IF;
38 --bug 3199481 fnd logging changes: sdixit: end block
39 APP_EXCEPTION.Raise_Exception;
40 end if;
41 CLOSE C;
42 if (
43 (Recinfo.expense_ccid = X_Expense_Ccid)
44 AND (Recinfo.default_accounting_rule_id = X_Default_Accounting_Rule_Id)
45 AND ( (Recinfo.enabled_flag = X_Enabled_Flag)
46 OR ( (Recinfo.enabled_flag IS NULL)
47 AND (X_Enabled_Flag IS NULL)))
48 AND ( (Recinfo.org_id = X_Org_Id)
49 OR ( (Recinfo.org_id IS NULL)
50 AND (X_Org_Id IS NULL)))
51 AND (Recinfo.set_of_books_id = X_Set_Of_Books_Id)
52
53
54 ) then
55 return;
56 else
57 --bug 3199481 fnd logging changes: sdixit: start block
58 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
59 IF (l_error_level >= l_debug_level ) THEN
60 FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmerb.IGI_MPP_EXPENSE_RULES_PKG.Lock_Row',FALSE);
61 END IF;
62 --bug 3199481 fnd logging changes: sdixit: end block
63 APP_EXCEPTION.Raise_Exception;
64 end if;
65 END Lock_Row;
66
67
68 PROCEDURE Update_Row(X_Rowid VARCHAR2,
69 X_Expense_Ccid NUMBER,
70 X_Default_Accounting_Rule_Id NUMBER,
71 X_Enabled_Flag VARCHAR2,
72 X_Last_Updated_By NUMBER,
73 X_Last_Update_Date DATE,
74 X_Last_Update_Login NUMBER
75
76 ) IS
77 BEGIN
78 UPDATE igi_mpp_expense_rules
79 SET
80 expense_ccid = X_Expense_Ccid,
81 default_accounting_rule_id = X_Default_Accounting_Rule_Id,
82 enabled_flag = X_Enabled_Flag,
83 last_updated_by = X_Last_Updated_By,
84 last_update_date = X_Last_Update_Date,
85 last_update_login = X_Last_Update_Login
86 WHERE rowid = X_Rowid;
87
88 if (SQL%NOTFOUND) then
89 Raise NO_DATA_FOUND;
90 end if;
91 END Update_Row;
92
93
94 PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
95 X_Expense_Ccid NUMBER,
96 X_Default_Accounting_Rule_Id NUMBER,
97 X_Enabled_Flag VARCHAR2,
98 X_Org_Id NUMBER,
99 X_Set_Of_Books_Id NUMBER,
100 X_Created_By NUMBER,
101 X_Creation_Date DATE,
102 X_Last_Updated_By NUMBER,
103 X_Last_Update_Date DATE,
104 X_Last_Update_Login NUMBER
105 ) IS
106 CURSOR C IS SELECT rowid FROM igi_mpp_expense_rules
107 WHERE expense_ccid = X_Expense_Ccid;
108
109 BEGIN
110
111 INSERT INTO igi_mpp_expense_rules(
112 expense_ccid,
113 default_accounting_rule_id,
114 enabled_flag,
115 org_id,
116 set_of_books_id,
117 created_by,
118 creation_date,
119 last_updated_by,
120 last_update_date,
121 last_update_login
122 )
123 VALUES ( X_Expense_Ccid,
124 X_Default_Accounting_Rule_Id,
125 X_Enabled_Flag,
126 X_Org_Id,
127 X_Set_Of_Books_Id,
128 X_Created_By,
129 X_Creation_Date,
130 X_Last_Updated_By,
131 X_Last_Update_Date,
132 X_Last_Update_Login
133 );
134
135 OPEN C;
136 FETCH C INTO X_Rowid;
137 IF (C%NOTFOUND) THEN
138 CLOSE C;
139 RAISE no_data_found;
140 END IF;
141 CLOSE C;
142 END Insert_Row;
143
144
145 PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
146 BEGIN
147 DELETE FROM igi_mpp_expense_rules
148 WHERE rowid = X_Rowid;
149 IF (SQL%NOTFOUND) THEN
150 RAISE no_data_found;
151 END IF;
152 END Delete_Row;
153
154 END IGI_MPP_EXPENSE_RULES_PKG;