APPS.IGI_MPP_AP_INVOICE_DISTS_PKG dependencies on IGI_MPP_AP_INVOICE_DISTS

Line 1: PACKAGE BODY IGI_MPP_AP_INVOICE_DISTS_PKG as

1: PACKAGE BODY IGI_MPP_AP_INVOICE_DISTS_PKG as
2: /* $Header: igipmudb.pls 115.7 2003/12/01 16:13:45 sdixit ship $ */
3:
4: --bug 3199481: following variables added for fnd logging changes:sdixit :start
5: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

Line 25: FROM igi_mpp_ap_invoice_dists

21:
22: ) IS
23: CURSOR C IS
24: SELECT *
25: FROM igi_mpp_ap_invoice_dists
26: WHERE rowid = X_Rowid
27: FOR UPDATE of Invoice_id, Distribution_Line_Number NOWAIT;
28: Recinfo C%ROWTYPE;
29:

Line 38: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmudb.IGI_MPP_AP_INVOICE_DISTS_PKG.Lock_Row.FORM_RECORD_DELETED',FALSE);

34: CLOSE C;
35: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
36: --bug 3199481: fnd logging changes:sdixit :start
37: IF (l_error_level >= l_debug_level ) THEN
38: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmudb.IGI_MPP_AP_INVOICE_DISTS_PKG.Lock_Row.FORM_RECORD_DELETED',FALSE);
39: END IF;
40: --bug 3199481 fnd logging changes: sdixit: end block
41: APP_EXCEPTION.Raise_Exception;
42: end if;

Line 85: UPDATE igi_mpp_ap_invoice_dists

81: X_Last_Update_Login NUMBER
82:
83: ) IS
84: BEGIN
85: UPDATE igi_mpp_ap_invoice_dists
86: SET
87: ignore_mpp_flag = nvl(X_Ignore_Mpp_Flag,'N'),
88: accounting_rule_id = X_Accounting_Rule_Id,
89: start_date = X_Start_Date,

Line 99: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmudb.IGI_MPP_AP_INVOICE_DISTS_PKG.Update_Row.NO_DATA_FOUND',FALSE);

95:
96: if (SQL%NOTFOUND) then
97: --bug 3199481: fnd logging changes:sdixit :start
98: IF (l_error_level >= l_debug_level ) THEN
99: FND_LOG.MESSAGE (l_error_level , 'igi.pls.igipmudb.IGI_MPP_AP_INVOICE_DISTS_PKG.Update_Row.NO_DATA_FOUND',FALSE);
100: END IF;
101: --bug 3199481 fnd logging changes: sdixit: end block
102: Raise NO_DATA_FOUND;
103: end if;

Line 107: END IGI_MPP_AP_INVOICE_DISTS_PKG;

103: end if;
104: END Update_Row;
105:
106:
107: END IGI_MPP_AP_INVOICE_DISTS_PKG;