1: PACKAGE BODY GL_AUTHORIZATION_LIMITS_PKG as
2: /* $Header: gliemalb.pls 120.5 2005/05/05 01:07:12 kvora ship $ */
3: --
4: -- Package
5: -- GL_AUTHORIZATION_LIMITS_PKG
1: PACKAGE BODY GL_AUTHORIZATION_LIMITS_PKG as
2: /* $Header: gliemalb.pls 120.5 2005/05/05 01:07:12 kvora ship $ */
3: --
4: -- Package
5: -- GL_AUTHORIZATION_LIMITS_PKG
6: -- Purpose
7: -- To contain validation and insertion routines for GL_AUTHORIZATION_LIMITS
8: -- History
9: -- 08-07-97 R Goyal Created.
3: --
4: -- Package
5: -- GL_AUTHORIZATION_LIMITS_PKG
6: -- Purpose
7: -- To contain validation and insertion routines for GL_AUTHORIZATION_LIMITS
8: -- History
9: -- 08-07-97 R Goyal Created.
10: --
11: -- Procedure
10: --
11: -- Procedure
12: -- Insert_Row
13: -- Purpose
14: -- Inserts a row into GL_AUTHORIZATION_LIMITS
15: -- History
16: -- 08-07-97 R Goyal Created.
17: -- Arguments
18: -- all the columns of the table GL_AUTHORIZATION_LIMITS
14: -- Inserts a row into GL_AUTHORIZATION_LIMITS
15: -- History
16: -- 08-07-97 R Goyal Created.
17: -- Arguments
18: -- all the columns of the table GL_AUTHORIZATION_LIMITS
19: -- Example
20: -- GL_AUTHORIZATION_LIMITS_PKG.Insert_Row(....;
21: -- Notes
22: --
16: -- 08-07-97 R Goyal Created.
17: -- Arguments
18: -- all the columns of the table GL_AUTHORIZATION_LIMITS
19: -- Example
20: -- GL_AUTHORIZATION_LIMITS_PKG.Insert_Row(....;
21: -- Notes
22: --
23: PROCEDURE Insert_Row(X_Rowid IN OUT NOCOPY VARCHAR2,
24: X_Ledger_Id NUMBER,
45: X_Attribute14 VARCHAR2,
46: X_Attribute15 VARCHAR2,
47: X_Context VARCHAR2
48: ) IS
49: CURSOR C IS SELECT rowid FROM GL_AUTHORIZATION_LIMITS
50: WHERE ledger_id = X_Ledger_Id
51: AND employee_id = X_Employee_Id;
52: BEGIN
53: INSERT INTO GL_AUTHORIZATION_LIMITS(
49: CURSOR C IS SELECT rowid FROM GL_AUTHORIZATION_LIMITS
50: WHERE ledger_id = X_Ledger_Id
51: AND employee_id = X_Employee_Id;
52: BEGIN
53: INSERT INTO GL_AUTHORIZATION_LIMITS(
54: ledger_id,
55: employee_id,
56: authorization_limit,
57: last_update_date,
114: --
115: -- Procedure
116: -- Lock_Row
117: -- Purpose
118: -- Locks a row into GL_AUTHORIZATION_LIMITS
119: -- History
120: -- 08-07-97 R Goyal Created.
121: -- Arguments
122: -- all the columns of the table GL_AUTHORIZATION_LIMITS
118: -- Locks a row into GL_AUTHORIZATION_LIMITS
119: -- History
120: -- 08-07-97 R Goyal Created.
121: -- Arguments
122: -- all the columns of the table GL_AUTHORIZATION_LIMITS
123: -- Example
124: -- GL_AUTHORIZATION_LIMITS_PKG.Lock_Row(....;
125: -- Notes
126: --
120: -- 08-07-97 R Goyal Created.
121: -- Arguments
122: -- all the columns of the table GL_AUTHORIZATION_LIMITS
123: -- Example
124: -- GL_AUTHORIZATION_LIMITS_PKG.Lock_Row(....;
125: -- Notes
126: --
127: PROCEDURE Lock_Row(X_Rowid VARCHAR2,
128: X_Ledger_Id NUMBER,
146: X_Context VARCHAR2
147: ) IS
148: CURSOR C IS
149: SELECT *
150: FROM GL_AUTHORIZATION_LIMITS
151: WHERE rowid = X_Rowid
152: FOR UPDATE of Ledger_Id NOWAIT;
153: Recinfo C%ROWTYPE;
154: BEGIN
229: --
230: -- Procedure
231: -- Update_Row
232: -- Purpose
233: -- Updates a row into GL_AUTHORIZATION_LIMITS
234: -- History
235: -- 08-07-97 R Goyal Created.
236: -- Arguments
237: -- all the columns of the table GL_AUTHORIZATION_LIMITS
233: -- Updates a row into GL_AUTHORIZATION_LIMITS
234: -- History
235: -- 08-07-97 R Goyal Created.
236: -- Arguments
237: -- all the columns of the table GL_AUTHORIZATION_LIMITS
238: -- Example
239: -- GL_AUTHORIZATION_LIMITS_PKG.Update_Row(....;
240: -- Notes
241: --
235: -- 08-07-97 R Goyal Created.
236: -- Arguments
237: -- all the columns of the table GL_AUTHORIZATION_LIMITS
238: -- Example
239: -- GL_AUTHORIZATION_LIMITS_PKG.Update_Row(....;
240: -- Notes
241: --
242: PROCEDURE Update_Row(X_Rowid VARCHAR2,
243: X_Ledger_Id NUMBER,
263: X_Attribute15 VARCHAR2,
264: X_Context VARCHAR2
265: ) IS
266: BEGIN
267: UPDATE GL_AUTHORIZATION_LIMITS
268: SET
269: ledger_id = X_Ledger_Id,
270: employee_id = X_Employee_Id,
271: authorization_limit = X_Authorization_Limit,
299: --
300: -- Procedure
301: -- Delete_Row
302: -- Purpose
303: -- Deletes a row from GL_AUTHORIZATION_LIMITS
304: -- History
305: -- 08-07-97 R Goyal Created.
306: -- Arguments
307: -- x_rowid Rowid of a row
305: -- 08-07-97 R Goyal Created.
306: -- Arguments
307: -- x_rowid Rowid of a row
308: -- Example
309: -- GL_AUTHORIZATION_LIMITS_PKG.delete_row('ajfdshj');
310: -- Notes
311: --
312: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
313: BEGIN
310: -- Notes
311: --
312: PROCEDURE Delete_Row(X_Rowid VARCHAR2) IS
313: BEGIN
314: DELETE FROM GL_AUTHORIZATION_LIMITS
315: WHERE rowid = X_Rowid;
316:
317: IF (SQL%NOTFOUND) THEN
318: RAISE NO_DATA_FOUND;
331: -- row_id The row ID
332: -- X_Ledger_Id Ledger Id
333: -- x_employee_id Employee ID
334: -- Example
335: -- GL_AUTHORIZATION_LIMITS_PKG.check_unique(...
336: -- Notes
337: --
338: FUNCTION Check_Unique(X_Rowid VARCHAR2,
339: X_Ledger_Id NUMBER,
347: INTO dummy
348: FROM dual
349: WHERE EXISTS
350: (SELECT 1
351: FROM GL_AUTHORIZATION_LIMITS A
352: WHERE A.ledger_id = X_Ledger_Id
353: AND A.employee_id = X_Employee_Id
354: AND ( A.rowid <> X_Rowid or X_Rowid is null));
355: ELSIF (x_employee_name IS NOT NULL) THEN
357: INTO dummy
358: FROM dual
359: WHERE EXISTS
360: (SELECT 1
361: FROM GL_AUTHORIZATION_LIMITS_V A
362: WHERE A.ledger_id = X_Ledger_Id
363: AND A.employee_name = X_employee_name
364: AND ( A.rowid <> X_Rowid or X_Rowid is null));
365:
375: return(TRUE);
376:
377: END Check_Unique;
378:
379: END GL_AUTHORIZATION_LIMITS_PKG;