APPS.IGI_MPP_EXPENSE_RULES_PKG dependencies on IGI_MPP_EXPENSE_RULES

Line 1: PACKAGE BODY IGI_MPP_EXPENSE_RULES_PKG as

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;

Line 23: FROM igi_mpp_expense_rules

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:

Line 36: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmerb.IGI_MPP_EXPENSE_RULES_PKG.Lock_Row',FALSE);

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;

Line 60: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmerb.IGI_MPP_EXPENSE_RULES_PKG.Lock_Row',FALSE);

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;

Line 78: UPDATE igi_mpp_expense_rules

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,

Line 106: CURSOR C IS SELECT rowid FROM igi_mpp_expense_rules

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:

Line 111: INSERT INTO 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,

Line 147: DELETE FROM igi_mpp_expense_rules

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;

Line 154: END IGI_MPP_EXPENSE_RULES_PKG;

150: RAISE no_data_found;
151: END IF;
152: END Delete_Row;
153:
154: END IGI_MPP_EXPENSE_RULES_PKG;