APPS.IGI_DUN_LETTER_SETS_PKG dependencies on IGI_DUN_LETTER_SETS

Line 1: PACKAGE BODY IGI_DUN_LETTER_SETS_PKG as

1: PACKAGE BODY IGI_DUN_LETTER_SETS_PKG as
2: /* $Header: igidunob.pls 120.4.12000000.1 2007/10/26 13:30:19 gigupta ship $ */
3:
4: --following variables added for bug 3199481: fnd logging changes: sdixit
5: l_debug_level number := FND_LOG.G_CURRENT_RUNTIME_LEVEL;

Line 25: CURSOR C IS SELECT rowid FROM igi_dun_letter_sets

21: X_Last_Update_Login NUMBER
22:
23:
24: ) IS
25: CURSOR C IS SELECT rowid FROM igi_dun_letter_sets
26: WHERE dunning_letter_set_id = X_Dunning_Letter_Set_Id;
27:
28:
29: BEGIN

Line 32: INSERT INTO igi_dun_letter_sets(

28:
29: BEGIN
30:
31:
32: INSERT INTO igi_dun_letter_sets(
33: dunning_letter_set_id,
34: use_dunning_flag,
35: charge_per_invoice_flag,
36: created_by,

Line 71: FROM igi_dun_letter_sets

67:
68: ) IS
69: CURSOR C IS
70: SELECT *
71: FROM igi_dun_letter_sets
72: WHERE rowid = X_Rowid
73: FOR UPDATE of Dunning_Letter_Set_Id NOWAIT;
74: Recinfo C%ROWTYPE;
75:

Line 85: FND_LOG.MESSAGE (l_excep_level , 'igi.plsql.igidunob.IGI_DUN_LETTER_SETS_PKG.Lock_Row',FALSE);

81: CLOSE C;
82: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
83: --bug 3199481 fnd logging changes: sdixit: start block
84: IF (l_excep_level >= l_debug_level ) THEN
85: FND_LOG.MESSAGE (l_excep_level , 'igi.plsql.igidunob.IGI_DUN_LETTER_SETS_PKG.Lock_Row',FALSE);
86: END IF;
87: --bug 3199481 fnd logging changes: sdixit: end block
88: APP_EXCEPTION.Raise_Exception;
89: end if;

Line 102: FND_LOG.MESSAGE (l_excep_level , 'igi.plsql.igidunob.IGI_DUN_LETTER_SETS_PKG.Lock_Row',FALSE);

98: else
99: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
100: --bug 3199481 fnd logging changes: sdixit: start block
101: IF (l_excep_level >= l_debug_level ) THEN
102: FND_LOG.MESSAGE (l_excep_level , 'igi.plsql.igidunob.IGI_DUN_LETTER_SETS_PKG.Lock_Row',FALSE);
103: END IF;
104: --bug 3199481 fnd logging changes: sdixit: end block
105: APP_EXCEPTION.Raise_Exception;
106: end if;

Line 120: UPDATE igi_dun_letter_sets

116: X_Last_Update_Login NUMBER
117:
118: ) IS
119: BEGIN
120: UPDATE igi_dun_letter_sets
121: SET
122: dunning_letter_set_id = X_Dunning_Letter_Set_Id,
123: use_dunning_flag = X_Use_Dunning_Flag,
124: charge_per_invoice_flag = X_Charge_Per_Invoice_Flag,

Line 137: DELETE FROM igi_dun_letter_sets

133: END Update_Row;
134:
135: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
136: BEGIN
137: DELETE FROM igi_dun_letter_sets
138: WHERE rowid = X_Rowid;
139:
140: if (SQL%NOTFOUND) then
141: Raise NO_DATA_FOUND;

Line 146: END IGI_DUN_LETTER_SETS_PKG;

142: end if;
143: END Delete_Row;
144:
145:
146: END IGI_DUN_LETTER_SETS_PKG;