1: PACKAGE BODY CE_BA_SIGNATORIES_PKG as
2: /* $Header: cebasigb.pls 120.0 2005/03/30 21:38:05 shawang noship $ */
3: --
4: -- Package
5: -- ce_ba_signatoriespkg
1: PACKAGE BODY CE_BA_SIGNATORIES_PKG as
2: /* $Header: cebasigb.pls 120.0 2005/03/30 21:38:05 shawang noship $ */
3: --
4: -- Package
5: -- ce_ba_signatoriespkg
6: -- Purpose
7: -- To contain validation and insertion routines for ce_ba_signatories
8: -- History
9: -- 15-dec-2004 Shaik Vali Created
3: --
4: -- Package
5: -- ce_ba_signatoriespkg
6: -- Purpose
7: -- To contain validation and insertion routines for ce_ba_signatories
8: -- History
9: -- 15-dec-2004 Shaik Vali Created
10:
11: FUNCTION body_revision RETURN VARCHAR2 IS
26: --
27: -- Procedure
28: -- Insert_Row
29: -- Purpose
30: -- Inserts a row into ce_ba_signatories
31: -- History
32: -- 15-Dec-2004 Shaik Vali Created
33: -- Arguments
34: -- all the columns of the table CE_BA_SIGNATORIES
30: -- Inserts a row into ce_ba_signatories
31: -- History
32: -- 15-Dec-2004 Shaik Vali Created
33: -- Arguments
34: -- all the columns of the table CE_BA_SIGNATORIES
35: -- Example
36: -- CE_BA_SIGNATORIES_PKG.Insert_Row(....;
37: -- Notes
38: --
32: -- 15-Dec-2004 Shaik Vali Created
33: -- Arguments
34: -- all the columns of the table CE_BA_SIGNATORIES
35: -- Example
36: -- CE_BA_SIGNATORIES_PKG.Insert_Row(....;
37: -- Notes
38: --
39: PROCEDURE Insert_Row( X_Rowid IN OUT NOCOPY VARCHAR2,
40: X_Signatory_Id IN OUT NOCOPY NUMBER,
71: X_Attribute13 VARCHAR2,
72: X_Attribute14 VARCHAR2,
73: X_Attribute15 VARCHAR2
74: ) IS
75: CURSOR C IS SELECT rowid FROM CE_BA_SIGNATORIES
76: WHERE signatory_id = X_signatory_id;
77:
78: CURSOR C2 IS SELECT ce_ba_signatories_s.nextval FROM sys.dual;
79: --
74: ) IS
75: CURSOR C IS SELECT rowid FROM CE_BA_SIGNATORIES
76: WHERE signatory_id = X_signatory_id;
77:
78: CURSOR C2 IS SELECT ce_ba_signatories_s.nextval FROM sys.dual;
79: --
80: BEGIN
81: -- cep_standard.debug('open c2 ');
82:
84: FETCH C2 INTO X_Signatory_id;
85: CLOSE C2;
86: --
87:
88: INSERT INTO CE_BA_SIGNATORIES(
89: signatory_id,
90: bank_account_id,
91: person_id,
92: single_limit_amount,
170: --
171: -- Procedure
172: -- Lock_Row
173: -- Purpose
174: -- Locks a row into ce_ba_signatories
175: -- History
176: -- 15-Dec-2004 Shaik Vali Created
177: -- Arguments
178: -- all the columns of the table CE_BA_SIGNATORIES
174: -- Locks a row into ce_ba_signatories
175: -- History
176: -- 15-Dec-2004 Shaik Vali Created
177: -- Arguments
178: -- all the columns of the table CE_BA_SIGNATORIES
179: -- Example
180: -- ce_ba_signatories_pkg.Lock_Row(....;
181: -- Notes
182: --
176: -- 15-Dec-2004 Shaik Vali Created
177: -- Arguments
178: -- all the columns of the table CE_BA_SIGNATORIES
179: -- Example
180: -- ce_ba_signatories_pkg.Lock_Row(....;
181: -- Notes
182: --
183: PROCEDURE Lock_Row(
184: X_Rowid IN OUT NOCOPY VARCHAR2,
211: X_Attribute15 VARCHAR2
212: ) IS
213: CURSOR C IS
214: SELECT *
215: FROM CE_BA_SIGNATORIES
216: WHERE rowid = X_Rowid
217: FOR UPDATE of Signatory_id NOWAIT;
218: Recinfo C%ROWTYPE;
219: BEGIN
313: --
314: -- Procedure
315: -- Update_Row
316: -- Purpose
317: -- Updates a row into ce_ba_signatories
318: -- History
319: -- 15-Dec-2004 Shaik Vali Created
320: -- Arguments
321: -- all the columns of the table CE_BA_SIGNATORIES
317: -- Updates a row into ce_ba_signatories
318: -- History
319: -- 15-Dec-2004 Shaik Vali Created
320: -- Arguments
321: -- all the columns of the table CE_BA_SIGNATORIES
322: -- Example
323: -- ce_ba_signatories_pkg.Update_Row(....;
324: -- Notes
325: --
319: -- 15-Dec-2004 Shaik Vali Created
320: -- Arguments
321: -- all the columns of the table CE_BA_SIGNATORIES
322: -- Example
323: -- ce_ba_signatories_pkg.Update_Row(....;
324: -- Notes
325: --
326: PROCEDURE Update_Row( X_Rowid IN OUT NOCOPY VARCHAR2,
327: X_Signatory_Id IN OUT NOCOPY NUMBER,
356: X_Attribute14 VARCHAR2,
357: X_Attribute15 VARCHAR2
358: ) IS
359: BEGIN
360: UPDATE CE_BA_SIGNATORIES
361: SET
362: signatory_id = X_signatory_id,
363: bank_account_id = X_Bank_Account_Id,
364: person_id = X_person_id,
406: -- 14-JAN-2005 Shaik Vali Created
407: -- Arguments
408: -- x_rowid Rowid of a row
409: -- Example
410: -- ce_ba_signatories_pkg.delete_row(...;
411: -- Notes
412: --
413: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
414: BEGIN
414: BEGIN
415: -- Do not delete the record from the table.
416: -- rather mark it for delete.
417:
418: UPDATE ce_ba_signatories
419: SET deleted_flag = 'Y'
420: WHERE rowid=X_Rowid;
421: --
422: if (SQL%NOTFOUND) then
423: Raise NO_DATA_FOUND;
424: end if;
425: END Delete_Row;
426: --
427: END CE_BA_SIGNATORIES_PKG;